1 // SPDX-License-Identifier: GPL-2.0-only !! 1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /* !! 2 /* Kernel module help for Alpha.
3 * Kernel module loader for Hexagon !! 3 Copyright (C) 2002 Richard Henderson.
4 * <<
5 * Copyright (c) 2010-2011, The Linux Foundati <<
6 */ <<
7 4
8 #include <asm/module.h> !! 5 */
9 #include <linux/elf.h> <<
10 #include <linux/module.h> <<
11 #include <linux/moduleloader.h> 6 #include <linux/moduleloader.h>
>> 7 #include <linux/elf.h>
12 #include <linux/vmalloc.h> 8 #include <linux/vmalloc.h>
>> 9 #include <linux/fs.h>
>> 10 #include <linux/string.h>
>> 11 #include <linux/kernel.h>
>> 12 #include <linux/slab.h>
13 13
14 #if 0 14 #if 0
15 #define DEBUGP printk 15 #define DEBUGP printk
16 #else 16 #else
17 #define DEBUGP(fmt , ...) !! 17 #define DEBUGP(fmt...)
18 #endif 18 #endif
19 19
20 /* !! 20 /* Allocate the GOT at the end of the core sections. */
21 * module_frob_arch_sections - tweak got/plt s !! 21
22 * @hdr - pointer to elf header !! 22 struct got_entry {
23 * @sechdrs - pointer to elf load section head !! 23 struct got_entry *next;
24 * @secstrings - symbol names !! 24 Elf64_Sxword r_addend;
25 * @mod - pointer to module !! 25 int got_offset;
26 */ !! 26 };
27 int module_frob_arch_sections(Elf_Ehdr *hdr, E !! 27
28 char *secstrin !! 28 static inline void
29 struct module !! 29 process_reloc_for_got(Elf64_Rela *rela,
>> 30 struct got_entry *chains, Elf64_Xword *poffset)
>> 31 {
>> 32 unsigned long r_sym = ELF64_R_SYM (rela->r_info);
>> 33 unsigned long r_type = ELF64_R_TYPE (rela->r_info);
>> 34 Elf64_Sxword r_addend = rela->r_addend;
>> 35 struct got_entry *g;
>> 36
>> 37 if (r_type != R_ALPHA_LITERAL)
>> 38 return;
>> 39
>> 40 for (g = chains + r_sym; g ; g = g->next)
>> 41 if (g->r_addend == r_addend) {
>> 42 if (g->got_offset == 0) {
>> 43 g->got_offset = *poffset;
>> 44 *poffset += 8;
>> 45 }
>> 46 goto found_entry;
>> 47 }
>> 48
>> 49 g = kmalloc (sizeof (*g), GFP_KERNEL);
>> 50 g->next = chains[r_sym].next;
>> 51 g->r_addend = r_addend;
>> 52 g->got_offset = *poffset;
>> 53 *poffset += 8;
>> 54 chains[r_sym].next = g;
>> 55
>> 56 found_entry:
>> 57 /* Trick: most of the ELF64_R_TYPE field is unused. There are
>> 58 42 valid relocation types, and a 32-bit field. Co-opt the
>> 59 bits above 256 to store the got offset for this reloc. */
>> 60 rela->r_info |= g->got_offset << 8;
>> 61 }
>> 62
>> 63 int
>> 64 module_frob_arch_sections(Elf64_Ehdr *hdr, Elf64_Shdr *sechdrs,
>> 65 char *secstrings, struct module *me)
30 { 66 {
31 unsigned int i; !! 67 struct got_entry *chains;
32 int found = 0; !! 68 Elf64_Rela *rela;
>> 69 Elf64_Shdr *esechdrs, *symtab, *s, *got;
>> 70 unsigned long nsyms, nrela, i;
>> 71
>> 72 esechdrs = sechdrs + hdr->e_shnum;
>> 73 symtab = got = NULL;
>> 74
>> 75 /* Find out how large the symbol table is. Allocate one got_entry
>> 76 head per symbol. Normally this will be enough, but not always.
>> 77 We'll chain different offsets for the symbol down each head. */
>> 78 for (s = sechdrs; s < esechdrs; ++s)
>> 79 if (s->sh_type == SHT_SYMTAB)
>> 80 symtab = s;
>> 81 else if (!strcmp(".got", secstrings + s->sh_name)) {
>> 82 got = s;
>> 83 me->arch.gotsecindex = s - sechdrs;
>> 84 }
33 85
34 /* Look for .plt and/or .got.plt and/o !! 86 if (!symtab) {
35 for (i = 0; i < hdr->e_shnum; i++) { !! 87 printk(KERN_ERR "module %s: no symbol table\n", me->name);
36 DEBUGP("Section %d is %s\n", i !! 88 return -ENOEXEC;
37 secstrings + sechdrs[i] !! 89 }
38 if (strcmp(secstrings + sechdr !! 90 if (!got) {
39 found = i+1; !! 91 printk(KERN_ERR "module %s: no got section\n", me->name);
40 if (strcmp(secstrings + sechdr !! 92 return -ENOEXEC;
41 found = i+1; <<
42 if (strcmp(secstrings + sechdr <<
43 found = i+1; <<
44 } 93 }
45 94
46 /* At this time, we don't support modu !! 95 nsyms = symtab->sh_size / sizeof(Elf64_Sym);
47 if (found) { !! 96 chains = kcalloc(nsyms, sizeof(struct got_entry), GFP_KERNEL);
48 printk(KERN_WARNING !! 97 if (!chains) {
49 "Module '%s' contains !! 98 printk(KERN_ERR
50 mod->name); !! 99 "module %s: no memory for symbol chain buffer\n",
51 /* return -ENOEXEC; */ !! 100 me->name);
>> 101 return -ENOMEM;
52 } 102 }
53 103
>> 104 got->sh_size = 0;
>> 105 got->sh_addralign = 8;
>> 106 got->sh_type = SHT_NOBITS;
>> 107
>> 108 /* Examine all LITERAL relocations to find out what GOT entries
>> 109 are required. This sizes the GOT section as well. */
>> 110 for (s = sechdrs; s < esechdrs; ++s)
>> 111 if (s->sh_type == SHT_RELA) {
>> 112 nrela = s->sh_size / sizeof(Elf64_Rela);
>> 113 rela = (void *)hdr + s->sh_offset;
>> 114 for (i = 0; i < nrela; ++i)
>> 115 process_reloc_for_got(rela+i, chains,
>> 116 &got->sh_size);
>> 117 }
>> 118
>> 119 /* Free the memory we allocated. */
>> 120 for (i = 0; i < nsyms; ++i) {
>> 121 struct got_entry *g, *n;
>> 122 for (g = chains[i].next; g ; g = n) {
>> 123 n = g->next;
>> 124 kfree(g);
>> 125 }
>> 126 }
>> 127 kfree(chains);
>> 128
54 return 0; 129 return 0;
55 } 130 }
56 131
57 /* !! 132 int
58 * apply_relocate_add - perform rela relocatio !! 133 apply_relocate_add(Elf64_Shdr *sechdrs, const char *strtab,
59 * @sechdrs - pointer to section headers !! 134 unsigned int symindex, unsigned int relsec,
60 * @strtab - some sort of start address? !! 135 struct module *me)
61 * @symindex - symbol index offset or somethin <<
62 * @relsec - address to relocate to? <<
63 * @module - pointer to module <<
64 * <<
65 * Perform rela relocations. <<
66 */ <<
67 int apply_relocate_add(Elf_Shdr *sechdrs, cons <<
68 unsigned int symindex, <<
69 struct module *module) <<
70 { 136 {
71 unsigned int i; !! 137 Elf64_Rela *rela = (void *)sechdrs[relsec].sh_addr;
72 Elf32_Sym *sym; !! 138 unsigned long i, n = sechdrs[relsec].sh_size / sizeof(*rela);
73 uint32_t *location; !! 139 Elf64_Sym *symtab, *sym;
74 uint32_t value; !! 140 void *base, *location;
75 unsigned int nrelocs = sechdrs[relsec] !! 141 unsigned long got, gp;
76 Elf32_Rela *rela = (void *)sechdrs[rel !! 142
77 Elf32_Word sym_info = sechdrs[relsec]. !! 143 DEBUGP("Applying relocate section %u to %u\n", relsec,
78 Elf32_Sym *sym_base = (Elf32_Sym *) se !! 144 sechdrs[relsec].sh_info);
79 void *loc_base = (void *) sechdrs[sym_ !! 145
80 !! 146 base = (void *)sechdrs[sechdrs[relsec].sh_info].sh_addr;
81 DEBUGP("Applying relocations in sectio !! 147 symtab = (Elf64_Sym *)sechdrs[symindex].sh_addr;
82 relsec, sym_info, loc_base); !! 148
83 !! 149 got = sechdrs[me->arch.gotsecindex].sh_addr;
84 for (i = 0; i < nrelocs; i++) { !! 150 gp = got + 0x8000;
85 !! 151
86 /* Symbol to relocate */ !! 152 for (i = 0; i < n; i++) {
87 sym = sym_base + ELF32_R_SYM(r !! 153 unsigned long r_sym = ELF64_R_SYM (rela[i].r_info);
88 !! 154 unsigned long r_type = ELF64_R_TYPE (rela[i].r_info);
89 /* Where to make the change */ !! 155 unsigned long r_got_offset = r_type >> 8;
90 location = loc_base + rela[i]. !! 156 unsigned long value, hi, lo;
91 !! 157 r_type &= 0xff;
92 /* `Everything is relative'. * !! 158
>> 159 /* This is where to make the change. */
>> 160 location = base + rela[i].r_offset;
>> 161
>> 162 /* This is the symbol it is referring to. Note that all
>> 163 unresolved symbols have been resolved. */
>> 164 sym = symtab + r_sym;
93 value = sym->st_value + rela[i 165 value = sym->st_value + rela[i].r_addend;
94 166
95 DEBUGP("%d: value=%08x loc=%p !! 167 switch (r_type) {
96 i, value, location, ELF !! 168 case R_ALPHA_NONE:
97 sym->st_name ? <<
98 &strtab[sym->st_name] : <<
99 <<
100 switch (ELF32_R_TYPE(rela[i].r <<
101 case R_HEXAGON_B22_PCREL: { <<
102 int dist = (int)(value <<
103 if ((dist < -0x0080000 <<
104 (dist >= 0x0080000 <<
105 printk(KERN_ER <<
106 "%s: %s <<
107 module- <<
108 "R_HEXA <<
109 dist, v <<
110 sym->st <<
111 &strtab <<
112 return -ENOEXE <<
113 } <<
114 DEBUGP("B22_PCREL cont <<
115 *location &= ~0x01ff3f <<
116 *location |= 0x00003ff <<
117 *location |= 0x01ff000 <<
118 DEBUGP("Contents after <<
119 break; 169 break;
120 } !! 170 case R_ALPHA_REFLONG:
121 case R_HEXAGON_HI16: !! 171 *(u32 *)location = value;
122 value = (value>>16) & !! 172 break;
>> 173 case R_ALPHA_REFQUAD:
>> 174 /* BUG() can produce misaligned relocations. */
>> 175 ((u32 *)location)[0] = value;
>> 176 ((u32 *)location)[1] = value >> 32;
>> 177 break;
>> 178 case R_ALPHA_GPREL32:
>> 179 value -= gp;
>> 180 if ((int)value != value)
>> 181 goto reloc_overflow;
>> 182 *(u32 *)location = value;
>> 183 break;
>> 184 case R_ALPHA_LITERAL:
>> 185 hi = got + r_got_offset;
>> 186 lo = hi - gp;
>> 187 if ((short)lo != lo)
>> 188 goto reloc_overflow;
>> 189 *(u16 *)location = lo;
>> 190 *(u64 *)hi = value;
>> 191 break;
>> 192 case R_ALPHA_LITUSE:
>> 193 break;
>> 194 case R_ALPHA_GPDISP:
>> 195 value = gp - (u64)location;
>> 196 lo = (short)value;
>> 197 hi = (int)(value - lo);
>> 198 if (hi + lo != value)
>> 199 goto reloc_overflow;
>> 200 *(u16 *)location = hi >> 16;
>> 201 *(u16 *)(location + rela[i].r_addend) = lo;
>> 202 break;
>> 203 case R_ALPHA_BRSGP:
>> 204 /* BRSGP is only allowed to bind to local symbols.
>> 205 If the section is undef, this means that the
>> 206 value was resolved from somewhere else. */
>> 207 if (sym->st_shndx == SHN_UNDEF)
>> 208 goto reloc_overflow;
>> 209 if ((sym->st_other & STO_ALPHA_STD_GPLOAD) ==
>> 210 STO_ALPHA_STD_GPLOAD)
>> 211 /* Omit the prologue. */
>> 212 value += 8;
123 fallthrough; 213 fallthrough;
124 case R_HEXAGON_LO16: !! 214 case R_ALPHA_BRADDR:
125 *location &= ~0x00c03f !! 215 value -= (u64)location + 4;
126 *location |= value & 0 !! 216 if (value & 3)
127 *location |= (value & !! 217 goto reloc_overflow;
128 break; !! 218 value = (long)value >> 2;
129 case R_HEXAGON_32: !! 219 if (value + (1<<21) >= 1<<22)
130 *location = value; !! 220 goto reloc_overflow;
131 break; !! 221 value &= 0x1fffff;
132 case R_HEXAGON_32_PCREL: !! 222 value |= *(u32 *)location & ~0x1fffff;
133 *location = value - (u !! 223 *(u32 *)location = value;
134 break; !! 224 break;
135 case R_HEXAGON_PLT_B22_PCREL: !! 225 case R_ALPHA_HINT:
136 case R_HEXAGON_GOTOFF_LO16: !! 226 break;
137 case R_HEXAGON_GOTOFF_HI16: !! 227 case R_ALPHA_SREL32:
138 printk(KERN_ERR "%s: G !! 228 value -= (u64)location;
139 module->name); !! 229 if ((int)value != value)
140 return -ENOEXEC; !! 230 goto reloc_overflow;
>> 231 *(u32 *)location = value;
>> 232 break;
>> 233 case R_ALPHA_SREL64:
>> 234 value -= (u64)location;
>> 235 *(u64 *)location = value;
>> 236 break;
>> 237 case R_ALPHA_GPRELHIGH:
>> 238 value = (long)(value - gp + 0x8000) >> 16;
>> 239 if ((short) value != value)
>> 240 goto reloc_overflow;
>> 241 *(u16 *)location = value;
>> 242 break;
>> 243 case R_ALPHA_GPRELLOW:
>> 244 value -= gp;
>> 245 *(u16 *)location = value;
>> 246 break;
>> 247 case R_ALPHA_GPREL16:
>> 248 value -= gp;
>> 249 if ((short) value != value)
>> 250 goto reloc_overflow;
>> 251 *(u16 *)location = value;
>> 252 break;
141 default: 253 default:
142 printk(KERN_ERR "%s: u !! 254 printk(KERN_ERR "module %s: Unknown relocation: %lu\n",
143 module->name, !! 255 me->name, r_type);
144 ELF32_R_TYPE(re !! 256 return -ENOEXEC;
>> 257 reloc_overflow:
>> 258 if (ELF64_ST_TYPE (sym->st_info) == STT_SECTION)
>> 259 printk(KERN_ERR
>> 260 "module %s: Relocation (type %lu) overflow vs section %d\n",
>> 261 me->name, r_type, sym->st_shndx);
>> 262 else
>> 263 printk(KERN_ERR
>> 264 "module %s: Relocation (type %lu) overflow vs %s\n",
>> 265 me->name, r_type, strtab + sym->st_name);
145 return -ENOEXEC; 266 return -ENOEXEC;
146 } 267 }
147 } 268 }
>> 269
148 return 0; 270 return 0;
149 } 271 }
150 272
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.