blob: 8afac19cbc94f9457decc95f6783a91322119a6b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include "template.h"
# TP_CLOSE -- Close the group template expansion routines
# Free the dynamic memory used to store the group template structure
#
# B.Simon 28-Feb-89 Original
# B.Simon 21-Aug-91 Changed template structure
procedure tp_close (ptr)
pointer ptr # u: Pointer to list of file names
#--
errchk mfree
begin
call mfree (TP_ROOTPTR(ptr), TY_CHAR)
call mfree (TP_SECTPTR(ptr), TY_CHAR)
call mfree (ptr, TY_STRUCT)
ptr = NULL
end
|
