]> git.ipfire.org Git - thirdparty/glibc.git/blobdiff - sysdeps/mach/hurd/dl-sysdep.c
Fix typos.
[thirdparty/glibc.git] / sysdeps / mach / hurd / dl-sysdep.c
index 2495af4de977f355d71c4cb29761bbc3bae0aeb3..1788ede94e262bf3ac36bd1ccef27f182058e189 100644 (file)
@@ -1,21 +1,24 @@
 /* Operating system support for run-time dynamic linker.  Hurd version.
-   Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1995-2013 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 Library General Public License as
-   published by the Free Software Foundation; either version 2 of the
-   License, or (at your option) any later version.
+   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
-   Library General Public License for more details.
+   Lesser General Public License for more details.
 
-   You should have received a copy of the GNU Library General Public
-   License along with the GNU C Library; see the file COPYING.LIB.  If not,
-   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, see
+   <http://www.gnu.org/licenses/>.  */
+
+/* In the static library, this is all handled by dl-support.c
+   or by the vanilla definitions in the rest of the C library.  */
+#ifdef SHARED
 
 #include <hurd.h>
 #include <link.h>
 #include <fcntl.h>
 #include <stdlib.h>
 #include <sys/mman.h>
-#include <elf/ldsodefs.h>
+#include <ldsodefs.h>
 #include <sys/wait.h>
 #include <assert.h>
 #include <sysdep.h>
 #include <mach/mig_support.h>
 #include "hurdstartup.h"
-#include <mach/host_info.h>
-#include <stdio-common/_itoa.h>
+#include <hurd/lookup.h>
 #include <hurd/auth.h>
 #include <hurd/term.h>
 #include <stdarg.h>
 #include <ctype.h>
 #include <sys/stat.h>
+#include <sys/uio.h>
 
 #include <entry.h>
 #include <dl-machine.h>
@@ -46,25 +49,48 @@ extern void __mach_init (void);
 extern int _dl_argc;
 extern char **_dl_argv;
 extern char **_environ;
-extern void ENTRY_POINT (void);
 
-int __libc_enable_secure;
-int __libc_multiple_libcs;     /* Defining this here avoids the inclusion
+int __libc_enable_secure = 0;
+INTVARDEF(__libc_enable_secure)
+int __libc_multiple_libcs = 0; /* Defining this here avoids the inclusion
                                   of init-first.  */
-/* This variable containts the lowest stack address ever used.  */
+/* This variable contains the lowest stack address ever used.  */
 void *__libc_stack_end;
-unsigned long int _dl_hwcap_mask = HWCAP_IMPORTANT;
+
+#if HP_TIMING_AVAIL
+hp_timing_t _dl_cpuclock_offset;
+#endif
 
 
 struct hurd_startup_data *_dl_hurd_data;
 
-unsigned int __hurd_threadvar_max = _HURD_THREADVAR_MAX;
+/* This is used only within ld.so, via dl-minimal.c's __errno_location.  */
+#undef errno
+int errno attribute_hidden;
+
+/* Defining these variables here avoids the inclusion of hurdsig.c.  */
+unsigned long int __hurd_sigthread_stack_base;
+unsigned long int __hurd_sigthread_stack_end;
+unsigned long int *__hurd_sigthread_variables;
+
+/* Defining these variables here avoids the inclusion of init-first.c.
+   We need to provide temporary storage for the per-thread variables
+   of the main user thread here, since it is used for storing the
+   `errno' variable.  Note that this information is lost once we
+   relocate the dynamic linker.  */
 static unsigned long int threadvars[_HURD_THREADVAR_MAX];
 unsigned long int __hurd_threadvar_stack_offset
   = (unsigned long int) &threadvars;
 unsigned long int __hurd_threadvar_stack_mask;
 
+#define FMH defined(__i386__)
+#if ! FMH
+# define fmh()         ((void)0)
+# define unfmh()       ((void)0)
+#else
 /* XXX loser kludge for vm_map kernel bug */
+#undef ELF_MACHINE_USER_ADDRESS_MASK
+#define ELF_MACHINE_USER_ADDRESS_MASK  0
 static vm_address_t fmha;
 static vm_size_t fmhs;
 static void unfmh(void){
@@ -86,17 +112,17 @@ static void fmh(void) {
     assert_perror(err);}
   }
 /* XXX loser kludge for vm_map kernel bug */
