osprey-gcc/gcc/mips-tdump.c

Go to the documentation of this file.

/* Read and manage MIPS symbol tables from object modules.
   Copyright (C) 1991, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2003, 2004
   Free Software Foundation, Inc.
   Contributed by hartzell@boulder.colorado.edu,
   Rewritten by meissner@osf.org.

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING.  If not, write to the Free
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.  */

#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "tm.h"
#include "version.h"
#ifdef index
#undef index
#endif
#ifndef CROSS_COMPILE
#include <a.out.h>
#else
#include "mips/a.out.h"
#endif /* CROSS_COMPILE */

/* Include getopt.h for the sake of getopt_long.  */
#include "getopt.h"

#ifndef MIPS_IS_STAB
/* Macros for mips-tfile.c to encapsulate stabs in ECOFF, and for
   and mips-tdump.c to print them out.  This is used on the Alpha,
   which does not include mips.h.

   These must match the corresponding definitions in gdb/mipsread.c.
   Unfortunately, gcc and gdb do not currently share any directories.  */

#define CODE_MASK 0x8F300
#define MIPS_IS_STAB(sym) (((sym)->index & 0xFFF00) == CODE_MASK)
#define MIPS_MARK_STAB(code) ((code)+CODE_MASK)
#define MIPS_UNMARK_STAB(code) ((code)-CODE_MASK)
#endif

#define uchar unsigned char
#define ushort  unsigned short
#define uint  unsigned int
#define ulong unsigned long


/* Redefinition of storage classes as an enumeration for better
   debugging.  */

#ifndef stStaParam
#define stStaParam  16  /* Fortran static parameters */
#endif

#ifndef btVoid
#define btVoid    26  /* void basic type */
#endif

typedef enum sc {
  sc_Nil   = scNil,   /* no storage class */
  sc_Text  = scText,    /* text symbol */
  sc_Data  = scData,    /* initialized data symbol */
  sc_Bss   = scBss,   /* un-initialized data symbol */
  sc_Register  = scRegister,    /* value of symbol is register number */
  sc_Abs   = scAbs,   /* value of symbol is absolute */
  sc_Undefined   = scUndefined,   /* who knows? */
  sc_CdbLocal  = scCdbLocal,    /* variable's value is IN se->va.?? */
  sc_Bits  = scBits,    /* this is a bit field */
  sc_CdbSystem   = scCdbSystem,   /* var's value is IN CDB's address space */
  sc_RegImage  = scRegImage,    /* register value saved on stack */
  sc_Info  = scInfo,    /* symbol contains debugger information */
  sc_UserStruct  = scUserStruct,  /* addr in struct user for current process */
  sc_SData   = scSData,   /* load time only small data */
  sc_SBss  = scSBss,    /* load time only small common */
  sc_RData   = scRData,   /* load time only read only data */
  sc_Var   = scVar,   /* Var parameter (fortran,pascal) */
  sc_Common  = scCommon,    /* common variable */
  sc_SCommon   = scSCommon,   /* small common */
  sc_VarRegister = scVarRegister, /* Var parameter in a register */
  sc_Variant   = scVariant,   /* Variant record */
  sc_SUndefined  = scSUndefined,  /* small undefined(external) data */
  sc_Init  = scInit,    /* .init section symbol */
  sc_Max   = scMax    /* Max storage class+1 */
} sc_t;

/* Redefinition of symbol type.  */

typedef enum st {
  st_Nil  = stNil,  /* Nuthin' special */
  st_Global = stGlobal, /* external symbol */
  st_Static = stStatic, /* static */
  st_Param  = stParam,  /* procedure argument */
  st_Local  = stLocal,  /* local variable */
  st_Label  = stLabel,  /* label */
  st_Proc = stProc, /*     "      "  Procedure */
  st_Block  = stBlock,  /* beginning of block */
  st_End  = stEnd,  /* end (of anything) */
  st_Member = stMember, /* member (of anything  - struct/union/enum */
  st_Typedef  = stTypedef,  /* type definition */
  st_File = stFile, /* file name */
  st_RegReloc = stRegReloc, /* register relocation */
  st_Forward  = stForward,  /* forwarding address */
  st_StaticProc = stStaticProc, /* load time only static procs */
  st_StaParam = stStaParam, /* Fortran static parameters */
  st_Constant = stConstant, /* const */
#ifdef stStruct
  st_Struct = stStruct, /* struct */
  st_Union  = stUnion,  /* union */
  st_Enum = stEnum, /* enum */
#endif
  st_Str  = stStr,  /* string */
  st_Number = stNumber, /* pure number (i.e. 4 NOR 2+2) */
  st_Expr = stExpr, /* 2+2 vs. 4 */
  st_Type = stType, /* post-coercion SER */
  st_Max  = stMax   /* max type+1 */
} st_t;

/* Redefinition of type qualifiers.  */

typedef enum tq {
  tq_Nil  = tqNil,  /* bt is what you see */
  tq_Ptr  = tqPtr,  /* pointer */
  tq_Proc = tqProc, /* procedure */
  tq_Array  = tqArray,  /* duh */
  tq_Far  = tqFar,  /* longer addressing - 8086/8 land */
  tq_Vol  = tqVol,  /* volatile */
  tq_Max  = tqMax   /* Max type qualifier+1 */
} tq_t;

/* Redefinition of basic types.  */

typedef enum bt {
  bt_Nil  = btNil,  /* undefined */
  bt_Adr  = btAdr,  /* address - integer same size as pointer */
  bt_Char = btChar, /* character */
  bt_UChar  = btUChar,  /* unsigned character */
  bt_Short  = btShort,  /* short */
  bt_UShort = btUShort, /* unsigned short */
  bt_Int  = btInt,  /* int */
  bt_UInt = btUInt, /* unsigned int */
  bt_Long = btLong, /* long */
  bt_ULong  = btULong,  /* unsigned long */
  bt_Float  = btFloat,  /* float (real) */
  bt_Double = btDouble, /* Double (real) */
  bt_Struct = btStruct, /* Structure (Record) */
  bt_Union  = btUnion,  /* Union (variant) */
  bt_Enum = btEnum, /* Enumerated */
  bt_Typedef  = btTypedef,  /* defined via a typedef, isymRef points */
  bt_Range  = btRange,  /* subrange of int */
  bt_Set  = btSet,  /* pascal sets */
  bt_Complex  = btComplex,  /* fortran complex */
  bt_DComplex = btDComplex, /* fortran double complex */
  bt_Indirect = btIndirect, /* forward or unnamed typedef */
  bt_FixedDec = btFixedDec, /* Fixed Decimal */
  bt_FloatDec = btFloatDec, /* Float Decimal */
  bt_String = btString, /* Varying Length Character String */
  bt_Bit  = btBit,  /* Aligned Bit String */
  bt_Picture  = btPicture,  /* Picture */
  bt_Void = btVoid, /* void */
  bt_Max  = btMax   /* Max basic type+1 */
} bt_t;

