blob: 1caeecb09f89a0b9b3b08fda7655eaeccf50ff20 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STMARK -- Mark the top of the STAB and SBUF stacks so that storage may
# later be returned with STFREE. Since two integers of storage are required
# for the mark, the extra information is saved at the current position in STAB.
# The location of this entry in STAB marks the position to which STAB is later
# to be restored.
procedure stmark (stp, marker)
pointer stp # symtab descriptor
int marker # magic marker
pointer mp
int stalloc()
begin
marker = stalloc (stp, LEN_MARKER)
mp = ST_STABP(stp) + marker
M_SBUFOP(mp) = ST_SBUFOP(stp)
M_NSYMBOLS(mp) = ST_NSYMBOLS(stp)
end
|
