2012-07-17 11:30:58 +00:00
|
|
|
#define TLS_LE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__asm__ ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long " #x "@ntpoff\n" \
|
|
|
|
|
"1:\tl %0,0(%0)" \
|
|
|
|
|
: "=a" (__offset) : : "cc" ); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
|
|
|
|
|
#ifdef PIC
|
|
|
|
|
# define TLS_IE(x) \
|
S390: Save and restore r12 in TLS_IE macro.
The testcases elf/tst-tls1-static and elf/tst-tls2-static
are failing on s390 if gcc is configured with --enable-default-pie.
According to binutils, there are only four valid cases for IE -> LE transition:
lg %rx,(0,%ry) -> sllg %rx,%ry,0
lg %rx,(%ry,0) -> sllg %rx,%ry,0
lg %rx,(%ry,%r12) -> sllg %rx,%ry,0
lg %rx,(%r12,%ry) -> sllg %rx,%ry,0
Thus I've adjusted the TLS_IE macro in s390 tls-macros.h files in PIC case
in order to use r12 for the address of global offset table.
The adjusted macro definition is not used if gcc is not configured with
--enable-default-pie.
ChangeLog:
* sysdeps/s390/s390-32/tls-macros.h (TLS_IE): Use r12 for GOT address.
* sysdeps/s390/s390-64/tls-macros.h (TLS_IE): Likewise.
2017-06-27 13:23:43 +00:00
|
|
|
({ unsigned long __offset, __save12; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__asm__ ("bras %0,1f\n" \
|
|
|
|
|
"0:\t.long _GLOBAL_OFFSET_TABLE_-0b\n\t" \
|
|
|
|
|
".long " #x "@gotntpoff\n" \
|
S390: Save and restore r12 in TLS_IE macro.
The testcases elf/tst-tls1-static and elf/tst-tls2-static
are failing on s390 if gcc is configured with --enable-default-pie.
According to binutils, there are only four valid cases for IE -> LE transition:
lg %rx,(0,%ry) -> sllg %rx,%ry,0
lg %rx,(%ry,0) -> sllg %rx,%ry,0
lg %rx,(%ry,%r12) -> sllg %rx,%ry,0
lg %rx,(%r12,%ry) -> sllg %rx,%ry,0
Thus I've adjusted the TLS_IE macro in s390 tls-macros.h files in PIC case
in order to use r12 for the address of global offset table.
The adjusted macro definition is not used if gcc is not configured with
--enable-default-pie.
ChangeLog:
* sysdeps/s390/s390-32/tls-macros.h (TLS_IE): Use r12 for GOT address.
* sysdeps/s390/s390-64/tls-macros.h (TLS_IE): Likewise.
2017-06-27 13:23:43 +00:00
|
|
|
"1:\tlr %1,%%r12\n\t" \
|
|
|
|
|
"l %%r12,0(%0)\n\t" \
|
|
|
|
|
"la %%r12,0(%0,%%r12)\n\t" \
|
2015-11-20 07:56:40 +00:00
|
|
|
"l %0,4(%0)\n\t" \
|
S390: Save and restore r12 in TLS_IE macro.
The testcases elf/tst-tls1-static and elf/tst-tls2-static
are failing on s390 if gcc is configured with --enable-default-pie.
According to binutils, there are only four valid cases for IE -> LE transition:
lg %rx,(0,%ry) -> sllg %rx,%ry,0
lg %rx,(%ry,0) -> sllg %rx,%ry,0
lg %rx,(%ry,%r12) -> sllg %rx,%ry,0
lg %rx,(%r12,%ry) -> sllg %rx,%ry,0
Thus I've adjusted the TLS_IE macro in s390 tls-macros.h files in PIC case
in order to use r12 for the address of global offset table.
The adjusted macro definition is not used if gcc is not configured with
--enable-default-pie.
ChangeLog:
* sysdeps/s390/s390-32/tls-macros.h (TLS_IE): Use r12 for GOT address.
* sysdeps/s390/s390-64/tls-macros.h (TLS_IE): Likewise.
2017-06-27 13:23:43 +00:00
|
|
|
"l %0,0(%0,%%r12):tls_load:" #x "\n\t" \
|
|
|
|
|
"lr %%r12,%1\n" \
|
|
|
|
|
: "=&a" (__offset), "=&a" (__save12) : : "cc" ); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
#else
|
|
|
|
|
# define TLS_IE(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__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" ); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef PIC
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ unsigned long __offset, __save12; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__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" \
|
|
|
|
|
"l %%r12,0(%0)\n\t" \
|
|
|
|
|
"la %%r12,0(%%r12,%0)\n\t" \
|
|
|
|
|
"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" \
|
|
|
|
|
"lr %%r12,%1" \
|
|
|
|
|
: "=&a" (__offset), "=&a" (__save12) \
|
2017-04-04 11:16:28 +00:00
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "14"); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
#else
|
|
|
|
|
# define TLS_LD(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__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" \
|
2017-04-04 11:16:28 +00:00
|
|
|
: "=&a" (__offset) \
|
|
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "12", "14"); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef PIC
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ unsigned long __offset, __save12; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__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" \
|
|
|
|
|
"l %%r12,0(%0)\n\t" \
|
|
|
|
|
"la %%r12,0(%%r12,%0)\n\t" \
|
|
|
|
|
"l %%r1,4(%0)\n\t" \
|
|
|
|
|
"l %%r2,8(%0)\n\t" \
|
|
|
|
|
"bas %%r14,0(%%r1,%0):tls_gdcall:" #x "\n\t" \
|
|
|
|
|
"lr %0,%%r2\n\t" \
|
|
|
|
|
"lr %%r12,%1" \
|
|
|
|
|
: "=&a" (__offset), "=&a" (__save12) \
|
2017-04-04 11:16:28 +00:00
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "14"); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
#else
|
|
|
|
|
# define TLS_GD(x) \
|
|
|
|
|
({ unsigned long __offset; \
|
2015-11-20 07:56:40 +00:00
|
|
|
__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" \
|
|
|
|
|
"lr %0,%%r2" \
|
2017-04-04 11:16:28 +00:00
|
|
|
: "=&a" (__offset) \
|
|
|
|
|
: : "cc", "0", "1", "2", "3", "4", "5", "12", "14"); \
|
2012-07-17 11:30:58 +00:00
|
|
|
(int *) (__builtin_thread_pointer() + __offset); })
|
|
|
|
|
#endif
|
