1 /* Macros to support TLS testing in times of missing compiler support. */
3 #define COMMON_INT_DEF(x) \
4 asm (".tls_common " #x ",4,4")
5 /* XXX Until we get compiler support we don't need declarations. */
6 #define COMMON_INT_DECL(x)
8 /* XXX This definition will probably be machine specific, too. */
9 #define VAR_INT_DEF(x) \
10 asm (".section .tdata\n\t" \
13 ".size " #x ",4\n\t" \
15 /* XXX Until we get compiler support we don't need declarations. */
16 #define VAR_INT_DECL(x)
19 /* XXX Each architecture must have its own asm for now. */
23 asm ("movl %%gs:0,%0\n\t" \
24 "subl $" #x "@tpoff,%0" \
31 asm ("movl %%gs:0,%0\n\t" \
32 "subl " #x "@gottpoff(%%ebx),%0" \
40 "1:\tmovl (%%esp), %%ebx\n\t" \
43 "addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
44 "movl %%gs:0,%0\n\t" \
45 "subl " #x "@gottpoff(%%ebx),%0" \
46 : "=r" (__l), "=&b" (__b)); \
52 ({ int *__l, __c, __d; \
53 asm ("leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
54 "call ___tls_get_addr@plt\n\t" \
55 "leal " #x "@dtpoff(%%eax), %%eax" \
56 : "=a" (__l), "=&c" (__c), "=&d" (__d)); \
60 ({ int *__l, __b, __c, __d; \
63 "1:\tmovl (%%esp), %%ebx\n\t" \
66 "addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
67 "leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
68 "call ___tls_get_addr@plt\n\t" \
69 "leal " #x "@dtpoff(%%eax), %%eax" \
70 : "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
76 ({ int *__l, __c, __d; \
77 asm ("leal " #x "@tlsgd(%%ebx),%%eax\n\t" \
78 "call ___tls_get_addr@plt\n\t" \
80 : "=a" (__l), "=&c" (__c), "=&d" (__d)); \
84 ({ int *__l, __b, __c, __d; \
87 "1:\tmovl (%%esp), %%ebx\n\t" \
90 "addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
91 "leal " #x "@tlsgd(%%ebx),%%eax\n\t" \
92 "call ___tls_get_addr@plt\n\t" \
94 : "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
98 #elif defined __x86_64__
102 asm ("movq %%fs:0,%0\n\t" \
103 "leaq " #x "@tpoff(%0), %0" \
109 asm ("movq %%fs:0,%0\n\t" \
110 "addq " #x "@gottpoff(%%rip),%0" \
115 ({ int *__l, __c, __d; \
116 asm ("leaq " #x "@tlsld(%%rip),%%rdi\n\t" \
117 "call __tls_get_addr@plt\n\t" \
118 "leaq " #x "@dtpoff(%%rax), %%rax" \
119 : "=a" (__l), "=&c" (__c), "=&d" (__d) \
120 : : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
124 ({ int *__l, __c, __d; \
125 asm (".byte 0x66\n\t" \
126 "leaq " #x "@tlsgd(%%rip),%%rdi\n\t" \
129 "call __tls_get_addr@plt" \
130 : "=a" (__l), "=&c" (__c), "=&d" (__d) \
131 : : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
137 ({ int *__l; void *__tp; \
138 asm ("stc gbr,%1\n\t" \
143 "1: .long " #x "@tpoff\n\t" \
145 : "=r" (__l), "=r" (__tp)); \
149 ({ int *__l; void *__tp; \
150 asm ("mova 0f,r0\n\t" \
155 "mov.l @(r0,r12),%0\n\t" \
159 "1: .long " #x "@gottpoff\n\t" \
160 "0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
162 : "=r" (__l), "=r" (__tp) : : "r0", "r12"); \
167 asm ("mova 0f,r0\n\t" \
179 "1: .long " #x "@tlsldm\n\t" \
180 "2: .long __tls_get_addr@plt\n\t" \
181 "0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
182 "4: mov.l 3f,%0\n\t" \
186 "3: .long " #x "@dtpoff\n\t" \
188 : "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
194 asm ("mova 0f,r0\n\t" \
206 "1: .long " #x "@tlsgd\n\t" \
207 "2: .long __tls_get_addr@plt\n\t" \
208 "0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
210 : "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
214 #elif defined __alpha__
216 register void *__gp __asm__("$29");
220 asm ("call_pal 158\n\tlda $0," #x "($0)\t\t!tprel" : "=v"(__l)); \
224 ({ char *__tp; unsigned long __o; \
225 asm ("call_pal 158\n\tldq %1," #x "($gp)\t\t!gottprel" \
226 : "=v"(__tp), "=r"(__o) : "r"(__gp)); \
227 (int *)(__tp + __o); })
230 ({ extern void *__tls_get_addr(void *); int *__l; void *__i; \
231 asm ("lda %0," #x "($gp)\t\t!tlsldm" : "=r" (__i) : "r"(__gp)); \
232 __i = __tls_get_addr(__i); \
233 asm ("lda %0, " #x "(%1)\t\t!dtprel" : "=r"(__l) : "r"(__i)); \
237 ({ extern void *__tls_get_addr(void *); void *__i; \
238 asm ("lda %0," #x "($gp)\t\t!tlsgd" : "=r" (__i) : "r"(__gp)); \
239 (int *) __tls_get_addr(__i); })
242 #elif defined __ia64__
246 asm ("mov r2=r13\n\t" \
248 "addl %0=@tprel(" #x "),r2\n\t" \
249 : "=r" (__l) : : "r2" ); __l; })
254 "addl r16=@ltoff(@tprel(" #x ")),gp\n\t" \
256 "ld8 r17=[r16]\n\t" \
258 "add %0=r13,r17\n\t" \
259 : "=r" (__l) : : "r16", "r17" ); __l; })
261 # define __TLS_CALL_CLOBBERS \
262 "r2", "r3", "r8", "r9", "r10", "r11", "r14", "r15", "r16", "r17", \
263 "r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", \
264 "r27", "r28", "r29", "r30", "r31", \
265 "p6", "p7", "p8", "p9", "p10", "p11", "p12", "p13", "p14", "p15", \
266 "f6", "f7", "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \
268 "out0", "out1", "out2", "out3", "out4", "out5", "out6", "out7"
274 "addl r16=@ltoff(@dtpmod(" #x ")),gp\n\t" \
275 "addl out1=@dtprel(" #x "),r0\n\t" \
277 "ld8 out0=[r16]\n\t" \
278 "br.call.sptk.many b0=__tls_get_addr" \
282 : "=r" (__l) : : "loc0", __TLS_CALL_CLOBBERS); \
289 "addl r16=@ltoff(@dtpmod(" #x ")),gp\n\t" \
290 "addl r17=@ltoff(@dtprel(" #x ")),gp\n\t" \
292 "ld8 out0=[r16]\n\t" \
293 "ld8 out1=[r17]\n\t" \
294 "br.call.sptk.many b0=__tls_get_addr" \
298 : "=r" (__l) : : "loc0", __TLS_CALL_CLOBBERS); \
301 #elif defined __sparc__ && !defined __arch64__
305 asm ("sethi %%tle_hix22(" #x "), %0" : "=r" (__l)); \
306 asm ("xor %1, %%tle_lox10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
307 asm ("add %%g7, %1, %0" : "=r" (__l) : "r" (__l)); \
311 # define TLS_LOAD_PIC \
312 ({ register long pc __asm__ ("%o7"); \
314 asm ("sethi %%hi(_GLOBAL_OFFSET_TABLE_-4), %1\n\t" \
316 "add %1, %%lo(_GLOBAL_OFFSET_TABLE_+4), %1\n\t" \
317 "add %1, %0, %1\n\t" \
318 : "=r" (pc), "=r" (got)); \
321 # define TLS_LOAD_PIC \
323 asm (".hidden _GLOBAL_OFFSET_TABLE_\n\t" \
324 "sethi %%hi(_GLOBAL_OFFSET_TABLE_), %0\n\t" \
325 "or %0, %%lo(_GLOBAL_OFFSET_TABLE_), %0" \
332 asm ("sethi %%tie_hi22(" #x "), %0" : "=r" (__l)); \
333 asm ("add %1, %%tie_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
334 asm ("ld [%1 + %2], %0, %%tie_ld(" #x ")" \
335 : "=r" (__l) : "r" (TLS_LOAD_PIC), "r" (__l)); \
336 asm ("add %%g7, %1, %0, %%tie_add(" #x ")" : "=r" (__l) : "r" (__l)); \
340 ({ int *__l; register void *__o0 asm ("%o0"); \
342 asm ("sethi %%tldm_hi22(" #x "), %0" : "=r" (__l)); \
343 asm ("add %1, %%tldm_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
344 asm ("add %1, %2, %0, %%tldm_add(" #x ")" \
345 : "=r" (__o0) : "r" (TLS_LOAD_PIC), "r" (__l)); \
346 asm ("call __tls_get_addr, %%tgd_call(" #x ")\n\t" \
348 : "=r" (__o0) : "0" (__o0) \
349 : "g1", "g2", "g3", "g4", "g5", "g6", "o1", "o2", "o3", "o4", \
351 asm ("sethi %%tldo_hix22(" #x "), %0" : "=r" (__o)); \
352 asm ("xor %1, %%tldo_lox10(" #x "), %0" : "=r" (__o) : "r" (__o)); \
353 asm ("add %1, %2, %0, %%tldo_add(" #x ")" : "=r" (__l) \
354 : "r" (__o0), "r" (__o)); \
358 ({ int *__l; register void *__o0 asm ("%o0"); \
359 asm ("sethi %%tgd_hi22(" #x "), %0" : "=r" (__l)); \
360 asm ("add %1, %%tgd_lo10(" #x "), %0" : "=r" (__l) : "r" (__l)); \
361 asm ("add %1, %2, %0, %%tgd_add(" #x ")" \
362 : "=r" (__o0) : "r" (TLS_LOAD_PIC), "r" (__l)); \
363 asm ("call __tls_get_addr, %%tgd_call(" #x ")\n\t" \
365 : "=r" (__o0) : "0" (__o0) \
366 : "g1", "g2", "g3", "g4", "g5", "g6", "o1", "o2", "o3", "o4", \
370 #elif defined __s390x__
373 ({ unsigned long __offset; \
374 asm ("bras %0,1f\n" \
375 "0:\t.quad " #x "@ntpoff\n" \
377 : "=a" (__offset) : : "cc" ); \
378 (int *) (__builtin_thread_pointer() + __offset); })
382 ({ unsigned long __offset; \
383 asm ("bras %0,1f\n" \
384 "0:\t.quad " #x "@gotntpoff\n" \
385 "1:\tlg %0,0(%0)\n\t" \
386 "lg %0,0(%0,%%r12):tls_load:" #x \
387 : "=&a" (__offset) : : "cc" ); \
388 (int *) (__builtin_thread_pointer() + __offset); })
391 ({ unsigned long __offset; \
392 asm ("bras %0,1f\n" \
393 "0:\t.quad " #x "@indntpoff\n" \
394 "1:\t lg %0,0(%0)\n\t" \
395 "lg %0,0(%0):tls_load:" #x \
396 : "=&a" (__offset) : : "cc" ); \
397 (int *) (__builtin_thread_pointer() + __offset); })
402 ({ unsigned long __offset, __save12; \
403 asm ("bras %0,1f\n" \
404 "0:\t.quad " #x "@tlsldm\n\t" \
405 ".quad " #x "@dtpoff\n" \
406 "1:\tlgr %1,%%r12\n\t" \
407 "larl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
408 "lg %%r2,0(%0)\n\t" \
409 "brasl %%r14,__tls_get_offset@plt:tls_ldcall:" #x "\n\t" \
413 : "=&a" (__offset), "=&a" (__save12) \
414 : : "cc", "0", "1", "2", "3", "4", "5" ); \
415 (int *) (__builtin_thread_pointer() + __offset); })
418 ({ unsigned long __offset; \
419 asm ("bras %0,1f\n" \
420 "0:\t.quad " #x "@tlsldm\n\t" \
421 ".quad " #x "@dtpoff\n" \
422 "1:\tlarl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
423 "lg %%r2,0(%0)\n\t" \
424 "brasl %%r14,__tls_get_offset@plt:tls_ldcall:" #x "\n\t" \
427 : "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" ); \
428 (int *) (__builtin_thread_pointer() + __offset); })
433 ({ unsigned long __offset, __save12; \
434 asm ("bras %0,1f\n" \
435 "0:\t.quad " #x "@tlsgd\n" \
436 "1:\tlgr %1,%%r12\n\t" \
437 "larl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
438 "lg %%r2,0(%0)\n\t" \
439 "brasl %%r14,__tls_get_offset@plt:tls_gdcall:" #x "\n\t" \
442 : "=&a" (__offset), "=&a" (__save12) \
443 : : "cc", "0", "1", "2", "3", "4", "5" ); \
444 (int *) (__builtin_thread_pointer() + __offset); })
447 ({ unsigned long __offset; \
448 asm ("bras %0,1f\n" \
449 "0:\t.quad " #x "@tlsgd\n" \
450 "1:\tlarl %%r12,_GLOBAL_OFFSET_TABLE_\n\t" \
451 "lg %%r2,0(%0)\n\t" \
452 "brasl %%r14,__tls_get_offset@plt:tls_gdcall:" #x "\n\t" \
454 : "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" ); \
455 (int *) (__builtin_thread_pointer() + __offset); })
458 #elif defined __s390__
461 ({ unsigned long __offset; \
462 asm ("bras %0,1f\n" \
463 "0:\t.long " #x "@ntpoff\n" \
465 : "=a" (__offset) : : "cc" ); \
466 (int *) (__builtin_thread_pointer() + __offset); })
470 ({ unsigned long __offset; \
471 asm ("bras %0,1f\n" \
472 "0:\t.long " #x "@gotntpoff\n" \
473 "1:\tl %0,0(%0)\n\t" \
474 "l %0,0(%0,%%r12):tls_load:" #x \
475 : "=&a" (__offset) : : "cc" ); \
476 (int *) (__builtin_thread_pointer() + __offset); })
479 ({ unsigned long __offset; \
480 asm ("bras %0,1f\n" \
481 "0:\t.long " #x "@indntpoff\n" \
482 "1:\t l %0,0(%0)\n\t" \
483 "l %0,0(%0):tls_load:" #x \
484 : "=&a" (__offset) : : "cc" ); \
485 (int *) (__builtin_thread_pointer() + __offset); })
490 ({ unsigned long __offset, __save12; \
491 asm ("bras %0,1f\n" \
492 "0:\t.long _GLOBAL_OFFSET_TABLE_-0b\n\t" \
493 ".long __tls_get_offset@plt-0b\n\t" \
494 ".long " #x "@tlsldm\n\t" \
495 ".long " #x "@dtpoff\n" \
496 "1:\tlr %1,%%r12\n\t" \
497 "l %%r12,0(%0)\n\t" \
498 "la %%r12,0(%%r12,%0)\n\t" \
501 "bas %%r14,0(%%r1,%0):tls_ldcall:" #x "\n\t" \
505 : "=&a" (__offset), "=&a" (__save12) \
506 : : "cc", "0", "1", "2", "3", "4", "5" ); \
507 (int *) (__builtin_thread_pointer() + __offset); })
510 ({ unsigned long __offset; \
511 asm ("bras %0,1f\n" \
512 "0:\t.long _GLOBAL_OFFSET_TABLE_\n\t" \
513 ".long __tls_get_offset@plt\n\t" \
514 ".long " #x "@tlsldm\n\t" \
515 ".long " #x "@dtpoff\n" \
516 "1:\tl %%r12,0(%0)\n\t" \
519 "bas %%r14,0(%%r1):tls_ldcall:" #x "\n\t" \
522 : "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" ); \
523 (int *) (__builtin_thread_pointer() + __offset); })
528 ({ unsigned long __offset, __save12; \
529 asm ("bras %0,1f\n" \
530 "0:\t.long _GLOBAL_OFFSET_TABLE_-0b\n\t" \
531 ".long __tls_get_offset@plt-0b\n\t" \
532 ".long " #x "@tlsgd\n" \
533 "1:\tlr %1,%%r12\n\t" \
534 "l %%r12,0(%0)\n\t" \
535 "la %%r12,0(%%r12,%0)\n\t" \
538 "bas %%r14,0(%%r1,%0):tls_gdcall:" #x "\n\t" \
541 : "=&a" (__offset), "=&a" (__save12) \
542 : : "cc", "0", "1", "2", "3", "4", "5" ); \
543 (int *) (__builtin_thread_pointer() + __offset); })
546 ({ unsigned long __offset; \
547 asm ("bras %0,1f\n" \
548 "0:\t.long _GLOBAL_OFFSET_TABLE_\n\t" \
549 ".long __tls_get_offset@plt\n\t" \
550 ".long " #x "@tlsgd\n" \
551 "1:\tl %%r12,0(%0)\n\t" \
554 "bas %%r14,0(%%r1):tls_gdcall:" #x "\n\t" \
556 : "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" ); \
557 (int *) (__builtin_thread_pointer() + __offset); })
561 # error "No support for this architecture so far."