summaryrefslogtreecommitdiff
path: root/ldso/libdl
diff options
context:
space:
mode:
Diffstat (limited to 'ldso/libdl')
-rw-r--r--ldso/libdl/dlib.c600
-rw-r--r--ldso/libdl/libdl.c600
2 files changed, 582 insertions, 618 deletions
diff --git a/ldso/libdl/dlib.c b/ldso/libdl/dlib.c
index 317ab2253..508299451 100644
--- a/ldso/libdl/dlib.c
+++ b/ldso/libdl/dlib.c
@@ -4,11 +4,8 @@
* Functions required for dlopen et. al.
*/
-#include "dlfcn.h"
-/* #include "link.h" */
#include <stdlib.h>
-#include <linux/mman.h>
-#include <linux/unistd.h>
+#include "dlfcn.h"
#include "sysdep.h"
#include "syscall.h"
#include "hash.h"
@@ -16,26 +13,26 @@
#include "linuxelf.h"
extern int _dl_error_number;
-extern struct r_debug * _dl_debug_addr;
+extern struct r_debug *_dl_debug_addr;
-extern void * (*_dl_malloc_function)(size_t size);
+extern void *(*_dl_malloc_function) (size_t size);
-static int do_fixup(struct elf_resolve * tpnt, int flag);
+static int do_fixup(struct elf_resolve *tpnt, int flag);
static int do_dlclose(void *, int need_fini);
-void * _dlopen(char * filename, int flag);
-const char * _dlerror(void);
-void * _dlsym(void *, char *);
+void *_dlopen(char *filename, int flag);
+const char *_dlerror(void);
+void *_dlsym(void *, char *);
int _dlclose(void *);
-int _dladdr(void * __address, Dl_info * __dlip );
+int _dladdr(void *__address, Dl_info * __dlip);
-static const char * dl_error_names[] = {
+static const char *dl_error_names[] = {
"",
"File not found",
"Unable to open /dev/zero",
"Not an ELF file",
#if defined (__i386__)
- "Not i386 binary",
+ "Not i386 binary",
#elif defined (__sparc__)
"Not sparc binary",
#elif defined (__mc68000__)
@@ -54,31 +51,30 @@ static const char * dl_error_names[] = {
"Bad handle",
"Unable to resolve symbol"
};
-
+
static void dl_cleanup(void) __attribute__ ((destructor));
static void dl_cleanup(void)
{
- struct dyn_elf* d;
-
+ struct dyn_elf *d;
+
for (d = _dl_handles; d; d = d->next_handle)
- if (d->dyn->libtype == loaded_file && d->dyn->dynamic_info[DT_FINI])
- {
- (*((int(*)(void))(d->dyn->loadaddr + d->dyn->dynamic_info[DT_FINI])))();
+ if (d->dyn->libtype == loaded_file && d->dyn->dynamic_info[DT_FINI]) {
+ (* ((int (*)(void)) (d->dyn->loadaddr + d->dyn->dynamic_info[DT_FINI]))) ();
d->dyn->dynamic_info[DT_FINI] = 0;
}
}
-void * _dlopen(char * libname, int flag)
+void *_dlopen(char *libname, int flag)
{
- struct elf_resolve * tpnt, *tfrom;
- struct dyn_elf * rpnt;
- struct dyn_elf * dyn_chain;
- struct dyn_elf * dpnt;
+ struct elf_resolve *tpnt, *tfrom;
+ struct dyn_elf *rpnt;
+ struct dyn_elf *dyn_chain;
+ struct dyn_elf *dpnt;
static int dl_init = 0;
- char * from;
- void (*dl_brk)(void);
- int (*dl_elf_init)(void);
+ char *from;
+ void (*dl_brk) (void);
+ int (*dl_elf_init) (void);
from = __builtin_return_address(0);
@@ -89,7 +85,8 @@ void * _dlopen(char * libname, int flag)
}
/* Cover the trivial case first */
- if (!libname) return _dl_symbol_tables;
+ if (!libname)
+ return _dl_symbol_tables;
#ifdef USE_CACHE
_dl_map_cache();
@@ -104,31 +101,28 @@ void * _dlopen(char * libname, int flag)
* in the future.
*/
tfrom = NULL;
- for(dpnt = _dl_symbol_tables; dpnt; dpnt = dpnt->next)
- {
- tpnt = dpnt->dyn;
- if( tpnt->loadaddr < from
- && ( tfrom == NULL
- || tfrom->loadaddr < tpnt->loadaddr))
- tfrom = tpnt;
- }
+ for (dpnt = _dl_symbol_tables; dpnt; dpnt = dpnt->next) {
+ tpnt = dpnt->dyn;
+ if (tpnt->loadaddr < from
+ && (tfrom == NULL || tfrom->loadaddr < tpnt->loadaddr))
+ tfrom = tpnt;
+ }
- if(!(tpnt = _dl_load_shared_library(0, tfrom, libname)))
- {
+ if (!(tpnt = _dl_load_shared_library(0, tfrom, libname))) {
#ifdef USE_CACHE
- _dl_unmap_cache();
+ _dl_unmap_cache();
#endif
- return NULL;
+ return NULL;
}
tpnt->usage_count++;
- dyn_chain = rpnt =
- (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
- _dl_memset (rpnt, 0, sizeof(*rpnt));
+ dyn_chain = rpnt = (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
+ _dl_memset(rpnt, 0, sizeof(*rpnt));
rpnt->dyn = tpnt;
rpnt->flags = flag;
- if (!tpnt->symbol_scope) tpnt->symbol_scope = dyn_chain;
-
+ if (!tpnt->symbol_scope)
+ tpnt->symbol_scope = dyn_chain;
+
rpnt->next_handle = _dl_handles;
_dl_handles = rpnt;
@@ -154,8 +148,7 @@ void * _dlopen(char * libname, int flag)
if(!(tpnt1 = _dl_load_shared_library(0, tcurr, lpnt)))
goto oops;
- rpnt->next =
- (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
+ rpnt->next = (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
_dl_memset (rpnt->next, 0, sizeof (*(rpnt->next)));
rpnt = rpnt->next;
tpnt1->usage_count++;
@@ -175,179 +168,178 @@ void * _dlopen(char * libname, int flag)
rpnt->next = _dl_symbol_tables;
if (do_fixup(tpnt, flag)) {
- _dl_error_number = DL_NO_SYMBOL;
- goto oops;
+ _dl_error_number = DL_NO_SYMBOL;
+ goto oops;
}
dl_brk = (void (*)()) _dl_debug_addr->r_brk;
- if( dl_brk != NULL )
- {
- _dl_debug_addr->r_state = RT_ADD;
- (*dl_brk)();
-
- _dl_debug_addr->r_state = RT_CONSISTENT;
- (*dl_brk)();
- }
+ if (dl_brk != NULL) {
+ _dl_debug_addr->r_state = RT_ADD;
+ (*dl_brk) ();
- for(rpnt = dyn_chain; rpnt; rpnt = rpnt->next)
- {
+ _dl_debug_addr->r_state = RT_CONSISTENT;
+ (*dl_brk) ();
+ }
+
+ for (rpnt = dyn_chain; rpnt; rpnt = rpnt->next) {
tpnt = rpnt->dyn;
- /* Apparently crt1 for the application is responsible for handling this.
- * We only need to run the init/fini for shared libraries
- */
- if (tpnt->libtype == elf_executable) continue;
- if (tpnt->init_flag & INIT_FUNCS_CALLED) continue;
- tpnt->init_flag |= INIT_FUNCS_CALLED;
-
- if(tpnt->dynamic_info[DT_INIT]) {
- dl_elf_init = (int (*)(void)) (tpnt->loadaddr +
- tpnt->dynamic_info[DT_INIT]);
- (*dl_elf_init)();
- }
- }
+ /* Apparently crt1 for the application is responsible for handling this.
+ * We only need to run the init/fini for shared libraries
+ */
+ if (tpnt->libtype == elf_executable)
+ continue;
+ if (tpnt->init_flag & INIT_FUNCS_CALLED)
+ continue;
+ tpnt->init_flag |= INIT_FUNCS_CALLED;
+
+ if (tpnt->dynamic_info[DT_INIT]) {
+ dl_elf_init = (int (*)(void)) (tpnt->loadaddr + tpnt->dynamic_info[DT_INIT]);
+ (*dl_elf_init) ();
+ }
+ }
#ifdef USE_CACHE
_dl_unmap_cache();
#endif
return (void *) dyn_chain;
-oops:
+ oops:
/* Something went wrong. Clean up and return NULL. */
#ifdef USE_CACHE
_dl_unmap_cache();
#endif
- do_dlclose (dyn_chain, 0);
+ do_dlclose(dyn_chain, 0);
return NULL;
}
-static int do_fixup(struct elf_resolve * tpnt, int flag)
+static int do_fixup(struct elf_resolve *tpnt, int flag)
{
- int goof = 0;
- if(tpnt->next) goof += do_fixup(tpnt->next, flag);
+ int goof = 0;
+
+ if (tpnt->next)
+ goof += do_fixup(tpnt->next, flag);
- if(tpnt->dynamic_info[DT_REL]) {
+ if (tpnt->dynamic_info[DT_REL]) {
#ifdef ELF_USES_RELOCA
- goof++;
+ goof++;
#else
- if (tpnt->init_flag & RELOCS_DONE) return goof;
- tpnt->init_flag |= RELOCS_DONE;
-
- goof += _dl_parse_relocation_information(tpnt, tpnt->dynamic_info[DT_REL],
- tpnt->dynamic_info[DT_RELSZ], 0);
+ if (tpnt->init_flag & RELOCS_DONE)
+ return goof;
+ tpnt->init_flag |= RELOCS_DONE;
+
+ goof += _dl_parse_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_REL], tpnt->dynamic_info[DT_RELSZ], 0);
#endif
- }
- if(tpnt->dynamic_info[DT_RELA]) {
+ }
+ if (tpnt->dynamic_info[DT_RELA]) {
#ifdef ELF_USES_RELOCA
- if (tpnt->init_flag & RELOCS_DONE) return goof;
- tpnt->init_flag |= RELOCS_DONE;
-
- goof += _dl_parse_relocation_information(tpnt, tpnt->dynamic_info[DT_RELA],
- tpnt->dynamic_info[DT_RELASZ], 0);
+ if (tpnt->init_flag & RELOCS_DONE)
+ return goof;
+ tpnt->init_flag |= RELOCS_DONE;
+
+ goof += _dl_parse_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_RELA], tpnt->dynamic_info[DT_RELASZ], 0);
#else
- goof++;
+ goof++;
#endif
- }
- if(tpnt->dynamic_info[DT_JMPREL])
- {
- if (tpnt->init_flag & JMP_RELOCS_DONE) return goof;
- tpnt->init_flag |= JMP_RELOCS_DONE;
-
- if(flag == RTLD_LAZY)
- _dl_parse_lazy_relocation_information(tpnt, tpnt->dynamic_info[DT_JMPREL],
- tpnt->dynamic_info[DT_PLTRELSZ], 0);
- else
- goof += _dl_parse_relocation_information(tpnt,
- tpnt->dynamic_info[DT_JMPREL],
- tpnt->dynamic_info[DT_PLTRELSZ], 0);
- };
- return goof;
+ }
+ if (tpnt->dynamic_info[DT_JMPREL]) {
+ if (tpnt->init_flag & JMP_RELOCS_DONE)
+ return goof;
+ tpnt->init_flag |= JMP_RELOCS_DONE;
+
+ if (flag == RTLD_LAZY)
+ _dl_parse_lazy_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_JMPREL],
+ tpnt->dynamic_info[DT_PLTRELSZ], 0);
+ else
+ goof += _dl_parse_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_JMPREL],
+ tpnt->dynamic_info[DT_PLTRELSZ], 0);
+ };
+ return goof;
}
-void * _dlsym(void * vhandle, char * name)
-{
- struct elf_resolve * tpnt, *tfrom;
- struct dyn_elf * handle;
- char * from;
- struct dyn_elf * rpnt;
+void *_dlsym(void *vhandle, char *name)
+{
+ struct elf_resolve *tpnt, *tfrom;
+ struct dyn_elf *handle;
+ char *from;
+ struct dyn_elf *rpnt;
void *ret;
handle = (struct dyn_elf *) vhandle;
/* First of all verify that we have a real handle
- of some kind. Return NULL if not a valid handle. */
+ of some kind. Return NULL if not a valid handle. */
if (handle == NULL)
handle = _dl_symbol_tables;
else if (handle != RTLD_NEXT && handle != _dl_symbol_tables) {
- for(rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle)
- if (rpnt == handle) break;
+ for (rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle)
+ if (rpnt == handle)
+ break;
if (!rpnt) {
_dl_error_number = DL_BAD_HANDLE;
return NULL;
}
+ } else if (handle == RTLD_NEXT) {
+ /*
+ * Try and locate the module we were called from - we
+ * need this so that we know where to start searching
+ * from. We never pass RTLD_NEXT down into the actual
+ * dynamic loader itself, as it doesn't know
+ * how to properly treat it.
+ */
+ from = __builtin_return_address(0);
+
+ tfrom = NULL;
+ for (rpnt = _dl_symbol_tables; rpnt; rpnt = rpnt->next) {
+ tpnt = rpnt->dyn;
+ if (tpnt->loadaddr < from
+ && (tfrom == NULL || tfrom->loadaddr < tpnt->loadaddr)) {
+ tfrom = tpnt;
+ handle = rpnt->next;
+ }
+ }
}
- else if (handle == RTLD_NEXT )
- {
- /*
- * Try and locate the module we were called from - we
- * need this so that we know where to start searching
- * from. We never pass RTLD_NEXT down into the actual
- * dynamic loader itself, as it doesn't know
- * how to properly treat it.
- */
- from = __builtin_return_address(0);
-
- tfrom = NULL;
- for(rpnt = _dl_symbol_tables; rpnt; rpnt = rpnt->next)
- {
- tpnt = rpnt->dyn;
- if( tpnt->loadaddr < from
- && ( tfrom == NULL
- || tfrom->loadaddr < tpnt->loadaddr))
- {
- tfrom = tpnt;
- handle = rpnt->next;
- }
- }
- }
ret = _dl_find_hash(name, handle, 1, NULL, 1);
- /*
- * Nothing found.
- */
+ /*
+ * Nothing found.
+ */
if (!ret)
_dl_error_number = DL_NO_SYMBOL;
return ret;
}
-int _dlclose(void * vhandle)
+int _dlclose(void *vhandle)
{
- return do_dlclose(vhandle, 1);
+ return do_dlclose(vhandle, 1);
}
-static int do_dlclose(void * vhandle, int need_fini)
+static int do_dlclose(void *vhandle, int need_fini)
{
- struct dyn_elf * rpnt, *rpnt1;
+ struct dyn_elf *rpnt, *rpnt1;
struct dyn_elf *spnt, *spnt1;
- elf_phdr * ppnt;
- struct elf_resolve * tpnt;
- int (*dl_elf_fini)(void);
- void (*dl_brk)(void);
- struct dyn_elf * handle;
+ elf_phdr *ppnt;
+ struct elf_resolve *tpnt;
+ int (*dl_elf_fini) (void);
+ void (*dl_brk) (void);
+ struct dyn_elf *handle;
unsigned int end;
int i = 0;
handle = (struct dyn_elf *) vhandle;
rpnt1 = NULL;
- for(rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle)
- {
- if(rpnt == handle) {
+ for (rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle) {
+ if (rpnt == handle) {
break;
}
rpnt1 = rpnt;
}
-
+
if (!rpnt) {
_dl_error_number = DL_BAD_HANDLE;
return 1;
@@ -356,104 +348,105 @@ static int do_dlclose(void * vhandle, int need_fini)
/* OK, this is a valid handle - now close out the file.
* We check if we need to call fini () on the handle. */
spnt = need_fini ? handle : handle->next;
- for(; spnt; spnt = spnt1)
- {
- spnt1 = spnt->next;
+ for (; spnt; spnt = spnt1) {
+ spnt1 = spnt->next;
- /* We appended the module list to the end - when we get back here,
- quit. The access counts were not adjusted to account for being here. */
- if (spnt == _dl_symbol_tables) break;
- if(spnt->dyn->usage_count==1 && spnt->dyn->libtype == loaded_file) {
- tpnt = spnt->dyn;
- /* Apparently crt1 for the application is responsible for handling this.
- * We only need to run the init/fini for shared libraries
- */
-
- if(tpnt->dynamic_info[DT_FINI]) {
- dl_elf_fini = (int (*)(void)) (tpnt->loadaddr +
- tpnt->dynamic_info[DT_FINI]);
- (*dl_elf_fini)();
- }
- }
+ /* We appended the module list to the end - when we get back here,
+ quit. The access counts were not adjusted to account for being here. */
+ if (spnt == _dl_symbol_tables)
+ break;
+ if (spnt->dyn->usage_count == 1
+ && spnt->dyn->libtype == loaded_file) {
+ tpnt = spnt->dyn;
+ /* Apparently crt1 for the application is responsible for handling this.
+ * We only need to run the init/fini for shared libraries
+ */
+
+ if (tpnt->dynamic_info[DT_FINI]) {
+ dl_elf_fini = (int (*)(void)) (tpnt->loadaddr +
+ tpnt->dynamic_info[DT_FINI]);
+ (*dl_elf_fini) ();
+ }
+ }
}
- if(rpnt1)
- rpnt1->next_handle = rpnt->next_handle;
+ if (rpnt1)
+ rpnt1->next_handle = rpnt->next_handle;
else
- _dl_handles = rpnt->next_handle;
-
+ _dl_handles = rpnt->next_handle;
+
/* OK, this is a valid handle - now close out the file */
- for(rpnt = handle; rpnt; rpnt = rpnt1)
- {
+ for (rpnt = handle; rpnt; rpnt = rpnt1) {
rpnt1 = rpnt->next;
/* We appended the module list to the end - when we get back here,
quit. The access counts were not adjusted to account for being here. */
- if (rpnt == _dl_symbol_tables) break;
+ if (rpnt == _dl_symbol_tables)
+ break;
rpnt->dyn->usage_count--;
- if(rpnt->dyn->usage_count == 0 && rpnt->dyn->libtype == loaded_file)
- {
+ if (rpnt->dyn->usage_count == 0
+ && rpnt->dyn->libtype == loaded_file) {
tpnt = rpnt->dyn;
- /* Apparently crt1 for the application is responsible for handling this.
- * We only need to run the init/fini for shared libraries
- */
+ /* Apparently crt1 for the application is responsible for handling this.
+ * We only need to run the init/fini for shared libraries
+ */
#if 0
-/* We have to do this above, before we start closing objects.
-Otherwise when the needed symbols for _fini handling are
-resolved a coredump would occur. Rob Ryan (robr@cmu.edu)*/
- if(tpnt->dynamic_info[DT_FINI]) {
- dl_elf_fini = (int (*)(void)) (tpnt->loadaddr +
- tpnt->dynamic_info[DT_FINI]);
- (*dl_elf_fini)();
- }
+
+ /* We have to do this above, before we start closing objects.
+ * Otherwise when the needed symbols for _fini handling are
+ * resolved a coredump would occur. Rob Ryan (robr@cmu.edu)*/
+ if (tpnt->dynamic_info[DT_FINI]) {
+ dl_elf_fini = (int (*)(void)) (tpnt->loadaddr + tpnt->dynamic_info[DT_FINI]);
+ (*dl_elf_fini) ();
+ }
#endif
- end = 0;
- for(i = 0, ppnt = rpnt->dyn->ppnt;
- i < rpnt->dyn->n_phent; ppnt++, i++) {
- if (ppnt->p_type != PT_LOAD) continue;
+ end = 0;
+ for (i = 0, ppnt = rpnt->dyn->ppnt;
+ i < rpnt->dyn->n_phent; ppnt++, i++) {
+ if (ppnt->p_type != PT_LOAD)
+ continue;
if (end < ppnt->p_vaddr + ppnt->p_memsz)
end = ppnt->p_vaddr + ppnt->p_memsz;
}
- _dl_munmap (rpnt->dyn->loadaddr, end);
+ _dl_munmap(rpnt->dyn->loadaddr, end);
/* Next, remove rpnt->dyn from the loaded_module list */
- if (_dl_loaded_modules == rpnt->dyn)
- {
- _dl_loaded_modules = rpnt->dyn->next;
- if (_dl_loaded_modules)
- _dl_loaded_modules->prev = 0;
- }
- else
- for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next)
- if (tpnt->next == rpnt->dyn) {
- tpnt->next = tpnt->next->next;
- if (tpnt->next)
- tpnt->next->prev = tpnt;
- break;
- }
+ if (_dl_loaded_modules == rpnt->dyn) {
+ _dl_loaded_modules = rpnt->dyn->next;
+ if (_dl_loaded_modules)
+ _dl_loaded_modules->prev = 0;
+ } else
+ for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next)
+ if (tpnt->next == rpnt->dyn) {
+ tpnt->next = tpnt->next->next;
+ if (tpnt->next)
+ tpnt->next->prev = tpnt;
+ break;
+ }
free(rpnt->dyn->libname);
free(rpnt->dyn);
- }
+ }
free(rpnt);
- }
+ }
dl_brk = (void (*)()) _dl_debug_addr->r_brk;
- if( dl_brk != NULL )
- {
- _dl_debug_addr->r_state = RT_DELETE;
- (*dl_brk)();
-
- _dl_debug_addr->r_state = RT_CONSISTENT;
- (*dl_brk)();
- }
+ if (dl_brk != NULL) {
+ _dl_debug_addr->r_state = RT_DELETE;
+ (*dl_brk) ();
+
+ _dl_debug_addr->r_state = RT_CONSISTENT;
+ (*dl_brk) ();
+ }
return 0;
}
-const char * _dlerror()
+const char *_dlerror()
{
- const char * retval;
- if(!_dl_error_number) return NULL;
+ const char *retval;
+
+ if (!_dl_error_number)
+ return NULL;
retval = dl_error_names[_dl_error_number];
_dl_error_number = 0;
return retval;
@@ -481,11 +474,11 @@ possible, but at run time the normal symbols are accessed. */
static void foobar()
{
- _dl_fdprintf(2,"libdl library not correctly linked\n");
+ _dl_fdprintf(2, "libdl library not correctly linked\n");
_dl_exit(1);
}
-static int __attribute__((unused)) foobar1 = (int)foobar; /* Use as pointer */
+static int __attribute__ ((unused)) foobar1 = (int) foobar; /* Use as pointer */
#if 1
#pragma weak _dl_find_hash = foobar
@@ -516,50 +509,51 @@ __asm__(".weak _dl_map_cache; _dl_map_cache = foobar");
__asm__(".weak _dl_unmap_cache; _dl_unmap_cache = foobar");
#endif
__asm__(".weak _dl_malloc_function; _dl_malloc_function = foobar1");
-__asm__(".weak _dl_parse_relocation_information; _dl_parse_relocation_information = foobar");
-__asm__(".weak _dl_parse_lazy_relocation_information; _dl_parse_lazy_relocation_information = foobar");
+__asm__
+ (".weak _dl_parse_relocation_information; _dl_parse_relocation_information = foobar");
+__asm__
+ (".weak _dl_parse_lazy_relocation_information; _dl_parse_lazy_relocation_information = foobar");
__asm__(".weak _dl_fdprintf; _dl_fdprintf = foobar");
#endif
/*
* Dump information to stderrr about the current loaded modules
*/
-static char * type[] = {"Lib","Exe","Int","Mod"};
+static char *type[] = { "Lib", "Exe", "Int", "Mod" };
void _dlinfo()
{
- struct elf_resolve * tpnt;
- struct dyn_elf * rpnt, *hpnt;
+ struct elf_resolve *tpnt;
+ struct dyn_elf *rpnt, *hpnt;
+
_dl_fdprintf(2, "List of loaded modules\n");
/* First start with a complete list of all of the loaded files. */
- for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next)
- _dl_fdprintf(2, "\t%8.8x %8.8x %8.8x %s %d %s\n",
- (unsigned)tpnt->loadaddr, (unsigned)tpnt,
- (unsigned)tpnt->symbol_scope,
+ for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next) {
+ _dl_fdprintf(2, "\t%8.8x %8.8x %8.8x %s %d %s\n",
+ (unsigned) tpnt->loadaddr, (unsigned) tpnt,
+ (unsigned) tpnt->symbol_scope,
type[tpnt->libtype],
- tpnt->usage_count,
- tpnt->libname);
+ tpnt->usage_count, tpnt->libname);
+ }
/* Next dump the module list for the application itself */
_dl_fdprintf(2, "\nModules for application (%x):\n",
- (unsigned)_dl_symbol_tables);
+ (unsigned) _dl_symbol_tables);
for (rpnt = _dl_symbol_tables; rpnt; rpnt = rpnt->next)
- _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned)rpnt->dyn,
- rpnt->dyn->libname);
+ _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned) rpnt->dyn, rpnt->dyn->libname);
- for (hpnt = _dl_handles; hpnt; hpnt = hpnt->next_handle)
- {
- _dl_fdprintf(2, "Modules for handle %x\n", (unsigned)hpnt);
- for(rpnt = hpnt; rpnt; rpnt = rpnt->next)
- _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned)rpnt->dyn,
+ for (hpnt = _dl_handles; hpnt; hpnt = hpnt->next_handle) {
+ _dl_fdprintf(2, "Modules for handle %x\n", (unsigned) hpnt);
+ for (rpnt = hpnt; rpnt; rpnt = rpnt->next)
+ _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned) rpnt->dyn,
rpnt->dyn->libname);
}
}
-int _dladdr(void * __address, Dl_info * __dlip )
+int _dladdr(void *__address, Dl_info * __dlip)
{
- struct elf_resolve * pelf;
- struct elf_resolve * rpnt;
+ struct elf_resolve *pelf;
+ struct elf_resolve *rpnt;
#ifdef USE_CACHE
_dl_map_cache();
@@ -571,78 +565,66 @@ int _dladdr(void * __address, Dl_info * __dlip )
pelf = NULL;
#if 0
- _dl_fdprintf( 2,
- "dladdr( 0x%p, 0x%p )\n",
- __address, __dlip );
+ _dl_fdprintf(2, "dladdr( 0x%p, 0x%p )\n", __address, __dlip);
#endif
- for(rpnt = _dl_loaded_modules; rpnt; rpnt = rpnt->next)
- {
- struct elf_resolve * tpnt;
- tpnt = rpnt;
+ for (rpnt = _dl_loaded_modules; rpnt; rpnt = rpnt->next) {
+ struct elf_resolve *tpnt;
+
+ tpnt = rpnt;
#if 0
- _dl_fdprintf( 2,
- "Module \"%s\" at 0x%p\n",
- tpnt->libname,
- tpnt->loadaddr );
+ _dl_fdprintf(2, "Module \"%s\" at 0x%p\n",
+ tpnt->libname, tpnt->loadaddr);
#endif
- if( tpnt->loadaddr < (char*)__address
- && ( pelf == NULL
- || pelf->loadaddr < tpnt->loadaddr))
- pelf = tpnt;
- }
+ if (tpnt->loadaddr < (char *) __address
+ && (pelf == NULL || pelf->loadaddr < tpnt->loadaddr)) {
+ pelf = tpnt;
+ }
+ }
- if ( ! pelf )
- {
- return 0;
+ if (!pelf) {
+ return 0;
}
-
+
/*
* Try and locate the symbol of address
*/
{
- char * strtab;
- Elf32_Sym * symtab;
- int hn, si;
- int sf;
- int sn = 0;
- void* sa = 0;
-
- symtab = (Elf32_Sym *) (pelf->dynamic_info[DT_SYMTAB] +
- pelf->loadaddr);
- strtab = (char *) (pelf->dynamic_info[DT_STRTAB] + pelf->loadaddr);
-
- sf = 0;
- for(hn = 0; hn < pelf->nbucket; hn++)
- {
- for(si = pelf->elf_buckets[hn]; si; si = pelf->chains[si])
- {
- void* symbol_addr;
- symbol_addr = pelf->loadaddr + symtab[si].st_value;
- if ( symbol_addr <= __address &&
- ( !sf || sa < symbol_addr ) )
- {
- sa = symbol_addr;
- sn = si;
- sf = 1;
- }
+ char *strtab;
+ Elf32_Sym *symtab;
+ int hn, si;
+ int sf;
+ int sn = 0;
+ void *sa = 0;
+
+ symtab = (Elf32_Sym *) (pelf->dynamic_info[DT_SYMTAB] + pelf->loadaddr);
+ strtab = (char *) (pelf->dynamic_info[DT_STRTAB] + pelf->loadaddr);
+
+ sf = 0;
+ for (hn = 0; hn < pelf->nbucket; hn++) {
+ for (si = pelf->elf_buckets[hn]; si; si = pelf->chains[si]) {
+ void *symbol_addr;
+
+ symbol_addr = pelf->loadaddr + symtab[si].st_value;
+ if (symbol_addr <= __address && (!sf || sa < symbol_addr)) {
+ sa = symbol_addr;
+ sn = si;
+ sf = 1;
+ }
#if 0
- _dl_fdprintf( 2,
- "Symbol \"%s\" at 0x%p\n",
- strtab + symtab[si].st_name,
- symbol_addr );
+ _dl_fdprintf(2, "Symbol \"%s\" at 0x%p\n",
+ strtab + symtab[si].st_name, symbol_addr);
#endif
- }
- }
+ }
+ }
- if ( sf )
- {
- __dlip->dli_fname = pelf->libname;
- __dlip->dli_fbase = pelf->loadaddr;
- __dlip->dli_sname = strtab + symtab[sn].st_name;
- __dlip->dli_saddr = sa;
- }
- return 1;
+ if (sf) {
+ __dlip->dli_fname = pelf->libname;
+ __dlip->dli_fbase = pelf->loadaddr;
+ __dlip->dli_sname = strtab + symtab[sn].st_name;
+ __dlip->dli_saddr = sa;
+ }
+ return 1;
}
}
diff --git a/ldso/libdl/libdl.c b/ldso/libdl/libdl.c
index 317ab2253..508299451 100644
--- a/ldso/libdl/libdl.c
+++ b/ldso/libdl/libdl.c
@@ -4,11 +4,8 @@
* Functions required for dlopen et. al.
*/
-#include "dlfcn.h"
-/* #include "link.h" */
#include <stdlib.h>
-#include <linux/mman.h>
-#include <linux/unistd.h>
+#include "dlfcn.h"
#include "sysdep.h"
#include "syscall.h"
#include "hash.h"
@@ -16,26 +13,26 @@
#include "linuxelf.h"
extern int _dl_error_number;
-extern struct r_debug * _dl_debug_addr;
+extern struct r_debug *_dl_debug_addr;
-extern void * (*_dl_malloc_function)(size_t size);
+extern void *(*_dl_malloc_function) (size_t size);
-static int do_fixup(struct elf_resolve * tpnt, int flag);
+static int do_fixup(struct elf_resolve *tpnt, int flag);
static int do_dlclose(void *, int need_fini);
-void * _dlopen(char * filename, int flag);
-const char * _dlerror(void);
-void * _dlsym(void *, char *);
+void *_dlopen(char *filename, int flag);
+const char *_dlerror(void);
+void *_dlsym(void *, char *);
int _dlclose(void *);
-int _dladdr(void * __address, Dl_info * __dlip );
+int _dladdr(void *__address, Dl_info * __dlip);
-static const char * dl_error_names[] = {
+static const char *dl_error_names[] = {
"",
"File not found",
"Unable to open /dev/zero",
"Not an ELF file",
#if defined (__i386__)
- "Not i386 binary",
+ "Not i386 binary",
#elif defined (__sparc__)
"Not sparc binary",
#elif defined (__mc68000__)
@@ -54,31 +51,30 @@ static const char * dl_error_names[] = {
"Bad handle",
"Unable to resolve symbol"
};
-
+
static void dl_cleanup(void) __attribute__ ((destructor));
static void dl_cleanup(void)
{
- struct dyn_elf* d;
-
+ struct dyn_elf *d;
+
for (d = _dl_handles; d; d = d->next_handle)
- if (d->dyn->libtype == loaded_file && d->dyn->dynamic_info[DT_FINI])
- {
- (*((int(*)(void))(d->dyn->loadaddr + d->dyn->dynamic_info[DT_FINI])))();
+ if (d->dyn->libtype == loaded_file && d->dyn->dynamic_info[DT_FINI]) {
+ (* ((int (*)(void)) (d->dyn->loadaddr + d->dyn->dynamic_info[DT_FINI]))) ();
d->dyn->dynamic_info[DT_FINI] = 0;
}
}
-void * _dlopen(char * libname, int flag)
+void *_dlopen(char *libname, int flag)
{
- struct elf_resolve * tpnt, *tfrom;
- struct dyn_elf * rpnt;
- struct dyn_elf * dyn_chain;
- struct dyn_elf * dpnt;
+ struct elf_resolve *tpnt, *tfrom;
+ struct dyn_elf *rpnt;
+ struct dyn_elf *dyn_chain;
+ struct dyn_elf *dpnt;
static int dl_init = 0;
- char * from;
- void (*dl_brk)(void);
- int (*dl_elf_init)(void);
+ char *from;
+ void (*dl_brk) (void);
+ int (*dl_elf_init) (void);
from = __builtin_return_address(0);
@@ -89,7 +85,8 @@ void * _dlopen(char * libname, int flag)
}
/* Cover the trivial case first */
- if (!libname) return _dl_symbol_tables;
+ if (!libname)
+ return _dl_symbol_tables;
#ifdef USE_CACHE
_dl_map_cache();
@@ -104,31 +101,28 @@ void * _dlopen(char * libname, int flag)
* in the future.
*/
tfrom = NULL;
- for(dpnt = _dl_symbol_tables; dpnt; dpnt = dpnt->next)
- {
- tpnt = dpnt->dyn;
- if( tpnt->loadaddr < from
- && ( tfrom == NULL
- || tfrom->loadaddr < tpnt->loadaddr))
- tfrom = tpnt;
- }
+ for (dpnt = _dl_symbol_tables; dpnt; dpnt = dpnt->next) {
+ tpnt = dpnt->dyn;
+ if (tpnt->loadaddr < from
+ && (tfrom == NULL || tfrom->loadaddr < tpnt->loadaddr))
+ tfrom = tpnt;
+ }
- if(!(tpnt = _dl_load_shared_library(0, tfrom, libname)))
- {
+ if (!(tpnt = _dl_load_shared_library(0, tfrom, libname))) {
#ifdef USE_CACHE
- _dl_unmap_cache();
+ _dl_unmap_cache();
#endif
- return NULL;
+ return NULL;
}
tpnt->usage_count++;
- dyn_chain = rpnt =
- (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
- _dl_memset (rpnt, 0, sizeof(*rpnt));
+ dyn_chain = rpnt = (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
+ _dl_memset(rpnt, 0, sizeof(*rpnt));
rpnt->dyn = tpnt;
rpnt->flags = flag;
- if (!tpnt->symbol_scope) tpnt->symbol_scope = dyn_chain;
-
+ if (!tpnt->symbol_scope)
+ tpnt->symbol_scope = dyn_chain;
+
rpnt->next_handle = _dl_handles;
_dl_handles = rpnt;
@@ -154,8 +148,7 @@ void * _dlopen(char * libname, int flag)
if(!(tpnt1 = _dl_load_shared_library(0, tcurr, lpnt)))
goto oops;
- rpnt->next =
- (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
+ rpnt->next = (struct dyn_elf *) malloc(sizeof(struct dyn_elf));
_dl_memset (rpnt->next, 0, sizeof (*(rpnt->next)));
rpnt = rpnt->next;
tpnt1->usage_count++;
@@ -175,179 +168,178 @@ void * _dlopen(char * libname, int flag)
rpnt->next = _dl_symbol_tables;
if (do_fixup(tpnt, flag)) {
- _dl_error_number = DL_NO_SYMBOL;
- goto oops;
+ _dl_error_number = DL_NO_SYMBOL;
+ goto oops;
}
dl_brk = (void (*)()) _dl_debug_addr->r_brk;
- if( dl_brk != NULL )
- {
- _dl_debug_addr->r_state = RT_ADD;
- (*dl_brk)();
-
- _dl_debug_addr->r_state = RT_CONSISTENT;
- (*dl_brk)();
- }
+ if (dl_brk != NULL) {
+ _dl_debug_addr->r_state = RT_ADD;
+ (*dl_brk) ();
- for(rpnt = dyn_chain; rpnt; rpnt = rpnt->next)
- {
+ _dl_debug_addr->r_state = RT_CONSISTENT;
+ (*dl_brk) ();
+ }
+
+ for (rpnt = dyn_chain; rpnt; rpnt = rpnt->next) {
tpnt = rpnt->dyn;
- /* Apparently crt1 for the application is responsible for handling this.
- * We only need to run the init/fini for shared libraries
- */
- if (tpnt->libtype == elf_executable) continue;
- if (tpnt->init_flag & INIT_FUNCS_CALLED) continue;
- tpnt->init_flag |= INIT_FUNCS_CALLED;
-
- if(tpnt->dynamic_info[DT_INIT]) {
- dl_elf_init = (int (*)(void)) (tpnt->loadaddr +
- tpnt->dynamic_info[DT_INIT]);
- (*dl_elf_init)();
- }
- }
+ /* Apparently crt1 for the application is responsible for handling this.
+ * We only need to run the init/fini for shared libraries
+ */
+ if (tpnt->libtype == elf_executable)
+ continue;
+ if (tpnt->init_flag & INIT_FUNCS_CALLED)
+ continue;
+ tpnt->init_flag |= INIT_FUNCS_CALLED;
+
+ if (tpnt->dynamic_info[DT_INIT]) {
+ dl_elf_init = (int (*)(void)) (tpnt->loadaddr + tpnt->dynamic_info[DT_INIT]);
+ (*dl_elf_init) ();
+ }
+ }
#ifdef USE_CACHE
_dl_unmap_cache();
#endif
return (void *) dyn_chain;
-oops:
+ oops:
/* Something went wrong. Clean up and return NULL. */
#ifdef USE_CACHE
_dl_unmap_cache();
#endif
- do_dlclose (dyn_chain, 0);
+ do_dlclose(dyn_chain, 0);
return NULL;
}
-static int do_fixup(struct elf_resolve * tpnt, int flag)
+static int do_fixup(struct elf_resolve *tpnt, int flag)
{
- int goof = 0;
- if(tpnt->next) goof += do_fixup(tpnt->next, flag);
+ int goof = 0;
+
+ if (tpnt->next)
+ goof += do_fixup(tpnt->next, flag);
- if(tpnt->dynamic_info[DT_REL]) {
+ if (tpnt->dynamic_info[DT_REL]) {
#ifdef ELF_USES_RELOCA
- goof++;
+ goof++;
#else
- if (tpnt->init_flag & RELOCS_DONE) return goof;
- tpnt->init_flag |= RELOCS_DONE;
-
- goof += _dl_parse_relocation_information(tpnt, tpnt->dynamic_info[DT_REL],
- tpnt->dynamic_info[DT_RELSZ], 0);
+ if (tpnt->init_flag & RELOCS_DONE)
+ return goof;
+ tpnt->init_flag |= RELOCS_DONE;
+
+ goof += _dl_parse_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_REL], tpnt->dynamic_info[DT_RELSZ], 0);
#endif
- }
- if(tpnt->dynamic_info[DT_RELA]) {
+ }
+ if (tpnt->dynamic_info[DT_RELA]) {
#ifdef ELF_USES_RELOCA
- if (tpnt->init_flag & RELOCS_DONE) return goof;
- tpnt->init_flag |= RELOCS_DONE;
-
- goof += _dl_parse_relocation_information(tpnt, tpnt->dynamic_info[DT_RELA],
- tpnt->dynamic_info[DT_RELASZ], 0);
+ if (tpnt->init_flag & RELOCS_DONE)
+ return goof;
+ tpnt->init_flag |= RELOCS_DONE;
+
+ goof += _dl_parse_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_RELA], tpnt->dynamic_info[DT_RELASZ], 0);
#else
- goof++;
+ goof++;
#endif
- }
- if(tpnt->dynamic_info[DT_JMPREL])
- {
- if (tpnt->init_flag & JMP_RELOCS_DONE) return goof;
- tpnt->init_flag |= JMP_RELOCS_DONE;
-
- if(flag == RTLD_LAZY)
- _dl_parse_lazy_relocation_information(tpnt, tpnt->dynamic_info[DT_JMPREL],
- tpnt->dynamic_info[DT_PLTRELSZ], 0);
- else
- goof += _dl_parse_relocation_information(tpnt,
- tpnt->dynamic_info[DT_JMPREL],
- tpnt->dynamic_info[DT_PLTRELSZ], 0);
- };
- return goof;
+ }
+ if (tpnt->dynamic_info[DT_JMPREL]) {
+ if (tpnt->init_flag & JMP_RELOCS_DONE)
+ return goof;
+ tpnt->init_flag |= JMP_RELOCS_DONE;
+
+ if (flag == RTLD_LAZY)
+ _dl_parse_lazy_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_JMPREL],
+ tpnt->dynamic_info[DT_PLTRELSZ], 0);
+ else
+ goof += _dl_parse_relocation_information(tpnt,
+ tpnt->dynamic_info[DT_JMPREL],
+ tpnt->dynamic_info[DT_PLTRELSZ], 0);
+ };
+ return goof;
}
-void * _dlsym(void * vhandle, char * name)
-{
- struct elf_resolve * tpnt, *tfrom;
- struct dyn_elf * handle;
- char * from;
- struct dyn_elf * rpnt;
+void *_dlsym(void *vhandle, char *name)
+{
+ struct elf_resolve *tpnt, *tfrom;
+ struct dyn_elf *handle;
+ char *from;
+ struct dyn_elf *rpnt;
void *ret;
handle = (struct dyn_elf *) vhandle;
/* First of all verify that we have a real handle
- of some kind. Return NULL if not a valid handle. */
+ of some kind. Return NULL if not a valid handle. */
if (handle == NULL)
handle = _dl_symbol_tables;
else if (handle != RTLD_NEXT && handle != _dl_symbol_tables) {
- for(rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle)
- if (rpnt == handle) break;
+ for (rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle)
+ if (rpnt == handle)
+ break;
if (!rpnt) {
_dl_error_number = DL_BAD_HANDLE;
return NULL;
}
+ } else if (handle == RTLD_NEXT) {
+ /*
+ * Try and locate the module we were called from - we
+ * need this so that we know where to start searching
+ * from. We never pass RTLD_NEXT down into the actual
+ * dynamic loader itself, as it doesn't know
+ * how to properly treat it.
+ */
+ from = __builtin_return_address(0);
+
+ tfrom = NULL;
+ for (rpnt = _dl_symbol_tables; rpnt; rpnt = rpnt->next) {
+ tpnt = rpnt->dyn;
+ if (tpnt->loadaddr < from
+ && (tfrom == NULL || tfrom->loadaddr < tpnt->loadaddr)) {
+ tfrom = tpnt;
+ handle = rpnt->next;
+ }
+ }
}
- else if (handle == RTLD_NEXT )
- {
- /*
- * Try and locate the module we were called from - we
- * need this so that we know where to start searching
- * from. We never pass RTLD_NEXT down into the actual
- * dynamic loader itself, as it doesn't know
- * how to properly treat it.
- */
- from = __builtin_return_address(0);
-
- tfrom = NULL;
- for(rpnt = _dl_symbol_tables; rpnt; rpnt = rpnt->next)
- {
- tpnt = rpnt->dyn;
- if( tpnt->loadaddr < from
- && ( tfrom == NULL
- || tfrom->loadaddr < tpnt->loadaddr))
- {
- tfrom = tpnt;
- handle = rpnt->next;
- }
- }
- }
ret = _dl_find_hash(name, handle, 1, NULL, 1);
- /*
- * Nothing found.
- */
+ /*
+ * Nothing found.
+ */
if (!ret)
_dl_error_number = DL_NO_SYMBOL;
return ret;
}
-int _dlclose(void * vhandle)
+int _dlclose(void *vhandle)
{
- return do_dlclose(vhandle, 1);
+ return do_dlclose(vhandle, 1);
}
-static int do_dlclose(void * vhandle, int need_fini)
+static int do_dlclose(void *vhandle, int need_fini)
{
- struct dyn_elf * rpnt, *rpnt1;
+ struct dyn_elf *rpnt, *rpnt1;
struct dyn_elf *spnt, *spnt1;
- elf_phdr * ppnt;
- struct elf_resolve * tpnt;
- int (*dl_elf_fini)(void);
- void (*dl_brk)(void);
- struct dyn_elf * handle;
+ elf_phdr *ppnt;
+ struct elf_resolve *tpnt;
+ int (*dl_elf_fini) (void);
+ void (*dl_brk) (void);
+ struct dyn_elf *handle;
unsigned int end;
int i = 0;
handle = (struct dyn_elf *) vhandle;
rpnt1 = NULL;
- for(rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle)
- {
- if(rpnt == handle) {
+ for (rpnt = _dl_handles; rpnt; rpnt = rpnt->next_handle) {
+ if (rpnt == handle) {
break;
}
rpnt1 = rpnt;
}
-
+
if (!rpnt) {
_dl_error_number = DL_BAD_HANDLE;
return 1;
@@ -356,104 +348,105 @@ static int do_dlclose(void * vhandle, int need_fini)
/* OK, this is a valid handle - now close out the file.
* We check if we need to call fini () on the handle. */
spnt = need_fini ? handle : handle->next;
- for(; spnt; spnt = spnt1)
- {
- spnt1 = spnt->next;
+ for (; spnt; spnt = spnt1) {
+ spnt1 = spnt->next;
- /* We appended the module list to the end - when we get back here,
- quit. The access counts were not adjusted to account for being here. */
- if (spnt == _dl_symbol_tables) break;
- if(spnt->dyn->usage_count==1 && spnt->dyn->libtype == loaded_file) {
- tpnt = spnt->dyn;
- /* Apparently crt1 for the application is responsible for handling this.
- * We only need to run the init/fini for shared libraries
- */
-
- if(tpnt->dynamic_info[DT_FINI]) {
- dl_elf_fini = (int (*)(void)) (tpnt->loadaddr +
- tpnt->dynamic_info[DT_FINI]);
- (*dl_elf_fini)();
- }
- }
+ /* We appended the module list to the end - when we get back here,
+ quit. The access counts were not adjusted to account for being here. */
+ if (spnt == _dl_symbol_tables)
+ break;
+ if (spnt->dyn->usage_count == 1
+ && spnt->dyn->libtype == loaded_file) {
+ tpnt = spnt->dyn;
+ /* Apparently crt1 for the application is responsible for handling this.
+ * We only need to run the init/fini for shared libraries
+ */
+
+ if (tpnt->dynamic_info[DT_FINI]) {
+ dl_elf_fini = (int (*)(void)) (tpnt->loadaddr +
+ tpnt->dynamic_info[DT_FINI]);
+ (*dl_elf_fini) ();
+ }
+ }
}
- if(rpnt1)
- rpnt1->next_handle = rpnt->next_handle;
+ if (rpnt1)
+ rpnt1->next_handle = rpnt->next_handle;
else
- _dl_handles = rpnt->next_handle;
-
+ _dl_handles = rpnt->next_handle;
+
/* OK, this is a valid handle - now close out the file */
- for(rpnt = handle; rpnt; rpnt = rpnt1)
- {
+ for (rpnt = handle; rpnt; rpnt = rpnt1) {
rpnt1 = rpnt->next;
/* We appended the module list to the end - when we get back here,
quit. The access counts were not adjusted to account for being here. */
- if (rpnt == _dl_symbol_tables) break;
+ if (rpnt == _dl_symbol_tables)
+ break;
rpnt->dyn->usage_count--;
- if(rpnt->dyn->usage_count == 0 && rpnt->dyn->libtype == loaded_file)
- {
+ if (rpnt->dyn->usage_count == 0
+ && rpnt->dyn->libtype == loaded_file) {
tpnt = rpnt->dyn;
- /* Apparently crt1 for the application is responsible for handling this.
- * We only need to run the init/fini for shared libraries
- */
+ /* Apparently crt1 for the application is responsible for handling this.
+ * We only need to run the init/fini for shared libraries
+ */
#if 0
-/* We have to do this above, before we start closing objects.
-Otherwise when the needed symbols for _fini handling are
-resolved a coredump would occur. Rob Ryan (robr@cmu.edu)*/
- if(tpnt->dynamic_info[DT_FINI]) {
- dl_elf_fini = (int (*)(void)) (tpnt->loadaddr +
- tpnt->dynamic_info[DT_FINI]);
- (*dl_elf_fini)();
- }
+
+ /* We have to do this above, before we start closing objects.
+ * Otherwise when the needed symbols for _fini handling are
+ * resolved a coredump would occur. Rob Ryan (robr@cmu.edu)*/
+ if (tpnt->dynamic_info[DT_FINI]) {
+ dl_elf_fini = (int (*)(void)) (tpnt->loadaddr + tpnt->dynamic_info[DT_FINI]);
+ (*dl_elf_fini) ();
+ }
#endif
- end = 0;
- for(i = 0, ppnt = rpnt->dyn->ppnt;
- i < rpnt->dyn->n_phent; ppnt++, i++) {
- if (ppnt->p_type != PT_LOAD) continue;
+ end = 0;
+ for (i = 0, ppnt = rpnt->dyn->ppnt;
+ i < rpnt->dyn->n_phent; ppnt++, i++) {
+ if (ppnt->p_type != PT_LOAD)
+ continue;
if (end < ppnt->p_vaddr + ppnt->p_memsz)
end = ppnt->p_vaddr + ppnt->p_memsz;
}
- _dl_munmap (rpnt->dyn->loadaddr, end);
+ _dl_munmap(rpnt->dyn->loadaddr, end);
/* Next, remove rpnt->dyn from the loaded_module list */
- if (_dl_loaded_modules == rpnt->dyn)
- {
- _dl_loaded_modules = rpnt->dyn->next;
- if (_dl_loaded_modules)
- _dl_loaded_modules->prev = 0;
- }
- else
- for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next)
- if (tpnt->next == rpnt->dyn) {
- tpnt->next = tpnt->next->next;
- if (tpnt->next)
- tpnt->next->prev = tpnt;
- break;
- }
+ if (_dl_loaded_modules == rpnt->dyn) {
+ _dl_loaded_modules = rpnt->dyn->next;
+ if (_dl_loaded_modules)
+ _dl_loaded_modules->prev = 0;
+ } else
+ for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next)
+ if (tpnt->next == rpnt->dyn) {
+ tpnt->next = tpnt->next->next;
+ if (tpnt->next)
+ tpnt->next->prev = tpnt;
+ break;
+ }
free(rpnt->dyn->libname);
free(rpnt->dyn);
- }
+ }
free(rpnt);
- }
+ }
dl_brk = (void (*)()) _dl_debug_addr->r_brk;
- if( dl_brk != NULL )
- {
- _dl_debug_addr->r_state = RT_DELETE;
- (*dl_brk)();
-
- _dl_debug_addr->r_state = RT_CONSISTENT;
- (*dl_brk)();
- }
+ if (dl_brk != NULL) {
+ _dl_debug_addr->r_state = RT_DELETE;
+ (*dl_brk) ();
+
+ _dl_debug_addr->r_state = RT_CONSISTENT;
+ (*dl_brk) ();
+ }
return 0;
}
-const char * _dlerror()
+const char *_dlerror()
{
- const char * retval;
- if(!_dl_error_number) return NULL;
+ const char *retval;
+
+ if (!_dl_error_number)
+ return NULL;
retval = dl_error_names[_dl_error_number];
_dl_error_number = 0;
return retval;
@@ -481,11 +474,11 @@ possible, but at run time the normal symbols are accessed. */
static void foobar()
{
- _dl_fdprintf(2,"libdl library not correctly linked\n");
+ _dl_fdprintf(2, "libdl library not correctly linked\n");
_dl_exit(1);
}
-static int __attribute__((unused)) foobar1 = (int)foobar; /* Use as pointer */
+static int __attribute__ ((unused)) foobar1 = (int) foobar; /* Use as pointer */
#if 1
#pragma weak _dl_find_hash = foobar
@@ -516,50 +509,51 @@ __asm__(".weak _dl_map_cache; _dl_map_cache = foobar");
__asm__(".weak _dl_unmap_cache; _dl_unmap_cache = foobar");
#endif
__asm__(".weak _dl_malloc_function; _dl_malloc_function = foobar1");
-__asm__(".weak _dl_parse_relocation_information; _dl_parse_relocation_information = foobar");
-__asm__(".weak _dl_parse_lazy_relocation_information; _dl_parse_lazy_relocation_information = foobar");
+__asm__
+ (".weak _dl_parse_relocation_information; _dl_parse_relocation_information = foobar");
+__asm__
+ (".weak _dl_parse_lazy_relocation_information; _dl_parse_lazy_relocation_information = foobar");
__asm__(".weak _dl_fdprintf; _dl_fdprintf = foobar");
#endif
/*
* Dump information to stderrr about the current loaded modules
*/
-static char * type[] = {"Lib","Exe","Int","Mod"};
+static char *type[] = { "Lib", "Exe", "Int", "Mod" };
void _dlinfo()
{
- struct elf_resolve * tpnt;
- struct dyn_elf * rpnt, *hpnt;
+ struct elf_resolve *tpnt;
+ struct dyn_elf *rpnt, *hpnt;
+
_dl_fdprintf(2, "List of loaded modules\n");
/* First start with a complete list of all of the loaded files. */
- for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next)
- _dl_fdprintf(2, "\t%8.8x %8.8x %8.8x %s %d %s\n",
- (unsigned)tpnt->loadaddr, (unsigned)tpnt,
- (unsigned)tpnt->symbol_scope,
+ for (tpnt = _dl_loaded_modules; tpnt; tpnt = tpnt->next) {
+ _dl_fdprintf(2, "\t%8.8x %8.8x %8.8x %s %d %s\n",
+ (unsigned) tpnt->loadaddr, (unsigned) tpnt,
+ (unsigned) tpnt->symbol_scope,
type[tpnt->libtype],
- tpnt->usage_count,
- tpnt->libname);
+ tpnt->usage_count, tpnt->libname);
+ }
/* Next dump the module list for the application itself */
_dl_fdprintf(2, "\nModules for application (%x):\n",
- (unsigned)_dl_symbol_tables);
+ (unsigned) _dl_symbol_tables);
for (rpnt = _dl_symbol_tables; rpnt; rpnt = rpnt->next)
- _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned)rpnt->dyn,
- rpnt->dyn->libname);
+ _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned) rpnt->dyn, rpnt->dyn->libname);
- for (hpnt = _dl_handles; hpnt; hpnt = hpnt->next_handle)
- {
- _dl_fdprintf(2, "Modules for handle %x\n", (unsigned)hpnt);
- for(rpnt = hpnt; rpnt; rpnt = rpnt->next)
- _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned)rpnt->dyn,
+ for (hpnt = _dl_handles; hpnt; hpnt = hpnt->next_handle) {
+ _dl_fdprintf(2, "Modules for handle %x\n", (unsigned) hpnt);
+ for (rpnt = hpnt; rpnt; rpnt = rpnt->next)
+ _dl_fdprintf(2, "\t%8.8x %s\n", (unsigned) rpnt->dyn,
rpnt->dyn->libname);
}
}
-int _dladdr(void * __address, Dl_info * __dlip )
+int _dladdr(void *__address, Dl_info * __dlip)
{
- struct elf_resolve * pelf;
- struct elf_resolve * rpnt;
+ struct elf_resolve *pelf;
+ struct elf_resolve *rpnt;
#ifdef USE_CACHE
_dl_map_cache();
@@ -571,78 +565,66 @@ int _dladdr(void * __address, Dl_info * __dlip )
pelf = NULL;
#if 0
- _dl_fdprintf( 2,
- "dladdr( 0x%p, 0x%p )\n",
- __address, __dlip );
+ _dl_fdprintf(2, "dladdr( 0x%p, 0x%p )\n", __address, __dlip);
#endif
- for(rpnt = _dl_loaded_modules; rpnt; rpnt = rpnt->next)
- {
- struct elf_resolve * tpnt;
- tpnt = rpnt;
+ for (rpnt = _dl_loaded_modules; rpnt; rpnt = rpnt->next) {
+ struct elf_resolve *tpnt;
+
+ tpnt = rpnt;
#if 0
- _dl_fdprintf( 2,
- "Module \"%s\" at 0x%p\n",
- tpnt->libname,
- tpnt->loadaddr );
+ _dl_fdprintf(2, "Module \"%s\" at 0x%p\n",
+ tpnt->libname, tpnt->loadaddr);
#endif
- if( tpnt->loadaddr < (char*)__address
- && ( pelf == NULL
- || pelf->loadaddr < tpnt->loadaddr))
- pelf = tpnt;
- }
+ if (tpnt->loadaddr < (char *) __address
+ && (pelf == NULL || pelf->loadaddr < tpnt->loadaddr)) {
+ pelf = tpnt;
+ }
+ }
- if ( ! pelf )
- {
- return 0;
+ if (!pelf) {
+ return 0;
}
-
+
/*
* Try and locate the symbol of address
*/
{
- char * strtab;
- Elf32_Sym * symtab;
- int hn, si;
- int sf;
- int sn = 0;
- void* sa = 0;
-
- symtab = (Elf32_Sym *) (pelf->dynamic_info[DT_SYMTAB] +
- pelf->loadaddr);
- strtab = (char *) (pelf->dynamic_info[DT_STRTAB] + pelf->loadaddr);
-
- sf = 0;
- for(hn = 0; hn < pelf->nbucket; hn++)
- {
- for(si = pelf->elf_buckets[hn]; si; si = pelf->chains[si])
- {
- void* symbol_addr;
- symbol_addr = pelf->loadaddr + symtab[si].st_value;
- if ( symbol_addr <= __address &&
- ( !sf || sa < symbol_addr ) )
- {
- sa = symbol_addr;
- sn = si;
- sf = 1;
- }
+ char *strtab;
+ Elf32_Sym *symtab;
+ int hn, si;
+ int sf;
+ int sn = 0;
+ void *sa = 0;
+
+ symtab = (Elf32_Sym *) (pelf->dynamic_info[DT_SYMTAB] + pelf->loadaddr);
+ strtab = (char *) (pelf->dynamic_info[DT_STRTAB] + pelf->loadaddr);
+
+ sf = 0;
+ for (hn = 0; hn < pelf->nbucket; hn++) {
+ for (si = pelf->elf_buckets[hn]; si; si = pelf->chains[si]) {
+ void *symbol_addr;
+
+ symbol_addr = pelf->loadaddr + symtab[si].st_value;
+ if (symbol_addr <= __address && (!sf || sa < symbol_addr)) {
+ sa = symbol_addr;
+ sn = si;
+ sf = 1;
+ }
#if 0
- _dl_fdprintf( 2,
- "Symbol \"%s\" at 0x%p\n",
- strtab + symtab[si].st_name,
- symbol_addr );
+ _dl_fdprintf(2, "Symbol \"%s\" at 0x%p\n",
+ strtab + symtab[si].st_name, symbol_addr);
#endif
- }
- }
+ }
+ }
- if ( sf )
- {
- __dlip->dli_fname = pelf->libname;
- __dlip->dli_fbase = pelf->loadaddr;
- __dlip->dli_sname = strtab + symtab[sn].st_name;
- __dlip->dli_saddr = sa;
- }
- return 1;
+ if (sf) {
+ __dlip->dli_fname = pelf->libname;
+ __dlip->dli_fbase = pelf->loadaddr;
+ __dlip->dli_sname = strtab + symtab[sn].st_name;
+ __dlip->dli_saddr = sa;
+ }
+ return 1;
}
}