libexec/rtld-elf/debug.c

   1 /*-
   2  * Copyright 1996-1998 John D. Polstra.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  15  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  16  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  17  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  18  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  19  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  20  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  21  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  22  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  23  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  24  *
  25  * $FreeBSD$
  26  */
  27
  28 /*
  29  * Support for printing debugging messages.
  30  */
  31
  32 #include <stdarg.h>
  33 #include <stdio.h>
  34
  35 #include "debug.h"
  36 #include "rtld.h"
  37 #include "rtld_printf.h"
  38
  39 static const char rel_header[] =
  40     " symbol name               r_info r_offset st_value st_size    address    value\n"
  41     " ------------------------------------------------------------------------------\n";
  42 static const char rel_format[] =  " %-25s %6lx %08lx %08lx %7d %10p %08lx\n";
  43
  44 int debug = 0;
  45
  46 void
  47 debug_printf(const char *format, ...)
  48 {
  49     if (debug) {
  50         va_list ap;
  51         va_start(ap, format);
  52
  53         rtld_vfdprintf(STDERR_FILENO, format, ap);
  54         rtld_fdputchar(STDERR_FILENO, '\n');
  55
  56         va_end(ap);
  57     }
  58 }
  59
  60 void
  61 dump_relocations (Obj_Entry *obj0)
  62 {
  63     Obj_Entry *obj;
  64
  65     for (obj = globallist_curr(obj0); obj != NULL;
  66       obj = globallist_next(obj)) {
  67         dump_obj_relocations(obj);
  68     }
  69 }
  70
  71 void
  72 dump_obj_relocations (Obj_Entry *obj)
  73 {
  74
  75     rtld_printf("Object \"%s\", relocbase %p\n", obj->path, obj->relocbase);
  76
  77     if (obj->relsize) {
  78         rtld_printf("Non-PLT Relocations: %ld\n",
  79             (obj->relsize / sizeof(Elf_Rel)));
  80         dump_Elf_Rel(obj, obj->rel, obj->relsize);
  81     }
  82
  83     if (obj->relasize) {
  84         rtld_printf("Non-PLT Relocations with Addend: %ld\n",
  85             (obj->relasize / sizeof(Elf_Rela)));
  86         dump_Elf_Rela(obj, obj->rela, obj->relasize);
  87     }
  88
  89     if (obj->pltrelsize) {
  90         rtld_printf("PLT Relocations: %ld\n",
  91             (obj->pltrelsize / sizeof(Elf_Rel)));
  92         dump_Elf_Rel(obj, obj->pltrel, obj->pltrelsize);
  93     }
  94
  95     if (obj->pltrelasize) {
  96         rtld_printf("PLT Relocations with Addend: %ld\n",
  97             (obj->pltrelasize / sizeof(Elf_Rela)));
  98         dump_Elf_Rela(obj, obj->pltrela, obj->pltrelasize);
  99     }
 100 }
 101
 102 void
 103 dump_Elf_Rel (Obj_Entry *obj, const Elf_Rel *rel0, u_long relsize)
 104 {
 105     const Elf_Rel *rel;
 106     const Elf_Rel *rellim;
 107     const Elf_Sym *sym;
 108     Elf_Addr *dstaddr;
 109
 110     rtld_putstr(rel_header);
 111     rellim = (const Elf_Rel *)((const char *)rel0 + relsize);
 112     for (rel = rel0; rel < rellim; rel++) {
 113         dstaddr = (Elf_Addr *)(obj->relocbase + rel->r_offset);
 114         sym = obj->symtab + ELF_R_SYM(rel->r_info);
 115         rtld_printf(rel_format,
 116                 obj->strtab + sym->st_name,
 117                 (u_long)rel->r_info, (u_long)rel->r_offset,
 118                 (u_long)sym->st_value, (int)sym->st_size,
 119                 dstaddr, (u_long)*dstaddr);
 120     }
 121     return;
 122 }
 123
 124 void
 125 dump_Elf_Rela (Obj_Entry *obj, const Elf_Rela *rela0, u_long relasize)
 126 {
 127     const Elf_Rela *rela;
 128     const Elf_Rela *relalim;
 129     const Elf_Sym *sym;
 130     Elf_Addr *dstaddr;
 131
 132     rtld_putstr(rel_header);
 133     relalim = (const Elf_Rela *)((const char *)rela0 + relasize);
 134     for (rela = rela0; rela < relalim; rela++) {
 135         dstaddr = (Elf_Addr *)(obj->relocbase + rela->r_offset);
 136         sym = obj->symtab + ELF_R_SYM(rela->r_info);
 137         rtld_printf(rel_format,
 138                 obj->strtab + sym->st_name,
 139                 (u_long)rela->r_info, (u_long)rela->r_offset,
 140                 (u_long)sym->st_value, (int)sym->st_size,
 141                 dstaddr, (u_long)*dstaddr);
 142     }
 143     return;
 144 }