dynamic linking support for powerpc

incomplete but at least partly working. requires all files to be
compiled in the new "secure" plt model, not the old one that put plt
code in the data segment. TLS is untested but may work. invoking the
dynamic linker explicitly to load a program does not yet handle argv
correctly.
This commit is contained in:
Rich Felker 2012-11-16 22:22:34 -05:00
parent 7718e7cce5
commit a4db94ab78
2 changed files with 43 additions and 25 deletions

View File

@ -16,21 +16,40 @@ static inline void do_single_reloc(
switch(type) { switch(type) {
case R_PPC_GLOB_DAT: case R_PPC_GLOB_DAT:
case R_PPC_JMP_SLOT: case R_PPC_JMP_SLOT:
*reloc_addr = sym_val; case R_PPC_ADDR32:
break; *reloc_addr = sym_val + addend;
case R_PPC_REL32:
if (sym_val) *reloc_addr += sym_val;
else *reloc_addr += (size_t)base_addr;
break; break;
case R_PPC_COPY: case R_PPC_COPY:
memcpy(reloc_addr, (void *)sym_val, sym_size); memcpy(reloc_addr, (void *)sym_val, sym_size);
break; break;
case R_PPC_RELATIVE: case R_PPC_RELATIVE:
*reloc_addr += (size_t)base_addr; *reloc_addr = (size_t)base_addr + addend;
break; break;
//case R_PPC64_DTPMOD64: //R_X86_64_DTPMOD64: case R_PPC_DTPMOD32:
case R_PPC_DTPMOD32: //R_386_TLS_DTPMOD32:
*reloc_addr = def.dso ? def.dso->tls_id : self->tls_id; *reloc_addr = def.dso ? def.dso->tls_id : self->tls_id;
break; break;
case R_PPC_DTPREL32:
*reloc_addr = def.sym->st_value + addend;
break;
case R_PPC_TPREL32:
*reloc_addr += def.sym
? def.sym->st_value + def.dso->tls_offset - 0x7000
: self->tls_offset - 0x7000;
break;
} }
} }
void __reloc_self(int c, size_t *a, size_t *dynv)
{
char *base;
size_t t[20], n;
for (a+=c+1; *a; a++);
for (a++; *a; a+=2) if (*a<20) t[*a] = a[1];
base = (char *)t[AT_BASE];
if (!base) base = (char *)(t[AT_PHDR] & -4096);
for (a=dynv; *a; a+=2) if (*a<20) t[*a] = a[1];
n = t[DT_RELASZ];
for (a=(void *)(base+t[DT_RELA]); n; a+=3, n-=12)
if (a[1]%256 == R_PPC_RELATIVE)
*(size_t *)(base+a[0]) = (size_t)base + a[2];
}

View File

@ -1,22 +1,21 @@
# FIXME : does not work, the small data array needs to be relocated.
# see elfspec_ppc.pdf, page 76-84
.global _start .global _start
.type _start,@function .type _start,@function
_start: _start:
mr 9, 1 # Save the original stack pointer. bl 1f
clrrwi 1, 1, 4 # Align the stack to 16 bytes. 2: .long _DYNAMIC-2b
lis 13, _SDA_BASE_@ha # r13 points to the small data area. 1: mflr 5
addi 13, 13, _SDA_BASE_@l lwz 0, 0(5)
li 0, 0 # Zero the frame pointer. add 5, 0, 5
lwz 3, 0(9) # and argc... lwz 3, 0(1)
addi 4, 9, 4 # and argv ... addi 4, 1, 4
mtlr 0 # Clear the link register. addi 1, 1, -16
# Go to the musl dynamic linker entry point. bl __reloc_self
lwz 3, 16(1)
addi 4, 1, 20
bl __dynlink bl __dynlink
cmpi 4, 0, 3, 1 # Check for a 1. addi 1, 1, 16
bne 4, . # Stay here
mtlr 3 # Set the link address... mtlr 3
li 3, 0 li 3, 0
blr # and go. blr
.end _start
.size _start, .-_start