* configure.tgt: Add tx49 configury based on 4300.

[deliverable/binutils-gdb.git] / gdb / somread.c

diff --git a/gdb/somread.c b/gdb/somread.c
index 49aa5ded773f182869d8582324e3f34fb4f97272..ed0fe976997ba187bddd7b980c4b36b7e46348ba 100644 (file)
--- a/gdb/somread.c
+++ b/gdb/somread.c
@@ -1,5 +1,5 @@
 /* Read HP PA/Risc object files for GDB.
 /* Read HP PA/Risc object files for GDB.

-   Copyright 1991, 1992 Free Software Foundation, Inc.
+   Copyright 1991, 1992, 1996 Free Software Foundation, Inc.

    Written by Fred Fish at Cygnus Support.
 
 This file is part of GDB.
    Written by Fred Fish at Cygnus Support.
 
 This file is part of GDB.


@@ -16,12 +16,10 @@ 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
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software

-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

 
 #include "defs.h"
 #include "bfd.h"
 
 #include "defs.h"
 #include "bfd.h"

-#include "som.h"
-#include "libhppa.h"

 #include <syms.h>
 #include "symtab.h"
 #include "symfile.h"
 #include <syms.h>
 #include "symtab.h"
 #include "symfile.h"


@@ -32,7 +30,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "complaints.h"
 #include "gdb_string.h"
 #include "demangle.h"
 #include "complaints.h"
 #include "gdb_string.h"
 #include "demangle.h"

-#include <sys/file.h>
+#include "som.h"
+#include "libhppa.h"

 
 /* Various things we might complain about... */
 
 
 /* Various things we might complain about... */
 


@@ -55,21 +54,16 @@ som_symtab_read PARAMS ((bfd *, struct objfile *,
 static struct section_offsets *
 som_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR));
 
 static struct section_offsets *
 som_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR));
 

-static void
-record_minimal_symbol PARAMS ((char *, CORE_ADDR,
-                              enum minimal_symbol_type,
-                              struct objfile *));
+/* FIXME: These should really be in a common header somewhere */

 
 

-static void
-record_minimal_symbol (name, address, ms_type, objfile)
-     char *name;
-     CORE_ADDR address;
-     enum minimal_symbol_type ms_type;
-     struct objfile *objfile;
-{
-  name = obsavestring (name, strlen (name), &objfile -> symbol_obstack);
-  prim_record_minimal_symbol (name, address, ms_type, objfile);
-}
+extern void
+hpread_build_psymtabs PARAMS ((struct objfile *, struct section_offsets *, int));
+
+extern void
+hpread_symfile_finish PARAMS ((struct objfile *));
+
+extern void
+hpread_symfile_init PARAMS ((struct objfile *));

 
 /*
 
 
 /*
 


@@ -112,13 +106,13 @@ som_symtab_read (abfd, objfile, section_offsets)
   number_of_symbols = bfd_get_symcount (abfd);
 
   buf = alloca (symsize * number_of_symbols);
   number_of_symbols = bfd_get_symcount (abfd);
 
   buf = alloca (symsize * number_of_symbols);

-  bfd_seek (abfd, obj_som_sym_filepos (abfd), L_SET);
+  bfd_seek (abfd, obj_som_sym_filepos (abfd), SEEK_SET);

   val = bfd_read (buf, symsize * number_of_symbols, 1, abfd);
   if (val != symsize * number_of_symbols)
     error ("Couldn't read symbol dictionary!");
 
   stringtab = alloca (obj_som_stringtab_size (abfd));
   val = bfd_read (buf, symsize * number_of_symbols, 1, abfd);
   if (val != symsize * number_of_symbols)
     error ("Couldn't read symbol dictionary!");
 
   stringtab = alloca (obj_som_stringtab_size (abfd));

-  bfd_seek (abfd, obj_som_str_filepos (abfd), L_SET);
+  bfd_seek (abfd, obj_som_str_filepos (abfd), SEEK_SET);

   val = bfd_read (stringtab, obj_som_stringtab_size (abfd), 1, abfd);
   if (val != obj_som_stringtab_size (abfd))
     error ("Can't read in HP string table.");
   val = bfd_read (stringtab, obj_som_stringtab_size (abfd), 1, abfd);
   if (val != obj_som_stringtab_size (abfd))
     error ("Can't read in HP string table.");


@@ -288,11 +282,15 @@ som_symtab_read (abfd, objfile, section_offsets)
 
        /* This can happen for common symbols when -E is passed to the
           final link.  No idea _why_ that would make the linker force
 
        /* This can happen for common symbols when -E is passed to the
           final link.  No idea _why_ that would make the linker force

-          common symbols to have an SS_UNSAT scope, but it does.  */
+          common symbols to have an SS_UNSAT scope, but it does.
+
+          This also happens for weak symbols, but their type is
+          ST_DATA.  */

        case SS_UNSAT:
          switch (bufp->symbol_type)
            {
              case ST_STORAGE:
        case SS_UNSAT:
          switch (bufp->symbol_type)
            {
              case ST_STORAGE:

+             case ST_DATA:

                symname = bufp->name.n_strx + stringtab;
                bufp->symbol_value += data_offset;
                ms_type = mst_data;
                symname = bufp->name.n_strx + stringtab;
                bufp->symbol_value += data_offset;
                ms_type = mst_data;


@@ -311,9 +309,8 @@ som_symtab_read (abfd, objfile, section_offsets)
        error ("Invalid symbol data; bad HP string table offset: %d",
               bufp->name.n_strx);
 
        error ("Invalid symbol data; bad HP string table offset: %d",
               bufp->name.n_strx);
 

-      record_minimal_symbol (symname,
-                            bufp->symbol_value, ms_type, 
-                            objfile);
+      prim_record_minimal_symbol (symname, bufp->symbol_value, ms_type, 
+                                 objfile);

     }
 }
 
     }
 }
 


@@ -408,13 +405,16 @@ som_symfile_finish (objfile)
   hpread_symfile_finish (objfile);
 }
 
   hpread_symfile_finish (objfile);
 }
 

-/* SOM specific initialization routine for reading symbols.
+/* SOM specific initialization routine for reading symbols.  */

 
 

-   Nothing SOM specific left to do anymore.  */

 static void
 som_symfile_init (objfile)
      struct objfile *objfile;
 {
 static void
 som_symfile_init (objfile)
      struct objfile *objfile;
 {

+  /* SOM objects may be reordered, so set OBJF_REORDERED.  If we
+     find this causes a significant slowdown in gdb then we could
+     set it in the debug symbol readers only when necessary.  */
+  objfile->flags |= OBJF_REORDERED;

   hpread_symfile_init (objfile);
 }
 
   hpread_symfile_init (objfile);
 }
 


@@ -432,9 +432,7 @@ som_symfile_offsets (objfile, addr)
 
   objfile->num_sections = SECT_OFF_MAX;
   section_offsets = (struct section_offsets *)
 
   objfile->num_sections = SECT_OFF_MAX;
   section_offsets = (struct section_offsets *)

-    obstack_alloc (&objfile -> psymbol_obstack,
-                  sizeof (struct section_offsets)
-                  + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1));
+    obstack_alloc (&objfile -> psymbol_obstack, SIZEOF_SECTION_OFFSETS);

 
   /* First see if we're a shared library.  If so, get the section
      offsets from the library, else get them from addr.  */
 
   /* First see if we're a shared library.  If so, get the section
      offsets from the library, else get them from addr.  */