Commit | Line | Data |
---|---|---|
06c15ad7 HPN |
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. | |
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 | /* See info in the file PORTING for documentation of these macros and | |
23 | functions. Beware; some of the information there is outdated. */ | |
24 | ||
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 | |
30 | ||
31 | /* If you change this to 4, you can not link to an address N*4+2. */ | |
32 | #define SEGMENT_SIZE 2 | |
33 | ||
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) | |
41 | ||
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" | |
47 | ||
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 | |
52 | ||
53 | /* The definition here seems not used; just provided as a convention. */ | |
54 | #define DEFAULT_ARCH bfd_arch_cris | |
55 | ||
56 | /* ??? Spacing might be essential for the parameters in this macro. | |
57 | Do Not Change. */ | |
58 | #define MY(OP) CAT (cris_aout_,OP) | |
59 | #define NAME(x,y) CAT3(cris_aout,_32_,y) | |
60 | ||
61 | #include "bfd.h" | |
62 | ||
63 | /* Version 1 of the header. */ | |
64 | #define MY_exec_hdr_flags 1 | |
65 | ||
66 | #define MY_write_object_contents MY(write_object_contents) | |
67 | static boolean MY(write_object_contents) PARAMS ((bfd *)); | |
68 | ||
69 | /* Forward this, so we can use a pointer to it in PARAMS. */ | |
70 | struct reloc_ext_external; | |
71 | ||
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 *)); | |
75 | ||
76 | #define MY_swap_ext_reloc_in MY(swap_ext_reloc_in) | |
77 | static void MY(swap_ext_reloc_in) PARAMS ((bfd *, struct | |
78 | reloc_ext_external *, | |
79 | arelent *, asymbol **, | |
80 | bfd_size_type)); | |
81 | ||
82 | #define MY_set_sizes MY(set_sizes) | |
83 | static boolean MY(set_sizes) PARAMS ((bfd *)); | |
84 | ||
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. */ | |
89 | ||
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)) | |
93 | ||
94 | /* These macros describe the binary layout of the reloc information we | |
95 | use in a file. */ | |
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 | |
99 | ||
100 | #ifndef MY_get_section_contents | |
101 | #define MY_get_section_contents aout_32_get_section_contents | |
102 | #endif | |
103 | ||
104 | /* Include generic functions (some are overridden above). */ | |
105 | #include "aout32.c" | |
106 | #include "aout-target.h" | |
107 | ||
108 | ||
109 | /* We need our own version to set header flags. */ | |
110 | ||
111 | static boolean | |
112 | MY(write_object_contents) (abfd) | |
113 | bfd *abfd; | |
114 | { | |
115 | struct external_exec exec_bytes; | |
116 | struct internal_exec *execp = exec_hdr (abfd); | |
117 | ||
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; | |
123 | ||
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); | |
128 | ||
129 | N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags); | |
130 | ||
131 | WRITE_HEADERS (abfd, execp); | |
132 | ||
133 | return true; | |
134 | } | |
135 | ||
136 | ||
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). */ | |
140 | ||
141 | static void | |
142 | MY(swap_ext_reloc_out) (abfd, g, natptr) | |
143 | bfd *abfd; | |
144 | arelent *g; | |
145 | struct reloc_ext_external *natptr; | |
146 | { | |
147 | int r_index; | |
148 | int r_extern; | |
149 | unsigned int r_type; | |
150 | unsigned int r_addend; | |
151 | asymbol *sym = *(g->sym_ptr_ptr); | |
152 | asection *output_section = sym->section->output_section; | |
153 | ||
154 | PUT_WORD (abfd, g->address, natptr->r_address); | |
155 | ||
156 | r_type = (unsigned int) g->howto->type; | |
157 | ||
158 | r_addend = g->addend; | |
159 | if ((sym->flags & BSF_SECTION_SYM) != 0) | |
160 | r_addend += (*(g->sym_ptr_ptr))->section->output_section->vma; | |
161 | ||
162 | /* If this relocation is relative to a symbol then set the | |
163 | r_index to the symbols index, and the r_extern bit. | |
164 | ||
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. */ | |
168 | ||
169 | if (bfd_is_abs_section (bfd_get_section (sym))) | |
170 | { | |
171 | r_extern = 0; | |
172 | r_index = N_ABS; | |
173 | } | |
174 | else if ((sym->flags & BSF_SECTION_SYM) == 0) | |
175 | { | |
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) | |
179 | r_extern = 1; | |
180 | else | |
181 | r_extern = 0; | |
182 | r_index = (*(g->sym_ptr_ptr))->KEEPIT; | |
183 | } | |
184 | else | |
185 | { | |
186 | /* Just an ordinary section. */ | |
187 | r_extern = 0; | |
188 | r_index = output_section->target_index; | |
189 | } | |
190 | ||
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. */ | |
194 | if (r_type > 2) | |
195 | { | |
196 | (*_bfd_error_handler) (_("%s: Invalid relocation type exported: %d"), | |
197 | bfd_get_filename (abfd), r_type); | |
198 | ||
199 | bfd_set_error (bfd_error_wrong_format); | |
200 | } | |
201 | ||
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; | |
206 | natptr->r_type[0] = | |
207 | (r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0) | |
208 | | (r_type << RELOC_EXT_BITS_TYPE_SH_LITTLE); | |
209 | ||
210 | PUT_WORD (abfd, r_addend, natptr->r_addend); | |
211 | } | |
212 | ||
213 | ||
214 | /* We need our own to assert that a normal 8, 16 or 32 reloc is input. */ | |
215 | ||
216 | static void | |
217 | MY(swap_ext_reloc_in) (abfd, bytes, cache_ptr, symbols, symcount) | |
218 | bfd *abfd; | |
219 | struct reloc_ext_external *bytes; | |
220 | arelent *cache_ptr; | |
221 | asymbol **symbols; | |
222 | bfd_size_type symcount; | |
223 | { | |
224 | unsigned int r_index; | |
225 | int r_extern; | |
226 | unsigned int r_type; | |
227 | struct aoutdata *su = &(abfd->tdata.aout_data->a); | |
228 | ||
229 | cache_ptr->address = (GET_SWORD (abfd, bytes->r_address)); | |
230 | ||
231 | /* Now the fun stuff. */ | |
232 | r_index = (bytes->r_index[2] << 16) | |
233 | | (bytes->r_index[1] << 8) | |
234 | | bytes->r_index[0]; | |
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; | |
238 | ||
239 | if (r_type > 2) | |
240 | { | |
241 | (*_bfd_error_handler) (_("%s: Invalid relocation type imported: %d"), | |
242 | bfd_get_filename (abfd), r_type); | |
243 | ||
244 | bfd_set_error(bfd_error_wrong_format); | |
245 | } | |
246 | ||
247 | cache_ptr->howto = howto_table_ext + r_type; | |
248 | ||
249 | if (r_extern && r_index > symcount) | |
250 | { | |
251 | (*_bfd_error_handler) | |
252 | (_("%s: Bad relocation record imported: %d"), | |
253 | bfd_get_filename (abfd), r_index); | |
254 | ||
255 | bfd_set_error (bfd_error_wrong_format); | |
256 | ||
257 | /* We continue, so we can catch further errors. */ | |
258 | r_extern = 0; | |
259 | r_index = N_ABS; | |
260 | } | |
261 | ||
262 | /* Magically uses r_extern, symbols etc. Ugly, but it's what's in the | |
263 | default. */ | |
264 | MOVE_ADDRESS (GET_SWORD (abfd, bytes->r_addend)); | |
265 | } | |
266 | ||
267 | ||
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. */ | |
271 | ||
272 | static boolean | |
273 | MY(set_sizes) (abfd) | |
274 | bfd *abfd; | |
275 | { | |
276 | /* Just as the default in aout-target.h (with some #ifdefs folded)... */ | |
277 | ||
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; | |
282 | ||
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. */ | |
287 | ||
288 | obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; | |
289 | ||
290 | return true; | |
291 | } | |
292 | ||
293 | /* | |
294 | * Local variables: | |
295 | * eval: (c-set-style "gnu") | |
296 | * indent-tabs-mode: t | |
297 | * End: | |
298 | */ |