Update.

2002-07-23  Ulrich Drepper  <drepper@redhat.com>

	* sysdeps/generic/libc-tls.c: New file.
	* csu/Makefile (routines): Add libc-tls.
	(static-only-routines): Add libc-tls.
	* elf/dl-support.c (_dl_phdr): New variable.
	(_dl_phnum): New variable.
	(_dl_aux_init): Initialize _dl_phdr and _dl_phnum from aux vector.
	* sysdeps/generic/libc-start.c (__libc_start_main): Reorganize code
	for !SHARED.  First look through auxiliary vector.  If TLS always
	call __pthread_initialize_minimal.

	* sysdeps/generic/dl-tls.c (_dl_allocate_tls): Make sure size argument
	in mmap call is never zero.

8 files changed, 236 insertions, 13 deletions

diff --git a/ChangeLog b/ChangeLog
index d6980b0..b4795a8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+2002-07-23  Ulrich Drepper  <drepper@redhat.com>
+
+	* sysdeps/generic/libc-tls.c: New file.
+	* csu/Makefile (routines): Add libc-tls.
+	(static-only-routines): Add libc-tls.
+	* elf/dl-support.c (_dl_phdr): New variable.
+	(_dl_phnum): New variable.
+	(_dl_aux_init): Initialize _dl_phdr and _dl_phnum from aux vector.
+	* sysdeps/generic/libc-start.c (__libc_start_main): Reorganize code
+	for !SHARED.  First look through auxiliary vector.  If TLS always
+	call __pthread_initialize_minimal.
+
+	* sysdeps/generic/dl-tls.c (_dl_allocate_tls): Make sure size argument
+	in mmap call is never zero.
+
 2002-07-23  Andreas Jaeger  <aj@suse.de>
 
 	* sysdeps/x86_64/fpu/s_copysign.S: Use optimized version.
diff --git a/csu/Makefile b/csu/Makefile
index 994e2b2..ca8dbbb 100644
--- a/csu/Makefile
+++ b/csu/Makefile
@@ -1,5 +1,5 @@
 # Makefile for csu code for GNU C library.
-# Copyright (C) 1995,96,97,98,99,2000,01 Free Software Foundation, Inc.
+# Copyright (C) 1995,96,97,98,99,2000,01,2002 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
@@ -26,7 +26,9 @@
 
 subdir := csu
 
-routines = init-first libc-start $(libc-init) sysdep version check_fds
+routines = init-first libc-start $(libc-init) sysdep version check_fds \
+	   libc-tls
+static-only-routines = libc-tls
 csu-dummies = $(filter-out $(start-installed-name),crt1.o Mcrt1.o)
 extra-objs = start.o gmon-start.o \
 	     $(start-installed-name) g$(start-installed-name) $(csu-dummies)
diff --git a/linuxthreads/ChangeLog b/linuxthreads/ChangeLog
index 3b87581..95feff2 100644
--- a/linuxthreads/ChangeLog
+++ b/linuxthreads/ChangeLog
@@ -1,6 +1,10 @@
 2002-07-22  Ulrich Drepper  <drepper@redhat.com>
 
-	* Makefile: Actually creat tst-signal.out file when running the test.
+	* pthread.c (__pthread_initialize_minimal): If !SHARED and TLS
+	call __libc_setup_tls first.
+	* Makefile: Actually create tst-signal.out file when running the test.
+	(tests): Add tststatic.
+	* Examples/tststatic.c: New file.
 
 2002-07-19  Ulrich Drepper  <drepper@redhat.com>
 
diff --git a/linuxthreads/Examples/tststatic.c b/linuxthreads/Examples/tststatic.c
new file mode 100644
index 0000000..421011a
--- /dev/null
+++ b/linuxthreads/Examples/tststatic.c
@@ -0,0 +1 @@
+#include "ex1.c"
diff --git a/linuxthreads/pthread.c b/linuxthreads/pthread.c
index 12ce38b..8bca63e 100644
--- a/linuxthreads/pthread.c
+++ b/linuxthreads/pthread.c
@@ -394,13 +394,26 @@ extern void *__dso_handle __attribute__ ((weak));
 #endif
 
 
