pkg/xtools/ranges/rgfree.x


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

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# RG_FREE -- Free ranges memory.

procedure rg_free (rg)

pointer	rg				# Ranges

begin
	if (rg != NULL) {
	    call mfree (rg, TY_STRUCT)
	    rg = NULL
	}
end