<<>>
    <<SGI.mesa>>
        <<Copyright Ó 1990, 1991 by Xerox Corporation.  All rights reserved.>>
        <<Adapted from SunADotOut>>
        <<Jas, January 5, 1993 2:30 pm PST>>
        <<>>

    DIRECTORY
        IO USING[STREAM],
    ObjectFiles USING [Module, Parsed],
    ObjectFilesPrivate USING [PCtoLineNumMap, LineNumToPCMap];

    SGI: CEDAR DEFINITIONS  =
    BEGIN

    WireHeader: TYPE = REF WireHeaderBody;
WireHeaderBody: TYPE = MACHINE DEPENDENT RECORD
[
magic: CARD16,
numSections: CARD16,
timeDate: INT32,
symPtr: INT32,
sizeSymHeader: INT32,
sizeOptHdr: CARD16,
flags: CARD16
];

WireAuxHeader: TYPE = REF WireAuxHeaderBody;
WireAuxHeaderBody: TYPE = MACHINE DEPENDENT RECORD
[
magic: INT16,
vStamp: INT16,
textSize: INT32,
dataSize: INT32,
bssSize: INT32,
entryPtr: INT32,
textBase: INT32,
dataBase: INT32,
bssBase: INT32,    -- SGI specific
cpuRegMask: INT32, -- SGI specific
fpuRegMask0: INT32, -- SGI specific
fpuRegMask1: INT32, -- SGI specific
fpuRegMask2: INT32, -- SGI specific
fpuRegMask3: INT32, -- SGI specific
globalPtr: INT32   -- SGI specific
];

WireSectionHeader: TYPE = REF WireSectionHeaderBody;
WireSectionHeaderBody: TYPE = MACHINE DEPENDENT RECORD
[
name: PACKED ARRAY [0..7] OF BYTE,
pAddr: INT32, -- also num shared libs
vAddr: INT32,
size: INT32,
dataPtr: INT32,
relocPtr: INT32,
<<With Mips lnnoptr actually points to the>>
<<global pointer table for this section>>
lnnoPtr: INT32,
numRelocEntries: CARD16,
<<With Mips numLnnoEntries actually contains>>
<<number of global pointer tables>>
numLnnoEntries: CARD16,
flags: INT32
];

WireSymHeader: TYPE = REF WireSymHeaderBody;
WireSymHeaderBody: TYPE = MACHINE DEPENDENT RECORD
[
magic: INT16,
verstamp: INT16,
lineNumIndexLimit: INT32,
numBytesPackedLineNums: INT32,
packedLineNumPtr: INT32,
denseNumIndexLimit: INT32,
denseNumPtr: INT32,
procDescrIndexLimit: INT32,
procDescrPtr: INT32,
symIndexLimit: INT32,
symPtr: INT32,
optSymIndexLimit: INT32,
optSymPtr: INT32,
auxSymIndexLimit: INT32,
auxSymPtr: INT32,
symStringIndexLimit: INT32,
symStringPtr: INT32,
extSymStringIndexLimit: INT32,
extSymStringPtr: INT32,
fileDescrIndexLimit: INT32,
fileDescrPtr: INT32,
numRelFileDescr: INT32,
relFileDescrPtr: INT32,
extSymIndexLimit: INT32,
extSymPtr: INT32
];

WirePackedLineNum: TYPE = REF WirePackedLineNumBody;
WirePackedLineNumBody: TYPE = RECORD
[PACKED SEQUENCE maxIndex: CARD OF BYTE];

WireProcDescriptor: TYPE = REF WireProcDescriptorBody;
WireProcDescriptorBody: TYPE = MACHINE DEPENDENT RECORD
[
startAddress: CARD32,
isym: INT32,
iline: INT32,
regmask: INT32,
regoffset: INT32,
iopt: INT32,
fregmask: INT32,
fregoffset: INT32,
frameoffset: INT32,
framereg: INT16,
pcreg: INT16,
lnLow: INT32,
lnHigh: INT32,
cbLineOffset: INT32
];

WireRelFileTable: TYPE = REF WireRelFileTableBody;
WireRelFileTableBody: TYPE = MACHINE DEPENDENT RECORD
[
index: INT32
];

WireFileDescriptor: TYPE = REF WireFileDescriptorBody;
WireFileDescriptorBody: TYPE = MACHINE DEPENDENT RECORD
[
startAddress: CARD32,
rss: INT32,
issBase: INT32,
cbSs: INT32,
isymBase: INT32,
csym: INT32,
ilineBase: INT32,
cline: INT32,
ioptBase: INT32,
copt: INT32,
-- unsigned short --         ipdFirst: CARD16,
cpd: INT16,
iauxBase: INT32,
caux: INT32,
rfdBase: INT32,
crfd: INT32,
-- unsigned --             language: [0..31],
fMerge: [0..1],
fReadin: [0..1],
fBigendian: [0..1],
glevel: [0..3],
reserved: [0..3FFFFFH],
cbLineOffset: INT32,
cbLine: INT32
];

