[ivy]<Satterthwaite>Mimosa>PackageSymbols.mesa!1

InternalPackageSymbols.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Sweet, May 12, 1980 3:21 PM
Satterthwaite, June 3, 1986 3:03:50 pm PDT
DIRECTORY
PrincOps: TYPE USING [EPRange, MaxNGfi],
Symbols: TYPE USING [HTIndex],
SymbolSegment: TYPE USING [constType],
Table: TYPE USING [Selector];
PackageSymbols: DEFINITIONS = {
MaxEntries: CARDINAL = PrincOps.EPRange*PrincOps.MaxNGfi;
constant table declarations
WordIndex: TYPE = CARDINAL;
ConstRecord: TYPE = RECORD[
offset: WordIndex,
length: CARDINAL];
ConstIndex: TYPE = CARDINAL [0..CARDINAL.LAST/ConstRecord.SIZE);
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..1FFFH] ← 0,
length: CARDINAL,
firstSon: IPIndex,
resident: BOOL,
entryIndex: [0..MaxEntries)];
OPIndex: TYPE = CARDINAL [0..MaxEntries];
OPNull: OPIndex = OPIndex.LAST;
body data for inner callable bodies
InnerPackRecord: TYPE = RECORD[
length: CARDINAL,
lastSon: BOOL,
entryIndex: [0..MaxEntries)];
IPIndex: TYPE = CARDINAL [0..MaxEntries]; -- waste a bit to get a null
IPNull: IPIndex = IPIndex.LAST;
}.