daily update
[binutils.git] / bfd / mipsbsd.c
blob85cf0ef21e9a1a992e8c757ade78978f5425e6cf
1 /* BFD backend for MIPS BSD (a.out) binaries.
2 Copyright 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001
3 Free Software Foundation, Inc.
4 Written by Ralph Campbell.
6 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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. */
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 */\
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'
39 /* Do not "beautify" the CONCAT* macro args. Traditional C will not
40 remove whitespace added here, and thus will fail to concatenate
41 the tokens. */
42 #define MY(OP) CONCAT2 (mipsbsd_,OP)
44 #include "bfd.h"
45 #include "sysdep.h"
46 #include "libbfd.h"
47 #include "libaout.h"
49 #define SET_ARCH_MACH(ABFD, EXEC) \
50 MY(set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
51 MY(choose_reloc_size) (ABFD);
52 static void MY(set_arch_mach) PARAMS ((bfd *abfd, unsigned long machtype));
53 static void MY(choose_reloc_size) PARAMS ((bfd *abfd));
55 #define MY_write_object_contents MY(write_object_contents)
56 static boolean MY(write_object_contents) PARAMS ((bfd *abfd));
58 /* We can't use MY(x) here because it leads to a recursive call to CONCAT2
59 when expanded inside JUMP_TABLE. */
60 #define MY_bfd_reloc_type_lookup mipsbsd_reloc_howto_type_lookup
61 #define MY_canonicalize_reloc mipsbsd_canonicalize_reloc
63 #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
64 #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols
65 #define MY_final_link_callback unused
66 #define MY_bfd_final_link _bfd_generic_final_link
68 #define MY_backend_data &MY(backend_data)
69 #define MY_BFD_TARGET
71 #include "aout-target.h"
73 static bfd_reloc_status_type mips_fix_jmp_addr
74 PARAMS ((bfd *, arelent *, struct symbol_cache_entry *, PTR, asection *,
75 bfd *, char **));
76 static reloc_howto_type *MY(reloc_howto_type_lookup)
77 PARAMS ((bfd *, bfd_reloc_code_real_type));
79 long MY(canonicalize_reloc) PARAMS ((bfd *, sec_ptr, arelent **, asymbol **));
81 static void
82 MY(set_arch_mach) (abfd, machtype)
83 bfd *abfd;
84 unsigned long machtype;
86 enum bfd_architecture arch;
87 unsigned int machine;
89 /* Determine the architecture and machine type of the object file. */
90 switch (machtype)
92 case M_MIPS1:
93 arch = bfd_arch_mips;
94 machine = 3000;
95 break;
97 case M_MIPS2:
98 arch = bfd_arch_mips;
99 machine = 4000;
100 break;
102 default:
103 arch = bfd_arch_obscure;
104 machine = 0;
105 break;
108 bfd_set_arch_mach (abfd, arch, machine);
111 /* Determine the size of a relocation entry, based on the architecture */
112 static void
113 MY (choose_reloc_size) (abfd)
114 bfd *abfd;
116 switch (bfd_get_arch (abfd))
118 case bfd_arch_sparc:
119 case bfd_arch_a29k:
120 case bfd_arch_mips:
121 obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
122 break;
123 default:
124 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
125 break;
129 /* Write an object file in BSD a.out format.
130 Section contents have already been written. We write the
131 file header, symbols, and relocation. */
133 static boolean
134 MY (write_object_contents) (abfd)
135 bfd *abfd;
137 struct external_exec exec_bytes;
138 struct internal_exec *execp = exec_hdr (abfd);
140 /* Magic number, maestro, please! */
141 switch (bfd_get_arch (abfd))
143 case bfd_arch_m68k:
144 switch (bfd_get_mach (abfd))
146 case bfd_mach_m68010:
147 N_SET_MACHTYPE (*execp, M_68010);
148 break;
149 default:
150 case bfd_mach_m68020:
151 N_SET_MACHTYPE (*execp, M_68020);
152 break;
154 break;
155 case bfd_arch_sparc:
156 N_SET_MACHTYPE (*execp, M_SPARC);
157 break;
158 case bfd_arch_i386:
159 N_SET_MACHTYPE (*execp, M_386);
160 break;
161 case bfd_arch_a29k:
162 N_SET_MACHTYPE (*execp, M_29K);
163 break;
164 case bfd_arch_mips:
165 switch (bfd_get_mach (abfd))
167 case 4000:
168 case 6000:
169 N_SET_MACHTYPE (*execp, M_MIPS2);
170 break;
171 default:
172 N_SET_MACHTYPE (*execp, M_MIPS1);
173 break;
175 break;
176 default:
177 N_SET_MACHTYPE (*execp, M_UNKNOWN);
180 MY (choose_reloc_size) (abfd);
182 WRITE_HEADERS (abfd, execp);
184 return true;
187 /* MIPS relocation types. */
188 #define MIPS_RELOC_32 0
189 #define MIPS_RELOC_JMP 1
190 #define MIPS_RELOC_WDISP16 2
191 #define MIPS_RELOC_HI16 3
192 #define MIPS_RELOC_HI16_S 4
193 #define MIPS_RELOC_LO16 5
195 /* This is only called when performing a BFD_RELOC_MIPS_JMP relocation.
196 The jump destination address is formed from the upper 4 bits of the
197 "current" program counter concatenated with the jump instruction's
198 26 bit field and two trailing zeros.
199 If the destination address is not in the same segment as the "current"
200 program counter, then we need to signal an error. */
202 static bfd_reloc_status_type
203 mips_fix_jmp_addr (abfd, reloc_entry, symbol, data, input_section, output_bfd,
204 error_message)
205 bfd *abfd ATTRIBUTE_UNUSED;
206 arelent *reloc_entry;
207 struct symbol_cache_entry *symbol;
208 PTR data ATTRIBUTE_UNUSED;
209 asection *input_section;
210 bfd *output_bfd;
211 char **error_message ATTRIBUTE_UNUSED;
213 bfd_vma relocation, pc;
215 /* If this is a partial relocation, just continue. */
216 if (output_bfd != (bfd *)NULL)
217 return bfd_reloc_continue;
219 /* If this is an undefined symbol, return error */
220 if (bfd_is_und_section (symbol->section)
221 && (symbol->flags & BSF_WEAK) == 0)
222 return bfd_reloc_undefined;
224 /* Work out which section the relocation is targetted at and the
225 initial relocation command value. */
226 if (bfd_is_com_section (symbol->section))
227 relocation = 0;
228 else
229 relocation = symbol->value;
231 relocation += symbol->section->output_section->vma;
232 relocation += symbol->section->output_offset;
233 relocation += reloc_entry->addend;
235 pc = input_section->output_section->vma + input_section->output_offset +
236 reloc_entry->address + 4;
238 if ((relocation & 0xF0000000) != (pc & 0xF0000000))
239 return bfd_reloc_overflow;
241 return bfd_reloc_continue;
244 /* This is only called when performing a BFD_RELOC_HI16_S relocation.
245 We need to see if bit 15 is set in the result. If it is, we add
246 0x10000 and continue normally. This will compensate for the sign extension
247 when the low bits are added at run time. */
249 static bfd_reloc_status_type
250 mips_fix_hi16_s PARAMS ((bfd *, arelent *, asymbol *, PTR,
251 asection *, bfd *, char **));
253 static bfd_reloc_status_type
254 mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section,
255 output_bfd, error_message)
256 bfd *abfd ATTRIBUTE_UNUSED;
257 arelent *reloc_entry;
258 asymbol *symbol;
259 PTR data ATTRIBUTE_UNUSED;
260 asection *input_section ATTRIBUTE_UNUSED;
261 bfd *output_bfd;
262 char **error_message ATTRIBUTE_UNUSED;
264 bfd_vma relocation;
266 /* If this is a partial relocation, just continue. */
267 if (output_bfd != (bfd *)NULL)
268 return bfd_reloc_continue;
270 /* If this is an undefined symbol, return error. */
271 if (bfd_is_und_section (symbol->section)
272 && (symbol->flags & BSF_WEAK) == 0)
273 return bfd_reloc_undefined;
275 /* Work out which section the relocation is targetted at and the
276 initial relocation command value. */
277 if (bfd_is_com_section (symbol->section))
278 relocation = 0;
279 else
280 relocation = symbol->value;
282 relocation += symbol->section->output_section->vma;
283 relocation += symbol->section->output_offset;
284 relocation += reloc_entry->addend;
286 if (relocation & 0x8000)
287 reloc_entry->addend += 0x10000;
289 return bfd_reloc_continue;
292 static reloc_howto_type mips_howto_table_ext[] = {
293 {MIPS_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield, 0,
294 "32", false, 0, 0xffffffff, false},
295 {MIPS_RELOC_JMP, 2, 2, 26, false, 0, complain_overflow_dont,
296 mips_fix_jmp_addr,
297 "MIPS_JMP", false, 0, 0x03ffffff, false},
298 {MIPS_RELOC_WDISP16, 2, 2, 16, true, 0, complain_overflow_signed, 0,
299 "WDISP16", false, 0, 0x0000ffff, false},
300 {MIPS_RELOC_HI16, 16, 2, 16, false, 0, complain_overflow_bitfield, 0,
301 "HI16", false, 0, 0x0000ffff, false},
302 {MIPS_RELOC_HI16_S, 16, 2, 16, false, 0, complain_overflow_bitfield,
303 mips_fix_hi16_s,
304 "HI16_S", false, 0, 0x0000ffff, false},
305 {MIPS_RELOC_LO16, 0, 2, 16, false, 0, complain_overflow_dont, 0,
306 "LO16", false, 0, 0x0000ffff, false},
309 static reloc_howto_type *
310 MY(reloc_howto_type_lookup) (abfd, code)
311 bfd *abfd;
312 bfd_reloc_code_real_type code;
315 if (bfd_get_arch (abfd) != bfd_arch_mips)
316 return 0;
318 switch (code)
320 case BFD_RELOC_CTOR:
321 case BFD_RELOC_32:
322 return (&mips_howto_table_ext[MIPS_RELOC_32]);
323 case BFD_RELOC_MIPS_JMP:
324 return (&mips_howto_table_ext[MIPS_RELOC_JMP]);
325 case BFD_RELOC_16_PCREL_S2:
326 return (&mips_howto_table_ext[MIPS_RELOC_WDISP16]);
327 case BFD_RELOC_HI16:
328 return (&mips_howto_table_ext[MIPS_RELOC_HI16]);
329 case BFD_RELOC_HI16_S:
330 return (&mips_howto_table_ext[MIPS_RELOC_HI16_S]);
331 case BFD_RELOC_LO16:
332 return (&mips_howto_table_ext[MIPS_RELOC_LO16]);
333 default:
334 return 0;
338 /* This is just like the standard aoutx.h version but we need to do our
339 own mapping of external reloc type values to howto entries. */
340 long
341 MY(canonicalize_reloc) (abfd, section, relptr, symbols)
342 bfd *abfd;
343 sec_ptr section;
344 arelent **relptr;
345 asymbol **symbols;
347 arelent *tblptr = section->relocation;
348 unsigned int count, c;
349 extern reloc_howto_type NAME(aout,ext_howto_table)[];
351 /* If we have already read in the relocation table, return the values. */
352 if (section->flags & SEC_CONSTRUCTOR)
354 arelent_chain *chain = section->constructor_chain;
356 for (count = 0; count < section->reloc_count; count++)
358 *relptr++ = &chain->relent;
359 chain = chain->next;
361 *relptr = 0;
362 return section->reloc_count;
365 if (tblptr && section->reloc_count)
367 for (count = 0; count++ < section->reloc_count;)
368 *relptr++ = tblptr++;
369 *relptr = 0;
370 return section->reloc_count;
373 if (!NAME(aout,slurp_reloc_table) (abfd, section, symbols))
374 return -1;
375 tblptr = section->relocation;
377 /* fix up howto entries. */
378 for (count = 0; count++ < section->reloc_count;)
380 c = tblptr->howto - NAME(aout,ext_howto_table);
381 tblptr->howto = &mips_howto_table_ext[c];
383 *relptr++ = tblptr++;
385 *relptr = 0;
386 return section->reloc_count;
389 static const struct aout_backend_data MY(backend_data) = {
390 0, /* zmagic contiguous */
391 1, /* text incl header */
392 0, /* entry is text address */
393 0, /* exec_hdr_flags */
394 TARGET_PAGE_SIZE, /* text vma */
395 MY_set_sizes,
396 0, /* text size includes exec header */
397 0, /* add_dynamic_symbols */
398 0, /* add_one_symbol */
399 0, /* link_dynamic_object */
400 0, /* write_dynamic_symbol */
401 0, /* check_dynamic_reloc */
402 0 /* finish_dynamic_link */
405 extern const bfd_target aout_mips_big_vec;
407 const bfd_target aout_mips_little_vec =
409 "a.out-mips-little", /* name */
410 bfd_target_aout_flavour,
411 BFD_ENDIAN_LITTLE, /* target byte order (little) */
412 BFD_ENDIAN_LITTLE, /* target headers byte order (little) */
413 (HAS_RELOC | EXEC_P | /* object flags */
414 HAS_LINENO | HAS_DEBUG |
415 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
416 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
417 MY_symbol_leading_char,
418 ' ', /* ar_pad_char */
419 15, /* ar_max_namelen */
420 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
421 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
422 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
423 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
424 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
425 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
426 {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
427 bfd_generic_archive_p, MY_core_file_p},
428 {bfd_false, MY_mkobject, /* bfd_set_format */
429 _bfd_generic_mkarchive, bfd_false},
430 {bfd_false, MY_write_object_contents, /* bfd_write_contents */
431 _bfd_write_archive_contents, bfd_false},
433 BFD_JUMP_TABLE_GENERIC (MY),
434 BFD_JUMP_TABLE_COPY (MY),
435 BFD_JUMP_TABLE_CORE (MY),
436 BFD_JUMP_TABLE_ARCHIVE (MY),
437 BFD_JUMP_TABLE_SYMBOLS (MY),
438 BFD_JUMP_TABLE_RELOCS (MY),
439 BFD_JUMP_TABLE_WRITE (MY),
440 BFD_JUMP_TABLE_LINK (MY),
441 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
443 & aout_mips_big_vec,
445 (PTR) MY_backend_data
448 const bfd_target aout_mips_big_vec =
450 "a.out-mips-big", /* name */
451 bfd_target_aout_flavour,
452 BFD_ENDIAN_BIG, /* target byte order (big) */
453 BFD_ENDIAN_BIG, /* target headers byte order (big) */
454 (HAS_RELOC | EXEC_P | /* object flags */
455 HAS_LINENO | HAS_DEBUG |
456 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
457 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
458 MY_symbol_leading_char,
459 ' ', /* ar_pad_char */
460 15, /* ar_max_namelen */
461 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
462 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
463 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
464 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
465 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
466 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
467 {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
468 bfd_generic_archive_p, MY_core_file_p},
469 {bfd_false, MY_mkobject, /* bfd_set_format */
470 _bfd_generic_mkarchive, bfd_false},
471 {bfd_false, MY_write_object_contents, /* bfd_write_contents */
472 _bfd_write_archive_contents, bfd_false},
474 BFD_JUMP_TABLE_GENERIC (MY),
475 BFD_JUMP_TABLE_COPY (MY),
476 BFD_JUMP_TABLE_CORE (MY),
477 BFD_JUMP_TABLE_ARCHIVE (MY),
478 BFD_JUMP_TABLE_SYMBOLS (MY),
479 BFD_JUMP_TABLE_RELOCS (MY),
480 BFD_JUMP_TABLE_WRITE (MY),
481 BFD_JUMP_TABLE_LINK (MY),
482 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
484 & aout_mips_little_vec,
486 (PTR) MY_backend_data