* gdb.base/Makefile.in (clean): Remove callf-info.exp.

[deliverable/binutils-gdb.git] / gdb / partial-stab.h

diff --git a/gdb/partial-stab.h b/gdb/partial-stab.h
index 747e6a5fc2ed5d50e4ee855c15f07770123d1b10..29394395d6d66db0930baba0333adbb6cef11441 100644 (file)
--- a/gdb/partial-stab.h
+++ b/gdb/partial-stab.h
@@ -1,5 +1,5 @@
 /* Shared code to pre-read a stab (dbx-style), when building a psymtab.
-   Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994
+   Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995
    Free Software Foundation, Inc.
 
 This file is part of GDB.
@@ -22,6 +22,17 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
    SET_NAMESTRING() --Set namestring to name of symbol.
    CUR_SYMBOL_TYPE --Type code of current symbol.
    CUR_SYMBOL_VALUE --Value field of current symbol.  May be adjusted here.
+   namestring - variable pointing to the name of the stab.
+   section_offsets - variable pointing to the section offsets.
+   pst - the partial symbol table being built.
+
+   psymtab_include_list, includes_used, includes_allocated - list of include
+     file names (N_SOL) seen so far.
+   dependency_list, dependencies_used, dependencies_allocated - list of
+     N_EXCL stabs seen so far.
+
+   END_PSYMTAB -- end a partial symbol table.
+   START_PSYMTAB -- start a partial symbol table.
  */
 
 /* End of macro definitions, now let's handle them symbols!  */
@@ -80,7 +91,14 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
              || (namestring [(nsl = strlen (namestring)) - 1] == 'o'
                  && namestring [nsl - 2] == '.')
 #ifdef GDB_TARGET_IS_HPPA
-              /* some cooperation from gcc to get around ld stupidity */
+              /* This braindamage is necessary for versions of GCC 2.6 and
+                earlier; it will not be necessary for GCC 2.7.
+
+                In a nutshell, we need a way to determine when we've hit
+                the end of a file with debug symbols.  Most ports do this
+                with a N_SO record with a NULL symbol name (as will GCC 2.7
+                on the PA).  GCC 2.6 (and earlier) on the PA instead creates
+                an N_TEXT symbol with the name "end_file."  */
               || (namestring[0] == 'e' && STREQ (namestring, "end_file."))
 #endif
              )
@@ -193,6 +211,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
          char *p;
 
          valu = CUR_SYMBOL_VALUE + ANOFFSET (section_offsets, SECT_OFF_TEXT);
+#ifdef SOFUN_ADDRESS_MAYBE_MISSING
+         /* A zero value is probably an indication for the SunPRO 3.0
+            compiler. end_psymtab explicitly tests for zero, so
+            don't relocate it.  */
+         if (CUR_SYMBOL_VALUE == 0)
+           valu = 0;
+#endif
 
          past_first_source_file = 1;
 
@@ -217,6 +242,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
          SET_NAMESTRING();
 
+         /* Null name means end of .o file.  Don't start a new one. */
+         if (*namestring == '\000')
+           continue;
+
          /* Some compilers (including gcc) emit a pair of initial N_SOs.
             The first one is a directory name; the second the file name.
             If pst exists, is empty, and has a filename ending in '/',
@@ -367,6 +396,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
            {
            case 'S':
              CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_DATA);
+#ifdef STATIC_TRANSFORM_NAME
+             namestring = STATIC_TRANSFORM_NAME (namestring);
+#endif
              ADD_PSYMBOL_ADDR_TO_LIST (namestring, p - namestring,
                                        VAR_NAMESPACE, LOC_STATIC,
                                        objfile->static_psymbols,
@@ -500,10 +532,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #ifdef DBXREAD_ONLY
              /* Kludges for ELF/STABS with Sun ACC */
              last_function_name = namestring;
+#ifdef SOFUN_ADDRESS_MAYBE_MISSING
              /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit
                 value for the bottom of the text seg in those cases. */
              if (pst && pst->textlow == 0 && !symfile_relocatable)
-               pst->textlow = CUR_SYMBOL_VALUE;
+               pst->textlow =
+                 find_stab_function_addr (namestring, pst, objfile);
+#endif
 #if 0
              if (startup_file_end == 0)
                startup_file_end = CUR_SYMBOL_VALUE;
@@ -524,10 +559,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #ifdef DBXREAD_ONLY
              /* Kludges for ELF/STABS with Sun ACC */
              last_function_name = namestring;
+#ifdef SOFUN_ADDRESS_MAYBE_MISSING
              /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit
                 value for the bottom of the text seg in those cases. */
              if (pst && pst->textlow == 0 && !symfile_relocatable)
-               pst->textlow = CUR_SYMBOL_VALUE;
+               pst->textlow =
+                 find_stab_function_addr (namestring, pst, objfile);
+#endif
 #if 0
              if (startup_file_end == 0)
                startup_file_end = CUR_SYMBOL_VALUE;
@@ -555,6 +593,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
            case '7':
            case '8':
            case '9':
+           case '-':
              continue;
 
            case ':':
@@ -630,9 +669,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #endif
                  }
              }
-           else
-             error ("Invalid symbol data: \"repeated\" header file not previously seen, at symtab pos %d.",
-                    symnum);
          }
 #endif /* DBXREAD_ONLY */
          continue;