PackageSymbols.mesa
Copyright Ó 1985, 1986, 1987, 1988, 1989, 1991 by Xerox Corporation. All rights reserved.
Sweet, May 12, 1980 3:21 PM
Satterthwaite, June 3, 1986 3:03:50 pm PDT
Russ Atkinson (RRA) November 20, 1989 2:08:41 pm PST
DIRECTORY
Symbols USING [HTIndex],
SymbolSegment USING [constType],
Table USING [Selector];
PackageSymbols:
DEFINITIONS = {
MaxEntries: CARDINAL = NAT15.LAST;
constant table declarations
WordIndex: TYPE = CARD;
ConstRecord:
TYPE =
MACHINE
DEPENDENT
RECORD [
offset: WordIndex,
length: CARD];
ConstIndex: TYPE = CARD;
constType: Table.Selector = SymbolSegment.constType;
body data for outer callable bodies
OuterPackRecord:
TYPE =
MACHINE
DEPENDENT
RECORD [
hti: Symbols.HTIndex,
placed, attr1, attr2: BOOL ¬ FALSE,
fill: [0..8*1024) ¬ 0,
length: CARD16,
firstSon: IPIndex,
resident: BOOL,
entryIndex: ValidIPIndex];
OPIndex: TYPE = CARDINAL [0..MaxEntries];
OPNull: OPIndex = OPIndex.LAST;
body data for inner callable bodies
InnerPackRecord:
TYPE =
MACHINE
DEPENDENT
RECORD [
length: CARD16,
lastSon: BOOL,
entryIndex: ValidIPIndex];
ValidIPIndex: TYPE = NAT15;
IPIndex:
TYPE =
CARD16;
IPNull: IPIndex = IPIndex.LAST;
}.