1997-09-05 03:43:20 +02:00
|
|
|
/* Close a shared object opened by `_dl_open'.
|
2000-03-30 18:30:49 +02:00
|
|
|
Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
|
update from main archive 961116
Sun Nov 17 03:13:57 1996 Ulrich Drepper <drepper@cygnus.com>
* db/makedb.c: Update and reformat copyright.
* elf/Makefile: Likewise.
* elf/dl-close.c: Likewise.
* elf/dl-debug.c: Likewise.
* elf/dl-deps.c: Likewise.
* elf/dl-error.c: Likewise.
* elf/dl-fini.c: Likewise.
* elf/dl-init.c: Likewise.
* elf/dl-load.c: Likewise.
* elf/dl-lookup.c: Likewise.
* elf/dl-minimal.c: Likewise.
* elf/dl-object.c: Likewise.
* elf/dl-open.c: Likewise.
* elf/dl-reloc.c: Likewise.
* elf/dl-runtime.c: Likewise.
* elf/dl-support.c: Likewise.
* elf/dl-symbol.c: Likewise.
* elf/dladdr.c: Likewise.
* elf/dlclose.c: Likewise.
* elf/dlerror.c: Likewise.
* elf/dlopen.c: Likewise.
* elf/dlsym.c: Likewise.
* elf/do-rel.h: Likewise.
* elf/dynamic-link.h: Likewise.
* elf/eval.c: Likewise.
* elf/rtld.c: Likewise.
* inet/ether_hton.c: Likewise.
* inet/ether_ntoh.c: Likewise.
* inet/ether_line.c: Likewise.
* inet/getnetgrent_r.c: Likewise.
* inet/Makefile (+gccwarn): Remove definition.
Instead set CFLAGS-rcmd.c, CFLAGS-rexec.c, and CFLAGS-ruserpass.c
to `-w'.
* inet/aliases.h: Add C++ protection.
* inet/ether_hton.c: Add prototype for __nss_ethers_lookup.
(ether_hostton): Remove unused variable result.
* inet/ether_ntoh.c: Likewise.
* inet/ether_line.c: Include <ctype.h> and <string.h>.
* inet/getnetgrent_r.c: Include <stdlib.h>.
Use casts to prevent warnings.
(innetgr): Initialize `known' and `needed'.
* inet/inet_net.c: Make local variable `i' of type u_int32_t.
* nss/getXXbyYY_r.c (INTERNAL (REENTRANT_NAME)) [NEED__RES]: Don't
return NULL. Instead set *RESULT to NULL and return -1.
* nss/getXXent_r.c (INTERNAL (REENTRANT_GETNAME)): Likewise.
(SETFUNC_NAME, ENDFUNC_NAME) [NEED__RES]: Don't return anything.
* nss/nss_files/files-alias.c: Debug function. I didn't worked at
all before.
Sat Nov 16 15:25:34 1996 Ulrich Drepper <drepper@cygnus.com>
* sysdeps/posix/readv.c: Don't use PTR anymore.
* sysdeps/posix/writev.c: Likewise.
* version.h (VERSION): Bump to 1.98.
* nss/db-Makefile: Generate lines for getXXXent iteration.
* sysdeps/alpha/Dist: Don't distribute removed files divlu.S,
divqu.S, remlu.S, and remqu.S.
Fri Nov 15 08:55:54 1996 Andreas Jaeger <aj@arthur.pfalz.de>
* posix/unistd.h: Correct typo in documentation.
Thu Nov 14 18:08:14 1996 a sun <asun@zoology.washington.edu>
* inet/netinet/tcp.h: Use __ protected versions instead of
BYTE_ORDER, LITTLE_ENDIAN, and BIG_ENDIAN directly.
Sat Nov 16 13:44:55 1996 Ulrich Drepper <drepper@cygnus.com>
* intl/loadmsgcat.c (_nl_msg_cat_cntr): Initialize so that
references in libc.so are not anymore undefined.
Sat Nov 16 18:17:36 1996 NIIBE Yutaka <gniibe@mri.co.jp>
* io/utime.h: Rename second parameter for utime to prevent warning
for -Wshadow.
* dirent/dirent.h: Same here for scandir prototype.
* math/mathcalls.h: Likewise for frexp and ldexp.
* sysdeps/unix/sysv/linux/netinet/in.h: Likewise for bindresvport.
Sat Nov 16 03:49:27 1996 Ulrich Drepper <drepper@cygnus.com>
* stdlib/tst-strtod.c: Add test for error case below.
Sat Nov 16 03:48:39 1996 Wolfram Gloger <Wolfram.Gloger@dent.med.uni-muenchen.de>
* stdlib/strtod.c: Recognize numbers like 0e-19.
Fri Nov 15 08:38:43 1996 Andreas Jaeger <aj@arthur.pfalz.de>
* time/Makefile ($(installed-localtime-file)): Fix path to
rellns-sh.
* Makefile: Don't generate and install gnu/lib-names.h if
$(build-shared) is not `yes'.
Thu Nov 14 09:23:58 1996 H.J. Lu (hjl@gnu.ai.mit.edu)
* sysdeps/posix/Makefile ($(common-objpfx)mk-stdiolim): Depend
on $(..)posix/posix1_lim.h, not ../posix/posix1_lim.h.
* Makerules (REAL_MAKE_VERSION): New, use it instead of
MAKE_VERSION.
Thu Nov 14 22:10:43 1996 Ulrich Drepper <drepper@cygnus.com>
* nss/nss_files/files-XXX.x (_nss_files_get,ENTNAME_r): Fix typo.
* nss/getXXent_r.c: Fix typo. Set correct return value when
no further service is available.
Thu Nov 14 17:48:13 1996 Ulrich Drepper <drepper@cygnus.com>
* db/recno/rec_put.c: Add cast to avoid warning.
* db/recno/rec_close.c: Likewise.
* db/mpool/mpool.c: Likewise.
* db/hash/hash_bigkey.h: Likewise.
* db/hash/hash.c: Likewise.
* db/btree/bt_split.c: Likewise.
* db/btree/bt_put.c: Likewise.
Thu Nov 14 14:11:44 1996 Ulrich Drepper <drepper@cygnus.com>
* dirent/dirent.h: Update copyright.
* elf/elf.h: Likewise.
* elf/link.h: Likewise.
* gmon/sys/gmon_out.h: Likewise.
* gnu-versions.h: Likewise.
* intl/libintl.h: Likewise.
* io/fcntl.h: Likewise.
* io/ftw.h: Likewise.
* io/sys/statfs.h: Likewise.
* io/utime.h: Likewise.
* locale/langinfo.h: Likewise.
* malloc/malloc.h: Likewise.
* malloc/obstack.h: Likewise.
* misc/ar.h: Likewise.
* misc/error.h: Likewise.
* misc/mntent.h: Likewise.
* misc/sgtty.h: Likewise.
* misc/sys/cdefs.h: Likewise.
* misc/sys/dir.h: Likewise.
* misc/sys/file.h: Likewise.
* misc/sys/ioctl.h: Likewise.
* misc/sys/ustat.h: Likewise.
* posix/fnmatch.h: Likewise.
* posix/getopt.h: Likewise.
* posix/glob.h: Likewise.
* posix/posix2_lim.h: Likewise.
* posix/regex.h: Likewise.
* posix/sys/times.h: Likewise.
* posix/sys/types.h: Likewise.
* posix/sys/utsname.h: Likewise.
* posix/tar.h: Likewise.
* posix/wordexp.h: Likewise.
* resource/sys/resource.h: Likewise.
* resource/sys/vlimit.h: Likewise.
* resource/sys/vtimes.h: Likewise.
* socket/sys/socket.h: Likewise.
* socket/sys/un.h: Likewise.
* stdio-common/printf.h: Likewise.
* stdlib/alloca.h: Likewise.
* string/argz.h: Likewise.
* string/endian.h: Likewise.
* string/envz.h: Likewise.
* string/memory.h: Likewise.
* string/strings.h: Likewise.
* sysdeps/generic/crypt.h: Likewise.
* sysdeps/generic/direntry.h: Likewise.
* sysdeps/generic/gnu/types.h: Likewise.
* sysdeps/generic/ioctl-types.h: Likewise.
* sysdeps/generic/netinet/in.h: Likewise.
* sysdeps/generic/resourcebits.h: Likewise.
* sysdeps/generic/sigset.h: Likewise.
* sysdeps/generic/sockaddrcom.h: Likewise.
* sysdeps/generic/sys/mman.h: Likewise.
* sysdeps/generic/sys/ptrace.h: Likewise.
* sysdeps/generic/termbits.h: Likewise.
* sysdeps/generic/waitstatus.h: Likewise.
* sysdeps/ieee754/huge_val.h: Likewise.
* sysdeps/ieee754/nan.h: Likewise.
* sysdeps/mach/hurd/local_lim.h: Likewise.
* sysdeps/mach/hurd/statbuf.h: Likewise.
* sysdeps/stub/huge_val.h: Likewise.
* sysdeps/stub/libc-lock.h: Likewise.
* sysdeps/stub/signum.h: Likewise.
* sysdeps/stub/statbuf.h: Likewise.
* sysdeps/stub/waitflags.h: Likewise.
* sysdeps/unix/bsd/bsd4.4/sockaddrcom.h: Likewise.
* sysdeps/unix/bsd/osf/alpha/statbuf.h: Likewise.
* sysdeps/unix/bsd/osf/sys/mman.h: Likewise.
* sysdeps/unix/bsd/signum.h: Likewise.
* sysdeps/unix/bsd/statbuf.h: Likewise.
* sysdeps/unix/bsd/sun/signum.h: Likewise.
* sysdeps/unix/bsd/sun/sunos4/resourcebits.h: Likewise.
* sysdeps/unix/bsd/sun/sunos4/sys/mman.h: Likewise.
* sysdeps/unix/bsd/sun/sunos4/termbits.h: Likewise.
* sysdeps/unix/bsd/ultrix4/sys/mman.h: Likewise.
* sysdeps/unix/bsd/waitflags.h: Likewise.
* sysdeps/unix/sysv/irix4/signum.h: Likewise.
* sysdeps/unix/sysv/irix4/statbuf.h: Likewise.
* sysdeps/unix/sysv/irix4/sys/mman.h: Likewise.
* sysdeps/unix/sysv/linux/alpha/statbuf.h: Likewise.
* sysdeps/unix/sysv/linux/alpha/sys/io.h: Likewise.
* sysdeps/unix/sysv/linux/direntry.h: Likewise.
* sysdeps/unix/sysv/linux/gnu/types.h: Likewise.
* sysdeps/unix/sysv/linux/ioctl-types.h: Likewise.
* sysdeps/unix/sysv/linux/local_lim.h: Likewise.
* sysdeps/unix/sysv/linux/netinet/in.h: Likewise.
* sysdeps/unix/sysv/linux/resourcebits.h: Likewise.
* sysdeps/unix/sysv/linux/signum.h: Likewise.
* sysdeps/unix/sysv/linux/statbuf.h: Likewise.
* sysdeps/unix/sysv/linux/sys/io.h: Likewise.
* sysdeps/unix/sysv/linux/sys/klog.h: Likewise.
* sysdeps/unix/sysv/linux/sys/mman.h: Likewise.
* sysdeps/unix/sysv/linux/sys/ptrace.h: Likewise.
* sysdeps/unix/sysv/linux/syscall.h: Likewise.
* sysdeps/unix/sysv/linux/termbits.h: Likewise.
* sysdeps/unix/sysv/local_lim.h: Likewise.
* sysdeps/unix/sysv/sco3.2.4/syscall.h: Likewise.
* sysdeps/unix/sysv/sco3.2/local_lim.h: Likewise.
* sysdeps/unix/sysv/signum.h: Likewise.
* sysdeps/unix/sysv/sysv4/i386/statbuf.h: Likewise.
* sysdeps/unix/sysv/sysv4/signum.h: Likewise.
* sysdeps/unix/sysv/sysv4/sigset.h: Likewise.
* sysdeps/unix/sysv/sysv4/solaris2/signum.h: Likewise.
* sysdeps/unix/sysv/sysv4/solaris2/statbuf.h: Likewise.
* sysdeps/unix/sysv/sysv4/waitflags.h: Likewise.
* sysdeps/vax/huge_val.h: Likewise.
* values.h: Likewise.
Thu Nov 14 04:22:41 1996 Ulrich Drepper <drepper@cygnus.com>
* malloc/obstack.h: Use memcpy instead of bcopy and define a macro
`memcpy' using bcopy if memcpy is not available.
* manual/stdio.texi: Correct description of printf customization.
The argument info function is not optional anymore and the
interface for `printf_function' also changed.
* manual/examples/rprintf.c: Define and use argument info function.
* stdio-common/printf.h (struct printf_info): Change type for field
`pad' to wchar_t.
Correct comment for `register_printf_function'.
* nss/getXXbyYY.c [NEED_H_ERRNO]: Don't pass pointer to h_errno
to reentrant function. Instead use temporary variable and set
h_errno if an error occured.
Reported by NIIBE Yutaka.
are no bits set in the masks. Reported by baldazzi@csr.unibo.it.
1996-11-17 04:15:52 +01:00
|
|
|
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.
|
|
|
|
|
|
|
|
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.
|
|
|
|
|
|
|
|
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. */
|
1996-06-10 22:19:39 +02:00
|
|
|
|
1998-08-31 19:23:45 +02:00
|
|
|
#include <assert.h>
|
1996-06-10 22:19:39 +02:00
|
|
|
#include <dlfcn.h>
|
2000-06-10 06:01:36 +02:00
|
|
|
#include <libintl.h>
|
1996-06-10 22:19:39 +02:00
|
|
|
#include <stdlib.h>
|
1996-06-12 03:54:21 +02:00
|
|
|
#include <string.h>
|
1998-03-24 01:39:45 +01:00
|
|
|
#include <bits/libc-lock.h>
|
2000-03-23 23:46:19 +01:00
|
|
|
#include <ldsodefs.h>
|
1996-06-10 22:19:39 +02:00
|
|
|
#include <sys/types.h>
|
|
|
|
#include <sys/mman.h>
|
|
|
|
|
2000-08-28 10:32:23 +02:00
|
|
|
#include <stdio-common/_itoa.h>
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
|
2000-03-30 18:30:49 +02:00
|
|
|
/* Type of the constructor functions. */
|
|
|
|
typedef void (*fini_t) (void);
|
|
|
|
|
|
|
|
|
1997-09-05 03:43:20 +02:00
|
|
|
/* During the program run we must not modify the global data of
|
|
|
|
loaded shared object simultanously in two threads. Therefore we
|
|
|
|
protect `dlopen' and `dlclose' in dlclose.c. */
|
|
|
|
__libc_lock_define (extern, _dl_load_lock)
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
void
|
1998-04-02 15:11:24 +02:00
|
|
|
internal_function
|
Update.
* sysdeps/gnu/Makefile (libdl-routines): Add eval.
1999-07-06 Zack Weinberg <zack@rabi.columbia.edu>
* dlfcn: New directory. Move the following files from elf:
dladdr.c, dlclose.c, dlerror.c, dlfcn.h, dlopen.c,
dlopenold.c, dlsym.c, dlvsym.c.
* dlfcn/Makefile: New file.
* dlfcn/Versions: New file.
* dlfcn/dlsym.c: All ELF-specific code split out to new
function _dl_sym.
* dlfcn/dlvsym.c: All ELF-specific code split out to new
function _dl_vsym.
* elf/dl-sym.c: New file. _dl_sym and _dl_vsym are
implemented here.
* dlfcn/dladdr.c: Remove all references to ELF data structures
or headers.
* dlfcn/dlclose.c: Likewise.
* dlfcn/dlerror.c: Likewise.
* dlfcn/dlopen.c: Likewise.
* dlfcn/dlopenold.c: Likewise.
* Makeconfig (dlfcn): New variable - set to `dlfcn' if elf is
yes, empty otherwise.
(libdl): Set to dlfcn/libdl.so or libdl.a if elf is yes,
depending on build-shared.
(subdirs): Add $(dlfcn).
(rpath-dirs): Add dlfcn.
* elf/Makefile: Remove all references to libdl or its
components, except the ones relating to the test cases.
(routines): Add dl-sym.
* elf/Versions (libc): Add _dl_sym and _dl_vsym for GLIBC_2.2.
(libdl): Delete.
* elf/dl-close.c (_dl_close): Change argument to void *.
* elf/dl-open.c (_dl_open): Change return type to void *.
* elf/eval.c: Removed.
* elf/ldsodefs.h: Move prototypes of _dl_catch_error,
_dlerror_run, _dl_open, _dl_close, _dl_addr, and
_dl_mcount_wrapper_check to include/dlfcn.h. Delete
_CALL_DL_FCT macro.
* include/dlfcn.h: Also prototype _dl_sym and _dl_vsym here.
Include real header from dlfcn directory.
* include/ldsodefs.h: Removed.
* grp/initgroups.c: Use DL_CALL_FCT not _CALL_DL_FCT.
* nss/getXXbyYY_r.c: Likewise.
* nss/getXXent_r.c: Likewise.
* iconv/gconv.c: Likewise. Don't include ldsodefs.h.
* iconv/gconv_db.c: Likewise. Don't include ldsodefs.h.
* iconv/skeleton.c: Don't include ldsodefs.h.
* nss/nsswitch.h: Don't include ldsodefs.h. Include dlfcn.h.
1999-07-07 Ulrich Drepper <drepper@cygnus.com>
1999-07-07 20:39:33 +02:00
|
|
|
_dl_close (void *_map)
|
1996-06-10 22:19:39 +02:00
|
|
|
{
|
|
|
|
struct link_map **list;
|
2000-04-03 05:51:04 +02:00
|
|
|
struct link_map **rellist;
|
Update.
* sysdeps/gnu/Makefile (libdl-routines): Add eval.
1999-07-06 Zack Weinberg <zack@rabi.columbia.edu>
* dlfcn: New directory. Move the following files from elf:
dladdr.c, dlclose.c, dlerror.c, dlfcn.h, dlopen.c,
dlopenold.c, dlsym.c, dlvsym.c.
* dlfcn/Makefile: New file.
* dlfcn/Versions: New file.
* dlfcn/dlsym.c: All ELF-specific code split out to new
function _dl_sym.
* dlfcn/dlvsym.c: All ELF-specific code split out to new
function _dl_vsym.
* elf/dl-sym.c: New file. _dl_sym and _dl_vsym are
implemented here.
* dlfcn/dladdr.c: Remove all references to ELF data structures
or headers.
* dlfcn/dlclose.c: Likewise.
* dlfcn/dlerror.c: Likewise.
* dlfcn/dlopen.c: Likewise.
* dlfcn/dlopenold.c: Likewise.
* Makeconfig (dlfcn): New variable - set to `dlfcn' if elf is
yes, empty otherwise.
(libdl): Set to dlfcn/libdl.so or libdl.a if elf is yes,
depending on build-shared.
(subdirs): Add $(dlfcn).
(rpath-dirs): Add dlfcn.
* elf/Makefile: Remove all references to libdl or its
components, except the ones relating to the test cases.
(routines): Add dl-sym.
* elf/Versions (libc): Add _dl_sym and _dl_vsym for GLIBC_2.2.
(libdl): Delete.
* elf/dl-close.c (_dl_close): Change argument to void *.
* elf/dl-open.c (_dl_open): Change return type to void *.
* elf/eval.c: Removed.
* elf/ldsodefs.h: Move prototypes of _dl_catch_error,
_dlerror_run, _dl_open, _dl_close, _dl_addr, and
_dl_mcount_wrapper_check to include/dlfcn.h. Delete
_CALL_DL_FCT macro.
* include/dlfcn.h: Also prototype _dl_sym and _dl_vsym here.
Include real header from dlfcn directory.
* include/ldsodefs.h: Removed.
* grp/initgroups.c: Use DL_CALL_FCT not _CALL_DL_FCT.
* nss/getXXbyYY_r.c: Likewise.
* nss/getXXent_r.c: Likewise.
* iconv/gconv.c: Likewise. Don't include ldsodefs.h.
* iconv/gconv_db.c: Likewise. Don't include ldsodefs.h.
* iconv/skeleton.c: Don't include ldsodefs.h.
* nss/nsswitch.h: Don't include ldsodefs.h. Include dlfcn.h.
1999-07-07 Ulrich Drepper <drepper@cygnus.com>
1999-07-07 20:39:33 +02:00
|
|
|
struct link_map *map = _map;
|
2000-04-03 05:51:04 +02:00
|
|
|
unsigned int nsearchlist;
|
|
|
|
unsigned int nrellist;
|
1996-06-10 22:19:39 +02:00
|
|
|
unsigned int i;
|
|
|
|
|
2000-07-21 00:53:54 +02:00
|
|
|
/* First see whether we can remove the object at all. */
|
|
|
|
if (map->l_flags_1 & DF_1_NODELETE)
|
|
|
|
/* Nope. Do nothing. */
|
|
|
|
return;
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
if (map->l_opencount == 0)
|
2000-06-10 06:01:36 +02:00
|
|
|
_dl_signal_error (0, map->l_name, N_("shared object not open"));
|
1996-06-10 22:19:39 +02:00
|
|
|
|
1997-09-05 03:43:20 +02:00
|
|
|
/* Acquire the lock. */
|
|
|
|
__libc_lock_lock (_dl_load_lock);
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
/* Decrement the reference count. */
|
1998-05-20 12:50:03 +02:00
|
|
|
if (map->l_opencount > 1 || map->l_type != lt_loaded)
|
1997-09-05 03:43:20 +02:00
|
|
|
{
|
|
|
|
/* There are still references to this object. Do nothing more. */
|
2000-08-28 10:32:23 +02:00
|
|
|
if (__builtin_expect (_dl_debug_files, 0))
|
|
|
|
{
|
|
|
|
char buf[20];
|
|
|
|
|
|
|
|
buf[sizeof buf - 1] = '\0';
|
|
|
|
|
|
|
|
_dl_debug_message (1, "\nclosing file=", map->l_name,
|
|
|
|
"; opencount == ",
|
|
|
|
_itoa_word (map->l_opencount,
|
|
|
|
buf + sizeof buf - 1, 10, 0),
|
|
|
|
"\n", NULL);
|
|
|
|
}
|
|
|
|
|
1998-05-20 12:50:03 +02:00
|
|
|
--map->l_opencount;
|
1997-09-05 03:43:20 +02:00
|
|
|
__libc_lock_unlock (_dl_load_lock);
|
|
|
|
return;
|
|
|
|
}
|
1996-06-10 22:19:39 +02:00
|
|
|
|
1998-09-06 11:16:53 +02:00
|
|
|
list = map->l_searchlist.r_list;
|
|
|
|
nsearchlist = map->l_searchlist.r_nlist;
|
1998-05-20 12:50:03 +02:00
|
|
|
|
2000-04-03 05:51:04 +02:00
|
|
|
rellist = map->l_reldeps;
|
|
|
|
nrellist = map->l_reldepsact;
|
|
|
|
|
1998-05-20 12:50:03 +02:00
|
|
|
/* Call all termination functions at once. */
|
1998-08-26 20:03:49 +02:00
|
|
|
for (i = 0; i < nsearchlist; ++i)
|
1998-05-20 12:50:03 +02:00
|
|
|
{
|
2000-03-30 18:30:49 +02:00
|
|
|
struct link_map *imap = map->l_initfini[i];
|
1998-05-25 12:01:47 +02:00
|
|
|
if (imap->l_opencount == 1 && imap->l_type == lt_loaded
|
2000-03-30 18:30:49 +02:00
|
|
|
&& (imap->l_info[DT_FINI] || imap->l_info[DT_FINI_ARRAY])
|
2000-08-25 18:48:42 +02:00
|
|
|
&& ! (list[i]->l_flags_1 & DF_1_NODELETE)
|
1998-07-13 14:29:13 +02:00
|
|
|
/* Skip any half-cooked objects that were never initialized. */
|
|
|
|
&& imap->l_init_called)
|
1998-05-20 12:50:03 +02:00
|
|
|
{
|
1998-05-25 12:01:47 +02:00
|
|
|
/* When debugging print a message first. */
|
2000-04-17 17:41:59 +02:00
|
|
|
if (__builtin_expect (_dl_debug_impcalls, 0))
|
1998-05-25 12:01:47 +02:00
|
|
|
_dl_debug_message (1, "\ncalling fini: ", imap->l_name,
|
|
|
|
"\n\n", NULL);
|
2000-03-30 18:30:49 +02:00
|
|
|
|
1998-05-25 12:01:47 +02:00
|
|
|
/* Call its termination function. */
|
2000-03-30 18:30:49 +02:00
|
|
|
if (imap->l_info[DT_FINI_ARRAY] != NULL)
|
|
|
|
{
|
|
|
|
ElfW(Addr) *array =
|
|
|
|
(ElfW(Addr) *) (imap->l_addr
|
|
|
|
+ imap->l_info[DT_FINI_ARRAY]->d_un.d_ptr);
|
|
|
|
unsigned int sz = (imap->l_info[DT_FINI_ARRAYSZ]->d_un.d_val
|
|
|
|
/ sizeof (ElfW(Addr)));
|
|
|
|
unsigned int cnt;
|
|
|
|
|
|
|
|
for (cnt = 0; cnt < sz; ++cnt)
|
|
|
|
((fini_t) (imap->l_addr + array[cnt])) ();
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Next try the old-style destructor. */
|
|
|
|
if (imap->l_info[DT_FINI] != NULL)
|
|
|
|
(*(void (*) (void)) ((void *) imap->l_addr
|
|
|
|
+ imap->l_info[DT_FINI]->d_un.d_ptr)) ();
|
1998-05-20 12:50:03 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1996-06-13 06:06:45 +02:00
|
|
|
/* Notify the debugger we are about to remove some loaded objects. */
|
|
|
|
_r_debug.r_state = RT_DELETE;
|
|
|
|
_dl_debug_state ();
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
/* The search list contains a counted reference to each object it
|
|
|
|
points to, the 0th elt being MAP itself. Decrement the reference
|
|
|
|
counts on all the objects MAP depends on. */
|
1998-08-26 20:03:49 +02:00
|
|
|
for (i = 0; i < nsearchlist; ++i)
|
2000-07-21 00:53:54 +02:00
|
|
|
if (! (list[i]->l_flags_1 & DF_1_NODELETE))
|
|
|
|
--list[i]->l_opencount;
|
1996-06-10 22:19:39 +02:00
|
|
|
|
|
|
|
/* Check each element of the search list to see if all references to
|
|
|
|
it are gone. */
|
1998-08-26 20:03:49 +02:00
|
|
|
for (i = 0; i < nsearchlist; ++i)
|
1996-06-10 22:19:39 +02:00
|
|
|
{
|
1998-01-25 18:01:47 +01:00
|
|
|
struct link_map *imap = list[i];
|
|
|
|
if (imap->l_opencount == 0 && imap->l_type == lt_loaded)
|
1996-06-10 22:19:39 +02:00
|
|
|
{
|
1998-09-01 19:19:00 +02:00
|
|
|
struct libname_list *lnp;
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
/* That was the last reference, and this was a dlopen-loaded
|
|
|
|
object. We can unmap it. */
|
1998-01-25 18:01:47 +01:00
|
|
|
if (imap->l_global)
|
1996-06-10 22:19:39 +02:00
|
|
|
{
|
|
|
|
/* This object is in the global scope list. Remove it. */
|
1999-01-21 01:14:27 +01:00
|
|
|
int cnt = _dl_main_searchlist->r_nlist;
|
1998-09-06 11:16:53 +02:00
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
do
|
1999-01-21 15:17:43 +01:00
|
|
|
--cnt;
|
1998-09-06 11:16:53 +02:00
|
|
|
while (_dl_main_searchlist->r_list[cnt] != imap);
|
1999-01-16 18:09:04 +01:00
|
|
|
|
1999-01-21 15:17:43 +01:00
|
|
|
/* The object was already correctly registered. */
|
|
|
|
while (++cnt < _dl_main_searchlist->r_nlist)
|
|
|
|
_dl_main_searchlist->r_list[cnt - 1]
|
|
|
|
= _dl_main_searchlist->r_list[cnt];
|
|
|
|
|
|
|
|
--_dl_main_searchlist->r_nlist;
|
1996-06-10 22:19:39 +02:00
|
|
|
}
|
|
|
|
|
1998-09-01 19:19:00 +02:00
|
|
|
/* We can unmap all the maps at once. We determined the
|
1998-09-02 01:08:36 +02:00
|
|
|
start address and length when we loaded the object and
|
|
|
|
the `munmap' call does the rest. */
|
1998-09-01 19:19:00 +02:00
|
|
|
__munmap ((void *) imap->l_map_start,
|
|
|
|
imap->l_map_end - imap->l_map_start);
|
1998-03-16 19:30:44 +01:00
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
/* Finally, unlink the data structure and free it. */
|
2000-03-31 07:50:02 +02:00
|
|
|
#ifdef SHARED
|
1998-08-31 19:23:45 +02:00
|
|
|
/* We will unlink the first object only if this is a statically
|
|
|
|
linked program. */
|
|
|
|
assert (imap->l_prev != NULL);
|
1998-09-01 12:35:19 +02:00
|
|
|
imap->l_prev->l_next = imap->l_next;
|
1998-08-31 19:23:45 +02:00
|
|
|
#else
|
|
|
|
if (imap->l_prev != NULL)
|
1998-01-25 18:01:47 +01:00
|
|
|
imap->l_prev->l_next = imap->l_next;
|
1998-08-31 19:23:45 +02:00
|
|
|
else
|
|
|
|
_dl_loaded = imap->l_next;
|
|
|
|
#endif
|
2000-08-16 08:30:08 +02:00
|
|
|
--_dl_nloaded;
|
1998-01-25 18:01:47 +01:00
|
|
|
if (imap->l_next)
|
|
|
|
imap->l_next->l_prev = imap->l_prev;
|
1998-09-01 19:19:00 +02:00
|
|
|
|
|
|
|
if (imap->l_versions != NULL)
|
|
|
|
free (imap->l_versions);
|
1998-09-09 15:19:34 +02:00
|
|
|
if (imap->l_origin != NULL && imap->l_origin != (char *) -1)
|
1998-09-01 19:19:00 +02:00
|
|
|
free ((char *) imap->l_origin);
|
|
|
|
|
1998-09-02 01:08:36 +02:00
|
|
|
/* This name always is allocated. */
|
1998-09-01 19:19:00 +02:00
|
|
|
free (imap->l_name);
|
1998-09-02 01:08:36 +02:00
|
|
|
/* Remove the list with all the names of the shared object. */
|
1998-09-01 19:19:00 +02:00
|
|
|
lnp = imap->l_libname;
|
|
|
|
do
|
|
|
|
{
|
1998-09-01 19:58:59 +02:00
|
|
|
struct libname_list *this = lnp;
|
1998-09-01 19:19:00 +02:00
|
|
|
lnp = lnp->next;
|
1998-09-01 19:58:59 +02:00
|
|
|
free (this);
|
1998-09-01 19:19:00 +02:00
|
|
|
}
|
|
|
|
while (lnp != NULL);
|
|
|
|
|
1998-09-02 01:08:36 +02:00
|
|
|
/* Remove the searchlists. */
|
2000-03-30 18:30:49 +02:00
|
|
|
if (imap != map)
|
1998-09-02 01:08:36 +02:00
|
|
|
{
|
2000-08-15 09:06:23 +02:00
|
|
|
if (imap->l_searchlist.r_list != NULL)
|
|
|
|
free (imap->l_searchlist.r_list);
|
|
|
|
else if (imap->l_initfini != NULL)
|
|
|
|
free (imap->l_initfini);
|
1998-09-02 01:08:36 +02:00
|
|
|
}
|
|
|
|
|
1999-05-07 02:00:48 +02:00
|
|
|
if (imap->l_phdr_allocated)
|
1999-05-17 11:56:54 +02:00
|
|
|
free ((void *) imap->l_phdr);
|
1999-05-07 02:00:48 +02:00
|
|
|
|
1998-01-25 18:01:47 +01:00
|
|
|
free (imap);
|
1996-06-10 22:19:39 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2000-04-03 05:51:04 +02:00
|
|
|
/* Now we can perhaps also remove the modules for which we had
|
|
|
|
dependencies because of symbol lookup. */
|
|
|
|
if (rellist != NULL)
|
|
|
|
{
|
|
|
|
while (nrellist-- > 0)
|
|
|
|
_dl_close (rellist[nrellist]);
|
|
|
|
|
|
|
|
free (rellist);
|
|
|
|
}
|
|
|
|
|
1996-06-10 22:19:39 +02:00
|
|
|
free (list);
|
1996-06-13 06:06:45 +02:00
|
|
|
|
1999-01-20 19:32:29 +01:00
|
|
|
if (_dl_global_scope_alloc != 0
|
|
|
|
&& _dl_main_searchlist->r_nlist == _dl_initial_searchlist.r_nlist)
|
|
|
|
{
|
|
|
|
/* All object dynamically loaded by the program are unloaded. Free
|
|
|
|
the memory allocated for the global scope variable. */
|
|
|
|
struct link_map **old = _dl_main_searchlist->r_list;
|
|
|
|
|
|
|
|
/* Put the old map in. */
|
|
|
|
_dl_main_searchlist->r_list = _dl_initial_searchlist.r_list;
|
|
|
|
/* Signal that the original map is used. */
|
|
|
|
_dl_global_scope_alloc = 0;
|
|
|
|
|
|
|
|
/* Now free the old map. */
|
|
|
|
free (old);
|
|
|
|
}
|
|
|
|
|
1996-06-13 06:06:45 +02:00
|
|
|
/* Notify the debugger those objects are finalized and gone. */
|
|
|
|
_r_debug.r_state = RT_CONSISTENT;
|
|
|
|
_dl_debug_state ();
|
1997-09-05 03:43:20 +02:00
|
|
|
|
|
|
|
/* Release the lock. */
|
|
|
|
__libc_lock_unlock (_dl_load_lock);
|
1996-06-10 22:19:39 +02:00
|
|
|
}
|