+#endif
 
 
-
-Elf32_Addr
+ElfW(Addr)
 _dl_sysdep_start (void **start_argptr,
-                 void (*dl_main) (const Elf32_Phdr *phdr, Elf32_Word phent,
-                                  Elf32_Addr *user_entry))
+                 void (*dl_main) (const ElfW(Phdr) *phdr, ElfW(Word) phent,
+                                  ElfW(Addr) *user_entry,
+                                  ElfW(auxv_t) *auxv))
 {
-  void go (int *argdata)
+  void go (intptr_t *argdata)
     {
-      extern unsigned int _dl_skip_args; /* rtld.c */
       char **p;
 
       /* Cache the information in various global variables.  */
@@ -109,21 +135,21 @@ _dl_sysdep_start (void **start_argptr,
        {
          static struct hurd_startup_data nodata;
          _dl_hurd_data = &nodata;
-         nodata.user_entry = (vm_address_t) &ENTRY_POINT;
+         nodata.user_entry = (vm_address_t) ENTRY_POINT;
        }
       else
        _dl_hurd_data = (void *) p;
 
-      __libc_enable_secure = _dl_hurd_data->flags & EXEC_SECURE;
+      INTUSE(__libc_enable_secure) = _dl_hurd_data->flags & EXEC_SECURE;
 
       if (_dl_hurd_data->flags & EXEC_STACK_ARGS &&
          _dl_hurd_data->user_entry == 0)
-       _dl_hurd_data->user_entry = (vm_address_t) &ENTRY_POINT;
+       _dl_hurd_data->user_entry = (vm_address_t) ENTRY_POINT;
 
 unfmh();                       /* XXX */
 
 #if 0                          /* XXX make this work for real someday... */
-      if (_dl_hurd_data->user_entry == (vm_address_t) &ENTRY_POINT)
+      if (_dl_hurd_data->user_entry == (vm_address_t) ENTRY_POINT)
        /* We were invoked as a command, not as the program interpreter.
           The generic ld.so code supports this: it will parse the args
           as "ld.so PROGRAM [ARGS...]".  For booting the Hurd, we
@@ -161,7 +187,7 @@ unfmh();                    /* XXX */
 
            lastslash = strrchr (p, '/');
            l = _dl_map_object_from_fd (lastslash ? lastslash + 1 : p,
-                                       memobj, strdup (p));
+                                       memobj, strdup (p), 0);
 
            /* Squirrel away the memory object port where it
               can be retrieved by the program later.  */
@@ -171,20 +197,49 @@ unfmh();                  /* XXX */
 
       /* Call elf/rtld.c's main program.  It will set everything
         up and leave us to transfer control to USER_ENTRY.  */
-      (*dl_main) ((const Elf32_Phdr *) _dl_hurd_data->phdr,
-                 _dl_hurd_data->phdrsz / sizeof (Elf32_Phdr),
-                 &_dl_hurd_data->user_entry);
-
-      if (_dl_skip_args && _dl_argv[-_dl_skip_args] == (char *) p)
+      (*dl_main) ((const ElfW(Phdr) *) _dl_hurd_data->phdr,
+                 _dl_hurd_data->phdrsz / sizeof (ElfW(Phdr)),
+                 &_dl_hurd_data->user_entry, NULL);
+
+      /* The call above might screw a few things up.
+
+        First of all, if _dl_skip_args is nonzero, we are ignoring
+        the first few arguments.  However, if we have no Hurd startup
+        data, it is the magical convention that ARGV[0] == P.  The
+        startup code in init-first.c will get confused if this is not
+        the case, so we must rearrange things to make it so.  We'll
+        overwrite the origional ARGV[0] at P with ARGV[_dl_skip_args].
+
+        Secondly, if we need to be secure, it removes some dangerous
+        environment variables.  If we have no Hurd startup date this
+        changes P (since that's the location after the terminating
+        NULL in the list of environment variables).  We do the same
+        thing as in the first case but make sure we recalculate P.
+        If we do have Hurd startup data, we have to move the data
+        such that it starts just after the terminating NULL in the
+        environment list.
+
+        We use memmove, since the locations might overlap.  */
+      if (INTUSE(__libc_enable_secure) || _dl_skip_args)
        {
-         /* We are ignoring the first few arguments, but we have no Hurd
-            startup data.  It is magical convention that ARGV[0] == P in
-            this case.  The startup code in init-first.c will get confused
-            if this is not the case, so we must rearrange things to make
-            it so.  Overwrite the original ARGV[0] at P with
-            ARGV[_dl_skip_args].  */
-         assert ((char *) p < _dl_argv[0]);
-         _dl_argv[0] = strcpy ((char *) p, _dl_argv[0]);
+         char **newp;
+
+         for (newp = _environ; *newp++;);
+
+         if (_dl_argv[-_dl_skip_args] == (char *) p)
+           {
+             if ((char *) newp != _dl_argv[0])
+               {
+                 assert ((char *) newp < _dl_argv[0]);
+                 _dl_argv[0] = memmove ((char *) newp, _dl_argv[0],
+                                        strlen (_dl_argv[0]) + 1);
+               }
+           }
+         else
+           {
+             if ((void *) newp != _dl_hurd_data)
+               memmove (newp, _dl_hurd_data, sizeof (*_dl_hurd_data));
+           }
        }
 
       {
@@ -199,7 +254,11 @@ unfmh();                   /* XXX */
   __mach_init ();
 
   /* Initialize frequently used global variable.  */
-  _dl_pagesize = __getpagesize ();
+  GLRO(dl_pagesize) = __getpagesize ();
+
+#if HP_TIMING_AVAIL
+  HP_TIMING_NOW (_dl_cpuclock_offset);
+#endif
 
 fmh();                         /* XXX */
 
@@ -213,6 +272,7 @@ fmh();                              /* XXX */
 }
 
 void
+internal_function
 _dl_sysdep_start_cleanup (void)
 {
   /* Deallocate the reply port and task port rights acquired by
@@ -227,20 +287,37 @@ _dl_sysdep_start_cleanup (void)
    dynamic linker re-relocates itself to be user-visible (for -ldl),
    it will get the user's definition (i.e. usually libc's).  */
 
-/* Open FILE_NAME and return a Hurd I/O for it in *PORT, or
-   return an error.  If STAT is non-zero, stat the file into that stat buffer.  */
+/* Open FILE_NAME and return a Hurd I/O for it in *PORT, or return an
+   error.  If STAT is non-zero, stat the file into that stat buffer.  */
 static error_t
-open_file (const char *file_name, int mode,
-          mach_port_t *port, struct stat *stat)
+open_file (const char *file_name, int flags,
+          mach_port_t *port, struct stat64 *stat)
 {
   enum retry_type doretry;
   char retryname[1024];                /* XXX string_t LOSES! */
-  file_t startdir, newpt, fileport;
-  int dealloc_dir;
-  int nloops;
+  file_t startdir;
   error_t err;
 
-  assert (!(mode & ~O_READ));
+  error_t use_init_port (int which, error_t (*operate) (file_t))
+    {
+      return (which < _dl_hurd_data->portarraysize
+             ? ((*operate) (_dl_hurd_data->portarray[which]))
+             : EGRATUITOUS);
+    }
+  file_t get_dtable_port (int fd)
+    {
+      if ((unsigned int) fd < _dl_hurd_data->dtablesize
+         && _dl_hurd_data->dtable[fd] != MACH_PORT_NULL)
+       {
+         __mach_port_mod_refs (__mach_task_self (), _dl_hurd_data->dtable[fd],
+                               MACH_PORT_RIGHT_SEND, +1);
+         return _dl_hurd_data->dtable[fd];
+       }
+      errno = EBADF;
+      return MACH_PORT_NULL;
+    }
+
+  assert (!(flags & ~(O_READ | O_CLOEXEC)));
 
   startdir = _dl_hurd_data->portarray[file_name[0] == '/' ?
                                      INIT_PORT_CRDIR : INIT_PORT_CWDIR];
@@ -248,216 +325,21 @@ open_file (const char *file_name, int mode,
   while (file_name[0] == '/')
     file_name++;
 
-  if (err = __dir_lookup (startdir, (char *)file_name, mode, 0,
-                         &doretry, retryname, &fileport))
-    return err;
-
-  dealloc_dir = 0;
-  nloops = 0;
+  err = __dir_lookup (startdir, (char *)file_name, O_RDONLY, 0,
+                     &doretry, retryname, port);
 
-  while (1)
+  if (!err)
+    err = __hurd_file_name_lookup_retry (use_init_port, get_dtable_port,
+                                        __dir_lookup, doretry, retryname,
+                                        O_RDONLY, 0, port);
+  if (!err && stat)
     {
-      if (dealloc_dir)
-       __mach_port_deallocate (__mach_task_self (), startdir);
+      err = __io_stat (*port, stat);
       if (err)
-       return err;
-
-      switch (doretry)
-       {
-       case FS_RETRY_REAUTH:
-         {
-           mach_port_t ref = __mach_reply_port ();
-           err = __io_reauthenticate (fileport, ref, MACH_MSG_TYPE_MAKE_SEND);
-           if (! err)
-             err = __auth_user_authenticate
-               (_dl_hurd_data->portarray[INIT_PORT_AUTH],
-                ref, MACH_MSG_TYPE_MAKE_SEND,
-                &newpt);
-           __mach_port_destroy (__mach_task_self (), ref);
-         }
-         __mach_port_deallocate (__mach_task_self (), fileport);
-         if (err)
-           return err;
-         fileport = newpt;
-         /* Fall through.  */
-
-       case FS_RETRY_NORMAL:
-#ifdef SYMLOOP_MAX
-         if (nloops++ >= SYMLOOP_MAX)
-           return ELOOP;
-#endif
-
-         /* An empty RETRYNAME indicates we have the final port.  */
-         if (retryname[0] == '\0')
-           {
-             dealloc_dir = 1;
-           opened:
-             /* We have the file open.  Now map it.  */
-             if (stat)
-               err = __io_stat (fileport, stat);
-
-             if (err)
-               {
-                 if (dealloc_dir)
-                   __mach_port_deallocate (__mach_task_self (), fileport);
-               }
-             else
-               {
-                 if (!dealloc_dir)
-                   __mach_port_mod_refs (__mach_task_self (), fileport,
-                                         MACH_PORT_RIGHT_SEND, 1);
-                 *port = fileport;
-               }
-
-             return err;
-           }
-
-         startdir = fileport;
-         dealloc_dir = 1;
-         file_name = retryname;
-         break;
-
-       case FS_RETRY_MAGICAL:
-         switch (retryname[0])
-           {
-           case '/':
-             startdir = _dl_hurd_data->portarray[INIT_PORT_CRDIR];
-             dealloc_dir = 0;
-             if (fileport != MACH_PORT_NULL)
-               __mach_port_deallocate (__mach_task_self (), fileport);
-             file_name = &retryname[1];
-             break;
-
-           case 'f':
-             if (retryname[1] == 'd' && retryname[2] == '/' &&
-                 isdigit (retryname[3]))
-               {
-                 /* We can't use strtol for the decoding here
-                    because it brings in hairy locale bloat.  */
-                 char *p;
-                 int fd = 0;
-                 for (p = &retryname[3]; isdigit (*p); ++p)
-                   fd = (fd * 10) + (*p - '0');
-                 /* Check for excess text after the number.  A slash is
-                    valid; it ends the component.  Anything else does not
-                    name a numeric file descriptor.  */
-                 if (*p != '/' && *p != '\0')
-                   return ENOENT;
-                 if (fd < 0 || fd >= _dl_hurd_data->dtablesize ||
-                     _dl_hurd_data->dtable[fd] == MACH_PORT_NULL)
-                   /* If the name was a proper number, but the file
-                      descriptor does not exist, we return EBADF instead
-                      of ENOENT.  */
-                   return EBADF;
-                 fileport = _dl_hurd_data->dtable[fd];
-                 if (*p == '\0')
-                   {
-                     /* This descriptor is the file port we want.  */
-                     dealloc_dir = 0;
-                     goto opened;
-                   }
-                 else
-                   {
-                     /* Do a normal retry on the remaining components.  */
-                     startdir = fileport;
-                     dealloc_dir = 1;
-                     file_name = p + 1; /* Skip the slash.  */
-                     break;
-                   }
-               }
-             else
-               goto bad_magic;
-             break;
-
-           case 'm':
-             if (retryname[1] == 'a' && retryname[2] == 'c' &&
-                 retryname[3] == 'h' && retryname[4] == 't' &&
-                 retryname[5] == 'y' && retryname[6] == 'p' &&
-                 retryname[7] == 'e')
-               {
-                 error_t err;
-                 struct host_basic_info hostinfo;
-                 mach_msg_type_number_t hostinfocnt = HOST_BASIC_INFO_COUNT;
-                 char *p;
-                 if (err = __host_info (__mach_host_self (), HOST_BASIC_INFO,
-                                        (natural_t *) &hostinfo,
-                                        &hostinfocnt))
-                   return err;
-                 if (hostinfocnt != HOST_BASIC_INFO_COUNT)
-                   return EGRATUITOUS;
-                 p = _itoa (hostinfo.cpu_subtype, &retryname[8], 10, 0);
-                 *--p = '/';
-                 p = _itoa (hostinfo.cpu_type, &retryname[8], 10, 0);
-                 if (p < retryname)
-                   abort ();   /* XXX write this right if this ever happens */
-                 if (p > retryname)
-                   strcpy (retryname, p);
-                 startdir = fileport;
-                 dealloc_dir = 1;
-               }
-             else
-               goto bad_magic;
-             break;
-
-           case 't':
-             if (retryname[1] == 't' && retryname[2] == 'y')
-               switch (retryname[3])
-                 {
-                   error_t opentty (file_t *result)
-                     {
-                       error_t err;
-                       file_t unauth;
-                       err = __termctty_open_terminal
-                         (_dl_hurd_data->portarray[INIT_PORT_CTTYID],
-                          mode, &unauth);
-                       if (! err)
-                         {
-                           mach_port_t ref = __mach_reply_port ();
-                           err = __io_reauthenticate
-                             (unauth, ref, MACH_MSG_TYPE_MAKE_SEND);
-                           if (! err)
-                             err = __auth_user_authenticate
-                               (_dl_hurd_data->portarray[INIT_PORT_AUTH],
-                                ref, MACH_MSG_TYPE_MAKE_SEND,
-                                result);
-                           __mach_port_deallocate (__mach_task_self (),
-                                                   unauth);
-                           __mach_port_destroy (__mach_task_self (), ref);
-                         }
-                       return err;
-                     }
-
-                 case '\0':
-                   if (err = opentty (&fileport))
-                     return err;
-                   dealloc_dir = 1;
-                   goto opened;
-                 case '/':
-                   if (err = opentty (&startdir))
-                     return err;
-                   dealloc_dir = 1;
-                   strcpy (retryname, &retryname[4]);
-                   break;
-                 default:
-                   goto bad_magic;
-                 }
-             else
-               goto bad_magic;
-             break;
-
-           default:
-           bad_magic:
-             return EGRATUITOUS;
-           }
-         break;
-
-       default:
-         return EGRATUITOUS;
-       }
-
-      err = __dir_lookup (startdir, (char *)file_name, mode, 0,
-                         &doretry, retryname, &fileport);
+       __mach_port_deallocate (__mach_task_self (), *port);
     }
+
+  return err;
 }
 
 int weak_function
@@ -487,6 +369,7 @@ __libc_read (int fd, void *buf, size_t nbytes)
   mach_msg_type_number_t nread;
 
   data = buf;
+  nread = nbytes;
   err = __io_read ((mach_port_t) fd, &data, &nread, -1, nbytes);
   if (err)
     return __hurd_fail (err);
@@ -499,16 +382,68 @@ __libc_read (int fd, void *buf, size_t nbytes)
 
   return nread;
 }
+libc_hidden_weak (__libc_read)
 
-off_t weak_function
-__lseek (int fd, off_t offset, int whence)
+__ssize_t weak_function
+__libc_write (int fd, const void *buf, size_t nbytes)
 {
   error_t err;
-  
+  mach_msg_type_number_t nwrote;
+
+  assert (fd < _hurd_init_dtablesize);
+
+  err = __io_write (_hurd_init_dtable[fd], buf, nbytes, -1, &nwrote);
+  if (err)
+    return __hurd_fail (err);
+
+  return nwrote;
+}
+libc_hidden_weak (__libc_write)
+
+/* This is only used for printing messages (see dl-misc.c).  */
+__ssize_t weak_function
+__writev (int fd, const struct iovec *iov, int niov)
+{
+  if (fd >= _hurd_init_dtablesize)
+    {
+      errno = EBADF;
+      return -1;
+    }
+
+  int i;
+  size_t total = 0;
+  for (i = 0; i < niov; ++i)
+    total += iov[i].iov_len;
+
+  if (total != 0)
+    {
+      char buf[total], *bufp = buf;
+      error_t err;
+      mach_msg_type_number_t nwrote;
+
+      for (i = 0; i < niov; ++i)
+       bufp = (memcpy (bufp, iov[i].iov_base, iov[i].iov_len)
+               + iov[i].iov_len);
+
+      err = __io_write (_hurd_init_dtable[fd], buf, total, -1, &nwrote);
+      if (err)
+       return __hurd_fail (err);
+
+      return nwrote;
+    }
+  return 0;
+}
+
+
+off64_t weak_function
+__libc_lseek64 (int fd, off64_t offset, int whence)
+{
+  error_t err;
+
   err = __io_seek ((mach_port_t) fd, offset, whence, &offset);
   if (err)
     return __hurd_fail (err);
-  
+
   return offset;
 }
 
@@ -535,13 +470,13 @@ __mmap (__ptr_t addr, size_t len, int prot, int flags, int fd, off_t offset)
       assert (!(flags & MAP_SHARED));
       err = __io_map ((mach_port_t) fd, &memobj_rd, &memobj_wr);
       if (err)
-       return (__ptr_t) __hurd_fail (err);
+       return __hurd_fail (err), MAP_FAILED;
       __mach_port_deallocate (__mach_task_self (), memobj_wr);
     }
 
   mapaddr = (vm_address_t) addr;
   err = __vm_map (__mach_task_self (),
-                 &mapaddr, (vm_size_t) len, 0 /*ELF_MACHINE_USER_ADDRESS_MASK*/,
+                 &mapaddr, (vm_size_t) len, ELF_MACHINE_USER_ADDRESS_MASK,
                  !(flags & MAP_FIXED),
                  memobj_rd,
                  (vm_offset_t) offset,
@@ -555,7 +490,8 @@ __mmap (__ptr_t addr, size_t len, int prot, int flags, int fd, off_t offset)
       err = __vm_deallocate (__mach_task_self (), mapaddr, len);
       if (! err)
        err = __vm_map (__mach_task_self (),
-                       &mapaddr, (vm_size_t) len, 0 /*ELF_MACHINE_USER_ADDRESS_MASK*/,
+                       &mapaddr, (vm_size_t) len,
+                       ELF_MACHINE_USER_ADDRESS_MASK,
                        !(flags & MAP_FIXED),
                        memobj_rd, (vm_offset_t) offset,
                        flags & (MAP_COPY|MAP_PRIVATE),
@@ -567,29 +503,32 @@ __mmap (__ptr_t addr, size_t len, int prot, int flags, int fd, off_t offset)
   if ((flags & MAP_ANON) == 0)
     __mach_port_deallocate (__mach_task_self (), memobj_rd);
 
-  return err ? (__ptr_t) __hurd_fail (err) : (__ptr_t) mapaddr;
+  if (err)
+    return __hurd_fail (err), MAP_FAILED;
+  return (__ptr_t) mapaddr;
 }
 
 int weak_function
-__fxstat (int vers, int fd, struct stat *buf)
+__fxstat64 (int vers, int fd, struct stat64 *buf)
 {
   error_t err;
-  
+
   assert (vers == _STAT_VER);
-  
+
   err = __io_stat ((mach_port_t) fd, buf);
   if (err)
     return __hurd_fail (err);
 
   return 0;
 }
+libc_hidden_def (__fxstat64)
 
 int weak_function
-__xstat (int vers, const char *file, struct stat *buf)
+__xstat64 (int vers, const char *file, struct stat64 *buf)
 {
   error_t err;
   mach_port_t port;
-  
+
   assert (vers == _STAT_VER);
 
   err = open_file (file, 0, &port, buf);
@@ -600,13 +539,25 @@ __xstat (int vers, const char *file, struct stat *buf)
 
   return 0;
 }
+libc_hidden_def (__xstat64)
+
+/* This function is called by the dynamic linker (rtld.c) to check
+   whether debugging malloc is allowed even for SUID binaries.  This
+   stub will always fail, which means that malloc-debugging is always
+   disabled for SUID binaries.  */
+int weak_function
+__access (const char *file, int type)
+{
+  errno = ENOSYS;
+  return -1;
+}
 
 pid_t weak_function
-__getpid ()
+__getpid (void)
 {
   pid_t pid, ppid;
   int orphaned;
-  
+
   if (__proc_getpids (_dl_hurd_data->portarray[INIT_PORT_PROC],
                      &pid, &ppid, &orphaned))
     return -1;
@@ -614,7 +565,21 @@ __getpid ()
   return pid;
 }
 
-void weak_function
+/* This is called only in some strange cases trying to guess a value
+   for $ORIGIN for the executable.  The dynamic linker copes with
+   getcwd failing (dl-object.c), and it's too much hassle to include
+   the functionality here.  (We could, it just requires duplicating or
+   reusing getcwd.c's code but using our special lookup function as in
+   `open', above.)  */
+char *
+weak_function
+__getcwd (char *buf, size_t size)
+{
+  errno = ENOSYS;
+  return NULL;
+}
+
+void weak_function attribute_hidden
 _exit (int status)
 {
   __proc_mark_exit (_dl_hurd_data->portarray[INIT_PORT_PROC],
@@ -622,6 +587,9 @@ _exit (int status)
   while (__task_terminate (__mach_task_self ()))
     __mach_task_self_ = (__mach_task_self) ();
 }
+/* We need this alias to satisfy references from libc_pic.a objects
+   that were affected by the libc_hidden_proto declaration for _exit.  */
+strong_alias (_exit, __GI__exit)
 
 /* Try to get a machine dependent instruction which will make the
    program crash.  This is used in case everything else fails.  */
@@ -645,6 +613,10 @@ abort (void)
     /* Try for ever and ever.  */
     ABORT_INSTRUCTION;
 }
+
+/* We need this alias to satisfy references from libc_pic.a objects
+   that were affected by the libc_hidden_proto declaration for abort.  */
+strong_alias (abort, __GI_abort)
 \f
 /* This function is called by interruptible RPC stubs.  For initial
    dynamic linking, just use the normal mach_msg.  Since this defn is
@@ -673,47 +645,10 @@ _dl_show_auxv (void)
 }
 
 
-/* Return an array of useful/necessary hardware capability names.  */
-const struct r_strlenpair *
-internal_function
-_dl_important_hwcaps (const char *platform, size_t platform_len, size_t *sz,
-                     size_t *max_capstrlen)
-{
-  struct r_strlenpair *result;
-
-  /* Return an empty array.  Hurd has no hardware capabilities.  */
-  result = (struct r_strlenpair *) malloc (sizeof (*result));
-  if (result == NULL)
-    _dl_signal_error (ENOMEM, NULL, "cannot create capability list");
-
-  result[0].str = (char *) result;     /* Does not really matter.  */
-  result[0].len = 0;
-
-  *sz = 1;
-  return result;
-}
-
-
 void weak_function
-_dl_sysdep_output (int fd, const char *msg, ...)
+_dl_init_first (int argc, ...)
 {
-  va_list ap;
-
-  assert(fd < _hurd_init_dtablesize);
-
-  va_start (ap, msg);
-  do
-    {
-      size_t len = strlen (msg);
-      mach_msg_type_number_t nwrote;
-      do
-       {
-         if (__io_write (_hurd_init_dtable[fd], msg, len, -1, &nwrote))
-           break;
-         len -= nwrote;
-         msg += nwrote;
-       } while (nwrote > 0);
-      msg = va_arg (ap, const char *);
-    } while (msg);
-  va_end (ap);
+  /* This no-op definition only gets used if libc is not linked in.  */
 }
+
+#endif /* SHARED */