blob: 8d9ff7df1e5bcf016d54acea0e5ee09d90121aeb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
include "tjoin.h"
# B.Simon 16-Apr-99 first code
# CLOSE_IOTAB -- Close table and release data structure describing it
procedure close_iotab (tj)
pointer tj # i: Data structure describing table
#--
begin
call tbtclo (TJ_TAB(tj))
if (TJ_JPTR(tj) != NULL)
call mfree (TJ_JPTR(tj), TY_INT)
if (TJ_DPTR(tj) != NULL)
call mfree (TJ_DPTR(tj), TY_INT)
call mfree (tj, TY_INT)
end
|