+#if defined USE_TLS && !defined SHARED
+extern void __libc_setup_tls (size_t tcbsize, size_t tcbalign);
+#endif
+
+
 /* Do some minimal initialization which has to be done during the
    startup of the C library.  */
 void
 __pthread_initialize_minimal(void)
 {
 #ifdef USE_TLS
-  pthread_descr self = THREAD_SELF;
+  pthread_descr self;
+
+# ifndef SHARED
+  /* Unlike in the dynamically linked case the dynamic linker has not
+     taken care of initializing the TLS data structures.  */
+  __libc_setup_tls (TLS_TCB_SIZE, TLS_TCB_ALIGN);
+# endif
+
+  self = THREAD_SELF;
 
   /* The memory for the thread descriptor was allocated elsewhere as
      part of the TLS allocation.  We have to initialize the data
diff --git a/sysdeps/generic/dl-tls.c b/sysdeps/generic/dl-tls.c
index 0d6fcec..8877023 100644
--- a/sysdeps/generic/dl-tls.c
+++ b/sysdeps/generic/dl-tls.c
@@ -215,7 +215,7 @@ _dl_allocate_tls (void)
     GL(dl_zerofd) = _dl_sysdep_open_zero_fill ();
 #  define MAP_ANON 0
 # endif
-  result = __mmap (0, GL(dl_tls_static_size), PROT_READ|PROT_WRITE,
+  result = __mmap (0, GL(dl_tls_static_size) ?: 1, PROT_READ|PROT_WRITE,
 		   MAP_ANON|MAP_PRIVATE, _dl_zerofd, 0);
 
   /* We allocate a few more elements in the dtv than are needed for the
diff --git a/sysdeps/generic/libc-start.c b/sysdeps/generic/libc-start.c
index 4d17486..600136d 100644
--- a/sysdeps/generic/libc-start.c
+++ b/sysdeps/generic/libc-start.c
@@ -77,10 +77,23 @@ BP_SYM (__libc_start_main) (int (*main) (int, char **, char **),
   __libc_stack_end = stack_end;
 
 #ifndef SHARED
+# ifdef HAVE_AUX_VECTOR
+  /* First process the auxiliary vector since we need to find the
+     program header to locate an eventually present PT_TLS entry.  */
+  for (auxvec = (void *__unbounded *__unbounded) ubp_ev;
+       *auxvec != NULL; ++auxvec);
+  ++auxvec;
+  _dl_aux_init ((ElfW(auxv_t) *) auxvec);
+# endif
+
   /* Initialize the thread library at least a bit since the libgcc
      functions are using thread functions if these are available and
-     we need to setup errno.  */
+     we need to setup errno.  If there is no thread library and we
+     handle TLS the function is defined in the libc to initialized the
+     TLS handling.  */
+# ifndef TLS
   if (__pthread_initialize_minimal)
+# endif
     __pthread_initialize_minimal ();
 
   /* Some security at this point.  Prevent starting a SUID binary where
@@ -89,13 +102,6 @@ BP_SYM (__libc_start_main) (int (*main) (int, char **, char **),
      loader did the work already.  */
   if (__builtin_expect (__libc_enable_secure, 0))
     __libc_check_standard_fds ();
-
-# ifdef HAVE_AUX_VECTOR
-  for (auxvec = (void *__unbounded *__unbounded) ubp_ev;
-       *auxvec != NULL; ++auxvec);
-  ++auxvec;
-  _dl_aux_init ((ElfW(auxv_t) *) auxvec);
-# endif
 #endif
 
   /* Register the destructor of the dynamic linker if there is any.  */
diff --git a/sysdeps/generic/libc-tls.c b/sysdeps/generic/libc-tls.c
new file mode 100644
index 0000000..8c82040
--- /dev/null
+++ b/sysdeps/generic/libc-tls.c
@@ -0,0 +1,182 @@
+/* Initialization code for TLS in statically linked application.
+   Copyright (C) 2002 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.  */
+
+#include <ldsodefs.h>
+#include <tls.h>
+#include <unistd.h>
+
+
+#ifdef USE_TLS
+extern ElfW(Phdr) *_dl_phdr;
+extern size_t _dl_phnum;
+
+
+/* DTV with just one element plus overhead.  */
+static dtv_t static_dtv[3];
+
+
+static struct
+{
+  struct dtv_slotinfo_list si;
+  /* The dtv_slotinfo_list data structure does not include the actual
+     informatin since it is defined as an array of size zero.  We
+     define here the necessary entries.  Not that it is not important
+     whether there is padding or not since we will always access the
+     informatin through the 'si' element.  */
+  struct dtv_slotinfo info[2 + TLS_SLOTINFO_SURPLUS];
+} static_slotinfo;
+
+/* Fake link map for the application.  */
+static struct link_map static_map;
+
+
+void
+__libc_setup_tls (size_t tcbsize, size_t tcbalign)
+{
+  void *tlsblock;
+  size_t memsz = 0;
+  size_t filesz = 0;
+  off_t offset = 0;
+  size_t align = 0;
+  size_t max_align = tcbalign;
+  size_t loadaddr = ~0ul;
+  size_t tcb_offset;
+
+  /* Look through the TLS segment if there is any.  */
+  if (_dl_phdr != NULL)
+    {
+      ElfW(Phdr) *phdr = _dl_phdr;
+      size_t phnum = _dl_phnum;
+
+      while (phnum-- > 0)
+	if (phdr->p_type == PT_TLS)
+	  {
+	    /* Remember the values we need.  */
+	    memsz = phdr->p_memsz;
+	    filesz = phdr->p_filesz;
+	    offset = phdr->p_offset;
+	    align = phdr->p_align;
+	    if (phdr->p_align > max_align)
+	      max_align = phdr->p_align;
+	  }
+	else if (phdr->p_type == PT_LOAD)
+	  {
+	    /* We have to find the load address which is not easy.
+	       Look for the load segment with the lowest address.  */
+	    if (phdr->p_vaddr < loadaddr)
+	      loadaddr = phdr->p_type;
+	  }
+    }
+
+  if (memsz == 0 && tcbsize == 0)
+    /* We do not need a TLS block and no thread descriptor.  */
+    return;
+
+  /* We have to set up the TCB block which also (possibly) contains
+     'errno'.  Therefore we avoid 'malloc' which might touch 'errno'.
+     Instead we use 'sbrk' which would only uses 'errno' if it fails.
+     In this case we are right away out of memory and the user gets
+     what she/he deserves.  */
+# if TLS_TCB_AT_TP
+  tlsblock = __sbrk (roundup (memsz, tcbalign) + tcbsize + max_align);
+# elif TLS_DTV_AT_TP
+  tlsblock = __sbrk (roundup (tcbsize, align) + memsz + max_align);
+# else
+  /* In case a model with a different layout for the TCB and DTV
+     is defined add another #elif here and in the following #ifs.  */
+#  error "Either TLS_TCB_AT_TP or TLS_DTV_AT_TP must be defined"
+# endif
+
+  /* Align the TLS block.  */
+  tlsblock = (void *) (((uintptr_t) tlsblock + max_align - 1)
+		       & ~(max_align - 1));
+
+  /* Initialize the dtv.  [0] is the length, [1] the generation counter.  */
+  static_dtv[0].counter = 1;
+  // static_dtv[1].counter = 0;		would be needed if not already done
+
+  /* Initialize the TLS block.  */
+# if TLS_TCB_AT_TP
+  static_dtv[2].pointer = tlsblock;
+# elif TLS_DTV_AT_TP
+  tcb_offset = roundup (tcbsize, align);
+  static_dtv[2].pointer = (char *) tlsblock + tcb_offset;
+# else
+#  error "Either TLS_TCB_AT_TP or TLS_DTV_AT_TP must be defined"
+# endif
+  memset (__mempcpy (static_dtv[2].pointer, (char *) loadaddr + offset,
+		     filesz),
+	  '\0', memsz - filesz);
+
+  /* Install the pointer to the dtv.  */
+
+  /* Initialize the thread pointer.  */
+# if TLS_TCB_AT_TP
+  tcb_offset = roundup (memsz, tcbalign);
+
+  INSTALL_DTV ((char *) tlsblock + tcb_offset, static_dtv);
+
+  TLS_INIT_TP ((char *) tlsblock + tcb_offset);
+# elif TLS_DTV_AT_TP
+  INSTALL_DTV (tlsblock, static_dtv);
+  TLS_INIT_TP (tlsblock);
+# else
+#  error "Either TLS_TCB_AT_TP or TLS_DTV_AT_TP must be defined"
+# endif
+
+  /* We have to create a fake link map which normally would be created
+     by the dynamic linker.  It just has to have enough informatino to
+     make the TLS routines happy.  */
+  static_map.l_tls_align = align;
+  static_map.l_tls_blocksize = memsz;
+  static_map.l_tls_initimage_size = filesz;
+  static_map.l_tls_offset = offset;
+  static_map.l_type = lt_executable;
+  static_map.l_tls_modid = 1;
+
+  /* Create the slotinfo list.  */
+  static_slotinfo.si.len = 1;	/* Only one element.  */
+  // static_slotinfo.si.next = NULL;	already zero
+
+  static_slotinfo.si.slotinfo[1].gen = 0;
+  static_slotinfo.si.slotinfo[1].map = &static_map;
+
+  /* The slotinfo list.  Will be extended by the code doing dynamic
+     linking.  */
+  GL(dl_tls_max_dtv_idx) = 1;
+  GL(dl_tls_dtv_slotinfo_list) = &static_slotinfo.si;
+
+  /* That is the size of the TLS memory for this object.  */
+# if TLS_TCB_AT_TP
+  GL(dl_tls_static_size) = roundup (memsz, align ?: 1) + tcbsize;
+#else
+  GL(dl_tls_static_size) = roundup (memsz, align ?: 1);
+#endif
+}
+
+
+/* This is the minimal initialization function used when libpthread is
+   not used.  */
+void
+__attribute__ ((weak))
+__pthread_initialize_minimal (void)
+{
+  __libc_setup_tls (0, 1);
+}
+#endif