mirror of
git://git.musl-libc.org/musl
synced 2024-12-18 21:05:13 +00:00
9ec4283b28
despite documentation that makes it sound a lot different, the only ABI-constraint difference between TLS variants II and I seems to be that variant II stores the initial TLS segment immediately below the thread pointer (i.e. the thread pointer points to the end of it) and variant I stores the initial TLS segment above the thread pointer, requiring the thread descriptor to be stored below. the actual value stored in the thread pointer register also tends to have per-arch random offsets applied to it for silly micro-optimization purposes. with these changes applied, TLS should be basically working on all supported archs except microblaze. I'm still working on getting the necessary information and a working toolchain that can build TLS binaries for microblaze, but in theory, static-linked programs with TLS and dynamic-linked programs where only the main executable uses TLS should already work on microblaze. alignment constraints have not yet been heavily tested, so it's possible that this code does not always align TLS segments correctly on archs that need TLS variant I.
89 lines
2.3 KiB
C
89 lines
2.3 KiB
C
#include <string.h>
|
|
#include <elf.h>
|
|
|
|
#define ETC_LDSO_PATH "/etc/ld-musl-mips.path"
|
|
|
|
#define IS_COPY(x) ((x)==R_MIPS_COPY)
|
|
#define IS_PLT(x) 1
|
|
|
|
static inline void do_single_reloc(
|
|
struct dso *self, unsigned char *base_addr,
|
|
size_t *reloc_addr, int type, size_t addend,
|
|
Sym *sym, size_t sym_size,
|
|
struct symdef def, size_t sym_val)
|
|
{
|
|
switch(type) {
|
|
case R_MIPS_JUMP_SLOT:
|
|
*reloc_addr = sym_val;
|
|
break;
|
|
case R_MIPS_REL32:
|
|
if (sym_val) *reloc_addr += sym_val;
|
|
else *reloc_addr += (size_t)base_addr;
|
|
break;
|
|
case R_MIPS_COPY:
|
|
memcpy(reloc_addr, (void *)sym_val, sym_size);
|
|
break;
|
|
case R_MIPS_TLS_DTPMOD32:
|
|
*reloc_addr = def.dso ? def.dso->tls_id : self->tls_id;
|
|
break;
|
|
case R_MIPS_TLS_DTPREL32:
|
|
*reloc_addr += def.sym->st_value;
|
|
break;
|
|
case R_MIPS_TLS_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, size_t *got)
|
|
{
|
|
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-0x70000000UL<20) t[*a&31] = a[1];
|
|
n = t[DT_MIPS_LOCAL_GOTNO - 0x70000000];
|
|
for (a=got; n; a++, n--) *a += (size_t)base;
|
|
}
|
|
|
|
static void do_relocs(struct dso *dso, size_t *rel, size_t rel_size, size_t stride);
|
|
|
|
static void do_arch_relocs(struct dso *this, struct dso *head)
|
|
{
|
|
unsigned char *base = this->base;
|
|
size_t *dynv = this->dynv;
|
|
size_t dyn[20] = {0};
|
|
size_t i;
|
|
size_t rel[2], got=0;
|
|
Sym *sym;
|
|
|
|
for (i=0; dynv[i]; i+=2) {
|
|
if (dynv[i]-0x70000000UL<20)
|
|
dyn[dynv[i]&31] = dynv[i+1];
|
|
else if (dynv[i] == DT_PLTGOT)
|
|
got = dynv[i+1];
|
|
}
|
|
i = dyn[DT_MIPS_LOCAL_GOTNO-0x70000000];
|
|
if (this->shortname && !strcmp(this->shortname, "libc.so")) {
|
|
got += sizeof(size_t) * i;
|
|
} else {
|
|
for (; i; i--, got+=sizeof(size_t))
|
|
*(size_t *)(base+got) += (size_t)base;
|
|
}
|
|
sym = this->syms + dyn[DT_MIPS_GOTSYM-0x70000000];
|
|
i = dyn[DT_MIPS_SYMTABNO-0x70000000] - dyn[DT_MIPS_GOTSYM-0x70000000];
|
|
for (; i; i--, got+=sizeof(size_t), sym++) {
|
|
rel[0] = got;
|
|
rel[1] = sym-this->syms << 8 | R_MIPS_JUMP_SLOT;
|
|
*(size_t *)(base+got) = 0;
|
|
do_relocs(this, rel, sizeof rel, 2);
|
|
}
|
|
}
|
|
|
|
#define NEED_ARCH_RELOCS 1
|
|
#define DYNAMIC_IS_RO 1
|