OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add alpha support.

Browse Source 
From-SVN: r4236
This commit is contained in:
Michael Meissner 1993-04-26 20:56:07 +00:00
parent a7ab3794a9
commit 3876db74dc
1 changed files with 58 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
gcc/mips-tdump.c
View File

@ -40,6 +40,20 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define ST_RFDESCAPE 0xfff
#endif
#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
#ifdef __STDC__
typedef void *PTR_T;
typedef const void *CPTR_T;
@ -223,6 +237,7 @@ 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 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 */
@ -256,10 +271,12 @@ char *glevel_to_string __proto((glevel_t));
char *lang_to_string __proto((lang_t));
char *type_to_string __proto((AUXU *, int));
#ifndef __alpha
extern PTR_T malloc __proto((size_t));
extern PTR_T calloc __proto((size_t, size_t));
extern PTR_T realloc __proto((PTR_T, size_t));
extern void free __proto((PTR_T));
#endif
extern char *ctime __proto((time_t *));
extern char *optarg;
@ -808,37 +825,60 @@ print_sym_hdr (sym_ptr)
printf(" %-*s %11s %11s %11s\n", width, "====", "======", "======", "=====\n");
printf(" %-*s %11ld %11d %11d [%d]\n", width, "Line numbers",
sym_ptr->cbLineOffset, sym_ptr->cbLine, sym_ptr->cbLine, sym_ptr->ilineMax);
(long)sym_ptr->cbLineOffset,
(long)sym_ptr->cbLine,
(long)sym_ptr->cbLine,
(int)sym_ptr->ilineMax);
printf(" %-*s %11ld %11d %11d\n", width, "Dense numbers",
sym_ptr->cbDnOffset, sym_ptr->idnMax, sym_ptr->idnMax * sizeof (DNR));
(long)sym_ptr->cbDnOffset,
(long)sym_ptr->idnMax,
(long)(sym_ptr->idnMax * sizeof (DNR)));
printf(" %-*s %11ld %11d %11d\n", width, "Procedures Tables",
sym_ptr->cbPdOffset, sym_ptr->ipdMax, sym_ptr->ipdMax * sizeof (PDR));
(long)sym_ptr->cbPdOffset,
(long)sym_ptr->ipdMax,
(long)(sym_ptr->ipdMax * sizeof (PDR)));
printf(" %-*s %11ld %11d %11d\n", width, "Local Symbols",
sym_ptr->cbSymOffset, sym_ptr->isymMax, sym_ptr->isymMax * sizeof (SYMR));
(long)sym_ptr->cbSymOffset,
(long)sym_ptr->isymMax,
(long)(sym_ptr->isymMax * sizeof (SYMR)));
printf(" %-*s %11ld %11d %11d\n", width, "Optimization Symbols",
sym_ptr->cbOptOffset, sym_ptr->ioptMax, sym_ptr->ioptMax * sizeof (OPTR));
(long)sym_ptr->cbOptOffset,
(long)sym_ptr->ioptMax,
(long)(sym_ptr->ioptMax * sizeof (OPTR)));
printf(" %-*s %11ld %11d %11d\n", width, "Auxiliary Symbols",
sym_ptr->cbAuxOffset, sym_ptr->iauxMax, sym_ptr->iauxMax * sizeof (AUXU));
(long)sym_ptr->cbAuxOffset,
(long)sym_ptr->iauxMax,
(long)(sym_ptr->iauxMax * sizeof (AUXU)));
printf(" %-*s %11ld %11d %11d\n", width, "Local Strings",
sym_ptr->cbSsOffset, sym_ptr->issMax, sym_ptr->issMax);
(long)sym_ptr->cbSsOffset,
(long)sym_ptr->issMax,
(long)sym_ptr->issMax);
printf(" %-*s %11ld %11d %11d\n", width, "External Strings",
sym_ptr->cbSsExtOffset, sym_ptr->issExtMax, sym_ptr->issExtMax);
(long)sym_ptr->cbSsExtOffset,
(long)sym_ptr->issExtMax,
(long)sym_ptr->issExtMax);
printf(" %-*s %11ld %11d %11d\n", width, "File Tables",
sym_ptr->cbFdOffset, sym_ptr->ifdMax, sym_ptr->ifdMax * sizeof (FDR));
(long)sym_ptr->cbFdOffset,
(long)sym_ptr->ifdMax,
(long)(sym_ptr->ifdMax * sizeof (FDR)));
printf(" %-*s %11ld %11d %11d\n", width, "Relative Files",
sym_ptr->cbRfdOffset, sym_ptr->crfd, sym_ptr->crfd * sizeof (ulong));
(long)sym_ptr->cbRfdOffset,
(long)sym_ptr->crfd,
(long)(sym_ptr->crfd * sizeof (ulong)));
printf(" %-*s %11ld %11d %11d\n", width, "External Symbols",
sym_ptr->cbExtOffset, sym_ptr->iextMax, sym_ptr->iextMax * sizeof (EXTR));
(long)sym_ptr->cbExtOffset,
(long)sym_ptr->iextMax,
(long)(sym_ptr->iextMax * sizeof (EXTR)));
}
@ -1303,12 +1343,11 @@ read_tfile __proto((void))
short magic;
off_t sym_hdr_offset = 0;
/* Determine if this is a .T file (which has no file header), or some
sort of object file (which does have a file header) via the magic
number. */
(void) read_seek ((PTR_T) &magic, sizeof (magic), (off_t)0, "Magic number");
if (magic == MIPSELMAGIC || magic == MIPSEBMAGIC)
if (!tfile)
{
/* Print out the global header, since this is not a T-file. */
(void) read_seek ((PTR_T) &global_hdr, sizeof (global_hdr), (off_t)0,
"Global file header");
@ -1408,7 +1447,7 @@ main (argc, argv)
/*
* Process arguments
*/
while ((opt = getopt (argc, argv, "alrs")) != EOF)
while ((opt = getopt (argc, argv, "alrst")) != EOF)
switch (opt)
{
default: errors++; break;
@ -1416,18 +1455,20 @@ main (argc, argv)
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 't': tfile++; break; /* this is a tfile (without header), and not a .o */
}
if (errors || optind != argc - 1)
{
fprintf (stderr, "Calling Sequence:\n");
fprintf (stderr, "\t%0 [-alrs] <object-or-T-file>\n", argv[0]);
fprintf (stderr, "\t%0 [-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");
return 1;
}