Branch data Line data Source code
1 : : /* Report a module to libdwfl based on ELF program headers.
2 : : Copyright (C) 2005-2010 Red Hat, Inc.
3 : : This file is part of elfutils.
4 : :
5 : : This file is free software; you can redistribute it and/or modify
6 : : it under the terms of either
7 : :
8 : : * the GNU Lesser General Public License as published by the Free
9 : : Software Foundation; either version 3 of the License, or (at
10 : : your option) any later version
11 : :
12 : : or
13 : :
14 : : * the GNU General Public License as published by the Free
15 : : Software Foundation; either version 2 of the License, or (at
16 : : your option) any later version
17 : :
18 : : or both in parallel, as here.
19 : :
20 : : elfutils is distributed in the hope that it will be useful, but
21 : : WITHOUT ANY WARRANTY; without even the implied warranty of
22 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 : : General Public License for more details.
24 : :
25 : : You should have received copies of the GNU General Public License and
26 : : the GNU Lesser General Public License along with this program. If
27 : : not, see <http://www.gnu.org/licenses/>. */
28 : :
29 : : #ifdef HAVE_CONFIG_H
30 : : # include <config.h>
31 : : #endif
32 : :
33 : : #include "libdwflP.h"
34 : : #include <fcntl.h>
35 : :
36 : : /* We start every ET_REL module at a moderately aligned boundary.
37 : : This keeps the low addresses easy to read compared to a layout
38 : : starting at 0 (as when using -e). It also makes it unlikely
39 : : that a middle section will have a larger alignment and require
40 : : rejiggering (see below). */
41 : : #define REL_MIN_ALIGN ((GElf_Xword) 0x100)
42 : :
43 : : bool
44 : : internal_function
45 : 1538 : __libdwfl_elf_address_range (Elf *elf, GElf_Addr base, bool add_p_vaddr,
46 : : bool sanity, GElf_Addr *vaddrp,
47 : : GElf_Addr *address_syncp, GElf_Addr *startp,
48 : : GElf_Addr *endp, GElf_Addr *biasp,
49 : : GElf_Half *e_typep)
50 : : {
51 : 1538 : GElf_Ehdr ehdr_mem, *ehdr = gelf_getehdr (elf, &ehdr_mem);
52 [ - + ]: 1538 : if (ehdr == NULL)
53 : : {
54 : 0 : elf_error:
55 : 0 : __libdwfl_seterrno (DWFL_E_LIBELF);
56 : 0 : return false;
57 : : }
58 : :
59 : 1538 : GElf_Addr vaddr = 0;
60 : 1538 : GElf_Addr address_sync = 0;
61 : 1538 : GElf_Addr start = 0, end = 0, bias = 0;
62 [ + + + ]: 1538 : switch (ehdr->e_type)
63 : : {
64 : 312 : case ET_REL:
65 : : /* For a relocatable object, we do an arbitrary section layout.
66 : : By updating the section header in place, we leave the layout
67 : : information to be found by relocation. */
68 : :
69 : 312 : start = end = base = (base + REL_MIN_ALIGN - 1) & -REL_MIN_ALIGN;
70 : :
71 : 312 : bool first = true;
72 : 312 : Elf_Scn *scn = NULL;
73 [ + + ]: 793744 : while ((scn = elf_nextscn (elf, scn)) != NULL)
74 : : {
75 : 793432 : GElf_Shdr shdr_mem;
76 : 793432 : GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
77 [ - + ]: 793432 : if (unlikely (shdr == NULL))
78 : 0 : goto elf_error;
79 : :
80 [ + + ]: 793432 : if (shdr->sh_flags & SHF_ALLOC)
81 : : {
82 : 2104 : const GElf_Xword align = shdr->sh_addralign ?: 1;
83 : 2104 : const GElf_Addr next = (end + align - 1) & -align;
84 [ + + ]: 2104 : if (shdr->sh_addr == 0
85 : : /* Once we've started doing layout we have to do it all,
86 : : unless we just laid out the first section at 0 when
87 : : it already was at 0. */
88 [ + - - + ]: 18 : || (bias == 0 && end > start && end != next))
89 : : {
90 : 2086 : shdr->sh_addr = next;
91 [ + + ]: 2086 : if (end == base)
92 : : /* This is the first section assigned a location.
93 : : Use its aligned address as the module's base. */
94 : : start = base = shdr->sh_addr;
95 [ - + ]: 1612 : else if (unlikely (base & (align - 1)))
96 : 0 : {
97 : : /* If BASE has less than the maximum alignment of
98 : : any section, we eat more than the optimal amount
99 : : of padding and so make the module's apparent
100 : : size come out larger than it would when placed
101 : : at zero. So reset the layout with a better base. */
102 : :
103 : 0 : start = end = base = (base + align - 1) & -align;
104 : 0 : Elf_Scn *prev_scn = NULL;
105 : 0 : do
106 : : {
107 : 0 : prev_scn = elf_nextscn (elf, prev_scn);
108 : 0 : GElf_Shdr prev_shdr_mem;
109 : 0 : GElf_Shdr *prev_shdr = gelf_getshdr (prev_scn,
110 : : &prev_shdr_mem);
111 [ # # ]: 0 : if (unlikely (prev_shdr == NULL))
112 : 0 : goto elf_error;
113 [ # # ]: 0 : if (prev_shdr->sh_flags & SHF_ALLOC)
114 : : {
115 : 0 : const GElf_Xword prev_align
116 : 0 : = prev_shdr->sh_addralign ?: 1;
117 : :
118 : 0 : prev_shdr->sh_addr
119 : 0 : = (end + prev_align - 1) & -prev_align;
120 : 0 : end = prev_shdr->sh_addr + prev_shdr->sh_size;
121 : :
122 [ # # ]: 0 : if (unlikely (! gelf_update_shdr (prev_scn,
123 : : prev_shdr)))
124 : 0 : goto elf_error;
125 : : }
126 : : }
127 [ # # ]: 0 : while (prev_scn != scn);
128 : 0 : continue;
129 : : }
130 : :
131 : 2086 : end = shdr->sh_addr + shdr->sh_size;
132 [ + + ]: 2086 : if (likely (shdr->sh_addr != 0)
133 [ + - ]: 1618 : && unlikely (! gelf_update_shdr (scn, shdr)))
134 : 0 : goto elf_error;
135 : : }
136 : : else
137 : : {
138 : : /* The address is already assigned. Just track it. */
139 [ + - + + ]: 18 : if (first || end < shdr->sh_addr + shdr->sh_size)
140 : 6 : end = shdr->sh_addr + shdr->sh_size;
141 [ + - ]: 18 : if (first || bias > shdr->sh_addr)
142 : : /* This is the lowest address in the module. */
143 : 18 : bias = shdr->sh_addr;
144 : :
145 [ - + ]: 18 : if ((shdr->sh_addr - bias + base) & (align - 1))
146 : : /* This section winds up misaligned using BASE.
147 : : Adjust BASE upwards to make it congruent to
148 : : the lowest section address in the file modulo ALIGN. */
149 : 0 : base = (((base + align - 1) & -align)
150 : 0 : + (bias & (align - 1)));
151 : : }
152 : :
153 : : first = false;
154 : : }
155 : : }
156 : :
157 [ - + ]: 312 : if (bias != 0)
158 : : {
159 : : /* The section headers had nonzero sh_addr values. The layout
160 : : was already done. We've just collected the total span.
161 : : Now just compute the bias from the requested base. */
162 : 0 : start = base;
163 : 0 : end = end - bias + start;
164 : 0 : bias = start - bias;
165 : : }
166 : 1538 : break;
167 : :
168 : : /* Everything else has to have program headers. */
169 : :
170 : 834 : case ET_EXEC:
171 : : case ET_CORE:
172 : : /* An assigned base address is meaningless for these. */
173 : 834 : base = 0;
174 : 834 : add_p_vaddr = true;
175 : 1226 : FALLTHROUGH;
176 : 1226 : case ET_DYN:
177 : 1226 : default:;
178 : 1226 : size_t phnum;
179 [ - + ]: 1226 : if (unlikely (elf_getphdrnum (elf, &phnum) != 0))
180 : 0 : goto elf_error;
181 [ + + ]: 3044 : for (size_t i = 0; i < phnum; ++i)
182 : : {
183 : 3042 : GElf_Phdr phdr_mem, *ph = gelf_getphdr (elf, i, &phdr_mem);
184 [ - + ]: 3042 : if (unlikely (ph == NULL))
185 : 0 : goto elf_error;
186 [ + + ]: 3042 : if (ph->p_type == PT_LOAD)
187 : : {
188 : 1224 : vaddr = ph->p_vaddr & -ph->p_align;
189 : 1224 : address_sync = ph->p_vaddr + ph->p_memsz;
190 : 1224 : break;
191 : : }
192 : : }
193 [ + + ]: 1226 : if (add_p_vaddr)
194 : : {
195 : 1220 : start = base + vaddr;
196 : 1220 : bias = base;
197 : : }
198 : : else
199 : : {
200 : 6 : start = base;
201 : 6 : bias = base - vaddr;
202 : : }
203 : :
204 [ + + ]: 6226 : for (size_t i = phnum; i-- > 0;)
205 : : {
206 : 6224 : GElf_Phdr phdr_mem, *ph = gelf_getphdr (elf, i, &phdr_mem);
207 [ - + ]: 6224 : if (unlikely (ph == NULL))
208 : 0 : goto elf_error;
209 [ + + ]: 6224 : if (ph->p_type == PT_LOAD
210 [ + + ]: 1226 : && ph->p_vaddr + ph->p_memsz > 0)
211 : : {
212 : 1224 : end = bias + (ph->p_vaddr + ph->p_memsz);
213 : 1224 : break;
214 : : }
215 : : }
216 : :
217 [ - + ]: 1226 : if (end == 0 && sanity)
218 : : {
219 : 0 : __libdwfl_seterrno (DWFL_E_NO_PHDR);
220 : 0 : return false;
221 : : }
222 : : break;
223 : : }
224 [ + + ]: 1538 : if (vaddrp)
225 : 1478 : *vaddrp = vaddr;
226 [ + + ]: 1538 : if (address_syncp)
227 : 1478 : *address_syncp = address_sync;
228 [ + - ]: 1538 : if (startp)
229 : 1538 : *startp = start;
230 [ + - ]: 1538 : if (endp)
231 : 1538 : *endp = end;
232 [ + + ]: 1538 : if (biasp)
233 : 1478 : *biasp = bias;
234 [ + + ]: 1538 : if (e_typep)
235 : 1478 : *e_typep = ehdr->e_type;
236 : : return true;
237 : : }
238 : :
239 : : Dwfl_Module *
240 : : internal_function
241 : 1478 : __libdwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name,
242 : : int fd, Elf *elf, GElf_Addr base, bool add_p_vaddr,
243 : : bool sanity)
244 : : {
245 : 1478 : GElf_Addr vaddr, address_sync, start, end, bias;
246 : 1478 : GElf_Half e_type;
247 [ - + ]: 1478 : if (! __libdwfl_elf_address_range (elf, base, add_p_vaddr, sanity, &vaddr,
248 : : &address_sync, &start, &end, &bias,
249 : : &e_type))
250 : : return NULL;
251 : 1478 : Dwfl_Module *m = INTUSE(dwfl_report_module) (dwfl, name, start, end);
252 [ + - ]: 1478 : if (m != NULL)
253 : : {
254 [ + + ]: 1478 : if (m->main.name == NULL)
255 : : {
256 : 1474 : m->main.name = strdup (file_name);
257 : 1474 : m->main.fd = fd;
258 : : }
259 [ - + - - ]: 4 : else if ((fd >= 0 && m->main.fd != fd)
260 [ - + ]: 4 : || strcmp (m->main.name, file_name))
261 : : {
262 : 0 : overlap:
263 : 0 : m->gc = true;
264 : 0 : __libdwfl_seterrno (DWFL_E_OVERLAP);
265 : 0 : return NULL;
266 : : }
267 : :
268 : : /* Preinstall the open ELF handle for the module. */
269 [ + + ]: 1478 : if (m->main.elf == NULL)
270 : : {
271 : 1474 : m->main.elf = elf;
272 : 1474 : m->main.vaddr = vaddr;
273 : 1474 : m->main.address_sync = address_sync;
274 : 1474 : m->main_bias = bias;
275 : 1474 : m->e_type = e_type;
276 : : }
277 : : else
278 : : {
279 [ + - ]: 4 : if (m->main_bias != bias
280 [ + - - + ]: 4 : || m->main.vaddr != vaddr || m->main.address_sync != address_sync)
281 : 0 : goto overlap;
282 : 4 : elf_end (m->main.elf);
283 : 4 : m->main.elf = elf;
284 : : }
285 : : }
286 : : return m;
287 : : }
288 : :
289 : : NEW_VERSION (dwfl_report_elf, ELFUTILS_0.156)
290 : : Dwfl_Module *
291 : 6 : dwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name, int fd,
292 : : GElf_Addr base, bool add_p_vaddr)
293 : : {
294 : 6 : bool closefd = false;
295 [ + - ]: 6 : if (fd < 0)
296 : : {
297 : 6 : closefd = true;
298 : 6 : fd = open (file_name, O_RDONLY);
299 [ - + ]: 6 : if (fd < 0)
300 : : {
301 : 0 : __libdwfl_seterrno (DWFL_E_ERRNO);
302 : 0 : return NULL;
303 : : }
304 : : }
305 : :
306 : 6 : Elf *elf;
307 : 6 : Dwfl_Error error = __libdw_open_file (&fd, &elf, closefd, false);
308 [ - + ]: 6 : if (error != DWFL_E_NOERROR)
309 : : {
310 : 0 : __libdwfl_seterrno (error);
311 : 0 : return NULL;
312 : : }
313 : :
314 : 6 : Dwfl_Module *mod = __libdwfl_report_elf (dwfl, name, file_name,
315 : : fd, elf, base, add_p_vaddr, true);
316 [ - + ]: 6 : if (mod == NULL)
317 : : {
318 : 0 : elf_end (elf);
319 [ # # ]: 0 : if (closefd)
320 : 0 : close (fd);
321 : : }
322 : :
323 : : return mod;
324 : : }
325 : : NEW_INTDEF (dwfl_report_elf)
326 : :
327 : : #ifdef SYMBOL_VERSIONING
328 : : Dwfl_Module *
329 : : _compat_without_add_p_vaddr_dwfl_report_elf (Dwfl *dwfl, const char *name,
330 : : const char *file_name, int fd,
331 : : GElf_Addr base);
332 : : COMPAT_VERSION_NEWPROTO (dwfl_report_elf, ELFUTILS_0.122, without_add_p_vaddr)
333 : :
334 : : Dwfl_Module *
335 : : _compat_without_add_p_vaddr_dwfl_report_elf (Dwfl *dwfl, const char *name,
336 : : const char *file_name, int fd,
337 : : GElf_Addr base)
338 : : {
339 : : return dwfl_report_elf (dwfl, name, file_name, fd, base, true);
340 : : }
341 : : #endif
|