qiurui
/
glibc
mirror of git://sourceware.org/git/glibc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update. 

* elf/tst-tls1.c (main): Add complete set of tests.  Split
	architecture specific definitions from the actual test code.
This commit is contained in:
Ulrich Drepper 2002-02-10 09:15:59 +00:00
parent 32083fb888
commit 27cd32989b
2 changed files with 110 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,5 +1,8 @@
2002-02-10 Ulrich Drepper <drepper@redhat.com> 2002-02-10 Ulrich Drepper <drepper@redhat.com>
* elf/tst-tls1.c (main): Add complete set of tests. Split
architecture specific definitions from the actual test code.
* po/tr.po: Update from translation team. * po/tr.po: Update from translation team.
2002-02-09 Ulrich Drepper <drepper@redhat.com> 2002-02-09 Ulrich Drepper <drepper@redhat.com>

158
elf/tst-tls1.c
View File

@ -6,14 +6,8 @@
/* XXX Until gcc gets told how to define and use thread-local /* XXX Until gcc gets told how to define and use thread-local
variables we will have to resort to use asms. */ variables we will have to resort to use asms. */
//asm (".tls_common foo,4,4"); asm (".tls_common foo,4,4");
asm (".section \".tdata\", \"awT\", @progbits\n\t" asm (".tls_common bar,4,4");
".align 4\n\t"
".globl foo\n"
"foo:\t.long 0\n\t"
".globl bar\n"
"bar:\t.long 0\n\t"
".previous");
int int
@ -21,59 +15,121 @@ main (void)
{ {
#ifdef USE_TLS #ifdef USE_TLS
int result = 0; int result = 0;
int a, b; int *ap, *bp;
/* XXX Each architecture must have its own asm for now. */ /* XXX Each architecture must have its own asm for now. */
# ifdef __i386__ # ifdef __i386__
/* Set the variable using the local exec model. */ # define TLS_LE(x) \
puts ("set bar to 1 (LE)"); ({ int *__l; \
asm ("movl %gs:0,%eax\n\t" asm ("movl %%gs:0,%0\n\t" \
"subl $bar@tpoff,%eax\n\t" "subl $" #x "@tpoff,%0" \
"movl $1,(%eax)"); : "=r" (__l)); \
__l; })
#if 0 #define TLS_IE(x) \
// XXX Doesn't work yet; no runtime relocations. ({ int *__l, __b; \
fputs ("get sum of foo and bar (IE)", stdout); asm ("call 1f\n\t" \
asm ("call 1f\n\t" ".subsection 1\n" \
".subsection 1\n" "1:\tmovl (%%esp), %%ebx\n\t" \
"1:\tmovl (%%esp), %%ebx\n\t" "ret\n\t" \
"ret\n\t" ".previous\n\t" \
".previous\n\t" "addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" "movl %%gs:0,%0\n\t" \
"movl %%gs:0,%%eax\n\t" "subl " #x "@gottpoff(%%ebx),%0" \
"movl %%eax,%%edx\n\t" : "=r" (__l), "=&b" (__b)); \
"addl foo@gottpoff(%%ebx),%%eax\n\t" __l; })
"addl bar@gottpoff(%%ebx),%%eax\n\t"
"movl (%%eax), %0\n\t"
"addl (%%edx), %0"
: "=a" (a), "=&b" (b));
printf (" = %d\n", a);
result |= a != 1;
#endif
fputs ("get sum of foo and bar (GD)", stdout); #define TLS_LD(x) \
asm ("call 1f\n\t" ({ int *__l, __b; \
".subsection 1\n" asm ("call 1f\n\t" \
"1:\tmovl (%%esp), %%ebx\n\t" ".subsection 1\n" \
"ret\n\t" "1:\tmovl (%%esp), %%ebx\n\t" \
".previous\n\t" "ret\n\t" \
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" ".previous\n\t" \
"leal foo@tlsgd(%%ebx),%%eax\n\t" "addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
"call ___tls_get_addr@plt\n\t" "leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
"nop\n\t" "call ___tls_get_addr@plt\n\t" \
"movl (%%eax), %%edx\n\t" "leal " #x "@dtpoff(%%eax), %%eax" \
"leal bar@tlsgd(%%ebx),%%eax\n\t" : "=a" (__l), "=&b" (__b)); \
"call ___tls_get_addr@plt\n\t" __l; })
"nop\n\t"
"addl (%%eax), %%edx\n\t" #define TLS_GD(x) \
: "=&a" (a), "=d" (b)); ({ int *__l, __b; \
printf (" = %d\n", b); asm ("call 1f\n\t" \
result |= b != 1; ".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" \
: "=a" (__l), "=&b" (__b)); \
__l; })
# else # else
# error "No support for this architecture so far." # error "No support for this architecture so far."
# endif # endif
/* Set the variable using the local exec model. */
puts ("set bar to 1 (LE)");
ap = TLS_LE (bar);
*ap = 1;
/* Get variables using initial exec model. */
fputs ("get sum of foo and bar (IE)", stdout);
ap = TLS_IE (foo);
bp = TLS_IE (bar);
printf (" = %d\n", *ap + *bp);
result |= *ap + *bp != 1;
if (*ap != 0)
{
printf ("foo = %d\n", *ap);
result = 1;
}
if (*bp != 1)
{
printf ("bar = %d\n", *bp);
result = 1;
}
/* Get variables using local dynamic model. */
fputs ("get sum of foo and bar (LD)", stdout);
ap = TLS_LD (foo);
bp = TLS_LD (bar);
printf (" = %d\n", *ap + *bp);
result |= *ap + *bp != 1;
if (*ap != 0)
{
printf ("foo = %d\n", *ap);
result = 1;
}
if (*bp != 1)
{
printf ("bar = %d\n", *bp);
result = 1;
}
/* Get variables using generic dynamic model. */
fputs ("get sum of foo and bar (GD)", stdout);
ap = TLS_GD (foo);
bp = TLS_GD (bar);
printf (" = %d\n", *ap + *bp);
result |= *ap + *bp != 1;
if (*ap != 0)
{
printf ("foo = %d\n", *ap);
result = 1;
}
if (*bp != 1)
{
printf ("bar = %d\n", *bp);
result = 1;
}
return result; return result;
#else #else
return 0; return 0;