1/* Kernel module help for sparc64.
2 *
3 * Copyright (C) 2001 Rusty Russell.
4 * Copyright (C) 2002 David S. Miller.
5 */
6
7#include <linux/moduleloader.h>
8#include <linux/kernel.h>
9#include <linux/elf.h>
10#include <linux/vmalloc.h>
11#include <linux/fs.h>
12#include <linux/string.h>
13#include <linux/slab.h>
14#include <linux/vmalloc.h>
15#include <linux/mm.h>
16
17#include <asm/processor.h>
18#include <asm/spitfire.h>
19
20static void *module_map(unsigned long size)
21{
22	struct vm_struct *area;
23
24	size = PAGE_ALIGN(size);
25	if (!size || size > MODULES_LEN)
26		return NULL;
27
28	area = __get_vm_area(size, VM_ALLOC, MODULES_VADDR, MODULES_END);
29	if (!area)
30		return NULL;
31
32	return __vmalloc_area(area, GFP_KERNEL, PAGE_KERNEL);
33}
34
35void *module_alloc(unsigned long size)
36{
37	void *ret;
38
39	/* We handle the zero case fine, unlike vmalloc */
40	if (size == 0)
41		return NULL;
42
43	ret = module_map(size);
44	if (!ret)
45		ret = ERR_PTR(-ENOMEM);
46	else
47		memset(ret, 0, size);
48
49	return ret;
50}
51
52/* Free memory returned from module_core_alloc/module_init_alloc */
53void module_free(struct module *mod, void *module_region)
54{
55	vfree(module_region);
56}
57
58/* Make generic code ignore STT_REGISTER dummy undefined symbols.  */
59int module_frob_arch_sections(Elf_Ehdr *hdr,
60			      Elf_Shdr *sechdrs,
61			      char *secstrings,
62			      struct module *mod)
63{
64	unsigned int symidx;
65	Elf64_Sym *sym;
66	const char *strtab;
67	int i;
68
69	for (symidx = 0; sechdrs[symidx].sh_type != SHT_SYMTAB; symidx++) {
70		if (symidx == hdr->e_shnum-1) {
71			printk("%s: no symtab found.\n", mod->name);
72			return -ENOEXEC;
73		}
74	}
75	sym = (Elf64_Sym *)sechdrs[symidx].sh_addr;
76	strtab = (char *)sechdrs[sechdrs[symidx].sh_link].sh_addr;
77
78	for (i = 1; i < sechdrs[symidx].sh_size / sizeof(Elf_Sym); i++) {
79		if (sym[i].st_shndx == SHN_UNDEF &&
80		    ELF64_ST_TYPE(sym[i].st_info) == STT_REGISTER)
81			sym[i].st_shndx = SHN_ABS;
82	}
83	return 0;
84}
85
86int apply_relocate(Elf64_Shdr *sechdrs,
87		   const char *strtab,
88		   unsigned int symindex,
89		   unsigned int relsec,
90		   struct module *me)
91{
92	printk(KERN_ERR "module %s: non-ADD RELOCATION unsupported\n",
93	       me->name);
94	return -ENOEXEC;
95}
96
97int apply_relocate_add(Elf64_Shdr *sechdrs,
98		       const char *strtab,
99		       unsigned int symindex,
100		       unsigned int relsec,
101		       struct module *me)
102{
103	unsigned int i;
104	Elf64_Rela *rel = (void *)sechdrs[relsec].sh_addr;
105	Elf64_Sym *sym;
106	u8 *location;
107	u32 *loc32;
108
109	for (i = 0; i < sechdrs[relsec].sh_size / sizeof(*rel); i++) {
110		Elf64_Addr v;
111
112		/* This is where to make the change */
113		location = (u8 *)sechdrs[sechdrs[relsec].sh_info].sh_addr
114			+ rel[i].r_offset;
115		loc32 = (u32 *) location;
116
117		BUG_ON(((u64)location >> (u64)32) != (u64)0);
118
119		/* This is the symbol it is referring to.  Note that all
120		   undefined symbols have been resolved.  */
121		sym = (Elf64_Sym *)sechdrs[symindex].sh_addr
122			+ ELF64_R_SYM(rel[i].r_info);
123		v = sym->st_value + rel[i].r_addend;
124
125		switch (ELF64_R_TYPE(rel[i].r_info) & 0xff) {
126		case R_SPARC_64:
127			location[0] = v >> 56;
128			location[1] = v >> 48;
129			location[2] = v >> 40;
130			location[3] = v >> 32;
131			location[4] = v >> 24;
132			location[5] = v >> 16;
133			location[6] = v >>  8;
134			location[7] = v >>  0;
135			break;
136
137		case R_SPARC_32:
138			location[0] = v >> 24;
139			location[1] = v >> 16;
140			location[2] = v >>  8;
141			location[3] = v >>  0;
142			break;
143
144		case R_SPARC_DISP32:
145			v -= (Elf64_Addr) location;
146			*loc32 = v;
147			break;
148
149		case R_SPARC_WDISP30:
150			v -= (Elf64_Addr) location;
151			*loc32 = (*loc32 & ~0x3fffffff) |
152				((v >> 2) & 0x3fffffff);
153			break;
154
155		case R_SPARC_WDISP22:
156			v -= (Elf64_Addr) location;
157			*loc32 = (*loc32 & ~0x3fffff) |
158				((v >> 2) & 0x3fffff);
159			break;
160
161		case R_SPARC_WDISP19:
162			v -= (Elf64_Addr) location;
163			*loc32 = (*loc32 & ~0x7ffff) |
164				((v >> 2) & 0x7ffff);
165			break;
166
167		case R_SPARC_LO10:
168			*loc32 = (*loc32 & ~0x3ff) | (v & 0x3ff);
169			break;
170
171		case R_SPARC_HI22:
172			*loc32 = (*loc32 & ~0x3fffff) |
173				((v >> 10) & 0x3fffff);
174			break;
175
176		case R_SPARC_OLO10:
177			*loc32 = (*loc32 & ~0x1fff) |
178				(((v & 0x3ff) +
179				  (ELF64_R_TYPE(rel[i].r_info) >> 8))
180				 & 0x1fff);
181			break;
182
183		default:
184			printk(KERN_ERR "module %s: Unknown relocation: %x\n",
185			       me->name,
186			       (int) (ELF64_R_TYPE(rel[i].r_info) & 0xff));
187			return -ENOEXEC;
188		};
189	}
190	return 0;
191}
192
193int module_finalize(const Elf_Ehdr *hdr,
194		    const Elf_Shdr *sechdrs,
195		    struct module *me)
196{
197	/* Cheetah's I-cache is fully coherent.  */
198	if (tlb_type == spitfire) {
199		unsigned long va;
200
201		flushw_all();
202		for (va =  0; va < (PAGE_SIZE << 1); va += 32)
203			spitfire_put_icache_tag(va, 0x0);
204		__asm__ __volatile__("flush %g6");
205	}
206
207	return 0;
208}
209
210void module_arch_cleanup(struct module *mod)
211{
212}
213