mirror of
https://sourceware.org/git/glibc.git
synced 2024-12-01 01:00:10 +00:00
c6481412ff
* configure: Regenerated. * config.h.in (ASM_ALPHA_NG_SYMBOL_PREFIX): Remove #undef. * sysdeps/alpha/dl-machine.h (TRAMPOLINE_TEMPLATE): Use !samegp. (RTLD_START): Likewise. Access _dl_skip_args, _rtld_local, and _dl_fini via gp-relative relocations. * sysdeps/alpha/fpu/e_sqrt.c: Use !samegp. * elf/tls-macros.h: Add alpha versions. * sysdeps/alpha/dl-machine.h (elf_machine_rela): Handle TLS relocs. * sysdeps/unix/alpha/sysdep.S: Support USE___THREAD. * sysdeps/unix/alpha/sysdep.h: Likewise. Add SYSCALL_ERROR_HANDLER. * sysdeps/unix/sysv/linux/alpha/brk.S: Use it. * sysdeps/unix/sysv/linux/alpha/clone.S: Likewise. * sysdeps/unix/sysv/linux/alpha/getitimer.S: Likewise. * sysdeps/unix/sysv/linux/alpha/getrusage.S: Likewise. * sysdeps/unix/sysv/linux/alpha/gettimeofday.S: Likewise. * sysdeps/unix/sysv/linux/alpha/ieee_get_fp_control.S: Likewise. * sysdeps/unix/sysv/linux/alpha/ieee_set_fp_control.S: Likewise. * sysdeps/unix/sysv/linux/alpha/rt_sigaction.S: Likewise. * sysdeps/unix/sysv/linux/alpha/select.S: Likewise. * sysdeps/unix/sysv/linux/alpha/setitimer.S: Likewise. * sysdeps/unix/sysv/linux/alpha/settimeofday.S: Likewise. * sysdeps/unix/sysv/linux/alpha/sigsuspend.S: Likewise. * sysdeps/unix/sysv/linux/alpha/syscall.S: Likewise. * sysdeps/unix/sysv/linux/alpha/utimes.S: Likewise. * sysdeps/unix/sysv/linux/alpha/wait4.S: Likewise. * sysdeps/unix/sysv/linux/alpha/sysdep.h: Re-include protect. Kill argument registers across the inline syscall. * sysdeps/unix/sysv/linux/alpha/clone.S: Add user_tid and tls args. * linuxthreads/sysdeps/alpha/tls.h: New file. * sysdeps/alpha/dl-tls.h: New file.
244 lines
7.6 KiB
C
244 lines
7.6 KiB
C
/* Macros to support TLS testing in times of missing compiler support. */
|
|
|
|
#define COMMON_INT_DEF(x) \
|
|
asm (".tls_common " #x ",4,4")
|
|
/* XXX Until we get compiler support we don't need declarations. */
|
|
#define COMMON_INT_DECL(x)
|
|
|
|
/* XXX This definition will probably be machine specific, too. */
|
|
#define VAR_INT_DEF(x) \
|
|
asm (".section .tdata\n\t" \
|
|
".globl " #x "\n" \
|
|
#x ":\t.long 0\n\t" \
|
|
".size " #x ",4\n\t" \
|
|
".previous")
|
|
/* XXX Until we get compiler support we don't need declarations. */
|
|
#define VAR_INT_DECL(x)
|
|
|
|
|
|
/* XXX Each architecture must have its own asm for now. */
|
|
#ifdef __i386__
|
|
# define TLS_LE(x) \
|
|
({ int *__l; \
|
|
asm ("movl %%gs:0,%0\n\t" \
|
|
"subl $" #x "@tpoff,%0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
|
|
# ifdef PIC
|
|
# define TLS_IE(x) \
|
|
({ int *__l; \
|
|
asm ("movl %%gs:0,%0\n\t" \
|
|
"subl " #x "@gottpoff(%%ebx),%0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
# else
|
|
# define TLS_IE(x) \
|
|
({ int *__l, __b; \
|
|
asm ("call 1f\n\t" \
|
|
".subsection 1\n" \
|
|
"1:\tmovl (%%esp), %%ebx\n\t" \
|
|
"ret\n\t" \
|
|
".previous\n\t" \
|
|
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
|
|
"movl %%gs:0,%0\n\t" \
|
|
"subl " #x "@gottpoff(%%ebx),%0" \
|
|
: "=r" (__l), "=&b" (__b)); \
|
|
__l; })
|
|
# endif
|
|
|
|
# ifdef PIC
|
|
# define TLS_LD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm ("leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"leal " #x "@dtpoff(%%eax), %%eax" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# else
|
|
# define TLS_LD(x) \
|
|
({ int *__l, __b, __c, __d; \
|
|
asm ("call 1f\n\t" \
|
|
".subsection 1\n" \
|
|
"1:\tmovl (%%esp), %%ebx\n\t" \
|
|
"ret\n\t" \
|
|
".previous\n\t" \
|
|
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
|
|
"leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"leal " #x "@dtpoff(%%eax), %%eax" \
|
|
: "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# endif
|
|
|
|
# ifdef PIC
|
|
# define TLS_GD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm ("leal " #x "@tlsgd(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"nop" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# else
|
|
# define TLS_GD(x) \
|
|
({ int *__l, __b, __c, __d; \
|
|
asm ("call 1f\n\t" \
|
|
".subsection 1\n" \
|
|
"1:\tmovl (%%esp), %%ebx\n\t" \
|
|
"ret\n\t" \
|
|
".previous\n\t" \
|
|
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
|
|
"leal " #x "@tlsgd(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"nop" \
|
|
: "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# endif
|
|
|
|
#elif defined __x86_64__
|
|
|
|
# define TLS_LE(x) \
|
|
({ int *__l; \
|
|
asm ("movq %%fs:0,%0\n\t" \
|
|
"leaq " #x "@tpoff(%0), %0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ int *__l; \
|
|
asm ("movq %%fs:0,%0\n\t" \
|
|
"addq " #x "@gottpoff(%%rip),%0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
|
|
# define TLS_LD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm ("leaq " #x "@tlsld(%%rip),%%rdi\n\t" \
|
|
"call __tls_get_addr@plt\n\t" \
|
|
"leaq " #x "@dtpoff(%%rax), %%rax" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d) \
|
|
: : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm (".byte 0x66\n\t" \
|
|
"leaq " #x "@tlsgd(%%rip),%%rdi\n\t" \
|
|
".word 0x6666\n\t" \
|
|
"rex64\n\t" \
|
|
"call __tls_get_addr@plt" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d) \
|
|
: : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
|
|
__l; })
|
|
|
|
#elif defined __sh__
|
|
|
|
# define TLS_LE(x) \
|
|
({ int *__l; void *__tp; \
|
|
asm ("stc gbr,%1\n\t" \
|
|
"mov.l 1f,%0\n\t" \
|
|
"bra 2f\n\t" \
|
|
" add %1,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@tpoff\n\t" \
|
|
"2:" \
|
|
: "=r" (__l), "=r" (__tp)); \
|
|
__l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ int *__l; void *__tp; \
|
|
asm ("mova 0f,r0\n\t" \
|
|
"mov.l 0f,r12\n\t" \
|
|
"add r0,r12\n\t" \
|
|
"mov.l 1f,r0\n\t" \
|
|
"stc gbr,%1\n\t" \
|
|
"mov.l @(r0,r12),%0\n\t" \
|
|
"bra 2f\n\t" \
|
|
" add %1,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@gottpoff\n\t" \
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
"2:" \
|
|
: "=r" (__l), "=r" (__tp) : : "r0", "r12"); \
|
|
__l; })
|
|
|
|
# define TLS_LD(x) \
|
|
({ int *__l; \
|
|
asm ("mova 0f,r0\n\t" \
|
|
"mov.l 0f,r12\n\t" \
|
|
"add r0,r12\n\t" \
|
|
"mov.l 1f,r4\n\t" \
|
|
"mova 2f,r0\n\t" \
|
|
"mov.l 2f,r1\n\t" \
|
|
"add r0,r1\n\t" \
|
|
"jsr @r1\n\t" \
|
|
" add r12,r4\n\t" \
|
|
"bra 4f\n\t" \
|
|
" nop\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@tlsldm\n\t" \
|
|
"2: .long __tls_get_addr@plt\n\t" \
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
"4: mov.l 3f,%0\n\t" \
|
|
"bra 5f\n\t" \
|
|
" add r0,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"3: .long " #x "@dtpoff\n\t" \
|
|
"5:" \
|
|
: "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
|
|
"r12", "pr", "t"); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ int *__l; \
|
|
asm ("mova 0f,r0\n\t" \
|
|
"mov.l 0f,r12\n\t" \
|
|
"add r0,r12\n\t" \
|
|
"mov.l 1f,r4\n\t" \
|
|
"mova 2f,r0\n\t" \
|
|
"mov.l 2f,r1\n\t" \
|
|
"add r0,r1\n\t" \
|
|
"jsr @r1\n\t" \
|
|
" add r12,r4\n\t" \
|
|
"bra 3f\n\t" \
|
|
" mov r0,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@tlsgd\n\t" \
|
|
"2: .long __tls_get_addr@plt\n\t" \
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
"3:" \
|
|
: "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
|
|
"r12", "pr", "t"); \
|
|
__l; })
|
|
|
|
#elif defined __alpha__
|
|
|
|
register void *__gp __asm__("$29");
|
|
|
|
# define TLS_LE(x) \
|
|
({ int *__l; \
|
|
asm ("call_pal 158\n\tlda $0," #x "($0)\t\t!tprel" : "=v"(__l)); \
|
|
__l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ char *__tp; unsigned long __o; \
|
|
asm ("call_pal 158\n\tldq %1," #x "($gp)\t\t!gottprel" \
|
|
: "=v"(__tp), "=r"(__o) : "r"(__gp)); \
|
|
(int *)(__tp + __o); })
|
|
|
|
# define TLS_LD(x) \
|
|
({ extern void *__tls_get_addr(void *); int *__l; void *__i; \
|
|
asm ("lda %0," #x "($gp)\t\t!tlsldm" : "=r" (__i) : "r"(__gp)); \
|
|
__i = __tls_get_addr(__i); \
|
|
asm ("lda %0, " #x "(%1)\t\t!dtprel" : "=r"(__l) : "r"(__i)); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ extern void *__tls_get_addr(void *); void *__i; \
|
|
asm ("lda %0," #x "($gp)\t\t!tlsgd" : "=r" (__i) : "r"(__gp)); \
|
|
(int *) __tls_get_addr(__i); })
|
|
|
|
#else
|
|
# error "No support for this architecture so far."
|
|
#endif
|