c67-link.c

   1 #ifdef TARGET_DEFS_ONLY
   2
   3 #define EM_TCC_TARGET EM_C60
   4
   5 /* relocation type for 32 bit data relocation */
   6 #define R_DATA_32   R_C60_32
   7 #define R_DATA_PTR  R_C60_32
   8 #define R_JMP_SLOT  R_C60_JMP_SLOT
   9 #define R_GLOB_DAT  R_C60_GLOB_DAT
  10 #define R_COPY      R_C60_COPY
  11 #define R_RELATIVE  R_C60_RELATIVE
  12
  13 #define R_NUM       R_C60_NUM
  14
  15 #define ELF_START_ADDR 0x00000400
  16 #define ELF_PAGE_SIZE  0x1000
  17
  18 #define PCRELATIVE_DLLPLT 0
  19 #define RELOCATE_DLLPLT 0
  20
  21 #else /* !TARGET_DEFS_ONLY */
  22
  23 #include "tcc.h"
  24
  25 /* Returns 1 for a code relocation, 0 for a data relocation. For unknown
  26    relocations, returns -1. */
  27 int code_reloc (int reloc_type)
  28 {
  29     switch (reloc_type) {
  30         case R_C60_32:
  31         case R_C60LO16:
  32         case R_C60HI16:
  33         case R_C60_GOT32:
  34         case R_C60_GOTOFF:
  35         case R_C60_GOTPC:
  36         case R_C60_COPY:
  37             return 0;
  38
  39         case R_C60_PLT32:
  40             return 1;
  41     }
  42
  43     tcc_error ("Unknown relocation type: %d", reloc_type);
  44     return -1;
  45 }
  46
  47 /* Returns an enumerator to describe whether and when the relocation needs a
  48    GOT and/or PLT entry to be created. See tcc.h for a description of the
  49    different values. */
  50 int gotplt_entry_type (int reloc_type)
  51 {
  52     switch (reloc_type) {
  53         case R_C60_32:
  54         case R_C60LO16:
  55         case R_C60HI16:
  56         case R_C60_COPY:
  57             return NO_GOTPLT_ENTRY;
  58
  59         case R_C60_GOTOFF:
  60         case R_C60_GOTPC:
  61             return BUILD_GOT_ONLY;
  62
  63         case R_C60_PLT32:
  64         case R_C60_GOT32:
  65             return ALWAYS_GOTPLT_ENTRY;
  66     }
  67
  68     tcc_error ("Unknown relocation type: %d", reloc_type);
  69     return -1;
  70 }
  71
  72 ST_FUNC unsigned create_plt_entry(TCCState *s1, unsigned got_offset, struct sym_attr *attr)
  73 {
  74     tcc_error("C67 got not implemented");
  75     return 0;
  76 }
  77
  78 /* relocate the PLT: compute addresses and offsets in the PLT now that final
  79    address for PLT and GOT are known (see fill_program_header) */
  80 ST_FUNC void relocate_plt(TCCState *s1)
  81 {
  82     uint8_t *p, *p_end;
  83
  84     if (!s1->plt)
  85       return;
  86
  87     p = s1->plt->data;
  88     p_end = p + s1->plt->data_offset;
  89
  90     if (p < p_end) {
  91         /* XXX: TODO */
  92         while (p < p_end) {
  93             /* XXX: TODO */
  94         }
  95    }
  96 }
  97
  98 void relocate_init(Section *sr) {}
  99 void relocate_fini(Section *sr) {}
 100
 101 void relocate(TCCState *s1, ElfW_Rel *rel, int type, unsigned char *ptr, addr_t addr, addr_t val)
 102 {
 103     switch(type) {
 104         case R_C60_32:
 105             *(int *)ptr += val;
 106             break;
 107         case R_C60LO16:
 108             {
 109                 uint32_t orig;
 110
 111                 /* put the low 16 bits of the absolute address add to what is
 112                    already there */
 113                 orig  =   ((*(int *)(ptr  )) >> 7) & 0xffff;
 114                 orig |=  (((*(int *)(ptr+4)) >> 7) & 0xffff) << 16;
 115
 116                 /* patch both at once - assumes always in pairs Low - High */
 117                 *(int *) ptr    = (*(int *) ptr    & (~(0xffff << 7)) ) |
 118                                    (((val+orig)      & 0xffff) << 7);
 119                 *(int *)(ptr+4) = (*(int *)(ptr+4) & (~(0xffff << 7)) ) |
 120                                   ((((val+orig)>>16) & 0xffff) << 7);
 121             }
 122             break;
 123         case R_C60HI16:
 124             break;
 125         default:
 126             fprintf(stderr,"FIXME: handle reloc type %x at %x [%p] to %x\n",
 127                     type, (unsigned) addr, ptr, (unsigned) val);
 128             break;
 129     }
 130 }
 131
 132 #endif /* !TARGET_DEFS_ONLY */