blob: f341c934f8ca0f262db7971d76077c7c68a90683 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STHEAD -- Return a symstruct pointer to the last symbol entered into the
# table. The NULL pointer is returned when the symbol table is empty.
pointer procedure sthead (stp)
pointer stp # symtab descriptor
begin
if (ST_LASTSYMBOL(stp) == NULL)
return (NULL)
else
return (E_USERFIELDS (ST_STABP(stp) + ST_LASTSYMBOL(stp)))
end
|
