blob: 2304f00c5718bbac474107afe79b9b47ee0a6f0f (
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
26
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STNEXT -- Return a symstruct pointer to the next most recently entered
# symbol in the table, given a pointer to some symbol. Use to walk down
# the global symbol table list in the reverse of the order in which symbols
# were entered.
pointer procedure stnext (stp, sym)
pointer stp # symtab descriptor
pointer sym # pointer to 'current' symstruct
int el
begin
if (sym == NULL)
return (NULL)
else {
el = E_NEXTGLOB (E_BASE(sym))
if (el == NULL)
return (NULL)
else
return (E_USERFIELDS (ST_STABP(stp) + el))
}
end
|
