aboutsummaryrefslogtreecommitdiff
path: root/elf/rtld.c
diff options
context:
space:
mode:
authorUlrich Drepper <drepper@redhat.com>1998-12-27 17:29:47 +0000
committerUlrich Drepper <drepper@redhat.com>1998-12-27 17:29:47 +0000
commitdb276fa11c8a8b574f3467680a3372504629c114 (patch)
tree435be6762f532b187ee91070b49c82667a4f79ea /elf/rtld.c
parent8352b484cfe1c87f99d41e976da5427082fed58c (diff)
downloadglibc-db276fa11c8a8b574f3467680a3372504629c114.tar
glibc-db276fa11c8a8b574f3467680a3372504629c114.tar.gz
glibc-db276fa11c8a8b574f3467680a3372504629c114.tar.bz2
glibc-db276fa11c8a8b574f3467680a3372504629c114.zip
Update.
1998-12-27 Ulrich Drepper <drepper@cygnus.com> * elf/dl-lookup.c (_dl_num_relocations): New variable. (do_lookup): Increment _dl_num_relocations for every call. * elf/rtld.c (print_statistics): New function. (_dl_debug_statistics): New variable. Set when statistics are asked for. (rtld_total_time, relocate_time, load_time): New variables. Used in print_statistics. (_dl_start): Record start and end time of startup. Call print_statistics if needed. (dk_main): Record times for relocations and loading. (process_dl_debug): Recognize statistics. Low-level, low-overhead, high-precision timing funcationality. * sysdeps/generic/hp-timing.h: New file. * sysdeps/i386/i686/Makefile: New file. * sysdeps/i386/i686/hp-timing.h: New file. * sysdeps/i386/i686/hp-timing.c: New file. * sysdeps/i386/dl-machine.h (elf_machine_rel): Reverse order of OR clauses to avoid accessing global variables during rtld relocation. * sunrpc/rpc_main.c: Unify messages. * sysdeps/unix/sysv/linux/arm/Dist: Add ioperm.c and sys/io.h.
Diffstat (limited to 'elf/rtld.c')
-rw-r--r--elf/rtld.c174
1 files changed, 168 insertions, 6 deletions
diff --git a/elf/rtld.c b/elf/rtld.c
index 38c7b051b1..df6a945105 100644
--- a/elf/rtld.c
+++ b/elf/rtld.c
@@ -26,6 +26,7 @@
#include <stdio-common/_itoa.h>
#include <entry.h>
#include <fpu_control.h>
+#include <hp-timing.h>
#include "dynamic-link.h"
#include "dl-librecon.h"
@@ -58,6 +59,8 @@ static void print_unresolved (int errcode, const char *objname,
static void print_missing_version (int errcode, const char *objname,
const char *errsting);
+/* Print the various times we collected. */
+static void print_statistics (void);
/* This is a list of all the modes the dynamic loader can be in. */
enum mode { normal, list, verify, trace };
@@ -86,6 +89,7 @@ int _dl_debug_symbols;
int _dl_debug_versions;
int _dl_debug_reloc;
int _dl_debug_files;
+int _dl_debug_statistics;
const char *_dl_inhibit_rpath; /* RPATH values which should be
ignored. */
const char *_dl_origin_path;
@@ -118,6 +122,12 @@ struct link_map _dl_rtld_map;
struct libname_list _dl_rtld_libname;
struct libname_list _dl_rtld_libname2;
+/* Variable for statistics. */
+static hp_timing_t rtld_total_time;
+static hp_timing_t relocate_time;
+static hp_timing_t load_time;
+extern unsigned long int _dl_num_relocations; /* in dl-lookup.c */
+
#ifdef RTLD_START
RTLD_START
#else
@@ -128,6 +138,8 @@ static ElfW(Addr)
_dl_start (void *arg)
{
struct link_map bootstrap_map;
+ hp_timing_t start_time;
+ ElfW(Addr) start_addr;
/* This #define produces dynamic linking inline functions for
bootstrap relocation instead of general-purpose relocation. */
@@ -136,6 +148,9 @@ _dl_start (void *arg)
((*(sym))->st_shndx == SHN_UNDEF ? 0 : bootstrap_map.l_addr)
#include "dynamic-link.h"
+ if (HP_TIMING_INLINE && HP_TIMING_AVAIL)
+ HP_TIMING_NOW (start_time);
+
/* Figure out the run-time load address of the dynamic linker itself. */
bootstrap_map.l_addr = elf_machine_load_address ();
@@ -160,6 +175,16 @@ _dl_start (void *arg)
the operating system's program loader where to find the program
header table in core. */
+ if (HP_TIMING_AVAIL)
+ {
+ /* If it hasn't happen yet record the startup time. */
+ if (! HP_TIMING_INLINE)
+ HP_TIMING_NOW (start_time);
+
+ /* Initialize the timing functions. */
+ HP_TIMING_DIFF_INIT ();
+ }
+
/* Transfer data about ourselves to the permanent link_map structure. */
_dl_rtld_map.l_addr = bootstrap_map.l_addr;
_dl_rtld_map.l_ld = bootstrap_map.l_ld;
@@ -176,7 +201,23 @@ _dl_start (void *arg)
file access. It will call `dl_main' (below) to do all the real work
of the dynamic linker, and then unwind our frame and run the user
entry point on the same stack we entered on. */
- return _dl_sysdep_start (arg, &dl_main);
+ start_addr = _dl_sysdep_start (arg, &dl_main);
+
+ if (HP_TIMING_AVAIL)
+ {
+ hp_timing_t end_time;
+
+ /* Get the current time. */
+ HP_TIMING_NOW (end_time);
+
+ /* Compute the difference. */
+ HP_TIMING_DIFF (rtld_total_time, start_time, end_time);
+ }
+
+ if (_dl_debug_statistics)
+ print_statistics ();
+
+ return start_addr;
}
/* Now life is peachy; we can do all normal operations.
@@ -300,6 +341,9 @@ dl_main (const ElfW(Phdr) *phdr,
int has_interp = 0;
unsigned int i;
int paths_initialized = 0;
+ hp_timing_t start;
+ hp_timing_t stop;
+ hp_timing_t diff;
/* Process the environment variable which control the behaviour. */
process_envvars (&mode, &lazy);
@@ -413,7 +457,13 @@ of this helper program; chances are you did not intend to run this program.\n\
}
}
else
- _dl_map_object (NULL, _dl_argv[0], 0, lt_library, 0);
+ {
+ HP_TIMING_NOW (start);
+ _dl_map_object (NULL, _dl_argv[0], 0, lt_library, 0);
+ HP_TIMING_NOW (stop);
+
+ HP_TIMING_DIFF (load_time, start, stop);
+ }
phdr = _dl_loaded->l_phdr;
phent = _dl_loaded->l_phnum;
@@ -562,6 +612,9 @@ of this helper program; chances are you did not intend to run this program.\n\
containing a '/' are ignored since it is insecure. */
char *list = strdupa (preloadlist);
char *p;
+
+ HP_TIMING_NOW (start);
+
while ((p = strsep (&list, " :")) != NULL)
if (p[0] != '\0'
&& (! __libc_enable_secure || strchr (p, '/') == NULL))
@@ -572,6 +625,10 @@ of this helper program; chances are you did not intend to run this program.\n\
/* It is no duplicate. */
++npreloads;
}
+
+ HP_TIMING_NOW (stop);
+ HP_TIMING_DIFF (diff, start, stop);
+ HP_TIMING_ACCUM_NT (load_time, diff);
}
/* Read the contents of the file. */
@@ -621,6 +678,8 @@ of this helper program; chances are you did not intend to run this program.\n\
file[file_size - 1] = '\0';
}
+ HP_TIMING_NOW (start);
+
if (file != problem)
{
char *p;
@@ -646,6 +705,10 @@ of this helper program; chances are you did not intend to run this program.\n\
++npreloads;
}
+ HP_TIMING_NOW (stop);
+ HP_TIMING_DIFF (diff, start, stop);
+ HP_TIMING_ACCUM_NT (load_time, diff);
+
/* We don't need the file anymore. */
__munmap (file, file_size);
}
@@ -668,7 +731,11 @@ of this helper program; chances are you did not intend to run this program.\n\
/* Load all the libraries specified by DT_NEEDED entries. If LD_PRELOAD
specified some libraries to load, these are inserted before the actual
dependencies in the executable's searchlist for symbol resolution. */
+ HP_TIMING_NOW (start);
_dl_map_object_deps (_dl_loaded, preloads, npreloads, mode == trace, 0);
+ HP_TIMING_NOW (stop);
+ HP_TIMING_DIFF (diff, start, stop);
+ HP_TIMING_ACCUM_NT (load_time, diff);
/* Mark all objects as being in the global scope. */
for (i = _dl_loaded->l_searchlist.r_nlist; i > 0; )
@@ -884,6 +951,9 @@ of this helper program; chances are you did not intend to run this program.\n\
struct link_map *l;
int consider_profiling = _dl_profile != NULL;
+ hp_timing_t start;
+ hp_timing_t stop;
+ hp_timing_t add;
/* If we are profiling we also must do lazy reloaction. */
lazy |= consider_profiling;
@@ -891,13 +961,19 @@ of this helper program; chances are you did not intend to run this program.\n\
l = _dl_loaded;
while (l->l_next)
l = l->l_next;
+
+ HP_TIMING_NOW (start);
do
{
if (l != &_dl_rtld_map)
_dl_relocate_object (l, l->l_scope, lazy, consider_profiling);
l = l->l_prev;
- } while (l);
+ }
+ while (l);
+ HP_TIMING_NOW (stop);
+
+ HP_TIMING_DIFF (relocate_time, start, stop);
/* Do any necessary cleanups for the startup OS interface code.
We do these now so that no calls are made after rtld re-relocation
@@ -907,9 +983,15 @@ of this helper program; chances are you did not intend to run this program.\n\
_dl_sysdep_start_cleanup ();
if (_dl_rtld_map.l_opencount > 0)
- /* There was an explicit ref to the dynamic linker as a shared lib.
- Re-relocate ourselves with user-controlled symbol definitions. */
- _dl_relocate_object (&_dl_rtld_map, _dl_loaded->l_scope, 0, 0);
+ {
+ /* There was an explicit ref to the dynamic linker as a shared lib.
+ Re-relocate ourselves with user-controlled symbol definitions. */
+ HP_TIMING_NOW (start);
+ _dl_relocate_object (&_dl_rtld_map, _dl_loaded->l_scope, 0, 0);
+ HP_TIMING_NOW (stop);
+ HP_TIMING_DIFF (add, start, stop);
+ HP_TIMING_ACCUM_NT (relocate_time, add);
+ }
}
/* Now set up the variable which helps the assembler startup code. */
@@ -1101,6 +1183,14 @@ a filename can be specified using the LD_DEBUG_OUTPUT environment variable.\n",
}
break;
+ case 10:
+ if (memcmp (dl_debug, "statistics", 10) == 0)
+ {
+ _dl_debug_statistics = 1;
+ continue;
+ }
+ break;
+
default:
break;
}
@@ -1110,6 +1200,7 @@ a filename can be specified using the LD_DEBUG_OUTPUT environment variable.\n",
char *startp = strndupa (dl_debug, len);
_dl_sysdep_error ("warning: debug option `", startp,
"' unknown; try LD_DEBUG=help\n", NULL);
+ break;
}
}
}
@@ -1291,3 +1382,74 @@ process_envvars (enum mode *modep, int *lazyp)
*modep = mode;
}
+
+
+/* Print the various times we collected. */
+static void
+print_statistics (void)
+{
+ char buf[200];
+ char *cp;
+ char *wp;
+
+ /* Total time rtld used. */
+ if (HP_TIMING_AVAIL)
+ {
+ HP_TIMING_PRINT (buf, sizeof (buf), rtld_total_time);
+ _dl_debug_message (1, "\nruntime linker statistics:\n"
+ " total startup time in dynamic loader: ",
+ buf, "\n", NULL);
+ }
+
+ /* Print relocation statistics. */
+ if (HP_TIMING_AVAIL)
+ {
+ HP_TIMING_PRINT (buf, sizeof (buf), relocate_time);
+ _dl_debug_message (1, " time needed for relocation: ", buf,
+ NULL);
+ cp = _itoa_word ((1000 * relocate_time) / rtld_total_time,
+ buf + sizeof (buf), 10, 0);
+ wp = buf;
+ switch (buf + sizeof (buf) - cp)
+ {
+ case 3:
+ *wp++ = *cp++;
+ case 2:
+ *wp++ = *cp++;
+ case 1:
+ *wp++ = '.';
+ *wp++ = *cp++;
+ }
+ *wp = '\0';
+ _dl_debug_message (0, " (", buf, "%)\n", NULL);
+ }
+
+ buf[sizeof (buf) - 1] = '\0';
+ _dl_debug_message (1, " number of relocations: ",
+ _itoa_word (_dl_num_relocations,
+ buf + sizeof (buf) - 1, 10, 0),
+ "\n", NULL);
+
+ /* Time spend while loading the object and the dependencies. */
+ if (HP_TIMING_AVAIL)
+ {
+ HP_TIMING_PRINT (buf, sizeof (buf), load_time);
+ _dl_debug_message (1, " time needed to load objects: ", buf,
+ NULL);
+ cp = _itoa_word ((1000 * load_time) / rtld_total_time,
+ buf + sizeof (buf), 10, 0);
+ wp = buf;
+ switch (buf + sizeof (buf) - cp)
+ {
+ case 3:
+ *wp++ = *cp++;
+ case 2:
+ *wp++ = *cp++;
+ case 1:
+ *wp++ = '.';
+ *wp++ = *cp++;
+ }
+ *wp = '\0';
+ _dl_debug_message (0, " (", buf, "%)\n", NULL);
+ }
+}