Commit f7f84ac7 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-01-11 14:51:43 by sewardj]

nameFromOPtr(): don't try to search object sym tables for source modules
lookupSection(): ditto, plus don't forget to also look in
                 module(m).objectExtras
parent 56df29b6
......@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: storage.c,v $
* $Revision: 1.36 $
* $Date: 2000/01/10 17:19:32 $
* $Revision: 1.37 $
* $Date: 2000/01/11 14:51:43 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
......@@ -1469,8 +1469,10 @@ char* nameFromOPtr ( void* p )
int i;
Module m;
for (m=MODMIN; m<moduleHw; m++) {
char* nm = ocLookupAddr ( module(m).object, p );
if (nm) return nm;
if (module(m).object) {
char* nm = ocLookupAddr ( module(m).object, p );
if (nm) return nm;
}
}
return NULL;
}
......@@ -1498,13 +1500,22 @@ void* lookupOExtraTabName ( char* sym )
OSectionKind lookupSection ( void* ad )
{
int i;
Module m;
int i;
Module m;
ObjectCode* oc;
OSectionKind sect;
for (m=MODMIN; m<moduleHw; m++) {
OSectionKind sect
= ocLookupSection ( module(m).object, ad );
if (sect != HUGS_SECTIONKIND_NOINFOAVAIL)
return sect;
if (module(m).object) {
sect = ocLookupSection ( module(m).object, ad );
if (sect != HUGS_SECTIONKIND_NOINFOAVAIL)
return sect;
}
for (oc = module(m).objectExtras; oc; oc=oc->next) {
sect = ocLookupSection ( oc, ad );
if (sect != HUGS_SECTIONKIND_NOINFOAVAIL)
return sect;
}
}
return HUGS_SECTIONKIND_OTHER;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment