Add s390 versions.
authordrepper <drepper>
Tue, 28 Jan 2003 10:32:06 +0000 (10:32 +0000)
committerdrepper <drepper>
Tue, 28 Jan 2003 10:32:06 +0000 (10:32 +0000)
elf/tls-macros.h

index 2de4b1a..ea9ec56 100644 (file)
@@ -367,6 +367,196 @@ register void *__gp __asm__("$29");
            "o5", "o7");                                                      \
      __o0; })
 
+#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"                                              \
+          "larl %%r12,_GLOBAL_OFFSET_TABLE_\n\t"                             \
+          "lg %%r2,0(%0)\n\t"                                                \
+         "brasl %%r14,__tls_get_offset@plt:tls_ldcall:" #x "\n\t"            \
+         "lg %0,8(%0)\n\t"                                                   \
+         "algr %0,%%r2\n\t"                                                  \
+          "lgr %%r12,%1"                                                     \
+         : "=&a" (__offset), "=&a" (__save12)                                \
+          : : "cc", "0", "1", "2", "3", "4", "5" );                          \
+     (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"                          \
+          "lg %%r2,0(%0)\n\t"                                                \
+         "brasl %%r14,__tls_get_offset@plt:tls_ldcall:" #x "\n\t"            \
+         "lg %0,8(%0)\n\t"                                                   \
+         "algr %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.quad " #x "@tlsgd\n"                                          \
+         "1:\tlgr %1,%%r12\n\t"                                              \
+         "larl %%r12,_GLOBAL_OFFSET_TABLE_\n\t"                              \
+          "lg %%r2,0(%0)\n\t"                                                \
+         "brasl %%r14,__tls_get_offset@plt:tls_gdcall:" #x "\n\t"            \
+          "lgr %0,%%r2\n\t"                                                  \
+          "lgr %%r12,%1"                                                     \
+         : "=&a" (__offset), "=&a" (__save12)                                \
+          : : "cc", "0", "1", "2", "3", "4", "5" );                          \
+     (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"            \
+          "lgr %0,%%r2"                                                              \
+         : "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" );  \
+     (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"                                               \
+          "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)                                \
+          : : "cc", "0", "1", "2", "3", "4", "5" );                          \
+     (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"                                               \
+          "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)                                \
+          : : "cc", "0", "1", "2", "3", "4", "5" );                          \
+     (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"                           \
+          "lr %0,%%r2"                                                       \
+         : "=&a" (__offset) : : "cc", "0", "1", "2", "3", "4", "5", "12" );  \
+     (int *) (__builtin_thread_pointer() + __offset); })
+# endif
+
 #else
 # error "No support for this architecture so far."
 #endif