xref: /openbmc/linux/arch/hexagon/kernel/module.c (revision a44e4f3a)
1 // SPDX-License-Identifier: GPL-2.0-only
2 /*
3  * Kernel module loader for Hexagon
4  *
5  * Copyright (c) 2010-2011, The Linux Foundation. All rights reserved.
6  */
7 
8 #include <asm/module.h>
9 #include <linux/elf.h>
10 #include <linux/module.h>
11 #include <linux/moduleloader.h>
12 #include <linux/vmalloc.h>
13 
14 #if 0
15 #define DEBUGP printk
16 #else
17 #define DEBUGP(fmt , ...)
18 #endif
19 
20 /*
21  * module_frob_arch_sections - tweak got/plt sections.
22  * @hdr - pointer to elf header
23  * @sechdrs - pointer to elf load section headers
24  * @secstrings - symbol names
25  * @mod - pointer to module
26  */
27 int module_frob_arch_sections(Elf_Ehdr *hdr, Elf_Shdr *sechdrs,
28 				char *secstrings,
29 				struct module *mod)
30 {
31 	unsigned int i;
32 	int found = 0;
33 
34 	/* Look for .plt and/or .got.plt and/or .init.plt sections */
35 	for (i = 0; i < hdr->e_shnum; i++) {
36 		DEBUGP("Section %d is %s\n", i,
37 		       secstrings + sechdrs[i].sh_name);
38 		if (strcmp(secstrings + sechdrs[i].sh_name, ".plt") == 0)
39 			found = i+1;
40 		if (strcmp(secstrings + sechdrs[i].sh_name, ".got.plt") == 0)
41 			found = i+1;
42 		if (strcmp(secstrings + sechdrs[i].sh_name, ".rela.plt") == 0)
43 			found = i+1;
44 	}
45 
46 	/* At this time, we don't support modules comiled with -shared */
47 	if (found) {
48 		printk(KERN_WARNING
49 			"Module '%s' contains unexpected .plt/.got sections.\n",
50 			mod->name);
51 		/*  return -ENOEXEC;  */
52 	}
53 
54 	return 0;
55 }
56 
57 /*
58  * apply_relocate_add - perform rela relocations.
59  * @sechdrs - pointer to section headers
60  * @strtab - some sort of start address?
61  * @symindex - symbol index offset or something?
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, const char *strtab,
68 			unsigned int symindex, unsigned int relsec,
69 			struct module *module)
70 {
71 	unsigned int i;
72 	Elf32_Sym *sym;
73 	uint32_t *location;
74 	uint32_t value;
75 	unsigned int nrelocs = sechdrs[relsec].sh_size / sizeof(Elf32_Rela);
76 	Elf32_Rela *rela = (void *)sechdrs[relsec].sh_addr;
77 	Elf32_Word sym_info = sechdrs[relsec].sh_info;
78 	Elf32_Sym *sym_base = (Elf32_Sym *) sechdrs[symindex].sh_addr;
79 	void *loc_base = (void *) sechdrs[sym_info].sh_addr;
80 
81 	DEBUGP("Applying relocations in section %u to section %u base=%p\n",
82 	       relsec, sym_info, loc_base);
83 
84 	for (i = 0; i < nrelocs; i++) {
85 
86 		/* Symbol to relocate */
87 		sym = sym_base + ELF32_R_SYM(rela[i].r_info);
88 
89 		/* Where to make the change */
90 		location = loc_base + rela[i].r_offset;
91 
92 		/* `Everything is relative'. */
93 		value = sym->st_value + rela[i].r_addend;
94 
95 		DEBUGP("%d: value=%08x loc=%p reloc=%d symbol=%s\n",
96 		       i, value, location, ELF32_R_TYPE(rela[i].r_info),
97 		       sym->st_name ?
98 		       &strtab[sym->st_name] : "(anonymous)");
99 
100 		switch (ELF32_R_TYPE(rela[i].r_info)) {
101 		case R_HEXAGON_B22_PCREL: {
102 			int dist = (int)(value - (uint32_t)location);
103 			if ((dist < -0x00800000) ||
104 			    (dist >= 0x00800000)) {
105 				printk(KERN_ERR
106 				       "%s: %s: %08x=%08x-%08x %s\n",
107 				       module->name,
108 				       "R_HEXAGON_B22_PCREL reloc out of range",
109 				       dist, value, (uint32_t)location,
110 				       sym->st_name ?
111 				       &strtab[sym->st_name] : "(anonymous)");
112 				return -ENOEXEC;
113 			}
114 			DEBUGP("B22_PCREL contents: %08X.\n", *location);
115 			*location &= ~0x01ff3fff;
116 			*location |= 0x00003fff & dist;
117 			*location |= 0x01ff0000 & (dist<<2);
118 			DEBUGP("Contents after reloc: %08x\n", *location);
119 			break;
120 		}
121 		case R_HEXAGON_HI16:
122 			value = (value>>16) & 0xffff;
123 			/* fallthrough */
124 		case R_HEXAGON_LO16:
125 			*location &= ~0x00c03fff;
126 			*location |= value & 0x3fff;
127 			*location |= (value & 0xc000) << 8;
128 			break;
129 		case R_HEXAGON_32:
130 			*location = value;
131 			break;
132 		case R_HEXAGON_32_PCREL:
133 			*location = value - (uint32_t)location;
134 			break;
135 		case R_HEXAGON_PLT_B22_PCREL:
136 		case R_HEXAGON_GOTOFF_LO16:
137 		case R_HEXAGON_GOTOFF_HI16:
138 			printk(KERN_ERR "%s: GOT/PLT relocations unsupported\n",
139 			       module->name);
140 			return -ENOEXEC;
141 		default:
142 			printk(KERN_ERR "%s: unknown relocation: %u\n",
143 			       module->name,
144 			       ELF32_R_TYPE(rela[i].r_info));
145 			return -ENOEXEC;
146 		}
147 	}
148 	return 0;
149 }
150