Tests for atexit function ordering.
[kopensolaris-gnu/glibc.git] / dlfcn / dlclose.c
1 /* Close a handle opened by `dlopen'.
2    Copyright (C) 1995, 1996, 1997, 1998, 1999, 2004
3    Free Software Foundation, Inc.
4    This file is part of the GNU C Library.
5
6    The GNU C Library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Lesser General Public
8    License as published by the Free Software Foundation; either
9    version 2.1 of the License, or (at your option) any later version.
10
11    The GNU C Library is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Lesser General Public License for more details.
15
16    You should have received a copy of the GNU Lesser General Public
17    License along with the GNU C Library; if not, write to the Free
18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19    02111-1307 USA.  */
20
21 #include <dlfcn.h>
22 #include <ldsodefs.h>
23
24 #if !defined SHARED && defined IS_IN_libdl
25
26 int
27 dlclose (void *handle)
28 {
29   return __dlclose (handle);
30 }
31
32 #else
33
34 static void
35 dlclose_doit (void *handle)
36 {
37   GLRO(dl_close) (handle);
38 }
39
40 int
41 __dlclose (void *handle)
42 {
43 # ifdef SHARED
44   if (__builtin_expect (_dlfcn_hook != NULL, 0))
45     return _dlfcn_hook->dlclose (handle);
46 # endif
47
48   return _dlerror_run (dlclose_doit, handle) ? -1 : 0;
49 }
50 # ifdef SHARED
51 strong_alias (__dlclose, dlclose)
52 # endif
53 #endif