mips_reloc.c revision 1.28
1 /* $NetBSD: mips_reloc.c,v 1.28 2002/09/13 16:54:14 mycroft Exp $ */ 2 3 /* 4 * Copyright 1997 Michael L. Hitch <mhitch (at) montana.edu> 5 * Portions copyright 2002 Charles M. Hannum. 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. The name of the author may not be used to endorse or promote products 17 * derived from this software without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 20 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 21 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 22 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 23 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 24 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 25 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 26 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 27 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 28 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29 */ 30 31 32 #include <stdarg.h> 33 #include <sys/types.h> 34 #include <sys/stat.h> 35 36 #include "debug.h" 37 #include "rtld.h" 38 39 void _rtld_bind_start(void); 40 void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); 41 caddr_t _rtld_bind_mips(Elf_Word, Elf_Addr, Elf_Addr, Elf_Addr); 42 43 caddr_t 44 _rtld_bind_mips(a0, a1, a2, a3) 45 Elf_Word a0; 46 Elf_Addr a1, a2, a3; 47 { 48 Elf_Addr *u = (Elf_Addr *)(a2 - 0x7ff0); 49 const Obj_Entry *obj = (Obj_Entry *)(u[1] & 0x7fffffff); 50 const Elf_Sym *def; 51 const Obj_Entry *defobj; 52 Elf_Addr new_value; 53 54 def = _rtld_find_symdef(a0, obj, &defobj, true); 55 if (def == NULL) 56 return(NULL); /* XXX */ 57 58 new_value = (Elf_Addr)(defobj->relocbase + def->st_value); 59 rdbg(("bind now/fixup in %s --> new=%p", 60 defobj->strtab + def->st_name, (void *)new_value)); 61 u[obj->local_gotno + a0 - obj->gotsym] = new_value; 62 return ((caddr_t)new_value); 63 } 64 65 void 66 _rtld_setup_pltgot(obj) 67 const Obj_Entry *obj; 68 { 69 obj->pltgot[0] = (Elf_Addr) &_rtld_bind_start; 70 /* XXX only if obj->pltgot[1] & 0x80000000 ?? */ 71 obj->pltgot[1] |= (Elf_Addr) obj; 72 } 73 74 void 75 _rtld_relocate_nonplt_self(dynp, relocbase) 76 Elf_Dyn *dynp; 77 Elf_Addr relocbase; 78 { 79 const Elf_Rel *rel = 0, *rellim; 80 Elf_Addr relsz = 0; 81 Elf_Addr *where; 82 const Elf_Sym *symtab, *sym; 83 Elf_Addr *got; 84 Elf_Word local_gotno, symtabno, gotsym; 85 int i; 86 87 for (; dynp->d_tag != DT_NULL; dynp++) { 88 switch (dynp->d_tag) { 89 case DT_REL: 90 rel = (const Elf_Rel *)(relocbase + dynp->d_un.d_ptr); 91 break; 92 case DT_RELSZ: 93 relsz = dynp->d_un.d_val; 94 break; 95 case DT_SYMTAB: 96 symtab = (const Elf_Sym *)(relocbase + dynp->d_un.d_ptr); 97 break; 98 case DT_PLTGOT: 99 got = (Elf_Addr *)(relocbase + dynp->d_un.d_ptr); 100 break; 101 case DT_MIPS_LOCAL_GOTNO: 102 local_gotno = dynp->d_un.d_val; 103 break; 104 case DT_MIPS_SYMTABNO: 105 symtabno = dynp->d_un.d_val; 106 break; 107 case DT_MIPS_GOTSYM: 108 gotsym = dynp->d_un.d_val; 109 break; 110 } 111 } 112 rellim = (const Elf_Rel *)((caddr_t)rel + relsz); 113 for (; rel < rellim; rel++) { 114 where = (Elf_Addr *)(relocbase + rel->r_offset); 115 116 switch (ELF_R_TYPE(rel->r_info)) { 117 case R_TYPE(NONE): 118 break; 119 120 case R_TYPE(REL32): 121 sym = symtab + ELF_R_SYM(rel->r_info); 122 if (ELF_ST_BIND(sym->st_info) == STB_LOCAL && 123 ELF_ST_TYPE(sym->st_info) == STT_SECTION) 124 *where += (Elf_Addr)(sym->st_value + relocbase); 125 else 126 abort(); 127 break; 128 129 default: 130 abort(); 131 } 132 } 133 134 i = (got[1] & 0x80000000) ? 2 : 1; 135 /* Relocate the local GOT entries */ 136 got += i; 137 for (; i < local_gotno; i++) 138 *got++ += relocbase; 139 sym = symtab + gotsym; 140 /* Now do the global GOT entries */ 141 for (i = gotsym; i < symtabno; i++) { 142 if (ELF_ST_TYPE(sym->st_info) == STT_SECTION && 143 ELF_ST_BIND(sym->st_info) == STB_GLOBAL) { 144 if (sym->st_shndx == SHN_ABS) 145 *got = sym->st_value + relocbase; 146 /* else SGI stuff ignored */ 147 } else 148 *got = sym->st_value + relocbase; 149 ++sym; 150 ++got; 151 } 152 } 153 154 int 155 _rtld_relocate_nonplt_objects(obj, self) 156 const Obj_Entry *obj; 157 bool self; 158 { 159 const Elf_Rel *rel; 160 Elf_Addr *got = obj->pltgot; 161 const Elf_Sym *sym, *def; 162 const Obj_Entry *defobj; 163 int i; 164 165 if (self) 166 return 0; 167 168 for (rel = obj->rel; rel < obj->rellim; rel++) { 169 Elf_Addr *where; 170 unsigned long symnum; 171 172 where = (Elf_Addr *)(obj->relocbase + rel->r_offset); 173 symnum = ELF_R_SYM(rel->r_info); 174 175 switch (ELF_R_TYPE(rel->r_info)) { 176 case R_TYPE(NONE): 177 break; 178 179 case R_TYPE(REL32): 180 /* 32-bit PC-relative reference */ 181 def = obj->symtab + symnum; 182 183 if (ELF_ST_BIND(def->st_info) == STB_LOCAL && 184 (ELF_ST_TYPE(def->st_info) == STT_SECTION || 185 ELF_ST_TYPE(def->st_info) == STT_NOTYPE)) { 186 /* 187 * XXX: ABI DIFFERENCE! 188 * 189 * Old NetBSD binutils would generate shared 190 * libs with section-relative relocations being 191 * already adjusted for the start address of 192 * the section. 193 * 194 * New binutils, OTOH, generate shared libs 195 * with the same relocations being based at 196 * zero, so we need to add in the start address 197 * of the section. 198 * 199 * We assume that all section-relative relocs 200 * with contents less than the start of the 201 * section need to be adjusted; this should 202 * work with both old and new shlibs. 203 * 204 * --rkb, Oct 6, 2001 205 */ 206 if (def->st_info == STT_SECTION && 207 *where < def->st_value) 208 *where += (Elf_Addr)def->st_value; 209 210 *where += (Elf_Addr)obj->relocbase; 211 212 rdbg(("REL32 %s in %s --> %p in %s", 213 obj->strtab + def->st_name, obj->path, 214 (void *)*where, obj->path)); 215 } else { 216 def = _rtld_find_symdef(symnum, obj, &defobj, 217 false); 218 if (def == NULL) 219 return -1; 220 *where += (Elf_Addr)(defobj->relocbase + 221 def->st_value); 222 rdbg(("REL32 %s in %s --> %p in %s", 223 obj->strtab + obj->symtab[symnum].st_name, 224 obj->path, (void *)*where, defobj->path)); 225 } 226 break; 227 228 default: 229 rdbg(("sym = %lu, type = %lu, offset = %p, " 230 "contents = %p, symbol = %s", 231 symnum, (u_long)ELF_R_TYPE(rel->r_info), 232 (void *)rel->r_offset, (void *)*where, 233 obj->strtab + obj->symtab[symnum].st_name)); 234 _rtld_error("%s: Unsupported relocation type %ld " 235 "in non-PLT relocations\n", 236 obj->path, (u_long) ELF_R_TYPE(rel->r_info)); 237 return -1; 238 } 239 } 240 241 i = (got[1] & 0x80000000) ? 2 : 1; 242 /* Relocate the local GOT entries */ 243 got += i; 244 for (; i < obj->local_gotno; i++) 245 *got++ += (Elf_Addr)obj->relocbase; 246 sym = obj->symtab + obj->gotsym; 247 /* Now do the global GOT entries */ 248 for (i = obj->gotsym; i < obj->symtabno; i++) { 249 rdbg((" doing got %d sym %p (%s, %x)", i - obj->gotsym, sym, 250 sym->st_name + obj->strtab, *got)); 251 252 /* if (ELF_ST_TYPE(sym->st_info) == STT_FUNC && 253 ELF_ST_BIND(sym->st_info) != STB_WEAK && 254 sym->st_shndx == SHN_UNDEF) 255 *got = sym->st_value + (Elf_Addr)obj->relocbase; 256 else */ if (sym->st_shndx == SHN_UNDEF || 257 sym->st_shndx == SHN_COMMON) { 258 def = _rtld_find_symdef(i, obj, &defobj, true); 259 if (def == NULL) 260 return -1; 261 *got = def->st_value + (Elf_Addr)defobj->relocbase; 262 } else if (ELF_ST_TYPE(sym->st_info) == STT_FUNC) 263 *got = sym->st_value + (Elf_Addr)obj->relocbase; 264 else if (ELF_ST_TYPE(sym->st_info) == STT_SECTION && 265 ELF_ST_BIND(sym->st_info) == STB_GLOBAL) { 266 if (sym->st_shndx == SHN_ABS) 267 *got = sym->st_value + 268 (Elf_Addr)obj->relocbase; 269 /* else SGI stuff ignored */ 270 } else { 271 def = _rtld_find_symdef(i, obj, &defobj, true); 272 if (def == NULL) 273 return -1; 274 *got = def->st_value + (Elf_Addr)defobj->relocbase; 275 } 276 ++sym; 277 ++got; 278 } 279 280 return 0; 281 } 282 283 int 284 _rtld_relocate_plt_lazy(obj) 285 const Obj_Entry *obj; 286 { 287 return 0; 288 } 289
Indexes created Tue Sep 30 20:09:53 GMT 2025