Pass3Xb.mesa_Sep78.pdf part of xerox Pass3Xb.mesa Sep78 Pass3Xb.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_Compiler Pass3Xb.mesa

Text preview for : Pass3Xb.mesa_Sep78.pdf part of xerox Pass3Xb.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Compiler Pass3Xb.mesa_Sep78.pdf

Back to : Pass3Xb.mesa_Sep78.pdf | Home

Pass3Xb.mesa 2-Sep-78 12:59:59 Page 1

-- file Pass3Xb.Mesa
-- last modified by Satterthwaite, August 3, 1978 9:53 AM
DIRECTORY
ComData: FROM "comdata"
USING [
ownSymbols, typeBOOLEAN, typeCHARACTER, typeINTEGER, typeSTRING, xref],
ErrorDefs: FROM "errordefs" USING [error, errorn, errortree],
LitDefs: FROM "litdefs" USING [StringLiteralValue],
P3Defs: FROM "p3dafs"
USING [
Addr, Apply, Assignment, BumpCount, Bundling, CanonicalType, Case,
DescOp, Discrimination, Dot, Fork, Id, IdentifiedType, Join,
MakeLongType, New, OrderedType, PopCtx, PushCtx, Range. RecordReference,
Signal. Start. TargetType. TypeExp. TypeForTree, Unbundle. UpArrow].
Pass3: FROM "pass3" USING [implicitRecord. implicitTree, implicitType],
SymDefs: FROM "symdefs"
USING [ctxtype. setype.
SEIndex. ISEIndex. CSEIndex, recordCSElndex. CSENull,
recordCSENull. codeCHARACTER. codeINTEGER. typeANY],
SymTabDefs: FROM "symtabdefs"
USING [NormalType. TypeForm. UnderType. XferMode].
TableDefs: FROM "tabledefs" USING [TableBase. TableNotifier],
TreeDefs: FROM "treedefs"
USING [treetype,
TreeIndex. TreeLink. TreeMap, empty,
GetNode. listlength. mlpop. mlpush. pushtree, setinfo, testtree.
updatelist].
TypePackDefs: FROM "typepackdefs"
USING [SymbolTableBase, AssignableTypes. EquivalentTypes]:
Pass3Xb: PROGRAM
IMPORTS
ErrorDefs. LitDefs. P3Defs. SymTabDefs. TreeDefs. TypePackDefs.
dataPtr: ComData. passPtr: Pass3
EXPORTS P3Defs m
BEGIN
OPEN SymTabDefs. TreeDefs. P3Defs:
-- pervasive definitions from SymDefs
SEIndex: TYPE = SymDefs.SEIndex:
ISEIndex: TYPE = SymDefs.ISEIndex:
CSEIndex: TYPE = SymDefs.CSEIndex:
RecordSEIndex: TYPE = SymDefs.recordCSEIndex:
typeANY: SymDefs.CSEIndex SymDefs.typeANY:

tb: TableDefs.TableBase: tree base address (local copy)
seb: TableDefs.TableBase: se table base address (local copy)
ctxb: TableDefs.TableBase: context table base address (local copy)
own: TypePackDefs.SymbolTableBase:
ExpBNotify: PUBLIC TableDefs.TableNotifier