libexec/rtld-elf/debug.c

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