* read.c (read_a_source_file): Remove md_after_pass_hook.

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

diff --git a/gdb/dbxread.c b/gdb/dbxread.c
index d471b1c90f402e48f5c13bde432cfa358136e186..8242cf84dc34f6f3ece23cfe81be42cb487cf700 100644 (file)
--- a/gdb/dbxread.c
+++ b/gdb/dbxread.c
@@ -1401,24 +1401,16 @@ read_dbx_symtab (struct objfile *objfile)
          goto record_it;
 
        case N_UNDF | N_EXT:
-         if (nlist.n_value != 0)
-           {
-             /* This is a "Fortran COMMON" symbol.  See if the target
-                environment knows where it has been relocated to.  */
-
-             CORE_ADDR reladdr;
-
-             namestring = set_namestring (objfile, &nlist);
-             if (target_lookup_symbol (namestring, &reladdr))
-               {
-                 continue;     /* Error in lookup; ignore symbol for now.  */
-               }
-             nlist.n_type ^= (N_BSS ^ N_UNDF); /* Define it as a
-                                                  bss-symbol.  */
-             nlist.n_value = reladdr;
-             goto bss_ext_symbol;
-           }
-         continue;             /* Just undefined, not COMMON.  */
+         /* The case (nlist.n_value != 0) is a "Fortran COMMON" symbol.
+            We used to rely on the target to tell us whether it knows
+            where the symbol has been relocated to, but none of the
+            target implementations actually provided that operation.
+            So we just ignore the symbol, the same way we would do if
+            we had a target-side symbol lookup which returned no match.
+
+            All other symbols (with nlist.n_value == 0), are really
+            undefined, and so we ignore them too.  */
+         continue;
 
        case N_UNDF:
          if (processing_acc_compilation && nlist.n_strx == 1)
@@ -1728,8 +1720,7 @@ read_dbx_symtab (struct objfile *objfile)
                                         data_sect_index);
 
              if (gdbarch_static_transform_name_p (gdbarch))
-               namestring = gdbarch_static_transform_name (gdbarch,
-                                                           namestring);
+               gdbarch_static_transform_name (gdbarch, namestring);
 
              add_psymbol_to_list (sym_name, sym_len, 1,
                                   VAR_DOMAIN, LOC_STATIC,
@@ -3290,6 +3281,7 @@ process_one_symbol (int type, int desc, CORE_ADDR valu, char *name,
 
      Generally this is used so that an alias can refer to its main
      symbol.  */
+  gdb_assert (name);
   if (name[0] == '#')
     {
       /* Initialize symbol reference names and determine if this is a
@@ -3588,6 +3580,7 @@ static const struct sym_fns aout_sym_fns =
   dbx_new_init,                        /* init anything gbl to entire symtab */
   dbx_symfile_init,            /* read initial info, setup for sym_read() */
   dbx_symfile_read,            /* read a symbol file into symtab */
+  NULL,                                /* sym_read_psymbols */
   dbx_symfile_finish,          /* finished with file, cleanup */
   default_symfile_offsets,     /* parse user's offsets to internal form */
   default_symfile_segments,    /* Get segment information from a file.  */