1 /* BFD backend for CRIS a.out binaries.
2 Copyright (C) 2000 Free Software Foundation, Inc.
3 Contributed by Axis Communications AB.
4 Written by Hans-Peter Nilsson.
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 /* See info in the file PORTING for documentation of these macros and
23 functions. Beware; some of the information there is outdated. */
25 #define N_HEADER_IN_TEXT(x) 0
26 #define BYTES_IN_WORD 4
27 #define N_TXTOFF(x) 32
28 #define ENTRY_CAN_BE_ZERO
29 #define TEXT_START_ADDR 0
31 /* If you change this to 4, you can not link to an address N*4+2. */
32 #define SEGMENT_SIZE 2
34 /* For some reason, if the a.out file has Z_MAGIC, then
35 adata(abfd).exec_bytes_size is not used, but rather
36 adata(abfd).zmagic_disk_block_size, even though the exec_header is
37 *not* included in the text segment. A simple workaround is to
38 #define ZMAGIC_DISK_BLOCK_SIZE, which is used if defined; otherwise
39 TARGET_PAGE_SIZE is used. */
40 #define ZMAGIC_DISK_BLOCK_SIZE N_TXTOFF (0)
42 /* It seems odd at first to set a page-size this low, but gives greater
43 freedom in where things can be linked. The drawback is that you have
44 to set alignment and padding in linker scripts. */
45 #define TARGET_PAGE_SIZE SEGMENT_SIZE
46 #define TARGETNAME "a.out-cris"
48 /* N_SHARED_LIB gets this reasonable default as of 1999-07-12, but we
49 have to work with 2.9.1. Note that N_SHARED_LIB is used in a
50 SUN-specific context, not applicable to CRIS. */
51 #define N_SHARED_LIB(x) 0
53 /* The definition here seems not used; just provided as a convention. */
54 #define DEFAULT_ARCH bfd_arch_cris
56 /* ??? Spacing might be essential for the parameters in this macro.
58 #define MY(OP) CAT (cris_aout_,OP)
59 #define NAME(x,y) CAT3(cris_aout,_32_,y)
63 /* Version 1 of the header. */
64 #define MY_exec_hdr_flags 1
66 #define MY_write_object_contents MY(write_object_contents)
67 static boolean
MY(write_object_contents
) PARAMS ((bfd
*));
69 /* Forward this, so we can use a pointer to it in PARAMS. */
70 struct reloc_ext_external
;
72 #define MY_swap_ext_reloc_out MY(swap_ext_reloc_out)
73 static void MY(swap_ext_reloc_out
) PARAMS ((bfd
*, arelent
*,
74 struct reloc_ext_external
*));
76 #define MY_swap_ext_reloc_in MY(swap_ext_reloc_in)
77 static void MY(swap_ext_reloc_in
) PARAMS ((bfd
*, struct
79 arelent
*, asymbol
**,
82 #define MY_set_sizes MY(set_sizes)
83 static boolean
MY(set_sizes
) PARAMS ((bfd
*));
85 /* To set back reloc_size to ext, we make MY(set_sizes) be called
86 through this construct. Note that MY_set_arch_mach is only called
87 through SET_ARCH_MACH. The default bfd_default_set_arch_mach will
88 not call set_sizes. */
90 #define MY_set_arch_mach NAME (aout, set_arch_mach)
91 #define SET_ARCH_MACH(BFD, EXEC) \
92 MY_set_arch_mach (BFD, DEFAULT_ARCH, N_MACHTYPE (EXEC))
94 /* These macros describe the binary layout of the reloc information we
96 #define RELOC_EXT_BITS_EXTERN_LITTLE 0x80
97 #define RELOC_EXT_BITS_TYPE_LITTLE 3
98 #define RELOC_EXT_BITS_TYPE_SH_LITTLE 0
100 #ifndef MY_get_section_contents
101 #define MY_get_section_contents aout_32_get_section_contents
104 /* Include generic functions (some are overridden above). */
106 #include "aout-target.h"
109 /* We need our own version to set header flags. */
112 MY(write_object_contents
) (abfd
)
115 struct external_exec exec_bytes
;
116 struct internal_exec
*execp
= exec_hdr (abfd
);
118 /* We set the reloc type to RELOC_EXT_SIZE, although setting it at all
119 seems unnecessary when inspecting as and ld behavior (not an
120 exhaustive inspection). The default write_object_contents
121 definition sets RELOC_EXT_SIZE, so we follow suite and set it too. */
122 obj_reloc_entry_size (abfd
) = RELOC_EXT_SIZE
;
124 /* Setting N_SET_MACHTYPE and using N_SET_FLAGS is not performed by
125 the default definition. */
126 if (bfd_get_arch(abfd
) == bfd_arch_cris
)
127 N_SET_MACHTYPE(*execp
, M_CRIS
);
129 N_SET_FLAGS (*execp
, aout_backend_info (abfd
)->exec_hdr_flags
);
131 WRITE_HEADERS (abfd
, execp
);
137 /* We need our own for these reasons:
138 - Assert that a normal 8, 16 or 32 reloc is output.
139 - Fix what seems to be a weak-bug (perhaps there for valid reasons). */
142 MY(swap_ext_reloc_out
) (abfd
, g
, natptr
)
145 struct reloc_ext_external
*natptr
;
150 unsigned int r_addend
;
151 asymbol
*sym
= *(g
->sym_ptr_ptr
);
152 asection
*output_section
= sym
->section
->output_section
;
154 PUT_WORD (abfd
, g
->address
, natptr
->r_address
);
156 r_type
= (unsigned int) g
->howto
->type
;
158 r_addend
= g
->addend
;
159 if ((sym
->flags
& BSF_SECTION_SYM
) != 0)
160 r_addend
+= (*(g
->sym_ptr_ptr
))->section
->output_section
->vma
;
162 /* If this relocation is relative to a symbol then set the
163 r_index to the symbols index, and the r_extern bit.
165 Absolute symbols can come in in two ways, either as an offset
166 from the abs section, or as a symbol which has an abs value.
167 check for that here. */
169 if (bfd_is_abs_section (bfd_get_section (sym
)))
174 else if ((sym
->flags
& BSF_SECTION_SYM
) == 0)
176 if (bfd_is_und_section (bfd_get_section (sym
))
177 /* Remember to check for weak symbols; they count as global. */
178 || (sym
->flags
& (BSF_GLOBAL
| BSF_WEAK
)) != 0)
182 r_index
= (*(g
->sym_ptr_ptr
))->KEEPIT
;
186 /* Just an ordinary section. */
188 r_index
= output_section
->target_index
;
191 /* The relocation type is the same as the canonical ones, but only
192 the first 3 are used: RELOC_8, RELOC_16, RELOC_32.
193 We may change this later, but assert this for the moment. */
196 (*_bfd_error_handler
) (_("%s: Invalid relocation type exported: %d"),
197 bfd_get_filename (abfd
), r_type
);
199 bfd_set_error (bfd_error_wrong_format
);
202 /* Now the fun stuff. */
203 natptr
->r_index
[2] = r_index
>> 16;
204 natptr
->r_index
[1] = r_index
>> 8;
205 natptr
->r_index
[0] = r_index
;
207 (r_extern
? RELOC_EXT_BITS_EXTERN_LITTLE
: 0)
208 | (r_type
<< RELOC_EXT_BITS_TYPE_SH_LITTLE
);
210 PUT_WORD (abfd
, r_addend
, natptr
->r_addend
);
214 /* We need our own to assert that a normal 8, 16 or 32 reloc is input. */
217 MY(swap_ext_reloc_in
) (abfd
, bytes
, cache_ptr
, symbols
, symcount
)
219 struct reloc_ext_external
*bytes
;
222 bfd_size_type symcount
;
224 unsigned int r_index
;
227 struct aoutdata
*su
= &(abfd
->tdata
.aout_data
->a
);
229 cache_ptr
->address
= (GET_SWORD (abfd
, bytes
->r_address
));
231 /* Now the fun stuff. */
232 r_index
= (bytes
->r_index
[2] << 16)
233 | (bytes
->r_index
[1] << 8)
235 r_extern
= (0 != (bytes
->r_type
[0] & RELOC_EXT_BITS_EXTERN_LITTLE
));
236 r_type
= ((bytes
->r_type
[0]) >> RELOC_EXT_BITS_TYPE_SH_LITTLE
)
237 & RELOC_EXT_BITS_TYPE_LITTLE
;
241 (*_bfd_error_handler
) (_("%s: Invalid relocation type imported: %d"),
242 bfd_get_filename (abfd
), r_type
);
244 bfd_set_error(bfd_error_wrong_format
);
247 cache_ptr
->howto
= howto_table_ext
+ r_type
;
249 if (r_extern
&& r_index
> symcount
)
251 (*_bfd_error_handler
)
252 (_("%s: Bad relocation record imported: %d"),
253 bfd_get_filename (abfd
), r_index
);
255 bfd_set_error (bfd_error_wrong_format
);
257 /* We continue, so we can catch further errors. */
262 /* Magically uses r_extern, symbols etc. Ugly, but it's what's in the
264 MOVE_ADDRESS (GET_SWORD (abfd
, bytes
->r_addend
));
268 /* We use the same as the default, except that we also set
269 "obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;", to avoid changing
270 NAME (aout, set_arch_mach) in aoutx. */
276 /* Just as the default in aout-target.h (with some #ifdefs folded)... */
278 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
279 adata(abfd
).segment_size
= SEGMENT_SIZE
;
280 adata(abfd
).zmagic_disk_block_size
= ZMAGIC_DISK_BLOCK_SIZE
;
281 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
283 /* ... except for that we have the extended reloc. The alternative
284 would be to add a check on bfd_arch_cris in NAME (aout,
285 set_arch_mach) in aoutx.h, but I don't want to do that since
286 target-specific things should not be added there. */
288 obj_reloc_entry_size (abfd
) = RELOC_EXT_SIZE
;
295 * eval: (c-set-style "gnu")
296 * indent-tabs-mode: t