/* Redefinition of the language codes.  */

typedef enum lang {
  lang_C   = langC,
  lang_Pascal  = langPascal,
  lang_Fortran   = langFortran,
  lang_Assembler = langAssembler,
  lang_Machine   = langMachine,
  lang_Nil   = langNil,
  lang_Ada   = langAda,
  lang_Pl1   = langPl1,
  lang_Cobol   = langCobol
} lang_t;

/* Redefinition of the debug level codes.  */

typedef enum glevel {
  glevel_0  = GLEVEL_0,
  glevel_1  = GLEVEL_1,
  glevel_2  = GLEVEL_2,
  glevel_3  = GLEVEL_3
} glevel_t;


/* Keep track of the active scopes.  */
typedef struct scope {
  struct scope *prev;   /* previous scope */
  ulong open_sym;   /* symbol opening scope */
  sc_t sc;      /* storage class */
  st_t st;      /* symbol type */
} scope_t;

struct filehdr global_hdr;  /* a.out header */

int  errors   = 0;  /* # of errors */
int  want_aux = 0;  /* print aux table */
int  want_line  = 0;  /* print line numbers */
int  want_rfd = 0;  /* print relative file desc's */
int  want_scope = 0;  /* print scopes for every symbol */
int  tfile    = 0;  /* no global header file */
int  version  = 0;    /* print version # */
int  verbose  = 0;
int  tfile_fd;    /* file descriptor of .T file */
off_t  tfile_offset;    /* current offset in .T file */
scope_t *cur_scope  = 0;  /* list of active scopes */
scope_t *free_scope = 0;  /* list of freed scopes */
HDRR   sym_hdr;   /* symbolic header */
char  *l_strings;   /* local strings */
char  *e_strings;   /* external strings */
SYMR  *l_symbols;   /* local symbols */
EXTR  *e_symbols;   /* external symbols */
LINER *lines;     /* line numbers */
DNR *dense_nums;    /* dense numbers */
OPTR  *opt_symbols;   /* optimization symbols */
AUXU  *aux_symbols;   /* Auxiliary symbols */
char  *aux_used;    /* map of which aux syms are used */
FDR *file_desc;   /* file tables */
ulong *rfile_desc;    /* relative file tables */
PDR *proc_desc;   /* procedure tables */

/* Forward reference for functions.  */
static void *read_seek (void *, size_t, off_t, const char *);
static void read_tfile (void);
static void print_global_hdr (struct filehdr *);
static void print_sym_hdr (HDRR *);
static void print_file_desc (FDR *, int);
static void print_symbol (SYMR *, int, const char *, AUXU *, int, FDR *);
static void print_aux (AUXU, int, int);
static void emit_aggregate (char *, AUXU, AUXU, const char *, FDR *);
static const char *st_to_string (st_t);
static const char *sc_to_string (sc_t);
static const char *glevel_to_string (glevel_t);
static const char *lang_to_string (lang_t);
static const char *type_to_string (AUXU *, int, FDR *);

extern char *optarg;
extern int   optind;
extern int   opterr;

/* Create a table of debugging stab-codes and corresponding names.  */

#define __define_stab(NAME, CODE, STRING) {(int)CODE, STRING},
const struct {const short code; const char string[10];} stab_names[]  = {
#include "stab.def"
#undef __define_stab
};

/* Command line options for getopt_long.  */

static const struct option options[] =
{
  { "version", 0, 0, 'V' },
  { "verbose", 0, 0, 'v' },
  { 0, 0, 0, 0 }
};

/* Read some bytes at a specified location, and return a pointer.
   Read_seek takes a pointer PTR to a buffer or NULL and reads SIZE
   bytes from offset OFFSET.  In case of errors CONTEXT is used as
   error message.  */

static void *
read_seek (void *ptr, size_t size, off_t offset,  const char *context)
{
  long read_size = 0;

  if (size == 0)    /* nothing to read */
    return ptr;

  if (!ptr)
    ptr = xmalloc (size);

  if ((tfile_offset != offset && lseek (tfile_fd, offset, 0) == -1)
      || (read_size = read (tfile_fd, ptr, size)) < 0)
    {
      perror (context);
      exit (1);
    }

  if (read_size != (long) size)
    {
      fprintf (stderr, "%s: read %ld bytes, expected %ld bytes\n",
         context, read_size, (long) size);
      exit (1);
    }

  tfile_offset = offset + size;
  return ptr;
}


/* Convert language code to string format.  */

static const char *
lang_to_string (lang_t lang)
{
  switch (lang)
    {
    case langC:   return "C";
    case langPascal:  return "Pascal";
    case langFortran: return "Fortran";
    case langAssembler: return "Assembler";
    case langMachine: return "Machine";
    case langNil: return "Nil";
    case langAda: return "Ada";
    case langPl1: return "Pl1";
    case langCobol: return "Cobol";
    }

  return "Unknown language";
}


/* Convert storage class to string.  */

static const char *
sc_to_string (sc_t storage_class)
{
  switch(storage_class)
    {
    case sc_Nil:   return "Nil";
    case sc_Text:  return "Text";
    case sc_Data:  return "Data";
    case sc_Bss:   return "Bss";
    case sc_Register:  return "Register";
    case sc_Abs:   return "Abs";
    case sc_Undefined:   return "Undefined";
    case sc_CdbLocal:  return "CdbLocal";
    case sc_Bits:  return "Bits";
    case sc_CdbSystem:   return "CdbSystem";
    case sc_RegImage:  return "RegImage";
    case sc_Info:  return "Info";
    case sc_UserStruct:  return "UserStruct";
    case sc_SData:   return "SData";
    case sc_SBss:  return "SBss";
    case sc_RData:   return "RData";
    case sc_Var:   return "Var";
    case sc_Common:  return "Common";
    case sc_SCommon:   return "SCommon";
    case sc_VarRegister: return "VarRegister";
    case sc_Variant:   return "Variant";
    case sc_SUndefined:  return "SUndefined";
    case sc_Init:  return "Init";
    case sc_Max:   return "Max";
    }

  return "???";
}


