1 /* Read HP PA/Risc object files for GDB.
2 Copyright 1991, 1992 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 2 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, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
30 #include "stabsread.h"
31 #include "gdb-stabs.h"
32 #include "complaints.h"
37 /* Various things we might complain about... */
40 som_symfile_init PARAMS ((struct objfile *));
43 som_new_init PARAMS ((struct objfile *));
46 som_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int));
49 som_symfile_finish PARAMS ((struct objfile *));
52 som_symtab_read PARAMS ((bfd *, CORE_ADDR, struct objfile *));
54 static struct section_offsets *
55 som_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR));
58 record_minimal_symbol PARAMS ((char *, CORE_ADDR,
59 enum minimal_symbol_type,
63 record_minimal_symbol (name, address, ms_type, objfile)
66 enum minimal_symbol_type ms_type;
67 struct objfile *objfile;
69 name = obsavestring (name, strlen (name), &objfile -> symbol_obstack);
70 prim_record_minimal_symbol (name, address, ms_type, objfile);
77 som_symtab_read -- read the symbol table of a SOM file
81 void som_symtab_read (bfd *abfd, CORE_ADDR addr,
82 struct objfile *objfile)
86 Given an open bfd, a base address to relocate symbols to, and a
87 flag that specifies whether or not this bfd is for an executable
88 or not (may be shared library for example), add all the global
89 function and data symbols to the minimal symbol table.
93 som_symtab_read (abfd, addr, objfile)
96 struct objfile *objfile;
98 unsigned int number_of_symbols;
101 asection *shlib_info;
102 struct symbol_dictionary_record *buf, *bufp, *endbufp;
104 CONST int symsize = sizeof (struct symbol_dictionary_record);
106 number_of_symbols = bfd_get_symcount (abfd);
108 buf = alloca (symsize * number_of_symbols);
109 bfd_seek (abfd, obj_som_sym_filepos (abfd), L_SET);
110 val = bfd_read (buf, symsize * number_of_symbols, 1, abfd);
111 if (val != symsize * number_of_symbols)
112 error ("Couldn't read symbol dictionary!");
114 stringtab = alloca (obj_som_stringtab_size (abfd));
115 bfd_seek (abfd, obj_som_str_filepos (abfd), L_SET);
116 val = bfd_read (stringtab, obj_som_stringtab_size (abfd), 1, abfd);
117 if (val != obj_som_stringtab_size (abfd))
118 error ("Can't read in HP string table.");
120 /* We need to determine if objfile is a dynamic executable (so we
121 can do the right thing for ST_ENTRY vs ST_CODE symbols).
123 There's nothing in the header which easily allows us to do
124 this. The only reliable way I know of is to check for the
125 existance of a $SHLIB_INFO$ section with a non-zero size. */
126 shlib_info = bfd_get_section_by_name (objfile->obfd, "$SHLIB_INFO$");
128 dynamic = (bfd_section_size (objfile->obfd, shlib_info) != 0);
132 endbufp = buf + number_of_symbols;
133 for (bufp = buf; bufp < endbufp; ++bufp)
135 enum minimal_symbol_type ms_type;
139 switch (bufp->symbol_scope)
143 switch (bufp->symbol_type)
153 symname = bufp->name.n_strx + stringtab;
155 #ifdef SMASH_TEXT_ADDRESS
156 SMASH_TEXT_ADDRESS (bufp->symbol_value);
161 symname = bufp->name.n_strx + stringtab;
162 /* For a dynamic executable, ST_ENTRY symbols are
163 the stubs, while the ST_CODE symbol is the real
166 ms_type = mst_solib_trampoline;
169 #ifdef SMASH_TEXT_ADDRESS
170 SMASH_TEXT_ADDRESS (bufp->symbol_value);
175 symname = bufp->name.n_strx + stringtab;
176 ms_type = mst_solib_trampoline;
177 #ifdef SMASH_TEXT_ADDRESS
178 SMASH_TEXT_ADDRESS (bufp->symbol_value);
183 symname = bufp->name.n_strx + stringtab;
192 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */
196 switch (bufp->symbol_type)
203 symname = bufp->name.n_strx + stringtab;
204 ms_type = mst_file_text;
205 #ifdef SMASH_TEXT_ADDRESS
206 SMASH_TEXT_ADDRESS (bufp->symbol_value);
210 /* Utah GCC 2.5, FSF GCC 2.6 and later generate correct local
211 label prefixes for stabs, constant data, etc. So we need
212 only filter out L$ symbols which are left in due to
213 limitations in how GAS generates SOM relocations.
215 When linking in the HPUX C-library the HP linker has
216 the nasty habit of placing section symbols from the literal
217 subspaces in the middle of the program's text. Filter
218 those out as best we can. Check for first and last character
220 if ((symname[0] == 'L' && symname[1] == '$')
221 || (symname[0] == '$' && symname[strlen(symname) - 1] == '$'))
228 symname = bufp->name.n_strx + stringtab;
229 ms_type = mst_file_text;
230 #ifdef SMASH_TEXT_ADDRESS
231 SMASH_TEXT_ADDRESS (bufp->symbol_value);
236 symname = bufp->name.n_strx + stringtab;
237 /* For a dynamic executable, ST_ENTRY symbols are
238 the stubs, while the ST_CODE symbol is the real
241 ms_type = mst_solib_trampoline;
243 ms_type = mst_file_text;
244 #ifdef SMASH_TEXT_ADDRESS
245 SMASH_TEXT_ADDRESS (bufp->symbol_value);
250 symname = bufp->name.n_strx + stringtab;
251 ms_type = mst_solib_trampoline;
252 #ifdef SMASH_TEXT_ADDRESS
253 SMASH_TEXT_ADDRESS (bufp->symbol_value);
259 symname = bufp->name.n_strx + stringtab;
260 ms_type = mst_file_data;
261 goto check_strange_names;
272 if (bufp->name.n_strx > obj_som_stringtab_size (abfd))
273 error ("Invalid symbol data; bad HP string table offset: %d",
276 record_minimal_symbol (symname,
277 bufp->symbol_value, ms_type,
282 /* Scan and build partial symbols for a symbol file.
283 We have been initialized by a call to som_symfile_init, which
284 currently does nothing.
286 SECTION_OFFSETS is a set of offsets to apply to relocate the symbols
287 in each section. This is ignored, as it isn't needed for SOM.
289 MAINLINE is true if we are reading the main symbol
290 table (as opposed to a shared lib or dynamically loaded file).
292 This function only does the minimum work necessary for letting the
293 user "name" things symbolically; it does not read the entire symtab.
294 Instead, it reads the external and static symbols and puts them in partial
295 symbol tables. When more extensive information is requested of a
296 file, the corresponding partial symbol table is mutated into a full
297 fledged symbol table by going back and reading the symbols
300 We look for sections with specific names, to tell us what debug
301 format to look for: FIXME!!!
303 somstab_build_psymtabs() handles STABS symbols.
305 Note that SOM files have a "minimal" symbol table, which is vaguely
306 reminiscent of a COFF symbol table, but has only the minimal information
307 necessary for linking. We process this also, and use the information to
308 build gdb's minimal symbol table. This gives us some minimal debugging
309 capability even for files compiled without -g. */
312 som_symfile_read (objfile, section_offsets, mainline)
313 struct objfile *objfile;
314 struct section_offsets *section_offsets;
317 bfd *abfd = objfile->obfd;
318 struct cleanup *back_to;
321 init_minimal_symbol_collection ();
322 back_to = make_cleanup (discard_minimal_symbols, 0);
324 /* FIXME, should take a section_offsets param, not just an offset. */
326 offset = ANOFFSET (section_offsets, 0);
328 /* Process the normal SOM symbol table first. */
330 som_symtab_read (abfd, offset, objfile);
332 /* Now read information from the stabs debug sections. */
333 stabsect_build_psymtabs (objfile, section_offsets, mainline,
334 "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$");
336 /* start-sanitize-hpread */
337 /* Now read the native debug information. */
338 hpread_build_psymtabs (objfile, section_offsets, mainline);
339 /* end-sanitize-hpread */
341 /* Install any minimal symbols that have been collected as the current
342 minimal symbols for this objfile. */
343 install_minimal_symbols (objfile);
345 /* Force hppa-tdep.c to re-read the unwind descriptors. */
346 OBJ_UNWIND_INFO (objfile) = NULL;
347 do_cleanups (back_to);
350 /* Initialize anything that needs initializing when a completely new symbol
351 file is specified (not just adding some symbols from another file, e.g. a
354 We reinitialize buildsym, since we may be reading stabs from a SOM file. */
357 som_new_init (ignore)
358 struct objfile *ignore;
360 stabsread_new_init ();
361 buildsym_new_init ();
364 /* Perform any local cleanups required when we are done with a particular
365 objfile. I.E, we are in the process of discarding all symbol information
366 for an objfile, freeing up all memory held for it, and unlinking the
367 objfile struct from the global list of known objfiles. */
370 som_symfile_finish (objfile)
371 struct objfile *objfile;
373 if (objfile -> sym_stab_info != NULL)
375 mfree (objfile -> md, objfile -> sym_stab_info);
377 /* start-sanitize-hpread */
378 hpread_symfile_finish (objfile);
379 /* end-sanitize-hpread */
382 /* SOM specific initialization routine for reading symbols.
384 Nothing SOM specific left to do anymore. */
386 som_symfile_init (objfile)
387 struct objfile *objfile;
389 /* start-sanitize-hpread */
390 hpread_symfile_init (objfile);
391 /* end-sanitize-hpread */
394 /* SOM specific parsing routine for section offsets.
396 Plain and simple for now. */
398 static struct section_offsets *
399 som_symfile_offsets (objfile, addr)
400 struct objfile *objfile;
403 struct section_offsets *section_offsets;
406 objfile->num_sections = SECT_OFF_MAX;
407 section_offsets = (struct section_offsets *)
408 obstack_alloc (&objfile -> psymbol_obstack,
409 sizeof (struct section_offsets)
410 + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1));
412 for (i = 0; i < SECT_OFF_MAX; i++)
413 ANOFFSET (section_offsets, i) = addr;
415 return section_offsets;
418 /* Register that we are able to handle SOM object file formats. */
420 static struct sym_fns som_sym_fns =
422 bfd_target_som_flavour,
423 som_new_init, /* sym_new_init: init anything gbl to entire symtab */
424 som_symfile_init, /* sym_init: read initial info, setup for sym_read() */
425 som_symfile_read, /* sym_read: read a symbol file into symtab */
426 som_symfile_finish, /* sym_finish: finished with file, cleanup */
427 som_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */
428 NULL /* next: pointer to next struct sym_fns */
432 _initialize_somread ()
434 add_symtab_fns (&som_sym_fns);