1 /* Read HP PA/Risc object files for GDB.
2 Copyright (C) 1991-2013 Free Software Foundation, Inc.
3 Written by Fred Fish at Cygnus Support.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
27 #include "stabsread.h"
28 #include "gdb-stabs.h"
29 #include "complaints.h"
30 #include "gdb_string.h"
36 #include "solib-som.h"
38 /* Read the symbol table of a SOM file.
40 Given an open bfd, a base address to relocate symbols to, and a
41 flag that specifies whether or not this bfd is for an executable
42 or not (may be shared library for example), add all the global
43 function and data symbols to the minimal symbol table. */
46 som_symtab_read (bfd
*abfd
, struct objfile
*objfile
,
47 struct section_offsets
*section_offsets
)
49 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
50 unsigned int number_of_symbols
;
54 struct symbol_dictionary_record
*buf
, *bufp
, *endbufp
;
56 CONST
int symsize
= sizeof (struct symbol_dictionary_record
);
57 CORE_ADDR text_offset
, data_offset
;
60 text_offset
= ANOFFSET (section_offsets
, 0);
61 data_offset
= ANOFFSET (section_offsets
, 1);
63 number_of_symbols
= bfd_get_symcount (abfd
);
65 /* Allocate a buffer to read in the debug info.
66 We avoid using alloca because the memory size could be so large
67 that we could hit the stack size limit. */
68 buf
= xmalloc (symsize
* number_of_symbols
);
69 make_cleanup (xfree
, buf
);
70 bfd_seek (abfd
, obj_som_sym_filepos (abfd
), SEEK_SET
);
71 val
= bfd_bread (buf
, symsize
* number_of_symbols
, abfd
);
72 if (val
!= symsize
* number_of_symbols
)
73 error (_("Couldn't read symbol dictionary!"));
75 /* Allocate a buffer to read in the som stringtab section of
76 the debugging info. Again, we avoid using alloca because
77 the data could be so large that we could potentially hit
78 the stack size limitat. */
79 stringtab
= xmalloc (obj_som_stringtab_size (abfd
));
80 make_cleanup (xfree
, stringtab
);
81 bfd_seek (abfd
, obj_som_str_filepos (abfd
), SEEK_SET
);
82 val
= bfd_bread (stringtab
, obj_som_stringtab_size (abfd
), abfd
);
83 if (val
!= obj_som_stringtab_size (abfd
))
84 error (_("Can't read in HP string table."));
86 /* We need to determine if objfile is a dynamic executable (so we
87 can do the right thing for ST_ENTRY vs ST_CODE symbols).
89 There's nothing in the header which easily allows us to do
92 This code used to rely upon the existence of a $SHLIB_INFO$
93 section to make this determination. HP claims that it is
94 more accurate to check for a nonzero text offset, but they
95 have not provided any information about why that test is
97 dynamic
= (text_offset
!= 0);
99 endbufp
= buf
+ number_of_symbols
;
100 for (bufp
= buf
; bufp
< endbufp
; ++bufp
)
102 enum minimal_symbol_type ms_type
;
106 switch (bufp
->symbol_scope
)
110 switch (bufp
->symbol_type
)
120 symname
= bufp
->name
.n_strx
+ stringtab
;
122 bufp
->symbol_value
+= text_offset
;
123 bufp
->symbol_value
= gdbarch_addr_bits_remove
124 (gdbarch
, bufp
->symbol_value
);
128 symname
= bufp
->name
.n_strx
+ stringtab
;
129 /* For a dynamic executable, ST_ENTRY symbols are
130 the stubs, while the ST_CODE symbol is the real
133 ms_type
= mst_solib_trampoline
;
136 bufp
->symbol_value
+= text_offset
;
137 bufp
->symbol_value
= gdbarch_addr_bits_remove
138 (gdbarch
, bufp
->symbol_value
);
142 symname
= bufp
->name
.n_strx
+ stringtab
;
143 ms_type
= mst_solib_trampoline
;
144 bufp
->symbol_value
+= text_offset
;
145 bufp
->symbol_value
= gdbarch_addr_bits_remove
146 (gdbarch
, bufp
->symbol_value
);
150 symname
= bufp
->name
.n_strx
+ stringtab
;
151 bufp
->symbol_value
+= data_offset
;
160 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */
164 switch (bufp
->symbol_type
)
171 symname
= bufp
->name
.n_strx
+ stringtab
;
172 ms_type
= mst_file_text
;
173 bufp
->symbol_value
+= text_offset
;
174 bufp
->symbol_value
= gdbarch_addr_bits_remove
175 (gdbarch
, bufp
->symbol_value
);
178 /* Utah GCC 2.5, FSF GCC 2.6 and later generate correct local
179 label prefixes for stabs, constant data, etc. So we need
180 only filter out L$ symbols which are left in due to
181 limitations in how GAS generates SOM relocations.
183 When linking in the HPUX C-library the HP linker has
184 the nasty habit of placing section symbols from the literal
185 subspaces in the middle of the program's text. Filter
186 those out as best we can. Check for first and last character
189 And finally, the newer HP compilers emit crud like $PIC_foo$N
190 in some circumstance (PIC code I guess). It's also claimed
191 that they emit D$ symbols too. What stupidity. */
192 if ((symname
[0] == 'L' && symname
[1] == '$')
193 || (symname
[0] == '$' && symname
[strlen (symname
) - 1] == '$')
194 || (symname
[0] == 'D' && symname
[1] == '$')
195 || (strncmp (symname
, "L0\001", 3) == 0)
196 || (strncmp (symname
, "$PIC", 4) == 0))
203 symname
= bufp
->name
.n_strx
+ stringtab
;
204 ms_type
= mst_file_text
;
205 bufp
->symbol_value
+= text_offset
;
206 bufp
->symbol_value
= gdbarch_addr_bits_remove
207 (gdbarch
, bufp
->symbol_value
);
211 symname
= bufp
->name
.n_strx
+ stringtab
;
212 /* SS_LOCAL symbols in a shared library do not have
213 export stubs, so we do not have to worry about
214 using mst_file_text vs mst_solib_trampoline here like
215 we do for SS_UNIVERSAL and SS_EXTERNAL symbols above. */
216 ms_type
= mst_file_text
;
217 bufp
->symbol_value
+= text_offset
;
218 bufp
->symbol_value
= gdbarch_addr_bits_remove
219 (gdbarch
, bufp
->symbol_value
);
223 symname
= bufp
->name
.n_strx
+ stringtab
;
224 ms_type
= mst_solib_trampoline
;
225 bufp
->symbol_value
+= text_offset
;
226 bufp
->symbol_value
= gdbarch_addr_bits_remove
227 (gdbarch
, bufp
->symbol_value
);
232 symname
= bufp
->name
.n_strx
+ stringtab
;
233 bufp
->symbol_value
+= data_offset
;
234 ms_type
= mst_file_data
;
235 goto check_strange_names
;
242 /* This can happen for common symbols when -E is passed to the
243 final link. No idea _why_ that would make the linker force
244 common symbols to have an SS_UNSAT scope, but it does.
246 This also happens for weak symbols, but their type is
249 switch (bufp
->symbol_type
)
253 symname
= bufp
->name
.n_strx
+ stringtab
;
254 bufp
->symbol_value
+= data_offset
;
267 if (bufp
->name
.n_strx
> obj_som_stringtab_size (abfd
))
268 error (_("Invalid symbol data; bad HP string table offset: %d"),
271 prim_record_minimal_symbol (symname
, bufp
->symbol_value
, ms_type
,
276 /* Scan and build partial symbols for a symbol file.
277 We have been initialized by a call to som_symfile_init, which
278 currently does nothing.
280 SECTION_OFFSETS is a set of offsets to apply to relocate the symbols
281 in each section. This is ignored, as it isn't needed for SOM.
283 This function only does the minimum work necessary for letting the
284 user "name" things symbolically; it does not read the entire symtab.
285 Instead, it reads the external and static symbols and puts them in partial
286 symbol tables. When more extensive information is requested of a
287 file, the corresponding partial symbol table is mutated into a full
288 fledged symbol table by going back and reading the symbols
291 We look for sections with specific names, to tell us what debug
292 format to look for: FIXME!!!
294 somstab_build_psymtabs() handles STABS symbols.
296 Note that SOM files have a "minimal" symbol table, which is vaguely
297 reminiscent of a COFF symbol table, but has only the minimal information
298 necessary for linking. We process this also, and use the information to
299 build gdb's minimal symbol table. This gives us some minimal debugging
300 capability even for files compiled without -g. */
303 som_symfile_read (struct objfile
*objfile
, int symfile_flags
)
305 bfd
*abfd
= objfile
->obfd
;
306 struct cleanup
*back_to
;
308 init_minimal_symbol_collection ();
309 back_to
= make_cleanup_discard_minimal_symbols ();
311 /* Process the normal SOM symbol table first.
312 This reads in the DNTT and string table, but doesn't
313 actually scan the DNTT. It does scan the linker symbol
314 table and thus build up a "minimal symbol table". */
316 som_symtab_read (abfd
, objfile
, objfile
->section_offsets
);
318 /* Install any minimal symbols that have been collected as the current
319 minimal symbols for this objfile.
320 Further symbol-reading is done incrementally, file-by-file,
321 in a step known as "psymtab-to-symtab" expansion. hp-symtab-read.c
322 contains the code to do the actual DNTT scanning and symtab building. */
323 install_minimal_symbols (objfile
);
324 do_cleanups (back_to
);
326 /* Now read information from the stabs debug sections.
327 This is emitted by gcc. */
328 stabsect_build_psymtabs (objfile
,
329 "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$");
332 /* Initialize anything that needs initializing when a completely new symbol
333 file is specified (not just adding some symbols from another file, e.g. a
336 We reinitialize buildsym, since we may be reading stabs from a SOM file. */
339 som_new_init (struct objfile
*ignore
)
341 stabsread_new_init ();
342 buildsym_new_init ();
345 /* Perform any local cleanups required when we are done with a particular
346 objfile. I.e, we are in the process of discarding all symbol information
347 for an objfile, freeing up all memory held for it, and unlinking the
348 objfile struct from the global list of known objfiles. */
351 som_symfile_finish (struct objfile
*objfile
)
355 /* SOM specific initialization routine for reading symbols. */
358 som_symfile_init (struct objfile
*objfile
)
360 /* SOM objects may be reordered, so set OBJF_REORDERED. If we
361 find this causes a significant slowdown in gdb then we could
362 set it in the debug symbol readers only when necessary. */
363 objfile
->flags
|= OBJF_REORDERED
;
366 /* SOM specific parsing routine for section offsets.
368 Plain and simple for now. */
371 som_symfile_offsets (struct objfile
*objfile
, struct section_addr_info
*addrs
)
376 objfile
->num_sections
= bfd_count_sections (objfile
->obfd
);
377 objfile
->section_offsets
= (struct section_offsets
*)
378 obstack_alloc (&objfile
->objfile_obstack
,
379 SIZEOF_N_SECTION_OFFSETS (objfile
->num_sections
));
381 /* FIXME: ezannoni 2000-04-20 The section names in SOM are not
382 .text, .data, etc, but $TEXT$, $DATA$,... We should initialize
383 SET_OFF_* from bfd. (See default_symfile_offsets()). But I don't
384 know the correspondence between SOM sections and GDB's idea of
385 section names. So for now we default to what is was before these
387 objfile
->sect_index_text
= 0;
388 objfile
->sect_index_data
= 1;
389 objfile
->sect_index_bss
= 2;
390 objfile
->sect_index_rodata
= 3;
392 /* First see if we're a shared library. If so, get the section
393 offsets from the library, else get them from addrs. */
394 if (!som_solib_section_offsets (objfile
, objfile
->section_offsets
))
396 /* Note: Here is OK to compare with ".text" because this is the
397 name that gdb itself gives to that section, not the SOM
399 for (i
= 0; i
< addrs
->num_sections
&& addrs
->other
[i
].name
; i
++)
400 if (strcmp (addrs
->other
[i
].name
, ".text") == 0)
402 text_addr
= addrs
->other
[i
].addr
;
404 for (i
= 0; i
< objfile
->num_sections
; i
++)
405 (objfile
->section_offsets
)->offsets
[i
] = text_addr
;
411 /* Register that we are able to handle SOM object file formats. */
413 static const struct sym_fns som_sym_fns
=
415 bfd_target_som_flavour
,
416 som_new_init
, /* init anything gbl to entire symtab */
417 som_symfile_init
, /* read initial info, setup for sym_read() */
418 som_symfile_read
, /* read a symbol file into symtab */
419 NULL
, /* sym_read_psymbols */
420 som_symfile_finish
, /* finished with file, cleanup */
421 som_symfile_offsets
, /* Translate ext. to int. relocation */
422 default_symfile_segments
, /* Get segment information from a file. */
424 default_symfile_relocate
, /* Relocate a debug section. */
425 NULL
, /* sym_get_probes */
430 _initialize_somread (void)
432 add_symtab_fns (&som_sym_fns
);