blob: dc0991ed6e7b13d628c8cba348cf720e33e97d45 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STCLOSE -- Return all storage used by a symbol table.
procedure stclose (stp)
pointer stp # symbol table descriptor
begin
call mfree (ST_STABP(stp), TY_STRUCT)
call mfree (ST_SBUFP(stp), TY_CHAR)
call mfree (ST_INDEX(stp), TY_INT)
call mfree (stp, TY_STRUCT)
end
|
