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 "gdb-stabs.h"
31 #include "complaints.h"
35 #include "aout/aout64.h"
37 /* Various things we might complain about... */
40 pa_symfile_init PARAMS ((struct objfile *));
43 pa_new_init PARAMS ((struct objfile *));
46 read_unwind_info PARAMS ((struct objfile *));
49 pa_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int));
52 pa_symfile_finish PARAMS ((struct objfile *));
55 pa_symtab_read PARAMS ((bfd *, CORE_ADDR, struct objfile *));
58 free_painfo PARAMS ((PTR));
60 static struct section_offsets *
61 pa_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR));
64 record_minimal_symbol PARAMS ((char *, CORE_ADDR,
65 enum minimal_symbol_type,
69 record_minimal_symbol (name, address, ms_type, objfile)
72 enum minimal_symbol_type ms_type;
73 struct objfile *objfile;
75 name = obsavestring (name, strlen (name), &objfile -> symbol_obstack);
76 prim_record_minimal_symbol (name, address, ms_type);
83 pa_symtab_read -- read the symbol table of a PA file
87 void pa_symtab_read (bfd *abfd, CORE_ADDR addr,
88 struct objfile *objfile)
92 Given an open bfd, a base address to relocate symbols to, and a
93 flag that specifies whether or not this bfd is for an executable
94 or not (may be shared library for example), add all the global
95 function and data symbols to the minimal symbol table.
99 pa_symtab_read (abfd, addr, objfile)
102 struct objfile *objfile;
104 unsigned int number_of_symbols;
108 struct symbol_dictionary_record *buf, *bufp, *endbufp;
110 CONST int symsize = sizeof (struct symbol_dictionary_record);
112 number_of_symbols = bfd_get_symcount (abfd);
114 buf = alloca (symsize * number_of_symbols);
115 bfd_seek (abfd, obj_sym_filepos (abfd), L_SET);
116 val = bfd_read (buf, symsize * number_of_symbols, 1, abfd);
117 if (val != symsize * number_of_symbols)
118 error ("Couldn't read symbol dictionary!");
120 stringtab = alloca (obj_stringtab_size (abfd));
121 bfd_seek (abfd, obj_str_filepos (abfd), L_SET);
122 val = bfd_read (stringtab, obj_stringtab_size (abfd), 1, abfd);
123 if (val != obj_stringtab_size (abfd))
124 error ("Can't read in HP string table.");
126 endbufp = buf + number_of_symbols;
127 for (bufp = buf; bufp < endbufp; ++bufp)
129 enum minimal_symbol_type ms_type;
133 switch (bufp->symbol_scope)
136 switch (bufp->symbol_type)
147 symname = bufp->name.n_strx + stringtab;
149 bufp->symbol_value &= ~0x3; /* clear out permission bits */
152 symname = bufp->name.n_strx + stringtab;
161 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */
165 switch (bufp->symbol_type)
172 symname = bufp->name.n_strx + stringtab;
173 ms_type = mst_file_text;
174 bufp->symbol_value &= ~0x3; /* clear out permission bits */
177 /* GAS leaves symbols with the prefixes "LS$", "LBB$",
178 and "LBE$" in .o files after assembling. And thus
179 they appear in the final executable. This can
180 cause problems if these special symbols have the
181 same value as real symbols. So ignore them. Also "LC$". */
183 && (symname[2] == '$' || symname[3] == '$'))
191 symname = bufp->name.n_strx + stringtab;
192 ms_type = mst_file_text;
193 bufp->symbol_value &= ~0x3; /* clear out permission bits */
197 symname = bufp->name.n_strx + stringtab;
198 ms_type = mst_file_data;
199 goto check_strange_names;
210 if (bufp->name.n_strx > obj_stringtab_size (abfd))
211 error ("Invalid symbol data; bad HP string table offset: %d",
214 record_minimal_symbol (symname,
215 bufp->symbol_value, ms_type,
219 install_minimal_symbols (objfile);
222 /* Read in the backtrace information stored in the `$UNWIND_START$' section of
223 the object file. This info is used mainly by find_unwind_entry() to find
224 out the stack frame size and frame pointer used by procedures. We put
225 everything on the psymbol obstack in the objfile so that it automatically
226 gets freed when the objfile is destroyed. */
229 read_unwind_info (objfile)
230 struct objfile *objfile;
232 asection *unwind_sec;
233 struct obj_unwind_info *ui;
235 ui = obstack_alloc (&objfile->psymbol_obstack,
236 sizeof (struct obj_unwind_info));
242 unwind_sec = bfd_get_section_by_name (objfile->obfd,
249 size = bfd_section_size (objfile->obfd, unwind_sec);
250 ui->table = obstack_alloc (&objfile->psymbol_obstack, size);
251 ui->last = size / sizeof (struct unwind_table_entry) - 1;
253 bfd_get_section_contents (objfile->obfd, unwind_sec, ui->table,
256 OBJ_UNWIND_INFO (objfile) = ui;
260 /* Scan and build partial symbols for a symbol file.
261 We have been initialized by a call to pa_symfile_init, which
262 currently does nothing.
264 SECTION_OFFSETS is a set of offsets to apply to relocate the symbols
265 in each section. This is ignored, as it isn't needed for the PA.
267 MAINLINE is true if we are reading the main symbol
268 table (as opposed to a shared lib or dynamically loaded file).
270 This function only does the minimum work necessary for letting the
271 user "name" things symbolically; it does not read the entire symtab.
272 Instead, it reads the external and static symbols and puts them in partial
273 symbol tables. When more extensive information is requested of a
274 file, the corresponding partial symbol table is mutated into a full
275 fledged symbol table by going back and reading the symbols
278 We look for sections with specific names, to tell us what debug
279 format to look for: FIXME!!!
281 pastab_build_psymtabs() handles STABS symbols.
283 Note that PA files have a "minimal" symbol table, which is vaguely
284 reminiscent of a COFF symbol table, but has only the minimal information
285 necessary for linking. We process this also, and use the information to
286 build gdb's minimal symbol table. This gives us some minimal debugging
287 capability even for files compiled without -g. */
290 pa_symfile_read (objfile, section_offsets, mainline)
291 struct objfile *objfile;
292 struct section_offsets *section_offsets;
295 bfd *abfd = objfile->obfd;
296 struct cleanup *back_to;
299 init_minimal_symbol_collection ();
300 back_to = make_cleanup (discard_minimal_symbols, 0);
302 make_cleanup (free_painfo, (PTR) objfile);
304 /* Process the normal PA symbol table first. */
306 /* FIXME, should take a section_offsets param, not just an offset. */
308 offset = ANOFFSET (section_offsets, 0);
309 pa_symtab_read (abfd, offset, objfile);
311 /* Now process debugging information, which is contained in
312 special PA sections. */
314 pastab_build_psymtabs (objfile, section_offsets, mainline);
316 read_unwind_info(objfile);
318 do_cleanups (back_to);
321 /* This cleans up the objfile's sym_private pointer, and the chain of
322 stab_section_info's, that might be dangling from it. */
328 struct objfile *objfile = (struct objfile *)objp;
329 struct dbx_symfile_info *dbxinfo = (struct dbx_symfile_info *)
330 objfile->sym_private;
331 struct stab_section_info *ssi, *nssi;
333 ssi = dbxinfo->stab_section_info;
337 mfree (objfile->md, ssi);
341 dbxinfo->stab_section_info = 0; /* Just say No mo info about this. */
344 /* Initialize anything that needs initializing when a completely new symbol
345 file is specified (not just adding some symbols from another file, e.g. a
348 We reinitialize buildsym, since we may be reading stabs from a PA file. */
352 struct objfile *ignore;
354 stabsread_new_init ();
355 buildsym_new_init ();
358 /* Perform any local cleanups required when we are done with a particular
359 objfile. I.E, we are in the process of discarding all symbol information
360 for an objfile, freeing up all memory held for it, and unlinking the
361 objfile struct from the global list of known objfiles. */
364 pa_symfile_finish (objfile)
365 struct objfile *objfile;
367 if (objfile -> sym_private != NULL)
369 mfree (objfile -> md, objfile -> sym_private);
373 /* PA specific initialization routine for reading symbols.
375 It is passed a pointer to a struct sym_fns which contains, among other
376 things, the BFD for the file whose symbols are being read, and a slot for
377 a pointer to "private data" which we can fill with goodies.
379 This routine is almost a complete ripoff of dbx_symfile_init. The
380 common parts of these routines should be extracted and used instead of
381 duplicating this code. FIXME. */
384 pa_symfile_init (objfile)
385 struct objfile *objfile;
388 bfd *sym_bfd = objfile->obfd;
389 char *name = bfd_get_filename (sym_bfd);
390 asection *stabsect; /* Section containing symbol table entries */
391 asection *stringsect; /* Section containing symbol name strings */
393 stabsect = bfd_get_section_by_name (sym_bfd, "$GDB_SYMBOLS$");
394 stringsect = bfd_get_section_by_name (sym_bfd, "$GDB_STRINGS$");
396 /* Allocate struct to keep track of the symfile */
397 objfile->sym_private = (PTR)
398 xmmalloc (objfile -> md, sizeof (struct dbx_symfile_info));
400 memset ((PTR) objfile->sym_private, 0, sizeof (struct dbx_symfile_info));
406 error ("Found stabs, but not string section");
408 /* FIXME POKING INSIDE BFD DATA STRUCTURES */
409 #define STRING_TABLE_OFFSET (stringsect->filepos)
410 #define SYMBOL_TABLE_OFFSET (stabsect->filepos)
412 /* FIXME POKING INSIDE BFD DATA STRUCTURES */
414 DBX_SYMFILE_INFO (objfile)->stab_section_info = NULL;
415 DBX_TEXT_SECT (objfile) = bfd_get_section_by_name (sym_bfd, ".text");
416 if (!DBX_TEXT_SECT (objfile))
417 error ("Can't find .text section in symbol file");
419 DBX_SYMBOL_SIZE (objfile) = sizeof (struct internal_nlist);
420 DBX_SYMCOUNT (objfile) = bfd_section_size (sym_bfd, stabsect)
421 / DBX_SYMBOL_SIZE (objfile);
422 DBX_SYMTAB_OFFSET (objfile) = SYMBOL_TABLE_OFFSET;
424 /* Read the string table and stash it away in the psymbol_obstack. It is
425 only needed as long as we need to expand psymbols into full symbols,
426 so when we blow away the psymbol the string table goes away as well.
427 Note that gdb used to use the results of attempting to malloc the
428 string table, based on the size it read, as a form of sanity check
429 for botched byte swapping, on the theory that a byte swapped string
430 table size would be so totally bogus that the malloc would fail. Now
431 that we put in on the psymbol_obstack, we can't do this since gdb gets
432 a fatal error (out of virtual memory) if the size is bogus. We can
433 however at least check to see if the size is zero or some negative
436 DBX_STRINGTAB_SIZE (objfile) = bfd_section_size (sym_bfd, stringsect);
438 if (DBX_SYMCOUNT (objfile) == 0
439 || DBX_STRINGTAB_SIZE (objfile) == 0)
442 if (DBX_STRINGTAB_SIZE (objfile) <= 0
443 || DBX_STRINGTAB_SIZE (objfile) > bfd_get_size (sym_bfd))
444 error ("ridiculous string table size (%d bytes).",
445 DBX_STRINGTAB_SIZE (objfile));
447 DBX_STRINGTAB (objfile) =
448 (char *) obstack_alloc (&objfile -> psymbol_obstack,
449 DBX_STRINGTAB_SIZE (objfile));
451 /* Now read in the string table in one big gulp. */
453 val = bfd_seek (sym_bfd, STRING_TABLE_OFFSET, L_SET);
455 perror_with_name (name);
456 val = bfd_read (DBX_STRINGTAB (objfile), DBX_STRINGTAB_SIZE (objfile), 1,
459 error ("End of file reading string table");
461 /* It's possible bfd_read should be setting bfd_error, and we should be
462 checking that. But currently it doesn't set bfd_error. */
463 perror_with_name (name);
464 else if (val != DBX_STRINGTAB_SIZE (objfile))
465 error ("Short read reading string table");
468 /* PA specific parsing routine for section offsets.
470 Plain and simple for now. */
472 static struct section_offsets *
473 pa_symfile_offsets (objfile, addr)
474 struct objfile *objfile;
477 struct section_offsets *section_offsets;
480 section_offsets = (struct section_offsets *)
481 obstack_alloc (&objfile -> psymbol_obstack,
482 sizeof (struct section_offsets) +
483 sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1));
485 for (i = 0; i < SECT_OFF_MAX; i++)
486 ANOFFSET (section_offsets, i) = addr;
488 return section_offsets;
491 /* Register that we are able to handle PA object file formats. */
493 /* This is probably a mistake. FIXME. Why can't the HP's use an ordinary
494 file format name with an -hppa suffix? */
495 static struct sym_fns pa_sym_fns =
497 "hppa", /* sym_name: name or name prefix of BFD target type */
498 4, /* sym_namelen: number of significant sym_name chars */
499 pa_new_init, /* sym_new_init: init anything gbl to entire symtab */
500 pa_symfile_init, /* sym_init: read initial info, setup for sym_read() */
501 pa_symfile_read, /* sym_read: read a symbol file into symtab */
502 pa_symfile_finish, /* sym_finish: finished with file, cleanup */
503 pa_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */
504 NULL /* next: pointer to next struct sym_fns */
508 _initialize_paread ()
510 add_symtab_fns (&pa_sym_fns);