Commit | Line | Data |
---|---|---|
252b5132 | 1 | /* BFD backend for MIPS BSD (a.out) binaries. |
7898deda NC |
2 | Copyright 1993, 1994, 1995, 1997, 1998, 1999, 2000 |
3 | Free Software Foundation, Inc. | |
252b5132 RH |
4 | Written by Ralph Campbell. |
5 | ||
6 | This file is part of BFD, the Binary File Descriptor library. | |
7 | ||
8 | This program is free software; you can redistribute it and/or modify | |
9 | it under the terms of the GNU General Public License as published by | |
10 | the Free Software Foundation; either version 2 of the License, or | |
11 | (at your option) any later version. | |
12 | ||
13 | This program is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
19 | along with this program; if not, write to the Free Software | |
20 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
21 | ||
22 | #define BYTES_IN_WORD 4 | |
23 | /* #define ENTRY_CAN_BE_ZERO */ | |
24 | #define N_HEADER_IN_TEXT(x) 1 | |
25 | #define N_SHARED_LIB(x) 0 | |
26 | #define N_TXTADDR(x) \ | |
27 | (N_MAGIC(x) != ZMAGIC ? (x).a_entry : /* object file or NMAGIC */\ | |
28 | TEXT_START_ADDR + EXEC_BYTES_SIZE /* no padding */\ | |
29 | ) | |
30 | #define N_DATADDR(x) (N_TXTADDR(x)+N_TXTSIZE(x)) | |
31 | #define TEXT_START_ADDR 4096 | |
32 | #define TARGET_PAGE_SIZE 4096 | |
33 | #define SEGMENT_SIZE TARGET_PAGE_SIZE | |
34 | #define DEFAULT_ARCH bfd_arch_mips | |
35 | #define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \ | |
36 | || (mtype) == M_MIPS1 || (mtype) == M_MIPS2) | |
37 | #define MY_symbol_leading_char '\0' | |
38 | ||
39 | #define MY(OP) CAT(mipsbsd_,OP) | |
40 | ||
41 | #include "bfd.h" | |
42 | #include "sysdep.h" | |
43 | #include "libbfd.h" | |
44 | #include "libaout.h" | |
45 | ||
46 | #define SET_ARCH_MACH(ABFD, EXEC) \ | |
1518639e KH |
47 | MY(set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \ |
48 | MY(choose_reloc_size) (ABFD); | |
252b5132 RH |
49 | static void MY(set_arch_mach) PARAMS ((bfd *abfd, int machtype)); |
50 | static void MY(choose_reloc_size) PARAMS ((bfd *abfd)); | |
51 | ||
52 | #define MY_write_object_contents MY(write_object_contents) | |
53 | static boolean MY(write_object_contents) PARAMS ((bfd *abfd)); | |
54 | ||
55 | /* We can't use MY(x) here because it leads to a recursive call to CAT | |
56 | when expanded inside JUMP_TABLE. */ | |
57 | #define MY_bfd_reloc_type_lookup mipsbsd_reloc_howto_type_lookup | |
58 | #define MY_canonicalize_reloc mipsbsd_canonicalize_reloc | |
59 | ||
60 | #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create | |
61 | #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols | |
62 | #define MY_final_link_callback unused | |
63 | #define MY_bfd_final_link _bfd_generic_final_link | |
64 | ||
65 | #define MY_backend_data &MY(backend_data) | |
66 | #define MY_BFD_TARGET | |
67 | ||
68 | #include "aout-target.h" | |
69 | ||
70 | static void | |
71 | MY(set_arch_mach) (abfd, machtype) | |
72 | bfd *abfd; | |
73 | int machtype; | |
74 | { | |
75 | enum bfd_architecture arch; | |
76 | long machine; | |
77 | ||
1518639e | 78 | /* Determine the architecture and machine type of the object file. */ |
252b5132 RH |
79 | switch (machtype) { |
80 | ||
81 | case M_MIPS1: | |
82 | arch = bfd_arch_mips; | |
83 | machine = 3000; | |
84 | break; | |
85 | ||
86 | case M_MIPS2: | |
87 | arch = bfd_arch_mips; | |
88 | machine = 4000; | |
89 | break; | |
90 | ||
91 | default: | |
92 | arch = bfd_arch_obscure; | |
93 | machine = 0; | |
94 | break; | |
95 | } | |
1518639e | 96 | bfd_set_arch_mach(abfd, arch, machine); |
252b5132 RH |
97 | } |
98 | ||
99 | /* Determine the size of a relocation entry, based on the architecture */ | |
100 | static void | |
101 | MY(choose_reloc_size) (abfd) | |
102 | bfd *abfd; | |
103 | { | |
104 | switch (bfd_get_arch(abfd)) { | |
105 | case bfd_arch_sparc: | |
106 | case bfd_arch_a29k: | |
107 | case bfd_arch_mips: | |
108 | obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; | |
109 | break; | |
110 | default: | |
111 | obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; | |
112 | break; | |
113 | } | |
114 | } | |
115 | ||
116 | /* Write an object file in BSD a.out format. | |
117 | Section contents have already been written. We write the | |
118 | file header, symbols, and relocation. */ | |
119 | ||
120 | static boolean | |
121 | MY(write_object_contents) (abfd) | |
122 | bfd *abfd; | |
123 | { | |
124 | struct external_exec exec_bytes; | |
125 | struct internal_exec *execp = exec_hdr (abfd); | |
126 | ||
127 | /* Magic number, maestro, please! */ | |
128 | switch (bfd_get_arch(abfd)) { | |
129 | case bfd_arch_m68k: | |
130 | switch (bfd_get_mach(abfd)) { | |
131 | case bfd_mach_m68010: | |
132 | N_SET_MACHTYPE(*execp, M_68010); | |
133 | break; | |
134 | default: | |
135 | case bfd_mach_m68020: | |
136 | N_SET_MACHTYPE(*execp, M_68020); | |
137 | break; | |
138 | } | |
139 | break; | |
140 | case bfd_arch_sparc: | |
141 | N_SET_MACHTYPE(*execp, M_SPARC); | |
142 | break; | |
143 | case bfd_arch_i386: | |
144 | N_SET_MACHTYPE(*execp, M_386); | |
145 | break; | |
146 | case bfd_arch_a29k: | |
147 | N_SET_MACHTYPE(*execp, M_29K); | |
148 | break; | |
149 | case bfd_arch_mips: | |
150 | switch (bfd_get_mach(abfd)) { | |
151 | case 4000: | |
152 | case 6000: | |
153 | N_SET_MACHTYPE(*execp, M_MIPS2); | |
154 | break; | |
155 | default: | |
156 | N_SET_MACHTYPE(*execp, M_MIPS1); | |
157 | break; | |
158 | } | |
159 | break; | |
160 | default: | |
161 | N_SET_MACHTYPE(*execp, M_UNKNOWN); | |
162 | } | |
163 | ||
1518639e | 164 | MY(choose_reloc_size) (abfd); |
252b5132 RH |
165 | |
166 | WRITE_HEADERS(abfd, execp); | |
167 | ||
168 | return true; | |
169 | } | |
170 | ||
171 | /* | |
172 | * MIPS relocation types. | |
173 | */ | |
174 | #define MIPS_RELOC_32 0 | |
175 | #define MIPS_RELOC_JMP 1 | |
176 | #define MIPS_RELOC_WDISP16 2 | |
177 | #define MIPS_RELOC_HI16 3 | |
178 | #define MIPS_RELOC_HI16_S 4 | |
179 | #define MIPS_RELOC_LO16 5 | |
180 | ||
181 | /* | |
182 | * This is only called when performing a BFD_RELOC_MIPS_JMP relocation. | |
183 | * The jump destination address is formed from the upper 4 bits of the | |
184 | * "current" program counter concatenated with the jump instruction's | |
185 | * 26 bit field and two trailing zeros. | |
186 | * If the destination address is not in the same segment as the "current" | |
187 | * program counter, then we need to signal an error. | |
188 | */ | |
189 | static bfd_reloc_status_type | |
190 | mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd) | |
5f771d47 | 191 | bfd *abfd ATTRIBUTE_UNUSED; |
252b5132 RH |
192 | arelent *reloc_entry; |
193 | struct symbol_cache_entry *symbol; | |
5f771d47 | 194 | PTR data ATTRIBUTE_UNUSED; |
252b5132 RH |
195 | asection *input_section; |
196 | bfd *output_bfd; | |
197 | { | |
198 | bfd_vma relocation, pc; | |
1518639e KH |
199 | |
200 | /* If this is a partial relocation, just continue. */ | |
252b5132 RH |
201 | if (output_bfd != (bfd *)NULL) |
202 | return bfd_reloc_continue; | |
203 | ||
204 | /* If this is an undefined symbol, return error */ | |
205 | if (bfd_is_und_section (symbol->section) | |
206 | && (symbol->flags & BSF_WEAK) == 0) | |
207 | return bfd_reloc_undefined; | |
208 | ||
1518639e | 209 | /* |
252b5132 RH |
210 | * Work out which section the relocation is targetted at and the |
211 | * initial relocation command value. | |
212 | */ | |
213 | if (bfd_is_com_section (symbol->section)) | |
214 | relocation = 0; | |
215 | else | |
216 | relocation = symbol->value; | |
217 | ||
218 | relocation += symbol->section->output_section->vma; | |
219 | relocation += symbol->section->output_offset; | |
220 | relocation += reloc_entry->addend; | |
221 | ||
222 | pc = input_section->output_section->vma + input_section->output_offset + | |
223 | reloc_entry->address + 4; | |
224 | ||
225 | if ((relocation & 0xF0000000) != (pc & 0xF0000000)) | |
226 | return bfd_reloc_overflow; | |
227 | ||
228 | return bfd_reloc_continue; | |
229 | } | |
230 | ||
231 | /* | |
232 | * This is only called when performing a BFD_RELOC_HI16_S relocation. | |
233 | * We need to see if bit 15 is set in the result. If it is, we add | |
234 | * 0x10000 and continue normally. This will compensate for the sign extension | |
235 | * when the low bits are added at run time. | |
236 | */ | |
237 | static bfd_reloc_status_type | |
238 | mips_fix_hi16_s PARAMS ((bfd *, arelent *, asymbol *, PTR, | |
239 | asection *, bfd *, char **)); | |
240 | ||
241 | static bfd_reloc_status_type | |
242 | mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section, | |
243 | output_bfd, error_message) | |
5f771d47 | 244 | bfd *abfd ATTRIBUTE_UNUSED; |
252b5132 RH |
245 | arelent *reloc_entry; |
246 | asymbol *symbol; | |
5f771d47 ILT |
247 | PTR data ATTRIBUTE_UNUSED; |
248 | asection *input_section ATTRIBUTE_UNUSED; | |
252b5132 | 249 | bfd *output_bfd; |
5f771d47 | 250 | char **error_message ATTRIBUTE_UNUSED; |
252b5132 RH |
251 | { |
252 | bfd_vma relocation; | |
1518639e KH |
253 | |
254 | /* If this is a partial relocation, just continue. */ | |
252b5132 RH |
255 | if (output_bfd != (bfd *)NULL) |
256 | return bfd_reloc_continue; | |
257 | ||
258 | /* If this is an undefined symbol, return error */ | |
259 | if (bfd_is_und_section (symbol->section) | |
260 | && (symbol->flags & BSF_WEAK) == 0) | |
261 | return bfd_reloc_undefined; | |
262 | ||
1518639e | 263 | /* |
252b5132 RH |
264 | * Work out which section the relocation is targetted at and the |
265 | * initial relocation command value. | |
266 | */ | |
267 | if (bfd_is_com_section (symbol->section)) | |
268 | relocation = 0; | |
269 | else | |
270 | relocation = symbol->value; | |
271 | ||
272 | relocation += symbol->section->output_section->vma; | |
273 | relocation += symbol->section->output_offset; | |
274 | relocation += reloc_entry->addend; | |
275 | ||
276 | if (relocation & 0x8000) | |
277 | reloc_entry->addend += 0x10000; | |
278 | ||
279 | return bfd_reloc_continue; | |
280 | } | |
281 | ||
282 | static reloc_howto_type mips_howto_table_ext[] = { | |
283 | {MIPS_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, | |
284 | "32", false, 0, 0xffffffff, false}, | |
285 | {MIPS_RELOC_JMP, 2, 2, 26, false, 0, complain_overflow_dont, | |
286 | mips_fix_jmp_addr, | |
287 | "MIPS_JMP", false, 0, 0x03ffffff, false}, | |
288 | {MIPS_RELOC_WDISP16, 2, 2, 16, true, 0, complain_overflow_signed, 0, | |
289 | "WDISP16", false, 0, 0x0000ffff, false}, | |
290 | {MIPS_RELOC_HI16, 16, 2, 16, false, 0, complain_overflow_bitfield, 0, | |
291 | "HI16", false, 0, 0x0000ffff, false}, | |
292 | {MIPS_RELOC_HI16_S, 16, 2, 16, false, 0, complain_overflow_bitfield, | |
293 | mips_fix_hi16_s, | |
294 | "HI16_S", false, 0, 0x0000ffff, false}, | |
295 | {MIPS_RELOC_LO16, 0, 2, 16, false, 0, complain_overflow_dont, 0, | |
296 | "LO16", false, 0, 0x0000ffff, false}, | |
297 | }; | |
298 | ||
299 | static reloc_howto_type * | |
300 | MY(reloc_howto_type_lookup) (abfd, code) | |
301 | bfd *abfd; | |
302 | bfd_reloc_code_real_type code; | |
303 | { | |
304 | ||
305 | if (bfd_get_arch (abfd) != bfd_arch_mips) | |
306 | return 0; | |
307 | ||
308 | switch (code) | |
309 | { | |
310 | case BFD_RELOC_CTOR: | |
311 | case BFD_RELOC_32: | |
312 | return (&mips_howto_table_ext[MIPS_RELOC_32]); | |
313 | case BFD_RELOC_MIPS_JMP: | |
314 | return (&mips_howto_table_ext[MIPS_RELOC_JMP]); | |
315 | case BFD_RELOC_16_PCREL_S2: | |
316 | return (&mips_howto_table_ext[MIPS_RELOC_WDISP16]); | |
317 | case BFD_RELOC_HI16: | |
318 | return (&mips_howto_table_ext[MIPS_RELOC_HI16]); | |
319 | case BFD_RELOC_HI16_S: | |
320 | return (&mips_howto_table_ext[MIPS_RELOC_HI16_S]); | |
321 | case BFD_RELOC_LO16: | |
322 | return (&mips_howto_table_ext[MIPS_RELOC_LO16]); | |
323 | default: | |
324 | return 0; | |
325 | } | |
326 | } | |
327 | ||
328 | /* | |
329 | * This is just like the standard aoutx.h version but we need to do our | |
330 | * own mapping of external reloc type values to howto entries. | |
331 | */ | |
332 | long | |
1518639e | 333 | MY(canonicalize_reloc) (abfd, section, relptr, symbols) |
252b5132 RH |
334 | bfd *abfd; |
335 | sec_ptr section; | |
336 | arelent **relptr; | |
337 | asymbol **symbols; | |
338 | { | |
339 | arelent *tblptr = section->relocation; | |
340 | unsigned int count, c; | |
341 | extern reloc_howto_type NAME(aout,ext_howto_table)[]; | |
342 | ||
1518639e | 343 | /* If we have already read in the relocation table, return the values. */ |
252b5132 RH |
344 | if (section->flags & SEC_CONSTRUCTOR) { |
345 | arelent_chain *chain = section->constructor_chain; | |
346 | ||
347 | for (count = 0; count < section->reloc_count; count++) { | |
348 | *relptr++ = &chain->relent; | |
349 | chain = chain->next; | |
350 | } | |
351 | *relptr = 0; | |
352 | return section->reloc_count; | |
353 | } | |
354 | if (tblptr && section->reloc_count) { | |
1518639e | 355 | for (count = 0; count++ < section->reloc_count;) |
252b5132 RH |
356 | *relptr++ = tblptr++; |
357 | *relptr = 0; | |
358 | return section->reloc_count; | |
359 | } | |
360 | ||
1518639e | 361 | if (!NAME(aout,slurp_reloc_table) (abfd, section, symbols)) |
252b5132 RH |
362 | return -1; |
363 | tblptr = section->relocation; | |
364 | ||
365 | /* fix up howto entries */ | |
1518639e | 366 | for (count = 0; count++ < section->reloc_count;) |
252b5132 RH |
367 | { |
368 | c = tblptr->howto - NAME(aout,ext_howto_table); | |
369 | tblptr->howto = &mips_howto_table_ext[c]; | |
370 | ||
371 | *relptr++ = tblptr++; | |
372 | } | |
373 | *relptr = 0; | |
374 | return section->reloc_count; | |
375 | } | |
376 | ||
377 | static CONST struct aout_backend_data MY(backend_data) = { | |
378 | 0, /* zmagic contiguous */ | |
379 | 1, /* text incl header */ | |
380 | 0, /* entry is text address */ | |
381 | 0, /* exec_hdr_flags */ | |
382 | TARGET_PAGE_SIZE, /* text vma */ | |
383 | MY_set_sizes, | |
384 | 0, /* text size includes exec header */ | |
385 | 0, /* add_dynamic_symbols */ | |
386 | 0, /* add_one_symbol */ | |
387 | 0, /* link_dynamic_object */ | |
388 | 0, /* write_dynamic_symbol */ | |
389 | 0, /* check_dynamic_reloc */ | |
390 | 0 /* finish_dynamic_link */ | |
391 | }; | |
392 | ||
c3c89269 NC |
393 | extern const bfd_target aout_mips_big_vec; |
394 | ||
252b5132 RH |
395 | const bfd_target aout_mips_little_vec = |
396 | { | |
397 | "a.out-mips-little", /* name */ | |
398 | bfd_target_aout_flavour, | |
399 | BFD_ENDIAN_LITTLE, /* target byte order (little) */ | |
400 | BFD_ENDIAN_LITTLE, /* target headers byte order (little) */ | |
401 | (HAS_RELOC | EXEC_P | /* object flags */ | |
402 | HAS_LINENO | HAS_DEBUG | | |
403 | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), | |
404 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA), | |
405 | MY_symbol_leading_char, | |
406 | ' ', /* ar_pad_char */ | |
407 | 15, /* ar_max_namelen */ | |
408 | bfd_getl64, bfd_getl_signed_64, bfd_putl64, | |
409 | bfd_getl32, bfd_getl_signed_32, bfd_putl32, | |
410 | bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ | |
411 | bfd_getl64, bfd_getl_signed_64, bfd_putl64, | |
412 | bfd_getl32, bfd_getl_signed_32, bfd_putl32, | |
413 | bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ | |
414 | {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ | |
415 | bfd_generic_archive_p, MY_core_file_p}, | |
416 | {bfd_false, MY_mkobject, /* bfd_set_format */ | |
417 | _bfd_generic_mkarchive, bfd_false}, | |
418 | {bfd_false, MY_write_object_contents, /* bfd_write_contents */ | |
419 | _bfd_write_archive_contents, bfd_false}, | |
420 | ||
421 | BFD_JUMP_TABLE_GENERIC (MY), | |
422 | BFD_JUMP_TABLE_COPY (MY), | |
423 | BFD_JUMP_TABLE_CORE (MY), | |
424 | BFD_JUMP_TABLE_ARCHIVE (MY), | |
425 | BFD_JUMP_TABLE_SYMBOLS (MY), | |
426 | BFD_JUMP_TABLE_RELOCS (MY), | |
427 | BFD_JUMP_TABLE_WRITE (MY), | |
428 | BFD_JUMP_TABLE_LINK (MY), | |
429 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), | |
430 | ||
c3c89269 | 431 | & aout_mips_big_vec, |
1518639e | 432 | |
c3c89269 | 433 | (PTR) MY_backend_data |
252b5132 RH |
434 | }; |
435 | ||
436 | const bfd_target aout_mips_big_vec = | |
437 | { | |
438 | "a.out-mips-big", /* name */ | |
439 | bfd_target_aout_flavour, | |
440 | BFD_ENDIAN_BIG, /* target byte order (big) */ | |
441 | BFD_ENDIAN_BIG, /* target headers byte order (big) */ | |
442 | (HAS_RELOC | EXEC_P | /* object flags */ | |
443 | HAS_LINENO | HAS_DEBUG | | |
444 | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), | |
445 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA), | |
446 | MY_symbol_leading_char, | |
447 | ' ', /* ar_pad_char */ | |
448 | 15, /* ar_max_namelen */ | |
449 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |
450 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |
451 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ | |
452 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |
453 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |
454 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ | |
455 | {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ | |
456 | bfd_generic_archive_p, MY_core_file_p}, | |
457 | {bfd_false, MY_mkobject, /* bfd_set_format */ | |
458 | _bfd_generic_mkarchive, bfd_false}, | |
459 | {bfd_false, MY_write_object_contents, /* bfd_write_contents */ | |
460 | _bfd_write_archive_contents, bfd_false}, | |
461 | ||
462 | BFD_JUMP_TABLE_GENERIC (MY), | |
463 | BFD_JUMP_TABLE_COPY (MY), | |
464 | BFD_JUMP_TABLE_CORE (MY), | |
465 | BFD_JUMP_TABLE_ARCHIVE (MY), | |
466 | BFD_JUMP_TABLE_SYMBOLS (MY), | |
467 | BFD_JUMP_TABLE_RELOCS (MY), | |
468 | BFD_JUMP_TABLE_WRITE (MY), | |
469 | BFD_JUMP_TABLE_LINK (MY), | |
470 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), | |
471 | ||
c3c89269 | 472 | & aout_mips_little_vec, |
1518639e | 473 | |
c3c89269 | 474 | (PTR) MY_backend_data |
252b5132 | 475 | }; |