DIRECTORY BcdDefs USING [CTIndex, EXPIndex, FTIndex, IMPIndex, MTIndex], HashTypes USING [HTIndex, htNull], Table USING [Base, Index, Limit]; Symbols, Literals: DEFINITIONS={ Base: TYPE~Table.Base; Limit: CARDINAL~Table.Limit; HTIndex: TYPE~HashTypes.HTIndex; htNull: HTIndex~HashTypes.htNull; STRecord: TYPE~RECORD [ filename, assigned: BOOL, hti: HTIndex, imported, exported: BOOL, link: STIndex, impi: BcdDefs.IMPIndex, impgfi: CARDINAL, body: SELECT type: * FROM unknown => [], local => [ map: STMap, info: Table.Index, -- Tree.Index, context: CXIndex], external => [ map: STMap, pointer: SELECT ptype: * FROM instance => [sti: STIndex], file => [fti: BcdDefs.FTIndex], ENDCASE] ENDCASE]; STIndex: TYPE~Base RELATIVE POINTER[0..Limit) TO STRecord; stNull: STIndex~STIndex.LAST; ISEIndex, SEIndex: TYPE~STIndex; STMap: TYPE~RECORD [ SELECT type: * FROM unknown => [], config => [cti: BcdDefs.CTIndex], module => [mti: BcdDefs.MTIndex], interface => [expi: BcdDefs.EXPIndex] ENDCASE]; CXRecord: TYPE~RECORD [link: STIndex]; CXIndex: TYPE~Base RELATIVE POINTER[0..Limit) TO CXRecord; cxNull: CXIndex~CXIndex.LAST; LitIndex: TYPE~HashTypes.HTIndex; }. BcdSymbols.Mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Satterthwaite on January 10, 1983 12:36 pm Russ Atkinson (RRA) March 7, 1985 0:00:54 am PST Symbols: hash table semantic table to share proto- modules Context Table Literals: (to share proto- modules) Κ$˜codešœ™Kšœ Οmœ1™Kšœ žœ˜"Kšœžœ˜!K˜—Kšœž œ˜ ˜Kšœžœ ˜Kšœžœ ˜K˜Kšœ™˜Kšœ ™ K˜Kšœ žœ˜ K˜!K˜Kšœ™K˜šœ žœžœ˜Kšœžœ˜K˜ Kšœžœ˜K˜K˜Kšœžœ˜šœžœ ž˜K˜˜ K˜ KšœΟc˜!K˜—˜ K˜ šœ žœ ž˜K˜K˜Kšžœ˜——Kšžœ˜ K˜——Kš œ žœžœžœ žœ ˜:Kšœžœ˜K˜Kšœ™Kšœžœ ˜ K˜šœžœžœ˜šžœ ž˜K˜K˜!K˜!K˜%Kšžœ˜ K˜——Kšœ ™ K˜Kšœ žœžœ˜&K˜Kš œ žœžœžœ žœ ˜:Kšœžœ˜K˜—Kšœ#™#˜Kšœ žœ˜!K˜K˜K˜K˜———…—”Τ