1 /* Handle HP ELF shared libraries for GDB, the GNU Debugger.
3 Copyright 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation,
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA.
23 HP in their infinite stupidity choose not to use standard ELF dynamic
24 linker interfaces. They also choose not to make their ELF dymamic
25 linker interfaces compatible with the SOM dynamic linker. The
26 net result is we can not use either of the existing somsolib.c or
27 solib.c. What a crock.
29 Even more disgusting. This file depends on functions provided only
30 in certain PA64 libraries. Thus this file is supposed to only be
31 used native. When will HP ever learn that they need to provide the
32 same functionality in all their libraries! */
45 #include "breakpoint.h"
49 #include "gdb-stabs.h"
55 #include "hppa-tdep.h"
63 static CORE_ADDR
bfd_lookup_symbol (bfd
*, char *);
64 /* This lives in hppa-tdep.c. */
65 extern struct unwind_table_entry
*find_unwind_entry (CORE_ADDR pc
);
67 /* These ought to be defined in some public interface, but aren't. They
68 identify dynamic linker events. */
70 #define DLD_CB_UNLOAD 0
72 /* A structure to keep track of all the known shared objects. */
78 struct objfile
*objfile
;
79 CORE_ADDR pa64_solib_desc_addr
;
80 struct load_module_desc pa64_solib_desc
;
81 struct section_table
*sections
;
82 struct section_table
*sections_end
;
86 static struct so_list
*so_list_head
;
88 /* This is the cumulative size in bytes of the symbol tables of all
89 shared objects on the so_list_head list. (When we say size, here
90 we mean of the information before it is brought into memory and
91 potentially expanded by GDB.) When adding a new shlib, this value
92 is compared against a threshold size, held by auto_solib_limit (in
93 megabytes). If adding symbols for the new shlib would cause the
94 total size to exceed the threshold, then the new shlib's symbols
96 static LONGEST pa64_solib_total_st_size
;
98 /* When the threshold is reached for any shlib, we refuse to add
99 symbols for subsequent shlibs, even if those shlibs' symbols would
100 be small enough to fit under the threshold. Although this may
101 result in one, early large shlib preventing the loading of later,
102 smaller shlibs' symbols, it allows us to issue one informational
103 message. The alternative, to issue a message for each shlib whose
104 symbols aren't loaded, could be a big annoyance where the threshold
105 is exceeded due to a very large number of shlibs. */
106 static int pa64_solib_st_size_threshold_exceeded
;
108 /* When adding fields, be sure to clear them in _initialize_pa64_solib. */
111 CORE_ADDR dld_flags_addr
;
113 struct bfd_section
*dyninfo_sect
;
114 int have_read_dld_descriptor
;
117 CORE_ADDR load_map_addr
;
118 struct load_module_desc dld_desc
;
122 static dld_cache_t dld_cache
;
124 static void pa64_sharedlibrary_info_command (char *, int);
126 static void pa64_solib_sharedlibrary_command (char *, int);
128 static void *pa64_target_read_memory (void *, CORE_ADDR
, size_t, int);
130 static int read_dld_descriptor (struct target_ops
*, int readsyms
);
132 static int read_dynamic_info (asection
*, dld_cache_t
*);
134 static void add_to_solist (int, char *, int, struct load_module_desc
*,
135 CORE_ADDR
, struct target_ops
*);
137 /* When examining the shared library for debugging information we have to
138 look for HP debug symbols, stabs and dwarf2 debug symbols. */
139 static char *pa64_debug_section_names
[] = {
140 ".debug_header", ".debug_gntt", ".debug_lntt", ".debug_slt", ".debug_vt",
141 ".stabs", ".stabstr", ".debug_info", ".debug_abbrev", ".debug_aranges",
142 ".debug_macinfo", ".debug_line", ".debug_loc", ".debug_pubnames",
146 /* Return a ballbark figure for the amount of memory GDB will need to
147 allocate to read in the debug symbols from FILENAME. */
149 pa64_solib_sizeof_symbol_table (char *filename
)
155 LONGEST st_size
= (LONGEST
) 0;
158 /* We believe that filename was handed to us by the dynamic linker, and
159 is therefore always an absolute path. */
160 desc
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
, filename
,
161 O_RDONLY
| O_BINARY
, 0, &absolute_name
);
164 perror_with_name (filename
);
166 filename
= absolute_name
;
168 abfd
= bfd_fdopenr (filename
, gnutarget
, desc
);
172 make_cleanup (xfree
, filename
);
173 error (_("\"%s\": can't open to read symbols: %s."), filename
,
174 bfd_errmsg (bfd_get_error ()));
177 if (!bfd_check_format (abfd
, bfd_object
))
180 make_cleanup (xfree
, filename
);
181 error (_("\"%s\": can't read symbols: %s."), filename
,
182 bfd_errmsg (bfd_get_error ()));
185 /* Sum the sizes of the various sections that compose debug info. */
186 for (i
= 0; pa64_debug_section_names
[i
] != NULL
; i
++)
190 sect
= bfd_get_section_by_name (abfd
, pa64_debug_section_names
[i
]);
192 st_size
+= (LONGEST
)bfd_section_size (abfd
, sect
);
198 /* Unfortunately, just summing the sizes of various debug info
199 sections isn't a very accurate measurement of how much heap
200 space the debugger will need to hold them. It also doesn't
201 account for space needed by linker (aka "minimal") symbols.
203 Anecdotal evidence suggests that just summing the sizes of
204 debug-info-related sections understates the heap space needed
205 to represent it internally by about an order of magnitude.
207 Since it's not exactly brain surgery we're doing here, rather
208 than attempt to more accurately measure the size of a shlib's
209 symbol table in GDB's heap, we'll just apply a 10x fudge-
210 factor to the debug info sections' size-sum. No, this doesn't
211 account for minimal symbols in non-debuggable shlibs. But it
212 all roughly washes out in the end. */
213 return st_size
* (LONGEST
) 10;
216 /* Add a shared library to the objfile list and load its symbols into
217 GDB's symbol table. */
219 pa64_solib_add_solib_objfile (struct so_list
*so
, char *name
, int from_tty
,
224 struct hppa_objfile_private
*obj_private
;
225 struct section_addr_info
*section_addrs
;
226 struct cleanup
*my_cleanups
;
228 /* We need the BFD so that we can look at its sections. We open up the
229 file temporarily, then close it when we are done. */
230 tmp_bfd
= bfd_openr (name
, gnutarget
);
233 perror_with_name (name
);
237 if (!bfd_check_format (tmp_bfd
, bfd_object
))
240 error (_("\"%s\" is not an object file: %s"), name
,
241 bfd_errmsg (bfd_get_error ()));
245 /* Undo some braindamage from symfile.c.
247 First, symfile.c will subtract the VMA of the first .text section
248 in the shared library that it finds. Undo that. */
249 sec
= bfd_get_section_by_name (tmp_bfd
, ".text");
250 text_addr
+= bfd_section_vma (tmp_bfd
, sec
);
252 /* Now find the true lowest section in the shared library. */
254 bfd_map_over_sections (tmp_bfd
, find_lowest_section
, &sec
);
258 /* Subtract out the VMA of the lowest section. */
259 text_addr
-= bfd_section_vma (tmp_bfd
, sec
);
261 /* ??? Add back in the filepos of that lowest section. */
262 text_addr
+= sec
->filepos
;
265 section_addrs
= alloc_section_addr_info (bfd_count_sections (tmp_bfd
));
266 my_cleanups
= make_cleanup (xfree
, section_addrs
);
268 /* We are done with the temporary bfd. Get rid of it and make sure
269 nobody else can us it. */
273 /* Now let the generic code load up symbols for this library. */
274 section_addrs
->other
[0].addr
= text_addr
;
275 section_addrs
->other
[0].name
= ".text";
276 so
->objfile
= symbol_file_add (name
, from_tty
, section_addrs
, 0, OBJF_SHARED
);
277 so
->abfd
= so
->objfile
->obfd
;
279 /* Mark this as a shared library and save private data. */
280 so
->objfile
->flags
|= OBJF_SHARED
;
282 obj_private
= (struct hppa_objfile_private
*)
283 objfile_data (so
->objfile
, hppa_objfile_priv_data
);
284 if (obj_private
== NULL
)
286 obj_private
= (struct hppa_objfile_private
*)
287 obstack_alloc (&so
->objfile
->objfile_obstack
,
288 sizeof (struct hppa_objfile_private
));
289 set_objfile_data (so
->objfile
, hppa_objfile_priv_data
, obj_private
);
290 obj_private
->unwind_info
= NULL
;
291 obj_private
->so_info
= NULL
;
294 obj_private
->so_info
= so
;
295 obj_private
->dp
= so
->pa64_solib_desc
.linkage_ptr
;
296 do_cleanups (my_cleanups
);
299 /* Load debugging information for a shared library. TARGET may be
300 NULL if we are not attaching to a process or reading a core file. */
303 pa64_solib_load_symbols (struct so_list
*so
, char *name
, int from_tty
,
304 CORE_ADDR text_addr
, struct target_ops
*target
)
306 struct section_table
*p
;
310 CORE_ADDR presumed_data_start
;
313 text_addr
= so
->pa64_solib_desc
.text_base
;
315 pa64_solib_add_solib_objfile (so
, name
, from_tty
, text_addr
);
317 /* Now we need to build a section table for this library since
318 we might be debugging a core file from a dynamically linked
319 executable in which the libraries were not privately mapped. */
320 if (build_section_table (so
->abfd
,
324 error (_("Unable to build section table for shared library\n."));
328 (so
->objfile
->section_offsets
)->offsets
[SECT_OFF_TEXT (so
->objfile
)]
329 = so
->pa64_solib_desc
.text_base
;
330 (so
->objfile
->section_offsets
)->offsets
[SECT_OFF_DATA (so
->objfile
)]
331 = so
->pa64_solib_desc
.data_base
;
333 /* Relocate all the sections based on where they got loaded. */
334 for (p
= so
->sections
; p
< so
->sections_end
; p
++)
336 if (p
->the_bfd_section
->flags
& SEC_CODE
)
338 p
->addr
+= ANOFFSET (so
->objfile
->section_offsets
, SECT_OFF_TEXT (so
->objfile
));
339 p
->endaddr
+= ANOFFSET (so
->objfile
->section_offsets
, SECT_OFF_TEXT (so
->objfile
));
341 else if (p
->the_bfd_section
->flags
& SEC_DATA
)
343 p
->addr
+= ANOFFSET (so
->objfile
->section_offsets
, SECT_OFF_DATA (so
->objfile
));
344 p
->endaddr
+= ANOFFSET (so
->objfile
->section_offsets
, SECT_OFF_DATA (so
->objfile
));
348 /* Now see if we need to map in the text and data for this shared
349 library (for example debugging a core file which does not use
350 private shared libraries.).
352 Carefully peek at the first text address in the library. If the
353 read succeeds, then the libraries were privately mapped and were
354 included in the core dump file.
356 If the peek failed, then the libraries were not privately mapped
357 and are not in the core file, we'll have to read them in ourselves. */
358 status
= target_read_memory (text_addr
, buf
, 4);
363 new = so
->sections_end
- so
->sections
;
365 old
= target_resize_to_sections (target
, new);
367 /* Copy over the old data before it gets clobbered. */
368 memcpy ((char *) (target
->to_sections
+ old
),
370 ((sizeof (struct section_table
)) * new));
375 /* Add symbols from shared libraries into the symtab list, unless the
376 size threshold specified by auto_solib_limit (in megabytes) would
380 pa64_solib_add (char *arg_string
, int from_tty
, struct target_ops
*target
, int readsyms
)
382 struct minimal_symbol
*msymbol
;
384 asection
*shlib_info
;
386 unsigned int dld_flags
;
387 char buf
[4], *re_err
;
388 int threshold_warning_given
= 0;
390 struct load_module_desc dll_desc
;
393 /* First validate our arguments. */
394 if ((re_err
= re_comp (arg_string
? arg_string
: ".")) != NULL
)
396 error (_("Invalid regexp: %s"), re_err
);
399 /* If we're debugging a core file, or have attached to a running
400 process, then pa64_solib_create_inferior_hook will not have been
403 We need to first determine if we're dealing with a dynamically
404 linked executable. If not, then return without an error or warning.
406 We also need to examine __dld_flags to determine if the shared
407 library list is valid and to determine if the libraries have been
409 if (symfile_objfile
== NULL
)
412 /* First see if the objfile was dynamically linked. */
413 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, ".dynamic");
417 /* It's got a .dynamic section, make sure it's not empty. */
418 if (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) == 0)
421 /* Read in the load map pointer if we have not done so already. */
422 if (! dld_cache
.have_read_dld_descriptor
)
423 if (! read_dld_descriptor (target
, readsyms
))
426 /* If the libraries were not mapped private, warn the user. */
427 if ((dld_cache
.dld_flags
& DT_HP_DEBUG_PRIVATE
) == 0)
429 The shared libraries were not privately mapped; setting a\n\
430 breakpoint in a shared library will not work until you rerun the program."));
432 /* For each shaerd library, add it to the shared library list. */
433 for (dll_index
= 1; ; dll_index
++)
435 /* Read in the load module descriptor. */
436 if (dlgetmodinfo (dll_index
, &dll_desc
, sizeof (dll_desc
),
437 pa64_target_read_memory
, 0, dld_cache
.load_map
)
441 /* Get the name of the shared library. */
442 dll_path
= (char *)dlgetname (&dll_desc
, sizeof (dll_desc
),
443 pa64_target_read_memory
,
444 0, dld_cache
.load_map
);
447 error (_("pa64_solib_add, unable to read shared library path."));
449 add_to_solist (from_tty
, dll_path
, readsyms
, &dll_desc
, 0, target
);
454 /* This hook gets called just before the first instruction in the
455 inferior process is executed.
457 This is our opportunity to set magic flags in the inferior so
458 that GDB can be notified when a shared library is mapped in and
459 to tell the dynamic linker that a private copy of the library is
460 needed (so GDB can set breakpoints in the library).
462 We need to set two flag bits in this routine.
464 DT_HP_DEBUG_PRIVATE to indicate that shared libraries should be
467 DT_HP_DEBUG_CALLBACK to indicate that we want the dynamic linker
468 to call the breakpoint routine for significant events. */
471 pa64_solib_create_inferior_hook (void)
473 struct minimal_symbol
*msymbol
;
474 unsigned int dld_flags
, status
;
475 asection
*shlib_info
, *interp_sect
;
477 struct objfile
*objfile
;
480 /* First, remove all the solib event breakpoints. Their addresses
481 may have changed since the last time we ran the program. */
482 remove_solib_event_breakpoints ();
484 if (symfile_objfile
== NULL
)
487 /* First see if the objfile was dynamically linked. */
488 shlib_info
= bfd_get_section_by_name (symfile_objfile
->obfd
, ".dynamic");
492 /* It's got a .dynamic section, make sure it's not empty. */
493 if (bfd_section_size (symfile_objfile
->obfd
, shlib_info
) == 0)
496 /* Read in the .dynamic section. */
497 if (! read_dynamic_info (shlib_info
, &dld_cache
))
498 error (_("Unable to read the .dynamic section."));
500 /* Turn on the flags we care about. */
501 dld_cache
.dld_flags
|= DT_HP_DEBUG_PRIVATE
;
502 dld_cache
.dld_flags
|= DT_HP_DEBUG_CALLBACK
;
503 status
= target_write_memory (dld_cache
.dld_flags_addr
,
504 (char *) &dld_cache
.dld_flags
,
505 sizeof (dld_cache
.dld_flags
));
507 error (_("Unable to modify dynamic linker flags."));
509 /* Now we have to create a shared library breakpoint in the dynamic
510 linker. This can be somewhat tricky since the symbol is inside
511 the dynamic linker (for which we do not have symbols or a base
512 load address! Luckily I wrote this code for solib.c years ago. */
513 interp_sect
= bfd_get_section_by_name (exec_bfd
, ".interp");
516 unsigned int interp_sect_size
;
520 CORE_ADDR sym_addr
= 0;
522 /* Read the contents of the .interp section into a local buffer;
523 the contents specify the dynamic linker this program uses. */
524 interp_sect_size
= bfd_section_size (exec_bfd
, interp_sect
);
525 buf
= alloca (interp_sect_size
);
526 bfd_get_section_contents (exec_bfd
, interp_sect
,
527 buf
, 0, interp_sect_size
);
529 /* Now we need to figure out where the dynamic linker was
530 loaded so that we can load its symbols and place a breakpoint
531 in the dynamic linker itself.
533 This address is stored on the stack. However, I've been unable
534 to find any magic formula to find it for Solaris (appears to
535 be trivial on GNU/Linux). Therefore, we have to try an alternate
536 mechanism to find the dynamic linker's base address. */
537 tmp_bfd
= bfd_openr (buf
, gnutarget
);
541 /* Make sure the dynamic linker's really a useful object. */
542 if (!bfd_check_format (tmp_bfd
, bfd_object
))
544 warning (_("Unable to grok dynamic linker %s as an object file"), buf
);
549 /* We find the dynamic linker's base address by examining the
550 current pc (which point at the entry point for the dynamic
551 linker) and subtracting the offset of the entry point.
553 Also note the breakpoint is the second instruction in the
555 load_addr
= read_pc () - tmp_bfd
->start_address
;
556 sym_addr
= bfd_lookup_symbol (tmp_bfd
, "__dld_break");
557 sym_addr
= load_addr
+ sym_addr
+ 4;
559 /* Create the shared library breakpoint. */
562 = create_solib_event_breakpoint (sym_addr
);
564 /* The breakpoint is actually hard-coded into the dynamic linker,
565 so we don't need to actually insert a breakpoint instruction
566 there. In fact, the dynamic linker's code is immutable, even to
567 ttrace, so we shouldn't even try to do that. For cases like
568 this, we have "permanent" breakpoints. */
569 make_breakpoint_permanent (b
);
572 /* We're done with the temporary bfd. */
577 /* Wipe out all knowledge of old shared libraries since their
578 mapping can change from one exec to another! */
581 struct so_list
*temp
;
584 xfree (so_list_head
);
585 so_list_head
= temp
->next
;
587 clear_symtab_users ();
590 /* This operation removes the "hook" between GDB and the dynamic linker,
591 which causes the dld to notify GDB of shared library events.
593 After this operation completes, the dld will no longer notify GDB of
594 shared library events. To resume notifications, GDB must call
595 pa64_solib_create_inferior_hook.
597 This operation does not remove any knowledge of shared libraries
598 of which GDB may already have been notified. */
601 pa64_solib_remove_inferior_hook (int pid
)
603 /* Turn off the DT_HP_DEBUG_CALLBACK bit in the dynamic linker flags. */
604 dld_cache
.dld_flags
&= ~DT_HP_DEBUG_CALLBACK
;
605 target_write_memory (dld_cache
.dld_flags_addr
,
606 (char *)&dld_cache
.dld_flags
,
607 sizeof (dld_cache
.dld_flags
));
610 /* This function creates a breakpoint on the dynamic linker hook, which
611 is called when e.g., a shl_load or shl_unload call is made. This
612 breakpoint will only trigger when a shl_load call is made.
614 If filename is NULL, then loads of any dll will be caught. Else,
615 only loads of the file whose pathname is the string contained by
616 filename will be caught.
618 Undefined behaviour is guaranteed if this function is called before
619 pa64_solib_create_inferior_hook. */
622 pa64_solib_create_catch_load_hook (int pid
, int tempflag
, char *filename
,
625 create_solib_load_event_breakpoint ("", tempflag
, filename
, cond_string
);
628 /* This function creates a breakpoint on the dynamic linker hook, which
629 is called when e.g., a shl_load or shl_unload call is made. This
630 breakpoint will only trigger when a shl_unload call is made.
632 If filename is NULL, then unloads of any dll will be caught. Else,
633 only unloads of the file whose pathname is the string contained by
634 filename will be caught.
636 Undefined behaviour is guaranteed if this function is called before
637 pa64_solib_create_inferior_hook. */
640 pa64_solib_create_catch_unload_hook (int pid
, int tempflag
, char *filename
,
643 create_solib_unload_event_breakpoint ("", tempflag
, filename
, cond_string
);
646 /* Return nonzero if the dynamic linker has reproted that a library
650 pa64_solib_have_load_event (int pid
)
652 CORE_ADDR event_kind
;
654 event_kind
= read_register (HPPA_ARG0_REGNUM
);
655 return (event_kind
== DLD_CB_LOAD
);
658 /* Return nonzero if the dynamic linker has reproted that a library
659 has been unloaded. */
661 pa64_solib_have_unload_event (int pid
)
663 CORE_ADDR event_kind
;
665 event_kind
= read_register (HPPA_ARG0_REGNUM
);
666 return (event_kind
== DLD_CB_UNLOAD
);
669 /* Return a pointer to a string indicating the pathname of the most
670 recently loaded library.
672 The caller is reposible for copying the string before the inferior is
676 pa64_solib_loaded_library_pathname (int pid
)
678 static char dll_path
[MAXPATHLEN
];
679 CORE_ADDR dll_path_addr
= read_register (HPPA_ARG3_REGNUM
);
680 read_memory_string (dll_path_addr
, dll_path
, MAXPATHLEN
);
684 /* Return a pointer to a string indicating the pathname of the most
685 recently unloaded library.
687 The caller is reposible for copying the string before the inferior is
691 pa64_solib_unloaded_library_pathname (int pid
)
693 static char dll_path
[MAXPATHLEN
];
694 CORE_ADDR dll_path_addr
= read_register (HPPA_ARG3_REGNUM
);
695 read_memory_string (dll_path_addr
, dll_path
, MAXPATHLEN
);
699 /* Return nonzero if PC is an address inside the dynamic linker. */
702 pa64_solib_in_dynamic_linker (int pid
, CORE_ADDR pc
)
704 asection
*shlib_info
;
706 if (symfile_objfile
== NULL
)
709 if (!dld_cache
.have_read_dld_descriptor
)
710 if (!read_dld_descriptor (¤t_target
, auto_solib_add
))
713 return (pc
>= dld_cache
.dld_desc
.text_base
714 && pc
< dld_cache
.dld_desc
.text_base
+ dld_cache
.dld_desc
.text_size
);
718 /* Return the GOT value for the shared library in which ADDR belongs. If
719 ADDR isn't in any known shared library, return zero. */
722 pa64_solib_get_got_by_pc (CORE_ADDR addr
)
724 struct so_list
*so_list
= so_list_head
;
725 CORE_ADDR got_value
= 0;
729 if (so_list
->pa64_solib_desc
.text_base
<= addr
730 && ((so_list
->pa64_solib_desc
.text_base
731 + so_list
->pa64_solib_desc
.text_size
)
734 got_value
= so_list
->pa64_solib_desc
.linkage_ptr
;
737 so_list
= so_list
->next
;
742 /* Return the address of the handle of the shared library in which ADDR
743 belongs. If ADDR isn't in any known shared library, return zero.
745 This function is used in hppa_fix_call_dummy in hppa-tdep.c. */
748 pa64_solib_get_solib_by_pc (CORE_ADDR addr
)
750 struct so_list
*so_list
= so_list_head
;
751 CORE_ADDR retval
= 0;
755 if (so_list
->pa64_solib_desc
.text_base
<= addr
756 && ((so_list
->pa64_solib_desc
.text_base
757 + so_list
->pa64_solib_desc
.text_size
)
760 retval
= so_list
->pa64_solib_desc_addr
;
763 so_list
= so_list
->next
;
768 /* Dump information about all the currently loaded shared libraries. */
771 pa64_sharedlibrary_info_command (char *ignore
, int from_tty
)
773 struct so_list
*so_list
= so_list_head
;
775 if (exec_bfd
== NULL
)
777 printf_unfiltered ("No executable file.\n");
783 printf_unfiltered ("No shared libraries loaded at this time.\n");
787 printf_unfiltered ("Shared Object Libraries\n");
788 printf_unfiltered (" %-19s%-19s%-19s%-19s\n",
789 " text start", " text end",
790 " data start", " data end");
795 printf_unfiltered ("%s", so_list
->name
);
796 if (so_list
->objfile
== NULL
)
797 printf_unfiltered (" (symbols not loaded)");
798 if (so_list
->loaded
== 0)
799 printf_unfiltered (" (shared library unloaded)");
800 printf_unfiltered (" %-18s",
801 hex_string_custom (so_list
->pa64_solib_desc
.linkage_ptr
, 16));
802 printf_unfiltered ("\n");
803 printf_unfiltered ("%-18s",
804 hex_string_custom (so_list
->pa64_solib_desc
.text_base
, 16));
805 printf_unfiltered (" %-18s",
806 hex_string_custom ((so_list
->pa64_solib_desc
.text_base
807 + so_list
->pa64_solib_desc
.text_size
), 16));
808 printf_unfiltered (" %-18s",
809 hex_string_custom (so_list
->pa64_solib_desc
.data_base
, 16));
810 printf_unfiltered (" %-18s\n",
811 hex_string_custom ((so_list
->pa64_solib_desc
.data_base
812 + so_list
->pa64_solib_desc
.data_size
), 16));
813 so_list
= so_list
->next
;
817 /* Load up one or more shared libraries as directed by the user. */
820 pa64_solib_sharedlibrary_command (char *args
, int from_tty
)
823 pa64_solib_add (args
, from_tty
, (struct target_ops
*) 0, 1);
826 /* Return the name of the shared library containing ADDR or NULL if ADDR
827 is not contained in any known shared library. */
830 pa64_solib_address (CORE_ADDR addr
)
832 struct so_list
*so
= so_list_head
;
836 /* Is this address within this shlib's text range? If so,
837 return the shlib's name. */
838 if (addr
>= so
->pa64_solib_desc
.text_base
839 && addr
< (so
->pa64_solib_desc
.text_base
840 | so
->pa64_solib_desc
.text_size
))
843 /* Nope, keep looking... */
847 /* No, we couldn't prove that the address is within a shlib. */
851 /* We are killing the inferior and restarting the program. */
854 pa64_solib_restart (void)
856 struct so_list
*sl
= so_list_head
;
858 /* Before the shlib info vanishes, use it to disable any breakpoints
859 that may still be active in those shlibs. */
860 disable_breakpoints_in_shlibs (0);
862 /* Discard all the shlib descriptors. */
865 struct so_list
*next_sl
= sl
->next
;
871 pa64_solib_total_st_size
= (LONGEST
) 0;
872 pa64_solib_st_size_threshold_exceeded
= 0;
874 dld_cache
.is_valid
= 0;
875 dld_cache
.have_read_dld_descriptor
= 0;
876 dld_cache
.dld_flags_addr
= 0;
877 dld_cache
.load_map
= 0;
878 dld_cache
.load_map_addr
= 0;
879 dld_cache
.dld_desc
.data_base
= 0;
880 dld_cache
.dld_flags
= 0;
881 dld_cache
.dyninfo_sect
= 0;
885 _initialize_pa64_solib (void)
887 add_com ("sharedlibrary", class_files
, pa64_solib_sharedlibrary_command
,
888 _("Load shared object library symbols for files matching REGEXP."));
889 add_info ("sharedlibrary", pa64_sharedlibrary_info_command
,
890 _("Status of loaded shared object libraries."));
892 add_setshow_boolean_cmd ("auto-solib-add", class_support
,
893 &auto_solib_add
, _("\
894 Set autoloading of shared library symbols."), _("\
895 Show autoloading of shared library symbols."), _("\
896 If \"on\", symbols from all shared object libraries will be loaded\n\
897 automatically when the inferior begins execution, when the dynamic linker\n\
898 informs gdb that a new library has been loaded, or when attaching to the\n\
899 inferior. Otherwise, symbols must be loaded manually, using `sharedlibrary'."),
901 NULL
, /* FIXME: i18n: */
902 &setlist
, &showlist
);
904 add_setshow_zinteger_cmd ("auto-solib-limit", class_support
,
905 &auto_solib_limit
, _("\
906 Set threshold (in Mb) for autoloading shared library symbols."), _("\
907 Show threshold (in Mb) for autoloading shared library symbols."), _("\
908 When shared library autoloading is enabled, new libraries will be loaded\n\
909 only until the total size of shared library symbols exceeds this\n\
910 threshold in megabytes. Is ignored when using `sharedlibrary'."),
912 NULL
, /* FIXME: i18n: */
913 &setlist
, &showlist
);
915 /* ??rehrauer: On HP-UX, the kernel parameter MAXDSIZ limits how
916 much data space a process can use. We ought to be reading
917 MAXDSIZ and setting auto_solib_limit to some large fraction of
918 that value. If not that, we maybe ought to be setting it smaller
919 than the default for MAXDSIZ (that being 64Mb, I believe).
920 However, [1] this threshold is only crudely approximated rather
921 than actually measured, and [2] 50 Mbytes is too small for
922 debugging gdb itself. Thus, the arbitrary 100 figure. */
923 auto_solib_limit
= 100; /* Megabytes */
925 pa64_solib_restart ();
928 /* Get some HPUX-specific data from a shared lib. */
930 pa64_solib_thread_start_addr (struct so_list
*so
)
932 return so
->pa64_solib_desc
.tls_start_addr
;
935 /* Read the dynamic linker's internal shared library descriptor.
937 This must happen after dld starts running, so we can't do it in
938 read_dynamic_info. Record the fact that we have loaded the
939 descriptor. If the library is archive bound, then return zero, else
943 read_dld_descriptor (struct target_ops
*target
, int readsyms
)
946 asection
*dyninfo_sect
;
948 /* If necessary call read_dynamic_info to extract the contents of the
949 .dynamic section from the shared library. */
950 if (!dld_cache
.is_valid
)
952 if (symfile_objfile
== NULL
)
953 error (_("No object file symbols."));
955 dyninfo_sect
= bfd_get_section_by_name (symfile_objfile
->obfd
,
962 if (!read_dynamic_info (dyninfo_sect
, &dld_cache
))
963 error (_("Unable to read in .dynamic section information."));
966 /* Read the load map pointer. */
967 if (target_read_memory (dld_cache
.load_map_addr
,
968 (char*) &dld_cache
.load_map
,
969 sizeof(dld_cache
.load_map
))
972 error (_("Error while reading in load map pointer."));
975 /* Read in the dld load module descriptor */
976 if (dlgetmodinfo (-1,
978 sizeof(dld_cache
.dld_desc
),
979 pa64_target_read_memory
,
984 error (_("Error trying to get information about dynamic linker."));
987 /* Indicate that we have loaded the dld descriptor. */
988 dld_cache
.have_read_dld_descriptor
= 1;
990 /* Add dld.sl to the list of known shared libraries so that we can
993 ?!? This may not be correct. Consider of dld.sl contains symbols
994 which are also referenced/defined by the user program or some user
995 shared library. We need to make absolutely sure that we do not
996 pollute the namespace from GDB's point of view. */
997 dll_path
= dlgetname (&dld_cache
.dld_desc
,
998 sizeof(dld_cache
.dld_desc
),
999 pa64_target_read_memory
,
1001 dld_cache
.load_map
);
1002 add_to_solist(0, dll_path
, readsyms
, &dld_cache
.dld_desc
, 0, target
);
1007 /* Read the .dynamic section and extract the information of interest,
1008 which is stored in dld_cache. The routine elf_locate_base in solib.c
1009 was used as a model for this. */
1012 read_dynamic_info (asection
*dyninfo_sect
, dld_cache_t
*dld_cache_p
)
1016 CORE_ADDR dyninfo_addr
;
1017 int dyninfo_sect_size
;
1018 CORE_ADDR entry_addr
;
1020 /* Read in .dynamic section, silently ignore errors. */
1021 dyninfo_addr
= bfd_section_vma (symfile_objfile
->obfd
, dyninfo_sect
);
1022 dyninfo_sect_size
= bfd_section_size (exec_bfd
, dyninfo_sect
);
1023 buf
= alloca (dyninfo_sect_size
);
1024 if (target_read_memory (dyninfo_addr
, buf
, dyninfo_sect_size
))
1027 /* Scan the .dynamic section and record the items of interest.
1028 In particular, DT_HP_DLD_FLAGS */
1029 for (bufend
= buf
+ dyninfo_sect_size
, entry_addr
= dyninfo_addr
;
1031 buf
+= sizeof (Elf64_Dyn
), entry_addr
+= sizeof (Elf64_Dyn
))
1033 Elf64_Dyn
*x_dynp
= (Elf64_Dyn
*)buf
;
1034 Elf64_Sxword dyn_tag
;
1038 pbuf
= alloca (TARGET_PTR_BIT
/ HOST_CHAR_BIT
);
1039 dyn_tag
= bfd_h_get_64 (symfile_objfile
->obfd
,
1040 (bfd_byte
*) &x_dynp
->d_tag
);
1042 /* We can't use a switch here because dyn_tag is 64 bits and HP's
1043 lame comiler does not handle 64bit items in switch statements. */
1044 if (dyn_tag
== DT_NULL
)
1046 else if (dyn_tag
== DT_HP_DLD_FLAGS
)
1048 /* Set dld_flags_addr and dld_flags in *dld_cache_p */
1049 dld_cache_p
->dld_flags_addr
= entry_addr
+ offsetof(Elf64_Dyn
, d_un
);
1050 if (target_read_memory (dld_cache_p
->dld_flags_addr
,
1051 (char*) &dld_cache_p
->dld_flags
,
1052 sizeof(dld_cache_p
->dld_flags
))
1055 error (_("Error while reading in .dynamic section of the program."));
1058 else if (dyn_tag
== DT_HP_LOAD_MAP
)
1060 /* Dld will place the address of the load map at load_map_addr
1061 after it starts running. */
1062 if (target_read_memory (entry_addr
+ offsetof(Elf64_Dyn
,
1064 (char*) &dld_cache_p
->load_map_addr
,
1065 sizeof(dld_cache_p
->load_map_addr
))
1068 error (_("Error while reading in .dynamic section of the program."));
1073 /* tag is not of interest */
1077 /* Record other information and set is_valid to 1. */
1078 dld_cache_p
->dyninfo_sect
= dyninfo_sect
;
1080 /* Verify that we read in required info. These fields are re-set to zero
1081 in pa64_solib_restart. */
1083 if (dld_cache_p
->dld_flags_addr
!= 0 && dld_cache_p
->load_map_addr
!= 0)
1084 dld_cache_p
->is_valid
= 1;
1091 /* Wrapper for target_read_memory to make dlgetmodinfo happy. */
1094 pa64_target_read_memory (void *buffer
, CORE_ADDR ptr
, size_t bufsiz
, int ident
)
1096 if (target_read_memory (ptr
, buffer
, bufsiz
) != 0)
1101 /* Called from handle_dynlink_load_event and pa64_solib_add to add
1102 a shared library to so_list_head list and possibly to read in the
1103 debug information for the library.
1105 If load_module_desc_p is NULL, then the load module descriptor must
1106 be read from the inferior process at the address load_module_desc_addr. */
1109 add_to_solist (int from_tty
, char *dll_path
, int readsyms
,
1110 struct load_module_desc
*load_module_desc_p
,
1111 CORE_ADDR load_module_desc_addr
, struct target_ops
*target
)
1113 struct so_list
*new_so
, *so_list_tail
;
1114 int pa64_solib_st_size_threshhold_exceeded
;
1117 if (symfile_objfile
== NULL
)
1120 so_list_tail
= so_list_head
;
1121 /* Find the end of the list of shared objects. */
1122 while (so_list_tail
&& so_list_tail
->next
)
1124 if (strcmp (so_list_tail
->name
, dll_path
) == 0)
1126 so_list_tail
= so_list_tail
->next
;
1129 if (so_list_tail
&& strcmp (so_list_tail
->name
, dll_path
) == 0)
1132 /* Add the shared library to the so_list_head list */
1133 new_so
= (struct so_list
*) xmalloc (sizeof (struct so_list
));
1134 memset ((char *)new_so
, 0, sizeof (struct so_list
));
1135 if (so_list_head
== NULL
)
1137 so_list_head
= new_so
;
1138 so_list_tail
= new_so
;
1142 so_list_tail
->next
= new_so
;
1143 so_list_tail
= new_so
;
1146 /* Initialize the new_so */
1147 if (load_module_desc_p
)
1149 new_so
->pa64_solib_desc
= *load_module_desc_p
;
1153 if (target_read_memory (load_module_desc_addr
,
1154 (char*) &new_so
->pa64_solib_desc
,
1155 sizeof(struct load_module_desc
))
1158 error (_("Error while reading in dynamic library %s"), dll_path
);
1162 new_so
->pa64_solib_desc_addr
= load_module_desc_addr
;
1164 new_so
->name
= obsavestring (dll_path
, strlen(dll_path
),
1165 &symfile_objfile
->objfile_obstack
);
1167 /* If we are not going to load the library, tell the user if we
1168 haven't already and return. */
1170 st_size
= pa64_solib_sizeof_symbol_table (dll_path
);
1171 pa64_solib_st_size_threshhold_exceeded
=
1174 && ( (st_size
+ pa64_solib_total_st_size
)
1175 > (auto_solib_limit
* (LONGEST
) (1024 * 1024)));
1176 if (pa64_solib_st_size_threshhold_exceeded
)
1178 pa64_solib_add_solib_objfile (new_so
, dll_path
, from_tty
, 1);
1182 /* Now read in debug info. */
1183 pa64_solib_total_st_size
+= st_size
;
1185 /* This fills in new_so->objfile, among others. */
1186 pa64_solib_load_symbols (new_so
,
1198 bfd_lookup_symbol -- lookup the value for a specific symbol
1202 CORE_ADDR bfd_lookup_symbol (bfd *abfd, char *symname)
1206 An expensive way to lookup the value of a single symbol for
1207 bfd's that are only temporary anyway. This is used by the
1208 shared library support to find the address of the debugger
1209 interface structures in the shared library.
1211 Note that 0 is specifically allowed as an error return (no
1216 bfd_lookup_symbol (bfd
*abfd
, char *symname
)
1218 unsigned int storage_needed
;
1220 asymbol
**symbol_table
;
1221 unsigned int number_of_symbols
;
1223 struct cleanup
*back_to
;
1224 CORE_ADDR symaddr
= 0;
1226 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
1228 if (storage_needed
> 0)
1230 symbol_table
= (asymbol
**) xmalloc (storage_needed
);
1231 back_to
= make_cleanup (xfree
, symbol_table
);
1232 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
1234 for (i
= 0; i
< number_of_symbols
; i
++)
1236 sym
= *symbol_table
++;
1237 if (strcmp (sym
->name
, symname
) == 0)
1239 /* Bfd symbols are section relative. */
1240 symaddr
= sym
->value
+ sym
->section
->vma
;
1244 do_cleanups (back_to
);