/* Convert symbol type to string.  */

static const char *
st_to_string (st_t symbol_type)
{
  switch(symbol_type)
    {
    case st_Nil:  return "Nil";
    case st_Global: return "Global";
    case st_Static: return "Static";
    case st_Param:  return "Param";
    case st_Local:  return "Local";
    case st_Label:  return "Label";
    case st_Proc: return "Proc";
    case st_Block:  return "Block";
    case st_End:  return "End";
    case st_Member: return "Member";
    case st_Typedef:  return "Typedef";
    case st_File: return "File";
    case st_RegReloc: return "RegReloc";
    case st_Forward:  return "Forward";
    case st_StaticProc: return "StaticProc";
    case st_Constant: return "Constant";
    case st_StaParam: return "StaticParam";
#ifdef stStruct
    case st_Struct: return "Struct";
    case st_Union:  return "Union";
    case st_Enum: return "Enum";
#endif
    case st_Str:  return "String";
    case st_Number: return "Number";
    case st_Expr: return "Expr";
    case st_Type: return "Type";
    case st_Max:  return "Max";
    }

  return "???";
}


/* Convert debug level to string.  */

static const char *
glevel_to_string (glevel_t g_level)
{
  switch(g_level)
    {
    case GLEVEL_0: return "G0";
    case GLEVEL_1: return "G1";
    case GLEVEL_2: return "G2";
    case GLEVEL_3: return "G3";
    }

  return "??";
}


/* Convert the type information to string format.  */

static const char *
type_to_string (AUXU *aux_ptr, int index, FDR *fdp)
{
  AUXU u;
  struct qual {
    tq_t type;
    int  low_bound;
    int  high_bound;
    int  stride;
  } qualifiers[7];

  bt_t basic_type;
  int i;
  static char buffer1[1024];
  static char buffer2[1024];
  char *p1 = buffer1;
  char *p2 = buffer2;
  char *used_ptr = aux_used + (aux_ptr - aux_symbols);

  for (i = 0; i < 7; i++)
    {
      qualifiers[i].low_bound = 0;
      qualifiers[i].high_bound = 0;
      qualifiers[i].stride = 0;
    }

  used_ptr[index] = 1;
  u = aux_ptr[index++];
  if (u.isym == -1)
    return "-1 (no type)";

  basic_type = (bt_t) u.ti.bt;
  qualifiers[0].type = (tq_t) u.ti.tq0;
  qualifiers[1].type = (tq_t) u.ti.tq1;
  qualifiers[2].type = (tq_t) u.ti.tq2;
  qualifiers[3].type = (tq_t) u.ti.tq3;
  qualifiers[4].type = (tq_t) u.ti.tq4;
  qualifiers[5].type = (tq_t) u.ti.tq5;
  qualifiers[6].type = tq_Nil;

  /*
   * Go get the basic type.
   */
  switch (basic_type)
    {
    case bt_Nil:    /* undefined */
      strcpy (p1, "nil");
      break;

    case bt_Adr:    /* address - integer same size as pointer */
      strcpy (p1, "address");
      break;

    case bt_Char:   /* character */
      strcpy (p1, "char");
      break;

    case bt_UChar:    /* unsigned character */
      strcpy (p1, "unsigned char");
      break;

    case bt_Short:    /* short */
      strcpy (p1, "short");
      break;

    case bt_UShort:   /* unsigned short */
      strcpy (p1, "unsigned short");
      break;

    case bt_Int:    /* int */
      strcpy (p1, "int");
      break;

    case bt_UInt:   /* unsigned int */
      strcpy (p1, "unsigned int");
      break;

    case bt_Long:   /* long */
      strcpy (p1, "long");
      break;

    case bt_ULong:    /* unsigned long */
      strcpy (p1, "unsigned long");
      break;

    case bt_Float:    /* float (real) */
      strcpy (p1, "float");
      break;

    case bt_Double:   /* Double (real) */
      strcpy (p1, "double");
      break;

      /* Structures add 1-2 aux words:
   1st word is [ST_RFDESCAPE, offset] pointer to struct def;
   2nd word is file index if 1st word rfd is ST_RFDESCAPE.  */

    case bt_Struct:   /* Structure (Record) */
      emit_aggregate (p1, aux_ptr[index], aux_ptr[index+1], "struct", fdp);
      used_ptr[index] = 1;
      if (aux_ptr[index].rndx.rfd == ST_RFDESCAPE)
  used_ptr[++index] = 1;

      index++;      /* skip aux words */
      break;

      /* Unions add 1-2 aux words:
   1st word is [ST_RFDESCAPE, offset] pointer to union def;
   2nd word is file index if 1st word rfd is ST_RFDESCAPE.  */

    case bt_Union:    /* Union */
      emit_aggregate (p1, aux_ptr[index], aux_ptr[index+1], "union", fdp);
      used_ptr[index] = 1;
      if (aux_ptr[index].rndx.rfd == ST_RFDESCAPE)
  used_ptr[++index] = 1;

      index++;      /* skip aux words */
      break;

      /* Enumerations add 1-2 aux words:
   1st word is [ST_RFDESCAPE, offset] pointer to enum def;
   2nd word is file index if 1st word rfd is ST_RFDESCAPE.  */

    case bt_Enum:   /* Enumeration */
      emit_aggregate (p1, aux_ptr[index], aux_ptr[index+1], "enum", fdp);
      used_ptr[index] = 1;
      if (aux_ptr[index].rndx.rfd == ST_RFDESCAPE)
  used_ptr[++index] = 1;

      index++;      /* skip aux words */
      break;

    case bt_Typedef:    /* defined via a typedef, isymRef points */
      strcpy (p1, "typedef");
      break;

    case bt_Range:    /* subrange of int */
      strcpy (p1, "subrange");
      break;

    case bt_Set:    /* pascal sets */
      strcpy (p1, "set");
      break;

    case bt_Complex:    /* fortran complex */
      strcpy (p1, "complex");
      break;

    case bt_DComplex:   /* fortran double complex */
      strcpy (p1, "double complex");
      break;

    case bt_Indirect:   /* forward or unnamed typedef */
      strcpy (p1, "forward/unnamed typedef");
      break;

    case bt_FixedDec:   /* Fixed Decimal */
      strcpy (p1, "fixed decimal");
      break;

    case bt_FloatDec:   /* Float Decimal */
      strcpy (p1, "float decimal");
      break;

    case bt_String:   /* Varying Length Character String */
      strcpy (p1, "string");
      break;

    case bt_Bit:    /* Aligned Bit String */
      strcpy (p1, "bit");
      break;

    case bt_Picture:    /* Picture */
      strcpy (p1, "picture");
      break;

    case bt_Void:   /* Void */
      strcpy (p1, "void");
      break;

    default:
      sprintf (p1, "Unknown basic type %d", (int) basic_type);
      break;
    }

  p1 += strlen (buffer1);

  /*
   * If this is a bitfield, get the bitsize.
   */
  if (u.ti.fBitfield)
    {
      int bitsize;

      used_ptr[index] = 1;
      bitsize = aux_ptr[index++].width;
      sprintf (p1, " : %d", bitsize);
      p1 += strlen (buffer1);
    }


  /*
   * Deal with any qualifiers.
   */
  if (qualifiers[0].type != tq_Nil)
    {
      /*
       * Snarf up any array bounds in the correct order.  Arrays
       * store 5 successive words in the aux. table:
       *  word 0  RNDXR to type of the bounds (i.e., int)
       *  word 1  Current file descriptor index
       *  word 2  low bound
       *  word 3  high bound (or -1 if [])
       *  word 4  stride size in bits
       */
      for (i = 0; i < 7; i++)
  {
    if (qualifiers[i].type == tq_Array)
      {
        qualifiers[i].low_bound  = aux_ptr[index+2].dnLow;
        qualifiers[i].high_bound = aux_ptr[index+3].dnHigh;
        qualifiers[i].stride     = aux_ptr[index+4].width;
        used_ptr[index] = 1;
        used_ptr[index+1] = 1;
        used_ptr[index+2] = 1;
        used_ptr[index+3] = 1;
        used_ptr[index+4] = 1;
        index += 5;
      }
  }

      /*
       * Now print out the qualifiers.
       */
      for (i = 0; i < 6; i++)
  {
    switch (qualifiers[i].type)
      {
      case tq_Nil:
      case tq_Max:
        break;

      case tq_Ptr:
        strcpy (p2, "ptr to ");
        p2 += sizeof ("ptr to ")-1;
        break;

      case tq_Vol:
        strcpy (p2, "volatile ");
        p2 += sizeof ("volatile ")-1;
        break;

      case tq_Far:
        strcpy (p2, "far ");
        p2 += sizeof ("far ")-1;
        break;

      case tq_Proc:
        strcpy (p2, "func. ret. ");
        p2 += sizeof ("func. ret. ");
        break;

      case tq_Array:
        {
    int first_array = i;
    int j;

    /* Print array bounds reversed (i.e., in the order the C
       programmer writes them).  C is such a fun language....  */

    while (i < 5 && qualifiers[i+1].type == tq_Array)
      i++;

    for (j = i; j >= first_array; j--)
      {
        strcpy (p2, "array [");
        p2 += sizeof ("array [")-1;
        if (qualifiers[j].low_bound != 0)
          sprintf (p2,
             "%ld:%ld {%ld bits}",
             (long) qualifiers[j].low_bound,
             (long) qualifiers[j].high_bound,
             (long) qualifiers[j].stride);

        else if (qualifiers[j].high_bound != -1)
          sprintf (p2,
             "%ld {%ld bits}",
             (long) (qualifiers[j].high_bound + 1),
             (long) (qualifiers[j].stride));

        else
          sprintf (p2, " {%ld bits}", (long) (qualifiers[j].stride));

        p2 += strlen (p2);
        strcpy (p2, "] of ");
        p2 += sizeof ("] of ")-1;
      }
        }
        break;
      }
  }
    }

  strcpy (p2, buffer1);
  return buffer2;
}


