From 17c9273aa103d06d24ff173475f7e31448216043 Mon Sep 17 00:00:00 2001 From: Elena Zannoni Date: Tue, 2 Feb 1999 23:53:54 +0000 Subject: [PATCH] Tue Feb 2 18:40:29 1999 Elena Zannoni * hp-psymtab-read.c (hpread_build_psymtabs): Coerce first arg passed to make_cleanup to the correct type. (hpread_quick_traverse): Change fifth arg to call to hpread_end_psymtab to be 0. Compare CURR_MODULE_END to 0 rather than NULL. Get rid of ifdef'ed out code. (scan_procs): Get rid of ifdef'ed out code. * somread.c (som_symfile_read): Coerce first argument passed to make_cleanup to the correct type. --- gdb/ChangeLog | 13 ++++++++++ gdb/hp-psymtab-read.c | 67 +++++---------------------------------------------- gdb/somread.c | 2 +- 3 files changed, 20 insertions(+), 62 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 3dd0e2b..b74dd5d 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,16 @@ +Tue Feb 2 18:40:29 1999 Elena Zannoni + + * hp-psymtab-read.c (hpread_build_psymtabs): Coerce first arg + passed to make_cleanup to the correct type. + (hpread_quick_traverse): Change fifth arg to call to + hpread_end_psymtab to be 0. + Compare CURR_MODULE_END to 0 rather than NULL. + Get rid of ifdef'ed out code. + (scan_procs): Get rid of ifdef'ed out code. + + * somread.c (som_symfile_read): Coerce first argument passed to + make_cleanup to the correct type. + Tue Feb 2 17:36:29 1999 Elena Zannoni * hp-psymtab-read.c (do_pxdb): New function. Check whether the diff --git a/gdb/hp-psymtab-read.c b/gdb/hp-psymtab-read.c index 0e5a7b6..5926ada 100644 --- a/gdb/hp-psymtab-read.c +++ b/gdb/hp-psymtab-read.c @@ -584,49 +584,6 @@ scan_procs (curr_pd_p, qPD, max_procs, start_adr, end_adr, pst, vt_bits, objfile warning ("Procedure \"%s\" [0x%x] spans file or module boundaries.", rtn_name, curr_pd); } -/* I asked for this in the hope it would fix bug CHFts22228, but - later decided it's not the right fix. I'm leaving the code - commented out for now in case we decide we actually want to do this. - - RT */ -#if 0 - /* Check this routine--if it's a class member function, - add the class to the psymtab. We only need to add - the class once in each module, so check. */ - if (qPD[curr_pd].member) - { - - class = qPD[curr_pd].icd; - if (!B_TST (class_entered, class)) - { /* pai: (temp) class_entered not a parameter */ - - class_name = &vt_bits[(long) qCD[class].sbClass]; - - /* Add to both the struct and var namespace */ - - add_psymbol_to_list (class_name, - strlen (class_name), - STRUCT_NAMESPACE, - LOC_UNDEF, /* "I have no storage" */ - &objfile->global_psymbols, /* assume classname is global */ - 0, 0, - trans_lang ((enum hp_language) qPD[curr_pd].language), - objfile); - - add_psymbol_to_list (class_name, - strlen (class_name), - VAR_NAMESPACE, - LOC_UNDEF, /* "I have no storage" */ - &objfile->global_psymbols, /* assume classname is global */ - 0, 0, - trans_lang ((enum hp_language) qPD[curr_pd].language), - objfile); - - B_SET (class_entered, class); /* pai: (temp) class_entered not a parameter */ - symbol_count++; - } - } -#endif - /* 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 @@ -849,18 +806,6 @@ hpread_quick_traverse (objfile, section_offsets, gntt_bits, vt_bits, pxdb_header global_syms = objfile->global_psymbols.list; static_syms = objfile->static_psymbols.list; -#if 0 /* pai: (temp) we don't need this any more */ - /* elz: if the first module we see in the table is for - end.c, then return immediately with false. This happens - for F77 programs, for which there is no MODULE information - produced in the debug info. - Returning false from this function will make the caller - (build_psymbols) scan the table from the beginning and - not use the quick lookup tables. - F90 has modules so this poses no problem. */ - if (!strcmp (&vt_bits[(long) qMD[0].sbMod], "end.c")) - return 0; -#endif /* First skip over pseudo-entries with address 0. These represent inlined routines and abstract (uninstantiated) template routines. @@ -901,7 +846,7 @@ hpread_quick_traverse (objfile, section_offsets, gntt_bits, vt_bits, pxdb_header 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 == NULL)) + if (VALID_CURR_MODULE && (CURR_MODULE_START == -1) && (CURR_MODULE_END == 0)) { mod_name_string = &vt_bits[(long) qMD[curr_md].sbMod]; @@ -932,9 +877,9 @@ hpread_quick_traverse (objfile, section_offsets, gntt_bits, vt_bits, pxdb_header /* byte index in LNTT of end = capping symbol offset = LDSYMOFF of nextfile */ - NULL, /* text high */ - NULL, /* dependency_list */ - 0); /* dependencies_used */ + 0, /* text high */ + NULL, /* dependency_list */ + 0); /* dependencies_used */ global_syms = objfile->global_psymbols.next; static_syms = objfile->static_psymbols.next; @@ -1676,7 +1621,7 @@ hpread_build_psymtabs (objfile, section_offsets, mainline) /* Just in case the stabs reader left turds lying around. */ free_pending_blocks (); - make_cleanup (really_free_pendings, 0); + make_cleanup ((make_cleanup_func) really_free_pendings, 0); pst = (struct partial_symtab *) 0; @@ -1695,7 +1640,7 @@ hpread_build_psymtabs (objfile, section_offsets, mainline) (struct partial_symtab **) alloca (dependencies_allocated * sizeof (struct partial_symtab *)); - old_chain = make_cleanup (free_objfile, objfile); + old_chain = make_cleanup ((make_cleanup_func) free_objfile, objfile); last_source_file = 0; diff --git a/gdb/somread.c b/gdb/somread.c index 19e3ff1..c03abd0 100644 --- a/gdb/somread.c +++ b/gdb/somread.c @@ -366,7 +366,7 @@ som_symfile_read (objfile, section_offsets, mainline) do_pxdb (symfile_bfd_open (objfile->name)); init_minimal_symbol_collection (); - back_to = make_cleanup (discard_minimal_symbols, 0); + back_to = make_cleanup ((make_cleanup_func) discard_minimal_symbols, 0); /* Read in the import list and the export list. Currently the export list isn't used; the import list is used in -- 2.7.4