1999-05-03 09:29:11 +02:00
|
|
|
/* Sysroff object format dumper.
|
2015-01-01 15:15:26 +01:00
|
|
|
Copyright (C) 1994-2015 Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
This file is part of GNU Binutils.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-05 18:54:46 +02:00
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
1999-05-03 09:29:11 +02:00
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program 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 this program; if not, write to the Free Software
|
2005-05-08 16:17:41 +02:00
|
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
|
|
/* Written by Steve Chamberlain <sac@cygnus.com>.
|
|
|
|
|
|
|
|
This program reads a SYSROFF object file and prints it in an
|
2002-01-23 17:12:56 +01:00
|
|
|
almost human readable form to stdout. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2007-04-26 16:47:00 +02:00
|
|
|
#include "sysdep.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
#include "bfd.h"
|
2001-09-19 07:33:36 +02:00
|
|
|
#include "safe-ctype.h"
|
2002-05-25 14:51:38 +02:00
|
|
|
#include "libiberty.h"
|
|
|
|
#include "getopt.h"
|
2007-04-26 16:47:00 +02:00
|
|
|
#include "bucomm.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
#include "sysroff.h"
|
|
|
|
|
|
|
|
static int dump = 1;
|
|
|
|
static int segmented_p;
|
|
|
|
static int code;
|
|
|
|
static int addrsize = 4;
|
|
|
|
static FILE *file;
|
|
|
|
|
2003-09-14 14:20:17 +02:00
|
|
|
static void dh (unsigned char *, int);
|
|
|
|
static void itheader (char *, int);
|
|
|
|
static void p (void);
|
|
|
|
static void tabout (void);
|
|
|
|
static void pbarray (barray *);
|
|
|
|
static int getone (int);
|
|
|
|
static int opt (int);
|
|
|
|
static void must (int);
|
|
|
|
static void tab (int, char *);
|
|
|
|
static void dump_symbol_info (void);
|
|
|
|
static void derived_type (void);
|
|
|
|
static void module (void);
|
|
|
|
static void show_usage (FILE *, int);
|
|
|
|
|
|
|
|
extern int main (int, char **);
|
2001-08-21 12:02:27 +02:00
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static char *
|
2003-09-14 14:20:17 +02:00
|
|
|
getCHARS (unsigned char *ptr, int *idx, int size, int max)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int oc = *idx / 8;
|
|
|
|
char *r;
|
|
|
|
int b = size;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (b >= max)
|
2011-10-13 17:33:34 +02:00
|
|
|
return _("*undefined*");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
if (b == 0)
|
|
|
|
{
|
2015-01-08 14:52:42 +01:00
|
|
|
/* PR 17512: file: 13caced2. */
|
|
|
|
if (oc >= max)
|
|
|
|
return _("*corrupt*");
|
2002-01-23 17:12:56 +01:00
|
|
|
/* Got to work out the length of the string from self. */
|
1999-05-03 09:29:11 +02:00
|
|
|
b = ptr[oc++];
|
|
|
|
(*idx) += 8;
|
|
|
|
}
|
|
|
|
|
|
|
|
*idx += b * 8;
|
|
|
|
r = xcalloc (b + 1, 1);
|
|
|
|
memcpy (r, ptr + oc, b);
|
|
|
|
r[b] = 0;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
return r;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
dh (unsigned char *ptr, int size)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
int j;
|
|
|
|
int span = 16;
|
|
|
|
|
|
|
|
printf ("\n************************************************************\n");
|
|
|
|
|
|
|
|
for (i = 0; i < size; i += span)
|
|
|
|
{
|
|
|
|
for (j = 0; j < span; j++)
|
|
|
|
{
|
2002-05-24 02:33:36 +02:00
|
|
|
if (j + i < size)
|
1999-05-03 09:29:11 +02:00
|
|
|
printf ("%02x ", ptr[i + j]);
|
2002-05-24 02:33:36 +02:00
|
|
|
else
|
|
|
|
printf (" ");
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
for (j = 0; j < span && j + i < size; j++)
|
|
|
|
{
|
|
|
|
int c = ptr[i + j];
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (c < 32 || c > 127)
|
|
|
|
c = '.';
|
|
|
|
printf ("%c", c);
|
|
|
|
}
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
printf ("\n");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static int
|
2005-02-22 13:57:27 +01:00
|
|
|
fillup (unsigned char *ptr)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int size;
|
|
|
|
int sum;
|
|
|
|
int i;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
2007-10-15 04:00:56 +02:00
|
|
|
size = getc (file);
|
|
|
|
if (size == EOF
|
|
|
|
|| size <= 2)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
size -= 2;
|
|
|
|
if (fread (ptr, size, 1, file) != 1)
|
|
|
|
return 0;
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
sum = code + size + 2;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
for (i = 0; i < size; i++)
|
2002-01-23 17:12:56 +01:00
|
|
|
sum += ptr[i];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
if ((sum & 0xff) != 0xff)
|
2011-10-13 17:33:34 +02:00
|
|
|
printf (_("SUM IS %x\n"), sum);
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (dump)
|
|
|
|
dh (ptr, size);
|
|
|
|
|
2007-10-15 04:00:56 +02:00
|
|
|
return size;
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static barray
|
2003-09-14 14:20:17 +02:00
|
|
|
getBARRAY (unsigned char *ptr, int *idx, int dsize ATTRIBUTE_UNUSED,
|
|
|
|
int max ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
barray res;
|
|
|
|
int i;
|
|
|
|
int byte = *idx / 8;
|
|
|
|
int size = ptr[byte++];
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
res.len = size;
|
|
|
|
res.data = (unsigned char *) xmalloc (size);
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
for (i = 0; i < size; i++)
|
2002-01-23 17:12:56 +01:00
|
|
|
res.data[i] = ptr[byte++];
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
return res;
|
|
|
|
}
|
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static int
|
2003-09-14 14:20:17 +02:00
|
|
|
getINT (unsigned char *ptr, int *idx, int size, int max)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int n = 0;
|
|
|
|
int byte = *idx / 8;
|
|
|
|
|
|
|
|
if (byte >= max)
|
2015-01-08 14:52:42 +01:00
|
|
|
{
|
|
|
|
/* PR 17512: file: id:000001,src:000002,op:flip1,pos:45. */
|
|
|
|
/* Prevent infinite loops re-reading beyond the end of the buffer. */
|
|
|
|
fatal (_("ICE: getINT: Out of buffer space"));
|
|
|
|
return 0;
|
|
|
|
}
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (size == -2)
|
|
|
|
size = addrsize;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (size == -1)
|
|
|
|
size = 0;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
switch (size)
|
|
|
|
{
|
|
|
|
case 0:
|
|
|
|
return 0;
|
|
|
|
case 1:
|
|
|
|
n = (ptr[byte]);
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
n = (ptr[byte + 0] << 8) + ptr[byte + 1];
|
|
|
|
break;
|
|
|
|
case 4:
|
|
|
|
n = (ptr[byte + 0] << 24) + (ptr[byte + 1] << 16) + (ptr[byte + 2] << 8) + (ptr[byte + 3]);
|
|
|
|
break;
|
|
|
|
default:
|
2015-01-08 14:52:42 +01:00
|
|
|
fatal (_("Unsupported read size: %d"), size);
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
*idx += size * 8;
|
|
|
|
return n;
|
|
|
|
}
|
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static int
|
2005-02-22 13:57:27 +01:00
|
|
|
getBITS (unsigned char *ptr, int *idx, int size, int max)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int byte = *idx / 8;
|
|
|
|
int bit = *idx % 8;
|
|
|
|
|
|
|
|
if (byte >= max)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
*idx += size;
|
|
|
|
|
|
|
|
return (ptr[byte] >> (8 - bit - size)) & ((1 << size) - 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2009-12-11 14:42:17 +01:00
|
|
|
itheader (char *name, int icode)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2009-12-11 14:42:17 +01:00
|
|
|
printf ("\n%s 0x%02x\n", name, icode);
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static int indent;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
p (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int i;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
for (i = 0; i < indent; i++)
|
2002-01-23 17:12:56 +01:00
|
|
|
printf ("| ");
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
printf ("> ");
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
tabout (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
p ();
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
pbarray (barray *y)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int x;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
printf ("%d (", y->len);
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
for (x = 0; x < y->len; x++)
|
2002-01-23 17:12:56 +01:00
|
|
|
printf ("(%02x %c)", y->data[x],
|
|
|
|
ISPRINT (y->data[x]) ? y->data[x] : '.');
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
printf (")\n");
|
|
|
|
}
|
|
|
|
|
|
|
|
#define SYSROFF_PRINT
|
|
|
|
#define SYSROFF_SWAP_IN
|
|
|
|
|
|
|
|
#include "sysroff.c"
|
|
|
|
|
2002-01-23 17:12:56 +01:00
|
|
|
/* FIXME: sysinfo, which generates sysroff.[ch] from sysroff.info, can't
|
|
|
|
hack the special case of the tr block, which has no contents. So we
|
|
|
|
implement our own functions for reading in and printing out the tr
|
|
|
|
block. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
#define IT_tr_CODE 0x7f
|
2002-01-23 17:12:56 +01:00
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
sysroff_swap_tr_in (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2005-02-22 13:57:27 +01:00
|
|
|
unsigned char raw[255];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2002-01-23 17:12:56 +01:00
|
|
|
memset (raw, 0, 255);
|
|
|
|
fillup (raw);
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
|
* more static'ing.
* syslex.l (word, number, unit): Remove unused variables.
* nlmheader.y (keyword_tokens): Make static.
* coffdump.c (dump_coff_symbol, coff_dump): Make static.
* coffgrok.c (lofile, last_function_symbol, last_function_type,
last_struct, last_enum, cur_sfile): Make variables static.
* sysdump.c (getCHARS, fillup, getBARRAY, getINT, getBITS,
sysroff_swap_tr_in, sysroff_print_tr_out): Make static.
* sysinfo.y (writecode, it, code, repeat, oldrepeat, name, rdepth,
names, pnames): Likewise.
2005-04-29 03:15:21 +02:00
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
sysroff_print_tr_out (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2002-01-23 17:12:56 +01:00
|
|
|
itheader ("tr", IT_tr_CODE);
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2003-09-14 14:20:17 +02:00
|
|
|
getone (int type)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int c = getc (file);
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
code = c;
|
|
|
|
|
|
|
|
if ((c & 0x7f) != type)
|
|
|
|
{
|
|
|
|
ungetc (c, file);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (c & 0x7f)
|
|
|
|
{
|
|
|
|
case IT_cs_CODE:
|
|
|
|
{
|
|
|
|
struct IT_cs dummy;
|
|
|
|
sysroff_swap_cs_in (&dummy);
|
|
|
|
sysroff_print_cs_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dln_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dln dummy;
|
|
|
|
sysroff_swap_dln_in (&dummy);
|
|
|
|
sysroff_print_dln_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_hd_CODE:
|
|
|
|
{
|
|
|
|
struct IT_hd dummy;
|
|
|
|
sysroff_swap_hd_in (&dummy);
|
|
|
|
addrsize = dummy.afl;
|
|
|
|
sysroff_print_hd_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dar_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dar dummy;
|
|
|
|
sysroff_swap_dar_in (&dummy);
|
|
|
|
sysroff_print_dar_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dsy_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dsy dummy;
|
|
|
|
sysroff_swap_dsy_in (&dummy);
|
|
|
|
sysroff_print_dsy_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dfp_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dfp dummy;
|
|
|
|
sysroff_swap_dfp_in (&dummy);
|
|
|
|
sysroff_print_dfp_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dso_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dso dummy;
|
|
|
|
sysroff_swap_dso_in (&dummy);
|
|
|
|
sysroff_print_dso_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dpt_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dpt dummy;
|
|
|
|
sysroff_swap_dpt_in (&dummy);
|
|
|
|
sysroff_print_dpt_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_den_CODE:
|
|
|
|
{
|
|
|
|
struct IT_den dummy;
|
|
|
|
sysroff_swap_den_in (&dummy);
|
|
|
|
sysroff_print_den_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dbt_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dbt dummy;
|
|
|
|
sysroff_swap_dbt_in (&dummy);
|
|
|
|
sysroff_print_dbt_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dty_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dty dummy;
|
|
|
|
sysroff_swap_dty_in (&dummy);
|
|
|
|
sysroff_print_dty_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_un_CODE:
|
|
|
|
{
|
|
|
|
struct IT_un dummy;
|
|
|
|
sysroff_swap_un_in (&dummy);
|
|
|
|
sysroff_print_un_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_sc_CODE:
|
|
|
|
{
|
|
|
|
struct IT_sc dummy;
|
|
|
|
sysroff_swap_sc_in (&dummy);
|
|
|
|
sysroff_print_sc_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_er_CODE:
|
|
|
|
{
|
|
|
|
struct IT_er dummy;
|
|
|
|
sysroff_swap_er_in (&dummy);
|
|
|
|
sysroff_print_er_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_ed_CODE:
|
|
|
|
{
|
|
|
|
struct IT_ed dummy;
|
|
|
|
sysroff_swap_ed_in (&dummy);
|
|
|
|
sysroff_print_ed_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_sh_CODE:
|
|
|
|
{
|
|
|
|
struct IT_sh dummy;
|
|
|
|
sysroff_swap_sh_in (&dummy);
|
|
|
|
sysroff_print_sh_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_ob_CODE:
|
|
|
|
{
|
|
|
|
struct IT_ob dummy;
|
|
|
|
sysroff_swap_ob_in (&dummy);
|
|
|
|
sysroff_print_ob_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_rl_CODE:
|
|
|
|
{
|
|
|
|
struct IT_rl dummy;
|
|
|
|
sysroff_swap_rl_in (&dummy);
|
|
|
|
sysroff_print_rl_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_du_CODE:
|
|
|
|
{
|
|
|
|
struct IT_du dummy;
|
|
|
|
sysroff_swap_du_in (&dummy);
|
|
|
|
|
|
|
|
sysroff_print_du_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dus_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dus dummy;
|
|
|
|
sysroff_swap_dus_in (&dummy);
|
|
|
|
sysroff_print_dus_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dul_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dul dummy;
|
|
|
|
sysroff_swap_dul_in (&dummy);
|
|
|
|
sysroff_print_dul_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dss_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dss dummy;
|
|
|
|
sysroff_swap_dss_in (&dummy);
|
|
|
|
sysroff_print_dss_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_hs_CODE:
|
|
|
|
{
|
|
|
|
struct IT_hs dummy;
|
|
|
|
sysroff_swap_hs_in (&dummy);
|
|
|
|
sysroff_print_hs_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dps_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dps dummy;
|
|
|
|
sysroff_swap_dps_in (&dummy);
|
|
|
|
sysroff_print_dps_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_tr_CODE:
|
2002-01-23 17:12:56 +01:00
|
|
|
sysroff_swap_tr_in ();
|
|
|
|
sysroff_print_tr_out ();
|
1999-05-03 09:29:11 +02:00
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
case IT_dds_CODE:
|
|
|
|
{
|
|
|
|
struct IT_dds dummy;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
sysroff_swap_dds_in (&dummy);
|
|
|
|
sysroff_print_dds_out (&dummy);
|
|
|
|
}
|
|
|
|
break;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
default:
|
2011-10-13 17:33:34 +02:00
|
|
|
printf (_("GOT A %x\n"), c);
|
1999-05-03 09:29:11 +02:00
|
|
|
return 0;
|
|
|
|
break;
|
|
|
|
}
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2003-09-14 14:20:17 +02:00
|
|
|
opt (int x)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
return getone (x);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
must (int x)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
if (!getone (x))
|
2011-10-13 17:33:34 +02:00
|
|
|
printf (_("WANTED %x!!\n"), x);
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
tab (int i, char *s)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
indent += i;
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (s)
|
|
|
|
{
|
|
|
|
p ();
|
2009-05-27 15:34:14 +02:00
|
|
|
puts (s);
|
1999-05-03 09:29:11 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
dump_symbol_info (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2011-10-13 17:33:34 +02:00
|
|
|
tab (1, _("SYMBOL INFO"));
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
while (opt (IT_dsy_CODE))
|
|
|
|
{
|
|
|
|
if (opt (IT_dty_CODE))
|
|
|
|
{
|
|
|
|
must (IT_dbt_CODE);
|
|
|
|
derived_type ();
|
|
|
|
must (IT_dty_CODE);
|
|
|
|
}
|
|
|
|
}
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
tab (-1, "");
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
derived_type (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2011-10-13 17:33:34 +02:00
|
|
|
tab (1, _("DERIVED TYPE"));
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
while (1)
|
|
|
|
{
|
|
|
|
if (opt (IT_dpp_CODE))
|
|
|
|
{
|
|
|
|
dump_symbol_info ();
|
|
|
|
must (IT_dpp_CODE);
|
|
|
|
}
|
|
|
|
else if (opt (IT_dfp_CODE))
|
|
|
|
{
|
|
|
|
dump_symbol_info ();
|
|
|
|
must (IT_dfp_CODE);
|
|
|
|
}
|
|
|
|
else if (opt (IT_den_CODE))
|
|
|
|
{
|
|
|
|
dump_symbol_info ();
|
|
|
|
must (IT_den_CODE);
|
|
|
|
}
|
|
|
|
else if (opt (IT_den_CODE))
|
|
|
|
{
|
|
|
|
dump_symbol_info ();
|
|
|
|
must (IT_den_CODE);
|
|
|
|
}
|
|
|
|
else if (opt (IT_dds_CODE))
|
|
|
|
{
|
|
|
|
dump_symbol_info ();
|
|
|
|
must (IT_dds_CODE);
|
|
|
|
}
|
|
|
|
else if (opt (IT_dar_CODE))
|
|
|
|
{
|
|
|
|
}
|
|
|
|
else if (opt (IT_dpt_CODE))
|
|
|
|
{
|
|
|
|
}
|
|
|
|
else if (opt (IT_dul_CODE))
|
|
|
|
{
|
|
|
|
}
|
|
|
|
else if (opt (IT_dse_CODE))
|
|
|
|
{
|
|
|
|
}
|
|
|
|
else if (opt (IT_dot_CODE))
|
|
|
|
{
|
|
|
|
}
|
|
|
|
else
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
tab (-1, "");
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2003-09-14 14:20:17 +02:00
|
|
|
module (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
int c = 0;
|
|
|
|
int l = 0;
|
|
|
|
|
2011-10-13 17:33:34 +02:00
|
|
|
tab (1, _("MODULE***\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
do
|
|
|
|
{
|
|
|
|
c = getc (file);
|
2015-01-08 14:52:42 +01:00
|
|
|
if (c == EOF)
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
ungetc (c, file);
|
|
|
|
|
|
|
|
c &= 0x7f;
|
|
|
|
}
|
|
|
|
while (getone (c) && c != IT_tr_CODE);
|
|
|
|
|
|
|
|
tab (-1, "");
|
|
|
|
|
|
|
|
c = getc (file);
|
|
|
|
while (c != EOF)
|
|
|
|
{
|
|
|
|
printf ("%02x ", c);
|
|
|
|
l++;
|
|
|
|
if (l == 32)
|
|
|
|
{
|
|
|
|
printf ("\n");
|
|
|
|
l = 0;
|
|
|
|
}
|
|
|
|
c = getc (file);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
char *program_name;
|
|
|
|
|
|
|
|
static void
|
2009-12-11 14:42:17 +01:00
|
|
|
show_usage (FILE *ffile, int status)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2009-12-11 14:42:17 +01:00
|
|
|
fprintf (ffile, _("Usage: %s [option(s)] in-file\n"), program_name);
|
|
|
|
fprintf (ffile, _("Print a human readable interpretation of a SYSROFF object file\n"));
|
|
|
|
fprintf (ffile, _(" The options are:\n\
|
2002-01-23 17:12:56 +01:00
|
|
|
-h --help Display this information\n\
|
|
|
|
-v --version Print the program's version number\n"));
|
|
|
|
|
2007-02-17 14:33:57 +01:00
|
|
|
if (REPORT_BUGS_TO[0] && status == 0)
|
2009-12-11 14:42:17 +01:00
|
|
|
fprintf (ffile, _("Report bugs to %s\n"), REPORT_BUGS_TO);
|
1999-05-03 09:29:11 +02:00
|
|
|
exit (status);
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
2003-09-14 14:20:17 +02:00
|
|
|
main (int ac, char **av)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
|
|
|
char *input_file = NULL;
|
2009-12-11 14:42:17 +01:00
|
|
|
int option;
|
1999-05-03 09:29:11 +02:00
|
|
|
static struct option long_options[] =
|
|
|
|
{
|
|
|
|
{"help", no_argument, 0, 'h'},
|
|
|
|
{"version", no_argument, 0, 'V'},
|
|
|
|
{NULL, no_argument, 0, 0}
|
|
|
|
};
|
|
|
|
|
|
|
|
#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
|
|
|
|
setlocale (LC_MESSAGES, "");
|
2001-09-19 07:33:36 +02:00
|
|
|
#endif
|
|
|
|
#if defined (HAVE_SETLOCALE)
|
|
|
|
setlocale (LC_CTYPE, "");
|
1999-05-03 09:29:11 +02:00
|
|
|
#endif
|
|
|
|
bindtextdomain (PACKAGE, LOCALEDIR);
|
|
|
|
textdomain (PACKAGE);
|
|
|
|
|
|
|
|
program_name = av[0];
|
|
|
|
xmalloc_set_program_name (program_name);
|
2015-01-21 18:37:23 +01:00
|
|
|
bfd_set_error_program_name (program_name);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2005-09-30 18:37:32 +02:00
|
|
|
expandargv (&ac, &av);
|
|
|
|
|
2009-12-11 14:42:17 +01:00
|
|
|
while ((option = getopt_long (ac, av, "HhVv", long_options, (int *) NULL)) != EOF)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2009-12-11 14:42:17 +01:00
|
|
|
switch (option)
|
1999-05-03 09:29:11 +02:00
|
|
|
{
|
2002-01-23 17:12:56 +01:00
|
|
|
case 'H':
|
1999-05-03 09:29:11 +02:00
|
|
|
case 'h':
|
2002-01-23 17:12:56 +01:00
|
|
|
show_usage (stdout, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
/*NOTREACHED*/
|
2002-01-23 17:12:56 +01:00
|
|
|
case 'v':
|
1999-05-03 09:29:11 +02:00
|
|
|
case 'V':
|
2001-10-02 08:02:12 +02:00
|
|
|
print_version ("sysdump");
|
1999-05-03 09:29:11 +02:00
|
|
|
exit (0);
|
|
|
|
/*NOTREACHED*/
|
|
|
|
case 0:
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
show_usage (stderr, 1);
|
|
|
|
/*NOTREACHED*/
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The input and output files may be named on the command line. */
|
|
|
|
|
|
|
|
if (optind < ac)
|
2002-01-23 17:12:56 +01:00
|
|
|
input_file = av[optind];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
if (!input_file)
|
2002-01-23 17:12:56 +01:00
|
|
|
fatal (_("no input file specified"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
file = fopen (input_file, FOPEN_RB);
|
2002-01-23 17:12:56 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
if (!file)
|
2002-01-23 17:12:56 +01:00
|
|
|
fatal (_("cannot open input file %s"), input_file);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
module ();
|
|
|
|
return 0;
|
|
|
|
}
|