pkg/tbtables/selector/tcsclose.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14

# TCS_CLOSE -- Free memory associated with column selectors

procedure tcs_close (descrip, ndescrip)

pointer	descrip[ARB]	# i: column selectors
int	ndescrip	# i: number of descriptors
#--
int	id

begin
	do id = 1, ndescrip
	    call mfree (descrip[id], TY_INT)

end