* paread.c (pa_symtab_read): Handle ST_STUB symbols and symbols

        with scope SS_EXTERNAL.  ST_ENTRY symbols in dynamic executables
        are type mst_solib_trampoline.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8822c29616457fbe4100e187787a7b80f439b09b..702379351782ff24bb5cb1c07dfc6271bcce7f9a 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+Mon Apr 11 09:18:24 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * paread.c (pa_symtab_read): Handle ST_STUB symbols and symbols
+       with scope SS_EXTERNAL.  ST_ENTRY symbols in dynamic executables
+       are type mst_solib_trampoline.
+
 Fri Apr  8 17:14:37 1994  Jim Kingdon  (kingdon@deneb.cygnus.com)
 
        * config/m68k/es1800.mt: Change comments.

diff --git a/gdb/paread.c b/gdb/paread.c
index fab2e4d45ce986287d0554df4dafdc563b1118be..35ab4a3b78ed70e3db4082d4a78415fd1d86606e 100644 (file)
--- a/gdb/paread.c
+++ b/gdb/paread.c
@@ -115,8 +115,9 @@ pa_symtab_read (abfd, addr, objfile)
 {
   unsigned int number_of_symbols;
   unsigned int i;
-  int val;
+  int val, dynamic;
   char *stringtab;
+  asection *shlib_info;
   struct symbol_dictionary_record *buf, *bufp, *endbufp;
   char *symname;
   CONST int symsize = sizeof (struct symbol_dictionary_record);
@@ -135,6 +136,18 @@ pa_symtab_read (abfd, addr, objfile)
   if (val != obj_som_stringtab_size (abfd))
     error ("Can't read in HP string table.");
 
+  /* We need to determine if objfile is a dynamic executable (so we
+     can do the right thing for ST_ENTRY vs ST_CODE symbols).
+
+     There's nothing in the header which easily allows us to do
+     this.  The only reliable way I know of is to check for the
+     existance of a $SHLIB_INFO$ section with a non-zero size.  */
+  shlib_info = bfd_get_section_by_name (objfile->obfd, "$SHLIB_INFO$");
+  if (shlib_info)
+    dynamic = (bfd_section_size (objfile->obfd, shlib_info) != 0);
+  else
+    dynamic = 0;
+
   endbufp = buf + number_of_symbols;
   for (bufp = buf; bufp < endbufp; ++bufp)
     {
@@ -145,6 +158,7 @@ pa_symtab_read (abfd, addr, objfile)
       switch (bufp->symbol_scope)
        {
        case SS_UNIVERSAL:
+       case SS_EXTERNAL:
          switch (bufp->symbol_type)
            {
            case ST_SYM_EXT:
@@ -154,7 +168,6 @@ pa_symtab_read (abfd, addr, objfile)
            case ST_CODE:
            case ST_PRI_PROG:
            case ST_SEC_PROG:
-           case ST_ENTRY:
            case ST_MILLICODE:
              symname = bufp->name.n_strx + stringtab;
              ms_type = mst_text;
@@ -162,6 +175,29 @@ pa_symtab_read (abfd, addr, objfile)
              SMASH_TEXT_ADDRESS (bufp->symbol_value);
 #endif
              break;
+
+           case ST_ENTRY:
+             symname = bufp->name.n_strx + stringtab;
+             /* For a dynamic executable, ST_ENTRY symbols are
+                the stubs, while the ST_CODE symbol is the real
+                function.  */
+             if (dynamic)
+               ms_type = mst_solib_trampoline;
+             else
+               ms_type = mst_text;
+#ifdef SMASH_TEXT_ADDRESS
+             SMASH_TEXT_ADDRESS (bufp->symbol_value);
+#endif
+             break;
+
+           case ST_STUB:
+             symname = bufp->name.n_strx + stringtab;
+             ms_type = mst_solib_trampoline;
+#ifdef SMASH_TEXT_ADDRESS
+             SMASH_TEXT_ADDRESS (bufp->symbol_value);
+#endif
+             break;
+
            case ST_DATA:
              symname = bufp->name.n_strx + stringtab;
              ms_type = mst_data;
@@ -207,7 +243,6 @@ pa_symtab_read (abfd, addr, objfile)
 
            case ST_PRI_PROG:
            case ST_SEC_PROG:
-           case ST_ENTRY:
            case ST_MILLICODE:
              symname = bufp->name.n_strx + stringtab;
              ms_type = mst_file_text;
@@ -216,6 +251,29 @@ pa_symtab_read (abfd, addr, objfile)
 #endif
              break;
 
+           case ST_ENTRY:
+             symname = bufp->name.n_strx + stringtab;
+             /* For a dynamic executable, ST_ENTRY symbols are
+                the stubs, while the ST_CODE symbol is the real
+                function.  */
+             if (dynamic)
+               ms_type = mst_solib_trampoline;
+             else
+               ms_type = mst_file_text;
+#ifdef SMASH_TEXT_ADDRESS
+             SMASH_TEXT_ADDRESS (bufp->symbol_value);
+#endif
+             break;
+
+           case ST_STUB:
+             symname = bufp->name.n_strx + stringtab;
+             ms_type = mst_solib_trampoline;
+#ifdef SMASH_TEXT_ADDRESS
+             SMASH_TEXT_ADDRESS (bufp->symbol_value);
+#endif
+             break;
+
+
            case ST_DATA:
              symname = bufp->name.n_strx + stringtab;
              ms_type = mst_file_data;