1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
include "inlfitdef.h"
# IN_FREE -- Free INLFIT parameter structure, substructures, and auxiliary
# buffers.
procedure in_free$t (in)
pointer in # INLFIT pointer
begin
# # Debug.
# call eprintf ("in_free: in=%d\n")
# call pargi (in)
# Free only if it's not NULL.
if (in != NULL) {
# Free parameter values, changes, and list.
call mfree (IN_PARAM (in), TY_PIXEL)
call mfree (IN_DPARAM (in), TY_PIXEL)
call mfree (IN_PLIST (in), TY_INT)
# Free string space.
call mfree (IN_LABELS (in), TY_CHAR)
call mfree (IN_UNITS (in), TY_CHAR)
call mfree (IN_PLABELS (in), TY_CHAR)
call mfree (IN_PUNITS (in), TY_CHAR)
call mfree (IN_VLABELS (in), TY_CHAR)
call mfree (IN_VUNITS (in), TY_CHAR)
call mfree (IN_USERLABELS (in), TY_CHAR)
call mfree (IN_USERUNITS (in), TY_CHAR)
call mfree (IN_HELP (in), TY_CHAR)
call mfree (IN_PROMPT (in), TY_CHAR)
# Free rejected point list, and limit values for variables.
if (IN_REJPTS (in) != NULL)
call mfree (IN_REJPTS (in), TY_INT)
if (IN_XMIN (in) != NULL)
call mfree (IN_XMIN (in), TY_PIXEL)
if (IN_XMAX (in) != NULL)
call mfree (IN_XMAX (in), TY_PIXEL)
# Free substructures.
call mfree (IN_SFLOAT (in), TY_PIXEL)
call mfree (IN_SGAXES (in), TY_INT)
# Free structure.
call mfree (in, TY_STRUCT)
}
end
|
