mirror of
https://sourceware.org/git/glibc.git
synced 2024-12-26 12:41:05 +00:00
aff4519d38
2003-01-11 Jim Meyering <jim@meyering.net> * io/ftw.c [HAVE_CONFIG_H]: Include <config.h>. [HAVE_SYS_PARAM_H || _LIBC]: Guard inclusion of <sys/param.h>. Include <sys/stat.h>, not <include/sys/stat.h>, if !_LIBC. [!_LIBC] (__chdir, __closedir, __fchdir, __getcwd, __opendir): Define. [!_LIBC] (__readdir64, __tdestroy, __tfind, __tsearch): Define. [!_LIBC] (internal_function, dirent64, MAX): Define. (__set_errno): Define if not already defined. (open_dir_stream): When FTW_CHDIR is enabled, invoke opendir on the basename, not the entire file name. (process_entry): When FTW_CHDIR is enabled, invoke XSTAT or LXSTAT on the basename, not the entire file name. 2003-01-12 Ulrich Drepper <drepper@redhat.com> * string/tester.c (test_strcpy): Disable last added strcpy until it is fixed. 2003-01-11 Philip Blundell <philb@gnu.org> * sysdeps/unix/sysv/linux/arm/socket.S: Add cancellation support. 2003-01-11 Andreas Schwab <schwab@suse.de> * Makerules: Add vpath for %.dynsym and %.so so that the implicit rule chaining for check-abi works. 2003-01-11 Kaz Kojima <kkojima@rr.iij4u.or.jp> * sysdeps/unix/sysv/linux/sh/sysdep.h (SYSCALL_ERROR_HANDLER): Add non-PIC case. 2003-01-11 Jakub Jelinek <jakub@redhat.com> * elf/tls-macros.h [__ia64__] (__TLS_CALL_CLOBBERS): Define. [__ia64__] (TLS_LE, TLS_IE): Fix typos. Add ;; at start of asm if gp is used early. [__ia64__] (TLS_LD, TLS_GD): Likewise. Use __TLS_CALL_CLOBBERS. * elf/Makefile ($(objpfx)tst-tlsmod5.so, $(objpfx)tst-tlsmod6.so): Ensure libc.so in DT_NEEDED. * sysdeps/alpha/dl-machine.h (elf_machine_rela): Move CHECK_STATIC_TLS before l_tls_offset use. * sysdeps/i386/dl-machine.h (elf_machine_rel, elf_machine_rela): Likewise. * sysdeps/sh/dl-machine.h (elf_machine_rela): Likewise. * sysdeps/generic/dl-tls.c (_dl_allocate_tls_storage) [TLS_DTV_AT_TP]: Allocate TLS_PRE_TCB_SIZE bytes below result. (_dl_deallocate_tls) [TLS_DTV_AT_TP]: Adjust before freeing. * sysdeps/generic/libc-tls.c (__libc_setup_tls): If TLS_INIT_TP_EXPENSIVE is not defined, allocate even if no PT_TLS segment has been found. If TLS_DTV_AT_TP, allocate TLS_PRE_TCB_SIZE bytes below result and add tcb_offset to memsz. * sysdeps/ia64/dl-tls.h (__tls_get_addr): New prototype. * sysdeps/ia64/dl-machine.h: Include tls.h. (elf_machine_type_class): Return ELF_RTYPE_CLASS_PLT for TLS relocs too. (elf_machine_rela): Assume if sym_map != NULL sym is non-NULL too. Handle R_IA64_DTPMOD*, R_IA64_DTPREL* and R_IA64_TPREL* relocations. * sysdeps/ia64/libc-tls.c: New file. 2003-01-10 Steven Munroe <sjmunroe@us.ibm.com> * sysdeps/powerpc/powerpc64/sysdep.h (PSEUDO_RET): Add branch hit. * sysdeps/unix/sysv/linux/powerpc/bits/stat.h (STAT_VER_LINUX): Fix type. Move definition out of #if. * sysdeps/unix/sysv/linux/powerpc/powerpc64/ftruncate64.c: New file. * sysdeps/unix/sysv/linux/powerpc/powerpc64/pread.c: New file. * sysdeps/unix/sysv/linux/powerpc/powerpc64/pread64.c: New file. * sysdeps/unix/sysv/linux/powerpc/powerpc64/pwrite.c: New file. * sysdeps/unix/sysv/linux/powerpc/powerpc64/pwrite64.c: New file. * sysdeps/unix/sysv/linux/powerpc/powerpc64/socket.S: Add cancellation support. * sysdeps/unix/sysv/linux/powerpc/powerpc64/syscalls.list: Remove ftruncate64, pread64, pwrite64, truncate64 entries. * sysdeps/unix/sysv/linux/powerpc/powerpc64/sysdep.h (INLINE_SYSCALL): New version that supports function call like syscalls. Add __builtin_expect. (LOADARGS_n): Add argument size safety checks. (INTERNAL_SYSCALL): New Macro. * sysdeps/unix/sysv/linux/powerpc/powerpc64/truncate64.c: New file. * sysdeps/unix/sysv/linux/powerpc/sys/procfs.h [__PPC_ELF_H]: Avoid redefinition of elf_fpreg_t and elf_fpregset_t. 2003-01-12 Ulrich Drepper <drepper@redhat.com> * elf/dl-close.c (_dl_close): Add several asserts. Correct and simplify test for unloading. If loader of a DSO is unloaded do not use its scope anymore. Fall back to own scope and adjust opencounts. Fix several comments. * elf/dl-deps.c (_dl_map_object_deps): Always allocate memory for the l_searchlist, not only for l_initfini. * elf/dl-lookup.c (add_dependencies): Avoid creating relocation dependencies if objects cannot be removed. Remove object with the definition as not unloadable if necessary. * elf/reldep6.c: Create relocation dependency before closing the first module. 2003-01-10 Guido Günther <agx@sigxcpu.org> * elf/Makefile: Add rules to build and run reldep9 test. * elf/reldep9.c: New file. * elf/reldep9mod1.c: New file. * elf/reldep9mod2.c: New file. * elf/reldep9mod3.c: New file. 2003-01-09 Jakub Jelinek <jakub@redhat.com> * elf/Makefile: Add rules to build and run nodelete2 test. * elf/nodelete2.c: New file. * elf/nodel2mod1.c: New file. * elf/nodel2mod2.c: New file. * elf/nodel2mod3.c: New file. 2003-01-09 Jakub Jelinek <jakub@redhat.com>
304 lines
9.8 KiB
C
304 lines
9.8 KiB
C
/* Macros to support TLS testing in times of missing compiler support. */
|
|
|
|
#define COMMON_INT_DEF(x) \
|
|
asm (".tls_common " #x ",4,4")
|
|
/* XXX Until we get compiler support we don't need declarations. */
|
|
#define COMMON_INT_DECL(x)
|
|
|
|
/* XXX This definition will probably be machine specific, too. */
|
|
#define VAR_INT_DEF(x) \
|
|
asm (".section .tdata\n\t" \
|
|
".globl " #x "\n" \
|
|
#x ":\t.long 0\n\t" \
|
|
".size " #x ",4\n\t" \
|
|
".previous")
|
|
/* XXX Until we get compiler support we don't need declarations. */
|
|
#define VAR_INT_DECL(x)
|
|
|
|
|
|
/* XXX Each architecture must have its own asm for now. */
|
|
#ifdef __i386__
|
|
# define TLS_LE(x) \
|
|
({ int *__l; \
|
|
asm ("movl %%gs:0,%0\n\t" \
|
|
"subl $" #x "@tpoff,%0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
|
|
# ifdef PIC
|
|
# define TLS_IE(x) \
|
|
({ int *__l; \
|
|
asm ("movl %%gs:0,%0\n\t" \
|
|
"subl " #x "@gottpoff(%%ebx),%0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
# else
|
|
# define TLS_IE(x) \
|
|
({ int *__l, __b; \
|
|
asm ("call 1f\n\t" \
|
|
".subsection 1\n" \
|
|
"1:\tmovl (%%esp), %%ebx\n\t" \
|
|
"ret\n\t" \
|
|
".previous\n\t" \
|
|
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
|
|
"movl %%gs:0,%0\n\t" \
|
|
"subl " #x "@gottpoff(%%ebx),%0" \
|
|
: "=r" (__l), "=&b" (__b)); \
|
|
__l; })
|
|
# endif
|
|
|
|
# ifdef PIC
|
|
# define TLS_LD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm ("leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"leal " #x "@dtpoff(%%eax), %%eax" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# else
|
|
# define TLS_LD(x) \
|
|
({ int *__l, __b, __c, __d; \
|
|
asm ("call 1f\n\t" \
|
|
".subsection 1\n" \
|
|
"1:\tmovl (%%esp), %%ebx\n\t" \
|
|
"ret\n\t" \
|
|
".previous\n\t" \
|
|
"addl $_GLOBAL_OFFSET_TABLE_, %%ebx\n\t" \
|
|
"leal " #x "@tlsldm(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"leal " #x "@dtpoff(%%eax), %%eax" \
|
|
: "=a" (__l), "=&b" (__b), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# endif
|
|
|
|
# ifdef PIC
|
|
# define TLS_GD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm ("leal " #x "@tlsgd(%%ebx),%%eax\n\t" \
|
|
"call ___tls_get_addr@plt\n\t" \
|
|
"nop" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# else
|
|
# define TLS_GD(x) \
|
|
({ int *__l, __b, __c, __d; \
|
|
asm ("call 1f\n\t" \
|
|
".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), "=&c" (__c), "=&d" (__d)); \
|
|
__l; })
|
|
# endif
|
|
|
|
#elif defined __x86_64__
|
|
|
|
# define TLS_LE(x) \
|
|
({ int *__l; \
|
|
asm ("movq %%fs:0,%0\n\t" \
|
|
"leaq " #x "@tpoff(%0), %0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ int *__l; \
|
|
asm ("movq %%fs:0,%0\n\t" \
|
|
"addq " #x "@gottpoff(%%rip),%0" \
|
|
: "=r" (__l)); \
|
|
__l; })
|
|
|
|
# define TLS_LD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm ("leaq " #x "@tlsld(%%rip),%%rdi\n\t" \
|
|
"call __tls_get_addr@plt\n\t" \
|
|
"leaq " #x "@dtpoff(%%rax), %%rax" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d) \
|
|
: : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ int *__l, __c, __d; \
|
|
asm (".byte 0x66\n\t" \
|
|
"leaq " #x "@tlsgd(%%rip),%%rdi\n\t" \
|
|
".word 0x6666\n\t" \
|
|
"rex64\n\t" \
|
|
"call __tls_get_addr@plt" \
|
|
: "=a" (__l), "=&c" (__c), "=&d" (__d) \
|
|
: : "rdi", "rsi", "r8", "r9", "r10", "r11"); \
|
|
__l; })
|
|
|
|
#elif defined __sh__
|
|
|
|
# define TLS_LE(x) \
|
|
({ int *__l; void *__tp; \
|
|
asm ("stc gbr,%1\n\t" \
|
|
"mov.l 1f,%0\n\t" \
|
|
"bra 2f\n\t" \
|
|
" add %1,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@tpoff\n\t" \
|
|
"2:" \
|
|
: "=r" (__l), "=r" (__tp)); \
|
|
__l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ int *__l; void *__tp; \
|
|
asm ("mova 0f,r0\n\t" \
|
|
"mov.l 0f,r12\n\t" \
|
|
"add r0,r12\n\t" \
|
|
"mov.l 1f,r0\n\t" \
|
|
"stc gbr,%1\n\t" \
|
|
"mov.l @(r0,r12),%0\n\t" \
|
|
"bra 2f\n\t" \
|
|
" add %1,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@gottpoff\n\t" \
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
"2:" \
|
|
: "=r" (__l), "=r" (__tp) : : "r0", "r12"); \
|
|
__l; })
|
|
|
|
# define TLS_LD(x) \
|
|
({ int *__l; \
|
|
asm ("mova 0f,r0\n\t" \
|
|
"mov.l 0f,r12\n\t" \
|
|
"add r0,r12\n\t" \
|
|
"mov.l 1f,r4\n\t" \
|
|
"mova 2f,r0\n\t" \
|
|
"mov.l 2f,r1\n\t" \
|
|
"add r0,r1\n\t" \
|
|
"jsr @r1\n\t" \
|
|
" add r12,r4\n\t" \
|
|
"bra 4f\n\t" \
|
|
" nop\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@tlsldm\n\t" \
|
|
"2: .long __tls_get_addr@plt\n\t" \
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
"4: mov.l 3f,%0\n\t" \
|
|
"bra 5f\n\t" \
|
|
" add r0,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"3: .long " #x "@dtpoff\n\t" \
|
|
"5:" \
|
|
: "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
|
|
"r12", "pr", "t"); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ int *__l; \
|
|
asm ("mova 0f,r0\n\t" \
|
|
"mov.l 0f,r12\n\t" \
|
|
"add r0,r12\n\t" \
|
|
"mov.l 1f,r4\n\t" \
|
|
"mova 2f,r0\n\t" \
|
|
"mov.l 2f,r1\n\t" \
|
|
"add r0,r1\n\t" \
|
|
"jsr @r1\n\t" \
|
|
" add r12,r4\n\t" \
|
|
"bra 3f\n\t" \
|
|
" mov r0,%0\n\t" \
|
|
".align 2\n\t" \
|
|
"1: .long " #x "@tlsgd\n\t" \
|
|
"2: .long __tls_get_addr@plt\n\t" \
|
|
"0: .long _GLOBAL_OFFSET_TABLE_\n\t" \
|
|
"3:" \
|
|
: "=r" (__l) : : "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
|
|
"r12", "pr", "t"); \
|
|
__l; })
|
|
|
|
#elif defined __alpha__
|
|
|
|
register void *__gp __asm__("$29");
|
|
|
|
# define TLS_LE(x) \
|
|
({ int *__l; \
|
|
asm ("call_pal 158\n\tlda $0," #x "($0)\t\t!tprel" : "=v"(__l)); \
|
|
__l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ char *__tp; unsigned long __o; \
|
|
asm ("call_pal 158\n\tldq %1," #x "($gp)\t\t!gottprel" \
|
|
: "=v"(__tp), "=r"(__o) : "r"(__gp)); \
|
|
(int *)(__tp + __o); })
|
|
|
|
# define TLS_LD(x) \
|
|
({ extern void *__tls_get_addr(void *); int *__l; void *__i; \
|
|
asm ("lda %0," #x "($gp)\t\t!tlsldm" : "=r" (__i) : "r"(__gp)); \
|
|
__i = __tls_get_addr(__i); \
|
|
asm ("lda %0, " #x "(%1)\t\t!dtprel" : "=r"(__l) : "r"(__i)); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ extern void *__tls_get_addr(void *); void *__i; \
|
|
asm ("lda %0," #x "($gp)\t\t!tlsgd" : "=r" (__i) : "r"(__gp)); \
|
|
(int *) __tls_get_addr(__i); })
|
|
|
|
|
|
#elif defined __ia64__
|
|
|
|
# define TLS_LE(x) \
|
|
({ void *__l; \
|
|
asm ("mov r2=r13\n\t" \
|
|
";;\n\t" \
|
|
"addl %0=@tprel(" #x "),r2\n\t" \
|
|
: "=r" (__l) : : "r2" ); __l; })
|
|
|
|
# define TLS_IE(x) \
|
|
({ void *__l; \
|
|
asm (";;\n\t" \
|
|
"addl r16=@ltoff(@tprel(" #x ")),gp\n\t" \
|
|
";;\n\t" \
|
|
"ld8 r17=[r16]\n\t" \
|
|
";;\n\t" \
|
|
"add %0=r13,r17\n\t" \
|
|
: "=r" (__l) : : "r16", "r17" ); __l; })
|
|
|
|
# define __TLS_CALL_CLOBBERS \
|
|
"r2", "r3", "r8", "r9", "r10", "r11", "r14", "r15", "r16", "r17", \
|
|
"r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", \
|
|
"r27", "r28", "r29", "r30", "r31", \
|
|
"p6", "p7", "p8", "p9", "p10", "p11", "p12", "p13", "p14", "p15", \
|
|
"f6", "f7", "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \
|
|
"b6", "b7", \
|
|
"out0", "out1", "out2", "out3", "out4", "out5", "out6", "out7"
|
|
|
|
# define TLS_LD(x) \
|
|
({ void *__l; \
|
|
asm (";;\n\t" \
|
|
"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.call.sptk.many b0=__tls_get_addr" \
|
|
";;\n\t" \
|
|
"mov gp=loc0\n\t" \
|
|
"mov %0=r8\n\t" \
|
|
: "=r" (__l) : : "loc0", __TLS_CALL_CLOBBERS); \
|
|
__l; })
|
|
|
|
# define TLS_GD(x) \
|
|
({ void *__l; \
|
|
asm (";;\n\t" \
|
|
"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.call.sptk.many b0=__tls_get_addr" \
|
|
";;\n\t" \
|
|
"mov gp=loc0\n\t" \
|
|
"mov %0=r8\n\t" \
|
|
: "=r" (__l) : : "loc0", __TLS_CALL_CLOBBERS); \
|
|
__l; })
|
|
|
|
#else
|
|
# error "No support for this architecture so far."
|
|
#endif
|