mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-02-23 13:21:43 +08:00
Tue Feb 2 18:40:29 1999 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* 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.
This commit is contained in:
parent
64381ab4ee
commit
17c9273aa1
@ -1,3 +1,16 @@
|
||||
Tue Feb 2 18:40:29 1999 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
|
||||
|
||||
* 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 <ezannoni@kwikemart.cygnus.com>
|
||||
|
||||
* hp-psymtab-read.c (do_pxdb): New function. Check whether the
|
||||
|
@ -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;
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user