l4/pkg/uclibc/lib/contrib/uclibc/ldso/ldso/powerpc/dl-sysdep.h

   1 /*
   2  * Various assembly language/system dependent hacks that are required
   3  * so that we can minimize the amount of platform specific code.
   4  */
   5
   6 /*
   7  * Define this if the system uses RELOCA.
   8  */
   9 #define ELF_USES_RELOCA
  10 #include <elf.h>
  11 /*
  12  * Initialization sequence for a GOT.
  13  */
  14 #define INIT_GOT(GOT_BASE,MODULE)  _dl_init_got(GOT_BASE,MODULE)
  15
  16 /* Stuff for the PLT.  */
  17 #define PLT_INITIAL_ENTRY_WORDS 18
  18 #define PLT_LONGBRANCH_ENTRY_WORDS 0
  19 #define PLT_TRAMPOLINE_ENTRY_WORDS 6
  20 #define PLT_DOUBLE_SIZE (1<<13)
  21 #define PLT_ENTRY_START_WORDS(entry_number) \
  22   (PLT_INITIAL_ENTRY_WORDS + (entry_number)*2                           \
  23    + ((entry_number) > PLT_DOUBLE_SIZE                                  \
  24       ? ((entry_number) - PLT_DOUBLE_SIZE)*2                            \
  25       : 0))
  26 #define PLT_DATA_START_WORDS(num_entries) PLT_ENTRY_START_WORDS(num_entries)
  27
  28 /* Macros to build PowerPC opcode words.  */
  29 #define OPCODE_ADDI(rd,ra,simm) \
  30   (0x38000000 | (rd) << 21 | (ra) << 16 | ((simm) & 0xffff))
  31 #define OPCODE_ADDIS(rd,ra,simm) \
  32   (0x3c000000 | (rd) << 21 | (ra) << 16 | ((simm) & 0xffff))
  33 #define OPCODE_ADD(rd,ra,rb) \
  34   (0x7c000214 | (rd) << 21 | (ra) << 16 | (rb) << 11)
  35 #define OPCODE_B(target) (0x48000000 | ((target) & 0x03fffffc))
  36 #define OPCODE_BA(target) (0x48000002 | ((target) & 0x03fffffc))
  37 #define OPCODE_BCTR() 0x4e800420
  38 #define OPCODE_LWZ(rd,d,ra) \
  39   (0x80000000 | (rd) << 21 | (ra) << 16 | ((d) & 0xffff))
  40 #define OPCODE_LWZU(rd,d,ra) \
  41   (0x84000000 | (rd) << 21 | (ra) << 16 | ((d) & 0xffff))
  42 #define OPCODE_MTCTR(rd) (0x7C0903A6 | (rd) << 21)
  43 #define OPCODE_RLWINM(ra,rs,sh,mb,me) \
  44   (0x54000000 | (rs) << 21 | (ra) << 16 | (sh) << 11 | (mb) << 6 | (me) << 1)
  45
  46 #define OPCODE_LI(rd,simm)    OPCODE_ADDI(rd,0,simm)
  47 #define OPCODE_ADDIS_HI(rd,ra,value) \
  48   OPCODE_ADDIS(rd,ra,((value) + 0x8000) >> 16)
  49 #define OPCODE_LIS_HI(rd,value) OPCODE_ADDIS_HI(rd,0,value)
  50 #define OPCODE_SLWI(ra,rs,sh) OPCODE_RLWINM(ra,rs,sh,0,31-sh)
  51
  52
  53 #define PPC_DCBST(where) __asm__ __volatile__ ("dcbst 0,%0" : : "r"(where) : "memory")
  54 #define PPC_SYNC __asm__ __volatile__ ("sync" : : : "memory")
  55 #define PPC_ISYNC __asm__ __volatile__ ("sync; isync" : : : "memory")
  56 #define PPC_ICBI(where) __asm__ __volatile__ ("icbi 0,%0" : : "r"(where) : "memory")
  57 #define PPC_DIE __asm__ __volatile__ ("tweq 0,0")
  58
  59 /* Here we define the magic numbers that this dynamic loader should accept */
  60
  61 #define MAGIC1 EM_PPC
  62 #undef  MAGIC2
  63 /* Used for error messages */
  64 #define ELF_TARGET "powerpc"
  65
  66 struct elf_resolve;
  67 extern unsigned long _dl_linux_resolver(struct elf_resolve * tpnt, int reloc_entry);
  68 void _dl_init_got(unsigned long *lpnt,struct elf_resolve *tpnt);
  69
  70 /* ELF_RTYPE_CLASS_PLT iff TYPE describes relocation of a PLT entry, so
  71    PLT entries should not be allowed to define the value.
  72    ELF_RTYPE_CLASS_NOCOPY iff TYPE should not be allowed to resolve to one
  73    of the main executable's symbols, as for a COPY reloc.  */
  74 /* We never want to use a PLT entry as the destination of a
  75    reloc, when what is being relocated is a branch. This is
  76    partly for efficiency, but mostly so we avoid loops.  */
  77 #define elf_machine_type_class(type) \
  78   ((((type) == R_PPC_JMP_SLOT                           \
  79     || (type) == R_PPC_REL24                            \
  80     || ((type) >= R_PPC_DTPMOD32 /* contiguous TLS */   \
  81         && (type) <= R_PPC_DTPREL32)                    \
  82     || (type) == R_PPC_ADDR24) * ELF_RTYPE_CLASS_PLT)   \
  83    | (((type) == R_PPC_COPY) * ELF_RTYPE_CLASS_COPY))
  84
  85 /* The SVR4 ABI specifies that the JMPREL relocs must be inside the
  86    DT_RELA table.  */
  87 #define ELF_MACHINE_PLTREL_OVERLAP 1
  88
  89 /* Return the value of the GOT pointer.  */
  90 static __always_inline Elf32_Addr * __attribute__ ((const))
  91 ppc_got (void)
  92 {
  93         Elf32_Addr *got;
  94 #ifdef HAVE_ASM_PPC_REL16
  95         __asm__ ("      bcl 20,31,1f\n"
  96              "1:mflr %0\n"
  97              "  addis %0,%0,_GLOBAL_OFFSET_TABLE_-1b@ha\n"
  98              "  addi %0,%0,_GLOBAL_OFFSET_TABLE_-1b@l\n"
  99              : "=b" (got) : : "lr");
 100 #else
 101         __asm__ (" bl _GLOBAL_OFFSET_TABLE_-4@local"
 102              : "=l" (got));
 103 #endif
 104         return got;
 105 }
 106
 107 /* Return the link-time address of _DYNAMIC, stored as
 108    the first value in the GOT. */
 109 static __always_inline Elf32_Addr __attribute__ ((const))
 110 elf_machine_dynamic (void)
 111 {
 112         return *ppc_got();
 113 }
 114
 115 /* Return the run-time load address of the shared object.  */
 116 static __always_inline Elf32_Addr __attribute__ ((const))
 117 elf_machine_load_address (void)
 118 {
 119   Elf32_Addr *branchaddr;
 120   Elf32_Addr runtime_dynamic;
 121
 122   /* This is much harder than you'd expect.  Possibly I'm missing something.
 123      The 'obvious' way:
 124
 125        Apparently, "bcl 20,31,$+4" is what should be used to load LR
 126        with the address of the next instruction.
 127        I think this is so that machines that do bl/blr pairing don't
 128        get confused.
 129
 130      __asm__ ("bcl 20,31,0f ;"
 131           "0: mflr 0 ;"
 132           "lis %0,0b@ha;"
 133           "addi %0,%0,0b@l;"
 134           "subf %0,%0,0"
 135           : "=b" (addr) : : "r0", "lr");
 136
 137      doesn't work, because the linker doesn't have to (and in fact doesn't)
 138      update the @ha and @l references; the loader (which runs after this
 139      code) will do that.
 140
 141      Instead, we use the following trick:
 142
 143      The linker puts the _link-time_ address of _DYNAMIC at the first
 144      word in the GOT. We could branch to that address, if we wanted,
 145      by using an @local reloc; the linker works this out, so it's safe
 146      to use now. We can't, of course, actually branch there, because
 147      we'd cause an illegal instruction exception; so we need to compute
 148      the address ourselves. That gives us the following code: */
 149
 150   /* Get address of the 'b _DYNAMIC@local'...  */
 151   __asm__ ("bcl 20,31,0f;"
 152        "b _DYNAMIC@local;"
 153        "0:"
 154        : "=l"(branchaddr));
 155
 156   /* So now work out the difference between where the branch actually points,
 157      and the offset of that location in memory from the start of the file.  */
 158   runtime_dynamic = ((Elf32_Addr) branchaddr
 159                      + ((Elf32_Sword) (*branchaddr << 6 & 0xffffff00) >> 6));
 160
 161   return runtime_dynamic - elf_machine_dynamic ();
 162 }
 163
 164 static __always_inline void
 165 elf_machine_relative (Elf32_Addr load_off, const Elf32_Addr rel_addr,
 166                       Elf32_Word relative_count)
 167 {
 168          Elf32_Rela * rpnt = (void *)rel_addr;
 169         --rpnt;
 170         do {     /* PowerPC handles pre increment/decrement better */
 171                 Elf32_Addr *const reloc_addr = (void *) (load_off + (++rpnt)->r_offset);
 172
 173                 *reloc_addr = load_off + rpnt->r_addend;
 174         } while (--relative_count);
 175 }
 176
 177 #define ARCH_NUM 1
 178 #define DT_PPC_GOT_IDX  (DT_NUM + OS_NUM)
 179
 180 #define ARCH_DYNAMIC_INFO(dpnt,  dynamic, debug_addr) \
 181 do { \
 182 if (dpnt->d_tag == DT_PPC_GOT) \
 183      dynamic[DT_PPC_GOT_IDX] = dpnt->d_un.d_ptr; \
 184 } while (0)