1 /* Read HP PA/Risc object files for GDB.
2 Copyright (C) 1991, 1992, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002,
3 2004 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
);
43 /* FIXME: These should really be in a common header somewhere */
45 extern void hpread_build_psymtabs (struct objfile
*, int);
47 extern void hpread_symfile_finish (struct objfile
*);
49 extern void hpread_symfile_init (struct objfile
*);
51 extern void do_pxdb (bfd
*);
57 som_symtab_read -- read the symbol table of a SOM file
61 void som_symtab_read (bfd *abfd, struct objfile *objfile,
62 struct section_offsets *section_offsets)
66 Given an open bfd, a base address to relocate symbols to, and a
67 flag that specifies whether or not this bfd is for an executable
68 or not (may be shared library for example), add all the global
69 function and data symbols to the minimal symbol table.
73 som_symtab_read (bfd
*abfd
, struct objfile
*objfile
,
74 struct section_offsets
*section_offsets
)
76 unsigned int number_of_symbols
;
80 struct symbol_dictionary_record
*buf
, *bufp
, *endbufp
;
82 CONST
int symsize
= sizeof (struct symbol_dictionary_record
);
83 CORE_ADDR text_offset
, data_offset
;
86 text_offset
= ANOFFSET (section_offsets
, 0);
87 data_offset
= ANOFFSET (section_offsets
, 1);
89 number_of_symbols
= bfd_get_symcount (abfd
);
91 /* Allocate a buffer to read in the debug info.
92 We avoid using alloca because the memory size could be so large
93 that we could hit the stack size limit. */
94 buf
= xmalloc (symsize
* number_of_symbols
);
95 make_cleanup (xfree
, buf
);
96 bfd_seek (abfd
, obj_som_sym_filepos (abfd
), SEEK_SET
);
97 val
= bfd_bread (buf
, symsize
* number_of_symbols
, abfd
);
98 if (val
!= symsize
* number_of_symbols
)
99 error (_("Couldn't read symbol dictionary!"));
101 /* Allocate a buffer to read in the som stringtab section of
102 the debugging info. Again, we avoid using alloca because
103 the data could be so large that we could potentially hit
104 the stack size limitat. */
105 stringtab
= xmalloc (obj_som_stringtab_size (abfd
));
106 make_cleanup (xfree
, stringtab
);
107 bfd_seek (abfd
, obj_som_str_filepos (abfd
), SEEK_SET
);
108 val
= bfd_bread (stringtab
, obj_som_stringtab_size (abfd
), abfd
);
109 if (val
!= obj_som_stringtab_size (abfd
))
110 error (_("Can't read in HP string table."));
112 /* We need to determine if objfile is a dynamic executable (so we
113 can do the right thing for ST_ENTRY vs ST_CODE symbols).
115 There's nothing in the header which easily allows us to do
118 This code used to rely upon the existence of a $SHLIB_INFO$
119 section to make this determination. HP claims that it is
120 more accurate to check for a nonzero text offset, but they
121 have not provided any information about why that test is
123 dynamic
= (text_offset
!= 0);
125 endbufp
= buf
+ number_of_symbols
;
126 for (bufp
= buf
; bufp
< endbufp
; ++bufp
)
128 enum minimal_symbol_type ms_type
;
132 switch (bufp
->symbol_scope
)
136 switch (bufp
->symbol_type
)
146 symname
= bufp
->name
.n_strx
+ stringtab
;
148 bufp
->symbol_value
+= text_offset
;
149 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
153 symname
= bufp
->name
.n_strx
+ stringtab
;
154 /* For a dynamic executable, ST_ENTRY symbols are
155 the stubs, while the ST_CODE symbol is the real
158 ms_type
= mst_solib_trampoline
;
161 bufp
->symbol_value
+= text_offset
;
162 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
166 symname
= bufp
->name
.n_strx
+ stringtab
;
167 ms_type
= mst_solib_trampoline
;
168 bufp
->symbol_value
+= text_offset
;
169 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
173 symname
= bufp
->name
.n_strx
+ stringtab
;
174 bufp
->symbol_value
+= data_offset
;
183 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */
187 switch (bufp
->symbol_type
)
194 symname
= bufp
->name
.n_strx
+ stringtab
;
195 ms_type
= mst_file_text
;
196 bufp
->symbol_value
+= text_offset
;
197 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
200 /* Utah GCC 2.5, FSF GCC 2.6 and later generate correct local
201 label prefixes for stabs, constant data, etc. So we need
202 only filter out L$ symbols which are left in due to
203 limitations in how GAS generates SOM relocations.
205 When linking in the HPUX C-library the HP linker has
206 the nasty habit of placing section symbols from the literal
207 subspaces in the middle of the program's text. Filter
208 those out as best we can. Check for first and last character
211 And finally, the newer HP compilers emit crud like $PIC_foo$N
212 in some circumstance (PIC code I guess). It's also claimed
213 that they emit D$ symbols too. What stupidity. */
214 if ((symname
[0] == 'L' && symname
[1] == '$')
215 || (symname
[0] == '$' && symname
[strlen (symname
) - 1] == '$')
216 || (symname
[0] == 'D' && symname
[1] == '$')
217 || (strncmp (symname
, "L0\001", 3) == 0)
218 || (strncmp (symname
, "$PIC", 4) == 0))
225 symname
= bufp
->name
.n_strx
+ stringtab
;
226 ms_type
= mst_file_text
;
227 bufp
->symbol_value
+= text_offset
;
228 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
232 symname
= bufp
->name
.n_strx
+ stringtab
;
233 /* SS_LOCAL symbols in a shared library do not have
234 export stubs, so we do not have to worry about
235 using mst_file_text vs mst_solib_trampoline here like
236 we do for SS_UNIVERSAL and SS_EXTERNAL symbols above. */
237 ms_type
= mst_file_text
;
238 bufp
->symbol_value
+= text_offset
;
239 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
243 symname
= bufp
->name
.n_strx
+ stringtab
;
244 ms_type
= mst_solib_trampoline
;
245 bufp
->symbol_value
+= text_offset
;
246 bufp
->symbol_value
= SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
251 symname
= bufp
->name
.n_strx
+ stringtab
;
252 bufp
->symbol_value
+= data_offset
;
253 ms_type
= mst_file_data
;
254 goto check_strange_names
;
261 /* This can happen for common symbols when -E is passed to the
262 final link. No idea _why_ that would make the linker force
263 common symbols to have an SS_UNSAT scope, but it does.
265 This also happens for weak symbols, but their type is
268 switch (bufp
->symbol_type
)
272 symname
= bufp
->name
.n_strx
+ stringtab
;
273 bufp
->symbol_value
+= data_offset
;
286 if (bufp
->name
.n_strx
> obj_som_stringtab_size (abfd
))
287 error (_("Invalid symbol data; bad HP string table offset: %d"),
290 prim_record_minimal_symbol (symname
, bufp
->symbol_value
, ms_type
,
295 /* Scan and build partial symbols for a symbol file.
296 We have been initialized by a call to som_symfile_init, which
297 currently does nothing.
299 SECTION_OFFSETS is a set of offsets to apply to relocate the symbols
300 in each section. This is ignored, as it isn't needed for SOM.
302 MAINLINE is true if we are reading the main symbol
303 table (as opposed to a shared lib or dynamically loaded file).
305 This function only does the minimum work necessary for letting the
306 user "name" things symbolically; it does not read the entire symtab.
307 Instead, it reads the external and static symbols and puts them in partial
308 symbol tables. When more extensive information is requested of a
309 file, the corresponding partial symbol table is mutated into a full
310 fledged symbol table by going back and reading the symbols
313 We look for sections with specific names, to tell us what debug
314 format to look for: FIXME!!!
316 somstab_build_psymtabs() handles STABS symbols.
318 Note that SOM files have a "minimal" symbol table, which is vaguely
319 reminiscent of a COFF symbol table, but has only the minimal information
320 necessary for linking. We process this also, and use the information to
321 build gdb's minimal symbol table. This gives us some minimal debugging
322 capability even for files compiled without -g. */
325 som_symfile_read (struct objfile
*objfile
, int mainline
)
327 bfd
*abfd
= objfile
->obfd
;
328 struct cleanup
*back_to
;
330 do_pxdb (symfile_bfd_open (objfile
->name
));
332 init_minimal_symbol_collection ();
333 back_to
= make_cleanup_discard_minimal_symbols ();
335 /* Read in the import list and the export list. Currently
336 the export list isn't used; the import list is used in
337 hp-symtab-read.c to handle static vars declared in other
339 init_import_symbols (objfile
);
340 #if 0 /* Export symbols not used today 1997-08-05 */
341 init_export_symbols (objfile
);
343 objfile
->export_list
= NULL
;
344 objfile
->export_list_size
= 0;
347 /* Process the normal SOM symbol table first.
348 This reads in the DNTT and string table, but doesn't
349 actually scan the DNTT. It does scan the linker symbol
350 table and thus build up a "minimal symbol table". */
352 som_symtab_read (abfd
, objfile
, objfile
->section_offsets
);
354 /* Install any minimal symbols that have been collected as the current
355 minimal symbols for this objfile.
356 Further symbol-reading is done incrementally, file-by-file,
357 in a step known as "psymtab-to-symtab" expansion. hp-symtab-read.c
358 contains the code to do the actual DNTT scanning and symtab building. */
359 install_minimal_symbols (objfile
);
360 do_cleanups (back_to
);
362 /* Now read information from the stabs debug sections.
363 This is emitted by gcc. */
364 stabsect_build_psymtabs (objfile
, mainline
,
365 "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$");
367 /* Now read the native debug information.
368 This builds the psymtab. This used to be done via a scan of
369 the DNTT, but is now done via the PXDB-built quick-lookup tables
370 together with a scan of the GNTT. See hp-psymtab-read.c. */
371 hpread_build_psymtabs (objfile
, mainline
);
374 /* Initialize anything that needs initializing when a completely new symbol
375 file is specified (not just adding some symbols from another file, e.g. a
378 We reinitialize buildsym, since we may be reading stabs from a SOM file. */
381 som_new_init (struct objfile
*ignore
)
383 stabsread_new_init ();
384 buildsym_new_init ();
387 /* Perform any local cleanups required when we are done with a particular
388 objfile. I.E, we are in the process of discarding all symbol information
389 for an objfile, freeing up all memory held for it, and unlinking the
390 objfile struct from the global list of known objfiles. */
393 som_symfile_finish (struct objfile
*objfile
)
395 if (objfile
->deprecated_sym_stab_info
!= NULL
)
397 xfree (objfile
->deprecated_sym_stab_info
);
399 hpread_symfile_finish (objfile
);
402 /* SOM specific initialization routine for reading symbols. */
405 som_symfile_init (struct objfile
*objfile
)
407 /* SOM objects may be reordered, so set OBJF_REORDERED. If we
408 find this causes a significant slowdown in gdb then we could
409 set it in the debug symbol readers only when necessary. */
410 objfile
->flags
|= OBJF_REORDERED
;
411 hpread_symfile_init (objfile
);
414 /* SOM specific parsing routine for section offsets.
416 Plain and simple for now. */
419 som_symfile_offsets (struct objfile
*objfile
, struct section_addr_info
*addrs
)
424 objfile
->num_sections
= bfd_count_sections (objfile
->obfd
);
425 objfile
->section_offsets
= (struct section_offsets
*)
426 obstack_alloc (&objfile
->objfile_obstack
,
427 SIZEOF_N_SECTION_OFFSETS (objfile
->num_sections
));
429 /* FIXME: ezannoni 2000-04-20 The section names in SOM are not
430 .text, .data, etc, but $TEXT$, $DATA$,... We should initialize
431 SET_OFF_* from bfd. (See default_symfile_offsets()). But I don't
432 know the correspondence between SOM sections and GDB's idea of
433 section names. So for now we default to what is was before these
435 objfile
->sect_index_text
= 0;
436 objfile
->sect_index_data
= 1;
437 objfile
->sect_index_bss
= 2;
438 objfile
->sect_index_rodata
= 3;
440 /* First see if we're a shared library. If so, get the section
441 offsets from the library, else get them from addrs. */
442 if (!som_solib_section_offsets (objfile
, objfile
->section_offsets
))
444 /* Note: Here is OK to compare with ".text" because this is the
445 name that gdb itself gives to that section, not the SOM
447 for (i
= 0; i
< addrs
->num_sections
&& addrs
->other
[i
].name
; i
++)
448 if (strcmp (addrs
->other
[i
].name
, ".text") == 0)
450 text_addr
= addrs
->other
[i
].addr
;
452 for (i
= 0; i
< objfile
->num_sections
; i
++)
453 (objfile
->section_offsets
)->offsets
[i
] = text_addr
;
457 /* Read in and initialize the SOM import list which is present
458 for all executables and shared libraries. The import list
459 consists of the symbols that are referenced in OBJFILE but
460 not defined there. (Variables that are imported are dealt
461 with as "loc_indirect" vars.)
462 Return value = number of import symbols read in. */
464 init_import_symbols (struct objfile
*objfile
)
466 unsigned int import_list
;
467 unsigned int import_list_size
;
468 unsigned int string_table
;
469 unsigned int string_table_size
;
474 asection
*text_section
; /* section handle */
475 unsigned int dl_header
[12]; /* SOM executable header */
477 /* A struct for an entry in the SOM import list */
480 int name
; /* index into the string table */
481 short dont_care1
; /* we don't use this */
482 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
483 unsigned int reserved2
:8; /* not used */
487 /* We read 100 entries in at a time from the disk file. */
488 #define SOM_READ_IMPORTS_NUM 100
489 #define SOM_READ_IMPORTS_CHUNK_SIZE (sizeof (SomImportEntry) * SOM_READ_IMPORTS_NUM)
490 SomImportEntry buffer
[SOM_READ_IMPORTS_NUM
];
492 /* Initialize in case we error out */
493 objfile
->import_list
= NULL
;
494 objfile
->import_list_size
= 0;
496 /* It doesn't work, for some reason, to read in space $TEXT$;
497 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
498 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
501 /* Get the SOM executable header */
502 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
504 /* Check header version number for 10.x HP-UX */
505 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
506 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
507 if (dl_header
[0] != 93092112)
510 import_list
= dl_header
[4];
511 import_list_size
= dl_header
[5];
512 if (!import_list_size
)
514 string_table
= dl_header
[10];
515 string_table_size
= dl_header
[11];
516 if (!string_table_size
)
519 /* Suck in SOM string table */
520 string_buffer
= (char *) xmalloc (string_table_size
);
521 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
522 string_table
, string_table_size
);
524 /* Allocate import list in the psymbol obstack; this has nothing
525 to do with psymbols, just a matter of convenience. We want the
526 import list to be freed when the objfile is deallocated */
528 = (ImportEntry
*) obstack_alloc (&objfile
->objfile_obstack
,
529 import_list_size
* sizeof (ImportEntry
));
531 /* Read in the import entries, a bunch at a time */
533 j
< (import_list_size
/ SOM_READ_IMPORTS_NUM
);
536 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
537 import_list
+ j
* SOM_READ_IMPORTS_CHUNK_SIZE
,
538 SOM_READ_IMPORTS_CHUNK_SIZE
);
539 for (i
= 0; i
< SOM_READ_IMPORTS_NUM
; 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
;
554 /* Get the leftovers */
555 if (k
< import_list_size
)
556 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
557 import_list
+ k
* sizeof (SomImportEntry
),
558 (import_list_size
- k
) * sizeof (SomImportEntry
));
559 for (i
= 0; k
< import_list_size
; i
++, k
++)
561 if (buffer
[i
].type
!= (unsigned char) 0)
563 objfile
->import_list
[k
]
564 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
565 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
566 /* Some day we might want to record the type and other information too */
569 objfile
->import_list
[k
] = NULL
;
572 objfile
->import_list_size
= import_list_size
;
573 xfree (string_buffer
);
574 return import_list_size
;
577 /* Read in and initialize the SOM export list which is present
578 for all executables and shared libraries. The import list
579 consists of the symbols that are referenced in OBJFILE but
580 not defined there. (Variables that are imported are dealt
581 with as "loc_indirect" vars.)
582 Return value = number of import symbols read in. */
584 init_export_symbols (struct objfile
*objfile
)
586 unsigned int export_list
;
587 unsigned int export_list_size
;
588 unsigned int string_table
;
589 unsigned int string_table_size
;
594 asection
*text_section
; /* section handle */
595 unsigned int dl_header
[12]; /* SOM executable header */
597 /* A struct for an entry in the SOM export list */
600 int next
; /* for hash table use -- we don't use this */
601 int name
; /* index into string table */
602 int value
; /* offset or plabel */
603 int dont_care1
; /* not used */
604 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
605 char dont_care2
; /* not used */
606 short dont_care3
; /* not used */
610 /* We read 100 entries in at a time from the disk file. */
611 #define SOM_READ_EXPORTS_NUM 100
612 #define SOM_READ_EXPORTS_CHUNK_SIZE (sizeof (SomExportEntry) * SOM_READ_EXPORTS_NUM)
613 SomExportEntry buffer
[SOM_READ_EXPORTS_NUM
];
615 /* Initialize in case we error out */
616 objfile
->export_list
= NULL
;
617 objfile
->export_list_size
= 0;
619 /* It doesn't work, for some reason, to read in space $TEXT$;
620 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
621 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
624 /* Get the SOM executable header */
625 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
627 /* Check header version number for 10.x HP-UX */
628 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
629 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
630 if (dl_header
[0] != 93092112)
633 export_list
= dl_header
[8];
634 export_list_size
= dl_header
[9];
635 if (!export_list_size
)
637 string_table
= dl_header
[10];
638 string_table_size
= dl_header
[11];
639 if (!string_table_size
)
642 /* Suck in SOM string table */
643 string_buffer
= (char *) xmalloc (string_table_size
);
644 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
645 string_table
, string_table_size
);
647 /* Allocate export list in the psymbol obstack; this has nothing
648 to do with psymbols, just a matter of convenience. We want the
649 export list to be freed when the objfile is deallocated */
651 = (ExportEntry
*) obstack_alloc (&objfile
->objfile_obstack
,
652 export_list_size
* sizeof (ExportEntry
));
654 /* Read in the export entries, a bunch at a time */
656 j
< (export_list_size
/ SOM_READ_EXPORTS_NUM
);
659 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
660 export_list
+ j
* SOM_READ_EXPORTS_CHUNK_SIZE
,
661 SOM_READ_EXPORTS_CHUNK_SIZE
);
662 for (i
= 0; i
< SOM_READ_EXPORTS_NUM
; i
++, k
++)
664 if (buffer
[i
].type
!= (unsigned char) 0)
666 objfile
->export_list
[k
].name
667 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
668 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
669 objfile
->export_list
[k
].address
= buffer
[i
].value
;
670 /* Some day we might want to record the type and other information too */
675 objfile
->export_list
[k
].name
= NULL
;
676 objfile
->export_list
[k
].address
= 0;
681 /* Get the leftovers */
682 if (k
< export_list_size
)
683 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
684 export_list
+ k
* sizeof (SomExportEntry
),
685 (export_list_size
- k
) * sizeof (SomExportEntry
));
686 for (i
= 0; k
< export_list_size
; i
++, k
++)
688 if (buffer
[i
].type
!= (unsigned char) 0)
690 objfile
->export_list
[k
].name
691 = (char *) obstack_alloc (&objfile
->objfile_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
692 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
693 /* Some day we might want to record the type and other information too */
694 objfile
->export_list
[k
].address
= buffer
[i
].value
;
698 objfile
->export_list
[k
].name
= NULL
;
699 objfile
->export_list
[k
].address
= 0;
703 objfile
->export_list_size
= export_list_size
;
704 xfree (string_buffer
);
705 return export_list_size
;
710 /* Register that we are able to handle SOM object file formats. */
712 static struct sym_fns som_sym_fns
=
714 bfd_target_som_flavour
,
715 som_new_init
, /* sym_new_init: init anything gbl to entire symtab */
716 som_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
717 som_symfile_read
, /* sym_read: read a symbol file into symtab */
718 som_symfile_finish
, /* sym_finish: finished with file, cleanup */
719 som_symfile_offsets
, /* sym_offsets: Translate ext. to int. relocation */
720 NULL
/* next: pointer to next struct sym_fns */
724 _initialize_somread (void)
726 add_symtab_fns (&som_sym_fns
);