godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changes to hide names and some fixes

Browse Source
This commit is contained in:
ceriel
1989-01-17 10:27:55 +00:00
parent 0570864f72
commit ba080af7ec
6 changed files with 37 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mach/vax4/ce/relocation.c
View File

@@ -5,7 +5,7 @@
/* Written to run on SUN, and generate code for SUN */
extern long base_address[];
extern long _base_address[];
do_local_relocation()
{
@@ -13,9 +13,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;
_base_address[SEGTXT] = 0;
_base_address[SEGCON] = text - text_area;
_base_address[SEGBSS] = _base_address[SEGCON] + data - data_area;
for ( rp = reloc_info; rp < relo; rp++) {
register struct outname *np = &symbol_table[rp->or_nami];
@@ -38,7 +38,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];
_base_address[(np->on_type&S_TYP)-S_MIN];
else
fprint( STDERR,
"do_relo() : bad relocation size\n");