blob: f4cadeb26b67a6736a977231ebcacb080c8a99b5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include defs
# delete --- remove a symbol from the symbol table
subroutine delete (symbol, st)
character symbol (ARB)
pointer st
DS_DECL(Mem, 1)
integer stlu
pointer node, pred
if (stlu (symbol, node, pred, st) == YES) {
Mem (pred + ST_LINK) = Mem (node + ST_LINK)
call dsfree (node)
}
return
end
|
