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; 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 Last Edited by: Paul Rovner, September 8, 1983 9:53 am 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; Ę&˜Jšœ™Jšœ4™4J™/J™6J˜šĪ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šœž˜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˜———…—Ž ˛