1 /* Handle HP SOM shared libraries for GDB, the GNU Debugger.
2 Copyright 1993 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20 Written by the Center for Software Science at the Univerity of Utah
21 and by Cygnus Support. */
32 #include "breakpoint.h"
39 * Relocate data addresses in the shared library.
41 * Most of this code should work for hp300 shared libraries. Does
42 anyone care enough to weed out any SOM-isms.
44 * Do we need/want a command to load a shared library?
46 * Support for hpux8 dynamic linker.
48 * Support for tracking user calls to dld_load, dld_unload. */
50 /* The basic structure which describes a dynamically loaded object. This
51 data structure is private to the dynamic linker and isn't found in
52 any HPUX include file. */
54 struct som_solib_mapped_entry
56 /* The name of the library. */
59 /* Version of this structure (it is expected to change again in hpux10). */
60 unsigned char struct_version
;
62 /* Binding mode for this library. */
63 unsigned char bind_mode
;
65 /* Version of this library. */
66 short library_version
;
68 /* Start of text address, link-time text location, end of text address. */
70 CORE_ADDR text_link_addr
;
73 /* Start of data, start of bss and end of data. */
78 /* Value of linkage pointer (%r19). */
82 struct som_solib_mapped_entry
*next
;
84 /* There are other fields, but I don't have information as to what is
88 /* A structure to keep track of all the known shared objects. */
91 struct som_solib_mapped_entry som_solib
;
92 struct objfile
*objfile
;
94 struct section_table
*sections
;
95 struct section_table
*sections_end
;
99 static struct so_list
*so_list_head
;
101 static void som_sharedlibrary_info_command
PARAMS ((char *, int));
103 /* Add symbols from shared libraries into the symtab list. */
106 som_solib_add (arg_string
, from_tty
, target
)
109 struct target_ops
*target
;
111 struct minimal_symbol
*msymbol
;
112 struct so_list
*so_list_tail
;
114 asection
*shlib_info
;
116 unsigned int dld_flags
;
119 /* If we're debugging a core file, or have attached to a running
120 process, then som_solib_create_inferior_hook will not have been
123 We need to first determine if we're dealing with a dynamically
124 linked executable. If not, then return without an error or warning.
126 We also need to examine __dld_flags to determine if the shared library
127 list is valid and to determine if the libraries have been privately
129 if (symfile_objfile
== NULL
)
132 /* First see if the objfile was dynamically linked. */
133 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
137 /* It's got a $SHLIB_INFO$ section, make sure it's not empty. */
138 if (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) == 0)
141 msymbol
= lookup_minimal_symbol ("__dld_flags", (struct objfile
*) NULL
);
144 error ("Unable to find __dld_flags symbol in object file.\n");
148 addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
149 /* Read the current contents. */
150 status
= target_read_memory (addr
, buf
, 4);
153 error ("Unable to read __dld_flags\n");
156 dld_flags
= extract_unsigned_integer (buf
, 4);
158 /* __dld_list may not be valid. If it's not valid tell the user. */
159 if ((dld_flags
& 4) == 0)
161 error ("__dld_list is not valid according to __dld_flags.\n");
165 /* If the libraries were not mapped private, warn the user. */
166 if ((dld_flags
& 1) == 0)
167 warning ("The shared libraries were not privately mapped; setting a\nbreakpoint in a shared library will not work until you rerun the program.\n");
169 msymbol
= lookup_minimal_symbol ("__dld_list", (struct objfile
*) NULL
);
172 /* Older crt0.o files (hpux8) don't have __dld_list as a symbol,
173 but the data is still available if you know where to look. */
174 msymbol
= lookup_minimal_symbol ("__dld_flags", (struct objfile
*)NULL
);
177 error ("Unable to find dynamic library list.\n");
180 addr
= SYMBOL_VALUE_ADDRESS (msymbol
) - 8;
183 addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
185 status
= target_read_memory (addr
, buf
, 4);
188 error ("Unable to find dynamic library list.\n");
192 addr
= extract_unsigned_integer (buf
, 4);
194 /* If addr is zero, then we're using an old dynamic loader which
195 doesn't maintain __dld_list. We'll have to use a completely
196 different approach to get shared library information. */
200 /* Using the information in __dld_list is the preferred method
201 to get at shared library information. It doesn't depend on
202 any functions in /usr/lib/end.o and has a chance of working
203 with hpux10 when it is released. */
204 status
= target_read_memory (addr
, buf
, 4);
207 error ("Unable to find dynamic library list.\n");
211 /* addr now holds the address of the first entry in the dynamic
213 addr
= extract_unsigned_integer (buf
, 4);
215 /* Now that we have a pointer to the dynamic library list, walk
216 through it and add the symbols for each library.
218 Skip the first entry since it's our executable. */
219 status
= target_read_memory (addr
+ 36, buf
, 4);
223 addr
= extract_unsigned_integer (buf
, 4);
225 so_list_tail
= so_list_head
;
226 /* Find the end of the list of shared objects. */
227 while (so_list_tail
&& so_list_tail
->next
)
228 so_list_tail
= so_list_tail
->next
;
232 CORE_ADDR name_addr
, text_addr
;
233 unsigned int name_len
;
235 struct so_list
*new_so
;
236 struct section_table
*p
;
241 /* Get a pointer to the name of this library. */
242 status
= target_read_memory (addr
, buf
, 4);
246 name_addr
= extract_unsigned_integer (buf
, 4);
250 target_read_memory (name_addr
+ name_len
, buf
, 1);
258 name
= alloca (name_len
);
259 status
= target_read_memory (name_addr
, name
, name_len
);
263 name
= obsavestring (name
, name_len
- 1,
264 &symfile_objfile
->symbol_obstack
);
266 status
= target_read_memory (addr
+ 8, buf
, 4);
270 text_addr
= extract_unsigned_integer (buf
, 4);
273 new_so
= (struct so_list
*) malloc (sizeof (struct so_list
));
274 memset ((char *)new_so
, 0, sizeof (struct so_list
));
275 if (so_list_head
== NULL
)
277 so_list_head
= new_so
;
278 so_list_tail
= new_so
;
282 so_list_tail
->next
= new_so
;
283 so_list_tail
= new_so
;
286 /* Fill in all the entries in GDB's shared library list. */
287 new_so
->som_solib
.name
= name
;
288 status
= target_read_memory (addr
+ 4, buf
, 4);
292 new_so
->som_solib
.struct_version
= extract_unsigned_integer (buf
+ 3, 1);
293 new_so
->som_solib
.bind_mode
= extract_unsigned_integer (buf
+ 2, 1);
294 new_so
->som_solib
.library_version
= extract_unsigned_integer (buf
, 2);
295 new_so
->som_solib
.text_addr
= text_addr
;
297 status
= target_read_memory (addr
+ 12, buf
, 4);
301 new_so
->som_solib
.text_link_addr
= extract_unsigned_integer (buf
, 4);
303 status
= target_read_memory (addr
+ 16, buf
, 4);
307 new_so
->som_solib
.text_end
= extract_unsigned_integer (buf
, 4);
309 status
= target_read_memory (addr
+ 20, buf
, 4);
313 new_so
->som_solib
.data_start
= extract_unsigned_integer (buf
, 4);
315 status
= target_read_memory (addr
+ 24, buf
, 4);
319 new_so
->som_solib
.bss_start
= extract_unsigned_integer (buf
, 4);
321 status
= target_read_memory (addr
+ 28, buf
, 4);
325 new_so
->som_solib
.data_end
= extract_unsigned_integer (buf
, 4);
327 status
= target_read_memory (addr
+ 32, buf
, 4);
331 new_so
->som_solib
.got_value
= extract_unsigned_integer (buf
, 4);
333 status
= target_read_memory (addr
+ 36, buf
, 4);
337 new_so
->som_solib
.next
= (void *)extract_unsigned_integer (buf
, 4);
338 addr
= (CORE_ADDR
)new_so
->som_solib
.next
;
340 new_so
->objfile
= symbol_file_add (name
, from_tty
, text_addr
, 0, 0, 0);
341 new_so
->abfd
= bfd_openr (name
, gnutarget
);
342 new_so
->abfd
->cacheable
= true;
344 if (!bfd_check_format (new_so
->abfd
, bfd_object
))
346 error ("\"%s\": not in executable format: %s.",
347 name
, bfd_errmsg (bfd_get_error ()));
350 /* Now we need to build a section table for this library since
351 we might be debugging a core file from a dynamically linked
352 executable in which the libraries were not privately mapped. */
353 if (build_section_table (new_so
->abfd
,
355 &new_so
->sections_end
))
357 error ("Unable to build section table for shared library\n.");
361 /* Relocate all the sections based on where they got loaded. */
362 for (p
= new_so
->sections
; p
< new_so
->sections_end
; p
++)
364 if (p
->the_bfd_section
->flags
& SEC_CODE
)
366 p
->addr
+= text_addr
- new_so
->som_solib
.text_link_addr
;
367 p
->endaddr
+= text_addr
- new_so
->som_solib
.text_link_addr
;
369 else if (p
->the_bfd_section
->flags
& SEC_DATA
)
371 p
->addr
+= new_so
->som_solib
.data_start
;
372 p
->endaddr
+= new_so
->som_solib
.data_start
;
376 /* Now see if we need to map in the text and data for this shared
377 library (for example debugging a core file which does not use
378 private shared libraries.).
380 Carefully peek at the first text address in the library. If the
381 read succeeds, then the libraries were privately mapped and were
382 included in the core dump file.
384 If the peek failed, then the libraries were not privately mapped
385 and are not in the core file, we'll have to read them in ourselves. */
386 status
= target_read_memory (text_addr
, buf
, 4);
391 /* Add sections from the shared library to the core target. */
392 if (target
->to_sections
)
394 old
= target
->to_sections_end
- target
->to_sections
;
395 target
->to_sections
= (struct section_table
*)
396 xrealloc ((char *)target
->to_sections
,
397 ((sizeof (struct section_table
))
398 * (old
+ bfd_count_sections (new_so
->abfd
))));
403 target
->to_sections
= (struct section_table
*)
404 xmalloc ((sizeof (struct section_table
))
405 * bfd_count_sections (new_so
->abfd
));
407 target
->to_sections_end
= (target
->to_sections
408 + old
+ bfd_count_sections (new_so
->abfd
));
409 memcpy ((char *)(target
->to_sections
+ old
),
411 ((sizeof (struct section_table
))
412 * bfd_count_sections (new_so
->abfd
)));
416 /* Getting new symbols may change our opinion about what is
418 reinit_frame_cache ();
422 error ("Debugging dynamic executables loaded via the hpux8 dld.sl is not supported.\n");
426 error ("Error while reading dynamic library list.\n");
431 /* This hook gets called just before the first instruction in the
432 inferior process is executed.
434 This is our opportunity to set magic flags in the inferior so
435 that GDB can be notified when a shared library is mapped in and
436 to tell the dynamic linker that a private copy of the library is
437 needed (so GDB can set breakpoints in the library).
439 __dld_flags is the location of the magic flags; as of this implementation
440 there are 3 flags of interest:
442 bit 0 when set indicates that private copies of the libraries are needed
443 bit 1 when set indicates that the callback hook routine is valid
444 bit 2 when set indicates that the dynamic linker should maintain the
445 __dld_list structure when loading/unloading libraries.
447 Note that shared libraries are not mapped in at this time, so we have
448 run the inferior until the libraries are mapped in. Typically this
449 means running until the "_start" is called. */
452 som_solib_create_inferior_hook()
454 struct minimal_symbol
*msymbol
;
455 unsigned int dld_flags
, status
;
456 asection
*shlib_info
;
457 char shadow_contents
[BREAKPOINT_MAX
], buf
[4];
460 if (symfile_objfile
== NULL
)
463 /* First see if the objfile was dynamically linked. */
464 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, "$SHLIB_INFO$");
468 /* It's got a $SHLIB_INFO$ section, make sure it's not empty. */
469 if (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) == 0)
472 /* Get the address of __dld_flags, if no such symbol exists, then we can
473 not debug the shared code. */
474 msymbol
= lookup_minimal_symbol ("__dld_flags", (struct objfile
*) NULL
);
477 error ("Unable to find __dld_flags symbol in object file.\n");
481 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
482 /* Read the current contents. */
483 status
= target_read_memory (anaddr
, buf
, 4);
486 error ("Unable to read __dld_flags\n");
489 dld_flags
= extract_unsigned_integer (buf
, 4);
491 /* Turn on the flags we care about. */
493 store_unsigned_integer (buf
, 4, dld_flags
);
494 status
= target_write_memory (anaddr
, buf
, 4);
497 error ("Unable to write __dld_flags\n");
501 /* Now find the address of _start and set a breakpoint there. */
502 msymbol
= lookup_minimal_symbol ("_start", symfile_objfile
);
505 error ("Unable to find _start symbol in object file.\n");
509 anaddr
= SYMBOL_VALUE_ADDRESS (msymbol
);
510 if (target_insert_breakpoint (anaddr
, shadow_contents
))
512 error ("Unable to set breakpoint at _start.\n");
516 /* Wipe out all knowledge of old shared libraries since their
517 mapping can change from one exec to another! */
520 struct so_list
*temp
;
522 free_objfile (so_list_head
->objfile
);
525 so_list_head
= temp
->next
;
528 /* Start the process again and wait for it to hit our breakpoint. */
529 clear_proceed_status ();
530 stop_soon_quietly
= 1;
531 stop_signal
= TARGET_SIGNAL_0
;
534 target_resume (-1, 0, stop_signal
);
535 wait_for_inferior ();
537 while (stop_signal
!= TARGET_SIGNAL_TRAP
);
538 stop_soon_quietly
= 0;
540 /* All the libraries should be mapped in now. Remove our breakpoint and
541 read in the symbol tables from the shared libraries. */
542 if (target_remove_breakpoint (anaddr
, shadow_contents
))
544 error ("Unable to remove breakpoint at _start.\n");
548 som_solib_add ((char *) 0, 0, (struct target_ops
*) 0);
551 /* Return the GOT value for the shared library in which ADDR belongs. If
552 ADDR isn't in any known shared library, return zero. */
555 som_solib_get_got_by_pc (addr
)
558 struct so_list
*so_list
= so_list_head
;
559 CORE_ADDR got_value
= 0;
563 if (so_list
->som_solib
.text_addr
<= addr
564 && so_list
->som_solib
.text_end
> addr
)
566 got_value
= so_list
->som_solib
.got_value
;
569 so_list
= so_list
->next
;
574 /* Dump information about all the currently loaded shared libraries. */
577 som_sharedlibrary_info_command (ignore
, from_tty
)
581 struct so_list
*so_list
= so_list_head
;
583 if (exec_bfd
== NULL
)
585 printf_unfiltered ("no exec file.\n");
591 printf_unfiltered ("No shared libraries loaded at this time.\n");
595 printf_unfiltered ("Shared Object Libraries\n");
596 printf_unfiltered (" %-12s%-12s%-12s%-12s%-12s%-12s\n",
597 " flags", " tstart", " tend", " dstart", " dend", " dlt");
602 flags
= so_list
->som_solib
.struct_version
<< 24;
603 flags
|= so_list
->som_solib
.bind_mode
<< 16;
604 flags
|= so_list
->som_solib
.library_version
;
605 printf_unfiltered ("%s\n", so_list
->som_solib
.name
);
606 printf_unfiltered (" %-12s", local_hex_string_custom (flags
, "08l"));
607 printf_unfiltered ("%-12s",
608 local_hex_string_custom (so_list
->som_solib
.text_addr
, "08l"));
609 printf_unfiltered ("%-12s",
610 local_hex_string_custom (so_list
->som_solib
.text_end
, "08l"));
611 printf_unfiltered ("%-12s",
612 local_hex_string_custom (so_list
->som_solib
.data_start
, "08l"));
613 printf_unfiltered ("%-12s",
614 local_hex_string_custom (so_list
->som_solib
.data_end
, "08l"));
615 printf_unfiltered ("%-12s\n",
616 local_hex_string_custom (so_list
->som_solib
.got_value
, "08l"));
617 so_list
= so_list
->next
;
622 _initialize_som_solib ()
624 add_info ("sharedlibrary", som_sharedlibrary_info_command
,
625 "Status of loaded shared object libraries.");