| 1 | /* Declarations of internal format of MIPS ECOFF symbols.
|
|---|
| 2 | Originally contributed by MIPS Computer Systems and Third Eye Software.
|
|---|
| 3 | Changes contributed by Cygnus Support are in the public domain.
|
|---|
| 4 |
|
|---|
| 5 | This file is just aggregated with the files that make up the GNU
|
|---|
| 6 | release; it is not considered part of GAS, GDB, or other GNU
|
|---|
| 7 | programs. */
|
|---|
| 8 |
|
|---|
| 9 | /*
|
|---|
| 10 | * |-----------------------------------------------------------|
|
|---|
| 11 | * | Copyright (c) 1992, 1991, 1990 MIPS Computer Systems, Inc.|
|
|---|
| 12 | * | MIPS Computer Systems, Inc. grants reproduction and use |
|
|---|
| 13 | * | rights to all parties, PROVIDED that this comment is |
|
|---|
| 14 | * | maintained in the copy. |
|
|---|
| 15 | * |-----------------------------------------------------------|
|
|---|
| 16 | */
|
|---|
| 17 | #ifndef _SYM_H
|
|---|
| 18 | #define _SYM_H
|
|---|
| 19 |
|
|---|
| 20 | /* (C) Copyright 1984 by Third Eye Software, Inc.
|
|---|
| 21 | *
|
|---|
| 22 | * Third Eye Software, Inc. grants reproduction and use rights to
|
|---|
| 23 | * all parties, PROVIDED that this comment is maintained in the copy.
|
|---|
| 24 | *
|
|---|
| 25 | * Third Eye makes no claims about the applicability of this
|
|---|
| 26 | * symbol table to a particular use.
|
|---|
| 27 | */
|
|---|
| 28 |
|
|---|
| 29 | /*
|
|---|
| 30 | * This file contains the definition of the Third Eye Symbol Table.
|
|---|
| 31 | *
|
|---|
| 32 | * Symbols are assumed to be in 'encounter order' - i.e. the order that
|
|---|
| 33 | * the things they represent were encountered by the compiler/assembler/loader.
|
|---|
| 34 | * EXCEPT for globals! These are assumed to be bunched together,
|
|---|
| 35 | * probably right after the last 'normal' symbol. Globals ARE sorted
|
|---|
| 36 | * in ascending order.
|
|---|
| 37 | *
|
|---|
| 38 | * -----------------------------------------------------------------------
|
|---|
| 39 | * A brief word about Third Eye naming/use conventions:
|
|---|
| 40 | *
|
|---|
| 41 | * All arrays and index's are 0 based.
|
|---|
| 42 | * All "ifooMax" values are the highest legal value PLUS ONE. This makes
|
|---|
| 43 | * them good for allocating arrays, etc. All checks are "ifoo < ifooMax".
|
|---|
| 44 | *
|
|---|
| 45 | * "isym" Index into the SYMbol table.
|
|---|
| 46 | * "ipd" Index into the Procedure Descriptor array.
|
|---|
| 47 | * "ifd" Index into the File Descriptor array.
|
|---|
| 48 | * "iss" Index into String Space.
|
|---|
| 49 | * "cb" Count of Bytes.
|
|---|
| 50 | * "rgPd" array whose domain is "0..ipdMax-1" and RanGe is PDR.
|
|---|
| 51 | * "rgFd" array whose domain is "0..ifdMax-1" and RanGe is FDR.
|
|---|
| 52 | */
|
|---|
| 53 |
|
|---|
| 54 |
|
|---|
| 55 | /*
|
|---|
| 56 | * Symbolic Header (HDR) structure.
|
|---|
| 57 | * As long as all the pointers are set correctly,
|
|---|
| 58 | * we don't care WHAT order the various sections come out in!
|
|---|
| 59 | *
|
|---|
| 60 | * A file produced solely for the use of CDB will probably NOT have
|
|---|
| 61 | * any instructions or data areas in it, as these are available
|
|---|
| 62 | * in the original.
|
|---|
| 63 | */
|
|---|
| 64 |
|
|---|
| 65 | typedef struct {
|
|---|
| 66 | short magic; /* to verify validity of the table */
|
|---|
| 67 | short vstamp; /* version stamp */
|
|---|
| 68 | long ilineMax; /* number of line number entries */
|
|---|
| 69 | bfd_vma cbLine; /* number of bytes for line number entries */
|
|---|
| 70 | bfd_vma cbLineOffset; /* offset to start of line number entries*/
|
|---|
| 71 | long idnMax; /* max index into dense number table */
|
|---|
| 72 | bfd_vma cbDnOffset; /* offset to start dense number table */
|
|---|
| 73 | long ipdMax; /* number of procedures */
|
|---|
| 74 | bfd_vma cbPdOffset; /* offset to procedure descriptor table */
|
|---|
| 75 | long isymMax; /* number of local symbols */
|
|---|
| 76 | bfd_vma cbSymOffset; /* offset to start of local symbols*/
|
|---|
| 77 | long ioptMax; /* max index into optimization symbol entries */
|
|---|
| 78 | bfd_vma cbOptOffset; /* offset to optimization symbol entries */
|
|---|
| 79 | long iauxMax; /* number of auxillary symbol entries */
|
|---|
| 80 | bfd_vma cbAuxOffset; /* offset to start of auxillary symbol entries*/
|
|---|
| 81 | long issMax; /* max index into local strings */
|
|---|
| 82 | bfd_vma cbSsOffset; /* offset to start of local strings */
|
|---|
| 83 | long issExtMax; /* max index into external strings */
|
|---|
| 84 | bfd_vma cbSsExtOffset; /* offset to start of external strings */
|
|---|
| 85 | long ifdMax; /* number of file descriptor entries */
|
|---|
| 86 | bfd_vma cbFdOffset; /* offset to file descriptor table */
|
|---|
| 87 | long crfd; /* number of relative file descriptor entries */
|
|---|
| 88 | bfd_vma cbRfdOffset; /* offset to relative file descriptor table */
|
|---|
| 89 | long iextMax; /* max index into external symbols */
|
|---|
| 90 | bfd_vma cbExtOffset; /* offset to start of external symbol entries*/
|
|---|
| 91 | /* If you add machine dependent fields, add them here */
|
|---|
| 92 | } HDRR, *pHDRR;
|
|---|
| 93 | #define cbHDRR sizeof(HDRR)
|
|---|
| 94 | #define hdrNil ((pHDRR)0)
|
|---|
| 95 |
|
|---|
| 96 | /*
|
|---|
| 97 | * The FDR and PDR structures speed mapping of address <-> name.
|
|---|
| 98 | * They are sorted in ascending memory order and are kept in
|
|---|
| 99 | * memory by CDB at runtime.
|
|---|
| 100 | */
|
|---|
| 101 |
|
|---|
| 102 | /*
|
|---|
| 103 | * File Descriptor
|
|---|
| 104 | *
|
|---|
| 105 | * There is one of these for EVERY FILE, whether compiled with
|
|---|
| 106 | * full debugging symbols or not. The name of a file should be
|
|---|
| 107 | * the path name given to the compiler. This allows the user
|
|---|
| 108 | * to simply specify the names of the directories where the COMPILES
|
|---|
| 109 | * were done, and we will be able to find their files.
|
|---|
| 110 | * A field whose comment starts with "R - " indicates that it will be
|
|---|
| 111 | * setup at runtime.
|
|---|
| 112 | */
|
|---|
| 113 | typedef struct fdr {
|
|---|
| 114 | bfd_vma adr; /* memory address of beginning of file */
|
|---|
| 115 | long rss; /* file name (of source, if known) */
|
|---|
| 116 | long issBase; /* file's string space */
|
|---|
| 117 | bfd_vma cbSs; /* number of bytes in the ss */
|
|---|
| 118 | long isymBase; /* beginning of symbols */
|
|---|
| 119 | long csym; /* count file's of symbols */
|
|---|
| 120 | long ilineBase; /* file's line symbols */
|
|---|
| 121 | long cline; /* count of file's line symbols */
|
|---|
| 122 | long ioptBase; /* file's optimization entries */
|
|---|
| 123 | long copt; /* count of file's optimization entries */
|
|---|
| 124 | unsigned short ipdFirst;/* start of procedures for this file */
|
|---|
| 125 | short cpd; /* count of procedures for this file */
|
|---|
| 126 | long iauxBase; /* file's auxiliary entries */
|
|---|
| 127 | long caux; /* count of file's auxiliary entries */
|
|---|
| 128 | long rfdBase; /* index into the file indirect table */
|
|---|
| 129 | long crfd; /* count file indirect entries */
|
|---|
| 130 | unsigned lang: 5; /* language for this file */
|
|---|
| 131 | unsigned fMerge : 1; /* whether this file can be merged */
|
|---|
| 132 | unsigned fReadin : 1; /* true if it was read in (not just created) */
|
|---|
| 133 | unsigned fBigendian : 1;/* if set, was compiled on big endian machine */
|
|---|
| 134 | /* aux's will be in compile host's sex */
|
|---|
| 135 | unsigned glevel : 2; /* level this file was compiled with */
|
|---|
| 136 | unsigned reserved : 22; /* reserved for future use */
|
|---|
| 137 | bfd_vma cbLineOffset; /* byte offset from header for this file ln's */
|
|---|
| 138 | bfd_vma cbLine; /* size of lines for this file */
|
|---|
| 139 | } FDR, *pFDR;
|
|---|
| 140 | #define cbFDR sizeof(FDR)
|
|---|
| 141 | #define fdNil ((pFDR)0)
|
|---|
| 142 | #define ifdNil -1
|
|---|
| 143 | #define ifdTemp 0
|
|---|
| 144 | #define ilnNil -1
|
|---|
| 145 |
|
|---|
| 146 |
|
|---|
| 147 | /*
|
|---|
| 148 | * Procedure Descriptor
|
|---|
| 149 | *
|
|---|
| 150 | * There is one of these for EVERY TEXT LABEL.
|
|---|
| 151 | * If a procedure is in a file with full symbols, then isym
|
|---|
| 152 | * will point to the PROC symbols, else it will point to the
|
|---|
| 153 | * global symbol for the label.
|
|---|
| 154 | */
|
|---|
| 155 |
|
|---|
| 156 | typedef struct pdr {
|
|---|
| 157 | bfd_vma adr; /* memory address of start of procedure */
|
|---|
| 158 | long isym; /* start of local symbol entries */
|
|---|
| 159 | long iline; /* start of line number entries*/
|
|---|
| 160 | long regmask; /* save register mask */
|
|---|
| 161 | long regoffset; /* save register offset */
|
|---|
| 162 | long iopt; /* start of optimization symbol entries*/
|
|---|
| 163 | long fregmask; /* save floating point register mask */
|
|---|
| 164 | long fregoffset; /* save floating point register offset */
|
|---|
| 165 | long frameoffset; /* frame size */
|
|---|
| 166 | short framereg; /* frame pointer register */
|
|---|
| 167 | short pcreg; /* offset or reg of return pc */
|
|---|
| 168 | long lnLow; /* lowest line in the procedure */
|
|---|
| 169 | long lnHigh; /* highest line in the procedure */
|
|---|
| 170 | bfd_vma cbLineOffset; /* byte offset for this procedure from the fd base */
|
|---|
| 171 | /* These fields are new for 64 bit ECOFF. */
|
|---|
| 172 | unsigned gp_prologue : 8; /* byte size of GP prologue */
|
|---|
| 173 | unsigned gp_used : 1; /* true if the procedure uses GP */
|
|---|
| 174 | unsigned reg_frame : 1; /* true if register frame procedure */
|
|---|
| 175 | unsigned prof : 1; /* true if compiled with -pg */
|
|---|
| 176 | unsigned reserved : 13; /* reserved: must be zero */
|
|---|
| 177 | unsigned localoff : 8; /* offset of local variables from vfp */
|
|---|
| 178 | } PDR, *pPDR;
|
|---|
| 179 | #define cbPDR sizeof(PDR)
|
|---|
| 180 | #define pdNil ((pPDR) 0)
|
|---|
| 181 | #define ipdNil -1
|
|---|
| 182 |
|
|---|
| 183 | /*
|
|---|
| 184 | * The structure of the runtime procedure descriptor created by the loader
|
|---|
| 185 | * for use by the static exception system.
|
|---|
| 186 | */
|
|---|
| 187 | /*
|
|---|
| 188 | * If 0'd out because exception_info chokes Visual C++ and because there
|
|---|
| 189 | * don't seem to be any references to this structure elsewhere in gdb.
|
|---|
| 190 | */
|
|---|
| 191 | #if 0
|
|---|
| 192 | typedef struct runtime_pdr {
|
|---|
| 193 | bfd_vma adr; /* memory address of start of procedure */
|
|---|
| 194 | long regmask; /* save register mask */
|
|---|
| 195 | long regoffset; /* save register offset */
|
|---|
| 196 | long fregmask; /* save floating point register mask */
|
|---|
| 197 | long fregoffset; /* save floating point register offset */
|
|---|
| 198 | long frameoffset; /* frame size */
|
|---|
| 199 | short framereg; /* frame pointer register */
|
|---|
| 200 | short pcreg; /* offset or reg of return pc */
|
|---|
| 201 | long irpss; /* index into the runtime string table */
|
|---|
| 202 | long reserved;
|
|---|
| 203 | struct exception_info *exception_info;/* pointer to exception array */
|
|---|
| 204 | } RPDR, *pRPDR;
|
|---|
| 205 | #define cbRPDR sizeof(RPDR)
|
|---|
| 206 | #define rpdNil ((pRPDR) 0)
|
|---|
| 207 | #endif
|
|---|
| 208 |
|
|---|
| 209 | /*
|
|---|
| 210 | * Line Numbers
|
|---|
| 211 | *
|
|---|
| 212 | * Line Numbers are segregated from the normal symbols because they
|
|---|
| 213 | * are [1] smaller , [2] are of no interest to your
|
|---|
| 214 | * average loader, and [3] are never needed in the middle of normal
|
|---|
| 215 | * scanning and therefore slow things down.
|
|---|
| 216 | *
|
|---|
| 217 | * By definition, the first LINER for any given procedure will have
|
|---|
| 218 | * the first line of a procedure and represent the first address.
|
|---|
| 219 | */
|
|---|
| 220 |
|
|---|
| 221 | typedef long LINER, *pLINER;
|
|---|
| 222 | #define lineNil ((pLINER)0)
|
|---|
| 223 | #define cbLINER sizeof(LINER)
|
|---|
| 224 | #define ilineNil -1
|
|---|
| 225 |
|
|---|
| 226 |
|
|---|
| 227 |
|
|---|
| 228 | /*
|
|---|
| 229 | * The Symbol Structure (GFW, to those who Know!)
|
|---|
| 230 | */
|
|---|
| 231 |
|
|---|
| 232 | typedef struct {
|
|---|
| 233 | long iss; /* index into String Space of name */
|
|---|
| 234 | bfd_vma value; /* value of symbol */
|
|---|
| 235 | unsigned st : 6; /* symbol type */
|
|---|
| 236 | unsigned sc : 5; /* storage class - text, data, etc */
|
|---|
| 237 | unsigned reserved : 1; /* reserved */
|
|---|
| 238 | unsigned index : 20; /* index into sym/aux table */
|
|---|
| 239 | } SYMR, *pSYMR;
|
|---|
| 240 | #define symNil ((pSYMR)0)
|
|---|
| 241 | #define cbSYMR sizeof(SYMR)
|
|---|
| 242 | #define isymNil -1
|
|---|
| 243 | #define indexNil 0xfffff
|
|---|
| 244 | #define issNil -1
|
|---|
| 245 | #define issNull 0
|
|---|
| 246 |
|
|---|
| 247 |
|
|---|
| 248 | /* The following converts a memory resident string to an iss.
|
|---|
| 249 | * This hack is recognized in SbFIss, in sym.c of the debugger.
|
|---|
| 250 | */
|
|---|
| 251 | #define IssFSb(sb) (0x80000000 | ((unsigned long)(sb)))
|
|---|
| 252 |
|
|---|
| 253 | /* E X T E R N A L S Y M B O L R E C O R D
|
|---|
| 254 | *
|
|---|
| 255 | * Same as the SYMR except it contains file context to determine where
|
|---|
| 256 | * the index is.
|
|---|
| 257 | */
|
|---|
| 258 | typedef struct ecoff_extr {
|
|---|
| 259 | unsigned jmptbl:1; /* symbol is a jump table entry for shlibs */
|
|---|
| 260 | unsigned cobol_main:1; /* symbol is a cobol main procedure */
|
|---|
| 261 | unsigned weakext:1; /* symbol is weak external */
|
|---|
| 262 | unsigned reserved:13; /* reserved for future use */
|
|---|
| 263 | int ifd; /* where the iss and index fields point into */
|
|---|
| 264 | SYMR asym; /* symbol for the external */
|
|---|
| 265 | } EXTR, *pEXTR;
|
|---|
| 266 | #define extNil ((pEXTR)0)
|
|---|
| 267 | #define cbEXTR sizeof(EXTR)
|
|---|
| 268 |
|
|---|
| 269 |
|
|---|
| 270 | /* A U X I L L A R Y T Y P E I N F O R M A T I O N */
|
|---|
| 271 |
|
|---|
| 272 | /*
|
|---|
| 273 | * Type Information Record
|
|---|
| 274 | */
|
|---|
| 275 | typedef struct {
|
|---|
| 276 | unsigned fBitfield : 1; /* set if bit width is specified */
|
|---|
| 277 | unsigned continued : 1; /* indicates additional TQ info in next AUX */
|
|---|
| 278 | unsigned bt : 6; /* basic type */
|
|---|
| 279 | unsigned tq4 : 4;
|
|---|
| 280 | unsigned tq5 : 4;
|
|---|
| 281 | /* ---- 16 bit boundary ---- */
|
|---|
| 282 | unsigned tq0 : 4;
|
|---|
| 283 | unsigned tq1 : 4; /* 6 type qualifiers - tqPtr, etc. */
|
|---|
| 284 | unsigned tq2 : 4;
|
|---|
| 285 | unsigned tq3 : 4;
|
|---|
| 286 | } TIR, *pTIR;
|
|---|
| 287 | #define cbTIR sizeof(TIR)
|
|---|
| 288 | #define tiNil ((pTIR)0)
|
|---|
| 289 | #define itqMax 6
|
|---|
| 290 |
|
|---|
| 291 | /*
|
|---|
| 292 | * Relative symbol record
|
|---|
| 293 | *
|
|---|
| 294 | * If the rfd field is 4095, the index field indexes into the global symbol
|
|---|
| 295 | * table.
|
|---|
| 296 | */
|
|---|
| 297 |
|
|---|
| 298 | typedef struct {
|
|---|
| 299 | unsigned rfd : 12; /* index into the file indirect table */
|
|---|
| 300 | unsigned index : 20; /* index int sym/aux/iss tables */
|
|---|
| 301 | } RNDXR, *pRNDXR;
|
|---|
| 302 | #define cbRNDXR sizeof(RNDXR)
|
|---|
| 303 | #define rndxNil ((pRNDXR)0)
|
|---|
| 304 |
|
|---|
| 305 | /* dense numbers or sometimes called block numbers are stored in this type,
|
|---|
| 306 | * a rfd of 0xffffffff is an index into the global table.
|
|---|
| 307 | */
|
|---|
| 308 | typedef struct {
|
|---|
| 309 | unsigned long rfd; /* index into the file table */
|
|---|
| 310 | unsigned long index; /* index int sym/aux/iss tables */
|
|---|
| 311 | } DNR, *pDNR;
|
|---|
| 312 | #define cbDNR sizeof(DNR)
|
|---|
| 313 | #define dnNil ((pDNR)0)
|
|---|
| 314 |
|
|---|
| 315 |
|
|---|
| 316 |
|
|---|
| 317 | /*
|
|---|
| 318 | * Auxillary information occurs only if needed.
|
|---|
| 319 | * It ALWAYS occurs in this order when present.
|
|---|
| 320 |
|
|---|
| 321 | isymMac used by stProc only
|
|---|
| 322 | TIR type info
|
|---|
| 323 | TIR additional TQ info (if first TIR was not enough)
|
|---|
| 324 | rndx if (bt == btStruct,btUnion,btEnum,btSet,btRange,
|
|---|
| 325 | btTypedef):
|
|---|
| 326 | rsym.index == iaux for btSet or btRange
|
|---|
| 327 | else rsym.index == isym
|
|---|
| 328 | dimLow btRange, btSet
|
|---|
| 329 | dimMac btRange, btSet
|
|---|
| 330 | rndx0 As many as there are tq arrays
|
|---|
| 331 | dimLow0
|
|---|
| 332 | dimHigh0
|
|---|
| 333 | ...
|
|---|
| 334 | rndxMax-1
|
|---|
| 335 | dimLowMax-1
|
|---|
| 336 | dimHighMax-1
|
|---|
| 337 | width in bits if (bit field), width in bits.
|
|---|
| 338 | */
|
|---|
| 339 | #define cAuxMax (6 + (idimMax*3))
|
|---|
| 340 |
|
|---|
| 341 | /* a union of all possible info in the AUX universe */
|
|---|
| 342 | typedef union {
|
|---|
| 343 | TIR ti; /* type information record */
|
|---|
| 344 | RNDXR rndx; /* relative index into symbol table */
|
|---|
| 345 | long dnLow; /* low dimension */
|
|---|
| 346 | long dnHigh; /* high dimension */
|
|---|
| 347 | long isym; /* symbol table index (end of proc) */
|
|---|
| 348 | long iss; /* index into string space (not used) */
|
|---|
| 349 | long width; /* width for non-default sized struc fields */
|
|---|
| 350 | long count; /* count of ranges for variant arm */
|
|---|
| 351 | } AUXU, *pAUXU;
|
|---|
| 352 | #define cbAUXU sizeof(AUXU)
|
|---|
| 353 | #define auxNil ((pAUXU)0)
|
|---|
| 354 | #define iauxNil -1
|
|---|
| 355 |
|
|---|
| 356 |
|
|---|
| 357 | /*
|
|---|
| 358 | * Optimization symbols
|
|---|
| 359 | *
|
|---|
| 360 | * Optimization symbols contain some overlap information with the normal
|
|---|
| 361 | * symbol table. In particular, the proc information
|
|---|
| 362 | * is somewhat redundant but necessary to easily find the other information
|
|---|
| 363 | * present.
|
|---|
| 364 | *
|
|---|
| 365 | * All of the offsets are relative to the beginning of the last otProc
|
|---|
| 366 | */
|
|---|
| 367 |
|
|---|
| 368 | typedef struct {
|
|---|
| 369 | unsigned ot: 8; /* optimization type */
|
|---|
| 370 | unsigned value: 24; /* address where we are moving it to */
|
|---|
| 371 | RNDXR rndx; /* points to a symbol or opt entry */
|
|---|
| 372 | unsigned long offset; /* relative offset this occured */
|
|---|
| 373 | } OPTR, *pOPTR;
|
|---|
| 374 | #define optNil ((pOPTR) 0)
|
|---|
| 375 | #define cbOPTR sizeof(OPTR)
|
|---|
| 376 | #define ioptNil -1
|
|---|
| 377 |
|
|---|
| 378 | /*
|
|---|
| 379 | * File Indirect
|
|---|
| 380 | *
|
|---|
| 381 | * When a symbol is referenced across files the following procedure is used:
|
|---|
| 382 | * 1) use the file index to get the File indirect entry.
|
|---|
| 383 | * 2) use the file indirect entry to get the File descriptor.
|
|---|
| 384 | * 3) add the sym index to the base of that file's sym table
|
|---|
| 385 | *
|
|---|
| 386 | */
|
|---|
| 387 |
|
|---|
| 388 | typedef long RFDT, *pRFDT;
|
|---|
| 389 | #define cbRFDT sizeof(RFDT)
|
|---|
| 390 | #define rfdNil -1
|
|---|
| 391 |
|
|---|
| 392 | /*
|
|---|
| 393 | * The file indirect table in the mips loader is known as an array of FITs.
|
|---|
| 394 | * This is done to keep the code in the loader readable in the area where
|
|---|
| 395 | * these tables are merged. Note this is only a name change.
|
|---|
| 396 | */
|
|---|
| 397 | typedef long FIT, *pFIT;
|
|---|
| 398 | #define cbFIT sizeof(FIT)
|
|---|
| 399 | #define ifiNil -1
|
|---|
| 400 | #define fiNil ((pFIT) 0)
|
|---|
| 401 |
|
|---|
| 402 | #ifdef _LANGUAGE_PASCAL
|
|---|
| 403 | #define ifdNil -1
|
|---|
| 404 | #define ilnNil -1
|
|---|
| 405 | #define ipdNil -1
|
|---|
| 406 | #define ilineNil -1
|
|---|
| 407 | #define isymNil -1
|
|---|
| 408 | #define indexNil 16#fffff
|
|---|
| 409 | #define issNil -1
|
|---|
| 410 | #define issNull 0
|
|---|
| 411 | #define itqMax 6
|
|---|
| 412 | #define iauxNil -1
|
|---|
| 413 | #define ioptNil -1
|
|---|
| 414 | #define rfdNil -1
|
|---|
| 415 | #define ifiNil -1
|
|---|
| 416 | #endif /* _LANGUAGE_PASCAL */
|
|---|
| 417 |
|
|---|
| 418 |
|
|---|
| 419 | /* Dense numbers
|
|---|
| 420 | *
|
|---|
| 421 | * Rather than use file index, symbol index pairs to represent symbols
|
|---|
| 422 | * and globals, we use dense number so that they can be easily embeded
|
|---|
| 423 | * in intermediate code and the programs that process them can
|
|---|
| 424 | * use direct access tabls instead of hash table (which would be
|
|---|
| 425 | * necesary otherwise because of the sparse name space caused by
|
|---|
| 426 | * file index, symbol index pairs. Dense number are represented
|
|---|
| 427 | * by RNDXRs.
|
|---|
| 428 | */
|
|---|
| 429 |
|
|---|
| 430 | /*
|
|---|
| 431 | * The following table defines the meaning of each SYM field as
|
|---|
| 432 | * a function of the "st". (scD/B == scData OR scBss)
|
|---|
| 433 | *
|
|---|
| 434 | * Note: the value "isymMac" is used by symbols that have the concept
|
|---|
| 435 | * of enclosing a block of related information. This value is the
|
|---|
| 436 | * isym of the first symbol AFTER the end associated with the primary
|
|---|
| 437 | * symbol. For example if a procedure was at isym==90 and had an
|
|---|
| 438 | * isymMac==155, the associated end would be at isym==154, and the
|
|---|
| 439 | * symbol at 155 would probably (although not necessarily) be the
|
|---|
| 440 | * symbol for the next procedure. This allows rapid skipping over
|
|---|
| 441 | * internal information of various sorts. "stEnd"s ALWAYS have the
|
|---|
| 442 | * isym of the primary symbol that started the block.
|
|---|
| 443 | *
|
|---|
| 444 |
|
|---|
| 445 | ST SC VALUE INDEX
|
|---|
| 446 | -------- ------ -------- ------
|
|---|
| 447 | stFile scText address isymMac
|
|---|
| 448 | stLabel scText address ---
|
|---|
| 449 | stGlobal scD/B address iaux
|
|---|
| 450 | stStatic scD/B address iaux
|
|---|
| 451 | stParam scAbs offset iaux
|
|---|
| 452 | stLocal scAbs offset iaux
|
|---|
| 453 | stProc scText address iaux (isymMac is first AUX)
|
|---|
| 454 | stStaticProc scText address iaux (isymMac is first AUX)
|
|---|
| 455 |
|
|---|
| 456 | stMember scNil ordinal --- (if member of enum)
|
|---|
| 457 | (mipsread thinks the case below has a bit, not byte, offset.)
|
|---|
| 458 | stMember scNil byte offset iaux (if member of struct/union)
|
|---|
| 459 | stMember scBits bit offset iaux (bit field spec)
|
|---|
| 460 |
|
|---|
| 461 | stBlock scText address isymMac (text block)
|
|---|
| 462 | (the code seems to think that rather than scNil, we see scInfo for
|
|---|
| 463 | the two cases below.)
|
|---|
| 464 | stBlock scNil cb isymMac (struct/union member define)
|
|---|
| 465 | stBlock scNil cMembers isymMac (enum member define)
|
|---|
| 466 |
|
|---|
| 467 | (New types added by SGI to simplify things:)
|
|---|
| 468 | stStruct scInfo cb isymMac (struct type define)
|
|---|
| 469 | stUnion scInfo cb isymMac (union type define)
|
|---|
| 470 | stEnum scInfo cMembers isymMac (enum type define)
|
|---|
| 471 |
|
|---|
| 472 | stEnd scText address isymStart
|
|---|
| 473 | stEnd scNil ------- isymStart (struct/union/enum)
|
|---|
| 474 |
|
|---|
| 475 | stTypedef scNil ------- iaux
|
|---|
| 476 | stRegReloc sc??? value old register number
|
|---|
| 477 | stForward sc??? new address isym to original symbol
|
|---|
| 478 |
|
|---|
| 479 | stConstant scInfo value --- (scalar)
|
|---|
| 480 | stConstant scInfo iss --- (complex, e.g. string)
|
|---|
| 481 |
|
|---|
| 482 | *
|
|---|
| 483 | */
|
|---|
| 484 | #endif
|
|---|