/* Print out the global file header for object files.  */

static void
print_global_hdr (struct filehdr *ptr)
{
  char *time = ctime ((time_t *)&ptr->f_timdat);
  ushort flags = ptr->f_flags;

  printf("Global file header:\n");
  printf("    %-*s 0x%x\n",    24, "magic number",       (ushort) ptr->f_magic);
  printf("    %-*s %d\n",      24, "# sections",       (int)    ptr->f_nscns);
  printf("    %-*s %ld, %s",   24, "timestamp",        (long)   ptr->f_timdat, time);
  printf("    %-*s %ld\n",     24, "symbolic header offset", (long)   ptr->f_symptr);
  printf("    %-*s %ld\n",     24, "symbolic header size",   (long)   ptr->f_nsyms);
  printf("    %-*s %ld\n",     24, "optional header",      (long)   ptr->f_opthdr);
  printf("    %-*s 0x%x",     24, "flags",         (ushort) flags);

  if ((flags & F_RELFLG) != 0)
    printf (", F_RELFLG");

  if ((flags & F_EXEC) != 0)
    printf (", F_EXEC");

  if ((flags & F_LNNO) != 0)
    printf (", F_LNNO");

  if ((flags & F_LSYMS) != 0)
    printf (", F_LSYMS");

  if ((flags & F_MINMAL) != 0)
    printf (", F_MINMAL");

  if ((flags & F_UPDATE) != 0)
    printf (", F_UPDATE");

  if ((flags & F_SWABD) != 0)
    printf (", F_SWABD");

  if ((flags & F_AR16WR) != 0)
    printf (", F_AR16WR");

  if ((flags & F_AR32WR) != 0)
    printf (", F_AR32WR");

  if ((flags & F_AR32W) != 0)
    printf (", F_AR32W");

  if ((flags & F_PATCH) != 0)
    printf (", F_PATCH/F_NODF");

  printf ("\n\n");
}


/* Print out the symbolic header.  */

