diff --git a/binutils/ChangeLog b/binutils/ChangeLog index dd903d4121..ff68d684d6 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,27 @@ +Fri Mar 22 15:49:08 1996 Ian Lance Taylor + + * stabs.c (struct stab_handle): Add field abfd. + (start_stab): Add abfd parameter. + (parse_stab_string): Skip the symbol leading char when searching + for the value of a global symbol. + * budbg.h (start_stab): Update declaration. + * rddbg.c (read_section_stabs_debugging_info): Pass abfd to + start_stab. + (read_symbol_stabs_debugging_info): Likewise. + +Thu Mar 21 12:40:48 1996 Ian Lance Taylor + + * wrstabs.c (stab_function_type): Output an empty typedef for an + unused argument, rather than making up a meaningless name. + (stab_variable): Use N_RSYM for a DEBUG_REGISTER variable. + + * ieee.c (struct ieee_info): Add global_vars field. + (parse_ieee_be): When ending the global typedef block, copy the + variables into info->global_vars. + (parse_ieee_atn): Don't require an NN record for a pmisc ATN. + (ieee_read_reference): Search the global variables after the local + variables. + Wed Mar 20 18:08:19 1996 Andreas Schwab * objdump.c (disassemble_data): Make sure sym_name is always set. diff --git a/binutils/budbg.h b/binutils/budbg.h index aec0bf2ef9..faf8d16b6d 100644 --- a/binutils/budbg.h +++ b/binutils/budbg.h @@ -32,17 +32,23 @@ extern PTR read_debugging_info PARAMS ((bfd *, asymbol **, long)); extern boolean print_debugging_info PARAMS ((FILE *, PTR)); -/* Routines used to read stabs information. */ +/* Routines used to read and write stabs information. */ -extern PTR start_stab PARAMS ((PTR, boolean)); +extern PTR start_stab PARAMS ((PTR, bfd *, boolean, asymbol **, long)); extern boolean finish_stab PARAMS ((PTR, PTR)); extern boolean parse_stab PARAMS ((PTR, PTR, int, int, bfd_vma, const char *)); -/* Routine used to read IEEE information. */ +extern boolean write_stabs_in_sections_debugging_info + PARAMS ((bfd *, PTR, bfd_byte **, bfd_size_type *, bfd_byte **, + bfd_size_type *)); + +/* Routines used to read and write IEEE debugging information. */ extern boolean parse_ieee PARAMS ((PTR, bfd *, const bfd_byte *, bfd_size_type)); +extern boolean write_ieee_debugging_info PARAMS ((bfd *, PTR)); + #endif diff --git a/binutils/rddbg.c b/binutils/rddbg.c index 8559621b3b..d42d04863e 100644 --- a/binutils/rddbg.c +++ b/binutils/rddbg.c @@ -1,5 +1,5 @@ /* rddbg.c -- Read debugging information into a generic form. - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 1996 Free Software Foundation, Inc. Written by Ian Lance Taylor . This file is part of GNU Binutils. @@ -30,14 +30,22 @@ #include "budbg.h" static boolean read_section_stabs_debugging_info - PARAMS ((bfd *, PTR, boolean *)); + PARAMS ((bfd *, asymbol **, long, PTR, boolean *)); +static boolean read_symbol_stabs_debugging_info + PARAMS ((bfd *, asymbol **, long, PTR, boolean *)); +static boolean read_ieee_debugging_info PARAMS ((bfd *, PTR, boolean *)); +static void save_stab PARAMS ((int, int, bfd_vma, const char *)); +static void stab_context PARAMS ((void)); +static void free_saved_stabs PARAMS ((void)); /* Read debugging information from a BFD. Returns a generic debugging pointer. */ PTR -read_debugging_info (abfd) +read_debugging_info (abfd, syms, symcount) bfd *abfd; + asymbol **syms; + long symcount; { PTR dhandle; boolean found; @@ -46,11 +54,25 @@ read_debugging_info (abfd) if (dhandle == NULL) return NULL; - /* All we know about right now is stabs in sections. */ + /* All we know about right now is stabs. */ - if (! read_section_stabs_debugging_info (abfd, dhandle, &found)) + if (! read_section_stabs_debugging_info (abfd, syms, symcount, dhandle, + &found)) return NULL; + if (bfd_get_flavour (abfd) == bfd_target_aout_flavour) + { + if (! read_symbol_stabs_debugging_info (abfd, syms, symcount, dhandle, + &found)) + return NULL; + } + + if (bfd_get_flavour (abfd) == bfd_target_ieee_flavour) + { + if (! read_ieee_debugging_info (abfd, dhandle, &found)) + return NULL; + } + if (! found) { fprintf (stderr, "%s: no recognized debugging information\n", @@ -64,8 +86,10 @@ read_debugging_info (abfd) /* Read stabs in sections debugging information from a BFD. */ static boolean -read_section_stabs_debugging_info (abfd, dhandle, pfound) +read_section_stabs_debugging_info (abfd, syms, symcount, dhandle, pfound) bfd *abfd; + asymbol **syms; + long symcount; PTR dhandle; boolean *pfound; { @@ -115,7 +139,7 @@ read_section_stabs_debugging_info (abfd, dhandle, pfound) if (shandle == NULL) { - shandle = start_stab (dhandle); + shandle = start_stab (dhandle, abfd, true, syms, symcount); if (shandle == NULL) return false; } @@ -168,8 +192,14 @@ read_section_stabs_debugging_info (abfd, dhandle, pfound) f = s; } + save_stab (type, desc, value, s); + if (! parse_stab (dhandle, shandle, type, desc, value, s)) - return false; + { + stab_context (); + free_saved_stabs (); + return false; + } /* Don't free f, since I think the stabs code expects strings to hang around. This should be @@ -177,6 +207,7 @@ read_section_stabs_debugging_info (abfd, dhandle, pfound) } } + free_saved_stabs (); free (stabs); /* Don't free strings, since I think the stabs code expects @@ -193,3 +224,200 @@ read_section_stabs_debugging_info (abfd, dhandle, pfound) return true; } + +/* Read stabs in the symbol table. */ + +static boolean +read_symbol_stabs_debugging_info (abfd, syms, symcount, dhandle, pfound) + bfd *abfd; + asymbol **syms; + long symcount; + PTR dhandle; + boolean *pfound; +{ + PTR shandle; + asymbol **ps, **symend; + + shandle = NULL; + symend = syms + symcount; + for (ps = syms; ps < symend; ps++) + { + symbol_info i; + + bfd_get_symbol_info (abfd, *ps, &i); + + if (i.type == '-') + { + const char *s; + char *f; + + if (shandle == NULL) + { + shandle = start_stab (dhandle, abfd, false, syms, symcount); + if (shandle == NULL) + return false; + } + + *pfound = true; + + s = i.name; + while (s[strlen (s) - 1] == '\\' + && ps + 1 < symend) + { + char *sc, *n; + + ++ps; + sc = xstrdup (s); + sc[strlen (sc) - 1] = '\0'; + n = concat (sc, bfd_asymbol_name (*ps), (const char *) NULL); + free (sc); + if (f != NULL) + free (f); + f = n; + s = n; + } + + save_stab (i.stab_type, i.stab_desc, i.value, s); + + if (! parse_stab (dhandle, shandle, i.stab_type, i.stab_desc, + i.value, s)) + { + stab_context (); + free_saved_stabs (); + return false; + } + + free_saved_stabs (); + + /* Don't free f, since I think the stabs code expects + strings to hang around. This should be straightened out. + FIXME. */ + } + } + + if (shandle != NULL) + { + if (! finish_stab (dhandle, shandle)) + return false; + } + + return true; +} + +/* Read IEEE debugging information. */ + +static boolean +read_ieee_debugging_info (abfd, dhandle, pfound) + bfd *abfd; + PTR dhandle; + boolean *pfound; +{ + asection *dsec; + bfd_size_type size; + bfd_byte *contents; + + /* The BFD backend puts the debugging information into a section + named .debug. */ + + dsec = bfd_get_section_by_name (abfd, ".debug"); + if (dsec == NULL) + return true; + + size = bfd_section_size (abfd, dsec); + contents = (bfd_byte *) xmalloc (size); + if (! bfd_get_section_contents (abfd, dsec, contents, 0, size)) + return false; + + if (! parse_ieee (dhandle, abfd, contents, size)) + return false; + + free (contents); + + *pfound = true; + + return true; +} + +/* Record stabs strings, so that we can give some context for errors. */ + +#define SAVE_STABS_COUNT (16) + +struct saved_stab +{ + int type; + int desc; + bfd_vma value; + char *string; +}; + +static struct saved_stab saved_stabs[SAVE_STABS_COUNT]; +static int saved_stabs_index; + +/* Save a stabs string. */ + +static void +save_stab (type, desc, value, string) + int type; + int desc; + bfd_vma value; + const char *string; +{ + if (saved_stabs[saved_stabs_index].string != NULL) + free (saved_stabs[saved_stabs_index].string); + saved_stabs[saved_stabs_index].type = type; + saved_stabs[saved_stabs_index].desc = desc; + saved_stabs[saved_stabs_index].value = value; + saved_stabs[saved_stabs_index].string = xstrdup (string); + saved_stabs_index = (saved_stabs_index + 1) % SAVE_STABS_COUNT; +} + +/* Provide context for an error. */ + +static void +stab_context () +{ + int i; + + fprintf (stderr, "Last stabs entries before error:\n"); + fprintf (stderr, "n_type n_desc n_value string\n"); + + i = saved_stabs_index; + do + { + struct saved_stab *stabp; + + stabp = saved_stabs + i; + if (stabp->string != NULL) + { + const char *s; + + s = bfd_get_stab_name (stabp->type); + if (s != NULL) + fprintf (stderr, "%-6s", s); + else if (stabp->type == 0) + fprintf (stderr, "HdrSym"); + else + fprintf (stderr, "%-6d", stabp->type); + fprintf (stderr, " %-6d ", stabp->desc); + fprintf_vma (stderr, stabp->value); + if (stabp->type != 0) + fprintf (stderr, " %s", stabp->string); + fprintf (stderr, "\n"); + } + i = (i + 1) % SAVE_STABS_COUNT; + } + while (i != saved_stabs_index); +} + +/* Free the saved stab strings. */ + +static void +free_saved_stabs () +{ + int i; + + for (i = 0; i < SAVE_STABS_COUNT; i++) + if (saved_stabs[i].string != NULL) + free (saved_stabs[i].string); + saved_stabs_index = 0; +}