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