AuroraMiddleware/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2024-11-26 06:50:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update.

Browse Source 
* elf/tls-macros.h: Add IA-64 definitions.
	Patch by Ian Wienand <ianw@gelato.unsw.edu.au>.
This commit is contained in:
Ulrich Drepper 2002-11-21 03:06:21 +00:00
parent d84e7efa31
commit eec62f42bb
2 changed files with 67 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,5 +1,8 @@
2002-11-20 Ulrich Drepper <drepper@redhat.com> 2002-11-20 Ulrich Drepper <drepper@redhat.com>
* elf/tls-macros.h: Add IA-64 definitions.
Patch by Ian Wienand <ianw@gelato.unsw.edu.au>.
* iconv/Makefile (tests): Add tst-iconv4. * iconv/Makefile (tests): Add tst-iconv4.
* iconv/tst-iconv4.c: New file. * iconv/tst-iconv4.c: New file.

80
elf/tls-macros.h
View File

@ -215,29 +215,77 @@
register void *__gp __asm__("$29"); register void *__gp __asm__("$29");
# define TLS_LE(x) \ # define TLS_LE(x) \
({ int *__l; \ ({ int *__l; \
asm ("call_pal 158\n\tlda $0," #x "($0)\t\t!tprel" : "=v"(__l)); \ asm ("call_pal 158\n\tlda $0," #x "($0)\t\t!tprel" : "=v"(__l)); \
__l; }) __l; })
# define TLS_IE(x) \ # define TLS_IE(x) \
({ char *__tp; unsigned long __o; \ ({ char *__tp; unsigned long __o; \
asm ("call_pal 158\n\tldq %1," #x "($gp)\t\t!gottprel" \ asm ("call_pal 158\n\tldq %1," #x "($gp)\t\t!gottprel" \
: "=v"(__tp), "=r"(__o) : "r"(__gp)); \ : "=v"(__tp), "=r"(__o) : "r"(__gp)); \
(int *)(__tp + __o); }) (int *)(__tp + __o); })
# define TLS_LD(x) \ # define TLS_LD(x) \
({ extern void *__tls_get_addr(void *); int *__l; void *__i; \ ({ extern void *__tls_get_addr(void *); int *__l; void *__i; \
asm ("lda %0," #x "($gp)\t\t!tlsldm" : "=r" (__i) : "r"(__gp)); \ asm ("lda %0," #x "($gp)\t\t!tlsldm" : "=r" (__i) : "r"(__gp)); \
__i = __tls_get_addr(__i); \ __i = __tls_get_addr(__i); \
asm ("lda %0, " #x "(%1)\t\t!dtprel" : "=r"(__l) : "r"(__i)); \ asm ("lda %0, " #x "(%1)\t\t!dtprel" : "=r"(__l) : "r"(__i)); \
__l; }) __l; })
# define TLS_GD(x) \ # define TLS_GD(x) \
({ extern void *__tls_get_addr(void *); void *__i; \ ({ extern void *__tls_get_addr(void *); void *__i; \
asm ("lda %0," #x "($gp)\t\t!tlsgd" : "=r" (__i) : "r"(__gp)); \ asm ("lda %0," #x "($gp)\t\t!tlsgd" : "=r" (__i) : "r"(__gp)); \
(int *) __tls_get_addr(__i); }) (int *) __tls_get_addr(__i); })
#elif defined __ia64__
# define TLS_LE(x) \
({ void *__l; \
asm ("ld8 r2=tp\n\t" \
";;\n\t" \
"addl %0=@tpre1(" #x "),r2\n\t" \
: "=r" (__l) : : "r2" ); __l; })
# define TLS_IE(x) \
({ void *__l; \
asm ("addl r16=@ltoff(@tprel(" #x ")),gp\n\t" \
";;\n\t" \
"ld8 r17=[r16]\n\t" \
";;\n\t" \
"add %0=tp,r17\n\t" \
: "=r" (__l) : : "r16", "r17" ); __l; })
# define TLS_LD(x) \
({ void *__l; \
asm ("mov loc0=gp\n\t" \
"addl r16=@ltoff(@dtpmod(" #x ")),gp\n\t" \
"addl out1=@dtprel(" #x "),r0\n\t" \
";;\n\t" \
"ld8 out0=[r16]\n\t" \
"br.callrp=__tls_get_addr" \
";;\n\t" \
"mov gp=loc0\n\t" \
"mov %0=r8\n\t" \
: "=r" (__l) : : "r16" , "loc0" , "out0" , "out1" , "r8" ); \
__l; })
# define TLS_GD(x) \
({ void *__l; \
asm ("mov loc0=gp\n\t" \
"addl r16=@ltoff(@dtpmod(" #x ")),gp\n\t" \
"addl r17=@ltoff(@dtprel(" #x ")),gp\n\t" \
";;\n\t" \
"ld8 out0=[r16]\n\t" \
"ld8 out1=[r17]\n\t" \
"br.callrp=__tls_get_addr" \
";;\n\t" \
"mov gp=loc0\n\t" \
"mov %0=r8\n\t" \
: "=r" (__l) : : "r16", "r17" , "loc0" , "out0", "out1" , "r8"); \
__l; })
#else #else
# error "No support for this architecture so far." # error "No support for this architecture so far."
#endif #endif