c67-link.c

   1 #include "tcc.h"
   2 #define HAVE_SECTION_RELOC
   3
   4 void relocate_init(Section *sr) {}
   5
   6 void relocate(TCCState *s1, ElfW_Rel *rel, int type, char *ptr, addr_t addr, addr_t val)
   7 {
   8     switch(type) {
   9         case R_C60_32:
  10             *(int *)ptr += val;
  11             break;
  12         case R_C60LO16:
  13             {
  14                 uint32_t orig;
  15
  16                 /* put the low 16 bits of the absolute address add to what is
  17                    already there */
  18                 orig  =   ((*(int *)(ptr  )) >> 7) & 0xffff;
  19                 orig |=  (((*(int *)(ptr+4)) >> 7) & 0xffff) << 16;
  20
  21                 /* patch both at once - assumes always in pairs Low - High */
  22                 *(int *) ptr    = (*(int *) ptr    & (~(0xffff << 7)) ) |
  23                                    (((val+orig)      & 0xffff) << 7);
  24                 *(int *)(ptr+4) = (*(int *)(ptr+4) & (~(0xffff << 7)) ) |
  25                                   ((((val+orig)>>16) & 0xffff) << 7);
  26             }
  27             break;
  28         case R_C60HI16:
  29             break;
  30         default:
  31             fprintf(stderr,"FIXME: handle reloc type %x at %x [%p] to %x\n",
  32                     type, (unsigned) addr, ptr, (unsigned) val);
  33             break;
  34     }
  35 }