blob: 9e10617e97e696f6d5f2fc151b04037cf30a5f9b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STNAME -- Return a char pointer to the key string (symbol name) of a symbol
# table entry, given a pointer to the symbol structure.
pointer procedure stname (stp, sym)
pointer stp # symtab descriptor
pointer sym # pointer to 'current' symstruct
begin
return (ST_SBUFP(stp) + E_KEY(E_BASE(sym)))
end
|
