1 /* Read and manage MIPS symbol tables from object modules.
2 Copyright (C) 1991, 1994, 1995, 1997, 1998, 1999, 2000, 2001
3 Free Software Foundation, Inc.
4 Contributed by hartzell@boulder.colorado.edu,
5 Rewritten by meissner@osf.org.
7 This file is part of GCC.
9 GCC is free software; you can redistribute it and/or modify it under
10 the terms of the GNU General Public License as published by the Free
11 Software Foundation; either version 2, or (at your option) any later
14 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
15 WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19 You should have received a copy of the GNU General Public License
20 along with GCC; see the file COPYING. If not, write to the Free
21 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
26 #include "coretypes.h"
34 #include "mips/a.out.h"
35 #endif /* CROSS_COMPILE */
38 /* Macros for mips-tfile.c to encapsulate stabs in ECOFF, and for
39 and mips-tdump.c to print them out. This is used on the Alpha,
40 which does not include mips.h.
42 These must match the corresponding definitions in gdb/mipsread.c.
43 Unfortunately, gcc and gdb do not currently share any directories. */
45 #define CODE_MASK 0x8F300
46 #define MIPS_IS_STAB(sym) (((sym)->index & 0xFFF00) == CODE_MASK)
47 #define MIPS_MARK_STAB(code) ((code)+CODE_MASK)
48 #define MIPS_UNMARK_STAB(code) ((code)-CODE_MASK)
51 #define uchar unsigned char
52 #define ushort unsigned short
53 #define uint unsigned int
54 #define ulong unsigned long
57 /* Redefinition of storage classes as an enumeration for better
61 #define stStaParam 16 /* Fortran static parameters */
65 #define btVoid 26 /* void basic type */
69 sc_Nil = scNil, /* no storage class */
70 sc_Text = scText, /* text symbol */
71 sc_Data = scData, /* initialized data symbol */
72 sc_Bss = scBss, /* un-initialized data symbol */
73 sc_Register = scRegister, /* value of symbol is register number */
74 sc_Abs = scAbs, /* value of symbol is absolute */
75 sc_Undefined = scUndefined, /* who knows? */
76 sc_CdbLocal = scCdbLocal, /* variable's value is IN se->va.?? */
77 sc_Bits = scBits, /* this is a bit field */
78 sc_CdbSystem = scCdbSystem, /* var's value is IN CDB's address space */
79 sc_RegImage = scRegImage, /* register value saved on stack */
80 sc_Info = scInfo, /* symbol contains debugger information */
81 sc_UserStruct = scUserStruct, /* addr in struct user for current process */
82 sc_SData = scSData, /* load time only small data */
83 sc_SBss = scSBss, /* load time only small common */
84 sc_RData = scRData, /* load time only read only data */
85 sc_Var = scVar, /* Var parameter (fortran,pascal) */
86 sc_Common = scCommon, /* common variable */
87 sc_SCommon = scSCommon, /* small common */
88 sc_VarRegister = scVarRegister, /* Var parameter in a register */
89 sc_Variant = scVariant, /* Variant record */
90 sc_SUndefined = scSUndefined, /* small undefined(external) data */
91 sc_Init = scInit, /* .init section symbol */
92 sc_Max = scMax /* Max storage class+1 */
95 /* Redefinition of symbol type. */
98 st_Nil = stNil, /* Nuthin' special */
99 st_Global = stGlobal, /* external symbol */
100 st_Static = stStatic, /* static */
101 st_Param = stParam, /* procedure argument */
102 st_Local = stLocal, /* local variable */
103 st_Label = stLabel, /* label */
104 st_Proc = stProc, /* " " Procedure */
105 st_Block = stBlock, /* beginning of block */
106 st_End = stEnd, /* end (of anything) */
107 st_Member = stMember, /* member (of anything - struct/union/enum */
108 st_Typedef = stTypedef, /* type definition */
109 st_File = stFile, /* file name */
110 st_RegReloc = stRegReloc, /* register relocation */
111 st_Forward = stForward, /* forwarding address */
112 st_StaticProc = stStaticProc, /* load time only static procs */
113 st_StaParam = stStaParam, /* Fortran static parameters */
114 st_Constant = stConstant, /* const */
116 st_Struct = stStruct, /* struct */
117 st_Union = stUnion, /* union */
118 st_Enum = stEnum, /* enum */
120 st_Str = stStr, /* string */
121 st_Number = stNumber, /* pure number (ie. 4 NOR 2+2) */
122 st_Expr = stExpr, /* 2+2 vs. 4 */
123 st_Type = stType, /* post-coercion SER */
124 st_Max = stMax /* max type+1 */
127 /* Redefinition of type qualifiers. */
130 tq_Nil = tqNil, /* bt is what you see */
131 tq_Ptr = tqPtr, /* pointer */
132 tq_Proc = tqProc, /* procedure */
133 tq_Array = tqArray, /* duh */
134 tq_Far = tqFar, /* longer addressing - 8086/8 land */
135 tq_Vol = tqVol, /* volatile */
136 tq_Max = tqMax /* Max type qualifier+1 */
139 /* Redefinition of basic types. */
142 bt_Nil = btNil, /* undefined */
143 bt_Adr = btAdr, /* address - integer same size as pointer */
144 bt_Char = btChar, /* character */
145 bt_UChar = btUChar, /* unsigned character */
146 bt_Short = btShort, /* short */
147 bt_UShort = btUShort, /* unsigned short */
148 bt_Int = btInt, /* int */
149 bt_UInt = btUInt, /* unsigned int */
150 bt_Long = btLong, /* long */
151 bt_ULong = btULong, /* unsigned long */
152 bt_Float = btFloat, /* float (real) */
153 bt_Double = btDouble, /* Double (real) */
154 bt_Struct = btStruct, /* Structure (Record) */
155 bt_Union = btUnion, /* Union (variant) */
156 bt_Enum = btEnum, /* Enumerated */
157 bt_Typedef = btTypedef, /* defined via a typedef, isymRef points */
158 bt_Range = btRange, /* subrange of int */
159 bt_Set = btSet, /* pascal sets */
160 bt_Complex = btComplex, /* fortran complex */
161 bt_DComplex = btDComplex, /* fortran double complex */
162 bt_Indirect = btIndirect, /* forward or unnamed typedef */
163 bt_FixedDec = btFixedDec, /* Fixed Decimal */
164 bt_FloatDec = btFloatDec, /* Float Decimal */
165 bt_String = btString, /* Varying Length Character String */
166 bt_Bit = btBit, /* Aligned Bit String */
167 bt_Picture = btPicture, /* Picture */
168 bt_Void = btVoid, /* void */
169 bt_Max = btMax /* Max basic type+1 */
172 /* Redefinition of the language codes. */
176 lang_Pascal = langPascal,
177 lang_Fortran = langFortran,
178 lang_Assembler = langAssembler,
179 lang_Machine = langMachine,
183 lang_Cobol = langCobol
186 /* Redefinition of the debug level codes. */
188 typedef enum glevel {
196 /* Keep track of the active scopes. */
197 typedef struct scope {
198 struct scope *prev; /* previous scope */
199 ulong open_sym; /* symbol opening scope */
200 sc_t sc; /* storage class */
201 st_t st; /* symbol type */
204 struct filehdr global_hdr; /* a.out header */
206 int errors = 0; /* # of errors */
207 int want_aux = 0; /* print aux table */
208 int want_line = 0; /* print line numbers */
209 int want_rfd = 0; /* print relative file desc's */
210 int want_scope = 0; /* print scopes for every symbol */
211 int tfile = 0; /* no global header file */
212 int tfile_fd; /* file descriptor of .T file */
213 off_t tfile_offset; /* current offset in .T file */
214 scope_t *cur_scope = 0; /* list of active scopes */
215 scope_t *free_scope = 0; /* list of freed scopes */
216 HDRR sym_hdr; /* symbolic header */
217 char *l_strings; /* local strings */
218 char *e_strings; /* external strings */
219 SYMR *l_symbols; /* local symbols */
220 EXTR *e_symbols; /* external symbols */
221 LINER *lines; /* line numbers */
222 DNR *dense_nums; /* dense numbers */
223 OPTR *opt_symbols; /* optimization symbols */
224 AUXU *aux_symbols; /* Auxiliary symbols */
225 char *aux_used; /* map of which aux syms are used */
226 FDR *file_desc; /* file tables */
227 ulong *rfile_desc; /* relative file tables */
228 PDR *proc_desc; /* procedure tables */
230 /* Forward reference for functions. */
231 static PTR read_seek PARAMS ((PTR, size_t, off_t, const char *));
232 static void read_tfile PARAMS ((void));
233 static void print_global_hdr PARAMS ((struct filehdr *));
234 static void print_sym_hdr PARAMS ((HDRR *));
235 static void print_file_desc PARAMS ((FDR *, int));
236 static void print_symbol PARAMS ((SYMR *, int, const char *, AUXU *, int, FDR *));
237 static void print_aux PARAMS ((AUXU, int, int));
238 static void emit_aggregate PARAMS ((char *, AUXU, AUXU, const char *, FDR *));
239 static const char *st_to_string PARAMS ((st_t));
240 static const char *sc_to_string PARAMS ((sc_t));
241 static const char *glevel_to_string PARAMS ((glevel_t));
242 static const char *lang_to_string PARAMS ((lang_t));
243 static const char *type_to_string PARAMS ((AUXU *, int, FDR *));
249 /* Create a table of debugging stab-codes and corresponding names. */
251 #define __define_stab(NAME, CODE, STRING) {(int)CODE, STRING},
252 const struct {const short code; const char string[10];} stab_names[] = {
258 /* Read some bytes at a specified location, and return a pointer. */
261 read_seek (ptr, size, offset, context)
262 PTR ptr; /* pointer to buffer or NULL */
263 size_t size; /* # bytes to read */
264 off_t offset; /* offset to read at */
265 const char *context; /* context for error message */
269 if (size == 0) /* nothing to read */
273 ptr = xmalloc (size);
275 if ((tfile_offset != offset && lseek (tfile_fd, offset, 0) == -1)
276 || (read_size = read (tfile_fd, ptr, size)) < 0)
282 if (read_size != (long) size)
284 fprintf (stderr, "%s: read %ld bytes, expected %ld bytes\n",
285 context, read_size, (long) size);
289 tfile_offset = offset + size;
294 /* Convert language code to string format. */
297 lang_to_string (lang)
302 case langC: return "C";
303 case langPascal: return "Pascal";
304 case langFortran: return "Fortran";
305 case langAssembler: return "Assembler";
306 case langMachine: return "Machine";
307 case langNil: return "Nil";
308 case langAda: return "Ada";
309 case langPl1: return "Pl1";
310 case langCobol: return "Cobol";
313 return "Unknown language";
317 /* Convert storage class to string. */
320 sc_to_string(storage_class)
323 switch(storage_class)
325 case sc_Nil: return "Nil";
326 case sc_Text: return "Text";
327 case sc_Data: return "Data";
328 case sc_Bss: return "Bss";
329 case sc_Register: return "Register";
330 case sc_Abs: return "Abs";
331 case sc_Undefined: return "Undefined";
332 case sc_CdbLocal: return "CdbLocal";
333 case sc_Bits: return "Bits";
334 case sc_CdbSystem: return "CdbSystem";
335 case sc_RegImage: return "RegImage";
336 case sc_Info: return "Info";
337 case sc_UserStruct: return "UserStruct";
338 case sc_SData: return "SData";
339 case sc_SBss: return "SBss";
340 case sc_RData: return "RData";
341 case sc_Var: return "Var";
342 case sc_Common: return "Common";
343 case sc_SCommon: return "SCommon";
344 case sc_VarRegister: return "VarRegister";
345 case sc_Variant: return "Variant";
346 case sc_SUndefined: return "SUndefined";
347 case sc_Init: return "Init";
348 case sc_Max: return "Max";
355 /* Convert symbol type to string. */
358 st_to_string(symbol_type)
363 case st_Nil: return "Nil";
364 case st_Global: return "Global";
365 case st_Static: return "Static";
366 case st_Param: return "Param";
367 case st_Local: return "Local";
368 case st_Label: return "Label";
369 case st_Proc: return "Proc";
370 case st_Block: return "Block";
371 case st_End: return "End";
372 case st_Member: return "Member";
373 case st_Typedef: return "Typedef";
374 case st_File: return "File";
375 case st_RegReloc: return "RegReloc";
376 case st_Forward: return "Forward";
377 case st_StaticProc: return "StaticProc";
378 case st_Constant: return "Constant";
379 case st_StaParam: return "StaticParam";
381 case st_Struct: return "Struct";
382 case st_Union: return "Union";
383 case st_Enum: return "Enum";
385 case st_Str: return "String";
386 case st_Number: return "Number";
387 case st_Expr: return "Expr";
388 case st_Type: return "Type";
389 case st_Max: return "Max";
396 /* Convert debug level to string. */
399 glevel_to_string (g_level)
404 case GLEVEL_0: return "G0";
405 case GLEVEL_1: return "G1";
406 case GLEVEL_2: return "G2";
407 case GLEVEL_3: return "G3";
414 /* Convert the type information to string format. */
417 type_to_string (aux_ptr, index, fdp)
432 static char buffer1[1024];
433 static char buffer2[1024];
436 char *used_ptr = aux_used + (aux_ptr - aux_symbols);
438 for (i = 0; i < 7; i++)
440 qualifiers[i].low_bound = 0;
441 qualifiers[i].high_bound = 0;
442 qualifiers[i].stride = 0;
446 u = aux_ptr[index++];
448 return "-1 (no type)";
450 basic_type = (bt_t) u.ti.bt;
451 qualifiers[0].type = (tq_t) u.ti.tq0;
452 qualifiers[1].type = (tq_t) u.ti.tq1;
453 qualifiers[2].type = (tq_t) u.ti.tq2;
454 qualifiers[3].type = (tq_t) u.ti.tq3;
455 qualifiers[4].type = (tq_t) u.ti.tq4;
456 qualifiers[5].type = (tq_t) u.ti.tq5;
457 qualifiers[6].type = tq_Nil;
460 * Go get the basic type.
464 case bt_Nil: /* undefined */
468 case bt_Adr: /* address - integer same size as pointer */
469 strcpy (p1, "address");
472 case bt_Char: /* character */
476 case bt_UChar: /* unsigned character */
477 strcpy (p1, "unsigned char");
480 case bt_Short: /* short */
481 strcpy (p1, "short");
484 case bt_UShort: /* unsigned short */
485 strcpy (p1, "unsigned short");
488 case bt_Int: /* int */
492 case bt_UInt: /* unsigned int */
493 strcpy (p1, "unsigned int");
496 case bt_Long: /* long */
500 case bt_ULong: /* unsigned long */
501 strcpy (p1, "unsigned long");
504 case bt_Float: /* float (real) */
505 strcpy (p1, "float");
508 case bt_Double: /* Double (real) */
509 strcpy (p1, "double");
512 /* Structures add 1-2 aux words:
513 1st word is [ST_RFDESCAPE, offset] pointer to struct def;
514 2nd word is file index if 1st word rfd is ST_RFDESCAPE. */
516 case bt_Struct: /* Structure (Record) */
517 emit_aggregate (p1, aux_ptr[index], aux_ptr[index+1], "struct", fdp);
519 if (aux_ptr[index].rndx.rfd == ST_RFDESCAPE)
520 used_ptr[++index] = 1;
522 index++; /* skip aux words */
525 /* Unions add 1-2 aux words:
526 1st word is [ST_RFDESCAPE, offset] pointer to union def;
527 2nd word is file index if 1st word rfd is ST_RFDESCAPE. */
529 case bt_Union: /* Union */
530 emit_aggregate (p1, aux_ptr[index], aux_ptr[index+1], "union", fdp);
532 if (aux_ptr[index].rndx.rfd == ST_RFDESCAPE)
533 used_ptr[++index] = 1;
535 index++; /* skip aux words */
538 /* Enumerations add 1-2 aux words:
539 1st word is [ST_RFDESCAPE, offset] pointer to enum def;
540 2nd word is file index if 1st word rfd is ST_RFDESCAPE. */
542 case bt_Enum: /* Enumeration */
543 emit_aggregate (p1, aux_ptr[index], aux_ptr[index+1], "enum", fdp);
545 if (aux_ptr[index].rndx.rfd == ST_RFDESCAPE)
546 used_ptr[++index] = 1;
548 index++; /* skip aux words */
551 case bt_Typedef: /* defined via a typedef, isymRef points */
552 strcpy (p1, "typedef");
555 case bt_Range: /* subrange of int */
556 strcpy (p1, "subrange");
559 case bt_Set: /* pascal sets */
563 case bt_Complex: /* fortran complex */
564 strcpy (p1, "complex");
567 case bt_DComplex: /* fortran double complex */
568 strcpy (p1, "double complex");
571 case bt_Indirect: /* forward or unnamed typedef */
572 strcpy (p1, "forward/unnamed typedef");
575 case bt_FixedDec: /* Fixed Decimal */
576 strcpy (p1, "fixed decimal");
579 case bt_FloatDec: /* Float Decimal */
580 strcpy (p1, "float decimal");
583 case bt_String: /* Varying Length Character String */
584 strcpy (p1, "string");
587 case bt_Bit: /* Aligned Bit String */
591 case bt_Picture: /* Picture */
592 strcpy (p1, "picture");
595 case bt_Void: /* Void */
600 sprintf (p1, "Unknown basic type %d", (int) basic_type);
604 p1 += strlen (buffer1);
607 * If this is a bitfield, get the bitsize.
614 bitsize = aux_ptr[index++].width;
615 sprintf (p1, " : %d", bitsize);
616 p1 += strlen (buffer1);
621 * Deal with any qualifiers.
623 if (qualifiers[0].type != tq_Nil)
626 * Snarf up any array bounds in the correct order. Arrays
627 * store 5 successive words in the aux. table:
628 * word 0 RNDXR to type of the bounds (ie, int)
629 * word 1 Current file descriptor index
631 * word 3 high bound (or -1 if [])
632 * word 4 stride size in bits
634 for (i = 0; i < 7; i++)
636 if (qualifiers[i].type == tq_Array)
638 qualifiers[i].low_bound = aux_ptr[index+2].dnLow;
639 qualifiers[i].high_bound = aux_ptr[index+3].dnHigh;
640 qualifiers[i].stride = aux_ptr[index+4].width;
642 used_ptr[index+1] = 1;
643 used_ptr[index+2] = 1;
644 used_ptr[index+3] = 1;
645 used_ptr[index+4] = 1;
651 * Now print out the qualifiers.
653 for (i = 0; i < 6; i++)
655 switch (qualifiers[i].type)
662 strcpy (p2, "ptr to ");
663 p2 += sizeof ("ptr to ")-1;
667 strcpy (p2, "volatile ");
668 p2 += sizeof ("volatile ")-1;
673 p2 += sizeof ("far ")-1;
677 strcpy (p2, "func. ret. ");
678 p2 += sizeof ("func. ret. ");
686 /* Print array bounds reversed (ie, in the order the C
687 programmer writes them). C is such a fun language.... */
689 while (i < 5 && qualifiers[i+1].type == tq_Array)
692 for (j = i; j >= first_array; j--)
694 strcpy (p2, "array [");
695 p2 += sizeof ("array [")-1;
696 if (qualifiers[j].low_bound != 0)
698 "%ld:%ld {%ld bits}",
699 (long) qualifiers[j].low_bound,
700 (long) qualifiers[j].high_bound,
701 (long) qualifiers[j].stride);
703 else if (qualifiers[j].high_bound != -1)
706 (long) (qualifiers[j].high_bound + 1),
707 (long) (qualifiers[j].stride));
710 sprintf (p2, " {%ld bits}", (long) (qualifiers[j].stride));
713 strcpy (p2, "] of ");
714 p2 += sizeof ("] of ")-1;
722 strcpy (p2, buffer1);
727 /* Print out the global file header for object files. */
730 print_global_hdr (ptr)
733 char *time = ctime ((time_t *)&ptr->f_timdat);
734 ushort flags = ptr->f_flags;
736 printf("Global file header:\n");
737 printf(" %-*s 0x%x\n", 24, "magic number", (ushort) ptr->f_magic);
738 printf(" %-*s %d\n", 24, "# sections", (int) ptr->f_nscns);
739 printf(" %-*s %ld, %s", 24, "timestamp", (long) ptr->f_timdat, time);
740 printf(" %-*s %ld\n", 24, "symbolic header offset", (long) ptr->f_symptr);
741 printf(" %-*s %ld\n", 24, "symbolic header size", (long) ptr->f_nsyms);
742 printf(" %-*s %ld\n", 24, "optional header", (long) ptr->f_opthdr);
743 printf(" %-*s 0x%x", 24, "flags", (ushort) flags);
745 if ((flags & F_RELFLG) != 0)
746 printf (", F_RELFLG");
748 if ((flags & F_EXEC) != 0)
751 if ((flags & F_LNNO) != 0)
754 if ((flags & F_LSYMS) != 0)
755 printf (", F_LSYMS");
757 if ((flags & F_MINMAL) != 0)
758 printf (", F_MINMAL");
760 if ((flags & F_UPDATE) != 0)
761 printf (", F_UPDATE");
763 if ((flags & F_SWABD) != 0)
764 printf (", F_SWABD");
766 if ((flags & F_AR16WR) != 0)
767 printf (", F_AR16WR");
769 if ((flags & F_AR32WR) != 0)
770 printf (", F_AR32WR");
772 if ((flags & F_AR32W) != 0)
773 printf (", F_AR32W");
775 if ((flags & F_PATCH) != 0)
776 printf (", F_PATCH/F_NODF");
782 /* Print out the symbolic header. */
785 print_sym_hdr (sym_ptr)
790 printf("Symbolic header, magic number = 0x%04x, vstamp = %d.%d:\n\n",
791 sym_ptr->magic & 0xffff,
792 (sym_ptr->vstamp & 0xffff) >> 8,
793 sym_ptr->vstamp & 0xff);
795 printf(" %-*s %11s %11s %11s\n", width, "Info", "Offset", "Number", "Bytes");
796 printf(" %-*s %11s %11s %11s\n", width, "====", "======", "======", "=====\n");
798 printf(" %-*s %11ld %11ld %11ld [%d]\n", width, "Line numbers",
799 (long) sym_ptr->cbLineOffset,
800 (long) sym_ptr->cbLine,
801 (long) sym_ptr->cbLine,
802 (int) sym_ptr->ilineMax);
804 printf(" %-*s %11ld %11ld %11ld\n", width, "Dense numbers",
805 (long) sym_ptr->cbDnOffset,
806 (long) sym_ptr->idnMax,
807 (long) (sym_ptr->idnMax * sizeof (DNR)));
809 printf(" %-*s %11ld %11ld %11ld\n", width, "Procedures Tables",
810 (long) sym_ptr->cbPdOffset,
811 (long) sym_ptr->ipdMax,
812 (long) (sym_ptr->ipdMax * sizeof (PDR)));
814 printf(" %-*s %11ld %11ld %11ld\n", width, "Local Symbols",
815 (long) sym_ptr->cbSymOffset,
816 (long) sym_ptr->isymMax,
817 (long) (sym_ptr->isymMax * sizeof (SYMR)));
819 printf(" %-*s %11ld %11ld %11ld\n", width, "Optimization Symbols",
820 (long) sym_ptr->cbOptOffset,
821 (long) sym_ptr->ioptMax,
822 (long) (sym_ptr->ioptMax * sizeof (OPTR)));
824 printf(" %-*s %11ld %11ld %11ld\n", width, "Auxiliary Symbols",
825 (long) sym_ptr->cbAuxOffset,
826 (long) sym_ptr->iauxMax,
827 (long) (sym_ptr->iauxMax * sizeof (AUXU)));
829 printf(" %-*s %11ld %11ld %11ld\n", width, "Local Strings",
830 (long) sym_ptr->cbSsOffset,
831 (long) sym_ptr->issMax,
832 (long) sym_ptr->issMax);
834 printf(" %-*s %11ld %11ld %11ld\n", width, "External Strings",
835 (long) sym_ptr->cbSsExtOffset,
836 (long) sym_ptr->issExtMax,
837 (long) sym_ptr->issExtMax);
839 printf(" %-*s %11ld %11ld %11ld\n", width, "File Tables",
840 (long) sym_ptr->cbFdOffset,
841 (long) sym_ptr->ifdMax,
842 (long) (sym_ptr->ifdMax * sizeof (FDR)));
844 printf(" %-*s %11ld %11ld %11ld\n", width, "Relative Files",
845 (long) sym_ptr->cbRfdOffset,
846 (long) sym_ptr->crfd,
847 (long) (sym_ptr->crfd * sizeof (ulong)));
849 printf(" %-*s %11ld %11ld %11ld\n", width, "External Symbols",
850 (long) sym_ptr->cbExtOffset,
851 (long) sym_ptr->iextMax,
852 (long) (sym_ptr->iextMax * sizeof (EXTR)));
856 /* Print out a symbol. */
859 print_symbol (sym_ptr, number, strbase, aux_base, ifd, fdp)
867 sc_t storage_class = (sc_t) sym_ptr->sc;
868 st_t symbol_type = (st_t) sym_ptr->st;
869 ulong index = sym_ptr->index;
870 char *used_ptr = aux_used + (aux_base - aux_symbols);
873 printf ("\n Symbol# %d: \"%s\"\n", number, sym_ptr->iss + strbase);
875 if (aux_base != (AUXU *) 0 && index != indexNil)
884 printf (" End+1 symbol: %ld\n", index);
887 if (free_scope == (scope_t *) 0)
888 scope_ptr = (scope_t *) xmalloc (sizeof (scope_t));
891 scope_ptr = free_scope;
892 free_scope = scope_ptr->prev;
894 scope_ptr->open_sym = number;
895 scope_ptr->st = symbol_type;
896 scope_ptr->sc = storage_class;
897 scope_ptr->prev = cur_scope;
898 cur_scope = scope_ptr;
903 if (storage_class == sc_Text || storage_class == sc_Info)
904 printf (" First symbol: %ld\n", index);
908 printf (" First symbol: %ld\n", (long) aux_base[index].isym);
913 if (cur_scope == (scope_t *) 0)
914 printf (" Can't pop end scope\n");
917 scope_ptr = cur_scope;
918 cur_scope = scope_ptr->prev;
919 scope_ptr->prev = free_scope;
920 free_scope = scope_ptr;
927 if (MIPS_IS_STAB(sym_ptr))
929 else if (ifd == -1) /* local symbol */
931 used_ptr[index] = used_ptr[index+1] = 1;
932 printf (" End+1 symbol: %-7ld Type: %s\n",
933 (long) aux_base[index].isym,
934 type_to_string (aux_base, index+1, fdp));
936 else /* global symbol */
937 printf (" Local symbol: %ld\n", index);
941 if (free_scope == (scope_t *) 0)
942 scope_ptr = (scope_t *) xmalloc (sizeof (scope_t));
945 scope_ptr = free_scope;
946 free_scope = scope_ptr->prev;
948 scope_ptr->open_sym = number;
949 scope_ptr->st = symbol_type;
950 scope_ptr->sc = storage_class;
951 scope_ptr->prev = cur_scope;
952 cur_scope = scope_ptr;
960 printf (" End+1 symbol: %lu\n", index);
965 if (!MIPS_IS_STAB (sym_ptr))
968 printf (" Type: %s\n",
969 type_to_string (aux_base, index, fdp));
976 printf (" Scopes: ");
977 if (cur_scope == (scope_t *) 0)
981 for (scope_ptr = cur_scope;
982 scope_ptr != (scope_t *) 0;
983 scope_ptr = scope_ptr->prev)
986 if (scope_ptr->st == st_Proc || scope_ptr->st == st_StaticProc)
988 else if (scope_ptr->st == st_File)
990 else if (scope_ptr->st == st_Block && scope_ptr->sc == sc_Text)
992 else if (scope_ptr->st == st_Block && scope_ptr->sc == sc_Info)
997 printf (" %ld [%s]", scope_ptr->open_sym, class);
1003 printf (" Value: %-13ld ",
1004 (long)sym_ptr->value);
1006 printf ("String index: %ld\n", (long)sym_ptr->iss);
1008 printf ("String index: %-11ld Ifd: %d\n",
1009 (long)sym_ptr->iss, ifd);
1011 printf (" Symbol type: %-11sStorage class: %-11s",
1012 st_to_string (symbol_type), sc_to_string (storage_class));
1014 if (MIPS_IS_STAB(sym_ptr))
1016 int i = ARRAY_SIZE (stab_names);
1017 const char *stab_name = "stab";
1018 short code = MIPS_UNMARK_STAB(sym_ptr->index);
1021 if (stab_names[i].code == code)
1023 stab_name = stab_names[i].string;
1026 printf ("Index: 0x%lx (%s)\n", (long)sym_ptr->index, stab_name);
1028 else if (sym_ptr->st == stLabel && sym_ptr->index != indexNil)
1029 printf ("Index: %ld (line#)\n", (long)sym_ptr->index);
1031 printf ("Index: %ld\n", (long)sym_ptr->index);
1036 /* Print out a word from the aux. table in various formats. */
1039 print_aux (u, auxi, used)
1044 printf ("\t%s#%-5d %11ld, [%4ld/%7ld], [%2d %1d:%1d %1x:%1x:%1x:%1x:%1x:%1x]\n",
1045 (used) ? " " : "* ",
1049 (long) u.rndx.index,
1062 /* Write aggregate information to a string. */
1065 emit_aggregate (string, u, u2, which, fdp)
1072 unsigned int ifd = u.rndx.rfd;
1073 unsigned int index = u.rndx.index;
1076 if (ifd == ST_RFDESCAPE)
1079 /* An ifd of -1 is an opaque type. An escaped index of 0 is a
1080 struct return type of a procedure compiled without -g. */
1081 if (ifd == 0xffffffff
1082 || (u.rndx.rfd == ST_RFDESCAPE && index == 0))
1083 name = "<undefined>";
1084 else if (index == indexNil)
1088 if (fdp == 0 || sym_hdr.crfd == 0)
1089 fdp = &file_desc[ifd];
1091 fdp = &file_desc[rfile_desc[fdp->rfdBase + ifd]];
1092 name = &l_strings[fdp->issBase + l_symbols[index + fdp->isymBase].iss];
1096 "%s %s { ifd = %u, index = %u }",
1097 which, name, ifd, index);
1101 /* Print out information about a file descriptor, and the symbols,
1102 procedures, and line numbers within it. */
1105 print_file_desc (fdp, number)
1115 str_base = l_strings + fdp->issBase;
1116 aux_base = aux_symbols + fdp->iauxBase;
1117 used_base = aux_used + (aux_base - aux_symbols);
1119 printf ("\nFile #%d, \"%s\"\n\n",
1121 fdp->rss != issNil ? str_base + fdp->rss : "<unknown>");
1123 printf (" Name index = %-10ld Readin = %s\n",
1124 (long) fdp->rss, (fdp->fReadin) ? "Yes" : "No");
1126 printf (" Merge = %-10s Endian = %s\n",
1127 (fdp->fMerge) ? "Yes" : "No",
1128 (fdp->fBigendian) ? "BIG" : "LITTLE");
1130 printf (" Debug level = %-10s Language = %s\n",
1131 glevel_to_string (fdp->glevel),
1132 lang_to_string((lang_t) fdp->lang));
1134 printf (" Adr = 0x%08lx\n\n", (long) fdp->adr);
1136 printf(" %-*s %11s %11s %11s %11s\n", width, "Info", "Start", "Number", "Size", "Offset");
1137 printf(" %-*s %11s %11s %11s %11s\n", width, "====", "=====", "======", "====", "======");
1139 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1140 width, "Local strings",
1141 (ulong) fdp->issBase,
1144 (ulong) (fdp->issBase + sym_hdr.cbSsOffset));
1146 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1147 width, "Local symbols",
1148 (ulong) fdp->isymBase,
1150 (ulong) (fdp->csym * sizeof (SYMR)),
1151 (ulong) (fdp->isymBase * sizeof (SYMR) + sym_hdr.cbSymOffset));
1153 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1154 width, "Line numbers",
1155 (ulong) fdp->cbLineOffset,
1157 (ulong) fdp->cbLine,
1158 (ulong) (fdp->cbLineOffset + sym_hdr.cbLineOffset));
1160 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1161 width, "Optimization symbols",
1162 (ulong) fdp->ioptBase,
1164 (ulong) (fdp->copt * sizeof (OPTR)),
1165 (ulong) (fdp->ioptBase * sizeof (OPTR) + sym_hdr.cbOptOffset));
1167 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1168 width, "Procedures",
1169 (ulong) fdp->ipdFirst,
1171 (ulong) (fdp->cpd * sizeof (PDR)),
1172 (ulong) (fdp->ipdFirst * sizeof (PDR) + sym_hdr.cbPdOffset));
1174 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1175 width, "Auxiliary symbols",
1176 (ulong) fdp->iauxBase,
1178 (ulong) (fdp->caux * sizeof (AUXU)),
1179 (ulong) (fdp->iauxBase * sizeof(AUXU) + sym_hdr.cbAuxOffset));
1181 printf(" %-*s %11lu %11lu %11lu %11lu\n",
1182 width, "Relative Files",
1183 (ulong) fdp->rfdBase,
1185 (ulong) (fdp->crfd * sizeof (ulong)),
1186 (ulong) (fdp->rfdBase * sizeof(ulong) + sym_hdr.cbRfdOffset));
1189 if (want_scope && cur_scope != (scope_t *) 0)
1190 printf ("\n Warning scope does not start at 0!\n");
1193 * print the info about the symbol table.
1195 printf ("\n There are %lu local symbols, starting at %lu\n",
1197 (ulong) (fdp->isymBase + sym_hdr.cbSymOffset));
1199 for(symi = fdp->isymBase; symi < (fdp->csym + fdp->isymBase); symi++)
1200 print_symbol (&l_symbols[symi],
1201 symi - fdp->isymBase,
1207 if (want_scope && cur_scope != (scope_t *) 0)
1208 printf ("\n Warning scope does not end at 0!\n");
1211 * print the aux. table if desired.
1214 if (want_aux && fdp->caux != 0)
1218 printf ("\n There are %lu auxiliary table entries, starting at %lu.\n\n",
1220 (ulong) (fdp->iauxBase + sym_hdr.cbAuxOffset));
1222 for (auxi = fdp->iauxBase; auxi < (fdp->caux + fdp->iauxBase); auxi++)
1223 print_aux (aux_base[auxi], auxi, used_base[auxi]);
1227 * print the relative file descriptors.
1229 if (want_rfd && fdp->crfd != 0)
1233 printf ("\n There are %lu relative file descriptors, starting at %lu.\n",
1235 (ulong) fdp->rfdBase);
1237 rfd_ptr = rfile_desc + fdp->rfdBase;
1238 for (i = 0; i < (ulong) fdp->crfd; i++)
1240 printf ("\t#%-5ld %11ld, 0x%08lx\n", i, *rfd_ptr, *rfd_ptr);
1246 * do the procedure descriptors.
1248 printf ("\n There are %lu procedure descriptor entries, ", (ulong) fdp->cpd);
1249 printf ("starting at %lu.\n", (ulong) fdp->ipdFirst);
1251 for (pdi = fdp->ipdFirst; pdi < (fdp->cpd + fdp->ipdFirst); pdi++)
1253 PDR *proc_ptr = &proc_desc[pdi];
1254 printf ("\n\tProcedure descriptor %d:\n", (pdi - fdp->ipdFirst));
1257 printf ("\t Name index = %-11ld Name = \"%s\"\n",
1258 (long) l_symbols[proc_ptr->isym + fdp->isymBase].iss,
1259 l_symbols[proc_ptr->isym + fdp->isymBase].iss + str_base);
1261 printf ("\t .mask 0x%08lx,%-9ld .fmask 0x%08lx,%ld\n",
1262 (long) proc_ptr->regmask,
1263 (long) proc_ptr->regoffset,
1264 (long) proc_ptr->fregmask,
1265 (long) proc_ptr->fregoffset);
1267 printf ("\t .frame $%d,%ld,$%d\n",
1268 (int) proc_ptr->framereg,
1269 (long) proc_ptr->frameoffset,
1270 (int) proc_ptr->pcreg);
1272 printf ("\t Opt. start = %-11ld Symbols start = %ld\n",
1273 (long) proc_ptr->iopt,
1274 (long) proc_ptr->isym);
1276 printf ("\t First line # = %-11ld Last line # = %ld\n",
1277 (long) proc_ptr->lnLow,
1278 (long) proc_ptr->lnHigh);
1280 printf ("\t Line Offset = %-11ld Address = 0x%08lx\n",
1281 (long) proc_ptr->cbLineOffset,
1282 (long) proc_ptr->adr);
1285 * print the line number entries.
1288 if (want_line && fdp->cline != 0)
1291 long cur_line = proc_ptr->lnLow;
1292 uchar *line_ptr = (((uchar *)lines) + proc_ptr->cbLineOffset
1293 + fdp->cbLineOffset);
1296 if (pdi == fdp->cpd + fdp->ipdFirst - 1) /* last procedure */
1297 line_end = ((uchar *)lines) + fdp->cbLine + fdp->cbLineOffset;
1298 else /* not last proc. */
1299 line_end = (((uchar *)lines) + proc_desc[pdi+1].cbLineOffset
1300 + fdp->cbLineOffset);
1302 printf ("\n\tThere are %lu bytes holding line numbers, starting at %lu.\n",
1303 (ulong) (line_end - line_ptr),
1304 (ulong) (fdp->ilineBase + sym_hdr.cbLineOffset));
1306 while (line_ptr < line_end)
1307 { /* sign extend nibble */
1308 delta = ((*line_ptr >> 4) ^ 0x8) - 0x8;
1309 count = (*line_ptr & 0xf) + 1;
1314 delta = (((line_ptr[1]) & 0xff) << 8) + ((line_ptr[2]) & 0xff);
1315 delta = (delta ^ 0x8000) - 0x8000;
1320 printf ("\t Line %11ld, delta %5d, count %2d\n",
1330 /* Read in the portions of the .T file that we will print out. */
1336 off_t sym_hdr_offset = 0;
1338 (void) read_seek ((PTR) &magic, sizeof (magic), (off_t) 0, "Magic number");
1341 /* Print out the global header, since this is not a T-file. */
1343 (void) read_seek ((PTR) &global_hdr, sizeof (global_hdr), (off_t) 0,
1344 "Global file header");
1346 print_global_hdr (&global_hdr);
1348 if (global_hdr.f_symptr == 0)
1350 printf ("No symbolic header, Goodbye!\n");
1354 sym_hdr_offset = global_hdr.f_symptr;
1357 (void) read_seek ((PTR) &sym_hdr,
1362 print_sym_hdr (&sym_hdr);
1364 lines = (LINER *) read_seek (NULL,
1366 sym_hdr.cbLineOffset,
1369 dense_nums = (DNR *) read_seek (NULL,
1370 sym_hdr.idnMax * sizeof (DNR),
1374 proc_desc = (PDR *) read_seek (NULL,
1375 sym_hdr.ipdMax * sizeof (PDR),
1377 "Procedure tables");
1379 l_symbols = (SYMR *) read_seek (NULL,
1380 sym_hdr.isymMax * sizeof (SYMR),
1381 sym_hdr.cbSymOffset,
1384 opt_symbols = (OPTR *) read_seek (NULL,
1385 sym_hdr.ioptMax * sizeof (OPTR),
1386 sym_hdr.cbOptOffset,
1387 "Optimization symbols");
1389 aux_symbols = (AUXU *) read_seek (NULL,
1390 sym_hdr.iauxMax * sizeof (AUXU),
1391 sym_hdr.cbAuxOffset,
1392 "Auxiliary symbols");
1394 if (sym_hdr.iauxMax > 0)
1395 aux_used = xcalloc (sym_hdr.iauxMax, 1);
1397 l_strings = (char *) read_seek (NULL,
1400 "Local string table");
1402 e_strings = (char *) read_seek (NULL,
1404 sym_hdr.cbSsExtOffset,
1405 "External string table");
1407 file_desc = (FDR *) read_seek (NULL,
1408 sym_hdr.ifdMax * sizeof (FDR),
1412 rfile_desc = (ulong *) read_seek (NULL,
1413 sym_hdr.crfd * sizeof (ulong),
1414 sym_hdr.cbRfdOffset,
1415 "Relative file tables");
1417 e_symbols = (EXTR *) read_seek (NULL,
1418 sym_hdr.iextMax * sizeof (EXTR),
1419 sym_hdr.cbExtOffset,
1420 "External symbols");
1425 extern int main PARAMS ((int, char **));
1437 while ((opt = getopt (argc, argv, "alrst")) != EOF)
1440 default: errors++; break;
1441 case 'a': want_aux++; break; /* print aux table */
1442 case 'l': want_line++; break; /* print line numbers */
1443 case 'r': want_rfd++; break; /* print relative fd's */
1444 case 's': want_scope++; break; /* print scope info */
1445 case 't': tfile++; break; /* this is a tfile (without header), and not a .o */
1448 if (errors || optind != argc - 1)
1450 fprintf (stderr, "Calling Sequence:\n");
1451 fprintf (stderr, "\t%s [-alrst] <object-or-T-file>\n", argv[0]);
1452 fprintf (stderr, "\n");
1453 fprintf (stderr, "switches:\n");
1454 fprintf (stderr, "\t-a Print out auxiliary table.\n");
1455 fprintf (stderr, "\t-l Print out line numbers.\n");
1456 fprintf (stderr, "\t-r Print out relative file descriptors.\n");
1457 fprintf (stderr, "\t-s Print out the current scopes for an item.\n");
1458 fprintf (stderr, "\t-t Assume there is no global header (ie, a T-file).\n");
1463 * Open and process the input file.
1465 tfile_fd = open (argv[optind], O_RDONLY);
1468 perror (argv[optind]);
1475 * Print any global aux words if any.
1479 long last_aux_in_use;
1481 if (sym_hdr.ifdMax != 0 && file_desc[0].iauxBase != 0)
1483 printf ("\nGlobal auxiliary entries before first file:\n");
1484 for (i = 0; i < file_desc[0].iauxBase; i++)
1485 print_aux (aux_symbols[i], 0, aux_used[i]);
1488 if (sym_hdr.ifdMax == 0)
1489 last_aux_in_use = 0;
1492 = (file_desc[sym_hdr.ifdMax-1].iauxBase
1493 + file_desc[sym_hdr.ifdMax-1].caux - 1);
1495 if (last_aux_in_use < sym_hdr.iauxMax-1)
1497 printf ("\nGlobal auxiliary entries after last file:\n");
1498 for (i = last_aux_in_use; i < sym_hdr.iauxMax; i++)
1499 print_aux (aux_symbols[i], i - last_aux_in_use, aux_used[i]);
1504 * Print the information for each file.
1506 for (i = 0; i < sym_hdr.ifdMax; i++)
1507 print_file_desc (&file_desc[i], i);
1510 * Print the external symbols.
1512 want_scope = 0; /* scope info is meaning for extern symbols */
1513 printf ("\nThere are %lu external symbols, starting at %lu\n",
1514 (ulong) sym_hdr.iextMax,
1515 (ulong) sym_hdr.cbExtOffset);
1517 for(i = 0; i < sym_hdr.iextMax; i++)
1518 print_symbol (&e_symbols[i].asym, i, e_strings,
1519 aux_symbols + file_desc[e_symbols[i].ifd].iauxBase,
1521 &file_desc[e_symbols[i].ifd]);
1524 * Print unused aux symbols now.
1531 for (i = 0; i < sym_hdr.iauxMax; i++)
1537 printf ("\nThe following auxiliary table entries were unused:\n\n");
1541 printf (" #%-5d %11ld 0x%08lx %s\n",
1543 (long) aux_symbols[i].isym,
1544 (long) aux_symbols[i].isym,
1545 type_to_string (aux_symbols, i, (FDR *) 0));