2 * SPDX-License-Identifier: BSD-4-Clause
4 * Copyright (c) 2000, Boris Popov
5 * Copyright (c) 1998-2000 Doug Rabson
6 * Copyright (c) 2004 Peter Wemm
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed by Boris Popov.
20 * 4. Neither the name of the author nor the names of any co-contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
39 #include <sys/param.h>
40 #include <sys/linker.h>
49 #include <machine/elf.h>
58 int sec; /* Original section */
78 struct elf_file *ef_efile;
93 Elf_Sym *ddbsymtab; /* The symbol table we are using */
94 long ddbsymcnt; /* Number of symbols */
95 caddr_t ddbstrtab; /* String table */
96 long ddbstrcnt; /* number of bytes in string table */
98 caddr_t shstrtab; /* Section name string table */
99 long shstrcnt; /* number of bytes in string table */
104 static int ef_obj_get_type(elf_file_t ef);
105 static int ef_obj_close(elf_file_t ef);
106 static int ef_obj_read(elf_file_t ef, Elf_Off offset, size_t len,
108 static int ef_obj_read_entry(elf_file_t ef, Elf_Off offset, size_t len,
110 static int ef_obj_seg_read(elf_file_t ef, Elf_Off offset, size_t len,
112 static int ef_obj_seg_read_rel(elf_file_t ef, Elf_Off offset, size_t len,
114 static int ef_obj_seg_read_string(elf_file_t ef, Elf_Off offset,
115 size_t len, char *dest);
116 static int ef_obj_seg_read_entry(elf_file_t ef, Elf_Off offset, size_t len,
118 static int ef_obj_seg_read_entry_rel(elf_file_t ef, Elf_Off offset,
119 size_t len, void **ptr);
120 static Elf_Addr ef_obj_symaddr(elf_file_t ef, Elf_Size symidx);
121 static int ef_obj_lookup_set(elf_file_t ef, const char *name, long *startp,
122 long *stopp, long *countp);
123 static int ef_obj_lookup_symbol(elf_file_t ef, const char* name,
126 static struct elf_file_ops ef_obj_file_ops = {
127 .get_type = ef_obj_get_type,
128 .close = ef_obj_close,
130 .read_entry = ef_obj_read_entry,
131 .seg_read = ef_obj_seg_read,
132 .seg_read_rel = ef_obj_seg_read_rel,
133 .seg_read_string = ef_obj_seg_read_string,
134 .seg_read_entry = ef_obj_seg_read_entry,
135 .seg_read_entry_rel = ef_obj_seg_read_entry_rel,
136 .symaddr = ef_obj_symaddr,
137 .lookup_set = ef_obj_lookup_set,
138 .lookup_symbol = ef_obj_lookup_symbol
142 ef_obj_get_type(elf_file_t __unused ef)
149 ef_obj_lookup_symbol(elf_file_t ef, const char* name, Elf_Sym** sym)
155 for (i = 0, symp = ef->ddbsymtab; i < ef->ddbsymcnt; i++, symp++) {
156 strp = ef->ddbstrtab + symp->st_name;
157 if (symp->st_shndx != SHN_UNDEF && strcmp(name, strp) == 0) {
166 ef_obj_lookup_set(elf_file_t ef, const char *name, long *startp, long *stopp,
171 for (i = 0; i < ef->nprogtab; i++) {
172 if ((strncmp(ef->progtab[i].name, "set_", 4) == 0) &&
173 strcmp(ef->progtab[i].name + 4, name) == 0) {
174 *startp = (char *)ef->progtab[i].addr - ef->address;
175 *stopp = (char *)ef->progtab[i].addr +
176 ef->progtab[i].size - ef->address;
177 *countp = (*stopp - *startp) / sizeof(void *);
185 ef_obj_symaddr(elf_file_t ef, Elf_Size symidx)
189 if (symidx >= (size_t) ef->ddbsymcnt)
191 sym = ef->ddbsymtab + symidx;
193 if (sym->st_shndx != SHN_UNDEF)
194 return (sym->st_value - (Elf_Addr)ef->address);
199 ef_obj_read(elf_file_t ef, Elf_Off offset, size_t len, void *dest)
203 if (offset != (Elf_Off)-1) {
204 if (lseek(ef->ef_fd, offset, SEEK_SET) == -1)
208 r = read(ef->ef_fd, dest, len);
209 if (r != -1 && (size_t)r == len)
216 ef_obj_read_entry(elf_file_t ef, Elf_Off offset, size_t len, void **ptr)
223 error = ef_obj_read(ef, offset, len, *ptr);
230 ef_obj_seg_read(elf_file_t ef, Elf_Off offset, size_t len, void *dest)
233 if (offset + len > ef->size) {
235 warnx("ef_obj_seg_read(%s): bad offset/len (%lx:%ld)",
236 ef->ef_name, (long)offset, (long)len);
239 bcopy(ef->address + offset, dest, len);
244 ef_obj_seg_read_rel(elf_file_t ef, Elf_Off offset, size_t len, void *dest)
249 Elf_Off secbase, dataoff;
252 if (offset + len > ef->size) {
254 warnx("ef_obj_seg_read_rel(%s): bad offset/len (%lx:%ld)",
255 ef->ef_name, (long)offset, (long)len);
258 bcopy(ef->address + offset, dest, len);
260 /* Find out which section contains the data. */
261 memaddr = ef->address + offset;
263 secbase = dataoff = 0;
264 for (i = 0; i < ef->nprogtab; i++) {
265 if (ef->progtab[i].addr == NULL)
267 if (memaddr < (char *)ef->progtab[i].addr || memaddr + len >
268 (char *)ef->progtab[i].addr + ef->progtab[i].size)
270 sec = ef->progtab[i].sec;
271 /* We relocate to address 0. */
272 secbase = (char *)ef->progtab[i].addr - ef->address;
273 dataoff = memaddr - ef->address;
280 /* Now do the relocations. */
281 for (i = 0; i < ef->nrel; i++) {
282 if (ef->reltab[i].sec != sec)
284 for (r = ef->reltab[i].rel;
285 r < &ef->reltab[i].rel[ef->reltab[i].nrel]; r++) {
286 error = ef_reloc(ef->ef_efile, r, EF_RELOC_REL, secbase,
292 for (i = 0; i < ef->nrela; i++) {
293 if (ef->relatab[i].sec != sec)
295 for (a = ef->relatab[i].rela;
296 a < &ef->relatab[i].rela[ef->relatab[i].nrela]; a++) {
297 error = ef_reloc(ef->ef_efile, a, EF_RELOC_RELA,
298 secbase, dataoff, len, dest);
307 ef_obj_seg_read_string(elf_file_t ef, Elf_Off offset, size_t len, char *dest)
310 if (offset >= ef->size) {
312 warnx("ef_obj_seg_read_string(%s): bad offset (%lx)",
313 ef->ef_name, (long)offset);
317 if (ef->size - offset < len)
318 len = ef->size - offset;
320 if (strnlen(ef->address + offset, len) == len)
323 memcpy(dest, ef->address + offset, len);
328 ef_obj_seg_read_entry(elf_file_t ef, Elf_Off offset, size_t len, void **ptr)
335 error = ef_obj_seg_read(ef, offset, len, *ptr);
342 ef_obj_seg_read_entry_rel(elf_file_t ef, Elf_Off offset, size_t len,
350 error = ef_obj_seg_read_rel(ef, offset, len, *ptr);
357 ef_obj_open(const char *filename, struct elf_file *efile, int verbose)
365 size_t mapsize, alignmask, max_addralign;
366 int error, fd, pb, ra, res, rl;
367 int i, j, nbytes, nsym, shstrindex, symstrindex, symtabindex;
369 if (filename == NULL)
371 if ((fd = open(filename, O_RDONLY)) == -1)
374 ef = calloc(1, sizeof(*ef));
381 efile->ef_ops = &ef_obj_file_ops;
383 ef->ef_verbose = verbose;
385 ef->ef_name = strdup(filename);
386 ef->ef_efile = efile;
387 hdr = (Elf_Ehdr *)&ef->ef_hdr;
389 res = read(fd, hdr, sizeof(*hdr));
391 if (res != sizeof(*hdr))
395 if (hdr->e_ident[EI_CLASS] != ELF_TARG_CLASS ||
396 hdr->e_ident[EI_DATA] != ELF_TARG_DATA ||
397 hdr->e_ident[EI_VERSION] != EV_CURRENT ||
398 hdr->e_version != EV_CURRENT || hdr->e_machine != ELF_TARG_MACH ||
399 hdr->e_type != ET_REL)
402 nbytes = hdr->e_shnum * hdr->e_shentsize;
403 if (nbytes == 0 || hdr->e_shoff == 0 ||
404 hdr->e_shentsize != sizeof(Elf_Shdr))
407 if (ef_obj_read_entry(ef, hdr->e_shoff, nbytes, &vtmp) != 0) {
408 printf("ef_read_entry failed\n");
411 ef->e_shdr = shdr = vtmp;
413 /* Scan the section header for information and table sizing. */
417 for (i = 0; i < hdr->e_shnum; i++) {
418 switch (shdr[i].sh_type) {
426 symstrindex = shdr[i].sh_link;
439 if (ef->nprogtab == 0) {
440 warnx("%s: file has no contents", filename);
444 warnx("%s: file has no valid symbol table", filename);
447 if (symstrindex < 0 || symstrindex > hdr->e_shnum ||
448 shdr[symstrindex].sh_type != SHT_STRTAB) {
449 warnx("%s: file has invalid symbol strings", filename);
453 /* Allocate space for tracking the load chunks */
454 if (ef->nprogtab != 0)
455 ef->progtab = calloc(ef->nprogtab, sizeof(*ef->progtab));
457 ef->reltab = calloc(ef->nrel, sizeof(*ef->reltab));
459 ef->relatab = calloc(ef->nrela, sizeof(*ef->relatab));
460 if ((ef->nprogtab != 0 && ef->progtab == NULL) ||
461 (ef->nrel != 0 && ef->reltab == NULL) ||
462 (ef->nrela != 0 && ef->relatab == NULL)) {
463 printf("malloc failed\n");
468 ef->ddbsymcnt = shdr[symtabindex].sh_size / sizeof(Elf_Sym);
469 if (ef_obj_read_entry(ef, shdr[symtabindex].sh_offset,
470 shdr[symtabindex].sh_size, (void**)&ef->ddbsymtab) != 0) {
471 printf("ef_read_entry failed\n");
475 ef->ddbstrcnt = shdr[symstrindex].sh_size;
476 if (ef_obj_read_entry(ef, shdr[symstrindex].sh_offset,
477 shdr[symstrindex].sh_size, (void**)&ef->ddbstrtab) != 0) {
478 printf("ef_read_entry failed\n");
482 /* Do we have a string table for the section names? */
484 if (hdr->e_shstrndx != 0 &&
485 shdr[hdr->e_shstrndx].sh_type == SHT_STRTAB) {
486 shstrindex = hdr->e_shstrndx;
487 ef->shstrcnt = shdr[shstrindex].sh_size;
488 if (ef_obj_read_entry(ef, shdr[shstrindex].sh_offset,
489 shdr[shstrindex].sh_size, (void**)&ef->shstrtab) != 0) {
490 printf("ef_read_entry failed\n");
495 /* Size up code/data(progbits) and bss(nobits). */
499 for (i = 0; i < hdr->e_shnum; i++) {
500 switch (shdr[i].sh_type) {
503 alignmask = shdr[i].sh_addralign - 1;
504 if (shdr[i].sh_addralign > max_addralign)
505 max_addralign = shdr[i].sh_addralign;
506 mapsize += alignmask;
507 mapsize &= ~alignmask;
508 mapsize += shdr[i].sh_size;
513 /* We know how much space we need for the text/data/bss/etc. */
515 if (posix_memalign((void **)&ef->address, max_addralign, mapsize)) {
516 printf("posix_memalign failed\n");
519 mapbase = ef->address;
522 * Now load code/data(progbits), zero bss(nobits), allocate
523 * space for and load relocs
529 for (i = 0; i < hdr->e_shnum; i++) {
530 switch (shdr[i].sh_type) {
533 alignmask = shdr[i].sh_addralign - 1;
534 mapbase += alignmask;
535 mapbase = (char *)((uintptr_t)mapbase & ~alignmask);
536 ef->progtab[pb].addr = (void *)(uintptr_t)mapbase;
537 if (shdr[i].sh_type == SHT_PROGBITS) {
538 ef->progtab[pb].name = "<<PROGBITS>>";
539 if (ef_obj_read(ef, shdr[i].sh_offset,
541 ef->progtab[pb].addr) != 0) {
542 printf("failed to read progbits\n");
546 ef->progtab[pb].name = "<<NOBITS>>";
547 bzero(ef->progtab[pb].addr, shdr[i].sh_size);
549 ef->progtab[pb].size = shdr[i].sh_size;
550 ef->progtab[pb].sec = i;
551 if (ef->shstrtab && shdr[i].sh_name != 0)
552 ef->progtab[pb].name =
553 ef->shstrtab + shdr[i].sh_name;
555 /* Update all symbol values with the offset. */
556 for (j = 0; j < ef->ddbsymcnt; j++) {
557 es = &ef->ddbsymtab[j];
558 if (es->st_shndx != i)
560 es->st_value += (Elf_Addr)ef->progtab[pb].addr;
562 mapbase += shdr[i].sh_size;
566 ef->reltab[rl].nrel = shdr[i].sh_size / sizeof(Elf_Rel);
567 ef->reltab[rl].sec = shdr[i].sh_info;
568 if (ef_obj_read_entry(ef, shdr[i].sh_offset,
569 shdr[i].sh_size, (void**)&ef->reltab[rl].rel) !=
571 printf("ef_read_entry failed\n");
577 ef->relatab[ra].nrela =
578 shdr[i].sh_size / sizeof(Elf_Rela);
579 ef->relatab[ra].sec = shdr[i].sh_info;
580 if (ef_obj_read_entry(ef, shdr[i].sh_offset,
581 shdr[i].sh_size, (void**)&ef->relatab[ra].rela) !=
583 printf("ef_read_entry failed\n");
598 ef_obj_close(elf_file_t ef)
605 if (ef->e_shdr != NULL)
609 if (ef->nprogtab != 0)
612 for (i = 0; i < ef->nrel; i++)
613 if (ef->reltab[i].rel != NULL)
614 free(ef->reltab[i].rel);
617 if (ef->nrela != 0) {
618 for (i = 0; i < ef->nrela; i++)
619 if (ef->relatab[i].rela != NULL)
620 free(ef->relatab[i].rela);
623 if (ef->ddbsymtab != NULL)
625 if (ef->ddbstrtab != NULL)
627 if (ef->shstrtab != NULL)
629 ef->ef_efile->ef_ops = NULL;
630 ef->ef_efile->ef_ef = NULL;