static void
print_sym_hdr (HDRR *sym_ptr)
{
  int width = 20;

  printf("Symbolic header, magic number = 0x%04x, vstamp = %d.%d:\n\n",
   sym_ptr->magic & 0xffff,
   (sym_ptr->vstamp & 0xffff) >> 8,
   sym_ptr->vstamp & 0xff);

  printf("    %-*s %11s %11s %11s\n", width, "Info", "Offset", "Number", "Bytes");
  printf("    %-*s %11s %11s %11s\n", width, "====", "======", "======", "=====\n");

  printf("    %-*s %11ld %11ld %11ld [%d]\n", width, "Line numbers",
   (long) sym_ptr->cbLineOffset,
   (long) sym_ptr->cbLine,
   (long) sym_ptr->cbLine,
   (int) sym_ptr->ilineMax);

  printf("    %-*s %11ld %11ld %11ld\n", width, "Dense numbers",
   (long) sym_ptr->cbDnOffset,
   (long) sym_ptr->idnMax,
   (long) (sym_ptr->idnMax * sizeof (DNR)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "Procedures Tables",
   (long) sym_ptr->cbPdOffset,
   (long) sym_ptr->ipdMax,
   (long) (sym_ptr->ipdMax * sizeof (PDR)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "Local Symbols",
   (long) sym_ptr->cbSymOffset,
   (long) sym_ptr->isymMax,
   (long) (sym_ptr->isymMax * sizeof (SYMR)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "Optimization Symbols",
   (long) sym_ptr->cbOptOffset,
   (long) sym_ptr->ioptMax,
   (long) (sym_ptr->ioptMax * sizeof (OPTR)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "Auxiliary Symbols",
   (long) sym_ptr->cbAuxOffset,
   (long) sym_ptr->iauxMax,
   (long) (sym_ptr->iauxMax * sizeof (AUXU)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "Local Strings",
   (long) sym_ptr->cbSsOffset,
   (long) sym_ptr->issMax,
   (long) sym_ptr->issMax);

  printf("    %-*s %11ld %11ld %11ld\n", width, "External Strings",
   (long) sym_ptr->cbSsExtOffset,
   (long) sym_ptr->issExtMax,
   (long) sym_ptr->issExtMax);

  printf("    %-*s %11ld %11ld %11ld\n", width, "File Tables",
   (long) sym_ptr->cbFdOffset,
   (long) sym_ptr->ifdMax,
   (long) (sym_ptr->ifdMax * sizeof (FDR)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "Relative Files",
   (long) sym_ptr->cbRfdOffset,
   (long) sym_ptr->crfd,
   (long) (sym_ptr->crfd * sizeof (ulong)));

  printf("    %-*s %11ld %11ld %11ld\n", width, "External Symbols",
   (long) sym_ptr->cbExtOffset,
   (long) sym_ptr->iextMax,
   (long) (sym_ptr->iextMax * sizeof (EXTR)));
}


/* Print out a symbol.  */

static void
print_symbol (SYMR *sym_ptr, int number, const char *strbase, AUXU *aux_base,
        int ifd, FDR *fdp)
{
  sc_t storage_class = (sc_t) sym_ptr->sc;
  st_t symbol_type   = (st_t) sym_ptr->st;
  ulong index      = sym_ptr->index;
  char *used_ptr     = aux_used + (aux_base - aux_symbols);
  scope_t *scope_ptr;

  printf ("\n    Symbol# %d: \"%s\"\n", number, sym_ptr->iss + strbase);

  if (aux_base != (AUXU *) 0 && index != indexNil)
    switch (symbol_type)
      {
      case st_Nil:
      case st_Label:
  break;

      case st_File:
      case st_Block:
  printf ("      End+1 symbol: %ld\n", index);
  if (want_scope)
    {
      if (free_scope == (scope_t *) 0)
        scope_ptr = xmalloc (sizeof (scope_t));
      else
        {
    scope_ptr = free_scope;
    free_scope = scope_ptr->prev;
        }
      scope_ptr->open_sym = number;
      scope_ptr->st = symbol_type;
      scope_ptr->sc = storage_class;
      scope_ptr->prev = cur_scope;
      cur_scope = scope_ptr;
    }
  break;

      case st_End:
  if (storage_class == sc_Text || storage_class == sc_Info)
    printf ("      First symbol: %ld\n", index);
  else
    {
      used_ptr[index] = 1;
      printf ("      First symbol: %ld\n", (long) aux_base[index].isym);
    }

  if (want_scope)
    {
      if (cur_scope == (scope_t *) 0)
        printf ("      Can't pop end scope\n");
      else
        {
    scope_ptr = cur_scope;
    cur_scope = scope_ptr->prev;
    scope_ptr->prev = free_scope;
    free_scope = scope_ptr;
        }
    }
  break;

      case st_Proc:
      case st_StaticProc:
  if (MIPS_IS_STAB(sym_ptr))
    ;
  else if (ifd == -1)   /* local symbol */
    {
      used_ptr[index] = used_ptr[index+1] = 1;
      printf ("      End+1 symbol: %-7ld   Type:  %s\n",
        (long) aux_base[index].isym,
        type_to_string (aux_base, index+1, fdp));
    }
  else      /* global symbol */
    printf ("      Local symbol: %ld\n", index);

  if (want_scope)
    {
      if (free_scope == (scope_t *) 0)
        scope_ptr = xmalloc (sizeof (scope_t));
      else
        {
    scope_ptr = free_scope;
    free_scope = scope_ptr->prev;
        }
      scope_ptr->open_sym = number;
      scope_ptr->st = symbol_type;
      scope_ptr->sc = storage_class;
      scope_ptr->prev = cur_scope;
      cur_scope = scope_ptr;
    }
  break;

#ifdef stStruct
      case st_Struct:
      case st_Union:
      case st_Enum:
  printf ("      End+1 symbol: %lu\n", index);
  break;
#endif

      default:
  if (!MIPS_IS_STAB (sym_ptr))
    {
      used_ptr[index] = 1;
      printf ("      Type: %s\n",
        type_to_string (aux_base, index, fdp));
    }
  break;
      }

  if (want_scope)
    {
      printf ("      Scopes:  ");
      if (cur_scope == (scope_t *) 0)
  printf (" none\n");
      else
  {
    for (scope_ptr = cur_scope;
         scope_ptr != (scope_t *) 0;
         scope_ptr = scope_ptr->prev)
      {
        const char *class;
        if (scope_ptr->st == st_Proc || scope_ptr->st == st_StaticProc)
    class = "func.";
        else if (scope_ptr->st == st_File)
    class = "file";
        else if (scope_ptr->st == st_Block && scope_ptr->sc == sc_Text)
    class = "block";
        else if (scope_ptr->st == st_Block && scope_ptr->sc == sc_Info)
    class = "type";
        else
    class = "???";

        printf (" %ld [%s]", scope_ptr->open_sym, class);
      }
    printf ("\n");
  }
    }

  printf ("      Value: %-13ld    ",
    (long)sym_ptr->value);
  if (ifd == -1)
    printf ("String index: %ld\n", (long)sym_ptr->iss);
  else
    printf ("String index: %-11ld Ifd: %d\n",
      (long)sym_ptr->iss, ifd);

  printf ("      Symbol type: %-11sStorage class: %-11s",
    st_to_string (symbol_type), sc_to_string (storage_class));

  if (MIPS_IS_STAB(sym_ptr))
    {
      int i = ARRAY_SIZE (stab_names);
      const char *stab_name = "stab";
      short code = MIPS_UNMARK_STAB(sym_ptr->index);

      while (--i >= 0)
  if (stab_names[i].code == code)
    {
      stab_name = stab_names[i].string;
      break;
    }
      printf ("Index: 0x%lx (%s)\n", (long)sym_ptr->index, stab_name);
    }
  else if (sym_ptr->st == stLabel && sym_ptr->index != indexNil)
    printf ("Index: %ld (line#)\n", (long)sym_ptr->index);
  else
    printf ("Index: %ld\n", (long)sym_ptr->index);

}


/* Print out a word from the aux. table in various formats.  */

static void
print_aux (AUXU u, int auxi, int used)
{
  printf ("\t%s#%-5d %11ld, [%4ld/%7ld], [%2d %1d:%1d %1x:%1x:%1x:%1x:%1x:%1x]\n",
    (used) ? "  " : "* ",
    auxi,
    (long) u.isym,
    (long) u.rndx.rfd,
    (long) u.rndx.index,
    u.ti.bt,
    u.ti.fBitfield,
    u.ti.continued,
    u.ti.tq0,
    u.ti.tq1,
    u.ti.tq2,
    u.ti.tq3,
    u.ti.tq4,
    u.ti.tq5);
}


/* Write aggregate information to a string.  */

static void
emit_aggregate (char *string, AUXU u, AUXU u2, const char *which, FDR *fdp)
{
  unsigned int ifd = u.rndx.rfd;
  unsigned int index = u.rndx.index;
  const char *name;

  if (ifd == ST_RFDESCAPE)
    ifd = u2.isym;

  /* An ifd of -1 is an opaque type.  An escaped index of 0 is a
     struct return type of a procedure compiled without -g.  */
  if (ifd == 0xffffffff
      || (u.rndx.rfd == ST_RFDESCAPE && index == 0))
    name = "<undefined>";
  else if (index == indexNil)
    name = "<no name>";
  else
    {
      if (fdp == 0 || sym_hdr.crfd == 0)
  fdp = &file_desc[ifd];
      else
  fdp = &file_desc[rfile_desc[fdp->rfdBase + ifd]];
      name = &l_strings[fdp->issBase + l_symbols[index + fdp->isymBase].iss];
    }

  sprintf (string,
     "%s %s { ifd = %u, index = %u }",
     which, name, ifd, index);
}


/* Print out information about a file descriptor, and the symbols,
   procedures, and line numbers within it.  */

static void
print_file_desc (FDR *fdp, int number)
{
  char *str_base;
  AUXU *aux_base;
  int symi, pdi;
  int width = 20;
  char *used_base;

  str_base = l_strings + fdp->issBase;
  aux_base = aux_symbols + fdp->iauxBase;
  used_base = aux_used + (aux_base - aux_symbols);

  printf ("\nFile #%d, \"%s\"\n\n",
    number,
    fdp->rss != issNil ? str_base + fdp->rss : "<unknown>");

  printf ("    Name index  = %-10ld Readin      = %s\n",
    (long) fdp->rss, (fdp->fReadin) ? "Yes" : "No");

  printf ("    Merge       = %-10s Endian      = %s\n",
    (fdp->fMerge)  ? "Yes" : "No",
    (fdp->fBigendian) ? "BIG" : "LITTLE");

  printf ("    Debug level = %-10s Language    = %s\n",
    glevel_to_string (fdp->glevel),
    lang_to_string((lang_t) fdp->lang));

  printf ("    Adr         = 0x%08lx\n\n", (long) fdp->adr);

  printf("    %-*s %11s %11s %11s %11s\n", width, "Info", "Start", "Number", "Size", "Offset");
  printf("    %-*s %11s %11s %11s %11s\n", width, "====", "=====", "======", "====", "======");

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Local strings",
   (ulong) fdp->issBase,
   (ulong) fdp->cbSs,
   (ulong) fdp->cbSs,
   (ulong) (fdp->issBase + sym_hdr.cbSsOffset));

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Local symbols",
   (ulong) fdp->isymBase,
   (ulong) fdp->csym,
   (ulong) (fdp->csym * sizeof (SYMR)),
   (ulong) (fdp->isymBase * sizeof (SYMR) + sym_hdr.cbSymOffset));

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Line numbers",
   (ulong) fdp->cbLineOffset,
   (ulong) fdp->cline,
   (ulong) fdp->cbLine,
   (ulong) (fdp->cbLineOffset + sym_hdr.cbLineOffset));

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Optimization symbols",
   (ulong) fdp->ioptBase,
   (ulong) fdp->copt,
   (ulong) (fdp->copt * sizeof (OPTR)),
   (ulong) (fdp->ioptBase * sizeof (OPTR) + sym_hdr.cbOptOffset));

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Procedures",
   (ulong) fdp->ipdFirst,
   (ulong) fdp->cpd,
   (ulong) (fdp->cpd * sizeof (PDR)),
   (ulong) (fdp->ipdFirst * sizeof (PDR) + sym_hdr.cbPdOffset));

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Auxiliary symbols",
   (ulong) fdp->iauxBase,
   (ulong) fdp->caux,
   (ulong) (fdp->caux * sizeof (AUXU)),
   (ulong) (fdp->iauxBase * sizeof(AUXU) + sym_hdr.cbAuxOffset));

  printf("    %-*s %11lu %11lu %11lu %11lu\n",
   width, "Relative Files",
   (ulong) fdp->rfdBase,
   (ulong) fdp->crfd,
   (ulong) (fdp->crfd * sizeof (ulong)),
   (ulong) (fdp->rfdBase * sizeof(ulong) + sym_hdr.cbRfdOffset));


  if (want_scope && cur_scope != (scope_t *) 0)
    printf ("\n    Warning scope does not start at 0!\n");

  /*
   * print the info about the symbol table.
   */
  printf ("\n    There are %lu local symbols, starting at %lu\n",
    (ulong) fdp->csym,
    (ulong) (fdp->isymBase + sym_hdr.cbSymOffset));

  for(symi = fdp->isymBase; symi < (fdp->csym + fdp->isymBase); symi++)
    print_symbol (&l_symbols[symi],
      symi - fdp->isymBase,
      str_base,
      aux_base,
      -1,
      fdp);

  if (want_scope && cur_scope != (scope_t *) 0)
    printf ("\n    Warning scope does not end at 0!\n");

  /*
   * print the aux. table if desired.
   */

  if (want_aux && fdp->caux != 0)
    {
      int auxi;

      printf ("\n    There are %lu auxiliary table entries, starting at %lu.\n\n",
        (ulong) fdp->caux,
        (ulong) (fdp->iauxBase + sym_hdr.cbAuxOffset));

      for (auxi = fdp->iauxBase; auxi < (fdp->caux + fdp->iauxBase); auxi++)
  print_aux (aux_base[auxi], auxi, used_base[auxi]);
    }

  /*
   * print the relative file descriptors.
   */
  if (want_rfd && fdp->crfd != 0)
    {
      ulong *rfd_ptr, i;

      printf ("\n    There are %lu relative file descriptors, starting at %lu.\n",
        (ulong) fdp->crfd,
        (ulong) fdp->rfdBase);

      rfd_ptr = rfile_desc + fdp->rfdBase;
      for (i = 0; i < (ulong) fdp->crfd; i++)
  {
    printf ("\t#%-5ld %11ld, 0x%08lx\n", i, *rfd_ptr, *rfd_ptr);
    rfd_ptr++;
  }
    }

  /*
   * do the procedure descriptors.
   */
  printf ("\n    There are %lu procedure descriptor entries, ", (ulong) fdp->cpd);
  printf ("starting at %lu.\n", (ulong) fdp->ipdFirst);

  for (pdi = fdp->ipdFirst; pdi < (fdp->cpd + fdp->ipdFirst); pdi++)
    {
      PDR *proc_ptr = &proc_desc[pdi];
      printf ("\n\tProcedure descriptor %d:\n", (pdi - fdp->ipdFirst));

      if (l_symbols != 0)
  printf ("\t    Name index   = %-11ld Name          = \"%s\"\n",
    (long) l_symbols[proc_ptr->isym + fdp->isymBase].iss,
    l_symbols[proc_ptr->isym + fdp->isymBase].iss + str_base);

      printf ("\t    .mask 0x%08lx,%-9ld .fmask 0x%08lx,%ld\n",
        (long) proc_ptr->regmask,
        (long) proc_ptr->regoffset,
        (long) proc_ptr->fregmask,
        (long) proc_ptr->fregoffset);

      printf ("\t    .frame $%d,%ld,$%d\n",
        (int)  proc_ptr->framereg,
        (long) proc_ptr->frameoffset,
        (int)  proc_ptr->pcreg);

      printf ("\t    Opt. start   = %-11ld Symbols start = %ld\n",
        (long) proc_ptr->iopt,
        (long) proc_ptr->isym);

      printf ("\t    First line # = %-11ld Last line #   = %ld\n",
        (long) proc_ptr->lnLow,
        (long) proc_ptr->lnHigh);

      printf ("\t    Line Offset  = %-11ld Address       = 0x%08lx\n",
        (long) proc_ptr->cbLineOffset,
        (long) proc_ptr->adr);

      /*
       * print the line number entries.
       */

      if (want_line && fdp->cline != 0)
  {
    int delta, count;
    long cur_line = proc_ptr->lnLow;
    uchar *line_ptr = (((uchar *)lines) + proc_ptr->cbLineOffset
           + fdp->cbLineOffset);
    uchar *line_end;

    if (pdi == fdp->cpd + fdp->ipdFirst - 1)  /* last procedure */
      line_end = ((uchar *)lines) + fdp->cbLine + fdp->cbLineOffset;
    else            /* not last proc.  */
      line_end = (((uchar *)lines) + proc_desc[pdi+1].cbLineOffset
      + fdp->cbLineOffset);

    printf ("\n\tThere are %lu bytes holding line numbers, starting at %lu.\n",
      (ulong) (line_end - line_ptr),
      (ulong) (fdp->ilineBase + sym_hdr.cbLineOffset));

    while (line_ptr < line_end)
      {           /* sign extend nibble */
        delta = ((*line_ptr >> 4) ^ 0x8) - 0x8;
        count = (*line_ptr & 0xf) + 1;
        if (delta != -8)
    line_ptr++;
        else
    {
      delta = (((line_ptr[1]) & 0xff) << 8) + ((line_ptr[2]) & 0xff);
      delta = (delta ^ 0x8000) - 0x8000;
      line_ptr += 3;
    }

        cur_line += delta;
        printf ("\t    Line %11ld,   delta %5d,   count %2d\n",
          cur_line,
          delta,
          count);
      }
  }
    }
}


