Text preview for : Pass3I.mesa_Sep78.pdf part of xerox Pass3I.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Compiler Pass3I.mesa_Sep78.pdf
Back to : Pass3I.mesa_Sep78.pdf | Home
Pass3I.mesa 2-Sep-78 12:59:59 Page 1
-- file Pass3I.Mesa
-- last modified by Satterthwaite, July 16, 1978 10:00 AM
DIRECTORY
ComData: FROM "comdata"
USING [importCtx, mainCtx, seAnon, textIndex, typeBOOLEAN, xref),
CompilerDefs: FROM "compilerdefs" USING [AppendXrefWords),
CopierDefs: FROM "copierdefs"
USING [CompleteContext, Delink, SearchFileCtx),
ErrorDefs: FROM "errordefs"
USING [error, errorhti, errorsei, WarningSei, errortree],
P3Defs: FROM "p3defs"
USING [
P3Mark,
BumpCount, Exp, LongPath, OperandType, ResolveReference, Rhs,
RPop, RPush, RType, TargetType, UnionField, VariantUnionType, VoidExp,
CheckExprLoop, CheckTypeLoop, LogExprLoop),
Pass3: FROM "pass3" USING [implicitTree, implicitType],
SymDefs: FROM "symdefs"
USING [setype, ctxtype, mdtype, bodytype,
HTIndex, SEIndex, ISEIndex, CSEIndex, recordCSEIndex,
CTXIndex, inc1udedCTXIndex, BTIndex,
HTNul1, SENu11, ISENu1l, recordCSENull, CTXNull, BTNull,
1G, lZ, typeANY],
SymTabDefs: FROM "symtabdefs"
USING [
ConstantId, firstvisiblese, NextSe, NormalType, SearchContext,
setselink, UnderType, visiblectxentries, XferMode],
SystemDefs: FROM "systemdefs"
USING [
A11ocateHeapNode, Al1ocateSegment, FreeHeapNode, FreeSegment,
SegmentSize],
TableDefs: FROM "tabledefs"
USING [Tab1eBase, TableNotifier],
TreeDefs: FROM "treedefs"
USING [treetype,
TreeIndex, TreeLink, TreeMap, TreeScan,
empty, nul1id,
CopyTree, freenode, freetree, GetNode, m1pop, mlpush, pushtree,
scan1ist, setattr, setinfo, setshared, shared, testtree,
updatelist, UpdateTree),
XrefJourna1Defs: FROM "xrefjournaldefs"
USING [Ref Data, ReferenceNumber, Ref Type];
Pass3I: PROGRAM
IMPORTS
Compi1erDefs, CopierDefs, ErrorDefs, P3Defs, SymTabDefs, SystemDefs,
TreeDefs,
dataPtr: ComData, passPtr: Pass3
EXPORTS P3Defs =
BEGIN
OPEN SymTabDefs, P3Defs, SymDefs, TreeDefs;
Undec1aredIdentifier: PUBLIC SIGNAL [HTIndex) RETURNS [ISEIndex)