gdb/solib-som.c

   1 /* Handle SOM shared libraries.
   2
   3    Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street, Fifth Floor,
  20    Boston, MA 02110-1301, USA.  */
  21
  22 #include "defs.h"
  23 #include "som.h"
  24 #include "symtab.h"
  25 #include "bfd.h"
  26 #include "symfile.h"
  27 #include "objfiles.h"
  28 #include "gdbcore.h"
  29 #include "target.h"
  30 #include "inferior.h"
  31
  32 #include "hppa-tdep.h"
  33 #include "solist.h"
  34
  35 #undef SOLIB_SOM_DBG
  36
  37 /* These ought to be defined in some public interface, but aren't.  They
  38    define the meaning of the various bits in the distinguished __dld_flags
  39    variable that is declared in every debuggable a.out on HP-UX, and that
  40    is shared between the debugger and the dynamic linker.
  41  */
  42 #define DLD_FLAGS_MAPPRIVATE    0x1
  43 #define DLD_FLAGS_HOOKVALID     0x2
  44 #define DLD_FLAGS_LISTVALID     0x4
  45 #define DLD_FLAGS_BOR_ENABLE    0x8
  46
  47 struct lm_info
  48   {
  49     /* Version of this structure (it is expected to change again in hpux10).  */
  50     unsigned char struct_version;
  51
  52     /* Binding mode for this library.  */
  53     unsigned char bind_mode;
  54
  55     /* Version of this library.  */
  56     short library_version;
  57
  58     /* Start of text address,
  59        link-time text location (length of text area),
  60        end of text address.  */
  61     CORE_ADDR text_addr;
  62     CORE_ADDR text_link_addr;
  63     CORE_ADDR text_end;
  64
  65     /* Start of data, start of bss and end of data.  */
  66     CORE_ADDR data_start;
  67     CORE_ADDR bss_start;
  68     CORE_ADDR data_end;
  69
  70     /* Value of linkage pointer (%r19).  */
  71     CORE_ADDR got_value;
  72
  73     /* Address in target of offset from thread-local register of
  74        start of this thread's data.  I.e., the first thread-local
  75        variable in this shared library starts at *(tsd_start_addr)
  76        from that area pointed to by cr27 (mpsfu_hi).
  77
  78        We do the indirection as soon as we read it, so from then
  79        on it's the offset itself.  */
  80     CORE_ADDR tsd_start_addr;
  81
  82     /* Address of the link map entry in the loader.  */
  83     CORE_ADDR lm_addr;
  84   };
  85
  86 /* These addresses should be filled in by som_solib_create_inferior_hook.
  87    They are also used elsewhere in this module.
  88  */
  89 typedef struct
  90   {
  91     CORE_ADDR address;
  92     struct unwind_table_entry *unwind;
  93   }
  94 addr_and_unwind_t;
  95
  96 /* When adding fields, be sure to clear them in _initialize_som_solib. */
  97 static struct
  98   {
  99     int is_valid;
 100     addr_and_unwind_t hook;
 101     addr_and_unwind_t hook_stub;
 102     addr_and_unwind_t load;
 103     addr_and_unwind_t load_stub;
 104     addr_and_unwind_t unload;
 105     addr_and_unwind_t unload2;
 106     addr_and_unwind_t unload_stub;
 107   }
 108 dld_cache;
 109
 110 static void
 111 som_relocate_section_addresses (struct so_list *so,
 112                                 struct section_table *sec)
 113 {
 114   flagword aflag = bfd_get_section_flags(so->abfd, sec->the_bfd_section);
 115
 116   /* solib.c does something similar, but it only recognizes ".text", SOM calls
 117      the text section "$CODE$".  */
 118   if (strcmp (sec->the_bfd_section->name, "$CODE$") == 0)
 119     {
 120       so->textsection = sec;
 121     }
 122
 123   if (aflag & SEC_CODE)
 124     {
 125       sec->addr    += so->lm_info->text_addr - so->lm_info->text_link_addr;
 126       sec->endaddr += so->lm_info->text_addr - so->lm_info->text_link_addr;
 127     }
 128   else if (aflag & SEC_DATA)
 129     {
 130       sec->addr    += so->lm_info->data_start;
 131       sec->endaddr += so->lm_info->data_start;
 132     }
 133   else
 134     ;
 135 }
 136
 137 /* This hook gets called just before the first instruction in the
 138    inferior process is executed.
 139
 140    This is our opportunity to set magic flags in the inferior so
 141    that GDB can be notified when a shared library is mapped in and
 142    to tell the dynamic linker that a private copy of the library is
 143    needed (so GDB can set breakpoints in the library).
 144
 145    __dld_flags is the location of the magic flags; as of this implementation
 146    there are 3 flags of interest:
 147
 148    bit 0 when set indicates that private copies of the libraries are needed
 149    bit 1 when set indicates that the callback hook routine is valid
 150    bit 2 when set indicates that the dynamic linker should maintain the
 151    __dld_list structure when loading/unloading libraries.
 152
 153    Note that shared libraries are not mapped in at this time, so we have
 154    run the inferior until the libraries are mapped in.  Typically this
 155    means running until the "_start" is called.  */
 156
 157 static void
 158 som_solib_create_inferior_hook (void)
 159 {
 160   struct minimal_symbol *msymbol;
 161   unsigned int dld_flags, status, have_endo;
 162   asection *shlib_info;
 163   char buf[4];
 164   CORE_ADDR anaddr;
 165
 166   /* First, remove all the solib event breakpoints.  Their addresses
 167      may have changed since the last time we ran the program.  */
 168   remove_solib_event_breakpoints ();
 169
 170   if (symfile_objfile == NULL)
 171     return;
 172
 173   /* First see if the objfile was dynamically linked.  */
 174   shlib_info = bfd_get_section_by_name (symfile_objfile->obfd, "$SHLIB_INFO$");
 175   if (!shlib_info)
 176     return;
 177
 178   /* It's got a $SHLIB_INFO$ section, make sure it's not empty.  */
 179   if (bfd_section_size (symfile_objfile->obfd, shlib_info) == 0)
 180     return;
 181
 182   have_endo = 0;
 183   /* Slam the pid of the process into __d_pid.
 184
 185      We used to warn when this failed, but that warning is only useful
 186      on very old HP systems (hpux9 and older).  The warnings are an
 187      annoyance to users of modern systems and foul up the testsuite as
 188      well.  As a result, the warnings have been disabled.  */
 189   msymbol = lookup_minimal_symbol ("__d_pid", NULL, symfile_objfile);
 190   if (msymbol == NULL)
 191     goto keep_going;
 192
 193   anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
 194   store_unsigned_integer (buf, 4, PIDGET (inferior_ptid));
 195   status = target_write_memory (anaddr, buf, 4);
 196   if (status != 0)
 197     {
 198       warning (_("\
 199 Unable to write __d_pid.\n\
 200 Suggest linking with /opt/langtools/lib/end.o.\n\
 201 GDB will be unable to track shl_load/shl_unload calls"));
 202       goto keep_going;
 203     }
 204
 205   /* Get the value of _DLD_HOOK (an export stub) and put it in __dld_hook;
 206      This will force the dynamic linker to call __d_trap when significant
 207      events occur.
 208
 209      Note that the above is the pre-HP-UX 9.0 behaviour.  At 9.0 and above,
 210      the dld provides an export stub named "__d_trap" as well as the
 211      function named "__d_trap" itself, but doesn't provide "_DLD_HOOK".
 212      We'll look first for the old flavor and then the new.
 213    */
 214   msymbol = lookup_minimal_symbol ("_DLD_HOOK", NULL, symfile_objfile);
 215   if (msymbol == NULL)
 216     msymbol = lookup_minimal_symbol ("__d_trap", NULL, symfile_objfile);
 217   if (msymbol == NULL)
 218     {
 219       warning (_("\
 220 Unable to find _DLD_HOOK symbol in object file.\n\
 221 Suggest linking with /opt/langtools/lib/end.o.\n\
 222 GDB will be unable to track shl_load/shl_unload calls"));
 223       goto keep_going;
 224     }
 225   anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
 226   dld_cache.hook.address = anaddr;
 227
 228   /* Grrr, this might not be an export symbol!  We have to find the
 229      export stub.  */
 230   msymbol = hppa_lookup_stub_minimal_symbol (SYMBOL_LINKAGE_NAME (msymbol),
 231                                              EXPORT);
 232   if (msymbol != NULL)
 233     {
 234       anaddr = SYMBOL_VALUE (msymbol);
 235       dld_cache.hook_stub.address = anaddr;
 236     }
 237   store_unsigned_integer (buf, 4, anaddr);
 238
 239   msymbol = lookup_minimal_symbol ("__dld_hook", NULL, symfile_objfile);
 240   if (msymbol == NULL)
 241     {
 242       warning (_("\
 243 Unable to find __dld_hook symbol in object file.\n\
 244 Suggest linking with /opt/langtools/lib/end.o.\n\
 245 GDB will be unable to track shl_load/shl_unload calls"));
 246       goto keep_going;
 247     }
 248   anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
 249   status = target_write_memory (anaddr, buf, 4);
 250
 251   /* Now set a shlib_event breakpoint at __d_trap so we can track
 252      significant shared library events.  */
 253   msymbol = lookup_minimal_symbol ("__d_trap", NULL, symfile_objfile);
 254   if (msymbol == NULL)
 255     {
 256       warning (_("\
 257 Unable to find __dld_d_trap symbol in object file.\n\
 258 Suggest linking with /opt/langtools/lib/end.o.\n\
 259 GDB will be unable to track shl_load/shl_unload calls"));
 260       goto keep_going;
 261     }
 262   create_solib_event_breakpoint (SYMBOL_VALUE_ADDRESS (msymbol));
 263
 264   /* We have all the support usually found in end.o, so we can track
 265      shl_load and shl_unload calls.  */
 266   have_endo = 1;
 267
 268 keep_going:
 269
 270   /* Get the address of __dld_flags, if no such symbol exists, then we can
 271      not debug the shared code.  */
 272   msymbol = lookup_minimal_symbol ("__dld_flags", NULL, NULL);
 273   if (msymbol == NULL)
 274     {
 275       error (_("Unable to find __dld_flags symbol in object file."));
 276     }
 277
 278   anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
 279
 280   /* Read the current contents.  */
 281   status = target_read_memory (anaddr, buf, 4);
 282   if (status != 0)
 283     error (_("Unable to read __dld_flags."));
 284   dld_flags = extract_unsigned_integer (buf, 4);
 285
 286   /* Turn on the flags we care about.  */
 287   dld_flags |= DLD_FLAGS_MAPPRIVATE;
 288   if (have_endo)
 289     dld_flags |= DLD_FLAGS_HOOKVALID;
 290   store_unsigned_integer (buf, 4, dld_flags);
 291   status = target_write_memory (anaddr, buf, 4);
 292   if (status != 0)
 293     error (_("Unable to write __dld_flags."));
 294
 295   /* Now find the address of _start and set a breakpoint there.
 296      We still need this code for two reasons:
 297
 298      * Not all sites have /opt/langtools/lib/end.o, so it's not always
 299      possible to track the dynamic linker's events.
 300
 301      * At this time no events are triggered for shared libraries
 302      loaded at startup time (what a crock).  */
 303
 304   msymbol = lookup_minimal_symbol ("_start", NULL, symfile_objfile);
 305   if (msymbol == NULL)
 306     error (_("Unable to find _start symbol in object file."));
 307
 308   anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
 309
 310   /* Make the breakpoint at "_start" a shared library event breakpoint.  */
 311   create_solib_event_breakpoint (anaddr);
 312
 313   clear_symtab_users ();
 314 }
 315
 316 static void
 317 som_special_symbol_handling (void)
 318 {
 319 }
 320
 321 static void
 322 som_solib_desire_dynamic_linker_symbols (void)
 323 {
 324   struct objfile *objfile;
 325   struct unwind_table_entry *u;
 326   struct minimal_symbol *dld_msymbol;
 327
 328   /* Do we already know the value of these symbols?  If so, then
 329      we've no work to do.
 330
 331      (If you add clauses to this test, be sure to likewise update the
 332      test within the loop.)
 333    */
 334   if (dld_cache.is_valid)
 335     return;
 336
 337   ALL_OBJFILES (objfile)
 338   {
 339     dld_msymbol = lookup_minimal_symbol ("shl_load", NULL, objfile);
 340     if (dld_msymbol != NULL)
 341       {
 342         dld_cache.load.address = SYMBOL_VALUE (dld_msymbol);
 343         dld_cache.load.unwind = find_unwind_entry (dld_cache.load.address);
 344       }
 345
 346     dld_msymbol = lookup_minimal_symbol_solib_trampoline ("shl_load",
 347                                                           objfile);
 348     if (dld_msymbol != NULL)
 349       {
 350         if (SYMBOL_TYPE (dld_msymbol) == mst_solib_trampoline)
 351           {
 352             u = find_unwind_entry (SYMBOL_VALUE (dld_msymbol));
 353             if ((u != NULL) && (u->stub_unwind.stub_type == EXPORT))
 354               {
 355                 dld_cache.load_stub.address = SYMBOL_VALUE (dld_msymbol);
 356                 dld_cache.load_stub.unwind = u;
 357               }
 358           }
 359       }
 360
 361     dld_msymbol = lookup_minimal_symbol ("shl_unload", NULL, objfile);
 362     if (dld_msymbol != NULL)
 363       {
 364         dld_cache.unload.address = SYMBOL_VALUE (dld_msymbol);
 365         dld_cache.unload.unwind = find_unwind_entry (dld_cache.unload.address);
 366
 367         /* ??rehrauer: I'm not sure exactly what this is, but it appears
 368            that on some HPUX 10.x versions, there's two unwind regions to
 369            cover the body of "shl_unload", the second being 4 bytes past
 370            the end of the first.  This is a large hack to handle that
 371            case, but since I don't seem to have any legitimate way to
 372            look for this thing via the symbol table...
 373          */
 374         if (dld_cache.unload.unwind != NULL)
 375           {
 376             u = find_unwind_entry (dld_cache.unload.unwind->region_end + 4);
 377             if (u != NULL)
 378               {
 379                 dld_cache.unload2.address = u->region_start;
 380                 dld_cache.unload2.unwind = u;
 381               }
 382           }
 383       }
 384
 385     dld_msymbol = lookup_minimal_symbol_solib_trampoline ("shl_unload",
 386                                                           objfile);
 387     if (dld_msymbol != NULL)
 388       {
 389         if (SYMBOL_TYPE (dld_msymbol) == mst_solib_trampoline)
 390           {
 391             u = find_unwind_entry (SYMBOL_VALUE (dld_msymbol));
 392             if ((u != NULL) && (u->stub_unwind.stub_type == EXPORT))
 393               {
 394                 dld_cache.unload_stub.address = SYMBOL_VALUE (dld_msymbol);
 395                 dld_cache.unload_stub.unwind = u;
 396               }
 397           }
 398       }
 399
 400     /* Did we find everything we were looking for?  If so, stop. */
 401     if ((dld_cache.load.address != 0)
 402         && (dld_cache.load_stub.address != 0)
 403         && (dld_cache.unload.address != 0)
 404         && (dld_cache.unload_stub.address != 0))
 405       {
 406         dld_cache.is_valid = 1;
 407         break;
 408       }
 409   }
 410
 411   dld_cache.hook.unwind = find_unwind_entry (dld_cache.hook.address);
 412   dld_cache.hook_stub.unwind = find_unwind_entry (dld_cache.hook_stub.address);
 413
 414   /* We're prepared not to find some of these symbols, which is why
 415      this function is a "desire" operation, and not a "require".
 416    */
 417 }
 418
 419 static int
 420 som_in_dynsym_resolve_code (CORE_ADDR pc)
 421 {
 422   struct unwind_table_entry *u_pc;
 423
 424   /* Are we in the dld itself?
 425
 426      ??rehrauer: Large hack -- We'll assume that any address in a
 427      shared text region is the dld's text.  This would obviously
 428      fall down if the user attached to a process, whose shlibs
 429      weren't mapped to a (writeable) private region.  However, in
 430      that case the debugger probably isn't able to set the fundamental
 431      breakpoint in the dld callback anyways, so this hack should be
 432      safe.
 433    */
 434   if ((pc & (CORE_ADDR) 0xc0000000) == (CORE_ADDR) 0xc0000000)
 435     return 1;
 436
 437   /* Cache the address of some symbols that are part of the dynamic
 438      linker, if not already known.
 439    */
 440   som_solib_desire_dynamic_linker_symbols ();
 441
 442   /* Are we in the dld callback?  Or its export stub? */
 443   u_pc = find_unwind_entry (pc);
 444   if (u_pc == NULL)
 445     return 0;
 446
 447   if ((u_pc == dld_cache.hook.unwind) || (u_pc == dld_cache.hook_stub.unwind))
 448     return 1;
 449
 450   /* Or the interface of the dld (i.e., "shl_load" or friends)? */
 451   if ((u_pc == dld_cache.load.unwind)
 452       || (u_pc == dld_cache.unload.unwind)
 453       || (u_pc == dld_cache.unload2.unwind)
 454       || (u_pc == dld_cache.load_stub.unwind)
 455       || (u_pc == dld_cache.unload_stub.unwind))
 456     return 1;
 457
 458   /* Apparently this address isn't part of the dld's text. */
 459   return 0;
 460 }
 461
 462 static void
 463 som_clear_solib (void)
 464 {
 465 }
 466
 467 struct dld_list {
 468   char name[4];
 469   char info[4];
 470   char text_addr[4];
 471   char text_link_addr[4];
 472   char text_end[4];
 473   char data_start[4];
 474   char bss_start[4];
 475   char data_end[4];
 476   char got_value[4];
 477   char next[4];
 478   char tsd_start_addr_ptr[4];
 479 };
 480
 481 static CORE_ADDR
 482 link_map_start (void)
 483 {
 484   struct minimal_symbol *sym;
 485   CORE_ADDR addr;
 486   char buf[4];
 487   unsigned int dld_flags;
 488
 489   sym = lookup_minimal_symbol ("__dld_flags", NULL, NULL);
 490   if (!sym)
 491     error (_("Unable to find __dld_flags symbol in object file."));
 492   addr = SYMBOL_VALUE_ADDRESS (sym);
 493   read_memory (addr, buf, 4);
 494   dld_flags = extract_unsigned_integer (buf, 4);
 495   if ((dld_flags & DLD_FLAGS_LISTVALID) == 0)
 496     error (_("__dld_list is not valid according to __dld_flags."));
 497
 498   /* If the libraries were not mapped private, warn the user.  */
 499   if ((dld_flags & DLD_FLAGS_MAPPRIVATE) == 0)
 500     warning (_("The shared libraries were not privately mapped; setting a\n"
 501              "breakpoint in a shared library will not work until you rerun the "
 502              "program.\n"));
 503
 504   sym = lookup_minimal_symbol ("__dld_list", NULL, NULL);
 505   if (!sym)
 506     {
 507       /* Older crt0.o files (hpux8) don't have __dld_list as a symbol,
 508          but the data is still available if you know where to look.  */
 509       sym = lookup_minimal_symbol ("__dld_flags", NULL, NULL);
 510       if (!sym)
 511         {
 512           error (_("Unable to find dynamic library list."));
 513           return 0;
 514         }
 515       addr = SYMBOL_VALUE_ADDRESS (sym) - 8;
 516     }
 517   else
 518     addr = SYMBOL_VALUE_ADDRESS (sym);
 519
 520   read_memory (addr, buf, 4);
 521   addr = extract_unsigned_integer (buf, 4);
 522   if (addr == 0)
 523     return 0;
 524
 525   read_memory (addr, buf, 4);
 526   return extract_unsigned_integer (buf, 4);
 527 }
 528
 529 /* Does this so's name match the main binary? */
 530 static int
 531 match_main (const char *name)
 532 {
 533   return strcmp (name, symfile_objfile->name) == 0;
 534 }
 535
 536 static struct so_list *
 537 som_current_sos (void)
 538 {
 539   CORE_ADDR lm;
 540   struct so_list *head = 0;
 541   struct so_list **link_ptr = &head;
 542
 543   for (lm = link_map_start (); lm; )
 544     {
 545       char *namebuf;
 546       CORE_ADDR addr;
 547       struct so_list *new;
 548       struct cleanup *old_chain;
 549       int errcode;
 550       struct dld_list dbuf;
 551       char tsdbuf[4];
 552
 553       new = (struct so_list *) xmalloc (sizeof (struct so_list));
 554       old_chain = make_cleanup (xfree, new);
 555
 556       memset (new, 0, sizeof (*new));
 557       new->lm_info = xmalloc (sizeof (struct lm_info));
 558       make_cleanup (xfree, new->lm_info);
 559
 560       read_memory (lm, (gdb_byte *)&dbuf, sizeof (struct dld_list));
 561
 562       addr = extract_unsigned_integer ((gdb_byte *)&dbuf.name,
 563                                        sizeof (dbuf.name));
 564       target_read_string (addr, &namebuf, SO_NAME_MAX_PATH_SIZE - 1, &errcode);
 565       if (errcode != 0)
 566         warning (_("Can't read pathname for load map: %s."),
 567                  safe_strerror (errcode));
 568       else
 569         {
 570           strncpy (new->so_name, namebuf, SO_NAME_MAX_PATH_SIZE - 1);
 571           new->so_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0';
 572           xfree (namebuf);
 573           strcpy (new->so_original_name, new->so_name);
 574         }
 575
 576         if (new->so_name[0] && !match_main (new->so_name))
 577           {
 578             struct lm_info *lmi = new->lm_info;
 579             unsigned int tmp;
 580
 581             lmi->lm_addr = lm;
 582
 583 #define EXTRACT(_fld) \
 584   extract_unsigned_integer ((gdb_byte *)&dbuf._fld, sizeof (dbuf._fld));
 585
 586             lmi->text_addr = EXTRACT (text_addr);
 587             tmp = EXTRACT (info);
 588             lmi->library_version = (tmp >> 16) & 0xffff;
 589             lmi->bind_mode = (tmp >> 8) & 0xff;
 590             lmi->struct_version = tmp & 0xff;
 591             lmi->text_link_addr = EXTRACT (text_link_addr);
 592             lmi->text_end = EXTRACT (text_end);
 593             lmi->data_start = EXTRACT (data_start);
 594             lmi->bss_start = EXTRACT (bss_start);
 595             lmi->data_end = EXTRACT (data_end);
 596             lmi->got_value = EXTRACT (got_value);
 597             tmp = EXTRACT (tsd_start_addr_ptr);
 598             read_memory (tmp, tsdbuf, 4);
 599             lmi->tsd_start_addr = extract_unsigned_integer (tsdbuf, 4);
 600
 601 #ifdef SOLIB_SOM_DBG
 602             printf ("\n+ library \"%s\" is described at 0x%s\n", new->so_name,
 603                     paddr_nz (lm));
 604             printf ("  'version' is %d\n", new->lm_info->struct_version);
 605             printf ("  'bind_mode' is %d\n", new->lm_info->bind_mode);
 606             printf ("  'library_version' is %d\n",
 607                     new->lm_info->library_version);
 608             printf ("  'text_addr' is 0x%s\n",
 609                     paddr_nz (new->lm_info->text_addr));
 610             printf ("  'text_link_addr' is 0x%s\n",
 611                     paddr_nz (new->lm_info->text_link_addr));
 612             printf ("  'text_end' is 0x%s\n",
 613                     paddr_nz (new->lm_info->text_end));
 614             printf ("  'data_start' is 0x%s\n",
 615                     paddr_nz (new->lm_info->data_start));
 616             printf ("  'bss_start' is 0x%s\n",
 617                     paddr_nz (new->lm_info->bss_start));
 618             printf ("  'data_end' is 0x%s\n",
 619                     paddr_nz (new->lm_info->data_end));
 620             printf ("  'got_value' is %s\n",
 621                     paddr_nz (new->lm_info->got_value));
 622             printf ("  'tsd_start_addr' is 0x%s\n",
 623                     paddr_nz (new->lm_info->tsd_start_addr));
 624 #endif
 625
 626             new->addr_low = lmi->text_addr;
 627             new->addr_high = lmi->text_end;
 628
 629             /* Link the new object onto the list.  */
 630             new->next = NULL;
 631             *link_ptr = new;
 632             link_ptr = &new->next;
 633           }
 634         else
 635           {
 636             free_so (new);
 637           }
 638
 639       lm = EXTRACT (next);
 640       discard_cleanups (old_chain);
 641 #undef EXTRACT
 642     }
 643
 644   /* TODO: The original somsolib code has logic to detect and eliminate
 645      duplicate entries.  Do we need that?  */
 646
 647   return head;
 648 }
 649
 650 static int
 651 som_open_symbol_file_object (void *from_ttyp)
 652 {
 653   CORE_ADDR lm, l_name;
 654   char *filename;
 655   int errcode;
 656   int from_tty = *(int *)from_ttyp;
 657   char buf[4];
 658
 659   if (symfile_objfile)
 660     if (!query ("Attempt to reload symbols from process? "))
 661       return 0;
 662
 663   /* First link map member should be the executable.  */
 664   if ((lm = link_map_start ()) == 0)
 665     return 0;   /* failed somehow... */
 666
 667   /* Read address of name from target memory to GDB.  */
 668   read_memory (lm + offsetof (struct dld_list, name), buf, 4);
 669
 670   /* Convert the address to host format.  Assume that the address is
 671      unsigned.  */
 672   l_name = extract_unsigned_integer (buf, 4);
 673
 674   if (l_name == 0)
 675     return 0;           /* No filename.  */
 676
 677   /* Now fetch the filename from target memory.  */
 678   target_read_string (l_name, &filename, SO_NAME_MAX_PATH_SIZE - 1, &errcode);
 679
 680   if (errcode)
 681     {
 682       warning (_("failed to read exec filename from attached file: %s"),
 683                safe_strerror (errcode));
 684       return 0;
 685     }
 686
 687   make_cleanup (xfree, filename);
 688   /* Have a pathname: read the symbol file.  */
 689   symbol_file_add_main (filename, from_tty);
 690
 691   return 1;
 692 }
 693
 694 static void
 695 som_free_so (struct so_list *so)
 696 {
 697   xfree (so->lm_info);
 698 }
 699
 700 static CORE_ADDR
 701 som_solib_thread_start_addr (struct so_list *so)
 702 {
 703   return so->lm_info->tsd_start_addr;
 704 }
 705
 706 /* Return the GOT value for the shared library in which ADDR belongs.  If
 707    ADDR isn't in any known shared library, return zero.  */
 708
 709 static CORE_ADDR
 710 som_solib_get_got_by_pc (CORE_ADDR addr)
 711 {
 712   struct so_list *so_list = master_so_list ();
 713   CORE_ADDR got_value = 0;
 714
 715   while (so_list)
 716     {
 717       if (so_list->lm_info->text_addr <= addr
 718           && so_list->lm_info->text_end > addr)
 719         {
 720           got_value = so_list->lm_info->got_value;
 721           break;
 722         }
 723       so_list = so_list->next;
 724     }
 725   return got_value;
 726 }
 727
 728 /* Return the address of the handle of the shared library in which ADDR belongs.
 729    If ADDR isn't in any known shared library, return zero.  */
 730 /* this function is used in initialize_hp_cxx_exception_support in
 731    hppa-hpux-tdep.c  */
 732
 733 static CORE_ADDR
 734 som_solib_get_solib_by_pc (CORE_ADDR addr)
 735 {
 736   struct so_list *so_list = master_so_list ();
 737
 738   while (so_list)
 739     {
 740       if (so_list->lm_info->text_addr <= addr
 741           && so_list->lm_info->text_end > addr)
 742         {
 743           break;
 744         }
 745       so_list = so_list->next;
 746     }
 747   if (so_list)
 748     return so_list->lm_info->lm_addr;
 749   else
 750     return 0;
 751 }
 752
 753
 754 static struct target_so_ops som_so_ops;
 755
 756 extern initialize_file_ftype _initialize_som_solib; /* -Wmissing-prototypes */
 757
 758 void
 759 _initialize_som_solib (void)
 760 {
 761   som_so_ops.relocate_section_addresses = som_relocate_section_addresses;
 762   som_so_ops.free_so = som_free_so;
 763   som_so_ops.clear_solib = som_clear_solib;
 764   som_so_ops.solib_create_inferior_hook = som_solib_create_inferior_hook;
 765   som_so_ops.special_symbol_handling = som_special_symbol_handling;
 766   som_so_ops.current_sos = som_current_sos;
 767   som_so_ops.open_symbol_file_object = som_open_symbol_file_object;
 768   som_so_ops.in_dynsym_resolve_code = som_in_dynsym_resolve_code;
 769 }
 770
 771 void som_solib_select (struct gdbarch_tdep *tdep)
 772 {
 773   current_target_so_ops = &som_so_ops;
 774
 775   tdep->solib_thread_start_addr = som_solib_thread_start_addr;
 776   tdep->solib_get_got_by_pc = som_solib_get_got_by_pc;
 777   tdep->solib_get_solib_by_pc = som_solib_get_solib_by_pc;
 778 }
 779
 780 /* The rest of these functions are not part of the solib interface; they
 781    are used by somread.c or hppa-hpux-tdep.c */
 782
 783 int
 784 som_solib_section_offsets (struct objfile *objfile,
 785                            struct section_offsets *offsets)
 786 {
 787   struct so_list *so_list = master_so_list ();
 788
 789   while (so_list)
 790     {
 791       /* Oh what a pain!  We need the offsets before so_list->objfile
 792          is valid.  The BFDs will never match.  Make a best guess.  */
 793       if (strstr (objfile->name, so_list->so_name))
 794         {
 795           asection *private_section;
 796
 797           /* The text offset is easy.  */
 798           offsets->offsets[SECT_OFF_TEXT (objfile)]
 799             = (so_list->lm_info->text_addr
 800                - so_list->lm_info->text_link_addr);
 801           offsets->offsets[SECT_OFF_RODATA (objfile)]
 802             = ANOFFSET (offsets, SECT_OFF_TEXT (objfile));
 803
 804           /* We should look at presumed_dp in the SOM header, but
 805              that's not easily available.  This should be OK though.  */
 806           private_section = bfd_get_section_by_name (objfile->obfd,
 807                                                      "$PRIVATE$");
 808           if (!private_section)
 809             {
 810               warning (_("Unable to find $PRIVATE$ in shared library!"));
 811               offsets->offsets[SECT_OFF_DATA (objfile)] = 0;
 812               offsets->offsets[SECT_OFF_BSS (objfile)] = 0;
 813               return 1;
 814             }
 815           offsets->offsets[SECT_OFF_DATA (objfile)]
 816             = (so_list->lm_info->data_start - private_section->vma);
 817           offsets->offsets[SECT_OFF_BSS (objfile)]
 818             = ANOFFSET (offsets, SECT_OFF_DATA (objfile));
 819           return 1;
 820         }
 821       so_list = so_list->next;
 822     }
 823   return 0;
 824 }