modules: pull in most of FreeBSD's module linker changes
[dragonfly.git] / sys / cpu / i386 / misc / elf_machdep.c
CommitLineData
984263bc
MD
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: src/sys/i386/i386/elf_machdep.c,v 1.8 1999/12/21 11:14:02 eivind Exp $
26be20a0 26 * $DragonFly: src/sys/cpu/i386/misc/elf_machdep.c,v 1.4 2006/12/23 00:27:02 swildner Exp $
984263bc
MD
27 */
28
29#include <sys/param.h>
30#include <sys/systm.h>
31#include <sys/linker.h>
32#include <machine/elf.h>
33
34/* Process one elf relocation with addend. */
1c0e3286
SS
35static int
36elf_reloc_internal(linker_file_t lf, Elf_Addr relocbase, const void *data,
37 int type, int local, elf_lookup_fn lookup)
984263bc 38{
984263bc
MD
39 Elf_Addr *where;
40 Elf_Addr addr;
41 Elf_Addr addend;
1c0e3286 42 Elf_Word rtype, symidx;
984263bc
MD
43 const Elf_Rel *rel;
44 const Elf_Rela *rela;
45
46 switch (type) {
47 case ELF_RELOC_REL:
48 rel = (const Elf_Rel *)data;
49 where = (Elf_Addr *) (relocbase + rel->r_offset);
50 addend = *where;
51 rtype = ELF_R_TYPE(rel->r_info);
1c0e3286 52 symidx = ELF_R_SYM(rel->r_info);
984263bc
MD
53 break;
54 case ELF_RELOC_RELA:
55 rela = (const Elf_Rela *)data;
56 where = (Elf_Addr *) (relocbase + rela->r_offset);
57 addend = rela->r_addend;
58 rtype = ELF_R_TYPE(rela->r_info);
1c0e3286 59 symidx = ELF_R_SYM(rela->r_info);
984263bc
MD
60 break;
61 default:
62 panic("unknown reloc type %d\n", type);
63 }
64
1c0e3286
SS
65 if (local) {
66 if (rtype == R_386_RELATIVE) { /* A + B */
67 addr = elf_relocaddr(lf, relocbase + addend);
68 if (*where != addr)
69 *where = addr;
70 }
71 return (0);
72 }
73
984263bc
MD
74 switch (rtype) {
75
76 case R_386_NONE: /* none */
77 break;
78
79 case R_386_32: /* S + A */
1c0e3286 80 if (lookup(lf, symidx, 1, &addr))
984263bc 81 return -1;
984263bc
MD
82 addr += addend;
83 if (*where != addr)
84 *where = addr;
85 break;
86
87 case R_386_PC32: /* S + A - P */
1c0e3286 88 if (lookup(lf, symidx, 1, &addr))
984263bc
MD
89 return -1;
90 addr += addend - (Elf_Addr)where;
91 if (*where != addr)
92 *where = addr;
93 break;
94
95 case R_386_COPY: /* none */
96 /*
97 * There shouldn't be copy relocations in kernel
98 * objects.
99 */
26be20a0 100 kprintf("kldload: unexpected R_COPY relocation\n");
984263bc
MD
101 return -1;
102 break;
103
104 case R_386_GLOB_DAT: /* S */
1c0e3286 105 if (lookup(lf, symidx, 1, &addr))
984263bc
MD
106 return -1;
107 if (*where != addr)
108 *where = addr;
109 break;
110
1c0e3286 111 case R_386_RELATIVE:
984263bc
MD
112 break;
113
114 default:
26be20a0 115 kprintf("kldload: unexpected relocation type %d\n",
984263bc
MD
116 rtype);
117 return -1;
118 }
119 return(0);
120}
1c0e3286
SS
121
122int
123elf_reloc(linker_file_t lf, Elf_Addr relocbase, const void *data, int type,
124 elf_lookup_fn lookup)
125{
126
127 return (elf_reloc_internal(lf, relocbase, data, type, 0, lookup));
128}
129
130int
131elf_reloc_local(linker_file_t lf, Elf_Addr relocbase, const void *data,
132 int type, elf_lookup_fn lookup)
133{
134
135 return (elf_reloc_internal(lf, relocbase, data, type, 1, lookup));
136}