forked from Mirrors/tinycc
36 lines
1.2 KiB
C
36 lines
1.2 KiB
C
|
#include "tcc.h"
|
||
|
|
#define HAVE_SECTION_RELOC
|
||
|
|
|
||
|
|
void relocate_init(Section *sr) {}
|
||
|
|
|
||
|
|
void relocate(TCCState *s1, ElfW_Rel *rel, int type, char *ptr, addr_t addr, addr_t val)
|
||
|
|
{
|
||
|
|
switch(type) {
|
||
|
|
case R_C60_32:
|
||
|
|
*(int *)ptr += val;
|
||
|
|
break;
|
||
|
|
case R_C60LO16:
|
||
|
|
{
|
||
|
|
uint32_t orig;
|
||
|
|
|
||
|
|
/* put the low 16 bits of the absolute address add to what is
|
||
|
|
already there */
|
||
|
|
orig = ((*(int *)(ptr )) >> 7) & 0xffff;
|
||
|
|
orig |= (((*(int *)(ptr+4)) >> 7) & 0xffff) << 16;
|
||
|
|
|
||
|
|
/* patch both at once - assumes always in pairs Low - High */
|
||
|
|
*(int *) ptr = (*(int *) ptr & (~(0xffff << 7)) ) |
|
||
|
|
(((val+orig) & 0xffff) << 7);
|
||
|
|
*(int *)(ptr+4) = (*(int *)(ptr+4) & (~(0xffff << 7)) ) |
|
||
|
|
((((val+orig)>>16) & 0xffff) << 7);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case R_C60HI16:
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
fprintf(stderr,"FIXME: handle reloc type %x at %x [%p] to %x\n",
|
||
|
|
type, (unsigned) addr, ptr, (unsigned) val);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|