This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / bfd / aout-cris.c
1 /* BFD backend for CRIS a.out binaries.
2    Copyright 2000, 2001 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 /* Without reading symbols to get the text start symbol, there is no way
32    to know where the text segment starts in an a.out file.  Defaulting to
33    anything as constant as TEXT_START_ADDR is bad.  But we can guess from
34    the entry point, which is usually within the first 64k of the text
35    segment.  We also assume here that the text segment is 64k-aligned.
36    FIXME: It is also wrong to assume that data and bss follow immediately
37    after text, but with those, we don't have any choice besides reading
38    symbol info, and luckily there's no pressing need for correctness for
39    those vma:s at this time.  */
40 #define N_TXTADDR(x) ((x).a_entry & ~(bfd_vma) 0xffff)
41
42 /* If you change this to 4, you can not link to an address N*4+2.  */
43 #define SEGMENT_SIZE 2
44
45 /* For some reason, if the a.out file has Z_MAGIC, then
46    adata(abfd).exec_bytes_size is not used, but rather
47    adata(abfd).zmagic_disk_block_size, even though the exec_header is
48    *not* included in the text segment.  A simple workaround is to
49    #define ZMAGIC_DISK_BLOCK_SIZE, which is used if defined; otherwise
50    TARGET_PAGE_SIZE is used.  */
51 #define ZMAGIC_DISK_BLOCK_SIZE N_TXTOFF (0)
52
53 /* It seems odd at first to set a page-size this low, but gives greater
54    freedom in where things can be linked.  The drawback is that you have
55    to set alignment and padding in linker scripts.  */
56 #define TARGET_PAGE_SIZE SEGMENT_SIZE
57 #define TARGETNAME "a.out-cris"
58
59 /* N_SHARED_LIB gets this reasonable default as of 1999-07-12, but we
60    have to work with 2.9.1.  Note that N_SHARED_LIB is used in a
61    SUN-specific context, not applicable to CRIS.  */
62 #define N_SHARED_LIB(x) 0
63
64 /* The definition here seems not used; just provided as a convention.  */
65 #define DEFAULT_ARCH bfd_arch_cris
66
67 /* Do not "beautify" the CONCAT* macro args.  Traditional C will not
68    remove whitespace added here, and thus will fail to concatenate
69    the tokens.  */
70 #define MY(OP) CONCAT2 (cris_aout_,OP)
71 #define NAME(x, y) CONCAT3 (cris_aout,_32_,y)
72
73 #include "bfd.h"
74
75 /* Version 1 of the header.  */
76 #define MY_exec_hdr_flags 1
77
78 #define MY_write_object_contents MY(write_object_contents)
79 static boolean MY(write_object_contents) PARAMS ((bfd *));
80
81 /* Forward this, so we can use a pointer to it in PARAMS.  */
82 struct reloc_ext_external;
83
84 #define MY_swap_ext_reloc_out MY(swap_ext_reloc_out)
85 static void MY(swap_ext_reloc_out) PARAMS ((bfd *, arelent *,
86                                             struct reloc_ext_external *));
87
88 #define MY_swap_ext_reloc_in MY(swap_ext_reloc_in)
89 static void MY(swap_ext_reloc_in) PARAMS ((bfd *, struct
90                                            reloc_ext_external *,
91                                            arelent *, asymbol **,
92                                            bfd_size_type));
93
94 #define MY_set_sizes MY(set_sizes)
95 static boolean MY(set_sizes) PARAMS ((bfd *));
96
97 /* To set back reloc_size to ext, we make MY(set_sizes) be called
98    through this construct.  Note that MY_set_arch_mach is only called
99    through SET_ARCH_MACH.  The default bfd_default_set_arch_mach will
100    not call set_sizes.  */
101
102 #define MY_set_arch_mach NAME (aout, set_arch_mach)
103 #define SET_ARCH_MACH(BFD, EXEC) \
104  MY_set_arch_mach (BFD, DEFAULT_ARCH, N_MACHTYPE (EXEC))
105
106 /* These macros describe the binary layout of the reloc information we
107    use in a file.  */
108 #define RELOC_EXT_BITS_EXTERN_LITTLE 0x80
109 #define RELOC_EXT_BITS_TYPE_LITTLE 3
110 #define RELOC_EXT_BITS_TYPE_SH_LITTLE 0
111
112 #ifndef MY_get_section_contents
113 #define MY_get_section_contents aout_32_get_section_contents
114 #endif
115
116 #define MACHTYPE_OK(mtype) ((mtype) == M_CRIS)
117
118 /* Include generic functions (some are overridden above).  */
119 #include "aout32.c"
120 #include "aout-target.h"
121
122 /* We need our own version to set header flags.  */
123
124 static boolean
125 MY(write_object_contents) (abfd)
126      bfd *abfd;
127 {
128   struct external_exec exec_bytes;
129   struct internal_exec *execp = exec_hdr (abfd);
130
131   /* We set the reloc type to RELOC_EXT_SIZE, although setting it at all
132      seems unnecessary when inspecting as and ld behavior (not an
133      exhaustive inspection).  The default write_object_contents
134      definition sets RELOC_EXT_SIZE, so we follow suite and set it too.  */
135   obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
136
137   /* Setting N_SET_MACHTYPE and using N_SET_FLAGS is not performed by
138      the default definition.  */
139   if (bfd_get_arch(abfd) == bfd_arch_cris)
140     N_SET_MACHTYPE(*execp, M_CRIS);
141
142   N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);
143
144   WRITE_HEADERS (abfd, execp);
145
146   return true;
147 }
148
149 /* We need our own for these reasons:
150    - Assert that a normal 8, 16 or 32 reloc is output.
151    - Fix what seems to be a weak-bug (perhaps there for valid reasons).  */
152
153 static void
154 MY(swap_ext_reloc_out) (abfd, g, natptr)
155      bfd *abfd;
156      arelent *g;
157      struct reloc_ext_external *natptr;
158 {
159   int r_index;
160   int r_extern;
161   unsigned int r_type;
162   bfd_vma r_addend;
163   asymbol *sym = *(g->sym_ptr_ptr);
164   asection *output_section = sym->section->output_section;
165
166   PUT_WORD (abfd, g->address, natptr->r_address);
167
168   r_type = (unsigned int) g->howto->type;
169
170   r_addend = g->addend;
171   if ((sym->flags & BSF_SECTION_SYM) != 0)
172     r_addend += (*(g->sym_ptr_ptr))->section->output_section->vma;
173
174   /* If this relocation is relative to a symbol then set the
175      r_index to the symbols index, and the r_extern bit.
176
177      Absolute symbols can come in in two ways, either as an offset
178      from the abs section, or as a symbol which has an abs value.
179      check for that here.  */
180
181   if (bfd_is_abs_section (bfd_get_section (sym)))
182     {
183       r_extern = 0;
184       r_index = N_ABS;
185     }
186   else if ((sym->flags & BSF_SECTION_SYM) == 0)
187     {
188       if (bfd_is_und_section (bfd_get_section (sym))
189           /* Remember to check for weak symbols; they count as global.  */
190           || (sym->flags & (BSF_GLOBAL | BSF_WEAK)) != 0)
191         r_extern = 1;
192       else
193         r_extern = 0;
194       r_index = (*(g->sym_ptr_ptr))->KEEPIT;
195     }
196   else
197     {
198       /* Just an ordinary section.  */
199       r_extern = 0;
200       r_index = output_section->target_index;
201     }
202
203   /* The relocation type is the same as the canonical ones, but only
204      the first 3 are used: RELOC_8, RELOC_16, RELOC_32.
205      We may change this later, but assert this for the moment.  */
206   if (r_type > 2)
207     {
208       (*_bfd_error_handler) (_("%s: Invalid relocation type exported: %d"),
209                              bfd_get_filename (abfd), r_type);
210
211       bfd_set_error (bfd_error_wrong_format);
212     }
213
214   /* Now the fun stuff.  */
215   natptr->r_index[2] = r_index >> 16;
216   natptr->r_index[1] = r_index >> 8;
217   natptr->r_index[0] = r_index;
218   natptr->r_type[0] =
219      (r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0)
220       | (r_type << RELOC_EXT_BITS_TYPE_SH_LITTLE);
221
222   PUT_WORD (abfd, r_addend, natptr->r_addend);
223 }
224
225 /* We need our own to assert that a normal 8, 16 or 32 reloc is input.  */
226
227 static void
228 MY(swap_ext_reloc_in) (abfd, bytes, cache_ptr, symbols, symcount)
229      bfd *abfd;
230      struct reloc_ext_external *bytes;
231      arelent *cache_ptr;
232      asymbol **symbols;
233      bfd_size_type symcount;
234 {
235   unsigned int r_index;
236   int r_extern;
237   unsigned int r_type;
238   struct aoutdata *su = &(abfd->tdata.aout_data->a);
239
240   cache_ptr->address = (GET_SWORD (abfd, bytes->r_address));
241
242   /* Now the fun stuff.  */
243   r_index =  (bytes->r_index[2] << 16)
244     | (bytes->r_index[1] << 8)
245     |  bytes->r_index[0];
246   r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_LITTLE));
247   r_type = ((bytes->r_type[0]) >> RELOC_EXT_BITS_TYPE_SH_LITTLE)
248     & RELOC_EXT_BITS_TYPE_LITTLE;
249
250   if (r_type > 2)
251     {
252       (*_bfd_error_handler) (_("%s: Invalid relocation type imported: %d"),
253                              bfd_archive_filename (abfd), r_type);
254
255       bfd_set_error(bfd_error_wrong_format);
256     }
257
258   cache_ptr->howto =  howto_table_ext + r_type;
259
260   if (r_extern && r_index > symcount)
261     {
262       (*_bfd_error_handler)
263         (_("%s: Bad relocation record imported: %d"),
264          bfd_archive_filename (abfd), r_index);
265
266       bfd_set_error (bfd_error_wrong_format);
267
268       /* We continue, so we can catch further errors.  */
269       r_extern = 0;
270       r_index = N_ABS;
271     }
272
273   /* Magically uses r_extern, symbols etc.  Ugly, but it's what's in the
274      default.  */
275   MOVE_ADDRESS (GET_SWORD (abfd, bytes->r_addend));
276 }
277
278 /* We use the same as the default, except that we also set
279    "obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;", to avoid changing
280    NAME (aout, set_arch_mach) in aoutx.  */
281
282 static boolean
283 MY(set_sizes) (abfd)
284      bfd *abfd;
285 {
286   /* Just as the default in aout-target.h (with some #ifdefs folded)...  */
287
288   adata(abfd).page_size = TARGET_PAGE_SIZE;
289   adata(abfd).segment_size = SEGMENT_SIZE;
290   adata(abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE;
291   adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
292
293   /* ... except for that we have the extended reloc.  The alternative
294      would be to add a check on bfd_arch_cris in NAME (aout,
295      set_arch_mach) in aoutx.h, but I don't want to do that since
296      target-specific things should not be added there.  */
297
298   obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
299
300   return true;
301 }
302
303 /*
304  * Local variables:
305  * eval: (c-set-style "gnu")
306  * indent-tabs-mode: t
307  * End:
308  */