1 /* BFD back-end for Zilog Z800n COFF binaries.
2 Copyright 1992 Free Software Foundation, Inc.
3 Contributed by Cygnus Support.
4 Written by Steve Chamberlain, <sac@cygnus.com>.
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
27 #include "coff/internal.h"
31 extern bfd_error_vector_type bfd_error_vector
;
34 static bfd_reloc_status_type
35 DEFUN (func_da
, (abfd
, reloc_entry
, symbol
, data
, input_section
, output_bfd
),
37 arelent
* reloc_entry AND
38 struct symbol_cache_entry
*symbol AND
40 asection
* input_section AND
46 static bfd_reloc_status_type
47 DEFUN (func_imm8
, (abfd
, reloc_entry
, symbol
, data
, input_section
, output_bfd
),
49 arelent
* reloc_entry AND
50 struct symbol_cache_entry
*symbol AND
52 asection
* input_section AND
58 static bfd_reloc_status_type
59 DEFUN (func_jr
, (abfd
, reloc_entry
, symbol
, data
, input_section
, output_bfd
),
61 arelent
* reloc_entry AND
62 struct symbol_cache_entry
*symbol AND
64 asection
* input_section AND
70 static reloc_howto_type r_imm32
=
71 HOWTO (R_IMM32
, 0, 1, 32, false, 0, true,
72 true, func_jr
, "r_imm32", true, 0xffffffff, 0xffffffff, false);
74 static reloc_howto_type r_imm4l
=
75 HOWTO (R_IMM4L
, 0, 1, 4, false, 0, true,
76 true, func_jr
, "r_imm4l", true, 0xf, 0xf, false);
78 static reloc_howto_type r_da
=
79 HOWTO (R_DA
, 0, 1, 16, false, 0, true,
80 true, func_da
, "r_da", true, 0x0000ffff, 0x0000ffff, false);
82 static reloc_howto_type r_imm8
=
83 HOWTO (R_IMM8
, 0, 1, 8, false, 0, true,
84 true, func_imm8
, "r_imm8", true, 0x000000ff, 0x000000ff, false);
86 static reloc_howto_type r_jr
=
87 HOWTO (R_JR
, 0, 1, 8, true, 0, true, true, func_jr
, "r_jr", true, 0, 0, true);
89 /* Turn a howto into a reloc number */
92 coff_z8k_select_reloc (howto
)
93 reloc_howto_type
*howto
;
98 #define SELECT_RELOC(x,howto) x= coff_z8k_select_reloc(howto)
101 #define BADMAG(x) Z8KBADMAG(x)
102 #define Z8K 1 /* Customize coffcode.h */
103 #define __A_MAGIC_SET__
107 /* Code to swap in the reloc */
108 #define SWAP_IN_RELOC_OFFSET bfd_h_get_32
109 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32
110 #define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \
111 dst->r_stuff[0] = 'S'; \
112 dst->r_stuff[1] = 'C';
114 /* Code to turn a r_type into a howto ptr, uses the above howto table
118 DEFUN (rtype2howto
, (internal
, dst
),
119 arelent
* internal AND
120 struct internal_reloc
*dst
)
125 printf ("BAD %x\n", dst
->r_type
);
127 internal
->howto
= &r_imm8
;
130 internal
->howto
= &r_da
;
133 internal
->howto
= &r_jr
;
136 internal
->howto
= &r_imm32
;
139 internal
->howto
= &r_imm4l
;
144 #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry)
147 /* Perform any necessaru magic to the addend in a reloc entry */
150 #define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \
151 cache_ptr->addend = ext_reloc.r_offset;
154 #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \
155 reloc_processing(relent, reloc, symbols, abfd, section)
158 DEFUN (reloc_processing
, (relent
, reloc
, symbols
, abfd
, section
),
160 struct internal_reloc
*reloc AND
161 asymbol
** symbols AND
165 relent
->address
= reloc
->r_vaddr
;
166 rtype2howto (relent
, reloc
);
168 if (reloc
->r_symndx
> 0)
170 relent
->sym_ptr_ptr
= symbols
+ obj_convert (abfd
)[reloc
->r_symndx
];
174 relent
->sym_ptr_ptr
= &(bfd_abs_symbol
);
178 relent
->addend
= reloc
->r_offset
;
179 relent
->address
-= section
->vma
;
183 extra_case (in_abfd
, seclet
, reloc
, data
, src_ptr
, dst_ptr
)
185 bfd_seclet_type
*seclet
;
188 unsigned int *src_ptr
;
189 unsigned int *dst_ptr
;
191 switch (reloc
->howto
->type
)
194 bfd_put_8 (in_abfd
, bfd_coff_reloc16_get_value (reloc
, seclet
),
201 bfd_put_32 (in_abfd
, bfd_coff_reloc16_get_value (reloc
, seclet
),
209 (bfd_get_8 (in_abfd
, data
+ *dst_ptr
) & 0xf0)
210 | (0x0f & bfd_coff_reloc16_get_value (reloc
, seclet
)),
217 bfd_put_16 (in_abfd
, bfd_coff_reloc16_get_value (reloc
, seclet
),
225 bfd_vma dst
= bfd_coff_reloc16_get_value (reloc
, seclet
);
226 bfd_vma dot
= seclet
->offset
228 + seclet
->u
.indirect
.section
->output_section
->vma
;
229 int gap
= dst
- dot
- 1;/* -1 since were in the odd byte of the
230 word and the pc's been incremented */
235 if (gap
> 128 || gap
< -128)
237 bfd_error_vector
.reloc_value_truncated (reloc
, seclet
);
239 bfd_put_8 (in_abfd
, gap
, data
+ *dst_ptr
);
249 #define coff_reloc16_extra_cases extra_case
251 #include "coffcode.h"
254 #undef coff_bfd_get_relocated_section_contents
255 #undef coff_bfd_relax_section
256 #define coff_bfd_get_relocated_section_contents bfd_coff_reloc16_get_relocated_section_contents
257 #define coff_bfd_relax_section bfd_coff_reloc16_relax_section
259 bfd_target z8kcoff_vec
=
261 "coff-z8k", /* name */
262 bfd_target_coff_flavour
,
263 true, /* data byte order is big */
264 true, /* header byte order is big */
266 (HAS_RELOC
| EXEC_P
| /* object flags */
267 HAS_LINENO
| HAS_DEBUG
|
268 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
),
270 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
271 '_', /* leading symbol underscore */
272 '/', /* ar_pad_char */
273 15, /* ar_max_namelen */
274 1, /* minimum section alignment */
275 _do_getb64
, _do_putb64
, _do_getb32
, _do_putb32
, _do_getb16
, _do_putb16
, /* data */
276 _do_getb64
, _do_putb64
, _do_getb32
, _do_putb32
, _do_getb16
, _do_putb16
, /* hdrs */
278 {_bfd_dummy_target
, coff_object_p
, /* bfd_check_format */
279 bfd_generic_archive_p
, _bfd_dummy_target
},
280 {bfd_false
, coff_mkobject
, _bfd_generic_mkarchive
, /* bfd_set_format */
282 {bfd_false
, coff_write_object_contents
, /* bfd_write_contents */
283 _bfd_write_archive_contents
, bfd_false
},