URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [gdb/] [hp-psymtab-read.c] - Rev 1765
Compare with Previous | Blame | View Log
/* Read hp debug symbols and convert to internal format, for GDB. Copyright 1993, 1996, 1998, 1999 Free Software Foundation, Inc. This file is part of GDB. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Written by the Center for Software Science at the University of Utah and by Cygnus Support. */ /* Common include file for hp_symtab_read.c and hp_psymtab_read.c. This has nested includes of a bunch of stuff. */ #include "hpread.h" #include "demangle.h" /* To generate dumping code, uncomment this define. The dumping itself is controlled by routine-local statics called "dumping". */ /* #define DUMPING 1 */ /* To use the quick look-up tables, uncomment this define. */ #define QUICK_LOOK_UP 1 /* To call PXDB to process un-processed files, uncomment this define. */ #define USE_PXDB 1 /* Forward procedure declarations */ void hpread_symfile_init PARAMS ((struct objfile *)); void do_pxdb PARAMS ((bfd *)); void hpread_build_psymtabs PARAMS ((struct objfile *, int)); void hpread_symfile_finish PARAMS ((struct objfile *)); static union dnttentry *hpread_get_gntt PARAMS ((int, struct objfile *)); static unsigned long hpread_get_textlow PARAMS ((int, int, struct objfile *, int)); static struct partial_symtab *hpread_start_psymtab PARAMS ((struct objfile *, char *, CORE_ADDR, int, struct partial_symbol **, struct partial_symbol **)); static struct partial_symtab *hpread_end_psymtab PARAMS ((struct partial_symtab *, char **, int, int, CORE_ADDR, struct partial_symtab **, int)); /* End of forward routine declarations */ #ifdef USE_PXDB /* NOTE use of system files! May not be portable. */ #define PXDB_SVR4 "/opt/langtools/bin/pxdb" #define PXDB_BSD "/usr/bin/pxdb" #include <stdlib.h> #include <string.h> /* check for the existance of a file, given its full pathname */ int file_exists (filename) char *filename; { if (filename) return (access (filename, F_OK) == 0); return 0; } /* Translate from the "hp_language" enumeration in hp-symtab.h used in the debug info to gdb's generic enumeration in defs.h. */ static enum language trans_lang (in_lang) enum hp_language in_lang; { if (in_lang == HP_LANGUAGE_C) return language_c; else if (in_lang == HP_LANGUAGE_CPLUSPLUS) return language_cplus; else if (in_lang == HP_LANGUAGE_FORTRAN) return language_fortran; else return language_unknown; } static char main_string[] = "main"; /* Call PXDB to process our file. Approach copied from DDE's "dbgk_run_pxdb". Note: we don't check for BSD location of pxdb, nor for existance of pxdb itself, etc. NOTE: uses system function and string functions directly. Return value: 1 if ok, 0 if not */ int hpread_call_pxdb (file_name) char *file_name; { char *p; int status; int retval; if (file_exists (PXDB_SVR4)) { p = malloc (strlen (PXDB_SVR4) + strlen (file_name) + 2); strcpy (p, PXDB_SVR4); strcat (p, " "); strcat (p, file_name); warning ("File not processed by pxdb--about to process now.\n"); status = system (p); retval = (status == 0); } else { warning ("pxdb not found at standard location: /opt/langtools/bin\ngdb will not be able to debug %s.\nPlease install pxdb at the above location and then restart gdb.\nYou can also run pxdb on %s with the command\n\"pxdb %s\" and then restart gdb.", file_name, file_name, file_name); retval = 0; } return retval; } /* hpread_call_pxdb */ /* Return 1 if the file turns out to need pre-processing by PXDB, and we have thus called PXDB to do this processing and the file therefore needs to be re-loaded. Otherwise return 0. */ int hpread_pxdb_needed (sym_bfd) bfd *sym_bfd; { asection *pinfo_section, *debug_section, *header_section; unsigned int do_pxdb; char *buf; bfd_size_type header_section_size; unsigned long tmp; unsigned int pxdbed; header_section = bfd_get_section_by_name (sym_bfd, "$HEADER$"); if (!header_section) { return 0; /* No header at all, can't recover... */ } debug_section = bfd_get_section_by_name (sym_bfd, "$DEBUG$"); pinfo_section = bfd_get_section_by_name (sym_bfd, "$PINFO$"); if (pinfo_section && !debug_section) { /* Debug info with DOC, has different header format. this only happens if the file was pxdbed and compiled optimized otherwise the PINFO section is not there. */ header_section_size = bfd_section_size (objfile->obfd, header_section); if (header_section_size == (bfd_size_type) sizeof (DOC_info_PXDB_header)) { buf = alloca (sizeof (DOC_info_PXDB_header)); if (!bfd_get_section_contents (sym_bfd, header_section, buf, 0, header_section_size)) error ("bfd_get_section_contents\n"); tmp = bfd_get_32 (sym_bfd, (bfd_byte *) (buf + sizeof (int) * 4)); pxdbed = (tmp >> 31) & 0x1; if (!pxdbed) error ("file debug header info invalid\n"); do_pxdb = 0; } else error ("invalid $HEADER$ size in executable \n"); } else { /* this can be three different cases: 1. pxdbed and not doc - DEBUG and HEADER sections are there - header is PXDB_header type - pxdbed flag is set to 1 2. not pxdbed and doc - DEBUG and HEADER sections are there - header is DOC_info_header type - pxdbed flag is set to 0 3. not pxdbed and not doc - DEBUG and HEADER sections are there - header is XDB_header type - pxdbed flag is set to 0 NOTE: the pxdbed flag is meaningful also in the not already pxdb processed version of the header, because in case on non-already processed by pxdb files that same bit in the header would be always zero. Why? Because the bit is the leftmost bit of a word which contains a 'length' which is always a positive value so that bit is never set to 1 (otherwise it would be negative) Given the above, we have two choices : either we ignore the size of the header itself and just look at the pxdbed field, or we check the size and then we (for safety and paranoia related issues) check the bit. The first solution is used by DDE, the second by PXDB itself. I am using the second one here, because I already wrote it, and it is the end of a long day. Also, using the first approach would still involve size issues because we need to read in the contents of the header section, and give the correct amount of stuff we want to read to the get_bfd_section_contents function. */ /* decide which case depending on the size of the header section. The size is as defined in hp-symtab.h */ header_section_size = bfd_section_size (objfile->obfd, header_section); if (header_section_size == (bfd_size_type) sizeof (PXDB_header)) /* pxdb and not doc */ { buf = alloca (sizeof (PXDB_header)); if (!bfd_get_section_contents (sym_bfd, header_section, buf, 0, header_section_size)) error ("bfd_get_section_contents\n"); tmp = bfd_get_32 (sym_bfd, (bfd_byte *) (buf + sizeof (int) * 3)); pxdbed = (tmp >> 31) & 0x1; if (pxdbed) do_pxdb = 0; else error ("file debug header invalid\n"); } else /*not pxdbed and doc OR not pxdbed and non doc */ do_pxdb = 1; } if (do_pxdb) { return 1; } else { return 0; } } /* hpread_pxdb_needed */ #endif /* Check whether the file needs to be preprocessed by pxdb. If so, call pxdb. */ void do_pxdb (sym_bfd) bfd *sym_bfd; { /* The following code is HP-specific. The "right" way of doing this is unknown, but we bet would involve a target- specific pre-file-load check using a generic mechanism. */ /* This code will not be executed if the file is not in SOM format (i.e. if compiled with gcc) */ if (hpread_pxdb_needed (sym_bfd)) { /*This file has not been pre-processed. Preprocess now */ if (hpread_call_pxdb (sym_bfd->filename)) { /* The call above has changed the on-disk file, we can close the file anyway, because the symbols will be reread in when the target is run */ bfd_close (sym_bfd); } } } #ifdef QUICK_LOOK_UP /* Code to handle quick lookup-tables follows. */ /* Some useful macros */ #define VALID_FILE(i) ((i) < pxdb_header_p->fd_entries) #define VALID_MODULE(i) ((i) < pxdb_header_p->md_entries) #define VALID_PROC(i) ((i) < pxdb_header_p->pd_entries) #define VALID_CLASS(i) ((i) < pxdb_header_p->cd_entries) #define FILE_START(i) (qFD[i].adrStart) #define MODULE_START(i) (qMD[i].adrStart) #define PROC_START(i) (qPD[i].adrStart) #define FILE_END(i) (qFD[i].adrEnd) #define MODULE_END(i) (qMD[i].adrEnd) #define PROC_END(i) (qPD[i].adrEnd) #define FILE_ISYM(i) (qFD[i].isym) #define MODULE_ISYM(i) (qMD[i].isym) #define PROC_ISYM(i) (qPD[i].isym) #define VALID_CURR_FILE (curr_fd < pxdb_header_p->fd_entries) #define VALID_CURR_MODULE (curr_md < pxdb_header_p->md_entries) #define VALID_CURR_PROC (curr_pd < pxdb_header_p->pd_entries) #define VALID_CURR_CLASS (curr_cd < pxdb_header_p->cd_entries) #define CURR_FILE_START (qFD[curr_fd].adrStart) #define CURR_MODULE_START (qMD[curr_md].adrStart) #define CURR_PROC_START (qPD[curr_pd].adrStart) #define CURR_FILE_END (qFD[curr_fd].adrEnd) #define CURR_MODULE_END (qMD[curr_md].adrEnd) #define CURR_PROC_END (qPD[curr_pd].adrEnd) #define CURR_FILE_ISYM (qFD[curr_fd].isym) #define CURR_MODULE_ISYM (qMD[curr_md].isym) #define CURR_PROC_ISYM (qPD[curr_pd].isym) #define TELL_OBJFILE \ do { \ if( !told_objfile ) { \ told_objfile = 1; \ warning ("\nIn object file \"%s\":\n", \ objfile->name); \ } \ } while (0) /* Keeping track of the start/end symbol table (LNTT) indices of psymtabs created so far */ typedef struct { int start; int end; } pst_syms_struct; static pst_syms_struct *pst_syms_array = 0; static pst_syms_count = 0; static pst_syms_size = 0; /* used by the TELL_OBJFILE macro */ static boolean told_objfile = 0; /* Set up psymtab symbol index stuff */ static void init_pst_syms () { pst_syms_count = 0; pst_syms_size = 20; pst_syms_array = (pst_syms_struct *) xmalloc (20 * sizeof (pst_syms_struct)); } /* Clean up psymtab symbol index stuff */ static void clear_pst_syms () { pst_syms_count = 0; pst_syms_size = 0; free (pst_syms_array); pst_syms_array = 0; } /* Add information about latest psymtab to symbol index table */ static void record_pst_syms (start_sym, end_sym) int start_sym; int end_sym; { if (++pst_syms_count > pst_syms_size) { pst_syms_array = (pst_syms_struct *) xrealloc (pst_syms_array, 2 * pst_syms_size * sizeof (pst_syms_struct)); pst_syms_size *= 2; } pst_syms_array[pst_syms_count - 1].start = start_sym; pst_syms_array[pst_syms_count - 1].end = end_sym; } /* Find a suitable symbol table index which can serve as the upper bound of a psymtab that starts at INDEX This scans backwards in the psymtab symbol index table to find a "hole" in which the given index can fit. This is a heuristic!! We don't search the entire table to check for multiple holes, we don't care about overlaps, etc. Return 0 => not found */ static int find_next_pst_start (index) int index; { int i; for (i = pst_syms_count - 1; i >= 0; i--) if (pst_syms_array[i].end <= index) return (i == pst_syms_count - 1) ? 0 : pst_syms_array[i + 1].start - 1; if (pst_syms_array[0].start > index) return pst_syms_array[0].start - 1; return 0; } /* Utility functions to find the ending symbol index for a psymtab */ /* Find the next file entry that begins beyond INDEX, and return its starting symbol index - 1. QFD is the file table, CURR_FD is the file entry from where to start, PXDB_HEADER_P as in hpread_quick_traverse (to allow macros to work). Return 0 => not found */ static int find_next_file_isym (index, qFD, curr_fd, pxdb_header_p) int index; quick_file_entry *qFD; int curr_fd; PXDB_header_ptr pxdb_header_p; { while (VALID_CURR_FILE) { if (CURR_FILE_ISYM >= index) return CURR_FILE_ISYM - 1; curr_fd++; } return 0; } /* Find the next procedure entry that begins beyond INDEX, and return its starting symbol index - 1. QPD is the procedure table, CURR_PD is the proc entry from where to start, PXDB_HEADER_P as in hpread_quick_traverse (to allow macros to work). Return 0 => not found */ static int find_next_proc_isym (index, qPD, curr_pd, pxdb_header_p) int index; quick_procedure_entry *qPD; int curr_pd; PXDB_header_ptr pxdb_header_p; { while (VALID_CURR_PROC) { if (CURR_PROC_ISYM >= index) return CURR_PROC_ISYM - 1; curr_pd++; } return 0; } /* Find the next module entry that begins beyond INDEX, and return its starting symbol index - 1. QMD is the module table, CURR_MD is the modue entry from where to start, PXDB_HEADER_P as in hpread_quick_traverse (to allow macros to work). Return 0 => not found */ static int find_next_module_isym (index, qMD, curr_md, pxdb_header_p) int index; quick_module_entry *qMD; int curr_md; PXDB_header_ptr pxdb_header_p; { while (VALID_CURR_MODULE) { if (CURR_MODULE_ISYM >= index) return CURR_MODULE_ISYM - 1; curr_md++; } return 0; } /* Scan and record partial symbols for all functions starting from index pointed to by CURR_PD_P, and between code addresses START_ADR and END_ADR. Other parameters are explained in comments below. */ /* This used to be inline in hpread_quick_traverse, but now that we do essentially the same thing for two different cases (modules and module-less files), it's better organized in a separate routine, although it does take lots of arguments. pai/1997-10-08 */ static int scan_procs (curr_pd_p, qPD, max_procs, start_adr, end_adr, pst, vt_bits, objfile) int *curr_pd_p; /* pointer to current proc index */ quick_procedure_entry *qPD; /* the procedure quick lookup table */ int max_procs; /* number of entries in proc. table */ CORE_ADDR start_adr; /* beginning of code range for current psymtab */ CORE_ADDR end_adr; /* end of code range for current psymtab */ struct partial_symtab *pst; /* current psymtab */ char *vt_bits; /* strings table of SOM debug space */ struct objfile *objfile; /* current object file */ { union dnttentry *dn_bufp; int symbol_count = 0; /* Total number of symbols in this psymtab */ int curr_pd = *curr_pd_p; /* Convenience variable -- avoid dereferencing pointer all the time */ #ifdef DUMPING /* Turn this on for lots of debugging information in this routine */ static int dumping = 0; #endif #ifdef DUMPING if (dumping) { printf ("Scan_procs called, addresses %x to %x, proc %x\n", start_adr, end_adr, curr_pd); } #endif while ((CURR_PROC_START <= end_adr) && (curr_pd < max_procs)) { char *rtn_name; /* mangled name */ char *rtn_dem_name; /* qualified demangled name */ char *class_name; int class; if ((trans_lang ((enum hp_language) qPD[curr_pd].language) == language_cplus) && vt_bits[(long) qPD[curr_pd].sbAlias]) /* not a null string */ { /* Get mangled name for the procedure, and demangle it */ rtn_name = &vt_bits[(long) qPD[curr_pd].sbAlias]; rtn_dem_name = cplus_demangle (rtn_name, DMGL_ANSI | DMGL_PARAMS); } else { rtn_name = &vt_bits[(long) qPD[curr_pd].sbProc]; rtn_dem_name = NULL; } /* Hack to get around HP C/C++ compilers' insistence on providing "_MAIN_" as an alternate name for "main" */ if ((strcmp (rtn_name, "_MAIN_") == 0) && (strcmp (&vt_bits[(long) qPD[curr_pd].sbProc], "main") == 0)) rtn_dem_name = rtn_name = main_string; #ifdef DUMPING if (dumping) { printf ("..add %s (demangled %s), index %x to this psymtab\n", rtn_name, rtn_dem_name, curr_pd); } #endif /* Check for module-spanning routines. */ if (CURR_PROC_END > end_adr) { TELL_OBJFILE; warning ("Procedure \"%s\" [0x%x] spans file or module boundaries.", rtn_name, curr_pd); } /* Add this routine symbol to the list in the objfile. Unfortunately we have to go to the LNTT to determine the correct list to put it on. An alternative (which the code used to do) would be to not check and always throw it on the "static" list. But if we go that route, then symbol_lookup() needs to be tweaked a bit to account for the fact that the function might not be found on the correct list in the psymtab. - RT */ dn_bufp = hpread_get_lntt (qPD[curr_pd].isym, objfile); if (dn_bufp->dfunc.global) add_psymbol_with_dem_name_to_list (rtn_name, strlen (rtn_name), rtn_dem_name, strlen (rtn_dem_name), VAR_NAMESPACE, LOC_BLOCK, /* "I am a routine" */ &objfile->global_psymbols, (qPD[curr_pd].adrStart + /* Starting address of rtn */ ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT)), 0, /* core addr?? */ trans_lang ((enum hp_language) qPD[curr_pd].language), objfile); else add_psymbol_with_dem_name_to_list (rtn_name, strlen (rtn_name), rtn_dem_name, strlen (rtn_dem_name), VAR_NAMESPACE, LOC_BLOCK, /* "I am a routine" */ &objfile->static_psymbols, (qPD[curr_pd].adrStart + /* Starting address of rtn */ ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT)), 0, /* core addr?? */ trans_lang ((enum hp_language) qPD[curr_pd].language), objfile); symbol_count++; *curr_pd_p = ++curr_pd; /* bump up count & reflect in caller */ } /* loop over procedures */ #ifdef DUMPING if (dumping) { if (symbol_count == 0) printf ("Scan_procs: no symbols found!\n"); } #endif return symbol_count; } /* Traverse the quick look-up tables, building a set of psymtabs. This constructs a psymtab for modules and files in the quick lookup tables. Mostly, modules correspond to compilation units, so we try to create psymtabs that correspond to modules; however, in some cases a file can result in a compiled object which does not have a module entry for it, so in such cases we create a psymtab for the file. */ int hpread_quick_traverse (objfile, gntt_bits, vt_bits, pxdb_header_p) struct objfile *objfile; /* The object file descriptor */ char *gntt_bits; /* GNTT entries, loaded in from the file */ char *vt_bits; /* VT (string) entries ditto. */ PXDB_header_ptr pxdb_header_p; /* Pointer to pxdb header ditto */ { struct partial_symtab *pst; char *addr; quick_procedure_entry *qPD; quick_file_entry *qFD; quick_module_entry *qMD; quick_class_entry *qCD; int idx; int i; CORE_ADDR start_adr; /* current psymtab's starting code addr */ CORE_ADDR end_adr; /* current psymtab's ending code addr */ CORE_ADDR next_mod_adr; /* next module's starting code addr */ int curr_pd; /* current procedure */ int curr_fd; /* current file */ int curr_md; /* current module */ int start_sym; /* current psymtab's starting symbol index */ int end_sym; /* current psymtab's ending symbol index */ int max_LNTT_sym_index; int syms_in_pst; B_TYPE *class_entered; struct partial_symbol **global_syms; /* We'll be filling in the "global" */ struct partial_symbol **static_syms; /* and "static" tables in the objfile as we go, so we need a pair of current pointers. */ #ifdef DUMPING /* Turn this on for lots of debugging information in this routine. You get a blow-by-blow account of quick lookup table reading */ static int dumping = 0; #endif pst = (struct partial_symtab *) 0; /* Clear out some globals */ init_pst_syms (); told_objfile = 0; /* Demangling style -- if EDG style already set, don't change it, as HP style causes some problems with the KAI EDG compiler */ if (current_demangling_style != edg_demangling) { /* Otherwise, ensure that we are using HP style demangling */ set_demangling_style (HP_DEMANGLING_STYLE_STRING); } /* First we need to find the starting points of the quick look-up tables in the GNTT. */ addr = gntt_bits; qPD = (quick_procedure_entry_ptr) addr; addr += pxdb_header_p->pd_entries * sizeof (quick_procedure_entry); #ifdef DUMPING if (dumping) { printf ("\n Printing routines as we see them\n"); for (i = 0; VALID_PROC (i); i++) { idx = (long) qPD[i].sbProc; printf ("%s %x..%x\n", &vt_bits[idx], (int) PROC_START (i), (int) PROC_END (i)); } } #endif qFD = (quick_file_entry_ptr) addr; addr += pxdb_header_p->fd_entries * sizeof (quick_file_entry); #ifdef DUMPING if (dumping) { printf ("\n Printing files as we see them\n"); for (i = 0; VALID_FILE (i); i++) { idx = (long) qFD[i].sbFile; printf ("%s %x..%x\n", &vt_bits[idx], (int) FILE_START (i), (int) FILE_END (i)); } } #endif qMD = (quick_module_entry_ptr) addr; addr += pxdb_header_p->md_entries * sizeof (quick_module_entry); #ifdef DUMPING if (dumping) { printf ("\n Printing modules as we see them\n"); for (i = 0; i < pxdb_header_p->md_entries; i++) { idx = (long) qMD[i].sbMod; printf ("%s\n", &vt_bits[idx]); } } #endif qCD = (quick_class_entry_ptr) addr; addr += pxdb_header_p->cd_entries * sizeof (quick_class_entry); #ifdef DUMPING if (dumping) { printf ("\n Printing classes as we see them\n"); for (i = 0; VALID_CLASS (i); i++) { idx = (long) qCD[i].sbClass; printf ("%s\n", &vt_bits[idx]); } printf ("\n Done with dump, on to build!\n"); } #endif /* We need this index only while hp-symtab-read.c expects a byte offset to the end of the LNTT entries for a given psymtab. Thus the need for it should go away someday. When it goes away, then we won't have any need to load the LNTT from the objfile at psymtab-time, and start-up will be faster. To make that work, we'll need some way to create a null pst for the "globals" pseudo-module. */ max_LNTT_sym_index = LNTT_SYMCOUNT (objfile); /* Scan the module descriptors and make a psymtab for each. We know the MDs, FDs and the PDs are in order by starting address. We use that fact to traverse all three arrays in parallel, knowing when the next PD is in a new file and we need to create a new psymtab. */ curr_pd = 0; /* Current procedure entry */ curr_fd = 0; /* Current file entry */ curr_md = 0; /* Current module entry */ start_adr = 0; /* Current psymtab code range */ end_adr = 0; start_sym = 0; /* Current psymtab symbol range */ end_sym = 0; syms_in_pst = 0; /* Symbol count for psymtab */ /* Psts actually just have pointers into the objfile's symbol table, not their own symbol tables. */ global_syms = objfile->global_psymbols.list; static_syms = objfile->static_psymbols.list; /* First skip over pseudo-entries with address 0. These represent inlined routines and abstract (uninstantiated) template routines. FIXME: These should be read in and available -- even if we can't set breakpoints, etc., there's some information that can be presented to the user. pai/1997-10-08 */ while (VALID_CURR_PROC && (CURR_PROC_START == 0)) curr_pd++; /* Loop over files, modules, and procedures in code address order. Each time we enter an iteration of this loop, curr_pd points to the first unprocessed procedure, curr_fd points to the first unprocessed file, and curr_md to the first unprocessed module. Each iteration of this loop updates these as required -- any or all of them may be bumpd up each time around. When we exit this loop, we are done with all files and modules in the tables -- there may still be some procedures, however. Note: This code used to loop only over module entries, under the assumption that files can occur via inclusions and are thus unreliable, while a compiled object always corresponds to a module. With CTTI in the HP aCC compiler, it turns out that compiled objects may have only files and no modules; so we have to loop over files and modules, creating psymtabs for either as appropriate. Unfortunately there are some problems (notably: 1. the lack of "SRC_FILE_END" entries in the LNTT, 2. the lack of pointers to the ending symbol indices of a module or a file) which make it quite hard to do this correctly. Currently it uses a bunch of heuristics to start and end psymtabs; they seem to work well with most objects generated by aCC, but who knows when that will change... */ while (VALID_CURR_FILE || VALID_CURR_MODULE) { char *mod_name_string; char *full_name_string; /* First check for modules like "version.c", which have no code in them but still have qMD entries. They also have no qFD or qPD entries. Their start address is -1 and their end address is 0. */ if (VALID_CURR_MODULE && (CURR_MODULE_START == -1) && (CURR_MODULE_END == 0)) { mod_name_string = &vt_bits[(long) qMD[curr_md].sbMod]; #ifdef DUMPING if (dumping) printf ("Module with data only %s\n", mod_name_string); #endif /* We'll skip the rest (it makes error-checking easier), and just make an empty pst. Right now empty psts are not put in the pst chain, so all this is for naught, but later it might help. */ pst = hpread_start_psymtab (objfile, mod_name_string, CURR_MODULE_START, /* Low text address: bogus! */ (CURR_MODULE_ISYM * sizeof (struct dntt_type_block)), /* ldsymoff */ global_syms, static_syms); pst = hpread_end_psymtab (pst, NULL, /* psymtab_include_list */ 0, /* includes_used */ end_sym * sizeof (struct dntt_type_block), /* byte index in LNTT of end = capping symbol offset = LDSYMOFF of nextfile */ 0, /* text high */ NULL, /* dependency_list */ 0); /* dependencies_used */ global_syms = objfile->global_psymbols.next; static_syms = objfile->static_psymbols.next; curr_md++; } else if (VALID_CURR_MODULE && ((CURR_MODULE_START == 0) || (CURR_MODULE_START == -1) || (CURR_MODULE_END == 0) || (CURR_MODULE_END == -1))) { TELL_OBJFILE; warning ("Module \"%s\" [0x%x] has non-standard addresses. It starts at 0x%x, ends at 0x%x, and will be skipped.", mod_name_string, curr_md, start_adr, end_adr); /* On to next module */ curr_md++; } else { /* First check if we are looking at a file with code in it that does not overlap the current module's code range */ if (VALID_CURR_FILE ? (VALID_CURR_MODULE ? (CURR_FILE_END < CURR_MODULE_START) : 1) : 0) { /* Looking at file not corresponding to any module, create a psymtab for it */ full_name_string = &vt_bits[(long) qFD[curr_fd].sbFile]; start_adr = CURR_FILE_START; end_adr = CURR_FILE_END; start_sym = CURR_FILE_ISYM; /* Check if there are any procedures not handled until now, that begin before the start address of this file, and if so, adjust this module's start address to include them. This handles routines that are in between file or module ranges for some reason (probably indicates a compiler bug */ if (CURR_PROC_START < start_adr) { TELL_OBJFILE; warning ("Found procedure \"%s\" [0x%x] that is not in any file or module.", &vt_bits[(long) qPD[curr_pd].sbProc], curr_pd); start_adr = CURR_PROC_START; if (CURR_PROC_ISYM < start_sym) start_sym = CURR_PROC_ISYM; } /* Sometimes (compiler bug -- COBOL) the module end address is higher than the start address of the next module, so check for that and adjust accordingly */ if (VALID_FILE (curr_fd + 1) && (FILE_START (curr_fd + 1) <= end_adr)) { TELL_OBJFILE; warning ("File \"%s\" [0x%x] has ending address after starting address of next file; adjusting ending address down.", full_name_string, curr_fd); end_adr = FILE_START (curr_fd + 1) - 1; /* Is -4 (or -8 for 64-bit) better? */ } if (VALID_MODULE (curr_md) && (CURR_MODULE_START <= end_adr)) { TELL_OBJFILE; warning ("File \"%s\" [0x%x] has ending address after starting address of next module; adjusting ending address down.", full_name_string, curr_fd); end_adr = CURR_MODULE_START - 1; /* Is -4 (or -8 for 64-bit) better? */ } #ifdef DUMPING if (dumping) { printf ("Make new psymtab for file %s (%x to %x).\n", full_name_string, start_adr, end_adr); } #endif /* Create the basic psymtab, connecting it in the list for this objfile and pointing its symbol entries to the current end of the symbol areas in the objfile. The "ldsymoff" parameter is the byte offset in the LNTT of the first symbol in this file. Some day we should turn this into an index (fix in hp-symtab-read.c as well). And it's not even the right byte offset, as we're using the size of a union! FIXME! */ pst = hpread_start_psymtab (objfile, full_name_string, start_adr, /* Low text address */ (start_sym * sizeof (struct dntt_type_block)), /* ldsymoff */ global_syms, static_syms); /* Set up to only enter each class referenced in this module once. */ class_entered = malloc (B_BYTES (pxdb_header_p->cd_entries)); B_CLRALL (class_entered, pxdb_header_p->cd_entries); /* Scan the procedure descriptors for procedures in the current file, based on the starting addresses. */ syms_in_pst = scan_procs (&curr_pd, qPD, pxdb_header_p->pd_entries, start_adr, end_adr, pst, vt_bits, objfile); /* Get ending symbol offset */ end_sym = 0; /* First check for starting index before previous psymtab */ if (pst_syms_count && start_sym < pst_syms_array[pst_syms_count - 1].end) { end_sym = find_next_pst_start (start_sym); } /* Look for next start index of a file or module, or procedure */ if (!end_sym) { int next_file_isym = find_next_file_isym (start_sym, qFD, curr_fd + 1, pxdb_header_p); int next_module_isym = find_next_module_isym (start_sym, qMD, curr_md, pxdb_header_p); int next_proc_isym = find_next_proc_isym (start_sym, qPD, curr_pd, pxdb_header_p); if (next_file_isym && next_module_isym) { /* pick lower of next file or module start index */ end_sym = min (next_file_isym, next_module_isym); } else { /* one of them is zero, pick the other */ end_sym = max (next_file_isym, next_module_isym); } /* As a precaution, check next procedure index too */ if (!end_sym) end_sym = next_proc_isym; else end_sym = min (end_sym, next_proc_isym); } /* Couldn't find procedure, file, or module, use globals as default */ if (!end_sym) end_sym = pxdb_header_p->globals; #ifdef DUMPING if (dumping) { printf ("File psymtab indices: %x to %x\n", start_sym, end_sym); } #endif pst = hpread_end_psymtab (pst, NULL, /* psymtab_include_list */ 0, /* includes_used */ end_sym * sizeof (struct dntt_type_block), /* byte index in LNTT of end = capping symbol offset = LDSYMOFF of nextfile */ end_adr, /* text high */ NULL, /* dependency_list */ 0); /* dependencies_used */ record_pst_syms (start_sym, end_sym); if (NULL == pst) warning ("No symbols in psymtab for file \"%s\" [0x%x].", full_name_string, curr_fd); #ifdef DUMPING if (dumping) { printf ("Made new psymtab for file %s (%x to %x), sym %x to %x.\n", full_name_string, start_adr, end_adr, CURR_FILE_ISYM, end_sym); } #endif /* Prepare for the next psymtab. */ global_syms = objfile->global_psymbols.next; static_syms = objfile->static_psymbols.next; free (class_entered); curr_fd++; } /* Psymtab for file */ else { /* We have a module for which we create a psymtab */ mod_name_string = &vt_bits[(long) qMD[curr_md].sbMod]; /* We will include the code ranges of any files that happen to overlap with this module */ /* So, first pick the lower of the file's and module's start addresses */ start_adr = CURR_MODULE_START; if (VALID_CURR_FILE) { if (CURR_FILE_START < CURR_MODULE_START) { TELL_OBJFILE; warning ("File \"%s\" [0x%x] crosses beginning of module \"%s\".", &vt_bits[(long) qFD[curr_fd].sbFile], curr_fd, mod_name_string); start_adr = CURR_FILE_START; } } /* Also pick the lower of the file's and the module's start symbol indices */ start_sym = CURR_MODULE_ISYM; if (VALID_CURR_FILE && (CURR_FILE_ISYM < CURR_MODULE_ISYM)) start_sym = CURR_FILE_ISYM; /* For the end address, we scan through the files till we find one that overlaps the current module but ends beyond it; if no such file exists we simply use the module's start address. (Note, if file entries themselves overlap we take the longest overlapping extension beyond the end of the module...) We assume that modules never overlap. */ end_adr = CURR_MODULE_END; if (VALID_CURR_FILE) { while (VALID_CURR_FILE && (CURR_FILE_START < end_adr)) { #ifdef DUMPING if (dumping) printf ("Maybe skipping file %s which overlaps with module %s\n", &vt_bits[(long) qFD[curr_fd].sbFile], mod_name_string); #endif if (CURR_FILE_END > end_adr) { TELL_OBJFILE; warning ("File \"%s\" [0x%x] crosses end of module \"%s\".", &vt_bits[(long) qFD[curr_fd].sbFile], curr_fd, mod_name_string); end_adr = CURR_FILE_END; } curr_fd++; } curr_fd--; /* back up after going too far */ } /* Sometimes (compiler bug -- COBOL) the module end address is higher than the start address of the next module, so check for that and adjust accordingly */ if (VALID_MODULE (curr_md + 1) && (MODULE_START (curr_md + 1) <= end_adr)) { TELL_OBJFILE; warning ("Module \"%s\" [0x%x] has ending address after starting address of next module; adjusting ending address down.", mod_name_string, curr_md); end_adr = MODULE_START (curr_md + 1) - 1; /* Is -4 (or -8 for 64-bit) better? */ } if (VALID_FILE (curr_fd + 1) && (FILE_START (curr_fd + 1) <= end_adr)) { TELL_OBJFILE; warning ("Module \"%s\" [0x%x] has ending address after starting address of next file; adjusting ending address down.", mod_name_string, curr_md); end_adr = FILE_START (curr_fd + 1) - 1; /* Is -4 (or -8 for 64-bit) better? */ } /* Use one file to get the full name for the module. This situation can arise if there is executable code in a #include file. Each file with code in it gets a qFD. Files which don't contribute code don't get a qFD, even if they include files which do, e.g.: body.c: rtn.h: int x; int main() { #include "rtn.h" return x; } There will a qFD for "rtn.h",and a qMD for "body.c", but no qMD for "rtn.h" or qFD for "body.c"! We pick the name of the last file to overlap with this module. C convention is to put include files first. In a perfect world, we could check names and use the file whose full path name ends with the module name. */ if (VALID_CURR_FILE) full_name_string = &vt_bits[(long) qFD[curr_fd].sbFile]; else full_name_string = mod_name_string; /* Check if there are any procedures not handled until now, that begin before the start address we have now, and if so, adjust this psymtab's start address to include them. This handles routines that are in between file or module ranges for some reason (probably indicates a compiler bug */ if (CURR_PROC_START < start_adr) { TELL_OBJFILE; warning ("Found procedure \"%s\" [0x%x] that is not in any file or module.", &vt_bits[(long) qPD[curr_pd].sbProc], curr_pd); start_adr = CURR_PROC_START; if (CURR_PROC_ISYM < start_sym) start_sym = CURR_PROC_ISYM; } #ifdef DUMPING if (dumping) { printf ("Make new psymtab for module %s (%x to %x), using file %s\n", mod_name_string, start_adr, end_adr, full_name_string); } #endif /* Create the basic psymtab, connecting it in the list for this objfile and pointing its symbol entries to the current end of the symbol areas in the objfile. The "ldsymoff" parameter is the byte offset in the LNTT of the first symbol in this file. Some day we should turn this into an index (fix in hp-symtab-read.c as well). And it's not even the right byte offset, as we're using the size of a union! FIXME! */ pst = hpread_start_psymtab (objfile, full_name_string, start_adr, /* Low text address */ (start_sym * sizeof (struct dntt_type_block)), /* ldsymoff */ global_syms, static_syms); /* Set up to only enter each class referenced in this module once. */ class_entered = malloc (B_BYTES (pxdb_header_p->cd_entries)); B_CLRALL (class_entered, pxdb_header_p->cd_entries); /* Scan the procedure descriptors for procedures in the current module, based on the starting addresses. */ syms_in_pst = scan_procs (&curr_pd, qPD, pxdb_header_p->pd_entries, start_adr, end_adr, pst, vt_bits, objfile); /* Get ending symbol offset */ end_sym = 0; /* First check for starting index before previous psymtab */ if (pst_syms_count && start_sym < pst_syms_array[pst_syms_count - 1].end) { end_sym = find_next_pst_start (start_sym); } /* Look for next start index of a file or module, or procedure */ if (!end_sym) { int next_file_isym = find_next_file_isym (start_sym, qFD, curr_fd + 1, pxdb_header_p); int next_module_isym = find_next_module_isym (start_sym, qMD, curr_md + 1, pxdb_header_p); int next_proc_isym = find_next_proc_isym (start_sym, qPD, curr_pd, pxdb_header_p); if (next_file_isym && next_module_isym) { /* pick lower of next file or module start index */ end_sym = min (next_file_isym, next_module_isym); } else { /* one of them is zero, pick the other */ end_sym = max (next_file_isym, next_module_isym); } /* As a precaution, check next procedure index too */ if (!end_sym) end_sym = next_proc_isym; else end_sym = min (end_sym, next_proc_isym); } /* Couldn't find procedure, file, or module, use globals as default */ if (!end_sym) end_sym = pxdb_header_p->globals; #ifdef DUMPING if (dumping) { printf ("Module psymtab indices: %x to %x\n", start_sym, end_sym); } #endif pst = hpread_end_psymtab (pst, NULL, /* psymtab_include_list */ 0, /* includes_used */ end_sym * sizeof (struct dntt_type_block), /* byte index in LNTT of end = capping symbol offset = LDSYMOFF of nextfile */ end_adr, /* text high */ NULL, /* dependency_list */ 0); /* dependencies_used */ record_pst_syms (start_sym, end_sym); if (NULL == pst) warning ("No symbols in psymtab for module \"%s\" [0x%x].", mod_name_string, curr_md); #ifdef DUMPING if (dumping) { printf ("Made new psymtab for module %s (%x to %x), sym %x to %x.\n", mod_name_string, start_adr, end_adr, CURR_MODULE_ISYM, end_sym); } #endif /* Prepare for the next psymtab. */ global_syms = objfile->global_psymbols.next; static_syms = objfile->static_psymbols.next; free (class_entered); curr_md++; curr_fd++; } /* psymtab for module */ } /* psymtab for non-bogus file or module */ } /* End of while loop over all files & modules */ /* There may be some routines after all files and modules -- these will get inserted in a separate new module of their own */ if (VALID_CURR_PROC) { start_adr = CURR_PROC_START; end_adr = qPD[pxdb_header_p->pd_entries - 1].adrEnd; TELL_OBJFILE; warning ("Found functions beyond end of all files and modules [0x%x].", curr_pd); #ifdef DUMPING if (dumping) { printf ("Orphan functions at end, PD %d and beyond (%x to %x)\n", curr_pd, start_adr, end_adr); } #endif pst = hpread_start_psymtab (objfile, "orphans", start_adr, /* Low text address */ (CURR_PROC_ISYM * sizeof (struct dntt_type_block)), /* ldsymoff */ global_syms, static_syms); scan_procs (&curr_pd, qPD, pxdb_header_p->pd_entries, start_adr, end_adr, pst, vt_bits, objfile); pst = hpread_end_psymtab (pst, NULL, /* psymtab_include_list */ 0, /* includes_used */ pxdb_header_p->globals * sizeof (struct dntt_type_block), /* byte index in LNTT of end = capping symbol offset = LDSYMOFF of nextfile */ end_adr, /* text high */ NULL, /* dependency_list */ 0); /* dependencies_used */ } #ifdef NEVER_NEVER /* Now build psts for non-module things (in the tail of the LNTT, after the last END MODULE entry). If null psts were kept on the chain, this would be a solution. FIXME */ pst = hpread_start_psymtab (objfile, "globals", 0, (pxdb_header_p->globals * sizeof (struct dntt_type_block)), objfile->global_psymbols.next, objfile->static_psymbols.next); hpread_end_psymtab (pst, NULL, 0, (max_LNTT_sym_index * sizeof (struct dntt_type_block)), 0, NULL, 0); #endif clear_pst_syms (); return 1; } /* End of hpread_quick_traverse. */ /* Get appropriate header, based on pxdb type. Return value: 1 if ok, 0 if not */ int hpread_get_header (objfile, pxdb_header_p) struct objfile *objfile; PXDB_header_ptr pxdb_header_p; { asection *pinfo_section, *debug_section, *header_section; #ifdef DUMPING /* Turn on for debugging information */ static int dumping = 0; #endif header_section = bfd_get_section_by_name (objfile->obfd, "$HEADER$"); if (!header_section) { /* We don't have either PINFO or DEBUG sections. But stuff like "libc.sl" has no debug info. There's no need to warn the user of this, as it may be ok. The caller will figure it out and issue any needed messages. */ #ifdef DUMPING if (dumping) printf ("==No debug info at all for %s.\n", objfile->name); #endif return 0; } /* We would like either a $DEBUG$ or $PINFO$ section. Once we know which, we can understand the header data (which we have defined to suit the more common $DEBUG$ case). */ debug_section = bfd_get_section_by_name (objfile->obfd, "$DEBUG$"); pinfo_section = bfd_get_section_by_name (objfile->obfd, "$PINFO$"); if (debug_section) { /* The expected case: normal pxdb header. */ bfd_get_section_contents (objfile->obfd, header_section, pxdb_header_p, 0, sizeof (PXDB_header)); if (!pxdb_header_p->pxdbed) { /* This shouldn't happen if we check in "symfile.c". */ return 0; } /* DEBUG section */ } else if (pinfo_section) { /* The DOC case; we need to translate this into a regular header. */ DOC_info_PXDB_header doc_header; #ifdef DUMPING if (dumping) { printf ("==OOps, PINFO, let's try to handle this, %s.\n", objfile->name); } #endif bfd_get_section_contents (objfile->obfd, header_section, &doc_header, 0, sizeof (DOC_info_PXDB_header)); if (!doc_header.pxdbed) { /* This shouldn't happen if we check in "symfile.c". */ warning ("File \"%s\" not processed by pxdb!", objfile->name); return 0; } /* Copy relevent fields to standard header passed in. */ pxdb_header_p->pd_entries = doc_header.pd_entries; pxdb_header_p->fd_entries = doc_header.fd_entries; pxdb_header_p->md_entries = doc_header.md_entries; pxdb_header_p->pxdbed = doc_header.pxdbed; pxdb_header_p->bighdr = doc_header.bighdr; pxdb_header_p->sa_header = doc_header.sa_header; pxdb_header_p->inlined = doc_header.inlined; pxdb_header_p->globals = doc_header.globals; pxdb_header_p->time = doc_header.time; pxdb_header_p->pg_entries = doc_header.pg_entries; pxdb_header_p->functions = doc_header.functions; pxdb_header_p->files = doc_header.files; pxdb_header_p->cd_entries = doc_header.cd_entries; pxdb_header_p->aa_entries = doc_header.aa_entries; pxdb_header_p->oi_entries = doc_header.oi_entries; pxdb_header_p->version = doc_header.version; } /* PINFO section */ else { #ifdef DUMPING if (dumping) printf ("==No debug info at all for %s.\n", objfile->name); #endif return 0; } return 1; } /* End of hpread_get_header */ #endif /* QUICK_LOOK_UP */ /* Initialization for reading native HP C debug symbols from OBJFILE. Its only purpose in life is to set up the symbol reader's private per-objfile data structures, and read in the raw contents of the debug sections (attaching pointers to the debug info into the private data structures). Since BFD doesn't know how to read debug symbols in a format-independent way (and may never do so...), we have to do it ourselves. Note we may be called on a file without native HP C debugging symbols. FIXME, there should be a cleaner peephole into the BFD environment here. */ void hpread_symfile_init (objfile) struct objfile *objfile; { asection *vt_section, *slt_section, *lntt_section, *gntt_section; /* Allocate struct to keep track of the symfile */ objfile->sym_private = (PTR) xmmalloc (objfile->md, sizeof (struct hpread_symfile_info)); memset (objfile->sym_private, 0, sizeof (struct hpread_symfile_info)); /* We haven't read in any types yet. */ TYPE_VECTOR (objfile) = 0; /* Read in data from the $GNTT$ subspace. */ gntt_section = bfd_get_section_by_name (objfile->obfd, "$GNTT$"); if (!gntt_section) return; GNTT (objfile) = obstack_alloc (&objfile->symbol_obstack, bfd_section_size (objfile->obfd, gntt_section)); bfd_get_section_contents (objfile->obfd, gntt_section, GNTT (objfile), 0, bfd_section_size (objfile->obfd, gntt_section)); GNTT_SYMCOUNT (objfile) = bfd_section_size (objfile->obfd, gntt_section) / sizeof (struct dntt_type_block); /* Read in data from the $LNTT$ subspace. Also keep track of the number of LNTT symbols. FIXME: this could be moved into the psymtab-to-symtab expansion code, and save startup time. At the moment this data is still used, though. We'd need a way to tell hp-symtab-read.c whether or not to load the LNTT. */ lntt_section = bfd_get_section_by_name (objfile->obfd, "$LNTT$"); if (!lntt_section) return; LNTT (objfile) = obstack_alloc (&objfile->symbol_obstack, bfd_section_size (objfile->obfd, lntt_section)); bfd_get_section_contents (objfile->obfd, lntt_section, LNTT (objfile), 0, bfd_section_size (objfile->obfd, lntt_section)); LNTT_SYMCOUNT (objfile) = bfd_section_size (objfile->obfd, lntt_section) / sizeof (struct dntt_type_block); /* Read in data from the $SLT$ subspace. $SLT$ contains information on source line numbers. */ slt_section = bfd_get_section_by_name (objfile->obfd, "$SLT$"); if (!slt_section) return; SLT (objfile) = obstack_alloc (&objfile->symbol_obstack, bfd_section_size (objfile->obfd, slt_section)); bfd_get_section_contents (objfile->obfd, slt_section, SLT (objfile), 0, bfd_section_size (objfile->obfd, slt_section)); /* Read in data from the $VT$ subspace. $VT$ contains things like names and constants. Keep track of the number of symbols in the VT. */ vt_section = bfd_get_section_by_name (objfile->obfd, "$VT$"); if (!vt_section) return; VT_SIZE (objfile) = bfd_section_size (objfile->obfd, vt_section); VT (objfile) = (char *) obstack_alloc (&objfile->symbol_obstack, VT_SIZE (objfile)); bfd_get_section_contents (objfile->obfd, vt_section, VT (objfile), 0, VT_SIZE (objfile)); } /* Scan and build partial symbols for a symbol file. The minimal symbol table (either SOM or HP a.out) has already been read in; all we need to do is setup partial symbols based on the native debugging information. Note that the minimal table is produced by the linker, and has only global routines in it; the psymtab is based on compiler- generated debug information and has non-global routines in it as well as files and class information. We assume hpread_symfile_init has been called to initialize the symbol reader's private data structures. MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). */ void hpread_build_psymtabs (objfile, mainline) struct objfile *objfile; int mainline; { #ifdef DUMPING /* Turn this on to get debugging output. */ static int dumping = 0; #endif char *namestring; int past_first_source_file = 0; struct cleanup *old_chain; int hp_symnum, symcount, i; int scan_start = 0; union dnttentry *dn_bufp; unsigned long valu; char *p; int texthigh = 0; int have_name = 0; /* Current partial symtab */ struct partial_symtab *pst; /* List of current psymtab's include files */ char **psymtab_include_list; int includes_allocated; int includes_used; /* Index within current psymtab dependency list */ struct partial_symtab **dependency_list; int dependencies_used, dependencies_allocated; /* Just in case the stabs reader left turds lying around. */ free_pending_blocks (); make_cleanup (really_free_pendings, 0); pst = (struct partial_symtab *) 0; /* We shouldn't use alloca, instead use malloc/free. Doing so avoids a number of problems with cross compilation and creating useless holes in the stack when we have to allocate new entries. FIXME. */ includes_allocated = 30; includes_used = 0; psymtab_include_list = (char **) alloca (includes_allocated * sizeof (char *)); dependencies_allocated = 30; dependencies_used = 0; dependency_list = (struct partial_symtab **) alloca (dependencies_allocated * sizeof (struct partial_symtab *)); old_chain = make_cleanup ((make_cleanup_func) free_objfile, objfile); last_source_file = 0; #ifdef QUICK_LOOK_UP { /* Begin code for new-style loading of quick look-up tables. */ /* elz: this checks whether the file has beeen processed by pxdb. If not we would like to try to read the psymbols in anyway, but it turns out to be not so easy. So this could actually be commented out, but I leave it in, just in case we decide to add support for non-pxdb-ed stuff in the future. */ PXDB_header pxdb_header; int found_modules_in_program; if (hpread_get_header (objfile, &pxdb_header)) { /* Build a minimal table. No types, no global variables, no include files.... */ #ifdef DUMPING if (dumping) printf ("\nNew method for %s\n", objfile->name); #endif /* elz: quick_traverse returns true if it found some modules in the main source file, other than those in end.c In C and C++, all the files have MODULES entries in the LNTT, and the quick table traverse is all based on finding these MODULES entries. Without those it cannot work. It happens that F77 programs don't have MODULES so the quick traverse gets confused. F90 programs have modules, and the quick method still works. So, if modules (other than those in end.c) are not found we give up on the quick table stuff, and fall back on the slower method */ found_modules_in_program = hpread_quick_traverse (objfile, GNTT (objfile), VT (objfile), &pxdb_header); discard_cleanups (old_chain); /* Set up to scan the global section of the LNTT. This field is not always correct: if there are no globals, it will point to the last record in the regular LNTT, which is usually an END MODULE. Since it might happen that there could be a file with just one global record, there's no way to tell other than by looking at the record, so that's done below. */ if (found_modules_in_program) scan_start = pxdb_header.globals; } #ifdef DUMPING else { if (dumping) printf ("\nGoing on to old method for %s\n", objfile->name); } #endif } #endif /* QUICK_LOOK_UP */ /* Make two passes, one over the GNTT symbols, the other for the LNTT symbols. JB comment: above isn't true--they only make one pass, over the LNTT. */ for (i = 0; i < 1; i++) { int within_function = 0; if (i) symcount = GNTT_SYMCOUNT (objfile); else symcount = LNTT_SYMCOUNT (objfile); for (hp_symnum = scan_start; hp_symnum < symcount; hp_symnum++) { QUIT; if (i) dn_bufp = hpread_get_gntt (hp_symnum, objfile); else dn_bufp = hpread_get_lntt (hp_symnum, objfile); if (dn_bufp->dblock.extension) continue; /* Only handle things which are necessary for minimal symbols. everything else is ignored. */ switch (dn_bufp->dblock.kind) { case DNTT_TYPE_SRCFILE: { #ifdef QUICK_LOOK_UP if (scan_start == hp_symnum && symcount == hp_symnum + 1) { /* If there are NO globals in an executable, PXDB's index to the globals will point to the last record in the file, which could be this record. (this happened for F77 libraries) ignore it and be done! */ continue; } #endif /* QUICK_LOOK_UP */ /* A source file of some kind. Note this may simply be an included file. */ SET_NAMESTRING (dn_bufp, &namestring, objfile); /* Check if this is the source file we are already working with. */ if (pst && !strcmp (namestring, pst->filename)) continue; /* Check if this is an include file, if so check if we have already seen it. Add it to the include list */ p = strrchr (namestring, '.'); if (!strcmp (p, ".h")) { int j, found; found = 0; for (j = 0; j < includes_used; j++) if (!strcmp (namestring, psymtab_include_list[j])) { found = 1; break; } if (found) continue; /* Add it to the list of includes seen so far and allocate more include space if necessary. */ psymtab_include_list[includes_used++] = namestring; if (includes_used >= includes_allocated) { char **orig = psymtab_include_list; psymtab_include_list = (char **) alloca ((includes_allocated *= 2) * sizeof (char *)); memcpy ((PTR) psymtab_include_list, (PTR) orig, includes_used * sizeof (char *)); } continue; } if (pst) { if (!have_name) { pst->filename = (char *) obstack_alloc (&pst->objfile->psymbol_obstack, strlen (namestring) + 1); strcpy (pst->filename, namestring); have_name = 1; continue; } continue; } /* This is a bonafide new source file. End the current partial symtab and start a new one. */ if (pst && past_first_source_file) { hpread_end_psymtab (pst, psymtab_include_list, includes_used, (hp_symnum * sizeof (struct dntt_type_block)), texthigh, dependency_list, dependencies_used); pst = (struct partial_symtab *) 0; includes_used = 0; dependencies_used = 0; } else past_first_source_file = 1; valu = hpread_get_textlow (i, hp_symnum, objfile, symcount); valu += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); pst = hpread_start_psymtab (objfile, namestring, valu, (hp_symnum * sizeof (struct dntt_type_block)), objfile->global_psymbols.next, objfile->static_psymbols.next); texthigh = valu; have_name = 1; continue; } case DNTT_TYPE_MODULE: /* A source file. It's still unclear to me what the real difference between a DNTT_TYPE_SRCFILE and DNTT_TYPE_MODULE is supposed to be. */ /* First end the previous psymtab */ if (pst) { hpread_end_psymtab (pst, psymtab_include_list, includes_used, ((hp_symnum - 1) * sizeof (struct dntt_type_block)), texthigh, dependency_list, dependencies_used); pst = (struct partial_symtab *) 0; includes_used = 0; dependencies_used = 0; have_name = 0; } /* Now begin a new module and a new psymtab for it */ SET_NAMESTRING (dn_bufp, &namestring, objfile); valu = hpread_get_textlow (i, hp_symnum, objfile, symcount); valu += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); if (!pst) { pst = hpread_start_psymtab (objfile, namestring, valu, (hp_symnum * sizeof (struct dntt_type_block)), objfile->global_psymbols.next, objfile->static_psymbols.next); texthigh = valu; have_name = 0; } continue; case DNTT_TYPE_FUNCTION: case DNTT_TYPE_ENTRY: /* The beginning of a function. DNTT_TYPE_ENTRY may also denote a secondary entry point. */ valu = dn_bufp->dfunc.hiaddr + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); if (valu > texthigh) texthigh = valu; valu = dn_bufp->dfunc.lowaddr + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); SET_NAMESTRING (dn_bufp, &namestring, objfile); if (dn_bufp->dfunc.global) add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, LOC_BLOCK, &objfile->global_psymbols, valu, 0, language_unknown, objfile); else add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, LOC_BLOCK, &objfile->static_psymbols, valu, 0, language_unknown, objfile); within_function = 1; continue; case DNTT_TYPE_DOC_FUNCTION: valu = dn_bufp->ddocfunc.hiaddr + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); if (valu > texthigh) texthigh = valu; valu = dn_bufp->ddocfunc.lowaddr + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); SET_NAMESTRING (dn_bufp, &namestring, objfile); if (dn_bufp->ddocfunc.global) add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, LOC_BLOCK, &objfile->global_psymbols, valu, 0, language_unknown, objfile); else add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, LOC_BLOCK, &objfile->static_psymbols, valu, 0, language_unknown, objfile); within_function = 1; continue; case DNTT_TYPE_BEGIN: case DNTT_TYPE_END: /* We don't check MODULE end here, because there can be symbols beyond the module end which properly belong to the current psymtab -- so we wait till the next MODULE start */ #ifdef QUICK_LOOK_UP if (scan_start == hp_symnum && symcount == hp_symnum + 1) { /* If there are NO globals in an executable, PXDB's index to the globals will point to the last record in the file, which is probably an END MODULE, i.e. this record. ignore it and be done! */ continue; } #endif /* QUICK_LOOK_UP */ /* Scope block begin/end. We only care about function and file blocks right now. */ if ((dn_bufp->dend.endkind == DNTT_TYPE_FUNCTION) || (dn_bufp->dend.endkind == DNTT_TYPE_DOC_FUNCTION)) within_function = 0; continue; case DNTT_TYPE_SVAR: case DNTT_TYPE_DVAR: case DNTT_TYPE_TYPEDEF: case DNTT_TYPE_TAGDEF: { /* Variables, typedefs an the like. */ enum address_class storage; namespace_enum namespace; /* Don't add locals to the partial symbol table. */ if (within_function && (dn_bufp->dblock.kind == DNTT_TYPE_SVAR || dn_bufp->dblock.kind == DNTT_TYPE_DVAR)) continue; /* TAGDEFs go into the structure namespace. */ if (dn_bufp->dblock.kind == DNTT_TYPE_TAGDEF) namespace = STRUCT_NAMESPACE; else namespace = VAR_NAMESPACE; /* What kind of "storage" does this use? */ if (dn_bufp->dblock.kind == DNTT_TYPE_SVAR) storage = LOC_STATIC; else if (dn_bufp->dblock.kind == DNTT_TYPE_DVAR && dn_bufp->ddvar.regvar) storage = LOC_REGISTER; else if (dn_bufp->dblock.kind == DNTT_TYPE_DVAR) storage = LOC_LOCAL; else storage = LOC_UNDEF; SET_NAMESTRING (dn_bufp, &namestring, objfile); if (!pst) { pst = hpread_start_psymtab (objfile, "globals", 0, (hp_symnum * sizeof (struct dntt_type_block)), objfile->global_psymbols.next, objfile->static_psymbols.next); } /* Compute address of the data symbol */ valu = dn_bufp->dsvar.location; /* Relocate in case it's in a shared library */ if (storage == LOC_STATIC) valu += ANOFFSET (objfile->section_offsets, SECT_OFF_DATA); /* Luckily, dvar, svar, typedef, and tagdef all have their "global" bit in the same place, so it works (though it's bad programming practice) to reference "dsvar.global" even though we may be looking at any of the above four types. */ if (dn_bufp->dsvar.global) { add_psymbol_to_list (namestring, strlen (namestring), namespace, storage, &objfile->global_psymbols, valu, 0, language_unknown, objfile); } else { add_psymbol_to_list (namestring, strlen (namestring), namespace, storage, &objfile->static_psymbols, valu, 0, language_unknown, objfile); } /* For TAGDEF's, the above code added the tagname to the struct namespace. This will cause tag "t" to be found on a reference of the form "(struct t) x". But for C++ classes, "t" will also be a typename, which we want to find on a reference of the form "ptype t". Therefore, we also add "t" to the var namespace. Do the same for enum's due to the way aCC generates debug info for these (see more extended comment in hp-symtab-read.c). We do the same for templates, so that "ptype t" where "t" is a template also works. */ if (dn_bufp->dblock.kind == DNTT_TYPE_TAGDEF && dn_bufp->dtype.type.dnttp.index < LNTT_SYMCOUNT (objfile)) { int global = dn_bufp->dtag.global; /* Look ahead to see if it's a C++ class */ dn_bufp = hpread_get_lntt (dn_bufp->dtype.type.dnttp.index, objfile); if (dn_bufp->dblock.kind == DNTT_TYPE_CLASS || dn_bufp->dblock.kind == DNTT_TYPE_ENUM || dn_bufp->dblock.kind == DNTT_TYPE_TEMPLATE) { if (global) { add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, storage, &objfile->global_psymbols, dn_bufp->dsvar.location, 0, language_unknown, objfile); } else { add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, storage, &objfile->static_psymbols, dn_bufp->dsvar.location, 0, language_unknown, objfile); } } } } continue; case DNTT_TYPE_MEMENUM: case DNTT_TYPE_CONST: /* Constants and members of enumerated types. */ SET_NAMESTRING (dn_bufp, &namestring, objfile); if (!pst) { pst = hpread_start_psymtab (objfile, "globals", 0, (hp_symnum * sizeof (struct dntt_type_block)), objfile->global_psymbols.next, objfile->static_psymbols.next); } if (dn_bufp->dconst.global) add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, LOC_CONST, &objfile->global_psymbols, 0, 0, language_unknown, objfile); else add_psymbol_to_list (namestring, strlen (namestring), VAR_NAMESPACE, LOC_CONST, &objfile->static_psymbols, 0, 0, language_unknown, objfile); continue; default: continue; } } } /* End any pending partial symbol table. */ if (pst) { hpread_end_psymtab (pst, psymtab_include_list, includes_used, hp_symnum * sizeof (struct dntt_type_block), 0, dependency_list, dependencies_used); } discard_cleanups (old_chain); } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ void hpread_symfile_finish (objfile) struct objfile *objfile; { if (objfile->sym_private != NULL) { mfree (objfile->md, objfile->sym_private); } } /* The remaining functions are all for internal use only. */ /* Various small functions to get entries in the debug symbol sections. */ union dnttentry * hpread_get_lntt (index, objfile) int index; struct objfile *objfile; { return (union dnttentry *) &(LNTT (objfile)[(index * sizeof (struct dntt_type_block))]); } static union dnttentry * hpread_get_gntt (index, objfile) int index; struct objfile *objfile; { return (union dnttentry *) &(GNTT (objfile)[(index * sizeof (struct dntt_type_block))]); } union sltentry * hpread_get_slt (index, objfile) int index; struct objfile *objfile; { return (union sltentry *) &(SLT (objfile)[index * sizeof (union sltentry)]); } /* Get the low address associated with some symbol (typically the start of a particular source file or module). Since that information is not stored as part of the DNTT_TYPE_MODULE or DNTT_TYPE_SRCFILE symbol we must infer it from the existance of DNTT_TYPE_FUNCTION symbols. */ static unsigned long hpread_get_textlow (global, index, objfile, symcount) int global; int index; struct objfile *objfile; int symcount; { union dnttentry *dn_bufp; struct minimal_symbol *msymbol; /* Look for a DNTT_TYPE_FUNCTION symbol. */ if (index < symcount) /* symcount is the number of symbols in */ { /* the dbinfo, LNTT table */ do { if (global) dn_bufp = hpread_get_gntt (index++, objfile); else dn_bufp = hpread_get_lntt (index++, objfile); } while (dn_bufp->dblock.kind != DNTT_TYPE_FUNCTION && dn_bufp->dblock.kind != DNTT_TYPE_DOC_FUNCTION && dn_bufp->dblock.kind != DNTT_TYPE_END && index < symcount); } /* Avoid going past a DNTT_TYPE_END when looking for a DNTT_TYPE_FUNCTION. This might happen when a sourcefile has no functions. */ if (dn_bufp->dblock.kind == DNTT_TYPE_END) return 0; /* Avoid going past the end of the LNTT file */ if (index == symcount) return 0; /* The minimal symbols are typically more accurate for some reason. */ if (dn_bufp->dblock.kind == DNTT_TYPE_FUNCTION) msymbol = lookup_minimal_symbol (dn_bufp->dfunc.name + VT (objfile), NULL, objfile); else /* must be a DNTT_TYPE_DOC_FUNCTION */ msymbol = lookup_minimal_symbol (dn_bufp->ddocfunc.name + VT (objfile), NULL, objfile); if (msymbol) return SYMBOL_VALUE_ADDRESS (msymbol); else return dn_bufp->dfunc.lowaddr; } /* Allocate and partially fill a partial symtab. It will be completely filled at the end of the symbol list. SYMFILE_NAME is the name of the symbol-file we are reading from, and ADDR is the address relative to which its symbols are (incremental) or 0 (normal). */ static struct partial_symtab * hpread_start_psymtab (objfile, filename, textlow, ldsymoff, global_syms, static_syms) struct objfile *objfile; char *filename; CORE_ADDR textlow; int ldsymoff; struct partial_symbol **global_syms; struct partial_symbol **static_syms; { int offset = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT); extern void hpread_psymtab_to_symtab (); struct partial_symtab *result = start_psymtab_common (objfile, objfile->section_offsets, filename, textlow, global_syms, static_syms); result->textlow += offset; result->read_symtab_private = (char *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc)); LDSYMOFF (result) = ldsymoff; result->read_symtab = hpread_psymtab_to_symtab; return result; } /* Close off the current usage of PST. Returns PST or NULL if the partial symtab was empty and thrown away. capping_symbol_offset --Byte index in LNTT or GNTT of the last symbol processed during the build of the previous pst. FIXME: List variables and peculiarities of same. */ static struct partial_symtab * hpread_end_psymtab (pst, include_list, num_includes, capping_symbol_offset, capping_text, dependency_list, number_dependencies) struct partial_symtab *pst; char **include_list; int num_includes; int capping_symbol_offset; CORE_ADDR capping_text; struct partial_symtab **dependency_list; int number_dependencies; { int i; struct objfile *objfile = pst->objfile; int offset = ANOFFSET (pst->section_offsets, SECT_OFF_TEXT); #ifdef DUMPING /* Turn on to see what kind of a psymtab we've built. */ static int dumping = 0; #endif if (capping_symbol_offset != -1) LDSYMLEN (pst) = capping_symbol_offset - LDSYMOFF (pst); else LDSYMLEN (pst) = 0; pst->texthigh = capping_text + offset; pst->n_global_syms = objfile->global_psymbols.next - (objfile->global_psymbols.list + pst->globals_offset); pst->n_static_syms = objfile->static_psymbols.next - (objfile->static_psymbols.list + pst->statics_offset); #ifdef DUMPING if (dumping) { printf ("\nPst %s, LDSYMOFF %x (%x), LDSYMLEN %x (%x), globals %d, statics %d\n", pst->filename, LDSYMOFF (pst), LDSYMOFF (pst) / sizeof (struct dntt_type_block), LDSYMLEN (pst), LDSYMLEN (pst) / sizeof (struct dntt_type_block), pst->n_global_syms, pst->n_static_syms); } #endif pst->number_of_dependencies = number_dependencies; if (number_dependencies) { pst->dependencies = (struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, number_dependencies * sizeof (struct partial_symtab *)); memcpy (pst->dependencies, dependency_list, number_dependencies * sizeof (struct partial_symtab *)); } else pst->dependencies = 0; for (i = 0; i < num_includes; i++) { struct partial_symtab *subpst = allocate_psymtab (include_list[i], objfile); subpst->section_offsets = pst->section_offsets; subpst->read_symtab_private = (char *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc)); LDSYMOFF (subpst) = LDSYMLEN (subpst) = subpst->textlow = subpst->texthigh = 0; /* We could save slight bits of space by only making one of these, shared by the entire set of include files. FIXME-someday. */ subpst->dependencies = (struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct partial_symtab *)); subpst->dependencies[0] = pst; subpst->number_of_dependencies = 1; subpst->globals_offset = subpst->n_global_syms = subpst->statics_offset = subpst->n_static_syms = 0; subpst->readin = 0; subpst->symtab = 0; subpst->read_symtab = pst->read_symtab; } sort_pst_symbols (pst); /* If there is already a psymtab or symtab for a file of this name, remove it. (If there is a symtab, more drastic things also happen.) This happens in VxWorks. */ free_named_symtabs (pst->filename); if (num_includes == 0 && number_dependencies == 0 && pst->n_global_syms == 0 && pst->n_static_syms == 0) { /* Throw away this psymtab, it's empty. We can't deallocate it, since it is on the obstack, but we can forget to chain it on the list. Empty psymtabs happen as a result of header files which don't have any symbols in them. There can be a lot of them. But this check is wrong, in that a psymtab with N_SLINE entries but nothing else is not empty, but we don't realize that. Fixing that without slowing things down might be tricky. It's also wrong if we're using the quick look-up tables, as we can get empty psymtabs from modules with no routines in them. */ discard_psymtab (pst); /* Indicate that psymtab was thrown away. */ pst = (struct partial_symtab *) NULL; } return pst; } /* End of hp-psymtab-read.c */ /* Set indentation to 4 spaces for Emacs; this file is mostly non-GNU-ish in its style :-( */ #if 0 ***Local Variables: ***c - basic - offset:4 *** End: #endif