]>
sourceware.org Git - glibc.git/blob - elf/rtld.c
1 /* Run time dynamic linker.
2 Copyright (C) 1995, 1996 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
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 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with the GNU C Library; see the file COPYING.LIB. If
17 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
18 Cambridge, MA 02139, USA. */
21 #include "dynamic-link.h"
25 #include "../stdio-common/_itoa.h"
31 #error "sysdeps/MACHINE/dl-machine.h fails to define RTLD_START"
34 /* System-specific function to do initial startup for the dynamic linker.
35 After this, file access calls and getenv must work. This is responsible
36 for setting _dl_secure if we need to be secure (e.g. setuid),
37 and for setting _dl_argc and _dl_argv, and then calling _dl_main. */
38 extern ElfW(Addr
) _dl_sysdep_start (void **start_argptr
,
39 void (*dl_main
) (const ElfW(Phdr
) *phdr
,
41 ElfW(Addr
) *user_entry
));
42 extern void _dl_sysdep_start_cleanup (void);
47 const char *_dl_rpath
;
49 struct r_debug _dl_r_debug
;
51 static void dl_main (const ElfW(Phdr
) *phdr
,
53 ElfW(Addr
) *user_entry
);
55 struct link_map _dl_rtld_map
;
60 struct link_map bootstrap_map
;
62 /* Figure out the run-time load address of the dynamic linker itself. */
63 bootstrap_map
.l_addr
= elf_machine_load_address ();
65 /* Read our own dynamic section and fill in the info array.
66 Conveniently, the first element of the GOT contains the
67 offset of _DYNAMIC relative to the run-time load address. */
68 bootstrap_map
.l_ld
= (void *) bootstrap_map
.l_addr
+ *elf_machine_got ();
69 elf_get_dynamic_info (bootstrap_map
.l_ld
, bootstrap_map
.l_info
);
71 #ifdef ELF_MACHINE_BEFORE_RTLD_RELOC
72 ELF_MACHINE_BEFORE_RTLD_RELOC (bootstrap_map
.l_info
);
75 /* Relocate ourselves so we can do normal function calls and
76 data access using the global offset table. */
78 ELF_DYNAMIC_RELOCATE (&bootstrap_map
, 0, NULL
);
81 /* Now life is sane; we can call functions and access global data.
82 Set up to use the operating system facilities, and find out from
83 the operating system's program loader where to find the program
84 header table in core. */
87 /* Transfer data about ourselves to the permanent link_map structure. */
88 _dl_rtld_map
.l_addr
= bootstrap_map
.l_addr
;
89 _dl_rtld_map
.l_ld
= bootstrap_map
.l_ld
;
90 memcpy (_dl_rtld_map
.l_info
, bootstrap_map
.l_info
,
91 sizeof _dl_rtld_map
.l_info
);
92 _dl_setup_hash (&_dl_rtld_map
);
94 /* Cache the DT_RPATH stored in ld.so itself; this will be
95 the default search path. */
96 _dl_rpath
= (void *) (_dl_rtld_map
.l_addr
+
97 _dl_rtld_map
.l_info
[DT_STRTAB
]->d_un
.d_ptr
+
98 _dl_rtld_map
.l_info
[DT_RPATH
]->d_un
.d_val
);
100 /* Call the OS-dependent function to set up life so we can do things like
101 file access. It will call `dl_main' (below) to do all the real work
102 of the dynamic linker, and then unwind our frame and run the user
103 entry point on the same stack we entered on. */
104 return _dl_sysdep_start (arg
, &dl_main
);
108 /* Now life is peachy; we can do all normal operations.
109 On to the real work. */
113 unsigned int _dl_skip_args
; /* Nonzero if we were run directly. */
116 dl_main (const ElfW(Phdr
) *phdr
,
118 ElfW(Addr
) *user_entry
)
120 const ElfW(Phdr
) *ph
;
122 const char *interpreter_name
;
126 if (*user_entry
== (ElfW(Addr
)) &_start
)
128 /* Ho ho. We are not the program interpreter! We are the program
129 itself! This means someone ran ld.so as a command. Well, that
130 might be convenient to do sometimes. We support it by
131 interpreting the args like this:
133 ld.so PROGRAM ARGS...
135 The first argument is the name of a file containing an ELF
136 executable we will load and run with the following arguments.
137 To simplify life here, PROGRAM is searched for using the
138 normal rules for shared objects, rather than $PATH or anything
139 like that. We just load it and use its entry point; we don't
140 pay attention to its PT_INTERP command (we are the interpreter
141 ourselves). This is an easy way to test a new ld.so before
145 Usage: ld.so [--list] EXECUTABLE-FILE [ARGS-FOR-PROGRAM...]\n\
146 You have invoked `ld.so', the helper program for shared library executables.\n\
147 This program usually lives in the file `/lib/ld.so', and special directives\n\
148 in executable files using ELF shared libraries tell the system's program\n\
149 loader to load the helper program from this file. This helper program loads\n\
150 the shared libraries needed by the program executable, prepares the program\n\
151 to run, and runs it. You may invoke this helper program directly from the\n\
152 command line to load and run an ELF executable file; this is like executing\n\
153 that file itself, but always uses this helper program from the file you\n\
154 specified, instead of the helper program file specified in the executable\n\
155 file you run. This is mostly of use for maintainers to test new versions\n\
156 of this helper program; chances are you did not intend to run this program.\n",
159 interpreter_name
= _dl_argv
[0];
161 if (! strcmp (_dl_argv
[1], "--list"))
174 l
= _dl_map_object (NULL
, _dl_argv
[0], lt_library
);
177 l
->l_name
= (char *) "";
178 *user_entry
= l
->l_entry
;
182 /* Create a link_map for the executable itself.
183 This will be what dlopen on "" returns. */
184 l
= _dl_new_object ((char *) "", "", lt_library
);
187 interpreter_name
= 0;
188 l
->l_entry
= *user_entry
;
193 /* GDB assumes that the first element on the chain is the
194 link_map for the executable itself, and always skips it.
195 Make sure the first one is indeed that one. */
196 l
->l_prev
->l_next
= l
->l_next
;
198 l
->l_next
->l_prev
= l
->l_prev
;
200 l
->l_next
= _dl_loaded
;
201 _dl_loaded
->l_prev
= l
;
205 /* Scan the program header table for the dynamic section. */
206 for (ph
= phdr
; ph
< &phdr
[phent
]; ++ph
)
210 /* This tells us where to find the dynamic section,
211 which tells us everything we need to do. */
212 l
->l_ld
= (void *) l
->l_addr
+ ph
->p_vaddr
;
215 /* This "interpreter segment" was used by the program loader to
216 find the program interpreter, which is this program itself, the
217 dynamic linker. We note what name finds us, so that a future
218 dlopen call or DT_NEEDED entry, for something that wants to link
219 against the dynamic linker as a shared library, will know that
220 the shared object is already loaded. */
221 interpreter_name
= (void *) l
->l_addr
+ ph
->p_vaddr
;
224 assert (interpreter_name
); /* How else did we get here? */
226 /* Extract the contents of the dynamic section for easy access. */
227 elf_get_dynamic_info (l
->l_ld
, l
->l_info
);
228 if (l
->l_info
[DT_HASH
])
229 /* Set up our cache of pointers into the hash table. */
232 if (l
->l_info
[DT_DEBUG
])
233 /* There is a DT_DEBUG entry in the dynamic section. Fill it in
234 with the run-time address of the r_debug structure, which we
235 will set up later to communicate with the debugger. */
236 l
->l_info
[DT_DEBUG
]->d_un
.d_ptr
= (ElfW(Addr
)) &_dl_r_debug
;
238 /* Put the link_map for ourselves on the chain so it can be found by
240 _dl_rtld_map
.l_name
= (char *) _dl_rtld_map
.l_libname
= interpreter_name
;
241 _dl_rtld_map
.l_type
= lt_library
;
244 l
->l_next
= &_dl_rtld_map
;
245 _dl_rtld_map
.l_prev
= l
;
247 /* Load all the libraries specified by DT_NEEDED entries. */
248 _dl_map_object_deps (l
);
250 /* XXX if kept, move it so l_next list is in dep order because
251 it will determine gdb's search order.
252 Perhaps do this always, so later dlopen by name finds it?
253 XXX But then gdb always considers it present. */
254 if (_dl_rtld_map
.l_opencount
== 0)
256 /* No DT_NEEDED entry referred to the interpreter object itself,
257 so remove it from the list of visible objects. */
258 _dl_rtld_map
.l_prev
->l_next
= _dl_rtld_map
.l_next
;
259 if (_dl_rtld_map
.l_next
)
260 _dl_rtld_map
.l_next
->l_prev
= _dl_rtld_map
.l_prev
;
265 /* We were run just to list the shared libraries. It is
266 important that we do this before real relocation, because the
267 functions we call below for output may no longer work properly
272 if (! _dl_loaded
->l_info
[DT_NEEDED
])
273 _dl_sysdep_message ("\t", "statically linked\n", NULL
);
275 for (l
= _dl_loaded
->l_next
; l
; l
= l
->l_next
)
278 buf
[sizeof buf
- 1] = '\0';
279 bp
= _itoa (l
->l_addr
, &buf
[sizeof buf
- 1], 16, 0);
280 while (&buf
[sizeof buf
- 1] - bp
< sizeof l
->l_addr
* 2)
282 _dl_sysdep_message ("\t", l
->l_libname
, " => ", l
->l_name
,
283 " (0x", bp
, ")\n", NULL
);
286 for (i
= 1; i
< _dl_argc
; ++i
)
288 const ElfW(Sym
) *ref
= NULL
;
289 ElfW(Addr
) loadbase
= _dl_lookup_symbol (_dl_argv
[i
], &ref
,
290 &_dl_default_scope
[2],
293 buf
[sizeof buf
- 1] = '\0';
294 bp
= _itoa (ref
->st_value
, &buf
[sizeof buf
- 1], 16, 0);
295 while (&buf
[sizeof buf
- 1] - bp
< sizeof loadbase
* 2)
297 _dl_sysdep_message (_dl_argv
[i
], " found at 0x", bp
, NULL
);
298 buf
[sizeof buf
- 1] = '\0';
299 bp
= _itoa (loadbase
, &buf
[sizeof buf
- 1], 16, 0);
300 while (&buf
[sizeof buf
- 1] - bp
< sizeof loadbase
* 2)
302 _dl_sysdep_message (" in object at 0x", bp
, "\n", NULL
);
308 lazy
= !_dl_secure
&& *(getenv ("LD_BIND_NOW") ?: "") == '\0';
311 /* Now we have all the objects loaded. Relocate them all except for
312 the dynamic linker itself. We do this in reverse order so that copy
313 relocs of earlier objects overwrite the data written by later
314 objects. We do not re-relocate the dynamic linker itself in this
315 loop because that could result in the GOT entries for functions we
316 call being changed, and that would break us. It is safe to relocate
317 the dynamic linker out of order because it has no copy relocs (we
318 know that because it is self-contained). */
325 if (l
!= &_dl_rtld_map
)
327 _dl_relocate_object (l
, _dl_object_relocation_scope (l
), lazy
);
328 *_dl_global_scope_end
= NULL
;
333 /* Do any necessary cleanups for the startup OS interface code.
334 We do these now so that no calls are made after rtld re-relocation
335 which might be resolved to different functions than we expect.
336 We cannot do this before relocating the other objects because
337 _dl_relocate_object might need to call `mprotect' for DT_TEXTREL. */
338 _dl_sysdep_start_cleanup ();
340 if (_dl_rtld_map
.l_opencount
> 0)
341 /* There was an explicit ref to the dynamic linker as a shared lib.
342 Re-relocate ourselves with user-controlled symbol definitions. */
343 _dl_relocate_object (&_dl_rtld_map
, &_dl_default_scope
[2], 0);
346 /* Tell the debugger where to find the map of loaded objects. */
347 _dl_r_debug
.r_version
= 1 /* R_DEBUG_VERSION XXX */;
348 _dl_r_debug
.r_ldbase
= _dl_rtld_map
.l_addr
; /* Record our load address. */
349 _dl_r_debug
.r_map
= _dl_loaded
;
350 _dl_r_debug
.r_brk
= (ElfW(Addr
)) &_dl_r_debug_state
;
352 if (_dl_rtld_map
.l_info
[DT_INIT
])
354 /* Call the initializer for the compatibility version of the
355 dynamic linker. There is no additional initialization
356 required for the ABI-compliant dynamic linker. */
358 (*(void (*) (void)) (_dl_rtld_map
.l_addr
+
359 _dl_rtld_map
.l_info
[DT_INIT
]->d_un
.d_ptr
)) ();
361 /* Clear the field so a future dlopen won't run it again. */
362 _dl_rtld_map
.l_info
[DT_INIT
] = NULL
;
365 /* Once we return, _dl_sysdep_start will invoke
366 the DT_INIT functions and then *USER_ENTRY. */
369 /* This function exists solely to have a breakpoint set on it by the
372 _dl_r_debug_state (void)
This page took 0.059174 seconds and 6 git commands to generate.