debug.c revision 296727 
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: stable/10/libexec/rtld-elf/debug.c 296727 2016-03-12 17:12:00Z kib $
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
39static const char rel_header[] =
40    " symbol name               r_info r_offset st_value st_size    address    value\n"
41    " ------------------------------------------------------------------------------\n";
42static const char rel_format[] =  " %-25s %6lx %08lx %08lx %7d %10p %08lx\n";
43
44int debug = 0;
45
46void
47debug_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
60void
61dump_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
71void
72dump_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
102void
103dump_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
124void
125dump_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}
145