! File:   GLODEC.BLI
!
!    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.
!
Module GLODEC=
Begin
Require 'Bliss';

Global

! lexical information

	pos_char	: Integer,
	PBUFF		: Ref Vector[,Byte],
	num_actuals	: Integer,
	flg_plit	: Boolean,
	SCANTYPE	: Integer,
	sym_define	: Ref ST,
	sym_vector	: Ref ST,
	LEX_FLAGS	: Bitvector[32],

! error information

	pos_sym		: Integer,
	pos_del		: Integer,
	pos_atom	: Integer,
	OLDDEL		: Integer,
	OLDDELI		: Integer,
	ERRINFO		: Vector[2],
	pos_good	: Integer,
	pos_open	: Integer,
	num_warning	: Integer,
	num_error	: Integer,
	ERRLEVEL	: Integer,
	INDECL		: Integer,
	LASTEND		: Integer,

! flowan information

	ABCOUNT		: Integer,
	LEVEL		: Integer,
	LEVELINC	: Integer,
	GTHASH		: Vector[MAXDELIMITER+2],

! syntax information

	INENABLE	: Boolean,
	SYM		: Ref GT,
	DEL		: Integer,
	BLOCKLEVEL	: Integer,
	RBLOCKLEVEL	: Integer,
	STRUCLEVEL	: Integer,
	TOS		: Integer,
	LASTMARK	: Integer,
	unit_size	: Integer,

! code/final information

! statistics

	CODESIZE	: Integer,
	DATASIZE	: Integer,

! listing information

	NINLINES	: Integer,
	MODDONE		: Boolean,
	MODNAME		: Ref Vector[,Byte],
	MODMAIN		: Ref Vector[,Byte],
	MAINDECL	: Boolean,
	SSTKLEN		: Integer,

	MAC_INFO	: Block[20,Quad],
	ARG_INFO	: Block[70,Quad],
	NCSE		: Vector[32*2],
	FLSTK		: Ref ITEM,
	GETLCNT		: Integer,
	LASTPUR		: Ref ST,
	NOTREE		: Integer,
	CURROUT		: Ref ST,
	DEVICE		: Integer,
	PURGED		: Ref ST,
	MANYACTS	: Integer,
	pos_scan	: Integer,
	flg_stack_addr	: Boolean,
	DT		: Vector[DTSIZE,Quad],
	DTPF		: Vector[DTSIZE,Quad],
	HT_NAME		: Vector[HTSIZE,Quad],
	HT_THREAD	: Vector[HTSIZE,Quad],
	STK		: Vector[300,Quad],
	NLINES		: Integer,
	NEXTLOCAL	: Integer,
	NEXTOWN		: Integer,
	NEXTGLOBAL	: Integer,
	MAXLOCALS	: Integer,
	LOC		: Integer,
	CODENAME	: Vector[5],
	NLHEAD		: Ref ST,
	BRAK1		: Ref CELL,
	BRAK2		: Ref CELL,
	DYTEMPS		: Integer,
	STATICSIZE	: Integer,
	NCELL		: Ref CELL,
	VTN		: Ref GT,
	FLAGS		: Integer,
	LON		: Integer,
	FON		: Integer,
	LOOPDEPTH	: Integer,
	NUMPARMS	: Integer,
	MAXPARMS	: Integer,
	STEMPS		: Ref PLSTSTK,
	DTEMPS		: Ref PLSTSTK,
	VTEMPS		: Ref PLSTSTK,
	REGS		: Vector[6,Quad],
	RESERVED	: Integer,
	TNCHAIN		: LSTHDR,
	flg_enable	: Boolean,
	CSFLAG		: Integer,
	CSNAME		: Ref Vector[,Byte],
	IDENTFLG	: Boolean,
	IDENTLEX	: Integer,
	SECTFLAGS	: Integer,
	CSCNAME		: Ref NT,
	CSDNAME		: Ref NT,
	CSGNAME		: Ref NT,
	CSONAME		: Ref NT,
	CSPNAME		: Ref NT,
        FINRTNSIZE	: Integer;

Global

! linkage types

	sym_bliss	: Ref ST,
	sym_trap	: Ref ST,
	SPEC1LNKG	: Ref ST,
	SPEC2LNKG	: Ref ST,
	EXCHJLNKG	: Ref ST,

! $REMAINING symbol

	sym_remainder	: Ref ST,

! cpu registers

	tbl_registers	: Vector[9],

! support routines

	tbl_symbols	: Vector[25],

! builtins

	tbl_builtins	: Vector[11];

!
!  END OF AREA ZEROED BY ONCEONLY()
!

Global
	STSZ : Vector[28] Initial(
	4,	!  0 DELMT
	4,	!  1 S_NODE
	4,	!  2 S_TEMPNAME
	4,	!  3
	4,	!  4
	2,	!  5 S_UNDECLARE
	8,	!  6 S_LOCAL
	8,	!  7 S_OWN
	8,	!  8 S_REGISTER
	8,	!  9 S_FORMAL
	8,	! 10 S_EXTERNAL
	8,	! 11 S_GLOBAL
	0,	! 12
	0,	! 13
	0,	! 14
	8,	! 15 S_ROUTINE
	8,	! 16 S_GBL_ROUTINE
	8,	! 17 S_FORWARD
	6,	! 18 S_BIND
	6,	! 19 S_LABEL
	4,	! 20 S_LINKAGE
	6,	! 21 S_MACRO
	4,	! 22 S_SPECIAL
	4,	! 23 S_MACRO_ARG
	4,	! 24 S_LEX_CONV
	4,	! 25 S_LEX_EXPAND
	4,	! 26 S_STRUCT_ARG
	4	! 27 S_STRUCTURE
	);

!    THE ABOVE IS THE TABLE OF SYMBOL TABLE ENTRY SIZES,
!    INDEXED BY THEIR 'TYPEF' FIELDS.  THESE SIZES HAVE ALL
!    BEEN ROUNDED UP TO THE NEXT EVEN NUMBER.
!

End
Eludom