WireSTEntry: TYPE = REF WireSTEntryBody;
WireSTEntryBody: TYPE = MACHINE DEPENDENT RECORD
[
symStringIndex: INT32,
value: CARD,
symbolType: [0..63],
storageClass: [0..31],
reserved: [0..1],
index: [0..0FFFFFH]
];

WireExtSTEntry: TYPE = REF WireExtSTEntryBody;
WireExtSTEntryBody: TYPE = MACHINE DEPENDENT RECORD
[
reserved: INT16,
fileDescrIndex: INT16,
sym: WireSTEntryBody
];

WireTypeInfo: TYPE = REF WireTypeInfoBody;
WireTypeInfoBody: TYPE = MACHINE DEPENDENT RECORD
[
fBitField(0:0..0):[0..1],
continued(0:1..1):[0..1],
basicType(0:2..7):[0..63],
typeQual4(0:8..11):[0..15],
typeQual5(0:12..15):[0..15],
typeQual0(0:16..19):[0..15],
typeQual1(0:20..23):[0..15],
typeQual2(0:24..27):[0..15],
typeQual3(0:28..31):[0..15]
];

WireRelIndex: TYPE = REF WireRelIndexBody;
WireRelIndexBody: TYPE = MACHINE DEPENDENT RECORD
[
relFileDescrIndex(0:0..11):[0..0FFFH],
index(0:12..31):[0..0FFFFFH]
];

WireAuxSTEntry: TYPE = REF WireAuxSTEntryBody;
WireAuxSTEntryBody: TYPE = MACHINE DEPENDENT RECORD
[
SELECT OVERLAID * FROM
a => [typeInfo: WireTypeInfoBody],
b => [relIndex: WireRelIndexBody],
c => [lowIndex: INT32],
d => [highIndex: INT32],
e => [symIndex: INT32],
f => [symStringIndex: INT32],
g => [bitWidth: INT32],
h => [count: INT32],
i  => [relFileIndex: INT32],
ENDCASE
];

SectionTable: TYPE = REF SectionTableBody;
SectionTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireSectionHeaderBody];

FileDescrTable: TYPE = REF FileDescrTableBody;
FileDescrTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireFileDescriptorBody];

RelFileTable: TYPE = REF RelFileTableBody;
RelFileTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireRelFileTableBody];

ProcDescrTable: TYPE = REF ProcDescrTableBody;
ProcDescrTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireProcDescriptorBody];

LocalSymTable: TYPE = REF LocalSymTableBody;
LocalSymTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireSTEntryBody];

IndexedLocalSymTable: TYPE = REF IndexedLocalSymTableBody;
IndexedLocalSymTableBody: TYPE = RECORD
[SEQUENCE COMPUTED CARD OF WireSTEntryBody];

ExtSymTable: TYPE = REF ExtSymTableBody;
ExtSymTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireExtSTEntryBody];

AuxSymTable: TYPE = REF AuxSymTableBody;
AuxSymTableBody: TYPE = RECORD
[SEQUENCE maxIndex: CARD OF WireAuxSTEntryBody];

IndexedAuxSymTable: TYPE = REF IndexedAuxSymTableBody;
IndexedAuxSymTableBody: TYPE = RECORD
[SEQUENCE COMPUTED CARD OF WireAuxSTEntryBody];

StringTable: TYPE = REF StringTableBody;
StringTableBody: TYPE = RECORD
[PACKED SEQUENCE maxIndex: CARD OF BYTE];

WireTables: TYPE = REF WireTablesBody;
WireTablesBody: TYPE = MACHINE DEPENDENT RECORD
[
wHeader: WireHeader,
wAuxHeader: WireAuxHeader,
wSymHeader: WireSymHeader,
fileDescr: FileDescrTable,
relFiles: RelFileTable,
procDescr: ProcDescrTable,
localSyms: LocalSymTable,
extSyms: ExtSymTable,
auxSyms: AuxSymTable,
fdIndex: INT32,
localStrings: StringTable,
extStrings: StringTable,
pcToLineNum: ObjectFilesPrivate.PCtoLineNumMap,
lineNumToPC: ObjectFilesPrivate.LineNumToPCMap
];

