1 /* Read HP PA/Risc object files for GDB.
2 Copyright (C) 1991, 1992, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002,
3 2004, 2007 Free Software Foundation, Inc.
4 Written by Fred Fish at Cygnus Support.
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., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA. */
30 #include "stabsread.h"
31 #include "gdb-stabs.h"
32 #include "complaints.h"
33 #include "gdb_string.h"
38 #include "solib-som.h"
40 /* Prototypes for local functions. */
41 static int init_import_symbols (struct objfile
*objfile
);
47 som_symtab_read -- read the symbol table of a SOM file
51 void som_symtab_read (bfd *abfd, struct objfile *objfile,
52 struct section_offsets *section_offsets)
56 Given an open bfd, a base address to relocate symbols to, and a
57 flag that specifies whether or not this bfd is for an executable
58 or not (may be shared library for example), add all the global
59 function and data symbols to the minimal symbol table.
63 som_symtab_read (bfd
*abfd
, struct objfile
*objfile
,
64 struct section_offsets
*section_offsets
)
66 unsigned int number_of_symbols
;
70 struct symbol_dictionary_record
*buf
, *bufp
, *endbufp
;
72 CONST
int symsize
= sizeof (struct symbol_dictionary_record
);
73 CORE_ADDR text_offset
, data_offset
;
76 text_offset
= ANOFFSET (section_offsets
, 0);
77 data_offset
= ANOFFSET (section_offsets
, 1);
79 number_of_symbols
= bfd_get_symcount (abfd
);
81 /* Allocate a buffer to read in the debug info.
82 We avoid using alloca because the memory size could be so large
83 that we could hit the stack size limit. */
84 buf
= xmalloc (symsize
* number_of_symbols
);
85 make_cleanup (xfree
, buf
);
86 bfd_seek (abfd
, obj_som_sym_filepos (abfd
), SEEK_SET
);
87 val
= bfd_bread (buf
, symsize
* number_of_symbols
, abfd
);
88 if (val
!= symsize
* number_of_symbols
)
89 error (_("Couldn't read symbol dictionary!"));
91 /* Allocate a buffer to read in the som stringtab section of
92 the debugging info. Again, we avoid using alloca because
93 the data could be so large that we could potentially hit
94 the stack size limitat. */
95 stringtab
= xmalloc (obj_som_stringtab_size (abfd
));
96 make_cleanup (xfree
, stringtab
);
97 bfd_seek (abfd
, obj_som_str_filepos (abfd
), SEEK_SET
);
98 val
= bfd_bread (stringtab
, obj_som_stringtab_size (abfd
), abfd
);
99 if (val
!= obj_som_stringtab_size (abfd
))
100 error (_("Can't read in HP string table."));
102 /* We need to determine if objfile is a dynamic executable (so we
103 can do the right thing for ST_ENTRY vs ST_CODE symbols).
105 There's nothing in the header which easily allows us to do
108 This code used to rely upon the existence of a $SHLIB_INFO$
109 section to make this determination. HP claims that it is
110 more accurate to check for a nonzero text offset, but they
111 have not provided any information about why that test is
113 dynamic
= (text_offset
!= 0);
115 endbufp
= buf
+ number_of_symbols
;
116 for (bufp
= buf
; bufp
< endbufp
; ++bufp
)
118 enum minimal_symbol_type ms_type
;
122 switch (bufp
->symbol_scope
)
126 switch (bufp
->symbol_type
)
136 symname
= bufp
->name
.n_strx
+ stringtab
;
138 bufp
->symbol_value
+= text_offset
;
139 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
143 symname
= bufp
->name
.n_strx
+ stringtab
;
144 /* For a dynamic executable, ST_ENTRY symbols are
145 the stubs, while the ST_CODE symbol is the real
148 ms_type
= mst_solib_trampoline
;
151 bufp
->symbol_value
+= text_offset
;
152 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
156 symname
= bufp
->name
.n_strx
+ stringtab
;
157 ms_type
= mst_solib_trampoline
;
158 bufp
->symbol_value
+= text_offset
;
159 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
163 symname
= bufp
->name
.n_strx
+ stringtab
;
164 bufp
->symbol_value
+= data_offset
;
173 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */
177 switch (bufp
->symbol_type
)
184 symname
= bufp
->name
.n_strx
+ stringtab
;
185 ms_type
= mst_file_text
;
186 bufp
->symbol_value
+= text_offset
;
187 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
190 /* Utah GCC 2.5, FSF GCC 2.6 and later generate correct local
191 label prefixes for stabs, constant data, etc. So we need
192 only filter out L$ symbols which are left in due to
193 limitations in how GAS generates SOM relocations.
195 When linking in the HPUX C-library the HP linker has
196 the nasty habit of placing section symbols from the literal
197 subspaces in the middle of the program's text. Filter
198 those out as best we can. Check for first and last character
201 And finally, the newer HP compilers emit crud like $PIC_foo$N
202 in some circumstance (PIC code I guess). It's also claimed
203 that they emit D$ symbols too. What stupidity. */
204 if ((symname
[0] == 'L' && symname
[1] == '$')
205 || (symname
[0] == '$' && symname
[strlen (symname
) - 1] == '$')
206 || (symname
[0] == 'D' && symname
[1] == '$')
207 || (strncmp (symname
, "L0\001", 3) == 0)
208 || (strncmp (symname
, "$PIC", 4) == 0))
215 symname
= bufp
->name
.n_strx
+ stringtab
;
216 ms_type
= mst_file_text
;
217 bufp
->symbol_value
+= text_offset
;
218 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
222 symname
= bufp
->name
.n_strx
+ stringtab
;
223 /* SS_LOCAL symbols in a shared library do not have
224 export stubs, so we do not have to worry about
225 using mst_file_text vs mst_solib_trampoline here like
226 we do for SS_UNIVERSAL and SS_EXTERNAL symbols above. */
227 ms_type
= mst_file_text
;
228 bufp
->symbol_value
+= text_offset
;
229 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
233 symname
= bufp
->name
.n_strx
+ stringtab
;
234 ms_type
= mst_solib_trampoline
;
235 bufp
->symbol_value
+= text_offset
;
236 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
241 symname
= bufp
->name
.n_strx
+ stringtab
;
242 bufp
->symbol_value
+= data_offset
;
243 ms_type
= mst_file_data
;
244 goto check_strange_names
;
251 /* This can happen for common symbols when -E is passed to the
252 final link. No idea _why_ that would make the linker force
253 common symbols to have an SS_UNSAT scope, but it does.
255 This also happens for weak symbols, but their type is
258 switch (bufp
->symbol_type
)
262 symname
= bufp
->name
.n_strx
+ stringtab
;
263 bufp
->symbol_value
+= data_offset
;
276 if (bufp
->name
.n_strx
> obj_som_stringtab_size (abfd
))
277 error (_("Invalid symbol data; bad HP string table offset: %d"),
280 prim_record_minimal_symbol (symname
, bufp
->symbol_value
, ms_type
,
285 /* Scan and build partial symbols for a symbol file.
286 We have been initialized by a call to som_symfile_init, which
287 currently does nothing.
289 SECTION_OFFSETS is a set of offsets to apply to relocate the symbols
290 in each section. This is ignored, as it isn't needed for SOM.
292 MAINLINE is true if we are reading the main symbol
293 table (as opposed to a shared lib or dynamically loaded file).
295 This function only does the minimum work necessary for letting the
296 user "name" things symbolically; it does not read the entire symtab.
297 Instead, it reads the external and static symbols and puts them in partial
298 symbol tables. When more extensive information is requested of a
299 file, the corresponding partial symbol table is mutated into a full
300 fledged symbol table by going back and reading the symbols
303 We look for sections with specific names, to tell us what debug
304 format to look for: FIXME!!!
306 somstab_build_psymtabs() handles STABS symbols.
308 Note that SOM files have a "minimal" symbol table, which is vaguely
309 reminiscent of a COFF symbol table, but has only the minimal information
310 necessary for linking. We process this also, and use the information to
311 build gdb's minimal symbol table. This gives us some minimal debugging
312 capability even for files compiled without -g. */
315 som_symfile_read (struct objfile
*objfile
, int mainline
)
317 bfd
*abfd
= objfile
->obfd
;
318 struct cleanup
*back_to
;
320 init_minimal_symbol_collection ();
321 back_to
= make_cleanup_discard_minimal_symbols ();
323 /* Read in the import list and the export list. Currently
324 the export list isn't used; the import list is used in
325 hp-symtab-read.c to handle static vars declared in other
327 init_import_symbols (objfile
);
328 #if 0 /* Export symbols not used today 1997-08-05 */
329 init_export_symbols (objfile
);
331 objfile
->export_list
= NULL
;
332 objfile
->export_list_size
= 0;
335 /* Process the normal SOM symbol table first.
336 This reads in the DNTT and string table, but doesn't
337 actually scan the DNTT. It does scan the linker symbol
338 table and thus build up a "minimal symbol table". */
340 som_symtab_read (abfd
, objfile
, objfile
->section_offsets
);
342 /* Install any minimal symbols that have been collected as the current
343 minimal symbols for this objfile.
344 Further symbol-reading is done incrementally, file-by-file,
345 in a step known as "psymtab-to-symtab" expansion. hp-symtab-read.c
346 contains the code to do the actual DNTT scanning and symtab building. */
347 install_minimal_symbols (objfile
);
348 do_cleanups (back_to
);
350 /* Now read information from the stabs debug sections.
351 This is emitted by gcc. */
352 stabsect_build_psymtabs (objfile
, mainline
,
353 "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$");
356 /* Initialize anything that needs initializing when a completely new symbol
357 file is specified (not just adding some symbols from another file, e.g. a
360 We reinitialize buildsym, since we may be reading stabs from a SOM file. */
363 som_new_init (struct objfile
*ignore
)
365 stabsread_new_init ();
366 buildsym_new_init ();
369 /* Perform any local cleanups required when we are done with a particular
370 objfile. I.E, we are in the process of discarding all symbol information
371 for an objfile, freeing up all memory held for it, and unlinking the
372 objfile struct from the global list of known objfiles. */
375 som_symfile_finish (struct objfile
*objfile
)
377 if (objfile
->deprecated_sym_stab_info
!= NULL
)
379 xfree (objfile
->deprecated_sym_stab_info
);
383 /* SOM specific initialization routine for reading symbols. */
386 som_symfile_init (struct objfile
*objfile
)
388 /* SOM objects may be reordered, so set OBJF_REORDERED. If we
389 find this causes a significant slowdown in gdb then we could
390 set it in the debug symbol readers only when necessary. */
391 objfile
->flags
|= OBJF_REORDERED
;
394 /* SOM specific parsing routine for section offsets.
396 Plain and simple for now. */
399 som_symfile_offsets (struct objfile
*objfile
, struct section_addr_info
*addrs
)
404 objfile
->num_sections
= bfd_count_sections (objfile
->obfd
);
405 objfile
->section_offsets
= (struct section_offsets
*)
406 obstack_alloc (&objfile
->objfile_obstack
,
407 SIZEOF_N_SECTION_OFFSETS (objfile
->num_sections
));
409 /* FIXME: ezannoni 2000-04-20 The section names in SOM are not
410 .text, .data, etc, but $TEXT$, $DATA$,... We should initialize
411 SET_OFF_* from bfd. (See default_symfile_offsets()). But I don't
412 know the correspondence between SOM sections and GDB's idea of
413 section names. So for now we default to what is was before these
415 objfile
->sect_index_text
= 0;
416 objfile
->sect_index_data
= 1;
417 objfile
->sect_index_bss
= 2;
418 objfile
->sect_index_rodata
= 3;
420 /* First see if we're a shared library. If so, get the section
421 offsets from the library, else get them from addrs. */
422 if (!som_solib_section_offsets (objfile
, objfile
->section_offsets
))
424 /* Note: Here is OK to compare with ".text" because this is the
425 name that gdb itself gives to that section, not the SOM
427 for (i
= 0; i
< addrs
->num_sections
&& addrs
->other
[i
].name
; i
++)
428 if (strcmp (addrs
->other
[i
].name
, ".text") == 0)
430 text_addr
= addrs
->other
[i
].addr
;
432 for (i
= 0; i
< objfile
->num_sections
; i
++)
433 (objfile
->section_offsets
)->offsets
[i
] = text_addr
;
437 /* Read in and initialize the SOM import list which is present
438 for all executables and shared libraries. The import list
439 consists of the symbols that are referenced in OBJFILE but
440 not defined there. (Variables that are imported are dealt
441 with as "loc_indirect" vars.)
442 Return value = number of import symbols read in. */
444 init_import_symbols (struct objfile
*objfile
)
446 unsigned int import_list
;
447 unsigned int import_list_size
;
448 unsigned int string_table
;
449 unsigned int string_table_size
;
454 asection
*text_section
; /* section handle */
455 unsigned int dl_header
[12]; /* SOM executable header */
457 /* A struct for an entry in the SOM import list */
460 int name
; /* index into the string table */
461 short dont_care1
; /* we don't use this */
462 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
463 unsigned int reserved2
:8; /* not used */
467 /* We read 100 entries in at a time from the disk file. */
468 #define SOM_READ_IMPORTS_NUM 100
469 #define SOM_READ_IMPORTS_CHUNK_SIZE (sizeof (SomImportEntry) * SOM_READ_IMPORTS_NUM)
470 SomImportEntry buffer
[SOM_READ_IMPORTS_NUM
];
472 /* Initialize in case we error out */
473 objfile
->import_list
= NULL
;
474 objfile
->import_list_size
= 0;
476 /* It doesn't work, for some reason, to read in space $TEXT$;
477 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
478 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
481 /* Get the SOM executable header */
482 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
484 /* Check header version number for 10.x HP-UX */
485 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
486 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
487 if (dl_header
[0] != 93092112)
490 import_list
= dl_header
[4];
491 import_list_size
= dl_header
[5];
492 if (!import_list_size
)
494 string_table
= dl_header
[10];
495 string_table_size
= dl_header
[11];
496 if (!string_table_size
)
499 /* Suck in SOM string table */
500 string_buffer
= (char *) xmalloc (string_table_size
);
501 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
502 string_table
, string_table_size
);
504 /* Allocate import list in the psymbol obstack; this has nothing
505 to do with psymbols, just a matter of convenience. We want the
506 import list to be freed when the objfile is deallocated */
508 = (ImportEntry
*) obstack_alloc (&objfile
->objfile_obstack
,
509 import_list_size
* sizeof (ImportEntry
));
511 /* Read in the import entries, a bunch at a time */
513 j
< (import_list_size
/ SOM_READ_IMPORTS_NUM
);
516 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
517 import_list
+ j
* SOM_READ_IMPORTS_CHUNK_SIZE
,
518 SOM_READ_IMPORTS_CHUNK_SIZE
);
519 for (i
= 0; i
< SOM_READ_IMPORTS_NUM
; i
++, k
++)
521 if (buffer
[i
].type
!= (unsigned char) 0)
523 objfile
->import_list
[k
]
524 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
525 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
526 /* Some day we might want to record the type and other information too */
529 objfile
->import_list
[k
] = NULL
;
534 /* Get the leftovers */
535 if (k
< import_list_size
)
536 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
537 import_list
+ k
* sizeof (SomImportEntry
),
538 (import_list_size
- k
) * sizeof (SomImportEntry
));
539 for (i
= 0; k
< import_list_size
; i
++, k
++)
541 if (buffer
[i
].type
!= (unsigned char) 0)
543 objfile
->import_list
[k
]
544 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
545 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
546 /* Some day we might want to record the type and other information too */
549 objfile
->import_list
[k
] = NULL
;
552 objfile
->import_list_size
= import_list_size
;
553 xfree (string_buffer
);
554 return import_list_size
;
557 /* Read in and initialize the SOM export list which is present
558 for all executables and shared libraries. The import list
559 consists of the symbols that are referenced in OBJFILE but
560 not defined there. (Variables that are imported are dealt
561 with as "loc_indirect" vars.)
562 Return value = number of import symbols read in. */
564 init_export_symbols (struct objfile
*objfile
)
566 unsigned int export_list
;
567 unsigned int export_list_size
;
568 unsigned int string_table
;
569 unsigned int string_table_size
;
574 asection
*text_section
; /* section handle */
575 unsigned int dl_header
[12]; /* SOM executable header */
577 /* A struct for an entry in the SOM export list */
580 int next
; /* for hash table use -- we don't use this */
581 int name
; /* index into string table */
582 int value
; /* offset or plabel */
583 int dont_care1
; /* not used */
584 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
585 char dont_care2
; /* not used */
586 short dont_care3
; /* not used */
590 /* We read 100 entries in at a time from the disk file. */
591 #define SOM_READ_EXPORTS_NUM 100
592 #define SOM_READ_EXPORTS_CHUNK_SIZE (sizeof (SomExportEntry) * SOM_READ_EXPORTS_NUM)
593 SomExportEntry buffer
[SOM_READ_EXPORTS_NUM
];
595 /* Initialize in case we error out */
596 objfile
->export_list
= NULL
;
597 objfile
->export_list_size
= 0;
599 /* It doesn't work, for some reason, to read in space $TEXT$;
600 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
601 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
604 /* Get the SOM executable header */
605 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
607 /* Check header version number for 10.x HP-UX */
608 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
609 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
610 if (dl_header
[0] != 93092112)
613 export_list
= dl_header
[8];
614 export_list_size
= dl_header
[9];
615 if (!export_list_size
)
617 string_table
= dl_header
[10];
618 string_table_size
= dl_header
[11];
619 if (!string_table_size
)
622 /* Suck in SOM string table */
623 string_buffer
= (char *) xmalloc (string_table_size
);
624 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
625 string_table
, string_table_size
);
627 /* Allocate export list in the psymbol obstack; this has nothing
628 to do with psymbols, just a matter of convenience. We want the
629 export list to be freed when the objfile is deallocated */
631 = (ExportEntry
*) obstack_alloc (&objfile
->objfile_obstack
,
632 export_list_size
* sizeof (ExportEntry
));
634 /* Read in the export entries, a bunch at a time */
636 j
< (export_list_size
/ SOM_READ_EXPORTS_NUM
);
639 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
640 export_list
+ j
* SOM_READ_EXPORTS_CHUNK_SIZE
,
641 SOM_READ_EXPORTS_CHUNK_SIZE
);
642 for (i
= 0; i
< SOM_READ_EXPORTS_NUM
; i
++, k
++)
644 if (buffer
[i
].type
!= (unsigned char) 0)
646 objfile
->export_list
[k
].name
647 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
648 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
649 objfile
->export_list
[k
].address
= buffer
[i
].value
;
650 /* Some day we might want to record the type and other information too */
655 objfile
->export_list
[k
].name
= NULL
;
656 objfile
->export_list
[k
].address
= 0;
661 /* Get the leftovers */
662 if (k
< export_list_size
)
663 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
664 export_list
+ k
* sizeof (SomExportEntry
),
665 (export_list_size
- k
) * sizeof (SomExportEntry
));
666 for (i
= 0; k
< export_list_size
; i
++, k
++)
668 if (buffer
[i
].type
!= (unsigned char) 0)
670 objfile
->export_list
[k
].name
671 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
672 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
673 /* Some day we might want to record the type and other information too */
674 objfile
->export_list
[k
].address
= buffer
[i
].value
;
678 objfile
->export_list
[k
].name
= NULL
;
679 objfile
->export_list
[k
].address
= 0;
683 objfile
->export_list_size
= export_list_size
;
684 xfree (string_buffer
);
685 return export_list_size
;
690 /* Register that we are able to handle SOM object file formats. */
692 static struct sym_fns som_sym_fns
=
694 bfd_target_som_flavour
,
695 som_new_init
, /* sym_new_init: init anything gbl to entire symtab */
696 som_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
697 som_symfile_read
, /* sym_read: read a symbol file into symtab */
698 som_symfile_finish
, /* sym_finish: finished with file, cleanup */
699 som_symfile_offsets
, /* sym_offsets: Translate ext. to int. relocation */
700 NULL
/* next: pointer to next struct sym_fns */
704 _initialize_somread (void)
706 add_symtab_fns (&som_sym_fns
);