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



Back to : Pass3Xa.mesa_Sep78.pdf | Home

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


-- file Pass3Xa.Mesa
-- last modified by Satterthwaite, July 16, 1978 10:11 AM
DIRECTORY
ComData: FROM "comdata"
USING [
idCARDINAL, ownSymbols, seAnon,
typeCHARACTER, typeCONDITION, typeINTEGER, typeSTRING, xref],
ErrorDefs: FROM "errordefs" USING [error, errorhti, errorn, errortree],
P3Defs: FROM "p3defs"
USING [
ArrangeKeys. BumpCount. Bundling, CanonicalType. CatchPhrase.
CompleteRecord, DefinedId, Exp. Fieldld, ForceType.
MakeLongType, MakePointerType, OperandType. PopCtx. PushCtx.
RConst. RecordReference, Rhs. RPop, RPush, RType.
TargetType, TypeExp, TypeForTree. Unbundle. VariantUnionType. VoidExp.
XferBody, XferForFrame,
CheckExprLoop].
Pass3: FROM "pass3" USING [implicitRecord. implicitType, lockHeld].
SymDefs: FROM "symdefs"
USING [bodytype, ctxtype. setype.
SERecord.
HTIndex, SEIndex, ISEIndex, CSEIndex. recordCSEIndex. CTXIndex. CBTIndex.
HTNull. SENull. ISENull. CSENull, BTNull.
lG. typeANY. typeTYPE].
SymTabDefs: FROM "symtabdefs"
USING [
ConstantId. firstvisiblese, makenonctxse, NextSe. NormalType.
TypeForm. TypeRoot. UnderType. visiblectxentries].
TableDefs: FROM "tabledefs" USING [TableBase, TableNotifier].
TreeDefs: FROM "treedefs"
USING [treetype,
NodeName. TreeIndex, TreeLink. TreeMap.
empty. nullTreeIndex.
freetree. GetNode. IdentityMap. listhead. listlength. listtail.
makelist, maketree. mlpop. mlpush. pushproperlist. pushtree.
setattr. setinfo, testtree, updatelist].
TypePackDefs: FROM "typepackdefs"
USING [SymbolTableBase. AssignableTypes. EquivalentTypes];
Pass3Xa: PROGRAM
IMPORTS
ErrorDefs. P3Defs. SymTabDefs. TreeDefs. TypePackDefs.
dataPtr: ComData. passPtr: Pass3
EXPORTS P3Defs