1 /* BFD back-end for raw ARM a.out binaries.
2 Copyright (C) 1994, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
3 Contributed by Richard Earnshaw (rwe@pegasus.esprit.ec.org)
5 This file is part of BFD, the Binary File Descriptor library.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21 #define N_TXTADDR(x) \
22 ((N_MAGIC(x) == NMAGIC) ? 0x8000 : \
23 (N_MAGIC(x) != ZMAGIC) ? 0 : \
24 (N_SHARED_LIB(x)) ? ((x).a_entry & ~(TARGET_PAGE_SIZE - 1)) : \
27 #define TEXT_START_ADDR 0x8000
28 #define TARGET_PAGE_SIZE 0x8000
29 #define SEGMENT_SIZE TARGET_PAGE_SIZE
30 #define DEFAULT_ARCH bfd_arch_arm
32 #define MY(OP) CAT(aoutarm_,OP)
33 #define N_BADMAG(x) ((((x).a_info & ~007200) != ZMAGIC) && \
34 (((x).a_info & ~006000) != OMAGIC) && \
35 ((x).a_info != NMAGIC))
36 #define N_MAGIC(x) ((x).a_info & ~07200)
41 #define MYARM(OP) CAT(aoutarm_,OP)
42 reloc_howto_type
*MYARM(bfd_reloc_type_lookup
)
43 PARAMS((bfd
*, bfd_reloc_code_real_type
));
44 static boolean
MYARM(write_object_contents
) PARAMS((bfd
*));
46 /* Avoid multiple defininitions from aoutx if supporting standarad a.out
47 as well as our own. */
48 #define NAME(x,y) CAT3(aoutarm,_32_,y)
50 #define MY_bfd_reloc_type_lookup aoutarm_bfd_reloc_type_lookup
53 #include "aout/aout64.h"
55 static bfd_reloc_status_type
56 MY(fix_pcrel_26_done
) PARAMS ((bfd
*, arelent
*, asymbol
*, PTR
,
57 asection
*, bfd
*, char **));
59 static bfd_reloc_status_type
60 MY(fix_pcrel_26
) PARAMS ((bfd
*, arelent
*, asymbol
*, PTR
,
61 asection
*, bfd
*, char **));
62 static void MY(swap_std_reloc_in
) PARAMS ((bfd
*, struct reloc_std_external
*,
63 arelent
*, asymbol
**,
65 void MY(swap_std_reloc_out
) PARAMS ((bfd
*, arelent
*,
66 struct reloc_std_external
*));
68 reloc_howto_type
MY(howto_table
)[] =
70 /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask
72 HOWTO (0, 0, 0, 8, false, 0, complain_overflow_bitfield
, 0, "8", true,
73 0x000000ff, 0x000000ff, false),
74 HOWTO (1, 0, 1, 16, false, 0, complain_overflow_bitfield
, 0, "16", true,
75 0x0000ffff, 0x0000ffff, false),
76 HOWTO (2, 0, 2, 32, false, 0, complain_overflow_bitfield
, 0, "32", true,
77 0xffffffff, 0xffffffff, false),
78 HOWTO (3, 2, 2, 26, true, 0, complain_overflow_signed
, MY(fix_pcrel_26
),
79 "ARM26", true, 0x00ffffff, 0x00ffffff, true),
80 HOWTO (4, 0, 0, 8, true, 0, complain_overflow_signed
, 0, "DISP8", true,
81 0x000000ff, 0x000000ff, true),
82 HOWTO (5, 0, 1, 16, true, 0, complain_overflow_signed
, 0, "DISP16", true,
83 0x0000ffff, 0x0000ffff, true),
84 HOWTO (6, 0, 2, 32, true, 0, complain_overflow_signed
, 0, "DISP32", true,
85 0xffffffff, 0xffffffff, true),
86 HOWTO (7, 2, 2, 26, false, 0, complain_overflow_signed
,
87 MY(fix_pcrel_26_done
), "ARM26D", true, 0x0, 0x0,
90 HOWTO (9, 0, -1, 16, false, 0, complain_overflow_bitfield
, 0, "NEG16", true,
91 0x0000ffff, 0x0000ffff, false),
92 HOWTO (10, 0, -2, 32, false, 0, complain_overflow_bitfield
, 0, "NEG32", true,
93 0xffffffff, 0xffffffff, false)
96 #define RELOC_ARM_BITS_NEG_BIG ((unsigned int) 0x08)
97 #define RELOC_ARM_BITS_NEG_LITTLE ((unsigned int) 0x10)
100 MY(reloc_howto
) (abfd
, rel
, r_index
, r_extern
, r_pcrel
)
102 struct reloc_std_external
*rel
;
107 unsigned int r_length
;
108 unsigned int r_pcrel_done
;
113 if (bfd_header_big_endian (abfd
))
115 *r_index
= ((rel
->r_index
[0] << 16)
116 | (rel
->r_index
[1] << 8)
118 *r_extern
= (0 != (rel
->r_type
[0] & RELOC_STD_BITS_EXTERN_BIG
));
119 r_pcrel_done
= (0 != (rel
->r_type
[0] & RELOC_STD_BITS_PCREL_BIG
));
120 r_neg
= (0 != (rel
->r_type
[0] & RELOC_ARM_BITS_NEG_BIG
));
121 r_length
= ((rel
->r_type
[0] & RELOC_STD_BITS_LENGTH_BIG
)
122 >> RELOC_STD_BITS_LENGTH_SH_BIG
);
126 *r_index
= ((rel
->r_index
[2] << 16)
127 | (rel
->r_index
[1] << 8)
129 *r_extern
= (0 != (rel
->r_type
[0] & RELOC_STD_BITS_EXTERN_LITTLE
));
130 r_pcrel_done
= (0 != (rel
->r_type
[0] & RELOC_STD_BITS_PCREL_LITTLE
));
131 r_neg
= (0 != (rel
->r_type
[0] & RELOC_ARM_BITS_NEG_LITTLE
));
132 r_length
= ((rel
->r_type
[0] & RELOC_STD_BITS_LENGTH_LITTLE
)
133 >> RELOC_STD_BITS_LENGTH_SH_LITTLE
);
135 index
= r_length
+ 4 * r_pcrel_done
+ 8 * r_neg
;
139 return MY(howto_table
) + index
;
142 #define MY_reloc_howto(BFD, REL, IN, EX, PC) \
143 MY(reloc_howto) (BFD, REL, &IN, &EX, &PC)
146 MY(put_reloc
) (abfd
, r_extern
, r_index
, value
, howto
, reloc
)
151 reloc_howto_type
*howto
;
152 struct reloc_std_external
*reloc
;
154 unsigned int r_length
;
158 PUT_WORD (abfd
, value
, reloc
->r_address
);
159 r_length
= howto
->size
; /* Size as a power of two */
161 /* Special case for branch relocations. */
162 if (howto
->type
== 3 || howto
->type
== 7)
165 r_pcrel
= howto
->type
& 4; /* PC Relative done? */
166 r_neg
= howto
->type
& 8; /* Negative relocation */
167 if (bfd_header_big_endian (abfd
))
169 reloc
->r_index
[0] = r_index
>> 16;
170 reloc
->r_index
[1] = r_index
>> 8;
171 reloc
->r_index
[2] = r_index
;
173 ((r_extern
? RELOC_STD_BITS_EXTERN_BIG
: 0)
174 | (r_pcrel
? RELOC_STD_BITS_PCREL_BIG
: 0)
175 | (r_neg
? RELOC_ARM_BITS_NEG_BIG
: 0)
176 | (r_length
<< RELOC_STD_BITS_LENGTH_SH_BIG
));
180 reloc
->r_index
[2] = r_index
>> 16;
181 reloc
->r_index
[1] = r_index
>> 8;
182 reloc
->r_index
[0] = r_index
;
184 ((r_extern
? RELOC_STD_BITS_EXTERN_LITTLE
: 0)
185 | (r_pcrel
? RELOC_STD_BITS_PCREL_LITTLE
: 0)
186 | (r_neg
? RELOC_ARM_BITS_NEG_LITTLE
: 0)
187 | (r_length
<< RELOC_STD_BITS_LENGTH_SH_LITTLE
));
191 #define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
192 MY(put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)
195 MY(relocatable_reloc
) (howto
, abfd
, reloc
, amount
, r_addr
)
196 reloc_howto_type
*howto
;
198 struct reloc_std_external
*reloc
;
202 if (howto
->type
== 3)
205 & (bfd_header_big_endian (abfd
)
206 ? RELOC_STD_BITS_EXTERN_BIG
: RELOC_STD_BITS_EXTERN_LITTLE
))
208 /* The reloc is still external, so don't modify anything. */
214 /* Change the r_pcrel value -- on the ARM, this bit is set once the
215 relocation is done. */
216 if (bfd_header_big_endian (abfd
))
217 reloc
->r_type
[0] |= RELOC_STD_BITS_PCREL_BIG
;
219 reloc
->r_type
[0] |= RELOC_STD_BITS_PCREL_LITTLE
;
222 else if (howto
->type
== 7)
226 #define MY_relocatable_reloc(HOW, BFD, REL, AMOUNT, ADDR) \
227 MY(relocatable_reloc) (HOW, BFD, REL, &(AMOUNT), ADDR)
229 static bfd_reloc_status_type
230 MY(fix_pcrel_26_done
) (abfd
, reloc_entry
, symbol
, data
, input_section
,
231 output_bfd
, error_message
)
232 bfd
*abfd ATTRIBUTE_UNUSED
;
233 arelent
*reloc_entry ATTRIBUTE_UNUSED
;
234 asymbol
*symbol ATTRIBUTE_UNUSED
;
235 PTR data ATTRIBUTE_UNUSED
;
236 asection
*input_section ATTRIBUTE_UNUSED
;
237 bfd
*output_bfd ATTRIBUTE_UNUSED
;
238 char **error_message ATTRIBUTE_UNUSED
;
240 /* This is dead simple at present. */
244 static bfd_reloc_status_type
245 MY(fix_pcrel_26
) (abfd
, reloc_entry
, symbol
, data
, input_section
,
246 output_bfd
, error_message
)
248 arelent
*reloc_entry
;
251 asection
*input_section
;
253 char **error_message ATTRIBUTE_UNUSED
;
256 bfd_size_type addr
= reloc_entry
->address
;
257 long target
= bfd_get_32 (abfd
, (bfd_byte
*) data
+ addr
);
258 bfd_reloc_status_type flag
= bfd_reloc_ok
;
260 /* If this is an undefined symbol, return error */
261 if (symbol
->section
== &bfd_und_section
262 && (symbol
->flags
& BSF_WEAK
) == 0)
263 return output_bfd
? bfd_reloc_ok
: bfd_reloc_undefined
;
265 /* If the sections are different, and we are doing a partial relocation,
266 just ignore it for now. */
267 if (symbol
->section
->name
!= input_section
->name
268 && output_bfd
!= (bfd
*)NULL
)
271 relocation
= (target
& 0x00ffffff) << 2;
272 relocation
= (relocation
^ 0x02000000) - 0x02000000; /* Sign extend */
273 relocation
+= symbol
->value
;
274 relocation
+= symbol
->section
->output_section
->vma
;
275 relocation
+= symbol
->section
->output_offset
;
276 relocation
+= reloc_entry
->addend
;
277 relocation
-= input_section
->output_section
->vma
;
278 relocation
-= input_section
->output_offset
;
281 return bfd_reloc_overflow
;
283 /* Check for overflow */
284 if (relocation
& 0x02000000)
286 if ((relocation
& ~ (bfd_vma
) 0x03ffffff) != ~ (bfd_vma
) 0x03ffffff)
287 flag
= bfd_reloc_overflow
;
289 else if (relocation
& ~0x03ffffff)
290 flag
= bfd_reloc_overflow
;
292 target
&= ~0x00ffffff;
293 target
|= (relocation
>> 2) & 0x00ffffff;
294 bfd_put_32 (abfd
, target
, (bfd_byte
*) data
+ addr
);
296 /* Now the ARM magic... Change the reloc type so that it is marked as done.
297 Strictly this is only necessary if we are doing a partial relocation. */
298 reloc_entry
->howto
= &MY(howto_table
)[7];
304 MY(bfd_reloc_type_lookup
) (abfd
,code
)
306 bfd_reloc_code_real_type code
;
308 #define ASTD(i,j) case i: return &MY(howto_table)[j]
309 if (code
== BFD_RELOC_CTOR
)
310 switch (bfd_get_arch_info (abfd
)->bits_per_address
)
315 default: return (CONST
struct reloc_howto_struct
*) 0;
320 ASTD (BFD_RELOC_16
, 1);
321 ASTD (BFD_RELOC_32
, 2);
322 ASTD (BFD_RELOC_ARM_PCREL_BRANCH
, 3);
323 ASTD (BFD_RELOC_8_PCREL
, 4);
324 ASTD (BFD_RELOC_16_PCREL
, 5);
325 ASTD (BFD_RELOC_32_PCREL
, 6);
326 default: return (CONST
struct reloc_howto_struct
*) 0;
330 #define MY_swap_std_reloc_in MY(swap_std_reloc_in)
331 #define MY_swap_std_reloc_out MY(swap_std_reloc_out)
332 #define MY_get_section_contents _bfd_generic_get_section_contents
333 /* #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create */
334 /* #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols */
335 /* #define MY_bfd_final_link _bfd_generic_final_link */
340 MY_swap_std_reloc_in (abfd
, bytes
, cache_ptr
, symbols
, symcount
)
342 struct reloc_std_external
*bytes
;
345 bfd_size_type symcount ATTRIBUTE_UNUSED
;
350 struct aoutdata
*su
= &(abfd
->tdata
.aout_data
->a
);
352 cache_ptr
->address
= bfd_h_get_32 (abfd
, bytes
->r_address
);
354 cache_ptr
->howto
= MY_reloc_howto (abfd
, bytes
, r_index
, r_extern
, r_pcrel
);
360 MY_swap_std_reloc_out (abfd
, g
, natptr
)
363 struct reloc_std_external
*natptr
;
366 asymbol
*sym
= *(g
->sym_ptr_ptr
);
370 int r_neg
= 0; /* Negative relocs use the BASEREL bit. */
371 asection
*output_section
= sym
->section
->output_section
;
373 PUT_WORD(abfd
, g
->address
, natptr
->r_address
);
375 r_length
= g
->howto
->size
; /* Size as a power of two */
378 r_length
= -r_length
;
382 r_pcrel
= (int) g
->howto
->pc_relative
; /* Relative to PC? */
384 /* For RISC iX, in pc-relative relocs the r_pcrel bit means that the
385 relocation has been done already (Only for the 26-bit one I think)???!!!
388 if (g
->howto
->type
== 3)
393 else if (g
->howto
->type
== 7)
400 /* For a standard reloc, the addend is in the object file. */
401 r_addend
= g
->addend
+ (*(g
->sym_ptr_ptr
))->section
->output_section
->vma
;
404 /* name was clobbered by aout_write_syms to be symbol index */
406 /* If this relocation is relative to a symbol then set the
407 r_index to the symbols index, and the r_extern bit.
409 Absolute symbols can come in in two ways, either as an offset
410 from the abs section, or as a symbol which has an abs value.
414 if (bfd_is_com_section (output_section
)
415 || output_section
== &bfd_abs_section
416 || output_section
== &bfd_und_section
)
418 if (bfd_abs_section
.symbol
== sym
)
420 /* Whoops, looked like an abs symbol, but is really an offset
421 from the abs section */
429 r_index
= (*(g
->sym_ptr_ptr
))->KEEPIT
;
434 /* Just an ordinary section */
436 r_index
= output_section
->target_index
;
439 /* now the fun stuff */
440 if (bfd_header_big_endian (abfd
))
442 natptr
->r_index
[0] = r_index
>> 16;
443 natptr
->r_index
[1] = r_index
>> 8;
444 natptr
->r_index
[2] = r_index
;
446 ( (r_extern
? RELOC_STD_BITS_EXTERN_BIG
: 0)
447 | (r_pcrel
? RELOC_STD_BITS_PCREL_BIG
: 0)
448 | (r_neg
? RELOC_ARM_BITS_NEG_BIG
: 0)
449 | (r_length
<< RELOC_STD_BITS_LENGTH_SH_BIG
));
453 natptr
->r_index
[2] = r_index
>> 16;
454 natptr
->r_index
[1] = r_index
>> 8;
455 natptr
->r_index
[0] = r_index
;
457 ( (r_extern
? RELOC_STD_BITS_EXTERN_LITTLE
: 0)
458 | (r_pcrel
? RELOC_STD_BITS_PCREL_LITTLE
: 0)
459 | (r_neg
? RELOC_ARM_BITS_NEG_LITTLE
: 0)
460 | (r_length
<< RELOC_STD_BITS_LENGTH_SH_LITTLE
));
464 #define MY_BFD_TARGET
466 #include "aout-target.h"
468 extern const bfd_target aout_arm_big_vec
;
470 const bfd_target aout_arm_little_vec
=
472 "a.out-arm-little", /* name */
473 bfd_target_aout_flavour
,
474 BFD_ENDIAN_LITTLE
, /* target byte order (little) */
475 BFD_ENDIAN_LITTLE
, /* target headers byte order (little) */
476 (HAS_RELOC
| EXEC_P
| /* object flags */
477 HAS_LINENO
| HAS_DEBUG
|
478 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
479 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
),
480 MY_symbol_leading_char
,
481 AR_PAD_CHAR
, /* ar_pad_char */
482 15, /* ar_max_namelen */
483 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
484 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
485 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* data */
486 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
487 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
488 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* hdrs */
489 {_bfd_dummy_target
, MY_object_p
, /* bfd_check_format */
490 bfd_generic_archive_p
, MY_core_file_p
},
491 {bfd_false
, MY_mkobject
, /* bfd_set_format */
492 _bfd_generic_mkarchive
, bfd_false
},
493 {bfd_false
, MY_write_object_contents
, /* bfd_write_contents */
494 _bfd_write_archive_contents
, bfd_false
},
496 BFD_JUMP_TABLE_GENERIC (MY
),
497 BFD_JUMP_TABLE_COPY (MY
),
498 BFD_JUMP_TABLE_CORE (MY
),
499 BFD_JUMP_TABLE_ARCHIVE (MY
),
500 BFD_JUMP_TABLE_SYMBOLS (MY
),
501 BFD_JUMP_TABLE_RELOCS (MY
),
502 BFD_JUMP_TABLE_WRITE (MY
),
503 BFD_JUMP_TABLE_LINK (MY
),
504 BFD_JUMP_TABLE_DYNAMIC (MY
),
508 (PTR
) MY_backend_data
,
511 const bfd_target aout_arm_big_vec
=
513 "a.out-arm-big", /* name */
514 bfd_target_aout_flavour
,
515 BFD_ENDIAN_BIG
, /* target byte order (big) */
516 BFD_ENDIAN_BIG
, /* target headers byte order (big) */
517 (HAS_RELOC
| EXEC_P
| /* object flags */
518 HAS_LINENO
| HAS_DEBUG
|
519 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
520 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
),
521 MY_symbol_leading_char
,
522 AR_PAD_CHAR
, /* ar_pad_char */
523 15, /* ar_max_namelen */
524 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
525 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
526 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
527 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
528 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
529 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
530 {_bfd_dummy_target
, MY_object_p
, /* bfd_check_format */
531 bfd_generic_archive_p
, MY_core_file_p
},
532 {bfd_false
, MY_mkobject
, /* bfd_set_format */
533 _bfd_generic_mkarchive
, bfd_false
},
534 {bfd_false
, MY_write_object_contents
, /* bfd_write_contents */
535 _bfd_write_archive_contents
, bfd_false
},
537 BFD_JUMP_TABLE_GENERIC (MY
),
538 BFD_JUMP_TABLE_COPY (MY
),
539 BFD_JUMP_TABLE_CORE (MY
),
540 BFD_JUMP_TABLE_ARCHIVE (MY
),
541 BFD_JUMP_TABLE_SYMBOLS (MY
),
542 BFD_JUMP_TABLE_RELOCS (MY
),
543 BFD_JUMP_TABLE_WRITE (MY
),
544 BFD_JUMP_TABLE_LINK (MY
),
545 BFD_JUMP_TABLE_DYNAMIC (MY
),
547 & aout_arm_little_vec
,
549 (PTR
) MY_backend_data
,