DIRECTORY Alloc: TYPE USING [Handle], BcdDefs: TYPE USING [MTHandle, SGRecord, VersionStamp], FileParms: TYPE USING [ActualId], OSMiscOps: TYPE USING [Stamp], Rope: TYPE USING [ROPE], Symbols: TYPE USING [ISEIndex, CSEIndex, CTXIndex, CBTIndex], SymbolSegment: TYPE USING [FGTEntry], SymbolTable: TYPE USING [Base], Tree: TYPE USING [Link]; ComData: PROGRAM = PUBLIC { OPEN Symbols; typeINT, typeCARDINAL: CSEIndex; typeBOOL, typeCHAR, typeREAL: CSEIndex; typeSTRING, typeStringBody: CSEIndex; typeATOM, typeAtomRecord: CSEIndex; typeRefANY, typeListANY: CSEIndex; typeLOCK, typeCONDITION: CSEIndex; interface: BOOL; -- interface module monitored: BOOL; stopping: BOOL; outerCtx: CTXIndex; -- predefined identifiers moduleCtx: CTXIndex; -- module identifiers importCtx: CTXIndex; -- import id context exportCtx: CTXIndex; -- export id context mainCtx: CTXIndex; -- main program's context nBodies: CARDINAL; nInnerBodies: CARDINAL; nSigCodes: CARDINAL; defBodyLimit: CARDINAL; linkCount: CARDINAL; -- global control links (externals, etc) ownSymbols: SymbolTable.Base; idANY: ISEIndex; idINT, idCARDINAL, idCHAR, idBOOL, idREAL, idSTRING: ISEIndex; idTEXT: ISEIndex; idLOCK: ISEIndex; idATOM: ISEIndex; seAnon: ISEIndex; tC0, tC1: Tree.Link; idUNWIND: ISEIndex; table: Alloc.Handle; zone: UNCOUNTED ZONE; switches: PACKED ARRAY CHAR['a..'z] OF BOOL; source: FileParms.ActualId; sourceTokens: CARDINAL; pattern: FileParms.ActualId; -- old bcd to match matched: BOOL; nErrors: CARDINAL; nWarnings: CARDINAL; bodyIndex: CBTIndex; -- current body textIndex: CARDINAL; -- start index of line with error compilerVersion: BcdDefs.VersionStamp; objectVersion: BcdDefs.VersionStamp; objectStamp: OSMiscOps.Stamp; globalFrameSize: CARDINAL; objectBytes: CARDINAL; fgTable: LONG DESCRIPTOR FOR ARRAY OF SymbolSegment.FGTEntry _ NIL; bcdSeg, codeSeg, symSeg: BcdDefs.SGRecord; mtRoot: BcdDefs.MTHandle _ NIL; mtRootSize: CARDINAL; fixupLoc: LONG CARDINAL; }. Ļfile ComData.mesa last modified by Satterthwaite, June 7, 1983 9:55 am Last Edited by: Maxwell, August 2, 1983 2:42 pm basic types (initialized in Pass1) global info describing module shared instance of SymbolTable type identifiers (initialized in Pass1) anonymous entry for undeclared ids symbolic constants scratch storage compilation options input variables used for error reporting output objectFile: Rope.ROPE; Ę2˜Jšœ™Jšœ4™4J™/J˜šĪk ˜ Jšœœœ ˜Jšœ œœ$˜7Jšœ œœ ˜!Jšœ œœ ˜Jšœœœœ˜Jšœ œœ*˜=Jšœœœ ˜%Jšœ œœ˜Jšœœœ˜J˜—šœ œœ˜Jšœ ˜ J˜Jšœ"™"˜J˜ J˜'J˜%J˜#J˜"J˜"J˜—Jšœ™˜Jšœ œĪc˜&Jšœ œ˜Jšœ œ˜Jšœž˜.Jšœž˜+Jšœž˜*Jšœž˜*Jšœž˜-Jšœ œ˜Jšœœ˜Jšœ œ˜Jšœœ˜Jšœ œž(˜>J˜—Jšœ™˜J˜J˜—Jšœ'™'˜J˜J˜>J˜J˜J˜J˜—Jšœ"™"˜J˜J˜—Jšœ™˜J˜J˜J˜—Jšœ™˜J˜Jšœ œœ˜J˜—Jšœ™˜Jš œ œœœ œœ˜,J˜—Jšœ™˜J˜Jšœœ˜J˜Jšœž˜0Jšœ œ˜J˜—Jšœ"™"˜Jšœ œ˜Jšœ œ˜Jšœž˜%Jšœ œž!˜7J˜—Jšœ™˜J˜&J˜Jšœœ™J˜$J˜J˜Jšœœ˜Jšœ œ˜J˜Jš œ œ œœœœœ˜CJ˜J˜*Jšœœ˜Jšœ œ˜Jšœ œœ˜J˜J˜J˜———…—Ä œ