/* Read in the portions of the .T file that we will print out.  */

static void
read_tfile (void)
{
  short magic;
  off_t sym_hdr_offset = 0;

  read_seek (&magic, sizeof (magic), 0, "Magic number");
  if (!tfile)
    {
      /* Print out the global header, since this is not a T-file.  */

      read_seek (&global_hdr, sizeof (global_hdr), 0, "Global file header");

      print_global_hdr (&global_hdr);

      if (global_hdr.f_symptr == 0)
  {
    printf ("No symbolic header, Goodbye!\n");
    exit (1);
  }

      sym_hdr_offset = global_hdr.f_symptr;
    }

  read_seek (&sym_hdr, sizeof (sym_hdr), sym_hdr_offset, "Symbolic header");

  print_sym_hdr (&sym_hdr);

  lines = read_seek (NULL, sym_hdr.cbLine, sym_hdr.cbLineOffset,
         "Line numbers");

  dense_nums = read_seek (NULL, sym_hdr.idnMax * sizeof (DNR),
        sym_hdr.cbDnOffset, "Dense numbers");

  proc_desc = read_seek (NULL, sym_hdr.ipdMax * sizeof (PDR),
       sym_hdr.cbPdOffset, "Procedure tables");

  l_symbols = read_seek (NULL, sym_hdr.isymMax * sizeof (SYMR),
       sym_hdr.cbSymOffset, "Local symbols");

  opt_symbols = read_seek (NULL, sym_hdr.ioptMax * sizeof (OPTR),
         sym_hdr.cbOptOffset, "Optimization symbols");

  aux_symbols = read_seek (NULL, sym_hdr.iauxMax * sizeof (AUXU),
         sym_hdr.cbAuxOffset, "Auxiliary symbols");

  if (sym_hdr.iauxMax > 0)
    aux_used = xcalloc (sym_hdr.iauxMax, 1);

  l_strings = read_seek (NULL, sym_hdr.issMax,
       sym_hdr.cbSsOffset, "Local string table");

  e_strings = read_seek (NULL, sym_hdr.issExtMax,
       sym_hdr.cbSsExtOffset, "External string table");

  file_desc = read_seek (NULL, sym_hdr.ifdMax * sizeof (FDR),
       sym_hdr.cbFdOffset, "File tables");

  rfile_desc = read_seek (NULL, sym_hdr.crfd * sizeof (ulong),
        sym_hdr.cbRfdOffset, "Relative file tables");

  e_symbols = read_seek (NULL, sym_hdr.iextMax * sizeof (EXTR),
       sym_hdr.cbExtOffset, "External symbols");
}



