2002-02-10 18:58:00 +00:00
|
|
|
/* Macros to support TLS testing in times of missing compiler support. */
|
|
|
|
|
|
|
|
|
|
#define COMMON_INT_DEF(x) \
|
|
|
|
|
asm (".tls_common " #x ",4,4")
|
2002-02-11 01:49:22 +00:00
|
|
|
/* XXX Until we get compiler support we don't need declarations. */
|
|
|
|
|
#define COMMON_INT_DECL(x)
|
2002-02-10 18:58:00 +00:00
|
|
|
|
|
|
|
|
/* XXX This definition will probably be machine specific, too. */
|
|
|
|
|
#define VAR_INT_DEF(x) \
|
|
|
|
|
asm (".section .tdata\n\t" \
|
|
|
|
|
".globl " #x "\n" \
|
2003-07-31 07:42:20 +00:00
|
|
|
".balign 4\n" \
|
2002-02-10 18:58:00 +00:00
|
|
|
#x ":\t.long 0\n\t" \
|
2002-02-11 01:49:22 +00:00
|
|
|
".size " #x ",4\n\t" \
|
2002-02-10 18:58:00 +00:00
|
|
|
".previous")
|
2002-02-11 01:49:22 +00:00
|
|
|
/* XXX Until we get compiler support we don't need declarations. */
|
|
|
|
|
#define VAR_INT_DECL(x)
|
2002-02-10 18:58:00 +00:00
|
|
|
|
2005-03-13 09:09:05 +00:00
|
|
|
#include_next <tls-macros.h>
|
2002-02-10 18:58:00 +00:00
|
|
|
|
|
|
|
|
/* 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; })
|
|
|
|
|
|
2002-02-11 01:49:22 +00:00
|
|
|
# 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) \
|
2002-02-10 18:58:00 +00:00
|
|
|
({ 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; })
|
2002-02-11 01:49:22 +00:00
|
|
|
# endif
|
2002-02-10 18:58:00 +00:00
|
|
|
|
2002-02-11 01:49:22 +00:00
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_LD(x) \
|
2002-02-13 08:03:56 +00:00
|
|
|
({ int *__l, __c, __d; \
|
2002-02-11 01:49:22 +00:00
|
|
|
asm ("leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
|
|
|
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
|
|
|
"leal " #x "@dtpoff(%%eax), %%eax" \
|
2002-02-13 08:03:56 +00:00
|
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d)); \
|
2002-02-11 01:49:22 +00:00
|
|
|
__l; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_LD(x) \
|
2002-02-13 08:03:56 +00:00
|
|
|
({ int *__l, __b, __c, __d; \
|
2002-02-10 18:58:00 +00:00
|
|
|
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" \
|
2002-02-13 08:03:56 +00:00
|
|
|
: "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
|
2002-02-10 18:58:00 +00:00
|
|
|
__l; })
|
2002-02-11 01:49:22 +00:00
|
|
|
# endif
|
2002-02-10 18:58:00 +00:00
|
|
|
|
2002-02-11 01:49:22 +00:00
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_GD(x) \
|
2002-02-13 08:03:56 +00:00
|
|
|
({ int *__l, __c, __d; \
|
2002-02-11 01:49:22 +00:00
|
|
|
asm ("leal " #x "@tlsgd(%%ebx),%%eax\n\t" \
|
|
|
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
|
|
|
"nop" \
|
2002-02-13 08:03:56 +00:00
|
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d)); \
|
2002-02-11 01:49:22 +00:00
|
|
|
__l; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_GD(x) \
|
2002-02-13 08:03:56 +00:00
|
|
|
({ int *__l, __b, __c, __d; \
|
2002-02-10 18:58:00 +00:00
|
|
|
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" \
|
2002-02-13 08:03:56 +00:00
|
|
|
: "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
|
2002-02-10 18:58:00 +00:00
|
|
|
__l; })
|
2002-02-11 01:49:22 +00:00
|
|
|
# endif
|
2002-02-10 18:58:00 +00:00
|
|
|
|
2002-09-25 01:58:37 +00:00
|
|
|
#elif defined __x86_64__
|
|
|
|
|
|
|
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ int *__l; \
|
2012-05-11 21:35:56 +00:00
|
|
|
asm ("mov %%fs:0,%0\n\t" \
|
|
|
|
|
"lea " #x "@tpoff(%0), %0" \
|
2002-09-25 01:58:37 +00:00
|
|
|
: "=r" (__l)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int *__l; \
|
2012-05-11 21:35:56 +00:00
|
|
|
asm ("mov %%fs:0,%0\n\t" \
|
|
|
|
|
"add " #x "@gottpoff(%%rip),%0" \
|
2002-09-25 01:58:37 +00:00
|
|
|
: "=r" (__l)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int *__l, __c, __d; \
|
|
|
|
|
asm ("leaq " #x "@tlsld(%%rip),%%rdi\n\t" \
|
2002-09-30 10:26:59 +00:00
|
|
|
"call __tls_get_addr@plt\n\t" \
|
2002-09-25 01:58:37 +00:00
|
|
|
"leaq " #x "@dtpoff(%%rax), %%rax" \
|
|
|
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d) \
|
|
|
|
|
: : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
2012-05-11 21:35:56 +00:00
|
|
|
# ifdef __ILP32__
|
|
|
|
|
# define TLS_GD_PREFIX
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_GD_PREFIX ".byte 0x66\n\t"
|
|
|
|
|
# endif
|
|
|
|
|
|
2002-09-25 01:58:37 +00:00
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ int *__l, __c, __d; \
|
2012-05-11 21:35:56 +00:00
|
|
|
asm (TLS_GD_PREFIX \
|
2002-09-25 01:58:37 +00:00
|
|
|
"leaq " #x "@tlsgd(%%rip),%%rdi\n\t" \
|
2002-10-11 09:17:49 +00:00
|
|
|
".word 0x6666\n\t" \
|
|
|
|
|
"rex64\n\t" \
|
2002-09-30 10:26:59 +00:00
|
|
|
"call __tls_get_addr@plt" \
|
2002-09-25 01:58:37 +00:00
|
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d) \
|
|
|
|
|
: : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
2002-04-08 21:05:48 +00:00
|
|
|
#elif defined __sh__
|
2002-09-25 01:58:37 +00:00
|
|
|
|
2002-04-08 21:05:48 +00:00
|
|
|
# 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; })
|
|
|
|
|
|
2003-02-08 02:30:16 +00:00
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_IE(x) \
|
2002-04-08 21:05:48 +00:00
|
|
|
({ int *__l; void *__tp; \
|
2003-02-08 02:30:16 +00:00
|
|
|
register void *__gp __asm__("r12"); \
|
|
|
|
|
asm ("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" \
|
|
|
|
|
"2:" \
|
|
|
|
|
: "=r" (__l), "=r" (__tp) : "r" (__gp) : "r0"); \
|
|
|
|
|
__l; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int *__l; void *__tp; \
|
|
|
|
|
asm ("mov.l r12,@-r15\n\t" \
|
|
|
|
|
"mova 0f,r0\n\t" \
|
2002-04-08 21:05:48 +00:00
|
|
|
"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" \
|
2002-10-05 06:52:02 +00:00
|
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
2003-02-08 02:30:16 +00:00
|
|
|
"2: mov.l @r15+,r12" \
|
|
|
|
|
: "=r" (__l), "=r" (__tp) : : "r0"); \
|
2002-04-08 21:05:48 +00:00
|
|
|
__l; })
|
2003-02-08 02:30:16 +00:00
|
|
|
#endif
|
2002-04-08 21:05:48 +00:00
|
|
|
|
2003-02-08 02:30:16 +00:00
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int *__l; \
|
|
|
|
|
register void *__gp __asm__("r12"); \
|
|
|
|
|
asm ("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" \
|
|
|
|
|
"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) : "r" (__gp) : "r0", "r1", "r2", "r3", "r4", "r5", \
|
|
|
|
|
"r6", "r7", "pr", "t"); \
|
|
|
|
|
__l; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_LD(x) \
|
2002-04-08 21:05:48 +00:00
|
|
|
({ int *__l; \
|
2003-02-08 02:30:16 +00:00
|
|
|
asm ("mov.l r12,@-r15\n\t" \
|
|
|
|
|
"mova 0f,r0\n\t" \
|
2002-04-08 21:05:48 +00:00
|
|
|
"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" \
|
2002-10-02 06:22:02 +00:00
|
|
|
" add r12,r4\n\t" \
|
2002-04-08 21:05:48 +00:00
|
|
|
"bra 4f\n\t" \
|
2002-10-05 06:52:02 +00:00
|
|
|
" nop\n\t" \
|
2002-04-08 21:05:48 +00:00
|
|
|
".align 2\n\t" \
|
|
|
|
|
"1: .long " #x "@tlsldm\n\t" \
|
|
|
|
|
"2: .long __tls_get_addr@plt\n\t" \
|
2002-10-05 06:52:02 +00:00
|
|
|
"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" \
|
2002-04-08 21:05:48 +00:00
|
|
|
"3: .long " #x "@dtpoff\n\t" \
|
2003-02-08 02:30:16 +00:00
|
|
|
"5: mov.l @r15+,r12" \
|
2002-04-08 21:05:48 +00:00
|
|
|
: "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
|
2003-02-08 02:30:16 +00:00
|
|
|
"pr", "t"); \
|
2002-04-08 21:05:48 +00:00
|
|
|
__l; })
|
2003-02-08 02:30:16 +00:00
|
|
|
#endif
|
2002-04-08 21:05:48 +00:00
|
|
|
|
2003-02-08 02:30:16 +00:00
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_GD(x) \
|
2002-04-08 21:05:48 +00:00
|
|
|
({ int *__l; \
|
2003-02-08 02:30:16 +00:00
|
|
|
register void *__gp __asm__("r12"); \
|
|
|
|
|
asm ("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" \
|
|
|
|
|
"3:" \
|
|
|
|
|
: "=r" (__l) : "r" (__gp) : "r0", "r1", "r2", "r3", "r4", "r5", \
|
|
|
|
|
"r6", "r7", "pr", "t"); \
|
|
|
|
|
__l; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ int *__l; \
|
|
|
|
|
asm ("mov.l r12,@-r15\n\t" \
|
|
|
|
|
"mova 0f,r0\n\t" \
|
2002-04-08 21:05:48 +00:00
|
|
|
"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" \
|
2002-10-02 06:22:02 +00:00
|
|
|
" add r12,r4\n\t" \
|
2002-04-08 21:05:48 +00:00
|
|
|
"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" \
|
2002-10-05 06:52:02 +00:00
|
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
2003-02-08 02:30:16 +00:00
|
|
|
"3: mov.l @r15+,r12" \
|
2002-04-08 21:05:48 +00:00
|
|
|
: "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
|
2003-02-08 02:30:16 +00:00
|
|
|
"pr", "t"); \
|
2002-04-08 21:05:48 +00:00
|
|
|
__l; })
|
2003-02-08 02:30:16 +00:00
|
|
|
#endif
|
2002-04-08 21:05:48 +00:00
|
|
|
|
2003-01-27 21:03:22 +00:00
|
|
|
#elif defined __sparc__ && !defined __arch64__
|
|
|
|
|
|
|
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ int *__l; \
|
|
|
|
|
asm ("sethi %%tle_hix22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("xor %1, %%tle_lox10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("add %%g7, %1, %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
2003-04-01 20:11:20 +00:00
|
|
|
# ifdef __PIC__
|
2003-01-27 21:03:22 +00:00
|
|
|
# define TLS_LOAD_PIC \
|
|
|
|
|
({ register long pc __asm__ ("%o7"); \
|
|
|
|
|
long got; \
|
|
|
|
|
asm ("sethi %%hi(_GLOBAL_OFFSET_TABLE_-4), %1\n\t" \
|
|
|
|
|
"call .+8\n\t" \
|
|
|
|
|
"add %1, %%lo(_GLOBAL_OFFSET_TABLE_+4), %1\n\t" \
|
|
|
|
|
"add %1, %0, %1\n\t" \
|
|
|
|
|
: "=r" (pc), "=r" (got)); \
|
|
|
|
|
got; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_LOAD_PIC \
|
|
|
|
|
({ long got; \
|
|
|
|
|
asm (".hidden _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
|
|
|
"sethi %%hi(_GLOBAL_OFFSET_TABLE_), %0\n\t" \
|
|
|
|
|
"or %0, %%lo(_GLOBAL_OFFSET_TABLE_), %0" \
|
|
|
|
|
: "=r" (got)); \
|
|
|
|
|
got; })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int *__l; \
|
|
|
|
|
asm ("sethi %%tie_hi22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("add %1, %%tie_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("ld [%1 + %2], %0, %%tie_ld(" #x ")" \
|
|
|
|
|
: "=r" (__l) : "r" (TLS_LOAD_PIC), "r" (__l)); \
|
|
|
|
|
asm ("add %%g7, %1, %0, %%tie_add(" #x ")" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
Add sparc64 TLS and NPTL support.
* elf/tls-macros.h: Add Sparc64 defines.
* sysdeps/sparc/sparc64/dl-machine.h (sparc64_fixup_plt): Mark as
always_inline.
(elf_machine_fixup_plt): Likewise.
(elf_machine_rela): Handle TLS relocations.
(elf_machine_type_cleaa): Likewise.
* sysdeps/unix/sysv/linux/sparc/sparc64/sysdep.h
(SYSCALL_ERROR_HANDLER_ENTRY): Use sethi/or for GOT reloc.
It does not always fit in R_SPARC_GOT13 when building -fPIC.
Also, add TLS handling.
* sysdeps/unix/sysv/linux/configure.in (arch_minimum_kernel):
Increase it to 2.4.21 for sparc64.
* sysdeps/unix/sysv/linux/sparc/sparc32/clone.S: NULL terminate
backtrace by zero'ing out %fp. Store away flags, func_ptr,
and func_arg in global registers not local registers.
* sysdeps/unix/sysv/linux/sparc/sparc64/clone.S: Handle PTID, TLS,
and CTID arguments properly. Add RESET_PID handling.
* sysdeps/unix/sysv/linux/sparc/sparc64/pause.c: Rework so that we
do not invoke __sigprocmask(). We can always assume rt signals
are present on sparc64, so just do an inline syscall.
2005-04-13 Jakub Jelinek <jakub@redhat.com>
* sysdeps/sparc/sparc64/dl-machine.h: Add dl_machine_h multiple
inclusion guard for the first half of the header.
(elf_machine_type_class, ELF_MACHINE_JMP_SLOT, ELF_MACHINE_NO_REL,
ELF_MACHINE_PLTREL_OVERLAP, elf_machine_runtime_setup,
elf_machine_relplt, DL_STACK_END, RTLD_START): Move into the
#ifndef dl_machine_h guarded part of the header.
2005-04-14 21:46:37 +00:00
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int *__l; register void *__o0 asm ("%o0"); \
|
|
|
|
|
long __o; \
|
|
|
|
|
asm ("sethi %%tldm_hi22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("add %1, %%tldm_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("add %1, %2, %0, %%tldm_add(" #x ")" \
|
|
|
|
|
: "=r" (__o0) : "r" (TLS_LOAD_PIC), "r" (__l)); \
|
|
|
|
|
asm ("call __tls_get_addr, %%tgd_call(" #x ")\n\t" \
|
|
|
|
|
" nop" \
|
|
|
|
|
: "=r" (__o0) : "0" (__o0) \
|
|
|
|
|
: "g1", "g2", "g3", "g4", "g5", "g6", "o1", "o2", "o3", "o4", \
|
|
|
|
|
"o5", "o7", "cc"); \
|
|
|
|
|
asm ("sethi %%tldo_hix22(" #x "), %0" : "=r" (__o)); \
|
|
|
|
|
asm ("xor %1, %%tldo_lox10(" #x "), %0" : "=r" (__o) : "r" (__o)); \
|
|
|
|
|
asm ("add %1, %2, %0, %%tldo_add(" #x ")" : "=r" (__l) \
|
|
|
|
|
: "r" (__o0), "r" (__o)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ int *__l; register void *__o0 asm ("%o0"); \
|
|
|
|
|
asm ("sethi %%tgd_hi22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("add %1, %%tgd_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("add %1, %2, %0, %%tgd_add(" #x ")" \
|
|
|
|
|
: "=r" (__o0) : "r" (TLS_LOAD_PIC), "r" (__l)); \
|
|
|
|
|
asm ("call __tls_get_addr, %%tgd_call(" #x ")\n\t" \
|
|
|
|
|
" nop" \
|
|
|
|
|
: "=r" (__o0) : "0" (__o0) \
|
|
|
|
|
: "g1", "g2", "g3", "g4", "g5", "g6", "o1", "o2", "o3", "o4", \
|
|
|
|
|
"o5", "o7", "cc"); \
|
|
|
|
|
__o0; })
|
|
|
|
|
|
|
|
|
|
#elif defined __sparc__ && defined __arch64__
|
|
|
|
|
|
|
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ int *__l; \
|
|
|
|
|
asm ("sethi %%tle_hix22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("xor %1, %%tle_lox10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("add %%g7, %1, %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
|
|
|
|
# ifdef __PIC__
|
|
|
|
|
# define TLS_LOAD_PIC \
|
|
|
|
|
({ long pc, got; \
|
|
|
|
|
asm ("sethi %%hi(_GLOBAL_OFFSET_TABLE_-4), %1\n\t" \
|
|
|
|
|
"rd %%pc, %0\n\t" \
|
|
|
|
|
"add %1, %%lo(_GLOBAL_OFFSET_TABLE_+4), %1\n\t" \
|
|
|
|
|
"add %1, %0, %1\n\t" \
|
|
|
|
|
: "=r" (pc), "=r" (got)); \
|
|
|
|
|
got; })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_LOAD_PIC \
|
|
|
|
|
({ long got; \
|
|
|
|
|
asm (".hidden _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
|
|
|
"sethi %%hi(_GLOBAL_OFFSET_TABLE_), %0\n\t" \
|
|
|
|
|
"or %0, %%lo(_GLOBAL_OFFSET_TABLE_), %0" \
|
|
|
|
|
: "=r" (got)); \
|
|
|
|
|
got; })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int *__l; \
|
|
|
|
|
asm ("sethi %%tie_hi22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("add %1, %%tie_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("ldx [%1 + %2], %0, %%tie_ldx(" #x ")" \
|
|
|
|
|
: "=r" (__l) : "r" (TLS_LOAD_PIC), "r" (__l)); \
|
|
|
|
|
asm ("add %%g7, %1, %0, %%tie_add(" #x ")" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
2003-01-27 21:03:22 +00:00
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int *__l; register void *__o0 asm ("%o0"); \
|
|
|
|
|
long __o; \
|
|
|
|
|
asm ("sethi %%tldm_hi22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("add %1, %%tldm_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("add %1, %2, %0, %%tldm_add(" #x ")" \
|
|
|
|
|
: "=r" (__o0) : "r" (TLS_LOAD_PIC), "r" (__l)); \
|
|
|
|
|
asm ("call __tls_get_addr, %%tgd_call(" #x ")\n\t" \
|
|
|
|
|
" nop" \
|
|
|
|
|
: "=r" (__o0) : "0" (__o0) \
|
|
|
|
|
: "g1", "g2", "g3", "g4", "g5", "g6", "o1", "o2", "o3", "o4", \
|
2003-02-02 22:20:38 +00:00
|
|
|
"o5", "o7", "cc"); \
|
2003-01-27 21:03:22 +00:00
|
|
|
asm ("sethi %%tldo_hix22(" #x "), %0" : "=r" (__o)); \
|
|
|
|
|
asm ("xor %1, %%tldo_lox10(" #x "), %0" : "=r" (__o) : "r" (__o)); \
|
|
|
|
|
asm ("add %1, %2, %0, %%tldo_add(" #x ")" : "=r" (__l) \
|
|
|
|
|
: "r" (__o0), "r" (__o)); \
|
|
|
|
|
__l; })
|
|
|
|
|
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ int *__l; register void *__o0 asm ("%o0"); \
|
|
|
|
|
asm ("sethi %%tgd_hi22(" #x "), %0" : "=r" (__l)); \
|
|
|
|
|
asm ("add %1, %%tgd_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
|
|
|
|
|
asm ("add %1, %2, %0, %%tgd_add(" #x ")" \
|
|
|
|
|
: "=r" (__o0) : "r" (TLS_LOAD_PIC), "r" (__l)); \
|
|
|
|
|
asm ("call __tls_get_addr, %%tgd_call(" #x ")\n\t" \
|
|
|
|
|
" nop" \
|
|
|
|
|
: "=r" (__o0) : "0" (__o0) \
|
|
|
|
|
: "g1", "g2", "g3", "g4", "g5", "g6", "o1", "o2", "o3", "o4", \
|
2003-02-02 22:20:38 +00:00
|
|
|
"o5", "o7", "cc"); \
|
2003-01-27 21:03:22 +00:00
|
|
|
__o0; })
|
|
|
|
|
|
2003-01-28 10:42:28 +00:00
|
|
|
#elif defined __s390x__
|
|
|
|
|
|
|
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@ntpoff\n" \
|
|
|
|
|
"1:\tlg %0,0(%0)" \
|
|
|
|
|
: "=a" (__offset) : : "cc" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
|
|
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@gotntpoff\n" \
|
|
|
|
|
"1:\tlg %0,0(%0)\n\t" \
|
|
|
|
|
"lg %0,0(%0,%%r12):tls_load:" #x \
|
|
|
|
|
: "=&a" (__offset) : : "cc" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@indntpoff\n" \
|
|
|
|
|
"1:\t lg %0,0(%0)\n\t" \
|
|
|
|
|
"lg %0,0(%0):tls_load:" #x \
|
|
|
|
|
: "=&a" (__offset) : : "cc" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ unsigned long __offset, __save12; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@tlsldm\n\t" \
|
|
|
|
|
".quad " #x "@dtpoff\n" \
|
|
|
|
|
"1:\tlgr %1,%%r12\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"larl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
|
|
|
|
|
"lg %%r2,0(%0)\n\t" \
|
2003-01-28 10:42:28 +00:00
|
|
|
"brasl %%r14,__tls_get_offset@plt:tls_ldcall:" #x "\n\t" \
|
|
|
|
|
"lg %0,8(%0)\n\t" \
|
|
|
|
|
"algr %0,%%r2\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lgr %%r12,%1" \
|
2003-01-28 10:42:28 +00:00
|
|
|
: "=&a" (__offset), "=&a" (__save12) \
|
2012-01-07 17:55:20 +00:00
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "14" ); \
|
2003-01-28 10:42:28 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@tlsldm\n\t" \
|
|
|
|
|
".quad " #x "@dtpoff\n" \
|
|
|
|
|
"1:\tlarl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lg %%r2,0(%0)\n\t" \
|
2003-01-28 10:42:28 +00:00
|
|
|
"brasl %%r14,__tls_get_offset@plt:tls_ldcall:" #x "\n\t" \
|
|
|
|
|
"lg %0,8(%0)\n\t" \
|
|
|
|
|
"algr %0,%%r2" \
|
2004-06-11 09:56:02 +00:00
|
|
|
: "=&a" (__offset) \
|
|
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "12", "14" ); \
|
2003-01-28 10:42:28 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ unsigned long __offset, __save12; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@tlsgd\n" \
|
|
|
|
|
"1:\tlgr %1,%%r12\n\t" \
|
|
|
|
|
"larl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lg %%r2,0(%0)\n\t" \
|
2003-01-28 10:42:28 +00:00
|
|
|
"brasl %%r14,__tls_get_offset@plt:tls_gdcall:" #x "\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lgr %0,%%r2\n\t" \
|
|
|
|
|
"lgr %%r12,%1" \
|
2003-01-28 10:42:28 +00:00
|
|
|
: "=&a" (__offset), "=&a" (__save12) \
|
2012-01-07 17:55:20 +00:00
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "14" ); \
|
2003-01-28 10:42:28 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.quad " #x "@tlsgd\n" \
|
|
|
|
|
"1:\tlarl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
|
|
|
|
|
"lg %%r2,0(%0)\n\t" \
|
|
|
|
|
"brasl %%r14,__tls_get_offset@plt:tls_gdcall:" #x "\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lgr %0,%%r2" \
|
2004-06-11 09:56:02 +00:00
|
|
|
: "=&a" (__offset) \
|
|
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "12", "14" ); \
|
2003-01-28 10:42:28 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
#elif defined __s390__
|
|
|
|
|
|
|
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long " #x "@ntpoff\n" \
|
|
|
|
|
"1:\tl %0,0(%0)" \
|
|
|
|
|
: "=a" (__offset) : : "cc" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
|
|
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long " #x "@gotntpoff\n" \
|
|
|
|
|
"1:\tl %0,0(%0)\n\t" \
|
|
|
|
|
"l %0,0(%0,%%r12):tls_load:" #x \
|
|
|
|
|
: "=&a" (__offset) : : "cc" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long " #x "@indntpoff\n" \
|
|
|
|
|
"1:\t l %0,0(%0)\n\t" \
|
|
|
|
|
"l %0,0(%0):tls_load:" #x \
|
|
|
|
|
: "=&a" (__offset) : : "cc" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ unsigned long __offset, __save12; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long _GLOBAL_OFFSET_TABLE_-0b\n\t" \
|
|
|
|
|
".long __tls_get_offset@plt-0b\n\t" \
|
|
|
|
|
".long " #x "@tlsldm\n\t" \
|
|
|
|
|
".long " #x "@dtpoff\n" \
|
|
|
|
|
"1:\tlr %1,%%r12\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"l %%r12,0(%0)\n\t" \
|
|
|
|
|
"la %%r12,0(%%r12,%0)\n\t" \
|
2003-01-28 10:42:28 +00:00
|
|
|
"l %%r1,4(%0)\n\t" \
|
|
|
|
|
"l %%r2,8(%0)\n\t" \
|
|
|
|
|
"bas %%r14,0(%%r1,%0):tls_ldcall:" #x "\n\t" \
|
|
|
|
|
"l %0,12(%0)\n\t" \
|
|
|
|
|
"alr %0,%%r2\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lr %%r12,%1" \
|
2003-01-28 10:42:28 +00:00
|
|
|
: "=&a" (__offset), "=&a" (__save12) \
|
2012-01-07 17:55:20 +00:00
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5" ); \
|
2003-01-28 10:42:28 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
|
|
|
".long __tls_get_offset@plt\n\t" \
|
|
|
|
|
".long " #x "@tlsldm\n\t" \
|
|
|
|
|
".long " #x "@dtpoff\n" \
|
|
|
|
|
"1:\tl %%r12,0(%0)\n\t" \
|
|
|
|
|
"l %%r1,4(%0)\n\t" \
|
|
|
|
|
"l %%r2,8(%0)\n\t" \
|
|
|
|
|
"bas %%r14,0(%%r1):tls_ldcall:" #x "\n\t" \
|
|
|
|
|
"l %0,12(%0)\n\t" \
|
|
|
|
|
"alr %0,%%r2" \
|
|
|
|
|
: "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# endif
|
|
|
|
|
|
|
|
|
|
# ifdef PIC
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ unsigned long __offset, __save12; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long _GLOBAL_OFFSET_TABLE_-0b\n\t" \
|
|
|
|
|
".long __tls_get_offset@plt-0b\n\t" \
|
|
|
|
|
".long " #x "@tlsgd\n" \
|
|
|
|
|
"1:\tlr %1,%%r12\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"l %%r12,0(%0)\n\t" \
|
|
|
|
|
"la %%r12,0(%%r12,%0)\n\t" \
|
2003-01-28 10:42:28 +00:00
|
|
|
"l %%r1,4(%0)\n\t" \
|
|
|
|
|
"l %%r2,8(%0)\n\t" \
|
|
|
|
|
"bas %%r14,0(%%r1,%0):tls_gdcall:" #x "\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lr %0,%%r2\n\t" \
|
|
|
|
|
"lr %%r12,%1" \
|
2003-01-28 10:42:28 +00:00
|
|
|
: "=&a" (__offset), "=&a" (__save12) \
|
2012-01-07 17:55:20 +00:00
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5" ); \
|
2003-01-28 10:42:28 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# else
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
|
|
|
|
asm ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
|
|
|
".long __tls_get_offset@plt\n\t" \
|
|
|
|
|
".long " #x "@tlsgd\n" \
|
|
|
|
|
"1:\tl %%r12,0(%0)\n\t" \
|
|
|
|
|
"l %%r1,4(%0)\n\t" \
|
|
|
|
|
"l %%r2,8(%0)\n\t" \
|
|
|
|
|
"bas %%r14,0(%%r1):tls_gdcall:" #x "\n\t" \
|
2012-01-07 17:55:20 +00:00
|
|
|
"lr %0,%%r2" \
|
2003-01-28 10:42:28 +00:00
|
|
|
: "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" ); \
|
|
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
# endif
|
|
|
|
|
|
2010-02-12 13:32:09 +00:00
|
|
|
#elif defined __powerpc__
|
2003-03-02 11:45:12 +00:00
|
|
|
|
2010-02-12 13:32:09 +00:00
|
|
|
# define __TLS_CALL_CLOBBERS \
|
|
|
|
|
"0", "4", "5", "6", "7", "8", "9", "10", "11", "12", \
|
2003-03-02 11:45:12 +00:00
|
|
|
"lr", "ctr", "cr0", "cr1", "cr5", "cr6", "cr7"
|
|
|
|
|
|
2010-02-12 13:32:09 +00:00
|
|
|
# ifndef __powerpc64__
|
|
|
|
|
|
|
|
|
|
# include "config.h"
|
|
|
|
|
|
2003-03-02 11:45:12 +00:00
|
|
|
/* PowerPC32 Local Exec TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ int *__result; \
|
|
|
|
|
asm ("addi %0,2," #x "@tprel" \
|
|
|
|
|
: "=r" (__result)); \
|
2003-03-02 11:45:12 +00:00
|
|
|
__result; })
|
|
|
|
|
|
|
|
|
|
/* PowerPC32 Initial Exec TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# ifdef HAVE_ASM_PPC_REL16
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int *__result; \
|
|
|
|
|
asm ("bcl 20,31,1f\n1:\t" \
|
|
|
|
|
"mflr %0\n\t" \
|
|
|
|
|
"addis %0,%0,_GLOBAL_OFFSET_TABLE_-1b@ha\n\t" \
|
|
|
|
|
"addi %0,%0,_GLOBAL_OFFSET_TABLE_-1b@l\n\t" \
|
|
|
|
|
"lwz %0," #x "@got@tprel(%0)\n\t" \
|
|
|
|
|
"add %0,%0," #x "@tls" \
|
|
|
|
|
: "=b" (__result) : \
|
|
|
|
|
: "lr"); \
|
2005-06-17 23:11:35 +00:00
|
|
|
__result; })
|
2010-02-12 13:32:09 +00:00
|
|
|
# else
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int *__result; \
|
|
|
|
|
asm ("bl _GLOBAL_OFFSET_TABLE_@local-4\n\t" \
|
|
|
|
|
"mflr %0\n\t" \
|
|
|
|
|
"lwz %0," #x "@got@tprel(%0)\n\t" \
|
|
|
|
|
"add %0,%0," #x "@tls" \
|
|
|
|
|
: "=b" (__result) : \
|
|
|
|
|
: "lr"); \
|
2003-03-02 11:45:12 +00:00
|
|
|
__result; })
|
2010-02-12 13:32:09 +00:00
|
|
|
# endif
|
2003-03-02 11:45:12 +00:00
|
|
|
|
|
|
|
|
/* PowerPC32 Local Dynamic TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# ifdef HAVE_ASM_PPC_REL16
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int *__result; \
|
|
|
|
|
asm ("bcl 20,31,1f\n1:\t" \
|
|
|
|
|
"mflr 3\n\t" \
|
|
|
|
|
"addis 3,3,_GLOBAL_OFFSET_TABLE_-1b@ha\n\t" \
|
|
|
|
|
"addi 3,3,_GLOBAL_OFFSET_TABLE_-1b@l\n\t" \
|
|
|
|
|
"addi 3,3," #x "@got@tlsld\n\t" \
|
|
|
|
|
"bl __tls_get_addr@plt\n\t" \
|
|
|
|
|
"addi %0,3," #x "@dtprel" \
|
|
|
|
|
: "=r" (__result) : \
|
|
|
|
|
: "3", __TLS_CALL_CLOBBERS); \
|
2005-06-17 23:11:35 +00:00
|
|
|
__result; })
|
2010-02-12 13:32:09 +00:00
|
|
|
# else
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int *__result; \
|
|
|
|
|
asm ("bl _GLOBAL_OFFSET_TABLE_@local-4\n\t" \
|
|
|
|
|
"mflr 3\n\t" \
|
|
|
|
|
"addi 3,3," #x "@got@tlsld\n\t" \
|
|
|
|
|
"bl __tls_get_addr@plt\n\t" \
|
|
|
|
|
"addi %0,3," #x "@dtprel" \
|
|
|
|
|
: "=r" (__result) : \
|
|
|
|
|
: "3", __TLS_CALL_CLOBBERS); \
|
2003-03-02 11:45:12 +00:00
|
|
|
__result; })
|
2010-02-12 13:32:09 +00:00
|
|
|
# endif
|
2003-03-02 11:45:12 +00:00
|
|
|
|
|
|
|
|
/* PowerPC32 General Dynamic TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# ifdef HAVE_ASM_PPC_REL16
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ register int *__result __asm__ ("r3"); \
|
|
|
|
|
asm ("bcl 20,31,1f\n1:\t" \
|
|
|
|
|
"mflr 3\n\t" \
|
|
|
|
|
"addis 3,3,_GLOBAL_OFFSET_TABLE_-1b@ha\n\t" \
|
|
|
|
|
"addi 3,3,_GLOBAL_OFFSET_TABLE_-1b@l\n\t" \
|
|
|
|
|
"addi 3,3," #x "@got@tlsgd\n\t" \
|
|
|
|
|
"bl __tls_get_addr@plt" \
|
|
|
|
|
: "=r" (__result) : \
|
|
|
|
|
: __TLS_CALL_CLOBBERS); \
|
2005-06-17 23:11:35 +00:00
|
|
|
__result; })
|
2010-02-12 13:32:09 +00:00
|
|
|
# else
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ register int *__result __asm__ ("r3"); \
|
|
|
|
|
asm ("bl _GLOBAL_OFFSET_TABLE_@local-4\n\t" \
|
|
|
|
|
"mflr 3\n\t" \
|
|
|
|
|
"addi 3,3," #x "@got@tlsgd\n\t" \
|
|
|
|
|
"bl __tls_get_addr@plt" \
|
|
|
|
|
: "=r" (__result) : \
|
|
|
|
|
: __TLS_CALL_CLOBBERS); \
|
2003-03-02 11:45:12 +00:00
|
|
|
__result; })
|
2010-02-12 13:32:09 +00:00
|
|
|
# endif
|
2003-03-02 11:45:12 +00:00
|
|
|
|
2010-02-12 13:32:09 +00:00
|
|
|
# else
|
2003-02-25 23:27:06 +00:00
|
|
|
|
|
|
|
|
/* PowerPC64 Local Exec TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# define TLS_LE(x) \
|
|
|
|
|
({ int * __result; \
|
|
|
|
|
asm ("addis %0,13," #x "@tprel@ha\n\t" \
|
|
|
|
|
"addi %0,%0," #x "@tprel@l" \
|
|
|
|
|
: "=b" (__result) ); \
|
|
|
|
|
__result; \
|
2003-02-25 23:27:06 +00:00
|
|
|
})
|
|
|
|
|
/* PowerPC64 Initial Exec TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ int * __result; \
|
|
|
|
|
asm ("ld %0," #x "@got@tprel(2)\n\t" \
|
|
|
|
|
"add %0,%0," #x "@tls" \
|
|
|
|
|
: "=r" (__result) ); \
|
|
|
|
|
__result; \
|
2003-02-25 23:27:06 +00:00
|
|
|
})
|
2010-02-12 13:32:09 +00:00
|
|
|
# ifdef HAVE_ASM_GLOBAL_DOT_NAME
|
|
|
|
|
# define __TLS_GET_ADDR ".__tls_get_addr"
|
|
|
|
|
# else
|
|
|
|
|
# define __TLS_GET_ADDR "__tls_get_addr"
|
|
|
|
|
# endif
|
2003-02-25 23:27:06 +00:00
|
|
|
/* PowerPC64 Local Dynamic TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ int * __result; \
|
|
|
|
|
asm ("addi 3,2," #x "@got@tlsld\n\t" \
|
|
|
|
|
"bl " __TLS_GET_ADDR "\n\t" \
|
|
|
|
|
"nop \n\t" \
|
|
|
|
|
"addis %0,3," #x "@dtprel@ha\n\t" \
|
|
|
|
|
"addi %0,%0," #x "@dtprel@l" \
|
|
|
|
|
: "=b" (__result) : \
|
|
|
|
|
: "3", __TLS_CALL_CLOBBERS); \
|
|
|
|
|
__result; \
|
2003-02-25 23:27:06 +00:00
|
|
|
})
|
|
|
|
|
/* PowerPC64 General Dynamic TLS access. */
|
2010-02-12 13:32:09 +00:00
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ register int *__result __asm__ ("r3"); \
|
|
|
|
|
asm ("addi 3,2," #x "@got@tlsgd\n\t" \
|
|
|
|
|
"bl " __TLS_GET_ADDR "\n\t" \
|
|
|
|
|
"nop " \
|
|
|
|
|
: "=r" (__result) : \
|
|
|
|
|
: __TLS_CALL_CLOBBERS); \
|
|
|
|
|
__result; \
|
2003-02-25 23:27:06 +00:00
|
|
|
})
|
2010-02-12 13:32:09 +00:00
|
|
|
# endif
|
2003-02-25 23:27:06 +00:00
|
|
|
|
2005-03-13 09:09:05 +00:00
|
|
|
#elif !defined TLS_LE || !defined TLS_IE \
|
2005-03-27 20:06:13 +00:00
|
|
|
|| !defined TLS_LD || !defined TLS_GD
|
2002-02-10 18:58:00 +00:00
|
|
|
# error "No support for this architecture so far."
|
|
|
|
|
#endif
|
