1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
/* Copyright William Schelter. All rights reserved. This file does
the low level relocation which tends to be very system dependent.
It is included by the file sfasl.c
*/
void
relocate()
{
char *where;
describe_sym(relocation_info.r_symndx);
where = the_start + relocation_info.r_vaddr;
dprintf (where has %x , *where);
dprintf( at %x -->, where );
if (relocation_info.r_type == R_ABS)
{ dprintf( r_abs ,0) return; }
switch(relocation_info.r_type)
{
case R_DIR32:
dprintf(new val r_dir32 %x , *((int *)where) +
symbol_table[relocation_info.r_symndx].n_value);
*(int *)where= *((int *)where) +
symbol_table[relocation_info.r_symndx].n_value;
break;
case R_PCRLONG:
dprintf( r_pcrlong new value = %x ,
*((int *)where) - (int)start_address
+ symbol_table[relocation_info.r_symndx].n_value );
#ifdef _WIN32
/* the following is logical, except the address offset is
not where the 'where' is but where the 'call' is just
AFTER the 'where'.
*/
*(int *)where= symbol_table[relocation_info.r_symndx].n_value
- (int) where - sizeof(int *);
#else
*(int *)where= *((int *)where) - (int)start_address
+ symbol_table[relocation_info.r_symndx].n_value;
#endif
break;
default:
fprintf(stdout, "%d: unsupported relocation type.",
relocation_info.r_type);
FEerror("The relocation type was unknown",0,0);
}
}
#ifdef DEBUG
#define describe_sym describe_sym1
describe_sym1(n)
int n;
{char *str;
char tem[9];
struct syment *sym;
sym= &symbol_table[n];
str= sym->n_zeroes == 0 ?
&my_string_table[sym->n_offset] :
(sym->n_name[SYMNMLEN -1] ?
/* MAKE IT NULL TERMINATED */
(strncpy(tem,sym->n_name,
SYMNMLEN),tem):
sym->n_name );
printf ("sym-index = %d table entry at %x",n,&symbol_table[n]);
/*
printf("symbol is (%s):\nsymbol_table[n]._n._n_name %s\nsymbol_table[n]._n._n_n._n_zeroes %d\nsymbol_table[n]._n._n_n._n_offset %d\nsymbol_table[n]._n._n_nptr[0] %d\nsymbol_table[n]._n._n_nptr[n] %d\nsymbol_table[n].n_value %d\nsymbol_table[n].n_scnum %d
\nsymbol_table[n].n_type %d\nsymbol_table[n].n_sclass %d\nsymbol_table[n].n_numaux %d", str,
symbol_table[n]._n._n_name,
symbol_table[n]._n._n_n._n_zeroes ,
symbol_table[n]._n._n_n._n_offset ,
symbol_table[n]._n._n_nptr[0] ,
symbol_table[n]._n._n_nptr[1] ,
symbol_table[n].n_value ,
symbol_table[n].n_scnum ,
symbol_table[n].n_type ,
symbol_table[n].n_sclass ,
symbol_table[n].n_numaux ); */
}
#endif
|
