From 4cb202902d23b3c487016e516c70640c774b90d8 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 17 Nov 1995 02:33:47 +0000 Subject: Thu Nov 16 06:07:49 1995 Roland McGrath * sysdeps/mach/hurd/dl-sysdep.c (_dl_sysdep_start_cleanup): New function. (_dl_sysdep_start): Move cleanup code there. * Makeconfig (default-rpath): New variable. (link-libc): Use it. * elf/Makefile (ld.so): Pass -rpath=$(default-rpath). * elf/rtld.c (_dl_rpath): New variable. (_dl_start): Set it from rtld_map's DT_RPATH. Call _dl_setup_hash on rtld_map. (dl_main): Cache address of _exit in variable before relocating, and use that in later calls. Call _dl_sysdep_start_cleanup before relocating. Keep track of dependency order while loading; remove rtld_map from chain, and reinsert in proper order if there is a dependency on it. * sysdeps/generic/Makefile (make_siglist): Pass -DSIGNUM_H=... with config's signum.h location. * sysdeps/generic/make_siglist.c: Include SIGNUM_H to define signal numbers. (HAVE_STRSIGNAL, HAVE_PSIGNAL): Define these before including signame.c (main): Deansideclize output. * elf/dl-load.c (_dl_map_object): Use _dl_rpath variable in place of DEFAULT_RPATH macro. * elf/Makefile: Undo last change. * sysdeps/mach/hurd/dl-sysdep.c (free): Don't abort, just nop. --- elf/rtld.c | 51 ++++++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 42 insertions(+), 9 deletions(-) (limited to 'elf/rtld.c') diff --git a/elf/rtld.c b/elf/rtld.c index 88f0d6d804..d0c25b4db4 100644 --- a/elf/rtld.c +++ b/elf/rtld.c @@ -39,10 +39,12 @@ extern Elf32_Addr _dl_sysdep_start (void **start_argptr, void (*dl_main) (const Elf32_Phdr *phdr, Elf32_Word phent, Elf32_Addr *user_entry)); +extern void _dl_sysdep_start_cleanup (void); int _dl_secure; int _dl_argc; char **_dl_argv; +const char *_dl_rpath; struct r_debug dl_r_debug; @@ -93,7 +95,13 @@ _dl_start (void *arg) rtld_map.l_addr = bootstrap_map.l_addr; rtld_map.l_ld = bootstrap_map.l_ld; memcpy (rtld_map.l_info, bootstrap_map.l_info, sizeof rtld_map.l_info); + _dl_setup_hash (&rtld_map); + /* Cache the DT_RPATH stored in ld.so itself; this will be + the default search path. */ + _dl_rpath = (void *) (rtld_map.l_addr + + rtld_map.l_info[DT_STRTAB]->d_un.d_ptr + + rtld_map.l_info[DT_RPATH]->d_un.d_val); /* Call the OS-dependent function to set up life so we can do things like file access. It will call `dl_main' (below) to do all the real work @@ -118,10 +126,11 @@ dl_main (const Elf32_Phdr *phdr, void doit (void) { const Elf32_Phdr *ph; - struct link_map *l; + struct link_map *l, *last, *before_rtld; const char *interpreter_name; int lazy; int list_only = 0; + __typeof (_exit) *volatile exitfn; if (*user_entry == (Elf32_Addr) &_start) { @@ -248,6 +257,7 @@ of this helper program; chances are you did not intend to run this program.\n", /* Now process all the DT_NEEDED entries and map in the objects. Each new link_map will go on the end of the chain, so we will come across it later in the loop to map in its dependencies. */ + before_rtld = NULL; for (l = _dl_loaded; l; l = l->l_next) { if (l->l_info[DT_NEEDED]) @@ -255,24 +265,47 @@ of this helper program; chances are you did not intend to run this program.\n", const char *strtab = (void *) l->l_addr + l->l_info[DT_STRTAB]->d_un.d_ptr; const Elf32_Dyn *d; + last = l; for (d = l->l_ld; d->d_tag != DT_NULL; ++d) if (d->d_tag == DT_NEEDED) - _dl_map_object (l, strtab + d->d_un.d_val); + { + struct link_map *new; + new = _dl_map_object (l, strtab + d->d_un.d_val); + if (!before_rtld && new == &rtld_map) + before_rtld = last; + last = new; + } } l->l_deps_loaded = 1; } - if (rtld_map.l_opencount == 0) + /* If any DT_NEEDED entry referred to the interpreter object itself, + reorder the list so it appears after its dependent. If not, + remove it from the maps we will use for symbol resolution. */ + rtld_map.l_prev->l_next = rtld_map.l_next; + if (rtld_map.l_next) + rtld_map.l_next->l_prev = rtld_map.l_prev; + if (before_rtld) { - /* No DT_NEEDED entry referred to the interpreter object itself. - Remove it from the maps we will use for symbol resolution. */ - rtld_map.l_prev->l_next = rtld_map.l_next; + rtld_map.l_prev = before_rtld; + rtld_map.l_next = before_rtld->l_next; + before_rtld->l_next = &rtld_map; if (rtld_map.l_next) - rtld_map.l_next->l_prev = rtld_map.l_prev; + rtld_map.l_next->l_prev = &rtld_map; } lazy = !_dl_secure && *(getenv ("LD_BIND_NOW") ?: "") == '\0'; + /* Fetch this value now, before real relocation. For --list, it will + be called below, and the finally-linked version is not the right + one. */ + exitfn = &_exit; + + /* Do any necessary cleanups for the startup OS interface code. + We do these now so that no calls are made after real relocation + which might be resolved to different functions than we expect. */ + _dl_sysdep_start_cleanup (); + /* Now we have all the objects loaded. Relocate them all. We do this in reverse order so that copy relocs of earlier objects overwrite the data written by later objects. */ @@ -297,7 +330,7 @@ of this helper program; chances are you did not intend to run this program.\n", { _dl_sysdep_message (_dl_loaded->l_name, ": statically linked\n", NULL); - _exit (1); + (*exitfn) (1); } for (l = _dl_loaded->l_next; l; l = l->l_next) @@ -311,7 +344,7 @@ of this helper program; chances are you did not intend to run this program.\n", " (0x", bp, ")\n", NULL); } - _exit (0); + (*exitfn) (0); } if (rtld_map.l_info[DT_INIT]) -- cgit 1.4.1