Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50325/ldsft.beg
There are no other files named ldsft.beg in the archive.
! File:   LDSFT.BEG
!
!    This work was supported by the Advanced Research
!    Projects Agency of the Office of the Secretary of
!    Defense (F44620-73-C-0074) and is monitored by the
!    Air Force Office of Scientific Research.

!
!
!
!	THIS IS THE BEGIN FILE FOR LEXAN,DECLAR,SYNTAX,FLOWAN,TABLES
!
!
!
!-----------------------------------------------------------------------
!8. THIS SECTION DEALS WITH NAME TABLE ENTRIES.
!   NAME TABLE ENTRIES CONTAIN IDENTIFIER NAMES. OFF THESE
!   NAME TABLE ENTRIES HANG LISTS OF SYMBOL TABLE ENTRIES
!   FOR IDENTIFIERS DECLARED WITH THAT SAME NAME. THE FIRST
!   ENTRY IS ALWAYS THE MOST RECENT, AND THE ONE VALID AT THAT
!   BLOCKLEVEL, UNLESS ANOTHER IS DECLARED. THERE IS ALWAYS
!   AT LEAST ONE (1) OF THESE SYMBOL TABLE ENTRIES HANGING
!   OFF ANY GIVEN NAME TABLE ENTRY. IF THERE IS ONLY ONE, THEN
!   ITS TYPE IS "UNDECTYPE", WHICH MEANS THAT IT IS UNDECLARED.
!   SEE #3. SYMBOL TABLE ENTRY INFORMATION, FOR FURTHER
!   INFORMATION.



!   A. NAME TABLE ENTRY FIELDS:


    MACRO
	ACCUM1	 =0,0,36$,	! FIRST 5 CHARACTERS OF NAME
	ACCUM2	 =1,0,36$,	! LAST 5 CHARACTERS OF NAME
	NAMELINK =2,0,18$,	! POINTER TO NEXT NAME ENTRY
	SYMLINK	 =2,18,18$,	! POINTER TO MOST RECENT IN ST
	HASHNO	 =3,0,18$,	! POINTER BACK TO HASH TABLE
	DCHAIN	 =4,0,36$;	! CHAIN OF DEBUG ST ENTRIES



!   B. NAME TABLE ENTRY SIZE:


    BIND NAMEENTRY=5,		! NUMBER OF WORDS IN NAMETABLE
	 NAMESIZE=10;		! MAXIMUM NO. OF CHARACTERS IN NAME


!------------------------------------------------------------------
!9. HASH TABLE ENTRY FIELDS

MACRO
	NAMEF  = 0,18 $,
	THREADF=18,18 $;




EXTERNAL HASHVEC HT;
EXTERNAL VECTOR DT;

!--------------------------------------------------------------------------
! FROM FLOWAN - - -

    STRUCTURE FLOLSTPTR[I,J,K]=(.GT[@.FLOLSTPTR,FLOLSTF]+.I)<.J,.K>;