#include "config.h"
#include "system.h"
-#include "coretypes.h"
-#include "tm.h"
#include "version.h"
#include "intl.h"
-#include "filenames.h"
-
-#ifndef __SABER__
-#define saber_stop()
-#endif
/* Include getopt.h for the sake of getopt_long. */
#include "getopt.h"
-#ifndef __LINE__
-#define __LINE__ 0
-#endif
+/* Macros for mips-tfile.c to encapsulate stabs in ECOFF, and for
+ mips-tdump.c to print them out.
-/* Due to size_t being defined in sys/types.h and different
- in stddef.h, we have to do this by hand..... Note, these
- types are correct for MIPS based systems, and may not be
- correct for other systems. Ultrix 4.0 and Silicon Graphics
- have this fixed, but since the following is correct, and
- the fact that including stddef.h gets you GCC's version
- instead of the standard one it's not worth it to fix it. */
+ These must match the corresponding definitions in gdb/mipsread.c.
+ Unfortunately, gcc and gdb do not currently share any directories. */
-#if defined(__OSF1__) || defined(__OSF__) || defined(__osf__)
-#define Size_t long unsigned int
-#else
-#define Size_t unsigned int
-#endif
-#define Ptrdiff_t long
+#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)
/* The following might be called from obstack or malloc,
so they can't be static. */
extern void fatal (const char *format, ...) ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN;
extern void error (const char *format, ...) ATTRIBUTE_PRINTF_1;
\f
-#ifndef MIPS_DEBUGGING_INFO
-
-static int line_number;
-static int cur_line_start;
-static int debug;
-static int had_errors;
-static const char *progname;
-static const char *input_name;
-
-int
-main (void)
-{
- fprintf (stderr, "Mips-tfile should only be run on a MIPS computer!\n");
- exit (1);
-}
-
-#else /* MIPS_DEBUGGING defined */
-\f
/* The local and global symbols have a field index, so undo any defines
of index -> strchr. */
#include "gstab.h"
-#ifndef MALLOC_CHECK
-#ifdef __SABER__
-#define MALLOC_CHECK
-#endif
-#endif
-
#define IS_ASM_IDENT(ch) \
(ISIDNUM (ch) || (ch) == '.' || (ch) == '$')
#define PAGE_SIZE 32768 /* size of varray pages */
#endif
-#define PAGE_USIZE ((Size_t) PAGE_SIZE)
+#define PAGE_USIZE ((size_t) PAGE_SIZE)
#ifndef MAX_CLUSTER_PAGES /* # pages to get from system */
/* String hash table support. The size of the hash table must fit
within a page. */
-#ifndef SHASH_SIZE
-#define SHASH_SIZE 1009
-#endif
+#define SHASH_SIZE 511
#define HASH_LEN_MAX ((1 << 12) - 1) /* Max length we can store */
Because unique types which are hashed are fewer in number than
strings, we use a smaller hash value. */
-#ifndef THASH_SIZE
-#define THASH_SIZE 113
-#endif
+#define THASH_SIZE 55
typedef struct thash {
struct thash *next; /* next hash value */
static unsigned long max_file_offset = 0; /* maximum file offset */
static FILE *object_stream = (FILE *) 0; /* file desc. to output .o */
static FILE *obj_in_stream = (FILE *) 0; /* file desc. to input .o */
-static char *progname = (char *) 0; /* program name for errors */
+static const char *progname = (const char *) 0;/* program name for errors */
static const char *input_name = "stdin"; /* name of input file */
static char *object_name = (char *) 0; /* tmp. name of object file */
static char *obj_in_name = (char *) 0; /* name of input object file */
\f
/* Forward reference for functions. See the definition for more details. */
-#ifndef STATIC
-#define STATIC static
-#endif
-
-STATIC int out_of_bounds (symint_t, symint_t, const char *, int);
-STATIC shash_t *hash_string (const char *, Ptrdiff_t, shash_t **, symint_t *);
-STATIC symint_t add_string (varray_t *, shash_t **, const char *, const char *,
+static int out_of_bounds (symint_t, symint_t, const char *, int);
+static shash_t *hash_string (const char *, ptrdiff_t, shash_t **, symint_t *);
+static symint_t add_string (varray_t *, shash_t **, const char *, const char *,
shash_t **);
-STATIC symint_t add_local_symbol (const char *, const char *, st_t, sc_t,
+static symint_t add_local_symbol (const char *, const char *, st_t, sc_t,
symint_t, symint_t);
-STATIC symint_t add_ext_symbol (EXTR *, int);
-STATIC symint_t add_aux_sym_symint (symint_t);
-STATIC symint_t add_aux_sym_rndx (int, symint_t);
-STATIC symint_t add_aux_sym_tir (type_info_t *, hash_state_t, thash_t **);
-STATIC tag_t * get_tag (const char *, const char *, symint_t, bt_t);
-STATIC void add_unknown_tag (tag_t *);
-STATIC void add_procedure (const char *, const char *);
-STATIC void initialize_init_file (void);
-STATIC void add_file (const char *, const char *);
-STATIC void add_bytes (varray_t *, char *, Size_t);
-STATIC void add_varray_page (varray_t *);
-STATIC void update_headers (void);
-STATIC void write_varray (varray_t *, off_t, const char *);
-STATIC void write_object (void);
-STATIC const char *st_to_string (st_t);
-STATIC const char *sc_to_string (sc_t);
-STATIC char *read_line (void);
-STATIC void parse_input (void);
-STATIC void mark_stabs (const char *);
-STATIC void parse_begin (const char *);
-STATIC void parse_bend (const char *);
-STATIC void parse_def (const char *);
-STATIC void parse_end (const char *);
-STATIC void parse_ent (const char *);
-STATIC void parse_file (const char *);
-STATIC void parse_stabs_common (const char *, const char *, const char *);
-STATIC void parse_stabs (const char *);
-STATIC void parse_stabn (const char *);
-STATIC page_t *read_seek (Size_t, off_t, const char *);
-STATIC void copy_object (void);
-
-STATIC void catch_signal (int) ATTRIBUTE_NORETURN;
-STATIC page_t *allocate_page (void);
-STATIC page_t *allocate_multiple_pages (Size_t);
-STATIC void free_multiple_pages (page_t *, Size_t);
+static symint_t add_ext_symbol (EXTR *, int);
+static symint_t add_aux_sym_symint (symint_t);
+static symint_t add_aux_sym_rndx (int, symint_t);
+static symint_t add_aux_sym_tir (type_info_t *, hash_state_t, thash_t **);
+static tag_t * get_tag (const char *, const char *, symint_t, bt_t);
+static void add_unknown_tag (tag_t *);
+static void add_procedure (const char *, const char *);
+static void initialize_init_file (void);
+static void add_file (const char *, const char *);
+static void add_bytes (varray_t *, char *, size_t);
+static void add_varray_page (varray_t *);
+static void update_headers (void);
+static void write_varray (varray_t *, off_t, const char *);
+static void write_object (void);
+static const char *st_to_string (st_t);
+static const char *sc_to_string (sc_t);
+static char *read_line (void);
+static void parse_input (void);
+static void mark_stabs (const char *);
+static void parse_begin (const char *);
+static void parse_bend (const char *);
+static void parse_def (const char *);
+static void parse_end (const char *);
+static void parse_ent (const char *);
+static void parse_file (const char *);
+static void parse_stabs_common (const char *, const char *, const char *);
+static void parse_stabs (const char *);
+static void parse_stabn (const char *);
+static page_t *read_seek (size_t, off_t, const char *);
+static void copy_object (void);
+
+static void catch_signal (int) ATTRIBUTE_NORETURN;
+static page_t *allocate_page (void);
+static page_t *allocate_multiple_pages (size_t);
+static void free_multiple_pages (page_t *, size_t);
#ifndef MALLOC_CHECK
-STATIC page_t *allocate_cluster (Size_t);
+static page_t *allocate_cluster (size_t);
#endif
-STATIC forward_t *allocate_forward (void);
-STATIC scope_t *allocate_scope (void);
-STATIC shash_t *allocate_shash (void);
-STATIC tag_t *allocate_tag (void);
-STATIC thash_t *allocate_thash (void);
-STATIC thead_t *allocate_thead (void);
-STATIC vlinks_t *allocate_vlinks (void);
+static forward_t *allocate_forward (void);
+static scope_t *allocate_scope (void);
+static shash_t *allocate_shash (void);
+static tag_t *allocate_tag (void);
+static thash_t *allocate_thash (void);
+static thead_t *allocate_thead (void);
+static vlinks_t *allocate_vlinks (void);
-STATIC void free_forward (forward_t *);
-STATIC void free_scope (scope_t *);
-STATIC void free_tag (tag_t *);
-STATIC void free_thead (thead_t *);
+static void free_forward (forward_t *);
+static void free_scope (scope_t *);
+static void free_tag (tag_t *);
+static void free_thead (thead_t *);
extern char *optarg;
extern int optind;
\f
/* Add a page to a varray object. */
-STATIC void
+static void
add_varray_page (varray_t *vp)
{
vlinks_t *new_links = allocate_vlinks ();
#define HASHBITS 30
-STATIC shash_t *
-hash_string (const char *text, Ptrdiff_t hash_len, shash_t **hash_tbl,
+static shash_t *
+hash_string (const char *text, ptrdiff_t hash_len, shash_t **hash_tbl,
symint_t *ret_hash_index)
{
unsigned long hi;
- Ptrdiff_t i;
+ ptrdiff_t i;
shash_t *ptr;
int first_ch = *text;
starts at START and the position one byte after the string is given
with END_P1, the resulting hash pointer is returned in RET_HASH. */
-STATIC symint_t
+static symint_t
add_string (varray_t *vp, shash_t **hash_tbl, const char *start,
const char *end_p1, shash_t **ret_hash)
{
- Ptrdiff_t len = end_p1 - start;
+ ptrdiff_t len = end_p1 - start;
shash_t *hash_ptr;
symint_t hi;
- if (len >= (Ptrdiff_t) PAGE_USIZE)
+ if (len >= (ptrdiff_t) PAGE_USIZE)
fatal ("string too big (%ld bytes)", (long) len);
hash_ptr = hash_string (start, len, hash_tbl, &hi);
TYPE and storage class STORAGE and value VALUE. INDX is an index
to local/aux. symbols. */
-STATIC symint_t
+static symint_t
add_local_symbol (const char *str_start, const char *str_end_p1, st_t type,
sc_t storage, symint_t value, symint_t indx)
{
st_str, (int) (str_end_p1 - str_start), str_start);
else
{
- Size_t len = strlen (st_str);
+ size_t len = strlen (st_str);
fprintf (stderr, " st= %.*s\n", (int) (len-1), st_str);
}
}
/* Add an external symbol with symbol pointer ESYM and file index
IFD. */
-STATIC symint_t
+static symint_t
add_ext_symbol (EXTR *esym, int ifd)
{
const char *str_start; /* first byte in string */
\f
/* Add an auxiliary symbol (passing a symint). */
-STATIC symint_t
+static symint_t
add_aux_sym_symint (symint_t aux_word)
{
AUXU *aux_ptr;
/* Add an auxiliary symbol (passing a file/symbol index combo). */
-STATIC symint_t
+static symint_t
add_aux_sym_rndx (int file_index, symint_t sym_index)
{
AUXU *aux_ptr;
/* Add an auxiliary symbol (passing the basic type and possibly
type qualifiers). */
-STATIC symint_t
+static symint_t
add_aux_sym_tir (type_info_t *t, hash_state_t state, thash_t **hash_tbl)
{
AUXU *aux_ptr;
\f
/* Add a tag to the tag table (unless it already exists). */
-STATIC tag_t *
+static tag_t *
get_tag (const char *tag_start, /* 1st byte of tag name */
const char *tag_end_p1, /* 1st byte after tag name */
symint_t indx, /* index of tag start block */
\f
/* Add an unknown {struct, union, enum} tag. */
-STATIC void
+static void
add_unknown_tag (tag_t *ptag)
{
shash_t *hash_ptr = ptag->hash_ptr;
this is the current procedure. If the assembler created a PDR for
this procedure, use that to initialize the current PDR. */
-STATIC void
+static void
add_procedure (const char *func_start, /* 1st byte of func name */
const char *func_end_p1) /* 1st byte after func name */
{
\f
/* Initialize the init_file structure. */
-STATIC void
+static void
initialize_init_file (void)
{
union {
virtual arrays (strings, symbols, aux syms, etc.). Record
where the current file structure lives. */
-STATIC void
+static void
add_file (const char *file_start, /* first byte in string */
const char *file_end_p1) /* first byte after string */
{
static char zero_bytes[2] = { '\0', '\0' };
- Ptrdiff_t len = file_end_p1 - file_start;
+ ptrdiff_t len = file_end_p1 - file_start;
int first_ch = *file_start;
efdr_t *file_ptr;
\f
/* Add a stream of random bytes to a varray. */
-STATIC void
+static void
add_bytes (varray_t *vp, /* virtual array to add too */
char *input_ptr, /* start of the bytes */
- Size_t nitems) /* # items to move */
+ size_t nitems) /* # items to move */
{
- Size_t move_items;
- Size_t move_bytes;
+ size_t move_items;
+ size_t move_bytes;
char *ptr;
while (nitems > 0)
\f
/* Convert storage class to string. */
-STATIC const char *
+static const char *
sc_to_string (sc_t storage_class)
{
switch (storage_class)
\f
/* Convert symbol type to string. */
-STATIC const char *
+static const char *
st_to_string (st_t symbol_type)
{
switch (symbol_type)
(which is grows if the line is too big). We split lines at the
semi-colon, and return each logical line independently. */
-STATIC char *
+static char *
read_line (void)
{
static int line_split_p = 0;
/* Parse #.begin directives which have a label as the first argument
which gives the location of the start of the block. */
-STATIC void
+static void
parse_begin (const char *start)
{
const char *end_p1; /* end of label */
/* Parse #.bend directives which have a label as the first argument
which gives the location of the end of the block. */
-STATIC void
+static void
parse_bend (const char *start)
{
const char *end_p1; /* end of label */
.dim specify an array dimension
.tag specify a tag for a struct, union, or enum. */
-STATIC void
+static void
parse_def (const char *name_start)
{
const char *dir_start; /* start of current directive*/
symint_t temp_array[ N_TQ ];
int arg_was_number;
int ch, i;
- Ptrdiff_t len;
+ ptrdiff_t len;
static int inside_enumeration = 0; /* is this an enumeration? */
if (ch == '\0')
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (ch != '.')
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (ch == '\0' || ISSPACE (ch))
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
}
else if (ch == '\0' || ISSPACE (ch))
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (ch == '\0')
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
}
{
default:
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
case 'd':
if (t_ptr == &temp_array[0])
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (t.num_dims >= N_TQ-1)
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
else
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (t_ptr == &temp_array[0])
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (t.num_sizes >= N_TQ-1)
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
else
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
else
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
else
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
}
if (num_real_sizes != 1 || diff < 0)
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
if (t.num_sizes - t.num_dims - t.extra_sizes != 1)
{
error_line = __LINE__;
- saber_stop ();
goto bomb_out;
}
\f
/* Parse .end directives. */
-STATIC void
+static void
parse_end (const char *start)
{
const char *start_func, *end_func_p1;
\f
/* Parse .ent directives. */
-STATIC void
+static void
parse_ent (const char *start)
{
const char *start_func, *end_func_p1;
\f
/* Parse .file directives. */
-STATIC void
+static void
parse_file (const char *start)
{
char *p;
0 a zero or a line number
value a numeric value or an address. */
-STATIC void
+static void
parse_stabs_common (const char *string_start, /* start of string or NULL */
const char *string_end, /* end+1 of string or NULL */
const char *rest) /* rest of the directive. */
}
-STATIC void
+static void
parse_stabs (const char *start)
{
const char *end = strchr (start+1, '"');
}
-STATIC void
+static void
parse_stabn (const char *start)
{
parse_stabs_common ((const char *) 0, (const char *) 0, start);
/* Parse the input file, and write the lines to the output file
if needed. */
-STATIC void
+static void
parse_input (void)
{
char *p;
- Size_t i;
+ size_t i;
thead_t *ptag_head;
tag_t *ptag;
tag_t *ptag_next;
/* Update the global headers with the final offsets in preparation
to write out the .T file. */
-STATIC void
+static void
update_headers (void)
{
symint_t i;
if ((st_t) sym->st == st_Static)
{
char *str = ORIG_LSTRS (fd_ptr->issBase + sym->iss);
- Size_t len = strlen (str);
+ size_t len = strlen (str);
shash_t *hash_ptr;
/* Ignore internal labels. */
if (str[0] == '$' && str[1] == 'L')
continue;
hash_ptr = hash_string (str,
- (Ptrdiff_t) len,
+ (ptrdiff_t) len,
&file_ptr->shash_head[0],
(symint_t *) 0);
if (hash_ptr == (shash_t *) 0)
symbolic_header.issMax += file_ptr->fdr.cbSs;
}
-#ifndef ALIGN_SYMTABLE_OFFSET
-#define ALIGN_SYMTABLE_OFFSET(OFFSET) (OFFSET)
-#endif
+/* Align ecoff symbol tables to avoid OSF1/1.3 nm complaints. */
+#define ALIGN_SYMTABLE_OFFSET(OFFSET) (((OFFSET) + 7) & ~7)
file_offset = ALIGN_SYMTABLE_OFFSET (file_offset);
i = WORD_ALIGN (symbolic_header.cbLine); /* line numbers */
\f
/* Write out a varray at a given location. */
-STATIC void
+static void
write_varray (varray_t *vp, /* virtual array */
off_t offset, /* offset to write varray to */
const char *str) /* string to print out when tracing */
\f
/* Write out the symbol table in the object file. */
-STATIC void
+static void
write_object (void)
{
int sys_write;
\f
/* Read some bytes at a specified location, and return a pointer. */
-STATIC page_t *
-read_seek (Size_t size, /* # bytes to read */
+static page_t *
+read_seek (size_t size, /* # bytes to read */
off_t offset, /* offset to read at */
const char *str) /* name for tracing */
{
if it is different from the input object file), and remove the old
symbol table. */
-STATIC void
+static void
copy_object (void)
{
char buffer[ PAGE_SIZE ];
{
auto symint_t hash_index;
char *str = ORIG_LSTRS (fd_ptr->issBase + sym->iss);
- Size_t len = strlen (str);
+ size_t len = strlen (str);
shash_t *shash_ptr = hash_string (str,
- (Ptrdiff_t) len,
+ (ptrdiff_t) len,
&orig_str_hash[0],
&hash_index);
if (*str != '\0')
{
- Size_t len = strlen (str);
+ size_t len = strlen (str);
shash_t *shash_ptr = hash_string (str,
- (Ptrdiff_t) len,
+ (ptrdiff_t) len,
&orig_str_hash[0],
(symint_t *) 0);
{
SYMR *proc_sym = ORIG_LSYMS (fd_ptr->isymBase + proc->isym);
char *str = ORIG_LSTRS (fd_ptr->issBase + proc_sym->iss);
- Size_t len = strlen (str);
+ size_t len = strlen (str);
shash_t *shash_ptr = hash_string (str,
- (Ptrdiff_t) len,
+ (ptrdiff_t) len,
&orig_str_hash[0],
(symint_t *) 0);
(void) signal (SIGBUS, catch_signal);
(void) signal (SIGABRT, catch_signal);
-#if !defined(__SABER__) && !defined(lint)
+#ifndef lint
if (sizeof (efdr_t) > PAGE_USIZE)
fatal ("efdr_t has a sizeof %d bytes, when it should be less than %d",
(int) sizeof (efdr_t),
\f
/* Catch a signal and exit without dumping core. */
-STATIC void
+static void
catch_signal (int signum)
{
(void) signal (signum, SIG_DFL); /* just in case... */
#ifndef MALLOC_CHECK
#ifdef USE_MALLOC
-STATIC page_t *
-allocate_cluster (Size_t npages)
+static page_t *
+allocate_cluster (size_t npages)
{
page_t *value = xcalloc (npages, PAGE_USIZE);
#else /* USE_MALLOC */
-STATIC page_t *
-allocate_cluster (Size_t npages)
+static page_t *
+allocate_cluster (size_t npages)
{
page_t *ptr = (page_t *) sbrk (0); /* current sbreak */
unsigned long offset = ((unsigned long) ptr) & (PAGE_SIZE - 1);
/* Allocate some pages (which is initialized to 0). */
-STATIC page_t *
-allocate_multiple_pages (Size_t npages)
+static page_t *
+allocate_multiple_pages (size_t npages)
{
#ifndef MALLOC_CHECK
if (pages_left == 0 && npages < MAX_CLUSTER_PAGES)
/* Release some pages. */
-STATIC void
-free_multiple_pages (page_t *page_ptr, Size_t npages)
+static void
+free_multiple_pages (page_t *page_ptr, size_t npages)
{
#ifndef MALLOC_CHECK
if (pages_left == 0)
/* Allocate one page (which is initialized to 0). */
-STATIC page_t *
+static page_t *
allocate_page (void)
{
#ifndef MALLOC_CHECK
\f
/* Allocate scoping information. */
-STATIC scope_t *
+static scope_t *
allocate_scope (void)
{
scope_t *ptr;
/* Free scoping information. */
-STATIC void
+static void
free_scope (scope_t *ptr)
{
alloc_counts[ (int) alloc_type_scope ].total_free++;
\f
/* Allocate links for pages in a virtual array. */
-STATIC vlinks_t *
+static vlinks_t *
allocate_vlinks (void)
{
vlinks_t *ptr;
\f
/* Allocate string hash buckets. */
-STATIC shash_t *
+static shash_t *
allocate_shash (void)
{
shash_t *ptr;
\f
/* Allocate type hash buckets. */
-STATIC thash_t *
+static thash_t *
allocate_thash (void)
{
thash_t *ptr;
\f
/* Allocate structure, union, or enum tag information. */
-STATIC tag_t *
+static tag_t *
allocate_tag (void)
{
tag_t *ptr;
/* Free scoping information. */
-STATIC void
+static void
free_tag (tag_t *ptr)
{
alloc_counts[ (int) alloc_type_tag ].total_free++;
\f
/* Allocate forward reference to a yet unknown tag. */
-STATIC forward_t *
+static forward_t *
allocate_forward (void)
{
forward_t *ptr;
/* Free scoping information. */
-STATIC void
+static void
free_forward (forward_t *ptr)
{
alloc_counts[ (int) alloc_type_forward ].total_free++;
\f
/* Allocate head of type hash list. */
-STATIC thead_t *
+static thead_t *
allocate_thead (void)
{
thead_t *ptr;
/* Free scoping information. */
-STATIC void
+static void
free_thead (thead_t *ptr)
{
alloc_counts[ (int) alloc_type_thead ].total_free++;
#endif
}
-
-#endif /* MIPS_DEBUGGING_INFO */
-
\f
/* Output an error message and exit. */
if (line_number > 0)
fprintf (stderr, "line:\t%s\n", cur_line_start);
- saber_stop ();
exit (1);
}
had_errors++;
va_end (ap);
-
- saber_stop ();
}
/* More 'friendly' abort that prints the line and file. */
projects / gcc.git / commitdiff