STNil: BYTE = 0;        -- dummy entry
STGlobal: BYTE = 1;        -- Global (i.e. external) symbol
STStatic: BYTE = 2;        -- static
STParam: BYTE = 3;        -- procedure argument
STLocal: BYTE = 4;        -- local variable
STLabel: BYTE = 5;        -- label
STProc: BYTE = 6;        -- begining of procedure
STBlock: BYTE = 7;        -- beginning of block
STEnd: BYTE = 8;        -- end (of anything)
STMember: BYTE = 9;        -- member (of anything - struct/union/enum)
STTypeDef: BYTE = 10;        -- type definition
STFile: BYTE = 11;        -- file name
STRegReloc: BYTE = 12;    -- register relocation
STForward: BYTE = 13;        -- forwarding address
STStaticProc: BYTE = 14;    -- load time only static procs
STConstant: BYTE = 15;    -- const
STStaParam: BYTE = 16;    -- Fortran static parameters
STStruct: BYTE = 26;              -- sgi only: begin Struct kind of stBlock
STUnion: BYTE = 27;        -- sgi only: begin Union kind of stBlock
STEnum: BYTE = 28;        -- sgi only: begin Enum  kind of stBlock
STMax: BYTE = 64;

TQNil: BYTE = 0;        -- bt is what you see ... i.e. no qualifier
TQPtr: BYTE = 1;        -- pointer
TQProc: BYTE = 2;        -- procedure
TQArray: BYTE = 3;        -- duh
TQFar: BYTE = 4;        -- longer addressing - 8086/8 land
TQVol: BYTE = 5;        -- volatile
TQMax: BYTE = 8;

BTNil: BYTE = 0;        -- undefined
BTAdr: BYTE = 1;        -- address - integer same size as pointer
BTChar: BYTE = 2;        -- character
BTUchar: BYTE = 3;        -- unsigned character
BTShort: BYTE = 4;        -- short
BTUshort: BYTE = 5;        -- unsigned short
BTInt: BYTE = 6;        -- int
BTUint: BYTE = 7;        -- unsigned int
BTLong: BYTE = 8;        -- long
BTUlong: BYTE = 9;        -- unsigned long
BTFloat: BYTE = 10;        -- float (real)
BTDouble: BYTE = 11;        -- Double (real)
BTStruct: BYTE = 12;        -- Structure (Record)
BTUnion: BYTE = 13;        -- Union (variant)
BTEnum: BYTE = 14;        -- Enumerated
BTTypedef: BYTE = 15;        -- defined via a typedef, isymRef points
BTRange: BYTE = 16;        -- subrange of int
BTSet: BYTE = 17;        -- pascal sets
BTComplex: BYTE = 18;        -- fortran complex
BTDcomplex: BYTE = 19;    -- fortran double complex
BTIndirect: BYTE = 20;    -- forward or unnamed typedef
BTFixeddec: BYTE = 21;    -- Fixed Decimal
BTFloatdec: BYTE = 22;    -- Float Decimal
BTString: BYTE = 23;        -- Varying Length Character String
BTBit: BYTE = 24;        -- Aligned Bit String
BTPicture: BYTE = 25;        -- Picture
BTVoid: BYTE = 26;        -- void
BTMax: BYTE = 64;

SCNIL: BYTE = 0;        -- dummy entry
SCTEXT: BYTE = 1;    -- text symbol
SCDATA: BYTE = 2;    -- initialized data symbol
SCBSS: BYTE = 3;        -- un-initialized data symbol
SCREGISTER: BYTE = 4;    -- value of symbol is register number
SCABS: BYTE = 5;    -- symbol vlaue is absolute; not to be relocated
SCUNDEFINED: BYTE = 6;    -- used but not defined in the current module
SCBITS: BYTE = 8;    -- this is a bit field
SCDBX: BYTE = 9;    -- dbx internal use
SCREGIMAGE: BYTE = 10;    -- register value saved on stack
SCINFO: BYTE = 11;    -- symbol contains debug information
SCUSERSTRUCT: BYTE = 12;    -- address in struct for current process
SCSDATA: BYTE = 13;    -- small data
SCSBSS: BYTE = 14;    -- small common
SCRDATA: BYTE = 15;    -- read only data
SCVAR: BYTE = 16;    -- var parameter
SCCOMMON: BYTE = 17;    -- common variable
SCSCOMMON: BYTE = 18;    -- small common variable
SCVARREGISTER: BYTE = 19;    -- var parameter in register
SCVARIANT: BYTE = 20;    -- variant record
SCUNDEFINE: BYTE = 21;    -- small undefined

    IsSameEndianSGI: PROC[stream:IO.STREAM] RETURNS[BOOLEAN];

CalcSymbolSize: PROC [symTabIndex: CARD, fdIndex: INT32, wireTables: WireTables, isExternal: BOOLEAN] RETURNS [CARD];

UnPackLineNumbers: PROC[stream: IO.STREAM, module: ObjectFiles.Module, wireTables: WireTables];

FindMatchingProcDescr: PROC [CARD, ObjectFiles.Parsed] RETURNS [WireProcDescriptorBody, BOOLEAN];

    END..