extern int main (int, char **);

int
main (int argc, char **argv)
{
  int i, opt;

  /*
   * Process arguments
   */
  while ((opt = getopt_long (argc, argv, "alrsvt", options, NULL)) != -1)
    switch (opt)
      {
      default:  errors++; break;
      case 'a': want_aux++; break;  /* print aux table */
      case 'l': want_line++;  break;  /* print line numbers */
      case 'r': want_rfd++; break;  /* print relative fd's */
      case 's': want_scope++; break;  /* print scope info */
      case 'v': verbose++;  break;  /* print version # */
      case 'V': version++;  break;  /* print version # */
      case 't': tfile++;  break;  /* this is a tfile (without header),
             and not a .o */
      }

  if (version)
    {
      printf ("mips-tdump (GCC) %s\n", version_string);
      fputs ("Copyright (C) 2003 Free Software Foundation, Inc.\n", stdout);
      fputs ("This is free software; see the source for copying conditions.  There is NO\n\
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n",
             stdout);
      exit (0);
    }

  if (optind != argc - 1)
    errors++;

  if (verbose || errors)
    {
      fprintf (stderr, "mips-tdump (GCC) %s", version_string);
#ifdef TARGET_VERSION
      TARGET_VERSION;
#endif
      fputc ('\n', stderr);
    }

  if (errors)
    {
      fprintf (stderr, "Calling Sequence:\n");
      fprintf (stderr, "\t%s [-alrst] <object-or-T-file>\n", argv[0]);
      fprintf (stderr, "\n");
      fprintf (stderr, "switches:\n");
      fprintf (stderr, "\t-a Print out auxiliary table.\n");
      fprintf (stderr, "\t-l Print out line numbers.\n");
      fprintf (stderr, "\t-r Print out relative file descriptors.\n");
      fprintf (stderr, "\t-s Print out the current scopes for an item.\n");
      fprintf (stderr, "\t-t Assume there is no global header (ie, a T-file).\n");
      fprintf (stderr, "\t-v Print program version.\n");
      return 1;
    }

  /*
   * Open and process the input file.
   */
  tfile_fd = open (argv[optind], O_RDONLY);
  if (tfile_fd < 0)
    {
      perror (argv[optind]);
      return 1;
    }

  read_tfile ();

  /*
   * Print any global aux words if any.
   */
  if (want_aux)
    {
      long last_aux_in_use;

      if (sym_hdr.ifdMax != 0 && file_desc[0].iauxBase != 0)
  {
    printf ("\nGlobal auxiliary entries before first file:\n");
    for (i = 0; i < file_desc[0].iauxBase; i++)
      print_aux (aux_symbols[i], 0, aux_used[i]);
  }

      if (sym_hdr.ifdMax == 0)
  last_aux_in_use = 0;
      else
  last_aux_in_use
    = (file_desc[sym_hdr.ifdMax-1].iauxBase
       + file_desc[sym_hdr.ifdMax-1].caux - 1);

      if (last_aux_in_use < sym_hdr.iauxMax-1)
  {
    printf ("\nGlobal auxiliary entries after last file:\n");
    for (i = last_aux_in_use; i < sym_hdr.iauxMax; i++)
      print_aux (aux_symbols[i], i - last_aux_in_use, aux_used[i]);
  }
    }

  /*
   * Print the information for each file.
   */
  for (i = 0; i < sym_hdr.ifdMax; i++)
    print_file_desc (&file_desc[i], i);

  /*
   * Print the external symbols.
   */
  want_scope = 0;   /* scope info is meaning for extern symbols */
  printf ("\nThere are %lu external symbols, starting at %lu\n",
    (ulong) sym_hdr.iextMax,
    (ulong) sym_hdr.cbExtOffset);

  for(i = 0; i < sym_hdr.iextMax; i++)
    print_symbol (&e_symbols[i].asym, i, e_strings,
      aux_symbols + file_desc[e_symbols[i].ifd].iauxBase,
      e_symbols[i].ifd,
      &file_desc[e_symbols[i].ifd]);

  /*
   * Print unused aux symbols now.
   */

  if (want_aux)
    {
      int first_time = 1;

      for (i = 0; i < sym_hdr.iauxMax; i++)
  {
    if (! aux_used[i])
      {
        if (first_time)
    {
      printf ("\nThe following auxiliary table entries were unused:\n\n");
      first_time = 0;
    }

        printf ("    #%-5d %11ld  0x%08lx  %s\n",
          i,
          (long) aux_symbols[i].isym,
          (long) aux_symbols[i].isym,
          type_to_string (aux_symbols, i, (FDR *) 0));
      }
  }
    }

  return 0;
}

---