Provide a mechanism for dumping relocation information.
authorJoerg Sonnenberger <joerg@dragonflybsd.org>
Thu, 3 Feb 2005 23:28:24 +0000 (23:28 +0000)
committerJoerg Sonnenberger <joerg@dragonflybsd.org>
Thu, 3 Feb 2005 23:28:24 +0000 (23:28 +0000)
Setting the LD_DUMP_REL_PRE or LD_DUMP_REL_POST environment variables
cause rtld-elf to output a table of all relocations.

This is useful for debugging.

debug.c, 1.3
rtld.c, 1.85
rtld.h, 1.31

Obtained-from: FreeBSD

libexec/rtld-elf/debug.c
libexec/rtld-elf/rtld.c
libexec/rtld-elf/rtld.h

index d637974..5fc128a 100644 (file)
@@ -23,7 +23,7 @@
  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  *
  * $FreeBSD: src/libexec/rtld-elf/debug.c,v 1.2 1999/08/28 00:10:09 peter Exp $
- * $DragonFly: src/libexec/rtld-elf/debug.c,v 1.2 2003/06/17 04:27:08 dillon Exp $
+ * $DragonFly: src/libexec/rtld-elf/debug.c,v 1.3 2005/02/03 23:28:24 joerg Exp $
  */
 
 /*
 #include <stdio.h>
 
 #include "debug.h"
+#include "rtld.h"
+
+static const char rel_header[] =
+    " symbol name               r_info r_offset st_value st_size    address    value\n"
+    " ------------------------------------------------------------------------------\n";
+static const char rel_format[] =  " %-25s %6x %08x %08x %7d %10p %08x\n";
 
 int debug = 0;
 
@@ -51,3 +57,88 @@ debug_printf(const char *format, ...)
        va_end(ap);
     }
 }
+
+void
+dump_relocations (Obj_Entry *obj0)
+{
+    Obj_Entry *obj;
+
+    for (obj = obj0; obj != NULL; obj = obj->next) {
+        dump_obj_relocations(obj);
+    }
+}
+
+void
+dump_obj_relocations (Obj_Entry *obj)
+{
+
+    printf("Object \"%s\", relocbase %p\n", obj->path, obj->relocbase);
+
+    if (obj->relsize) {
+        printf("Non-PLT Relocations: %ld\n",
+            (obj->relsize / sizeof(Elf_Rel)));
+        dump_Elf_Rel(obj, obj->rel, obj->relsize);
+    }
+
+    if (obj->relasize) {
+        printf("Non-PLT Relocations with Addend: %ld\n",
+            (obj->relasize / sizeof(Elf_Rela)));
+        dump_Elf_Rela(obj, obj->rela, obj->relasize);
+    }
+
+    if (obj->pltrelsize) {
+        printf("PLT Relocations: %ld\n",
+            (obj->pltrelsize / sizeof(Elf_Rel)));
+        dump_Elf_Rel(obj, obj->pltrel, obj->pltrelsize);
+    }
+
+    if (obj->pltrelasize) {
+        printf("PLT Relocations with Addend: %ld\n",
+            (obj->pltrelasize / sizeof(Elf_Rela)));
+        dump_Elf_Rela(obj, obj->pltrela, obj->pltrelasize);
+    }
+}
+
+void
+dump_Elf_Rel (Obj_Entry *obj, const Elf_Rel *rel0, u_long relsize)
+{
+    const Elf_Rel *rel;
+    const Elf_Rel *rellim;
+    const Elf_Sym *sym;
+    Elf_Addr *dstaddr;
+
+    printf("%s", rel_header);
+    rellim = (const Elf_Rel *)((char *)rel0 + relsize);
+    for (rel = rel0; rel < rellim; rel++) {
+       dstaddr = (Elf_Addr *)(obj->relocbase + rel->r_offset);
+        sym = obj->symtab + ELF_R_SYM(rel->r_info);
+        printf(rel_format,
+               obj->strtab + sym->st_name,
+               rel->r_info, rel->r_offset,
+               sym->st_value, sym->st_size,
+               dstaddr, *dstaddr);
+    }
+    return;
+}
+
+void
+dump_Elf_Rela (Obj_Entry *obj, const Elf_Rela *rela0, u_long relasize)
+{
+    const Elf_Rela *rela;
+    const Elf_Rela *relalim;
+    const Elf_Sym *sym;
+    Elf_Addr *dstaddr;
+
+    printf("%s", rel_header);
+    relalim = (const Elf_Rela *)((char *)rela0 + relasize);
+    for (rela = rela0; rela < relalim; rela++) {
+       dstaddr = (Elf_Addr *)(obj->relocbase + rela->r_offset);
+        sym = obj->symtab + ELF_R_SYM(rela->r_info);
+        printf(rel_format,
+               obj->strtab + sym->st_name,
+               rela->r_info, rela->r_offset,
+               sym->st_value, sym->st_size,
+               dstaddr, *dstaddr);
+    }
+    return;
+}
index a59326f..8b3767e 100644 (file)
@@ -24,7 +24,7 @@
  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  *
  * $FreeBSD: src/libexec/rtld-elf/rtld.c,v 1.43.2.15 2003/02/20 20:42:46 kan Exp $
- * $DragonFly: src/libexec/rtld-elf/rtld.c,v 1.8 2004/11/18 10:01:47 dillon Exp $
+ * $DragonFly: src/libexec/rtld-elf/rtld.c,v 1.9 2005/02/03 23:28:24 joerg Exp $
  */
 
 /*
@@ -413,6 +413,11 @@ resident_skip1:
     if (ld_resident)           /* XXX clean this up! */
        goto resident_skip2;
 
+    if (getenv("LD_DUMP_REL_PRE") != NULL) {
+       dump_relocations(obj_main);
+       exit (0);
+    }
+
     if (relocate_objects(obj_main,
        ld_bind_now != NULL && *ld_bind_now != '\0') == -1)
        die();
@@ -432,6 +437,11 @@ resident_skip2:
        exit(0);
     }
 
+    if (getenv("LD_DUMP_REL_POST") != NULL) {
+       dump_relocations(obj_main);
+       exit (0);
+    }
+
     dbg("initializing key program variables");
     set_program_var("__progname", argv[0] != NULL ? basename(argv[0]) : "");
     set_program_var("environ", env);
index 4a9b56d..4a3749d 100644 (file)
@@ -23,7 +23,7 @@
  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  *
  * $FreeBSD: src/libexec/rtld-elf/rtld.h,v 1.15.2.6 2003/02/20 20:42:46 kan Exp $
- * $DragonFly: src/libexec/rtld-elf/rtld.h,v 1.4 2004/01/20 21:32:46 dillon Exp $
+ * $DragonFly: src/libexec/rtld-elf/rtld.h,v 1.5 2005/02/03 23:28:24 joerg Exp $
  */
 
 #ifndef RTLD_H /* { */
@@ -184,6 +184,11 @@ extern void *xrealloc(void *, size_t);
 extern char *xstrdup(const char *);
 extern Elf_Addr _GLOBAL_OFFSET_TABLE_[];
 
+extern void dump_relocations (Obj_Entry *);
+extern void dump_obj_relocations (Obj_Entry *);
+extern void dump_Elf_Rel (Obj_Entry *, const Elf_Rel *, u_long);
+extern void dump_Elf_Rela (Obj_Entry *, const Elf_Rela *, u_long);
+
 /*
  * Function declarations.
  */