Tests for atexit function ordering.
[kopensolaris-gnu/glibc.git] / dlfcn / dlmopen.c
1 /* Load a shared object at run time.
2    Copyright (C) 1995,96,97,98,99,2000,2003,2004 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; if not, write to the Free
17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18    02111-1307 USA.  */
19
20 #include <dlfcn.h>
21 #include <errno.h>
22 #include <libintl.h>
23 #include <stddef.h>
24 #include <unistd.h>
25 #include <ldsodefs.h>
26
27 #if !defined SHARED && defined IS_IN_libdl
28
29 void *
30 dlmopen (Lmid_t nsid, const char *file, int mode)
31 {
32   return __dlmopen (nsid, file, mode, RETURN_ADDRESS (0));
33 }
34 static_link_warning (dlmopen)
35
36 #else
37
38 struct dlmopen_args
39 {
40   /* Namespace ID.  */
41   Lmid_t nsid;
42   /* The arguments for dlopen_doit.  */
43   const char *file;
44   int mode;
45   /* The return value of dlopen_doit.  */
46   void *new;
47   /* Address of the caller.  */
48   const void *caller;
49 };
50
51 static void
52 dlmopen_doit (void *a)
53 {
54   struct dlmopen_args *args = (struct dlmopen_args *) a;
55
56   /* Non-shared code has no support for multiple namespaces.  */
57   if (args->nsid != LM_ID_BASE)
58 # ifdef SHARED
59     /* If trying to open the link map for the main executable the namespace
60        must be the main one.  */
61     if (args->file == NULL)
62 # endif
63       GLRO(dl_signal_error) (EINVAL, NULL, NULL, N_("invalid namespace"));
64
65   args->new = GLRO(dl_open) (args->file ?: "", args->mode | __RTLD_DLOPEN,
66                              args->caller,
67                              args->nsid, __dlfcn_argc, __dlfcn_argv,
68                              __environ);
69 }
70
71
72 void *
73 __dlmopen (Lmid_t nsid, const char *file, int mode DL_CALLER_DECL)
74 {
75 # ifdef SHARED
76   if (__builtin_expect (_dlfcn_hook != NULL, 0))
77     return _dlfcn_hook->dlmopen (nsid, file, mode, RETURN_ADDRESS (0));
78 # endif
79
80   struct dlmopen_args args;
81   args.nsid = nsid;
82   args.file = file;
83   args.mode = mode;
84   args.caller = DL_CALLER;
85
86 # ifdef SHARED
87   return _dlerror_run (dlmopen_doit, &args) ? NULL : args.new;
88 # else
89   if (_dlerror_run (dlmopen_doit, &args))
90     return NULL;
91
92   __libc_register_dl_open_hook ((struct link_map *) args.new);
93   __libc_register_dlfcn_hook ((struct link_map *) args.new);
94
95   return args.new;
96 # endif
97 }
98 # ifdef SHARED
99 strong_alias (__dlmopen, dlmopen)
100 # endif
101 #endif