blob: 9269b18c3a0fe8625ca1c23f77542823ce2fe4fa (
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
|
include defs
# mktabl --- make a new (empty) symbol table
pointer function mktabl (nodsiz)
integer nodsiz
DS_DECL(Mem, 1)
pointer st
pointer dsget
integer i
st = dsget (ST_HTABSIZE + 1) # +1 for record of nodsiz
Mem (st) = nodsiz
mktabl = st
do i = 1, ST_HTABSIZE; {
st = st + 1
Mem (st) = LAMBDA # null link
}
return
end
|
