Changed some names
This commit is contained in:
@@ -4,7 +4,7 @@
|
||||
|
||||
/* Written to run on SUN, and generate code for SUN */
|
||||
|
||||
extern long _base_address[];
|
||||
extern long B_base_address[];
|
||||
|
||||
do_local_relocation()
|
||||
{
|
||||
@@ -12,9 +12,9 @@ do_local_relocation()
|
||||
|
||||
/* print( "n relocation records %d\n", relo - reloc_info); */
|
||||
|
||||
_base_address[SEGTXT] = 0;
|
||||
_base_address[SEGCON] = text - text_area;
|
||||
_base_address[SEGBSS] = _base_address[SEGCON] + data - data_area;
|
||||
B_base_address[SEGTXT] = 0;
|
||||
B_base_address[SEGCON] = text - text_area;
|
||||
B_base_address[SEGBSS] = B_base_address[SEGCON] + data - data_area;
|
||||
for ( rp = reloc_info; rp < relo; rp++) {
|
||||
register struct outname *np = &symbol_table[rp->or_nami];
|
||||
|
||||
@@ -37,7 +37,7 @@ do_local_relocation()
|
||||
if ( rp->or_type & RELO4)
|
||||
*((long *)(sect+rp->or_addr)) +=
|
||||
np->on_valu +
|
||||
_base_address[(np->on_type&S_TYP)-S_MIN];
|
||||
B_base_address[(np->on_type&S_TYP)-S_MIN];
|
||||
else
|
||||
fprint( STDERR,
|
||||
"do_relo() : bad relocation size\n");
|
||||
|
||||
Reference in New Issue
Block a user