mirror of
https://sourceware.org/git/glibc.git
synced 2025-08-08 17:42:12 +03:00
Update.
2003-01-27 Martin Schwidefsky <schwidefsky@de.ibm.com> * elf/elf.h: Add new s390 relocs. * elf/tls-macros.h: Add s390 versions. * sysdeps/s390/Versions [GLIBC_2.3] (ld): Export __tls_get_offset. * sysdeps/s390/dl-tls.h: New file. * sysdeps/s390/libc-tls.c: New file. * sysdeps/s390/s390-32/dl-machine.h (elf_machine_type_class): Add TLS relocs for class PLT. (elf_machine_rela): Handle TLS relocs. * sysdeps/s390/s390-64/dl-machine.h: Likewise. * sysdeps/s390/s390-32/elf/configure.in: Add TLS check. * sysdeps/s390/s390-64/elf/configure.in: Likewise. * sysdeps/unix/sysv/linux/s390/s390-32/clone.S: Add support for CLONE_CHILD_*TID flags. * sysdeps/unix/sysv/linux/s390/s390-64/clone.S: Likewise. * sysdeps/unix/sysv/linux/s390/s390-64/mmap.S: Use branch with 32 bit offset. * sysdeps/unix/sysv/linux/s390/s390-64/socket.S: Likewise. * sysdeps/unix/sysv/linux/s390/s390-64/syscall.S: Likewise. * sysdeps/unix/sysv/linux/s390/s390-32/sysdep.S (__syscall_error): Support USE___THREAD. Define RTLD_PRIVATE_ERRNO variant. * sysdeps/unix/sysv/linux/s390/s390-64/sysdep.S (__syscall_error): Likewise. * sysdeps/unix/sysv/linux/s390/s390-32/sysdep.h: (SYSCALL_ERROR_LABEL): Move define next to SYSCALL_ERROR_HANDLER. (SYSCALL_ERROR_HANDLER): Add USE___THREAD and RTLD_PRIVATE_ERRNO variants. * sysdeps/unix/sysv/linux/s390/s390-64/sysdep.h: (SYSCALL_ERROR_LABEL): Move define next to SYSCALL_ERROR_HANDLER. Use direct branch to syscall_error for !PIC and PIC && !_LIBC_REENTRANT. (SYSCALL_ERROR_HANDLER): Add USE___THREAD and RTLD_PRIVATE_ERRNO variants.
This commit is contained in:
73
sysdeps/s390/dl-tls.h
Normal file
73
sysdeps/s390/dl-tls.h
Normal file
@@ -0,0 +1,73 @@
|
||||
/* Thread-local storage handling in the ELF dynamic linker. s390 version.
|
||||
Copyright (C) 2003 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
|
||||
/* Type used for the representation of TLS information in the GOT. */
|
||||
typedef struct
|
||||
{
|
||||
unsigned long int ti_module;
|
||||
unsigned long int ti_offset;
|
||||
} tls_index;
|
||||
|
||||
|
||||
#ifdef SHARED
|
||||
/* This is the prototype for the GNU version. */
|
||||
extern void *__tls_get_addr (tls_index *ti) attribute_hidden;
|
||||
extern unsigned long __tls_get_offset (unsigned long got_offset);
|
||||
|
||||
/* The special thing about the s390 TLS ABI is that we do not have the
|
||||
standard __tls_get_addr function but the __tls_get_offset function
|
||||
which differs in two important aspects:
|
||||
1) __tls_get_offset gets a got offset instead of a pointer to the
|
||||
tls_index structure
|
||||
2) __tls_get_offset returns the offset of the requested variable to
|
||||
the thread descriptor instead of a pointer to the variable.
|
||||
*/
|
||||
#if defined __s390x__
|
||||
asm("\n\
|
||||
.text\n\
|
||||
.globl __tls_get_offset\n\
|
||||
.type __tls_get_offset, @function\n\
|
||||
.align 4\n\
|
||||
__tls_get_offset:\n\
|
||||
la %r2,0(%r2,%r12)\n\
|
||||
jg __tls_get_addr\n\
|
||||
");
|
||||
#elif defined __s390__
|
||||
asm("\n\
|
||||
.text\n\
|
||||
.globl __tls_get_offset\n\
|
||||
.type __tls_get_offset, @function\n\
|
||||
.align 4\n\
|
||||
__tls_get_offset:\n\
|
||||
basr %r3,0\n\
|
||||
0: la %r2,0(%r2,%r12)\n\
|
||||
l %r4,1f-0b(%r3)\n\
|
||||
b 0(%r4,%r3)\n\
|
||||
1: .long __tls_get_addr - 0b\n\
|
||||
");
|
||||
#endif
|
||||
|
||||
#define GET_ADDR_OFFSET \
|
||||
(ti->ti_offset - (unsigned long) __builtin_thread_pointer ())
|
||||
|
||||
#define __TLS_GET_ADDR(__ti) \
|
||||
(__tls_get_addr(__ti) + (unsigned long) __builtin_thread_pointer ())
|
||||
|
||||
#endif
|
Reference in New Issue
Block a user