blob: 4a6ae000b2609f2a1e8b0a0cf82cd325d0c28447 (
plain) (
blame)
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
|
include "trs.h"
#* HISTORY *
#* B.Simon 04-Nov-94 original
# TRSCLOSE - Free table row selector code buffer
procedure trsclose (trs)
pointer trs # i: Pseudocode structure
#--
string notcode "trsclose: not pointer to code"
begin
if (TRS_IDENT(trs) != TRS_MAGIC)
call error (1, notcode)
call rst_free (TRS_ROWS(trs))
call mfree (TRS_VALUE(trs), TY_DOUBLE)
call mfree (TRS_CODE(trs), TY_INT)
call mfree (trs, TY_INT)
end
|
