?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
merge from gcc
[gdb/gnu.git] / bfd / elf32-rx.c
blobaf84e08f0630fcc222f553a43637366049ec0eb5
1 /* Renesas RX specific support for 32-bit ELF.
2 Copyright (C) 2008-2013 Free Software Foundation, Inc.
3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19
20 #include "sysdep.h"
21 #include "bfd.h"
22 #include "bfd_stdint.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/rx.h"
26 #include "libiberty.h"
27
28 #define RX_OPCODE_BIG_ENDIAN 0
29
30 /* This is a meta-target that's used only with objcopy, to avoid the
31 endian-swap we would otherwise get. We check for this in
32 rx_elf_object_p(). */
33 const bfd_target bfd_elf32_rx_be_ns_vec;
34 const bfd_target bfd_elf32_rx_be_vec;
35
36 #ifdef DEBUG
37 char * rx_get_reloc (long);
38 void rx_dump_symtab (bfd *, void *, void *);
39 #endif
40
41 #define RXREL(n,sz,bit,shift,complain,pcrel) \
42 HOWTO (R_RX_##n, shift, sz, bit, pcrel, 0, complain_overflow_ ## complain, \
43 bfd_elf_generic_reloc, "R_RX_" #n, FALSE, 0, ~0, FALSE)
44
45 /* Note that the relocations around 0x7f are internal to this file;
46 feel free to move them as needed to avoid conflicts with published
47 relocation numbers. */
48
49 static reloc_howto_type rx_elf_howto_table [] =
50 {
51 RXREL (NONE, 0, 0, 0, dont, FALSE),
52 RXREL (DIR32, 2, 32, 0, signed, FALSE),
53 RXREL (DIR24S, 2, 24, 0, signed, FALSE),
54 RXREL (DIR16, 1, 16, 0, dont, FALSE),
55 RXREL (DIR16U, 1, 16, 0, unsigned, FALSE),
56 RXREL (DIR16S, 1, 16, 0, signed, FALSE),
57 RXREL (DIR8, 0, 8, 0, dont, FALSE),
58 RXREL (DIR8U, 0, 8, 0, unsigned, FALSE),
59 RXREL (DIR8S, 0, 8, 0, signed, FALSE),
60 RXREL (DIR24S_PCREL, 2, 24, 0, signed, TRUE),
61 RXREL (DIR16S_PCREL, 1, 16, 0, signed, TRUE),
62 RXREL (DIR8S_PCREL, 0, 8, 0, signed, TRUE),
63 RXREL (DIR16UL, 1, 16, 2, unsigned, FALSE),
64 RXREL (DIR16UW, 1, 16, 1, unsigned, FALSE),
65 RXREL (DIR8UL, 0, 8, 2, unsigned, FALSE),
66 RXREL (DIR8UW, 0, 8, 1, unsigned, FALSE),
67 RXREL (DIR32_REV, 1, 16, 0, dont, FALSE),
68 RXREL (DIR16_REV, 1, 16, 0, dont, FALSE),
69 RXREL (DIR3U_PCREL, 0, 3, 0, dont, TRUE),
70
71 EMPTY_HOWTO (0x13),
72 EMPTY_HOWTO (0x14),
73 EMPTY_HOWTO (0x15),
74 EMPTY_HOWTO (0x16),
75 EMPTY_HOWTO (0x17),
76 EMPTY_HOWTO (0x18),
77 EMPTY_HOWTO (0x19),
78 EMPTY_HOWTO (0x1a),
79 EMPTY_HOWTO (0x1b),
80 EMPTY_HOWTO (0x1c),
81 EMPTY_HOWTO (0x1d),
82 EMPTY_HOWTO (0x1e),
83 EMPTY_HOWTO (0x1f),
84
85 RXREL (RH_3_PCREL, 0, 3, 0, signed, TRUE),
86 RXREL (RH_16_OP, 1, 16, 0, signed, FALSE),
87 RXREL (RH_24_OP, 2, 24, 0, signed, FALSE),
88 RXREL (RH_32_OP, 2, 32, 0, signed, FALSE),
89 RXREL (RH_24_UNS, 2, 24, 0, unsigned, FALSE),
90 RXREL (RH_8_NEG, 0, 8, 0, signed, FALSE),
91 RXREL (RH_16_NEG, 1, 16, 0, signed, FALSE),
92 RXREL (RH_24_NEG, 2, 24, 0, signed, FALSE),
93 RXREL (RH_32_NEG, 2, 32, 0, signed, FALSE),
94 RXREL (RH_DIFF, 2, 32, 0, signed, FALSE),
95 RXREL (RH_GPRELB, 1, 16, 0, unsigned, FALSE),
96 RXREL (RH_GPRELW, 1, 16, 0, unsigned, FALSE),
97 RXREL (RH_GPRELL, 1, 16, 0, unsigned, FALSE),
98 RXREL (RH_RELAX, 0, 0, 0, dont, FALSE),
99
100 EMPTY_HOWTO (0x2e),
101 EMPTY_HOWTO (0x2f),
102 EMPTY_HOWTO (0x30),
103 EMPTY_HOWTO (0x31),
104 EMPTY_HOWTO (0x32),
105 EMPTY_HOWTO (0x33),
106 EMPTY_HOWTO (0x34),
107 EMPTY_HOWTO (0x35),
108 EMPTY_HOWTO (0x36),
109 EMPTY_HOWTO (0x37),
110 EMPTY_HOWTO (0x38),
111 EMPTY_HOWTO (0x39),
112 EMPTY_HOWTO (0x3a),
113 EMPTY_HOWTO (0x3b),
114 EMPTY_HOWTO (0x3c),
115 EMPTY_HOWTO (0x3d),
116 EMPTY_HOWTO (0x3e),
117 EMPTY_HOWTO (0x3f),
118 EMPTY_HOWTO (0x40),
119
120 RXREL (ABS32, 2, 32, 0, dont, FALSE),
121 RXREL (ABS24S, 2, 24, 0, signed, FALSE),
122 RXREL (ABS16, 1, 16, 0, dont, FALSE),
123 RXREL (ABS16U, 1, 16, 0, unsigned, FALSE),
124 RXREL (ABS16S, 1, 16, 0, signed, FALSE),
125 RXREL (ABS8, 0, 8, 0, dont, FALSE),
126 RXREL (ABS8U, 0, 8, 0, unsigned, FALSE),
127 RXREL (ABS8S, 0, 8, 0, signed, FALSE),
128 RXREL (ABS24S_PCREL, 2, 24, 0, signed, TRUE),
129 RXREL (ABS16S_PCREL, 1, 16, 0, signed, TRUE),
130 RXREL (ABS8S_PCREL, 0, 8, 0, signed, TRUE),
131 RXREL (ABS16UL, 1, 16, 0, unsigned, FALSE),
132 RXREL (ABS16UW, 1, 16, 0, unsigned, FALSE),
133 RXREL (ABS8UL, 0, 8, 0, unsigned, FALSE),
134 RXREL (ABS8UW, 0, 8, 0, unsigned, FALSE),
135 RXREL (ABS32_REV, 2, 32, 0, dont, FALSE),
136 RXREL (ABS16_REV, 1, 16, 0, dont, FALSE),
137
138 #define STACK_REL_P(x) ((x) <= R_RX_ABS16_REV && (x) >= R_RX_ABS32)
139
140 EMPTY_HOWTO (0x52),
141 EMPTY_HOWTO (0x53),
142 EMPTY_HOWTO (0x54),
143 EMPTY_HOWTO (0x55),
144 EMPTY_HOWTO (0x56),
145 EMPTY_HOWTO (0x57),
146 EMPTY_HOWTO (0x58),
147 EMPTY_HOWTO (0x59),
148 EMPTY_HOWTO (0x5a),
149 EMPTY_HOWTO (0x5b),
150 EMPTY_HOWTO (0x5c),
151 EMPTY_HOWTO (0x5d),
152 EMPTY_HOWTO (0x5e),
153 EMPTY_HOWTO (0x5f),
154 EMPTY_HOWTO (0x60),
155 EMPTY_HOWTO (0x61),
156 EMPTY_HOWTO (0x62),
157 EMPTY_HOWTO (0x63),
158 EMPTY_HOWTO (0x64),
159 EMPTY_HOWTO (0x65),
160 EMPTY_HOWTO (0x66),
161 EMPTY_HOWTO (0x67),
162 EMPTY_HOWTO (0x68),
163 EMPTY_HOWTO (0x69),
164 EMPTY_HOWTO (0x6a),
165 EMPTY_HOWTO (0x6b),
166 EMPTY_HOWTO (0x6c),
167 EMPTY_HOWTO (0x6d),
168 EMPTY_HOWTO (0x6e),
169 EMPTY_HOWTO (0x6f),
170 EMPTY_HOWTO (0x70),
171 EMPTY_HOWTO (0x71),
172 EMPTY_HOWTO (0x72),
173 EMPTY_HOWTO (0x73),
174 EMPTY_HOWTO (0x74),
175 EMPTY_HOWTO (0x75),
176 EMPTY_HOWTO (0x76),
177 EMPTY_HOWTO (0x77),
178
179 /* These are internal. */
180 /* A 5-bit unsigned displacement to a B/W/L address, at bit position 8/12. */
181 /* ---- ---- 4--- 3210. */
182 #define R_RX_RH_ABS5p8B 0x78
183 RXREL (RH_ABS5p8B, 0, 0, 0, dont, FALSE),
184 #define R_RX_RH_ABS5p8W 0x79
185 RXREL (RH_ABS5p8W, 0, 0, 0, dont, FALSE),
186 #define R_RX_RH_ABS5p8L 0x7a
187 RXREL (RH_ABS5p8L, 0, 0, 0, dont, FALSE),
188 /* A 5-bit unsigned displacement to a B/W/L address, at bit position 5/12. */
189 /* ---- -432 1--- 0---. */
190 #define R_RX_RH_ABS5p5B 0x7b
191 RXREL (RH_ABS5p5B, 0, 0, 0, dont, FALSE),
192 #define R_RX_RH_ABS5p5W 0x7c
193 RXREL (RH_ABS5p5W, 0, 0, 0, dont, FALSE),
194 #define R_RX_RH_ABS5p5L 0x7d
195 RXREL (RH_ABS5p5L, 0, 0, 0, dont, FALSE),
196 /* A 4-bit unsigned immediate at bit position 8. */
197 #define R_RX_RH_UIMM4p8 0x7e
198 RXREL (RH_UIMM4p8, 0, 0, 0, dont, FALSE),
199 /* A 4-bit negative unsigned immediate at bit position 8. */
200 #define R_RX_RH_UNEG4p8 0x7f
201 RXREL (RH_UNEG4p8, 0, 0, 0, dont, FALSE),
202 /* End of internal relocs. */
203
204 RXREL (SYM, 2, 32, 0, dont, FALSE),
205 RXREL (OPneg, 2, 32, 0, dont, FALSE),
206 RXREL (OPadd, 2, 32, 0, dont, FALSE),
207 RXREL (OPsub, 2, 32, 0, dont, FALSE),
208 RXREL (OPmul, 2, 32, 0, dont, FALSE),
209 RXREL (OPdiv, 2, 32, 0, dont, FALSE),
210 RXREL (OPshla, 2, 32, 0, dont, FALSE),
211 RXREL (OPshra, 2, 32, 0, dont, FALSE),
212 RXREL (OPsctsize, 2, 32, 0, dont, FALSE),
213 RXREL (OPscttop, 2, 32, 0, dont, FALSE),
214 RXREL (OPand, 2, 32, 0, dont, FALSE),
215 RXREL (OPor, 2, 32, 0, dont, FALSE),
216 RXREL (OPxor, 2, 32, 0, dont, FALSE),
217 RXREL (OPnot, 2, 32, 0, dont, FALSE),
218 RXREL (OPmod, 2, 32, 0, dont, FALSE),
219 RXREL (OPromtop, 2, 32, 0, dont, FALSE),
220 RXREL (OPramtop, 2, 32, 0, dont, FALSE)
221 };
222 \f
223 /* Map BFD reloc types to RX ELF reloc types. */
224
225 struct rx_reloc_map
226 {
227 bfd_reloc_code_real_type bfd_reloc_val;
228 unsigned int rx_reloc_val;
229 };
230
231 static const struct rx_reloc_map rx_reloc_map [] =
232 {
233 { BFD_RELOC_NONE, R_RX_NONE },
234 { BFD_RELOC_8, R_RX_DIR8S },
235 { BFD_RELOC_16, R_RX_DIR16S },
236 { BFD_RELOC_24, R_RX_DIR24S },
237 { BFD_RELOC_32, R_RX_DIR32 },
238 { BFD_RELOC_RX_16_OP, R_RX_DIR16 },
239 { BFD_RELOC_RX_DIR3U_PCREL, R_RX_DIR3U_PCREL },
240 { BFD_RELOC_8_PCREL, R_RX_DIR8S_PCREL },
241 { BFD_RELOC_16_PCREL, R_RX_DIR16S_PCREL },
242 { BFD_RELOC_24_PCREL, R_RX_DIR24S_PCREL },
243 { BFD_RELOC_RX_8U, R_RX_DIR8U },
244 { BFD_RELOC_RX_16U, R_RX_DIR16U },
245 { BFD_RELOC_RX_24U, R_RX_RH_24_UNS },
246 { BFD_RELOC_RX_NEG8, R_RX_RH_8_NEG },
247 { BFD_RELOC_RX_NEG16, R_RX_RH_16_NEG },
248 { BFD_RELOC_RX_NEG24, R_RX_RH_24_NEG },
249 { BFD_RELOC_RX_NEG32, R_RX_RH_32_NEG },
250 { BFD_RELOC_RX_DIFF, R_RX_RH_DIFF },
251 { BFD_RELOC_RX_GPRELB, R_RX_RH_GPRELB },
252 { BFD_RELOC_RX_GPRELW, R_RX_RH_GPRELW },
253 { BFD_RELOC_RX_GPRELL, R_RX_RH_GPRELL },
254 { BFD_RELOC_RX_RELAX, R_RX_RH_RELAX },
255 { BFD_RELOC_RX_SYM, R_RX_SYM },
256 { BFD_RELOC_RX_OP_SUBTRACT, R_RX_OPsub },
257 { BFD_RELOC_RX_OP_NEG, R_RX_OPneg },
258 { BFD_RELOC_RX_ABS8, R_RX_ABS8 },
259 { BFD_RELOC_RX_ABS16, R_RX_ABS16 },
260 { BFD_RELOC_RX_ABS16_REV, R_RX_ABS16_REV },
261 { BFD_RELOC_RX_ABS32, R_RX_ABS32 },
262 { BFD_RELOC_RX_ABS32_REV, R_RX_ABS32_REV },
263 { BFD_RELOC_RX_ABS16UL, R_RX_ABS16UL },
264 { BFD_RELOC_RX_ABS16UW, R_RX_ABS16UW },
265 { BFD_RELOC_RX_ABS16U, R_RX_ABS16U }
266 };
267
268 #define BIGE(abfd) ((abfd)->xvec->byteorder == BFD_ENDIAN_BIG)
269
270 static reloc_howto_type *
271 rx_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
272 bfd_reloc_code_real_type code)
273 {
274 unsigned int i;
275
276 if (code == BFD_RELOC_RX_32_OP)
277 return rx_elf_howto_table + R_RX_DIR32;
278
279 for (i = ARRAY_SIZE (rx_reloc_map); --i;)
280 if (rx_reloc_map [i].bfd_reloc_val == code)
281 return rx_elf_howto_table + rx_reloc_map[i].rx_reloc_val;
282
283 return NULL;
284 }
285
286 static reloc_howto_type *
287 rx_reloc_name_lookup (bfd * abfd ATTRIBUTE_UNUSED, const char * r_name)
288 {
289 unsigned int i;
290
291 for (i = 0; i < ARRAY_SIZE (rx_elf_howto_table); i++)
292 if (rx_elf_howto_table[i].name != NULL
293 && strcasecmp (rx_elf_howto_table[i].name, r_name) == 0)
294 return rx_elf_howto_table + i;
295
296 return NULL;
297 }
298
299 /* Set the howto pointer for an RX ELF reloc. */
300
301 static void
302 rx_info_to_howto_rela (bfd * abfd ATTRIBUTE_UNUSED,
303 arelent * cache_ptr,
304 Elf_Internal_Rela * dst)
305 {
306 unsigned int r_type;
307
308 r_type = ELF32_R_TYPE (dst->r_info);
309 BFD_ASSERT (r_type < (unsigned int) R_RX_max);
310 cache_ptr->howto = rx_elf_howto_table + r_type;
311 }
312 \f
313 static bfd_vma
314 get_symbol_value (const char * name,
315 bfd_reloc_status_type * status,
316 struct bfd_link_info * info,
317 bfd * input_bfd,
318 asection * input_section,
319 int offset)
320 {
321 bfd_vma value = 0;
322 struct bfd_link_hash_entry * h;
323
324 h = bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);
325
326 if (h == NULL
327 || (h->type != bfd_link_hash_defined
328 && h->type != bfd_link_hash_defweak))
329 * status = info->callbacks->undefined_symbol
330 (info, name, input_bfd, input_section, offset, TRUE);
331 else
332 value = (h->u.def.value
333 + h->u.def.section->output_section->vma
334 + h->u.def.section->output_offset);
335
336 return value;
337 }
338
339 static bfd_vma
340 get_gp (bfd_reloc_status_type * status,
341 struct bfd_link_info * info,
342 bfd * abfd,
343 asection * sec,
344 int offset)
345 {
346 static bfd_boolean cached = FALSE;
347 static bfd_vma cached_value = 0;
348
349 if (!cached)
350 {
351 cached_value = get_symbol_value ("__gp", status, info, abfd, sec, offset);
352 cached = TRUE;
353 }
354 return cached_value;
355 }
356
357 static bfd_vma
358 get_romstart (bfd_reloc_status_type * status,
359 struct bfd_link_info * info,
360 bfd * abfd,
361 asection * sec,
362 int offset)
363 {
364 static bfd_boolean cached = FALSE;
365 static bfd_vma cached_value = 0;
366
367 if (!cached)
368 {
369 cached_value = get_symbol_value ("_start", status, info, abfd, sec, offset);
370 cached = TRUE;
371 }
372 return cached_value;
373 }
374
375 static bfd_vma
376 get_ramstart (bfd_reloc_status_type * status,
377 struct bfd_link_info * info,
378 bfd * abfd,
379 asection * sec,
380 int offset)
381 {
382 static bfd_boolean cached = FALSE;
383 static bfd_vma cached_value = 0;
384
385 if (!cached)
386 {
387 cached_value = get_symbol_value ("__datastart", status, info, abfd, sec, offset);
388 cached = TRUE;
389 }
390 return cached_value;
391 }
392
393 #define NUM_STACK_ENTRIES 16
394 static int32_t rx_stack [ NUM_STACK_ENTRIES ];
395 static unsigned int rx_stack_top;
396
397 #define RX_STACK_PUSH(val) \
398 do \
399 { \
400 if (rx_stack_top < NUM_STACK_ENTRIES) \
401 rx_stack [rx_stack_top ++] = (val); \
402 else \
403 r = bfd_reloc_dangerous; \
404 } \
405 while (0)
406
407 #define RX_STACK_POP(dest) \
408 do \
409 { \
410 if (rx_stack_top > 0) \
411 (dest) = rx_stack [-- rx_stack_top]; \
412 else \
413 (dest) = 0, r = bfd_reloc_dangerous; \
414 } \
415 while (0)
416
417 /* Relocate an RX ELF section.
418 There is some attempt to make this function usable for many architectures,
419 both USE_REL and USE_RELA ['twould be nice if such a critter existed],
420 if only to serve as a learning tool.
421
422 The RELOCATE_SECTION function is called by the new ELF backend linker
423 to handle the relocations for a section.
424
425 The relocs are always passed as Rela structures; if the section
426 actually uses Rel structures, the r_addend field will always be
427 zero.
428
429 This function is responsible for adjusting the section contents as
430 necessary, and (if using Rela relocs and generating a relocatable
431 output file) adjusting the reloc addend as necessary.
432
433 This function does not have to worry about setting the reloc
434 address or the reloc symbol index.
435
436 LOCAL_SYMS is a pointer to the swapped in local symbols.
437
438 LOCAL_SECTIONS is an array giving the section in the input file
439 corresponding to the st_shndx field of each local symbol.
440
441 The global hash table entry for the global symbols can be found
442 via elf_sym_hashes (input_bfd).
443
444 When generating relocatable output, this function must handle
445 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
446 going to be the section symbol corresponding to the output
447 section, which means that the addend must be adjusted
448 accordingly. */
449
450 static bfd_boolean
451 rx_elf_relocate_section
452 (bfd * output_bfd,
453 struct bfd_link_info * info,
454 bfd * input_bfd,
455 asection * input_section,
456 bfd_byte * contents,
457 Elf_Internal_Rela * relocs,
458 Elf_Internal_Sym * local_syms,
459 asection ** local_sections)
460 {
461 Elf_Internal_Shdr * symtab_hdr;
462 struct elf_link_hash_entry ** sym_hashes;
463 Elf_Internal_Rela * rel;
464 Elf_Internal_Rela * relend;
465 bfd_boolean pid_mode;
466 bfd_boolean saw_subtract = FALSE;
467
468 if (elf_elfheader (output_bfd)->e_flags & E_FLAG_RX_PID)
469 pid_mode = TRUE;
470 else
471 pid_mode = FALSE;
472
473 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
474 sym_hashes = elf_sym_hashes (input_bfd);
475 relend = relocs + input_section->reloc_count;
476 for (rel = relocs; rel < relend; rel ++)
477 {
478 reloc_howto_type * howto;
479 unsigned long r_symndx;
480 Elf_Internal_Sym * sym;
481 asection * sec;
482 struct elf_link_hash_entry * h;
483 bfd_vma relocation;
484 bfd_reloc_status_type r;
485 const char * name = NULL;
486 bfd_boolean unresolved_reloc = TRUE;
487 int r_type;
488
489 r_type = ELF32_R_TYPE (rel->r_info);
490 r_symndx = ELF32_R_SYM (rel->r_info);
491
492 howto = rx_elf_howto_table + ELF32_R_TYPE (rel->r_info);
493 h = NULL;
494 sym = NULL;
495 sec = NULL;
496 relocation = 0;
497
498 if (rx_stack_top == 0)
499 saw_subtract = FALSE;
500
501 if (r_symndx < symtab_hdr->sh_info)
502 {
503 sym = local_syms + r_symndx;
504 sec = local_sections [r_symndx];
505 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, & sec, rel);
506
507 name = bfd_elf_string_from_elf_section
508 (input_bfd, symtab_hdr->sh_link, sym->st_name);
509 name = (sym->st_name == 0) ? bfd_section_name (input_bfd, sec) : name;
510 }
511 else
512 {
513 bfd_boolean warned;
514
515 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
516 r_symndx, symtab_hdr, sym_hashes, h,
517 sec, relocation, unresolved_reloc,
518 warned);
519
520 name = h->root.root.string;
521 }
522
523 if (sec != NULL && discarded_section (sec))
524 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
525 rel, 1, relend, howto, 0, contents);
526
527 if (info->relocatable)
528 {
529 /* This is a relocatable link. We don't have to change
530 anything, unless the reloc is against a section symbol,
531 in which case we have to adjust according to where the
532 section symbol winds up in the output section. */
533 if (sym != NULL && ELF_ST_TYPE (sym->st_info) == STT_SECTION)
534 rel->r_addend += sec->output_offset;
535 continue;
536 }
537
538 if (h != NULL && h->root.type == bfd_link_hash_undefweak)
539 /* If the symbol is undefined and weak
540 then the relocation resolves to zero. */
541 relocation = 0;
542 else
543 {
544 if (howto->pc_relative)
545 {
546 relocation -= (input_section->output_section->vma
547 + input_section->output_offset
548 + rel->r_offset);
549 if (r_type != R_RX_RH_3_PCREL
550 && r_type != R_RX_DIR3U_PCREL)
551 relocation ++;
552 }
553
554 relocation += rel->r_addend;
555 }
556
557 r = bfd_reloc_ok;
558
559 #define RANGE(a,b) if (a > (long) relocation || (long) relocation > b) r = bfd_reloc_overflow
560 #define ALIGN(m) if (relocation & m) r = bfd_reloc_other;
561 #define OP(i) (contents[rel->r_offset + (i)])
562 #define WARN_REDHAT(type) \
563 _bfd_error_handler (_("%B:%A: Warning: deprecated Red Hat reloc " type " detected against: %s."), \
564 input_bfd, input_section, name)
565
566 /* Check for unsafe relocs in PID mode. These are any relocs where
567 an absolute address is being computed. There are special cases
568 for relocs against symbols that are known to be referenced in
569 crt0.o before the PID base address register has been initialised. */
570 #define UNSAFE_FOR_PID \
571 do \
572 { \
573 if (pid_mode \
574 && sec != NULL \
575 && sec->flags & SEC_READONLY \
576 && !(input_section->flags & SEC_DEBUGGING) \
577 && strcmp (name, "__pid_base") != 0 \
578 && strcmp (name, "__gp") != 0 \
579 && strcmp (name, "__romdatastart") != 0 \
580 && !saw_subtract) \
581 _bfd_error_handler (_("%B(%A): unsafe PID relocation %s at 0x%08lx (against %s in %s)"), \
582 input_bfd, input_section, howto->name, \
583 input_section->output_section->vma + input_section->output_offset + rel->r_offset, \
584 name, sec->name); \
585 } \
586 while (0)
587
588 /* Opcode relocs are always big endian. Data relocs are bi-endian. */
589 switch (r_type)
590 {
591 case R_RX_NONE:
592 break;
593
594 case R_RX_RH_RELAX:
595 break;
596
597 case R_RX_RH_3_PCREL:
598 WARN_REDHAT ("RX_RH_3_PCREL");
599 RANGE (3, 10);
600 OP (0) &= 0xf8;
601 OP (0) |= relocation & 0x07;
602 break;
603
604 case R_RX_RH_8_NEG:
605 WARN_REDHAT ("RX_RH_8_NEG");
606 relocation = - relocation;
607 case R_RX_DIR8S_PCREL:
608 UNSAFE_FOR_PID;
609 RANGE (-128, 127);
610 OP (0) = relocation;
611 break;
612
613 case R_RX_DIR8S:
614 UNSAFE_FOR_PID;
615 RANGE (-128, 255);
616 OP (0) = relocation;
617 break;
618
619 case R_RX_DIR8U:
620 UNSAFE_FOR_PID;
621 RANGE (0, 255);
622 OP (0) = relocation;
623 break;
624
625 case R_RX_RH_16_NEG:
626 WARN_REDHAT ("RX_RH_16_NEG");
627 relocation = - relocation;
628 case R_RX_DIR16S_PCREL:
629 UNSAFE_FOR_PID;
630 RANGE (-32768, 32767);
631 #if RX_OPCODE_BIG_ENDIAN
632 #else
633 OP (0) = relocation;
634 OP (1) = relocation >> 8;
635 #endif
636 break;
637
638 case R_RX_RH_16_OP:
639 WARN_REDHAT ("RX_RH_16_OP");
640 UNSAFE_FOR_PID;
641 RANGE (-32768, 32767);
642 #if RX_OPCODE_BIG_ENDIAN
643 OP (1) = relocation;
644 OP (0) = relocation >> 8;
645 #else
646 OP (0) = relocation;
647 OP (1) = relocation >> 8;
648 #endif
649 break;
650
651 case R_RX_DIR16S:
652 UNSAFE_FOR_PID;
653 RANGE (-32768, 65535);
654 if (BIGE (output_bfd) && !(input_section->flags & SEC_CODE))
655 {
656 OP (1) = relocation;
657 OP (0) = relocation >> 8;
658 }
659 else
660 {
661 OP (0) = relocation;
662 OP (1) = relocation >> 8;
663 }
664 break;
665
666 case R_RX_DIR16U:
667 UNSAFE_FOR_PID;
668 RANGE (0, 65536);
669 #if RX_OPCODE_BIG_ENDIAN
670 OP (1) = relocation;
671 OP (0) = relocation >> 8;
672 #else
673 OP (0) = relocation;
674 OP (1) = relocation >> 8;
675 #endif
676 break;
677
678 case R_RX_DIR16:
679 UNSAFE_FOR_PID;
680 RANGE (-32768, 65536);
681 #if RX_OPCODE_BIG_ENDIAN
682 OP (1) = relocation;
683 OP (0) = relocation >> 8;
684 #else
685 OP (0) = relocation;
686 OP (1) = relocation >> 8;
687 #endif
688 break;
689
690 case R_RX_DIR16_REV:
691 UNSAFE_FOR_PID;
692 RANGE (-32768, 65536);
693 #if RX_OPCODE_BIG_ENDIAN
694 OP (0) = relocation;
695 OP (1) = relocation >> 8;
696 #else
697 OP (1) = relocation;
698 OP (0) = relocation >> 8;
699 #endif
700 break;
701
702 case R_RX_DIR3U_PCREL:
703 RANGE (3, 10);
704 OP (0) &= 0xf8;
705 OP (0) |= relocation & 0x07;
706 break;
707
708 case R_RX_RH_24_NEG:
709 UNSAFE_FOR_PID;
710 WARN_REDHAT ("RX_RH_24_NEG");
711 relocation = - relocation;
712 case R_RX_DIR24S_PCREL:
713 RANGE (-0x800000, 0x7fffff);
714 #if RX_OPCODE_BIG_ENDIAN
715 OP (2) = relocation;
716 OP (1) = relocation >> 8;
717 OP (0) = relocation >> 16;
718 #else
719 OP (0) = relocation;
720 OP (1) = relocation >> 8;
721 OP (2) = relocation >> 16;
722 #endif
723 break;
724
725 case R_RX_RH_24_OP:
726 UNSAFE_FOR_PID;
727 WARN_REDHAT ("RX_RH_24_OP");
728 RANGE (-0x800000, 0x7fffff);
729 #if RX_OPCODE_BIG_ENDIAN
730 OP (2) = relocation;
731 OP (1) = relocation >> 8;
732 OP (0) = relocation >> 16;
733 #else
734 OP (0) = relocation;
735 OP (1) = relocation >> 8;
736 OP (2) = relocation >> 16;
737 #endif
738 break;
739
740 case R_RX_DIR24S:
741 UNSAFE_FOR_PID;
742 RANGE (-0x800000, 0x7fffff);
743 if (BIGE (output_bfd) && !(input_section->flags & SEC_CODE))
744 {
745 OP (2) = relocation;
746 OP (1) = relocation >> 8;
747 OP (0) = relocation >> 16;
748 }
749 else
750 {
751 OP (0) = relocation;
752 OP (1) = relocation >> 8;
753 OP (2) = relocation >> 16;
754 }
755 break;
756
757 case R_RX_RH_24_UNS:
758 UNSAFE_FOR_PID;
759 WARN_REDHAT ("RX_RH_24_UNS");
760 RANGE (0, 0xffffff);
761 #if RX_OPCODE_BIG_ENDIAN
762 OP (2) = relocation;
763 OP (1) = relocation >> 8;
764 OP (0) = relocation >> 16;
765 #else
766 OP (0) = relocation;
767 OP (1) = relocation >> 8;
768 OP (2) = relocation >> 16;
769 #endif
770 break;
771
772 case R_RX_RH_32_NEG:
773 UNSAFE_FOR_PID;
774 WARN_REDHAT ("RX_RH_32_NEG");
775 relocation = - relocation;
776 #if RX_OPCODE_BIG_ENDIAN
777 OP (3) = relocation;
778 OP (2) = relocation >> 8;
779 OP (1) = relocation >> 16;
780 OP (0) = relocation >> 24;
781 #else
782 OP (0) = relocation;
783 OP (1) = relocation >> 8;
784 OP (2) = relocation >> 16;
785 OP (3) = relocation >> 24;
786 #endif
787 break;
788
789 case R_RX_RH_32_OP:
790 UNSAFE_FOR_PID;
791 WARN_REDHAT ("RX_RH_32_OP");
792 #if RX_OPCODE_BIG_ENDIAN
793 OP (3) = relocation;
794 OP (2) = relocation >> 8;
795 OP (1) = relocation >> 16;
796 OP (0) = relocation >> 24;
797 #else
798 OP (0) = relocation;
799 OP (1) = relocation >> 8;
800 OP (2) = relocation >> 16;
801 OP (3) = relocation >> 24;
802 #endif
803 break;
804
805 case R_RX_DIR32:
806 if (BIGE (output_bfd) && !(input_section->flags & SEC_CODE))
807 {
808 OP (3) = relocation;
809 OP (2) = relocation >> 8;
810 OP (1) = relocation >> 16;
811 OP (0) = relocation >> 24;
812 }
813 else
814 {
815 OP (0) = relocation;
816 OP (1) = relocation >> 8;
817 OP (2) = relocation >> 16;
818 OP (3) = relocation >> 24;
819 }
820 break;
821
822 case R_RX_DIR32_REV:
823 if (BIGE (output_bfd))
824 {
825 OP (0) = relocation;
826 OP (1) = relocation >> 8;
827 OP (2) = relocation >> 16;
828 OP (3) = relocation >> 24;
829 }
830 else
831 {
832 OP (3) = relocation;
833 OP (2) = relocation >> 8;
834 OP (1) = relocation >> 16;
835 OP (0) = relocation >> 24;
836 }
837 break;
838
839 case R_RX_RH_DIFF:
840 {
841 bfd_vma val;
842 WARN_REDHAT ("RX_RH_DIFF");
843 val = bfd_get_32 (output_bfd, & OP (0));
844 val -= relocation;
845 bfd_put_32 (output_bfd, val, & OP (0));
846 }
847 break;
848
849 case R_RX_RH_GPRELB:
850 WARN_REDHAT ("RX_RH_GPRELB");
851 relocation -= get_gp (&r, info, input_bfd, input_section, rel->r_offset);
852 RANGE (0, 65535);
853 #if RX_OPCODE_BIG_ENDIAN
854 OP (1) = relocation;
855 OP (0) = relocation >> 8;
856 #else
857 OP (0) = relocation;
858 OP (1) = relocation >> 8;
859 #endif
860 break;
861
862 case R_RX_RH_GPRELW:
863 WARN_REDHAT ("RX_RH_GPRELW");
864 relocation -= get_gp (&r, info, input_bfd, input_section, rel->r_offset);
865 ALIGN (1);
866 relocation >>= 1;
867 RANGE (0, 65535);
868 #if RX_OPCODE_BIG_ENDIAN
869 OP (1) = relocation;
870 OP (0) = relocation >> 8;
871 #else
872 OP (0) = relocation;
873 OP (1) = relocation >> 8;
874 #endif
875 break;
876
877 case R_RX_RH_GPRELL:
878 WARN_REDHAT ("RX_RH_GPRELL");
879 relocation -= get_gp (&r, info, input_bfd, input_section, rel->r_offset);
880 ALIGN (3);
881 relocation >>= 2;
882 RANGE (0, 65535);
883 #if RX_OPCODE_BIG_ENDIAN
884 OP (1) = relocation;
885 OP (0) = relocation >> 8;
886 #else
887 OP (0) = relocation;
888 OP (1) = relocation >> 8;
889 #endif
890 break;
891
892 /* Internal relocations just for relaxation: */
893 case R_RX_RH_ABS5p5B:
894 RX_STACK_POP (relocation);
895 RANGE (0, 31);
896 OP (0) &= 0xf8;
897 OP (0) |= relocation >> 2;
898 OP (1) &= 0x77;
899 OP (1) |= (relocation << 6) & 0x80;
900 OP (1) |= (relocation << 3) & 0x08;
901 break;
902
903 case R_RX_RH_ABS5p5W:
904 RX_STACK_POP (relocation);
905 RANGE (0, 62);
906 ALIGN (1);
907 relocation >>= 1;
908 OP (0) &= 0xf8;
909 OP (0) |= relocation >> 2;
910 OP (1) &= 0x77;
911 OP (1) |= (relocation << 6) & 0x80;
912 OP (1) |= (relocation << 3) & 0x08;
913 break;
914
915 case R_RX_RH_ABS5p5L:
916 RX_STACK_POP (relocation);
917 RANGE (0, 124);
918 ALIGN (3);
919 relocation >>= 2;
920 OP (0) &= 0xf8;
921 OP (0) |= relocation >> 2;
922 OP (1) &= 0x77;
923 OP (1) |= (relocation << 6) & 0x80;
924 OP (1) |= (relocation << 3) & 0x08;
925 break;
926
927 case R_RX_RH_ABS5p8B:
928 RX_STACK_POP (relocation);
929 RANGE (0, 31);
930 OP (0) &= 0x70;
931 OP (0) |= (relocation << 3) & 0x80;
932 OP (0) |= relocation & 0x0f;
933 break;
934
935 case R_RX_RH_ABS5p8W:
936 RX_STACK_POP (relocation);
937 RANGE (0, 62);
938 ALIGN (1);
939 relocation >>= 1;
940 OP (0) &= 0x70;
941 OP (0) |= (relocation << 3) & 0x80;
942 OP (0) |= relocation & 0x0f;
943 break;
944
945 case R_RX_RH_ABS5p8L:
946 RX_STACK_POP (relocation);
947 RANGE (0, 124);
948 ALIGN (3);
949 relocation >>= 2;
950 OP (0) &= 0x70;
951 OP (0) |= (relocation << 3) & 0x80;
952 OP (0) |= relocation & 0x0f;
953 break;
954
955 case R_RX_RH_UIMM4p8:
956 RANGE (0, 15);
957 OP (0) &= 0x0f;
958 OP (0) |= relocation << 4;
959 break;
960
961 case R_RX_RH_UNEG4p8:
962 RANGE (-15, 0);
963 OP (0) &= 0x0f;
964 OP (0) |= (-relocation) << 4;
965 break;
966
967 /* Complex reloc handling: */
968
969 case R_RX_ABS32:
970 UNSAFE_FOR_PID;
971 RX_STACK_POP (relocation);
972 #if RX_OPCODE_BIG_ENDIAN
973 OP (3) = relocation;
974 OP (2) = relocation >> 8;
975 OP (1) = relocation >> 16;
976 OP (0) = relocation >> 24;
977 #else
978 OP (0) = relocation;
979 OP (1) = relocation >> 8;
980 OP (2) = relocation >> 16;
981 OP (3) = relocation >> 24;
982 #endif
983 break;
984
985 case R_RX_ABS32_REV:
986 UNSAFE_FOR_PID;
987 RX_STACK_POP (relocation);
988 #if RX_OPCODE_BIG_ENDIAN
989 OP (0) = relocation;
990 OP (1) = relocation >> 8;
991 OP (2) = relocation >> 16;
992 OP (3) = relocation >> 24;
993 #else
994 OP (3) = relocation;
995 OP (2) = relocation >> 8;
996 OP (1) = relocation >> 16;
997 OP (0) = relocation >> 24;
998 #endif
999 break;
1000
1001 case R_RX_ABS24S_PCREL:
1002 case R_RX_ABS24S:
1003 UNSAFE_FOR_PID;
1004 RX_STACK_POP (relocation);
1005 RANGE (-0x800000, 0x7fffff);
1006 if (BIGE (output_bfd) && !(input_section->flags & SEC_CODE))
1007 {
1008 OP (2) = relocation;
1009 OP (1) = relocation >> 8;
1010 OP (0) = relocation >> 16;
1011 }
1012 else
1013 {
1014 OP (0) = relocation;
1015 OP (1) = relocation >> 8;
1016 OP (2) = relocation >> 16;
1017 }
1018 break;
1019
1020 case R_RX_ABS16:
1021 UNSAFE_FOR_PID;
1022 RX_STACK_POP (relocation);
1023 RANGE (-32768, 65535);
1024 #if RX_OPCODE_BIG_ENDIAN
1025 OP (1) = relocation;
1026 OP (0) = relocation >> 8;
1027 #else
1028 OP (0) = relocation;
1029 OP (1) = relocation >> 8;
1030 #endif
1031 break;
1032
1033 case R_RX_ABS16_REV:
1034 UNSAFE_FOR_PID;
1035 RX_STACK_POP (relocation);
1036 RANGE (-32768, 65535);
1037 #if RX_OPCODE_BIG_ENDIAN
1038 OP (0) = relocation;
1039 OP (1) = relocation >> 8;
1040 #else
1041 OP (1) = relocation;
1042 OP (0) = relocation >> 8;
1043 #endif
1044 break;
1045
1046 case R_RX_ABS16S_PCREL:
1047 case R_RX_ABS16S:
1048 RX_STACK_POP (relocation);
1049 RANGE (-32768, 32767);
1050 if (BIGE (output_bfd) && !(input_section->flags & SEC_CODE))
1051 {
1052 OP (1) = relocation;
1053 OP (0) = relocation >> 8;
1054 }
1055 else
1056 {
1057 OP (0) = relocation;
1058 OP (1) = relocation >> 8;
1059 }
1060 break;
1061
1062 case R_RX_ABS16U:
1063 UNSAFE_FOR_PID;
1064 RX_STACK_POP (relocation);
1065 RANGE (0, 65536);
1066 #if RX_OPCODE_BIG_ENDIAN
1067 OP (1) = relocation;
1068 OP (0) = relocation >> 8;
1069 #else
1070 OP (0) = relocation;
1071 OP (1) = relocation >> 8;
1072 #endif
1073 break;
1074
1075 case R_RX_ABS16UL:
1076 UNSAFE_FOR_PID;
1077 RX_STACK_POP (relocation);
1078 relocation >>= 2;
1079 RANGE (0, 65536);
1080 #if RX_OPCODE_BIG_ENDIAN
1081 OP (1) = relocation;
1082 OP (0) = relocation >> 8;
1083 #else
1084 OP (0) = relocation;
1085 OP (1) = relocation >> 8;
1086 #endif
1087 break;
1088
1089 case R_RX_ABS16UW:
1090 UNSAFE_FOR_PID;
1091 RX_STACK_POP (relocation);
1092 relocation >>= 1;
1093 RANGE (0, 65536);
1094 #if RX_OPCODE_BIG_ENDIAN
1095 OP (1) = relocation;
1096 OP (0) = relocation >> 8;
1097 #else
1098 OP (0) = relocation;
1099 OP (1) = relocation >> 8;
1100 #endif
1101 break;
1102
1103 case R_RX_ABS8:
1104 UNSAFE_FOR_PID;
1105 RX_STACK_POP (relocation);
1106 RANGE (-128, 255);
1107 OP (0) = relocation;
1108 break;
1109
1110 case R_RX_ABS8U:
1111 UNSAFE_FOR_PID;
1112 RX_STACK_POP (relocation);
1113 RANGE (0, 255);
1114 OP (0) = relocation;
1115 break;
1116
1117 case R_RX_ABS8UL:
1118 UNSAFE_FOR_PID;
1119 RX_STACK_POP (relocation);
1120 relocation >>= 2;
1121 RANGE (0, 255);
1122 OP (0) = relocation;
1123 break;
1124
1125 case R_RX_ABS8UW:
1126 UNSAFE_FOR_PID;
1127 RX_STACK_POP (relocation);
1128 relocation >>= 1;
1129 RANGE (0, 255);
1130 OP (0) = relocation;
1131 break;
1132
1133 case R_RX_ABS8S:
1134 UNSAFE_FOR_PID;
1135 case R_RX_ABS8S_PCREL:
1136 RX_STACK_POP (relocation);
1137 RANGE (-128, 127);
1138 OP (0) = relocation;
1139 break;
1140
1141 case R_RX_SYM:
1142 if (r_symndx < symtab_hdr->sh_info)
1143 RX_STACK_PUSH (sec->output_section->vma
1144 + sec->output_offset
1145 + sym->st_value
1146 + rel->r_addend);
1147 else
1148 {
1149 if (h != NULL
1150 && (h->root.type == bfd_link_hash_defined
1151 || h->root.type == bfd_link_hash_defweak))
1152 RX_STACK_PUSH (h->root.u.def.value
1153 + sec->output_section->vma
1154 + sec->output_offset
1155 + rel->r_addend);
1156 else
1157 _bfd_error_handler (_("Warning: RX_SYM reloc with an unknown symbol"));
1158 }
1159 break;
1160
1161 case R_RX_OPneg:
1162 {
1163 int32_t tmp;
1164
1165 saw_subtract = TRUE;
1166 RX_STACK_POP (tmp);
1167 tmp = - tmp;
1168 RX_STACK_PUSH (tmp);
1169 }
1170 break;
1171
1172 case R_RX_OPadd:
1173 {
1174 int32_t tmp1, tmp2;
1175
1176 RX_STACK_POP (tmp1);
1177 RX_STACK_POP (tmp2);
1178 tmp1 += tmp2;
1179 RX_STACK_PUSH (tmp1);
1180 }
1181 break;
1182
1183 case R_RX_OPsub:
1184 {
1185 int32_t tmp1, tmp2;
1186
1187 saw_subtract = TRUE;
1188 RX_STACK_POP (tmp1);
1189 RX_STACK_POP (tmp2);
1190 tmp2 -= tmp1;
1191 RX_STACK_PUSH (tmp2);
1192 }
1193 break;
1194
1195 case R_RX_OPmul:
1196 {
1197 int32_t tmp1, tmp2;
1198
1199 RX_STACK_POP (tmp1);
1200 RX_STACK_POP (tmp2);
1201 tmp1 *= tmp2;
1202 RX_STACK_PUSH (tmp1);
1203 }
1204 break;
1205
1206 case R_RX_OPdiv:
1207 {
1208 int32_t tmp1, tmp2;
1209
1210 RX_STACK_POP (tmp1);
1211 RX_STACK_POP (tmp2);
1212 tmp1 /= tmp2;
1213 RX_STACK_PUSH (tmp1);
1214 }
1215 break;
1216
1217 case R_RX_OPshla:
1218 {
1219 int32_t tmp1, tmp2;
1220
1221 RX_STACK_POP (tmp1);
1222 RX_STACK_POP (tmp2);
1223 tmp1 <<= tmp2;
1224 RX_STACK_PUSH (tmp1);
1225 }
1226 break;
1227
1228 case R_RX_OPshra:
1229 {
1230 int32_t tmp1, tmp2;
1231
1232 RX_STACK_POP (tmp1);
1233 RX_STACK_POP (tmp2);
1234 tmp1 >>= tmp2;
1235 RX_STACK_PUSH (tmp1);
1236 }
1237 break;
1238
1239 case R_RX_OPsctsize:
1240 RX_STACK_PUSH (input_section->size);
1241 break;
1242
1243 case R_RX_OPscttop:
1244 RX_STACK_PUSH (input_section->output_section->vma);
1245 break;
1246
1247 case R_RX_OPand:
1248 {
1249 int32_t tmp1, tmp2;
1250
1251 RX_STACK_POP (tmp1);
1252 RX_STACK_POP (tmp2);
1253 tmp1 &= tmp2;
1254 RX_STACK_PUSH (tmp1);
1255 }
1256 break;
1257
1258 case R_RX_OPor:
1259 {
1260 int32_t tmp1, tmp2;
1261
1262 RX_STACK_POP (tmp1);
1263 RX_STACK_POP (tmp2);
1264 tmp1 |= tmp2;
1265 RX_STACK_PUSH (tmp1);
1266 }
1267 break;
1268
1269 case R_RX_OPxor:
1270 {
1271 int32_t tmp1, tmp2;
1272
1273 RX_STACK_POP (tmp1);
1274 RX_STACK_POP (tmp2);
1275 tmp1 ^= tmp2;
1276 RX_STACK_PUSH (tmp1);
1277 }
1278 break;
1279
1280 case R_RX_OPnot:
1281 {
1282 int32_t tmp;
1283
1284 RX_STACK_POP (tmp);
1285 tmp = ~ tmp;
1286 RX_STACK_PUSH (tmp);
1287 }
1288 break;
1289
1290 case R_RX_OPmod:
1291 {
1292 int32_t tmp1, tmp2;
1293
1294 RX_STACK_POP (tmp1);
1295 RX_STACK_POP (tmp2);
1296 tmp1 %= tmp2;
1297 RX_STACK_PUSH (tmp1);
1298 }
1299 break;
1300
1301 case R_RX_OPromtop:
1302 RX_STACK_PUSH (get_romstart (&r, info, input_bfd, input_section, rel->r_offset));
1303 break;
1304
1305 case R_RX_OPramtop:
1306 RX_STACK_PUSH (get_ramstart (&r, info, input_bfd, input_section, rel->r_offset));
1307 break;
1308
1309 default:
1310 r = bfd_reloc_notsupported;
1311 break;
1312 }
1313
1314 if (r != bfd_reloc_ok)
1315 {
1316 const char * msg = NULL;
1317
1318 switch (r)
1319 {
1320 case bfd_reloc_overflow:
1321 /* Catch the case of a missing function declaration
1322 and emit a more helpful error message. */
1323 if (r_type == R_RX_DIR24S_PCREL)
1324 msg = _("%B(%A): error: call to undefined function '%s'");
1325 else
1326 r = info->callbacks->reloc_overflow
1327 (info, (h ? &h->root : NULL), name, howto->name, (bfd_vma) 0,
1328 input_bfd, input_section, rel->r_offset);
1329 break;
1330
1331 case bfd_reloc_undefined:
1332 r = info->callbacks->undefined_symbol
1333 (info, name, input_bfd, input_section, rel->r_offset,
1334 TRUE);
1335 break;
1336
1337 case bfd_reloc_other:
1338 msg = _("%B(%A): warning: unaligned access to symbol '%s' in the small data area");
1339 break;
1340
1341 case bfd_reloc_outofrange:
1342 msg = _("%B(%A): internal error: out of range error");
1343 break;
1344
1345 case bfd_reloc_notsupported:
1346 msg = _("%B(%A): internal error: unsupported relocation error");
1347 break;
1348
1349 case bfd_reloc_dangerous:
1350 msg = _("%B(%A): internal error: dangerous relocation");
1351 break;
1352
1353 default:
1354 msg = _("%B(%A): internal error: unknown error");
1355 break;
1356 }
1357
1358 if (msg)
1359 _bfd_error_handler (msg, input_bfd, input_section, name);
1360
1361 if (! r)
1362 return FALSE;
1363 }
1364 }
1365
1366 return TRUE;
1367 }
1368 \f
1369 /* Relaxation Support. */
1370
1371 /* Progression of relocations from largest operand size to smallest
1372 operand size. */
1373
1374 static int
1375 next_smaller_reloc (int r)
1376 {
1377 switch (r)
1378 {
1379 case R_RX_DIR32: return R_RX_DIR24S;
1380 case R_RX_DIR24S: return R_RX_DIR16S;
1381 case R_RX_DIR16S: return R_RX_DIR8S;
1382 case R_RX_DIR8S: return R_RX_NONE;
1383
1384 case R_RX_DIR16: return R_RX_DIR8;
1385 case R_RX_DIR8: return R_RX_NONE;
1386
1387 case R_RX_DIR16U: return R_RX_DIR8U;
1388 case R_RX_DIR8U: return R_RX_NONE;
1389
1390 case R_RX_DIR24S_PCREL: return R_RX_DIR16S_PCREL;
1391 case R_RX_DIR16S_PCREL: return R_RX_DIR8S_PCREL;
1392 case R_RX_DIR8S_PCREL: return R_RX_DIR3U_PCREL;
1393
1394 case R_RX_DIR16UL: return R_RX_DIR8UL;
1395 case R_RX_DIR8UL: return R_RX_NONE;
1396 case R_RX_DIR16UW: return R_RX_DIR8UW;
1397 case R_RX_DIR8UW: return R_RX_NONE;
1398
1399 case R_RX_RH_32_OP: return R_RX_RH_24_OP;
1400 case R_RX_RH_24_OP: return R_RX_RH_16_OP;
1401 case R_RX_RH_16_OP: return R_RX_DIR8;
1402
1403 case R_RX_ABS32: return R_RX_ABS24S;
1404 case R_RX_ABS24S: return R_RX_ABS16S;
1405 case R_RX_ABS16: return R_RX_ABS8;
1406 case R_RX_ABS16U: return R_RX_ABS8U;
1407 case R_RX_ABS16S: return R_RX_ABS8S;
1408 case R_RX_ABS8: return R_RX_NONE;
1409 case R_RX_ABS8U: return R_RX_NONE;
1410 case R_RX_ABS8S: return R_RX_NONE;
1411 case R_RX_ABS24S_PCREL: return R_RX_ABS16S_PCREL;
1412 case R_RX_ABS16S_PCREL: return R_RX_ABS8S_PCREL;
1413 case R_RX_ABS8S_PCREL: return R_RX_NONE;
1414 case R_RX_ABS16UL: return R_RX_ABS8UL;
1415 case R_RX_ABS16UW: return R_RX_ABS8UW;
1416 case R_RX_ABS8UL: return R_RX_NONE;
1417 case R_RX_ABS8UW: return R_RX_NONE;
1418 }
1419 return r;
1420 };
1421
1422 /* Delete some bytes from a section while relaxing. */
1423
1424 static bfd_boolean
1425 elf32_rx_relax_delete_bytes (bfd *abfd, asection *sec, bfd_vma addr, int count,
1426 Elf_Internal_Rela *alignment_rel, int force_snip)
1427 {
1428 Elf_Internal_Shdr * symtab_hdr;
1429 unsigned int sec_shndx;
1430 bfd_byte * contents;
1431 Elf_Internal_Rela * irel;
1432 Elf_Internal_Rela * irelend;
1433 Elf_Internal_Sym * isym;
1434 Elf_Internal_Sym * isymend;
1435 bfd_vma toaddr;
1436 unsigned int symcount;
1437 struct elf_link_hash_entry ** sym_hashes;
1438 struct elf_link_hash_entry ** end_hashes;
1439
1440 if (!alignment_rel)
1441 force_snip = 1;
1442
1443 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1444
1445 contents = elf_section_data (sec)->this_hdr.contents;
1446
1447 /* The deletion must stop at the next alignment boundary, if
1448 ALIGNMENT_REL is non-NULL. */
1449 toaddr = sec->size;
1450 if (alignment_rel)
1451 toaddr = alignment_rel->r_offset;
1452
1453 irel = elf_section_data (sec)->relocs;
1454 irelend = irel + sec->reloc_count;
1455
1456 /* Actually delete the bytes. */
1457 memmove (contents + addr, contents + addr + count,
1458 (size_t) (toaddr - addr - count));
1459
1460 /* If we don't have an alignment marker to worry about, we can just
1461 shrink the section. Otherwise, we have to fill in the newly
1462 created gap with NOP insns (0x03). */
1463 if (force_snip)
1464 sec->size -= count;
1465 else
1466 memset (contents + toaddr - count, 0x03, count);
1467
1468 /* Adjust all the relocs. */
1469 for (irel = elf_section_data (sec)->relocs; irel < irelend; irel++)
1470 {
1471 /* Get the new reloc address. */
1472 if (irel->r_offset > addr
1473 && (irel->r_offset < toaddr
1474 || (force_snip && irel->r_offset == toaddr)))
1475 irel->r_offset -= count;
1476
1477 /* If we see an ALIGN marker at the end of the gap, we move it
1478 to the beginning of the gap, since marking these gaps is what
1479 they're for. */
1480 if (irel->r_offset == toaddr
1481 && ELF32_R_TYPE (irel->r_info) == R_RX_RH_RELAX
1482 && irel->r_addend & RX_RELAXA_ALIGN)
1483 irel->r_offset -= count;
1484 }
1485
1486 /* Adjust the local symbols defined in this section. */
1487 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1488 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1489 isymend = isym + symtab_hdr->sh_info;
1490
1491 for (; isym < isymend; isym++)
1492 {
1493 /* If the symbol is in the range of memory we just moved, we
1494 have to adjust its value. */
1495 if (isym->st_shndx == sec_shndx
1496 && isym->st_value > addr
1497 && isym->st_value < toaddr)
1498 isym->st_value -= count;
1499
1500 /* If the symbol *spans* the bytes we just deleted (i.e. it's
1501 *end* is in the moved bytes but it's *start* isn't), then we
1502 must adjust its size. */
1503 if (isym->st_shndx == sec_shndx
1504 && isym->st_value < addr
1505 && isym->st_value + isym->st_size > addr
1506 && isym->st_value + isym->st_size < toaddr)
1507 isym->st_size -= count;
1508 }
1509
1510 /* Now adjust the global symbols defined in this section. */
1511 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1512 - symtab_hdr->sh_info);
1513 sym_hashes = elf_sym_hashes (abfd);
1514 end_hashes = sym_hashes + symcount;
1515
1516 for (; sym_hashes < end_hashes; sym_hashes++)
1517 {
1518 struct elf_link_hash_entry *sym_hash = *sym_hashes;
1519
1520 if ((sym_hash->root.type == bfd_link_hash_defined
1521 || sym_hash->root.type == bfd_link_hash_defweak)
1522 && sym_hash->root.u.def.section == sec)
1523 {
1524 /* As above, adjust the value if needed. */
1525 if (sym_hash->root.u.def.value > addr
1526 && sym_hash->root.u.def.value < toaddr)
1527 sym_hash->root.u.def.value -= count;
1528
1529 /* As above, adjust the size if needed. */
1530 if (sym_hash->root.u.def.value < addr
1531 && sym_hash->root.u.def.value + sym_hash->size > addr
1532 && sym_hash->root.u.def.value + sym_hash->size < toaddr)
1533 sym_hash->size -= count;
1534 }
1535 }
1536
1537 return TRUE;
1538 }
1539
1540 /* Used to sort relocs by address. If relocs have the same address,
1541 we maintain their relative order, except that R_RX_RH_RELAX
1542 alignment relocs must be the first reloc for any given address. */
1543
1544 static void
1545 reloc_bubblesort (Elf_Internal_Rela * r, int count)
1546 {
1547 int i;
1548 bfd_boolean again;
1549 bfd_boolean swappit;
1550
1551 /* This is almost a classic bubblesort. It's the slowest sort, but
1552 we're taking advantage of the fact that the relocations are
1553 mostly in order already (the assembler emits them that way) and
1554 we need relocs with the same address to remain in the same
1555 relative order. */
1556 again = TRUE;
1557 while (again)
1558 {
1559 again = FALSE;
1560 for (i = 0; i < count - 1; i ++)
1561 {
1562 if (r[i].r_offset > r[i + 1].r_offset)
1563 swappit = TRUE;
1564 else if (r[i].r_offset < r[i + 1].r_offset)
1565 swappit = FALSE;
1566 else if (ELF32_R_TYPE (r[i + 1].r_info) == R_RX_RH_RELAX
1567 && (r[i + 1].r_addend & RX_RELAXA_ALIGN))
1568 swappit = TRUE;
1569 else if (ELF32_R_TYPE (r[i + 1].r_info) == R_RX_RH_RELAX
1570 && (r[i + 1].r_addend & RX_RELAXA_ELIGN)
1571 && !(ELF32_R_TYPE (r[i].r_info) == R_RX_RH_RELAX
1572 && (r[i].r_addend & RX_RELAXA_ALIGN)))
1573 swappit = TRUE;
1574 else
1575 swappit = FALSE;
1576
1577 if (swappit)
1578 {
1579 Elf_Internal_Rela tmp;
1580
1581 tmp = r[i];
1582 r[i] = r[i + 1];
1583 r[i + 1] = tmp;
1584 /* If we do move a reloc back, re-scan to see if it
1585 needs to be moved even further back. This avoids
1586 most of the O(n^2) behavior for our cases. */
1587 if (i > 0)
1588 i -= 2;
1589 again = TRUE;
1590 }
1591 }
1592 }
1593 }
1594
1595
1596 #define OFFSET_FOR_RELOC(rel, lrel, scale) \
1597 rx_offset_for_reloc (abfd, rel + 1, symtab_hdr, shndx_buf, intsyms, \
1598 lrel, abfd, sec, link_info, scale)
1599
1600 static bfd_vma
1601 rx_offset_for_reloc (bfd * abfd,
1602 Elf_Internal_Rela * rel,
1603 Elf_Internal_Shdr * symtab_hdr,
1604 Elf_External_Sym_Shndx * shndx_buf ATTRIBUTE_UNUSED,
1605 Elf_Internal_Sym * intsyms,
1606 Elf_Internal_Rela ** lrel,
1607 bfd * input_bfd,
1608 asection * input_section,
1609 struct bfd_link_info * info,
1610 int * scale)
1611 {
1612 bfd_vma symval;
1613 bfd_reloc_status_type r;
1614
1615 *scale = 1;
1616
1617 /* REL is the first of 1..N relocations. We compute the symbol
1618 value for each relocation, then combine them if needed. LREL
1619 gets a pointer to the last relocation used. */
1620 while (1)
1621 {
1622 int32_t tmp1, tmp2;
1623
1624 /* Get the value of the symbol referred to by the reloc. */
1625 if (ELF32_R_SYM (rel->r_info) < symtab_hdr->sh_info)
1626 {
1627 /* A local symbol. */
1628 Elf_Internal_Sym *isym;
1629 asection *ssec;
1630
1631 isym = intsyms + ELF32_R_SYM (rel->r_info);
1632
1633 if (isym->st_shndx == SHN_UNDEF)
1634 ssec = bfd_und_section_ptr;
1635 else if (isym->st_shndx == SHN_ABS)
1636 ssec = bfd_abs_section_ptr;
1637 else if (isym->st_shndx == SHN_COMMON)
1638 ssec = bfd_com_section_ptr;
1639 else
1640 ssec = bfd_section_from_elf_index (abfd,
1641 isym->st_shndx);
1642
1643 /* Initial symbol value. */
1644 symval = isym->st_value;
1645
1646 /* GAS may have made this symbol relative to a section, in
1647 which case, we have to add the addend to find the
1648 symbol. */
1649 if (ELF_ST_TYPE (isym->st_info) == STT_SECTION)
1650 symval += rel->r_addend;
1651
1652 if (ssec)
1653 {
1654 if ((ssec->flags & SEC_MERGE)
1655 && ssec->sec_info_type == SEC_INFO_TYPE_MERGE)
1656 symval = _bfd_merged_section_offset (abfd, & ssec,
1657 elf_section_data (ssec)->sec_info,
1658 symval);
1659 }
1660
1661 /* Now make the offset relative to where the linker is putting it. */
1662 if (ssec)
1663 symval +=
1664 ssec->output_section->vma + ssec->output_offset;
1665
1666 symval += rel->r_addend;
1667 }
1668 else
1669 {
1670 unsigned long indx;
1671 struct elf_link_hash_entry * h;
1672
1673 /* An external symbol. */
1674 indx = ELF32_R_SYM (rel->r_info) - symtab_hdr->sh_info;
1675 h = elf_sym_hashes (abfd)[indx];
1676 BFD_ASSERT (h != NULL);
1677
1678 if (h->root.type != bfd_link_hash_defined
1679 && h->root.type != bfd_link_hash_defweak)
1680 {
1681 /* This appears to be a reference to an undefined
1682 symbol. Just ignore it--it will be caught by the
1683 regular reloc processing. */
1684 if (lrel)
1685 *lrel = rel;
1686 return 0;
1687 }
1688
1689 symval = (h->root.u.def.value
1690 + h->root.u.def.section->output_section->vma
1691 + h->root.u.def.section->output_offset);
1692
1693 symval += rel->r_addend;
1694 }
1695
1696 switch (ELF32_R_TYPE (rel->r_info))
1697 {
1698 case R_RX_SYM:
1699 RX_STACK_PUSH (symval);
1700 break;
1701
1702 case R_RX_OPneg:
1703 RX_STACK_POP (tmp1);
1704 tmp1 = - tmp1;
1705 RX_STACK_PUSH (tmp1);
1706 break;
1707
1708 case R_RX_OPadd:
1709 RX_STACK_POP (tmp1);
1710 RX_STACK_POP (tmp2);
1711 tmp1 += tmp2;
1712 RX_STACK_PUSH (tmp1);
1713 break;
1714
1715 case R_RX_OPsub:
1716 RX_STACK_POP (tmp1);
1717 RX_STACK_POP (tmp2);
1718 tmp2 -= tmp1;
1719 RX_STACK_PUSH (tmp2);
1720 break;
1721
1722 case R_RX_OPmul:
1723 RX_STACK_POP (tmp1);
1724 RX_STACK_POP (tmp2);
1725 tmp1 *= tmp2;
1726 RX_STACK_PUSH (tmp1);
1727 break;
1728
1729 case R_RX_OPdiv:
1730 RX_STACK_POP (tmp1);
1731 RX_STACK_POP (tmp2);
1732 tmp1 /= tmp2;
1733 RX_STACK_PUSH (tmp1);
1734 break;
1735
1736 case R_RX_OPshla:
1737 RX_STACK_POP (tmp1);
1738 RX_STACK_POP (tmp2);
1739 tmp1 <<= tmp2;
1740 RX_STACK_PUSH (tmp1);
1741 break;
1742
1743 case R_RX_OPshra:
1744 RX_STACK_POP (tmp1);
1745 RX_STACK_POP (tmp2);
1746 tmp1 >>= tmp2;
1747 RX_STACK_PUSH (tmp1);
1748 break;
1749
1750 case R_RX_OPsctsize:
1751 RX_STACK_PUSH (input_section->size);
1752 break;
1753
1754 case R_RX_OPscttop:
1755 RX_STACK_PUSH (input_section->output_section->vma);
1756 break;
1757
1758 case R_RX_OPand:
1759 RX_STACK_POP (tmp1);
1760 RX_STACK_POP (tmp2);
1761 tmp1 &= tmp2;
1762 RX_STACK_PUSH (tmp1);
1763 break;
1764
1765 case R_RX_OPor:
1766 RX_STACK_POP (tmp1);
1767 RX_STACK_POP (tmp2);
1768 tmp1 |= tmp2;
1769 RX_STACK_PUSH (tmp1);
1770 break;
1771
1772 case R_RX_OPxor:
1773 RX_STACK_POP (tmp1);
1774 RX_STACK_POP (tmp2);
1775 tmp1 ^= tmp2;
1776 RX_STACK_PUSH (tmp1);
1777 break;
1778
1779 case R_RX_OPnot:
1780 RX_STACK_POP (tmp1);
1781 tmp1 = ~ tmp1;
1782 RX_STACK_PUSH (tmp1);
1783 break;
1784
1785 case R_RX_OPmod:
1786 RX_STACK_POP (tmp1);
1787 RX_STACK_POP (tmp2);
1788 tmp1 %= tmp2;
1789 RX_STACK_PUSH (tmp1);
1790 break;
1791
1792 case R_RX_OPromtop:
1793 RX_STACK_PUSH (get_romstart (&r, info, input_bfd, input_section, rel->r_offset));
1794 break;
1795
1796 case R_RX_OPramtop:
1797 RX_STACK_PUSH (get_ramstart (&r, info, input_bfd, input_section, rel->r_offset));
1798 break;
1799
1800 case R_RX_DIR16UL:
1801 case R_RX_DIR8UL:
1802 case R_RX_ABS16UL:
1803 case R_RX_ABS8UL:
1804 if (rx_stack_top)
1805 RX_STACK_POP (symval);
1806 if (lrel)
1807 *lrel = rel;
1808 *scale = 4;
1809 return symval;
1810
1811 case R_RX_DIR16UW:
1812 case R_RX_DIR8UW:
1813 case R_RX_ABS16UW:
1814 case R_RX_ABS8UW:
1815 if (rx_stack_top)
1816 RX_STACK_POP (symval);
1817 if (lrel)
1818 *lrel = rel;
1819 *scale = 2;
1820 return symval;
1821
1822 default:
1823 if (rx_stack_top)
1824 RX_STACK_POP (symval);
1825 if (lrel)
1826 *lrel = rel;
1827 return symval;
1828 }
1829
1830 rel ++;
1831 }
1832 }
1833
1834 static void
1835 move_reloc (Elf_Internal_Rela * irel, Elf_Internal_Rela * srel, int delta)
1836 {
1837 bfd_vma old_offset = srel->r_offset;
1838
1839 irel ++;
1840 while (irel <= srel)
1841 {
1842 if (irel->r_offset == old_offset)
1843 irel->r_offset += delta;
1844 irel ++;
1845 }
1846 }
1847
1848 /* Relax one section. */
1849
1850 static bfd_boolean
1851 elf32_rx_relax_section (bfd * abfd,
1852 asection * sec,
1853 struct bfd_link_info * link_info,
1854 bfd_boolean * again,
1855 bfd_boolean allow_pcrel3)
1856 {
1857 Elf_Internal_Shdr * symtab_hdr;
1858 Elf_Internal_Shdr * shndx_hdr;
1859 Elf_Internal_Rela * internal_relocs;
1860 Elf_Internal_Rela * free_relocs = NULL;
1861 Elf_Internal_Rela * irel;
1862 Elf_Internal_Rela * srel;
1863 Elf_Internal_Rela * irelend;
1864 Elf_Internal_Rela * next_alignment;
1865 Elf_Internal_Rela * prev_alignment;
1866 bfd_byte * contents = NULL;
1867 bfd_byte * free_contents = NULL;
1868 Elf_Internal_Sym * intsyms = NULL;
1869 Elf_Internal_Sym * free_intsyms = NULL;
1870 Elf_External_Sym_Shndx * shndx_buf = NULL;
1871 bfd_vma pc;
1872 bfd_vma sec_start;
1873 bfd_vma symval = 0;
1874 int pcrel = 0;
1875 int code = 0;
1876 int section_alignment_glue;
1877 /* how much to scale the relocation by - 1, 2, or 4. */
1878 int scale;
1879
1880 /* Assume nothing changes. */
1881 *again = FALSE;
1882
1883 /* We don't have to do anything for a relocatable link, if
1884 this section does not have relocs, or if this is not a
1885 code section. */
1886 if (link_info->relocatable
1887 || (sec->flags & SEC_RELOC) == 0
1888 || sec->reloc_count == 0
1889 || (sec->flags & SEC_CODE) == 0)
1890 return TRUE;
1891
1892 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1893 shndx_hdr = &elf_tdata (abfd)->symtab_shndx_hdr;
1894
1895 sec_start = sec->output_section->vma + sec->output_offset;
1896
1897 /* Get the section contents. */
1898 if (elf_section_data (sec)->this_hdr.contents != NULL)
1899 contents = elf_section_data (sec)->this_hdr.contents;
1900 /* Go get them off disk. */
1901 else
1902 {
1903 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
1904 goto error_return;
1905 elf_section_data (sec)->this_hdr.contents = contents;
1906 }
1907
1908 /* Read this BFD's symbols. */
1909 /* Get cached copy if it exists. */
1910 if (symtab_hdr->contents != NULL)
1911 intsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
1912 else
1913 {
1914 intsyms = bfd_elf_get_elf_syms (abfd, symtab_hdr, symtab_hdr->sh_info, 0, NULL, NULL, NULL);
1915 symtab_hdr->contents = (bfd_byte *) intsyms;
1916 }
1917
1918 if (shndx_hdr->sh_size != 0)
1919 {
1920 bfd_size_type amt;
1921
1922 amt = symtab_hdr->sh_info;
1923 amt *= sizeof (Elf_External_Sym_Shndx);
1924 shndx_buf = (Elf_External_Sym_Shndx *) bfd_malloc (amt);
1925 if (shndx_buf == NULL)
1926 goto error_return;
1927 if (bfd_seek (abfd, shndx_hdr->sh_offset, SEEK_SET) != 0
1928 || bfd_bread (shndx_buf, amt, abfd) != amt)
1929 goto error_return;
1930 shndx_hdr->contents = (bfd_byte *) shndx_buf;
1931 }
1932
1933 /* Get a copy of the native relocations. */
1934 internal_relocs = (_bfd_elf_link_read_relocs
1935 (abfd, sec, NULL, (Elf_Internal_Rela *) NULL,
1936 link_info->keep_memory));
1937 if (internal_relocs == NULL)
1938 goto error_return;
1939 if (! link_info->keep_memory)
1940 free_relocs = internal_relocs;
1941
1942 /* The RL_ relocs must be just before the operand relocs they go
1943 with, so we must sort them to guarantee this. We use bubblesort
1944 instead of qsort so we can guarantee that relocs with the same
1945 address remain in the same relative order. */
1946 reloc_bubblesort (internal_relocs, sec->reloc_count);
1947
1948 /* Walk through them looking for relaxing opportunities. */
1949 irelend = internal_relocs + sec->reloc_count;
1950
1951 /* This will either be NULL or a pointer to the next alignment
1952 relocation. */
1953 next_alignment = internal_relocs;
1954 /* This will be the previous alignment, although at first it points
1955 to the first real relocation. */
1956 prev_alignment = internal_relocs;
1957
1958 /* We calculate worst case shrinkage caused by alignment directives.
1959 No fool-proof, but better than either ignoring the problem or
1960 doing heavy duty analysis of all the alignment markers in all
1961 input sections. */
1962 section_alignment_glue = 0;
1963 for (irel = internal_relocs; irel < irelend; irel++)
1964 if (ELF32_R_TYPE (irel->r_info) == R_RX_RH_RELAX
1965 && irel->r_addend & RX_RELAXA_ALIGN)
1966 {
1967 int this_glue = 1 << (irel->r_addend & RX_RELAXA_ANUM);
1968
1969 if (section_alignment_glue < this_glue)
1970 section_alignment_glue = this_glue;
1971 }
1972 /* Worst case is all 0..N alignments, in order, causing 2*N-1 byte
1973 shrinkage. */
1974 section_alignment_glue *= 2;
1975
1976 for (irel = internal_relocs; irel < irelend; irel++)
1977 {
1978 unsigned char *insn;
1979 int nrelocs;
1980
1981 /* The insns we care about are all marked with one of these. */
1982 if (ELF32_R_TYPE (irel->r_info) != R_RX_RH_RELAX)
1983 continue;
1984
1985 if (irel->r_addend & RX_RELAXA_ALIGN
1986 || next_alignment == internal_relocs)
1987 {
1988 /* When we delete bytes, we need to maintain all the alignments
1989 indicated. In addition, we need to be careful about relaxing
1990 jumps across alignment boundaries - these displacements
1991 *grow* when we delete bytes. For now, don't shrink
1992 displacements across an alignment boundary, just in case.
1993 Note that this only affects relocations to the same
1994 section. */
1995 prev_alignment = next_alignment;
1996 next_alignment += 2;
1997 while (next_alignment < irelend
1998 && (ELF32_R_TYPE (next_alignment->r_info) != R_RX_RH_RELAX
1999 || !(next_alignment->r_addend & RX_RELAXA_ELIGN)))
2000 next_alignment ++;
2001 if (next_alignment >= irelend || next_alignment->r_offset == 0)
2002 next_alignment = NULL;
2003 }
2004
2005 /* When we hit alignment markers, see if we've shrunk enough
2006 before them to reduce the gap without violating the alignment
2007 requirements. */
2008 if (irel->r_addend & RX_RELAXA_ALIGN)
2009 {
2010 /* At this point, the next relocation *should* be the ELIGN
2011 end marker. */
2012 Elf_Internal_Rela *erel = irel + 1;
2013 unsigned int alignment, nbytes;
2014
2015 if (ELF32_R_TYPE (erel->r_info) != R_RX_RH_RELAX)
2016 continue;
2017 if (!(erel->r_addend & RX_RELAXA_ELIGN))
2018 continue;
2019
2020 alignment = 1 << (irel->r_addend & RX_RELAXA_ANUM);
2021
2022 if (erel->r_offset - irel->r_offset < alignment)
2023 continue;
2024
2025 nbytes = erel->r_offset - irel->r_offset;
2026 nbytes /= alignment;
2027 nbytes *= alignment;
2028
2029 elf32_rx_relax_delete_bytes (abfd, sec, erel->r_offset-nbytes, nbytes, next_alignment,
2030 erel->r_offset == sec->size);
2031 *again = TRUE;
2032
2033 continue;
2034 }
2035
2036 if (irel->r_addend & RX_RELAXA_ELIGN)
2037 continue;
2038
2039 insn = contents + irel->r_offset;
2040
2041 nrelocs = irel->r_addend & RX_RELAXA_RNUM;
2042
2043 /* At this point, we have an insn that is a candidate for linker
2044 relaxation. There are NRELOCS relocs following that may be
2045 relaxed, although each reloc may be made of more than one
2046 reloc entry (such as gp-rel symbols). */
2047
2048 /* Get the value of the symbol referred to by the reloc. Just
2049 in case this is the last reloc in the list, use the RL's
2050 addend to choose between this reloc (no addend) or the next
2051 (yes addend, which means at least one following reloc). */
2052
2053 /* srel points to the "current" reloction for this insn -
2054 actually the last reloc for a given operand, which is the one
2055 we need to update. We check the relaxations in the same
2056 order that the relocations happen, so we'll just push it
2057 along as we go. */
2058 srel = irel;
2059
2060 pc = sec->output_section->vma + sec->output_offset
2061 + srel->r_offset;
2062
2063 #define GET_RELOC \
2064 symval = OFFSET_FOR_RELOC (srel, &srel, &scale); \
2065 pcrel = symval - pc + srel->r_addend; \
2066 nrelocs --;
2067
2068 #define SNIPNR(offset, nbytes) \
2069 elf32_rx_relax_delete_bytes (abfd, sec, (insn - contents) + offset, nbytes, next_alignment, 0);
2070 #define SNIP(offset, nbytes, newtype) \
2071 SNIPNR (offset, nbytes); \
2072 srel->r_info = ELF32_R_INFO (ELF32_R_SYM (srel->r_info), newtype)
2073
2074 /* The order of these bit tests must match the order that the
2075 relocs appear in. Since we sorted those by offset, we can
2076 predict them. */
2077
2078 /* Note that the numbers in, say, DSP6 are the bit offsets of
2079 the code fields that describe the operand. Bits number 0 for
2080 the MSB of insn[0]. */
2081
2082 /* DSP* codes:
2083 0 00 [reg]
2084 1 01 dsp:8[reg]
2085 2 10 dsp:16[reg]
2086 3 11 reg */
2087 if (irel->r_addend & RX_RELAXA_DSP6)
2088 {
2089 GET_RELOC;
2090
2091 code = insn[0] & 3;
2092 if (code == 2 && symval/scale <= 255)
2093 {
2094 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2095 insn[0] &= 0xfc;
2096 insn[0] |= 0x01;
2097 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2098 if (newrel != ELF32_R_TYPE (srel->r_info))
2099 {
2100 SNIP (3, 1, newrel);
2101 *again = TRUE;
2102 }
2103 }
2104
2105 else if (code == 1 && symval == 0)
2106 {
2107 insn[0] &= 0xfc;
2108 SNIP (2, 1, R_RX_NONE);
2109 *again = TRUE;
2110 }
2111
2112 /* Special case DSP:5 format: MOV.bwl dsp:5[Rsrc],Rdst. */
2113 else if (code == 1 && symval/scale <= 31
2114 /* Decodable bits. */
2115 && (insn[0] & 0xcc) == 0xcc
2116 /* Width. */
2117 && (insn[0] & 0x30) != 0x30
2118 /* Register MSBs. */
2119 && (insn[1] & 0x88) == 0x00)
2120 {
2121 int newrel = 0;
2122
2123 insn[0] = 0x88 | (insn[0] & 0x30);
2124 /* The register fields are in the right place already. */
2125
2126 /* We can't relax this new opcode. */
2127 irel->r_addend = 0;
2128
2129 switch ((insn[0] & 0x30) >> 4)
2130 {
2131 case 0:
2132 newrel = R_RX_RH_ABS5p5B;
2133 break;
2134 case 1:
2135 newrel = R_RX_RH_ABS5p5W;
2136 break;
2137 case 2:
2138 newrel = R_RX_RH_ABS5p5L;
2139 break;
2140 }
2141
2142 move_reloc (irel, srel, -2);
2143 SNIP (2, 1, newrel);
2144 }
2145
2146 /* Special case DSP:5 format: MOVU.bw dsp:5[Rsrc],Rdst. */
2147 else if (code == 1 && symval/scale <= 31
2148 /* Decodable bits. */
2149 && (insn[0] & 0xf8) == 0x58
2150 /* Register MSBs. */
2151 && (insn[1] & 0x88) == 0x00)
2152 {
2153 int newrel = 0;
2154
2155 insn[0] = 0xb0 | ((insn[0] & 0x04) << 1);
2156 /* The register fields are in the right place already. */
2157
2158 /* We can't relax this new opcode. */
2159 irel->r_addend = 0;
2160
2161 switch ((insn[0] & 0x08) >> 3)
2162 {
2163 case 0:
2164 newrel = R_RX_RH_ABS5p5B;
2165 break;
2166 case 1:
2167 newrel = R_RX_RH_ABS5p5W;
2168 break;
2169 }
2170
2171 move_reloc (irel, srel, -2);
2172 SNIP (2, 1, newrel);
2173 }
2174 }
2175
2176 /* A DSP4 operand always follows a DSP6 operand, even if there's
2177 no relocation for it. We have to read the code out of the
2178 opcode to calculate the offset of the operand. */
2179 if (irel->r_addend & RX_RELAXA_DSP4)
2180 {
2181 int code6, offset = 0;
2182
2183 GET_RELOC;
2184
2185 code6 = insn[0] & 0x03;
2186 switch (code6)
2187 {
2188 case 0: offset = 2; break;
2189 case 1: offset = 3; break;
2190 case 2: offset = 4; break;
2191 case 3: offset = 2; break;
2192 }
2193
2194 code = (insn[0] & 0x0c) >> 2;
2195
2196 if (code == 2 && symval / scale <= 255)
2197 {
2198 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2199
2200 insn[0] &= 0xf3;
2201 insn[0] |= 0x04;
2202 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2203 if (newrel != ELF32_R_TYPE (srel->r_info))
2204 {
2205 SNIP (offset+1, 1, newrel);
2206 *again = TRUE;
2207 }
2208 }
2209
2210 else if (code == 1 && symval == 0)
2211 {
2212 insn[0] &= 0xf3;
2213 SNIP (offset, 1, R_RX_NONE);
2214 *again = TRUE;
2215 }
2216 /* Special case DSP:5 format: MOV.bwl Rsrc,dsp:5[Rdst] */
2217 else if (code == 1 && symval/scale <= 31
2218 /* Decodable bits. */
2219 && (insn[0] & 0xc3) == 0xc3
2220 /* Width. */
2221 && (insn[0] & 0x30) != 0x30
2222 /* Register MSBs. */
2223 && (insn[1] & 0x88) == 0x00)
2224 {
2225 int newrel = 0;
2226
2227 insn[0] = 0x80 | (insn[0] & 0x30);
2228 /* The register fields are in the right place already. */
2229
2230 /* We can't relax this new opcode. */
2231 irel->r_addend = 0;
2232
2233 switch ((insn[0] & 0x30) >> 4)
2234 {
2235 case 0:
2236 newrel = R_RX_RH_ABS5p5B;
2237 break;
2238 case 1:
2239 newrel = R_RX_RH_ABS5p5W;
2240 break;
2241 case 2:
2242 newrel = R_RX_RH_ABS5p5L;
2243 break;
2244 }
2245
2246 move_reloc (irel, srel, -2);
2247 SNIP (2, 1, newrel);
2248 }
2249 }
2250
2251 /* These always occur alone, but the offset depends on whether
2252 it's a MEMEX opcode (0x06) or not. */
2253 if (irel->r_addend & RX_RELAXA_DSP14)
2254 {
2255 int offset;
2256 GET_RELOC;
2257
2258 if (insn[0] == 0x06)
2259 offset = 3;
2260 else
2261 offset = 4;
2262
2263 code = insn[1] & 3;
2264
2265 if (code == 2 && symval / scale <= 255)
2266 {
2267 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2268
2269 insn[1] &= 0xfc;
2270 insn[1] |= 0x01;
2271 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2272 if (newrel != ELF32_R_TYPE (srel->r_info))
2273 {
2274 SNIP (offset, 1, newrel);
2275 *again = TRUE;
2276 }
2277 }
2278 else if (code == 1 && symval == 0)
2279 {
2280 insn[1] &= 0xfc;
2281 SNIP (offset, 1, R_RX_NONE);
2282 *again = TRUE;
2283 }
2284 }
2285
2286 /* IMM* codes:
2287 0 00 imm:32
2288 1 01 simm:8
2289 2 10 simm:16
2290 3 11 simm:24. */
2291
2292 /* These always occur alone. */
2293 if (irel->r_addend & RX_RELAXA_IMM6)
2294 {
2295 long ssymval;
2296
2297 GET_RELOC;
2298
2299 /* These relocations sign-extend, so we must do signed compares. */
2300 ssymval = (long) symval;
2301
2302 code = insn[0] & 0x03;
2303
2304 if (code == 0 && ssymval <= 8388607 && ssymval >= -8388608)
2305 {
2306 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2307
2308 insn[0] &= 0xfc;
2309 insn[0] |= 0x03;
2310 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2311 if (newrel != ELF32_R_TYPE (srel->r_info))
2312 {
2313 SNIP (2, 1, newrel);
2314 *again = TRUE;
2315 }
2316 }
2317
2318 else if (code == 3 && ssymval <= 32767 && ssymval >= -32768)
2319 {
2320 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2321
2322 insn[0] &= 0xfc;
2323 insn[0] |= 0x02;
2324 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2325 if (newrel != ELF32_R_TYPE (srel->r_info))
2326 {
2327 SNIP (2, 1, newrel);
2328 *again = TRUE;
2329 }
2330 }
2331
2332 /* Special case UIMM8 format: CMP #uimm8,Rdst. */
2333 else if (code == 2 && ssymval <= 255 && ssymval >= 16
2334 /* Decodable bits. */
2335 && (insn[0] & 0xfc) == 0x74
2336 /* Decodable bits. */
2337 && ((insn[1] & 0xf0) == 0x00))
2338 {
2339 int newrel;
2340
2341 insn[0] = 0x75;
2342 insn[1] = 0x50 | (insn[1] & 0x0f);
2343
2344 /* We can't relax this new opcode. */
2345 irel->r_addend = 0;
2346
2347 if (STACK_REL_P (ELF32_R_TYPE (srel->r_info)))
2348 newrel = R_RX_ABS8U;
2349 else
2350 newrel = R_RX_DIR8U;
2351
2352 SNIP (2, 1, newrel);
2353 *again = TRUE;
2354 }
2355
2356 else if (code == 2 && ssymval <= 127 && ssymval >= -128)
2357 {
2358 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2359
2360 insn[0] &= 0xfc;
2361 insn[0] |= 0x01;
2362 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2363 if (newrel != ELF32_R_TYPE (srel->r_info))
2364 {
2365 SNIP (2, 1, newrel);
2366 *again = TRUE;
2367 }
2368 }
2369
2370 /* Special case UIMM4 format: CMP, MUL, AND, OR. */
2371 else if (code == 1 && ssymval <= 15 && ssymval >= 0
2372 /* Decodable bits and immediate type. */
2373 && insn[0] == 0x75
2374 /* Decodable bits. */
2375 && (insn[1] & 0xc0) == 0x00)
2376 {
2377 static const int newop[4] = { 1, 3, 4, 5 };
2378
2379 insn[0] = 0x60 | newop[insn[1] >> 4];
2380 /* The register number doesn't move. */
2381
2382 /* We can't relax this new opcode. */
2383 irel->r_addend = 0;
2384
2385 move_reloc (irel, srel, -1);
2386
2387 SNIP (2, 1, R_RX_RH_UIMM4p8);
2388 *again = TRUE;
2389 }
2390
2391 /* Special case UIMM4 format: ADD -> ADD/SUB. */
2392 else if (code == 1 && ssymval <= 15 && ssymval >= -15
2393 /* Decodable bits and immediate type. */
2394 && insn[0] == 0x71
2395 /* Same register for source and destination. */
2396 && ((insn[1] >> 4) == (insn[1] & 0x0f)))
2397 {
2398 int newrel;
2399
2400 /* Note that we can't turn "add $0,Rs" into a NOP
2401 because the flags need to be set right. */
2402
2403 if (ssymval < 0)
2404 {
2405 insn[0] = 0x60; /* Subtract. */
2406 newrel = R_RX_RH_UNEG4p8;
2407 }
2408 else
2409 {
2410 insn[0] = 0x62; /* Add. */
2411 newrel = R_RX_RH_UIMM4p8;
2412 }
2413
2414 /* The register number is in the right place. */
2415
2416 /* We can't relax this new opcode. */
2417 irel->r_addend = 0;
2418
2419 move_reloc (irel, srel, -1);
2420
2421 SNIP (2, 1, newrel);
2422 *again = TRUE;
2423 }
2424 }
2425
2426 /* These are either matched with a DSP6 (2-byte base) or an id24
2427 (3-byte base). */
2428 if (irel->r_addend & RX_RELAXA_IMM12)
2429 {
2430 int dspcode, offset = 0;
2431 long ssymval;
2432
2433 GET_RELOC;
2434
2435 if ((insn[0] & 0xfc) == 0xfc)
2436 dspcode = 1; /* Just something with one byte operand. */
2437 else
2438 dspcode = insn[0] & 3;
2439 switch (dspcode)
2440 {
2441 case 0: offset = 2; break;
2442 case 1: offset = 3; break;
2443 case 2: offset = 4; break;
2444 case 3: offset = 2; break;
2445 }
2446
2447 /* These relocations sign-extend, so we must do signed compares. */
2448 ssymval = (long) symval;
2449
2450 code = (insn[1] >> 2) & 3;
2451 if (code == 0 && ssymval <= 8388607 && ssymval >= -8388608)
2452 {
2453 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2454
2455 insn[1] &= 0xf3;
2456 insn[1] |= 0x0c;
2457 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2458 if (newrel != ELF32_R_TYPE (srel->r_info))
2459 {
2460 SNIP (offset, 1, newrel);
2461 *again = TRUE;
2462 }
2463 }
2464
2465 else if (code == 3 && ssymval <= 32767 && ssymval >= -32768)
2466 {
2467 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2468
2469 insn[1] &= 0xf3;
2470 insn[1] |= 0x08;
2471 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2472 if (newrel != ELF32_R_TYPE (srel->r_info))
2473 {
2474 SNIP (offset, 1, newrel);
2475 *again = TRUE;
2476 }
2477 }
2478
2479 /* Special case UIMM8 format: MOV #uimm8,Rdst. */
2480 else if (code == 2 && ssymval <= 255 && ssymval >= 16
2481 /* Decodable bits. */
2482 && insn[0] == 0xfb
2483 /* Decodable bits. */
2484 && ((insn[1] & 0x03) == 0x02))
2485 {
2486 int newrel;
2487
2488 insn[0] = 0x75;
2489 insn[1] = 0x40 | (insn[1] >> 4);
2490
2491 /* We can't relax this new opcode. */
2492 irel->r_addend = 0;
2493
2494 if (STACK_REL_P (ELF32_R_TYPE (srel->r_info)))
2495 newrel = R_RX_ABS8U;
2496 else
2497 newrel = R_RX_DIR8U;
2498
2499 SNIP (2, 1, newrel);
2500 *again = TRUE;
2501 }
2502
2503 else if (code == 2 && ssymval <= 127 && ssymval >= -128)
2504 {
2505 unsigned int newrel = ELF32_R_TYPE(srel->r_info);
2506
2507 insn[1] &= 0xf3;
2508 insn[1] |= 0x04;
2509 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2510 if (newrel != ELF32_R_TYPE(srel->r_info))
2511 {
2512 SNIP (offset, 1, newrel);
2513 *again = TRUE;
2514 }
2515 }
2516
2517 /* Special case UIMM4 format: MOV #uimm4,Rdst. */
2518 else if (code == 1 && ssymval <= 15 && ssymval >= 0
2519 /* Decodable bits. */
2520 && insn[0] == 0xfb
2521 /* Decodable bits. */
2522 && ((insn[1] & 0x03) == 0x02))
2523 {
2524 insn[0] = 0x66;
2525 insn[1] = insn[1] >> 4;
2526
2527 /* We can't relax this new opcode. */
2528 irel->r_addend = 0;
2529
2530 move_reloc (irel, srel, -1);
2531
2532 SNIP (2, 1, R_RX_RH_UIMM4p8);
2533 *again = TRUE;
2534 }
2535 }
2536
2537 if (irel->r_addend & RX_RELAXA_BRA)
2538 {
2539 unsigned int newrel = ELF32_R_TYPE (srel->r_info);
2540 int max_pcrel3 = 4;
2541 int alignment_glue = 0;
2542
2543 GET_RELOC;
2544
2545 /* Branches over alignment chunks are problematic, as
2546 deleting bytes here makes the branch *further* away. We
2547 can be agressive with branches within this alignment
2548 block, but not branches outside it. */
2549 if ((prev_alignment == NULL
2550 || symval < (bfd_vma)(sec_start + prev_alignment->r_offset))
2551 && (next_alignment == NULL
2552 || symval > (bfd_vma)(sec_start + next_alignment->r_offset)))
2553 alignment_glue = section_alignment_glue;
2554
2555 if (ELF32_R_TYPE(srel[1].r_info) == R_RX_RH_RELAX
2556 && srel[1].r_addend & RX_RELAXA_BRA
2557 && srel[1].r_offset < irel->r_offset + pcrel)
2558 max_pcrel3 ++;
2559
2560 newrel = next_smaller_reloc (ELF32_R_TYPE (srel->r_info));
2561
2562 /* The values we compare PCREL with are not what you'd
2563 expect; they're off by a little to compensate for (1)
2564 where the reloc is relative to the insn, and (2) how much
2565 the insn is going to change when we relax it. */
2566
2567 /* These we have to decode. */
2568 switch (insn[0])
2569 {
2570 case 0x04: /* BRA pcdsp:24 */
2571 if (-32768 + alignment_glue <= pcrel
2572 && pcrel <= 32765 - alignment_glue)
2573 {
2574 insn[0] = 0x38;
2575 SNIP (3, 1, newrel);
2576 *again = TRUE;
2577 }
2578 break;
2579
2580 case 0x38: /* BRA pcdsp:16 */
2581 if (-128 + alignment_glue <= pcrel
2582 && pcrel <= 127 - alignment_glue)
2583 {
2584 insn[0] = 0x2e;
2585 SNIP (2, 1, newrel);
2586 *again = TRUE;
2587 }
2588 break;
2589
2590 case 0x2e: /* BRA pcdsp:8 */
2591 /* Note that there's a risk here of shortening things so
2592 much that we no longer fit this reloc; it *should*
2593 only happen when you branch across a branch, and that
2594 branch also devolves into BRA.S. "Real" code should
2595 be OK. */
2596 if (max_pcrel3 + alignment_glue <= pcrel
2597 && pcrel <= 10 - alignment_glue
2598 && allow_pcrel3)
2599 {
2600 insn[0] = 0x08;
2601 SNIP (1, 1, newrel);
2602 move_reloc (irel, srel, -1);
2603 *again = TRUE;
2604 }
2605 break;
2606
2607 case 0x05: /* BSR pcdsp:24 */
2608 if (-32768 + alignment_glue <= pcrel
2609 && pcrel <= 32765 - alignment_glue)
2610 {
2611 insn[0] = 0x39;
2612 SNIP (1, 1, newrel);
2613 *again = TRUE;
2614 }
2615 break;
2616
2617 case 0x3a: /* BEQ.W pcdsp:16 */
2618 case 0x3b: /* BNE.W pcdsp:16 */
2619 if (-128 + alignment_glue <= pcrel
2620 && pcrel <= 127 - alignment_glue)
2621 {
2622 insn[0] = 0x20 | (insn[0] & 1);
2623 SNIP (1, 1, newrel);
2624 *again = TRUE;
2625 }
2626 break;
2627
2628 case 0x20: /* BEQ.B pcdsp:8 */
2629 case 0x21: /* BNE.B pcdsp:8 */
2630 if (max_pcrel3 + alignment_glue <= pcrel
2631 && pcrel - alignment_glue <= 10
2632 && allow_pcrel3)
2633 {
2634 insn[0] = 0x10 | ((insn[0] & 1) << 3);
2635 SNIP (1, 1, newrel);
2636 move_reloc (irel, srel, -1);
2637 *again = TRUE;
2638 }
2639 break;
2640
2641 case 0x16: /* synthetic BNE dsp24 */
2642 case 0x1e: /* synthetic BEQ dsp24 */
2643 if (-32767 + alignment_glue <= pcrel
2644 && pcrel <= 32766 - alignment_glue
2645 && insn[1] == 0x04)
2646 {
2647 if (insn[0] == 0x16)
2648 insn[0] = 0x3b;
2649 else
2650 insn[0] = 0x3a;
2651 /* We snip out the bytes at the end else the reloc
2652 will get moved too, and too much. */
2653 SNIP (3, 2, newrel);
2654 move_reloc (irel, srel, -1);
2655 *again = TRUE;
2656 }
2657 break;
2658 }
2659
2660 /* Special case - synthetic conditional branches, pcrel24.
2661 Note that EQ and NE have been handled above. */
2662 if ((insn[0] & 0xf0) == 0x20
2663 && insn[1] == 0x06
2664 && insn[2] == 0x04
2665 && srel->r_offset != irel->r_offset + 1
2666 && -32767 + alignment_glue <= pcrel
2667 && pcrel <= 32766 - alignment_glue)
2668 {
2669 insn[1] = 0x05;
2670 insn[2] = 0x38;
2671 SNIP (5, 1, newrel);
2672 *again = TRUE;
2673 }
2674
2675 /* Special case - synthetic conditional branches, pcrel16 */
2676 if ((insn[0] & 0xf0) == 0x20
2677 && insn[1] == 0x05
2678 && insn[2] == 0x38
2679 && srel->r_offset != irel->r_offset + 1
2680 && -127 + alignment_glue <= pcrel
2681 && pcrel <= 126 - alignment_glue)
2682 {
2683 int cond = (insn[0] & 0x0f) ^ 0x01;
2684
2685 insn[0] = 0x20 | cond;
2686 /* By moving the reloc first, we avoid having
2687 delete_bytes move it also. */
2688 move_reloc (irel, srel, -2);
2689 SNIP (2, 3, newrel);
2690 *again = TRUE;
2691 }
2692 }
2693
2694 BFD_ASSERT (nrelocs == 0);
2695
2696 /* Special case - check MOV.bwl #IMM, dsp[reg] and see if we can
2697 use MOV.bwl #uimm:8, dsp:5[r7] format. This is tricky
2698 because it may have one or two relocations. */
2699 if ((insn[0] & 0xfc) == 0xf8
2700 && (insn[1] & 0x80) == 0x00
2701 && (insn[0] & 0x03) != 0x03)
2702 {
2703 int dcode, icode, reg, ioff, dscale, ilen;
2704 bfd_vma disp_val = 0;
2705 long imm_val = 0;
2706 Elf_Internal_Rela * disp_rel = 0;
2707 Elf_Internal_Rela * imm_rel = 0;
2708
2709 /* Reset this. */
2710 srel = irel;
2711
2712 dcode = insn[0] & 0x03;
2713 icode = (insn[1] >> 2) & 0x03;
2714 reg = (insn[1] >> 4) & 0x0f;
2715
2716 ioff = dcode == 1 ? 3 : dcode == 2 ? 4 : 2;
2717
2718 /* Figure out what the dispacement is. */
2719 if (dcode == 1 || dcode == 2)
2720 {
2721 /* There's a displacement. See if there's a reloc for it. */
2722 if (srel[1].r_offset == irel->r_offset + 2)
2723 {
2724 GET_RELOC;
2725 disp_val = symval;
2726 disp_rel = srel;
2727 }
2728 else
2729 {
2730 if (dcode == 1)
2731 disp_val = insn[2];
2732 else
2733 {
2734 #if RX_OPCODE_BIG_ENDIAN
2735 disp_val = insn[2] * 256 + insn[3];
2736 #else
2737 disp_val = insn[2] + insn[3] * 256;
2738 #endif
2739 }
2740 switch (insn[1] & 3)
2741 {
2742 case 1:
2743 disp_val *= 2;
2744 scale = 2;
2745 break;
2746 case 2:
2747 disp_val *= 4;
2748 scale = 4;
2749 break;
2750 }
2751 }
2752 }
2753
2754 dscale = scale;
2755
2756 /* Figure out what the immediate is. */
2757 if (srel[1].r_offset == irel->r_offset + ioff)
2758 {
2759 GET_RELOC;
2760 imm_val = (long) symval;
2761 imm_rel = srel;
2762 }
2763 else
2764 {
2765 unsigned char * ip = insn + ioff;
2766
2767 switch (icode)
2768 {
2769 case 1:
2770 /* For byte writes, we don't sign extend. Makes the math easier later. */
2771 if (scale == 1)
2772 imm_val = ip[0];
2773 else
2774 imm_val = (char) ip[0];
2775 break;
2776 case 2:
2777 #if RX_OPCODE_BIG_ENDIAN
2778 imm_val = ((char) ip[0] << 8) | ip[1];
2779 #else
2780 imm_val = ((char) ip[1] << 8) | ip[0];
2781 #endif
2782 break;
2783 case 3:
2784 #if RX_OPCODE_BIG_ENDIAN
2785 imm_val = ((char) ip[0] << 16) | (ip[1] << 8) | ip[2];
2786 #else
2787 imm_val = ((char) ip[2] << 16) | (ip[1] << 8) | ip[0];
2788 #endif
2789 break;
2790 case 0:
2791 #if RX_OPCODE_BIG_ENDIAN
2792 imm_val = (ip[0] << 24) | (ip[1] << 16) | (ip[2] << 8) | ip[3];
2793 #else
2794 imm_val = (ip[3] << 24) | (ip[2] << 16) | (ip[1] << 8) | ip[0];
2795 #endif
2796 break;
2797 }
2798 }
2799
2800 ilen = 2;
2801
2802 switch (dcode)
2803 {
2804 case 1:
2805 ilen += 1;
2806 break;
2807 case 2:
2808 ilen += 2;
2809 break;
2810 }
2811
2812 switch (icode)
2813 {
2814 case 1:
2815 ilen += 1;
2816 break;
2817 case 2:
2818 ilen += 2;
2819 break;
2820 case 3:
2821 ilen += 3;
2822 break;
2823 case 4:
2824 ilen += 4;
2825 break;
2826 }
2827
2828 /* The shortcut happens when the immediate is 0..255,
2829 register r0 to r7, and displacement (scaled) 0..31. */
2830
2831 if (0 <= imm_val && imm_val <= 255
2832 && 0 <= reg && reg <= 7
2833 && disp_val / dscale <= 31)
2834 {
2835 insn[0] = 0x3c | (insn[1] & 0x03);
2836 insn[1] = (((disp_val / dscale) << 3) & 0x80) | (reg << 4) | ((disp_val/dscale) & 0x0f);
2837 insn[2] = imm_val;
2838
2839 if (disp_rel)
2840 {
2841 int newrel = R_RX_NONE;
2842
2843 switch (dscale)
2844 {
2845 case 1:
2846 newrel = R_RX_RH_ABS5p8B;
2847 break;
2848 case 2:
2849 newrel = R_RX_RH_ABS5p8W;
2850 break;
2851 case 4:
2852 newrel = R_RX_RH_ABS5p8L;
2853 break;
2854 }
2855 disp_rel->r_info = ELF32_R_INFO (ELF32_R_SYM (disp_rel->r_info), newrel);
2856 move_reloc (irel, disp_rel, -1);
2857 }
2858 if (imm_rel)
2859 {
2860 imm_rel->r_info = ELF32_R_INFO (ELF32_R_SYM (imm_rel->r_info), R_RX_DIR8U);
2861 move_reloc (disp_rel ? disp_rel : irel,
2862 imm_rel,
2863 irel->r_offset - imm_rel->r_offset + 2);
2864 }
2865
2866 SNIPNR (3, ilen - 3);
2867 *again = TRUE;
2868
2869 /* We can't relax this new opcode. */
2870 irel->r_addend = 0;
2871 }
2872 }
2873 }
2874
2875 /* We can't reliably relax branches to DIR3U_PCREL unless we know
2876 whatever they're branching over won't shrink any more. If we're
2877 basically done here, do one more pass just for branches - but
2878 don't request a pass after that one! */
2879 if (!*again && !allow_pcrel3)
2880 {
2881 bfd_boolean ignored;
2882
2883 elf32_rx_relax_section (abfd, sec, link_info, &ignored, TRUE);
2884 }
2885
2886 return TRUE;
2887
2888 error_return:
2889 if (free_relocs != NULL)
2890 free (free_relocs);
2891
2892 if (free_contents != NULL)
2893 free (free_contents);
2894
2895 if (shndx_buf != NULL)
2896 {
2897 shndx_hdr->contents = NULL;
2898 free (shndx_buf);
2899 }
2900
2901 if (free_intsyms != NULL)
2902 free (free_intsyms);
2903
2904 return FALSE;
2905 }
2906
2907 static bfd_boolean
2908 elf32_rx_relax_section_wrapper (bfd * abfd,
2909 asection * sec,
2910 struct bfd_link_info * link_info,
2911 bfd_boolean * again)
2912 {
2913 return elf32_rx_relax_section (abfd, sec, link_info, again, FALSE);
2914 }
2915 \f
2916 /* Function to set the ELF flag bits. */
2917
2918 static bfd_boolean
2919 rx_elf_set_private_flags (bfd * abfd, flagword flags)
2920 {
2921 elf_elfheader (abfd)->e_flags = flags;
2922 elf_flags_init (abfd) = TRUE;
2923 return TRUE;
2924 }
2925
2926 static bfd_boolean no_warn_mismatch = FALSE;
2927 static bfd_boolean ignore_lma = TRUE;
2928
2929 void bfd_elf32_rx_set_target_flags (bfd_boolean, bfd_boolean);
2930
2931 void
2932 bfd_elf32_rx_set_target_flags (bfd_boolean user_no_warn_mismatch,
2933 bfd_boolean user_ignore_lma)
2934 {
2935 no_warn_mismatch = user_no_warn_mismatch;
2936 ignore_lma = user_ignore_lma;
2937 }
2938
2939 /* Converts FLAGS into a descriptive string.
2940 Returns a static pointer. */
2941
2942 static const char *
2943 describe_flags (flagword flags)
2944 {
2945 static char buf [128];
2946
2947 buf[0] = 0;
2948
2949 if (flags & E_FLAG_RX_64BIT_DOUBLES)
2950 strcat (buf, "64-bit doubles");
2951 else
2952 strcat (buf, "32-bit doubles");
2953
2954 if (flags & E_FLAG_RX_DSP)
2955 strcat (buf, ", dsp");
2956 else
2957 strcat (buf, ", no dsp");
2958
2959 if (flags & E_FLAG_RX_PID)
2960 strcat (buf, ", pid");
2961 else
2962 strcat (buf, ", no pid");
2963
2964 if (flags & E_FLAG_RX_ABI)
2965 strcat (buf, ", RX ABI");
2966 else
2967 strcat (buf, ", GCC ABI");
2968
2969 return buf;
2970 }
2971
2972 /* Merge backend specific data from an object file to the output
2973 object file when linking. */
2974
2975 static bfd_boolean
2976 rx_elf_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
2977 {
2978 flagword old_flags;
2979 flagword new_flags;
2980 bfd_boolean error = FALSE;
2981
2982 new_flags = elf_elfheader (ibfd)->e_flags;
2983 old_flags = elf_elfheader (obfd)->e_flags;
2984
2985 if (!elf_flags_init (obfd))
2986 {
2987 /* First call, no flags set. */
2988 elf_flags_init (obfd) = TRUE;
2989 elf_elfheader (obfd)->e_flags = new_flags;
2990 }
2991 else if (old_flags != new_flags)
2992 {
2993 flagword known_flags;
2994
2995 known_flags = E_FLAG_RX_ABI | E_FLAG_RX_64BIT_DOUBLES
2996 | E_FLAG_RX_DSP | E_FLAG_RX_PID;
2997
2998 if ((old_flags ^ new_flags) & known_flags)
2999 {
3000 /* Only complain if flag bits we care about do not match.
3001 Other bits may be set, since older binaries did use some
3002 deprecated flags. */
3003 if (no_warn_mismatch)
3004 {
3005 elf_elfheader (obfd)->e_flags = (new_flags | old_flags) & known_flags;
3006 }
3007 else
3008 {
3009 _bfd_error_handler ("There is a conflict merging the ELF header flags from %s",
3010 bfd_get_filename (ibfd));
3011 _bfd_error_handler (" the input file's flags: %s",
3012 describe_flags (new_flags));
3013 _bfd_error_handler (" the output file's flags: %s",
3014 describe_flags (old_flags));
3015 error = TRUE;
3016 }
3017 }
3018 else
3019 elf_elfheader (obfd)->e_flags = new_flags & known_flags;
3020 }
3021
3022 if (error)
3023 bfd_set_error (bfd_error_bad_value);
3024
3025 return !error;
3026 }
3027 \f
3028 static bfd_boolean
3029 rx_elf_print_private_bfd_data (bfd * abfd, void * ptr)
3030 {
3031 FILE * file = (FILE *) ptr;
3032 flagword flags;
3033
3034 BFD_ASSERT (abfd != NULL && ptr != NULL);
3035
3036 /* Print normal ELF private data. */
3037 _bfd_elf_print_private_bfd_data (abfd, ptr);
3038
3039 flags = elf_elfheader (abfd)->e_flags;
3040 fprintf (file, _("private flags = 0x%lx:"), (long) flags);
3041
3042 fprintf (file, "%s", describe_flags (flags));
3043 return TRUE;
3044 }
3045
3046 /* Return the MACH for an e_flags value. */
3047
3048 static int
3049 elf32_rx_machine (bfd * abfd ATTRIBUTE_UNUSED)
3050 {
3051 #if 0 /* FIXME: EF_RX_CPU_MASK collides with E_FLAG_RX_...
3052 Need to sort out how these flag bits are used.
3053 For now we assume that the flags are OK. */
3054 if ((elf_elfheader (abfd)->e_flags & EF_RX_CPU_MASK) == EF_RX_CPU_RX)
3055 #endif
3056 return bfd_mach_rx;
3057
3058 return 0;
3059 }
3060
3061 static bfd_boolean
3062 rx_elf_object_p (bfd * abfd)
3063 {
3064 int i;
3065 unsigned int u;
3066 Elf_Internal_Phdr *phdr = elf_tdata (abfd)->phdr;
3067 int nphdrs = elf_elfheader (abfd)->e_phnum;
3068 sec_ptr bsec;
3069 static int saw_be = FALSE;
3070
3071 /* We never want to automatically choose the non-swapping big-endian
3072 target. The user can only get that explicitly, such as with -I
3073 and objcopy. */
3074 if (abfd->xvec == &bfd_elf32_rx_be_ns_vec
3075 && abfd->target_defaulted)
3076 return FALSE;
3077
3078 /* BFD->target_defaulted is not set to TRUE when a target is chosen
3079 as a fallback, so we check for "scanning" to know when to stop
3080 using the non-swapping target. */
3081 if (abfd->xvec == &bfd_elf32_rx_be_ns_vec
3082 && saw_be)
3083 return FALSE;
3084 if (abfd->xvec == &bfd_elf32_rx_be_vec)
3085 saw_be = TRUE;
3086
3087 bfd_default_set_arch_mach (abfd, bfd_arch_rx,
3088 elf32_rx_machine (abfd));
3089
3090 /* For each PHDR in the object, we must find some section that
3091 corresponds (based on matching file offsets) and use its VMA
3092 information to reconstruct the p_vaddr field we clobbered when we
3093 wrote it out. */
3094 for (i=0; i<nphdrs; i++)
3095 {
3096 for (u=0; u<elf_tdata(abfd)->num_elf_sections; u++)
3097 {
3098 Elf_Internal_Shdr *sec = elf_tdata(abfd)->elf_sect_ptr[u];
3099
3100 if (phdr[i].p_filesz
3101 && phdr[i].p_offset <= (bfd_vma) sec->sh_offset
3102 && (bfd_vma)sec->sh_offset <= phdr[i].p_offset + (phdr[i].p_filesz - 1))
3103 {
3104 /* Found one! The difference between the two addresses,
3105 plus the difference between the two file offsets, is
3106 enough information to reconstruct the lma. */
3107
3108 /* Example where they aren't:
3109 PHDR[1] = lma fffc0100 offset 00002010 size 00000100
3110 SEC[6] = vma 00000050 offset 00002050 size 00000040
3111
3112 The correct LMA for the section is fffc0140 + (2050-2010).
3113 */
3114
3115 phdr[i].p_vaddr = sec->sh_addr + (sec->sh_offset - phdr[i].p_offset);
3116 break;
3117 }
3118 }
3119
3120 /* We must update the bfd sections as well, so we don't stop
3121 with one match. */
3122 bsec = abfd->sections;
3123 while (bsec)
3124 {
3125 if (phdr[i].p_filesz
3126 && phdr[i].p_vaddr <= bsec->vma
3127 && bsec->vma <= phdr[i].p_vaddr + (phdr[i].p_filesz - 1))
3128 {
3129 bsec->lma = phdr[i].p_paddr + (bsec->vma - phdr[i].p_vaddr);
3130 }
3131 bsec = bsec->next;
3132 }
3133 }
3134
3135 return TRUE;
3136 }
3137 \f
3138
3139 #ifdef DEBUG
3140 void
3141 rx_dump_symtab (bfd * abfd, void * internal_syms, void * external_syms)
3142 {
3143 size_t locsymcount;
3144 Elf_Internal_Sym * isymbuf;
3145 Elf_Internal_Sym * isymend;
3146 Elf_Internal_Sym * isym;
3147 Elf_Internal_Shdr * symtab_hdr;
3148 bfd_boolean free_internal = FALSE, free_external = FALSE;
3149 char * st_info_str;
3150 char * st_info_stb_str;
3151 char * st_other_str;
3152 char * st_shndx_str;
3153
3154 if (! internal_syms)
3155 {
3156 internal_syms = bfd_malloc (1000);
3157 free_internal = 1;
3158 }
3159 if (! external_syms)
3160 {
3161 external_syms = bfd_malloc (1000);
3162 free_external = 1;
3163 }
3164
3165 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3166 locsymcount = symtab_hdr->sh_size / get_elf_backend_data (abfd)->s->sizeof_sym;
3167 if (free_internal)
3168 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
3169 symtab_hdr->sh_info, 0,
3170 internal_syms, external_syms, NULL);
3171 else
3172 isymbuf = internal_syms;
3173 isymend = isymbuf + locsymcount;
3174
3175 for (isym = isymbuf ; isym < isymend ; isym++)
3176 {
3177 switch (ELF_ST_TYPE (isym->st_info))
3178 {
3179 case STT_FUNC: st_info_str = "STT_FUNC"; break;
3180 case STT_SECTION: st_info_str = "STT_SECTION"; break;
3181 case STT_FILE: st_info_str = "STT_FILE"; break;
3182 case STT_OBJECT: st_info_str = "STT_OBJECT"; break;
3183 case STT_TLS: st_info_str = "STT_TLS"; break;
3184 default: st_info_str = "";
3185 }
3186 switch (ELF_ST_BIND (isym->st_info))
3187 {
3188 case STB_LOCAL: st_info_stb_str = "STB_LOCAL"; break;
3189 case STB_GLOBAL: st_info_stb_str = "STB_GLOBAL"; break;
3190 default: st_info_stb_str = "";
3191 }
3192 switch (ELF_ST_VISIBILITY (isym->st_other))
3193 {
3194 case STV_DEFAULT: st_other_str = "STV_DEFAULT"; break;
3195 case STV_INTERNAL: st_other_str = "STV_INTERNAL"; break;
3196 case STV_PROTECTED: st_other_str = "STV_PROTECTED"; break;
3197 default: st_other_str = "";
3198 }
3199 switch (isym->st_shndx)
3200 {
3201 case SHN_ABS: st_shndx_str = "SHN_ABS"; break;
3202 case SHN_COMMON: st_shndx_str = "SHN_COMMON"; break;
3203 case SHN_UNDEF: st_shndx_str = "SHN_UNDEF"; break;
3204 default: st_shndx_str = "";
3205 }
3206
3207 printf ("isym = %p st_value = %lx st_size = %lx st_name = (%lu) %s "
3208 "st_info = (%d) %s %s st_other = (%d) %s st_shndx = (%d) %s\n",
3209 isym,
3210 (unsigned long) isym->st_value,
3211 (unsigned long) isym->st_size,
3212 isym->st_name,
3213 bfd_elf_string_from_elf_section (abfd, symtab_hdr->sh_link,
3214 isym->st_name),
3215 isym->st_info, st_info_str, st_info_stb_str,
3216 isym->st_other, st_other_str,
3217 isym->st_shndx, st_shndx_str);
3218 }
3219 if (free_internal)
3220 free (internal_syms);
3221 if (free_external)
3222 free (external_syms);
3223 }
3224
3225 char *
3226 rx_get_reloc (long reloc)
3227 {
3228 if (0 <= reloc && reloc < R_RX_max)
3229 return rx_elf_howto_table[reloc].name;
3230 return "";
3231 }
3232 #endif /* DEBUG */
3233
3234 \f
3235 /* We must take care to keep the on-disk copy of any code sections
3236 that are fully linked swapped if the target is big endian, to match
3237 the Renesas tools. */
3238
3239 /* The rule is: big endian object that are final-link executables,
3240 have code sections stored with 32-bit words swapped relative to
3241 what you'd get by default. */
3242
3243 static bfd_boolean
3244 rx_get_section_contents (bfd * abfd,
3245 sec_ptr section,
3246 void * location,
3247 file_ptr offset,
3248 bfd_size_type count)
3249 {
3250 int exec = (abfd->flags & EXEC_P) ? 1 : 0;
3251 int s_code = (section->flags & SEC_CODE) ? 1 : 0;
3252 bfd_boolean rv;
3253
3254 #ifdef DJDEBUG
3255 fprintf (stderr, "dj: get %ld %ld from %s %s e%d sc%d %08lx:%08lx\n",
3256 (long) offset, (long) count, section->name,
3257 bfd_big_endian(abfd) ? "be" : "le",
3258 exec, s_code, (long unsigned) section->filepos,
3259 (long unsigned) offset);
3260 #endif
3261
3262 if (exec && s_code && bfd_big_endian (abfd))
3263 {
3264 char * cloc = (char *) location;
3265 bfd_size_type cnt, end_cnt;
3266
3267 rv = TRUE;
3268
3269 /* Fetch and swap unaligned bytes at the beginning. */
3270 if (offset % 4)
3271 {
3272 char buf[4];
3273
3274 rv = _bfd_generic_get_section_contents (abfd, section, buf,
3275 (offset & -4), 4);
3276 if (!rv)
3277 return FALSE;
3278
3279 bfd_putb32 (bfd_getl32 (buf), buf);
3280
3281 cnt = 4 - (offset % 4);
3282 if (cnt > count)
3283 cnt = count;
3284
3285 memcpy (location, buf + (offset % 4), cnt);
3286
3287 count -= cnt;
3288 offset += cnt;
3289 cloc += count;
3290 }
3291
3292 end_cnt = count % 4;
3293
3294 /* Fetch and swap the middle bytes. */
3295 if (count >= 4)
3296 {
3297 rv = _bfd_generic_get_section_contents (abfd, section, cloc, offset,
3298 count - end_cnt);
3299 if (!rv)
3300 return FALSE;
3301
3302 for (cnt = count; cnt >= 4; cnt -= 4, cloc += 4)
3303 bfd_putb32 (bfd_getl32 (cloc), cloc);
3304 }
3305
3306 /* Fetch and swap the end bytes. */
3307 if (end_cnt > 0)
3308 {
3309 char buf[4];
3310
3311 /* Fetch the end bytes. */
3312 rv = _bfd_generic_get_section_contents (abfd, section, buf,
3313 offset + count - end_cnt, 4);
3314 if (!rv)
3315 return FALSE;
3316
3317 bfd_putb32 (bfd_getl32 (buf), buf);
3318 memcpy (cloc, buf, end_cnt);
3319 }
3320 }
3321 else
3322 rv = _bfd_generic_get_section_contents (abfd, section, location, offset, count);
3323
3324 return rv;
3325 }
3326
3327 #ifdef DJDEBUG
3328 static bfd_boolean
3329 rx2_set_section_contents (bfd * abfd,
3330 sec_ptr section,
3331 const void * location,
3332 file_ptr offset,
3333 bfd_size_type count)
3334 {
3335 bfd_size_type i;
3336
3337 fprintf (stderr, " set sec %s %08x loc %p offset %#x count %#x\n",
3338 section->name, (unsigned) section->vma, location, (int) offset, (int) count);
3339 for (i = 0; i < count; i++)
3340 {
3341 if (i % 16 == 0 && i > 0)
3342 fprintf (stderr, "\n");
3343
3344 if (i % 16 && i % 4 == 0)
3345 fprintf (stderr, " ");
3346
3347 if (i % 16 == 0)
3348 fprintf (stderr, " %08x:", (int) (section->vma + offset + i));
3349
3350 fprintf (stderr, " %02x", ((unsigned char *) location)[i]);
3351 }
3352 fprintf (stderr, "\n");
3353
3354 return _bfd_elf_set_section_contents (abfd, section, location, offset, count);
3355 }
3356 #define _bfd_elf_set_section_contents rx2_set_section_contents
3357 #endif
3358
3359 static bfd_boolean
3360 rx_set_section_contents (bfd * abfd,
3361 sec_ptr section,
3362 const void * location,
3363 file_ptr offset,
3364 bfd_size_type count)
3365 {
3366 bfd_boolean exec = (abfd->flags & EXEC_P) ? TRUE : FALSE;
3367 bfd_boolean s_code = (section->flags & SEC_CODE) ? TRUE : FALSE;
3368 bfd_boolean rv;
3369 char * swapped_data = NULL;
3370 bfd_size_type i;
3371 bfd_vma caddr = section->vma + offset;
3372 file_ptr faddr = 0;
3373 bfd_size_type scount;
3374
3375 #ifdef DJDEBUG
3376 bfd_size_type i;
3377
3378 fprintf (stderr, "\ndj: set %ld %ld to %s %s e%d sc%d\n",
3379 (long) offset, (long) count, section->name,
3380 bfd_big_endian (abfd) ? "be" : "le",
3381 exec, s_code);
3382
3383 for (i = 0; i < count; i++)
3384 {
3385 int a = section->vma + offset + i;
3386
3387 if (a % 16 == 0 && a > 0)
3388 fprintf (stderr, "\n");
3389
3390 if (a % 16 && a % 4 == 0)
3391 fprintf (stderr, " ");
3392
3393 if (a % 16 == 0 || i == 0)
3394 fprintf (stderr, " %08x:", (int) (section->vma + offset + i));
3395
3396 fprintf (stderr, " %02x", ((unsigned char *) location)[i]);
3397 }
3398
3399 fprintf (stderr, "\n");
3400 #endif
3401
3402 if (! exec || ! s_code || ! bfd_big_endian (abfd))
3403 return _bfd_elf_set_section_contents (abfd, section, location, offset, count);
3404
3405 while (count > 0 && caddr > 0 && caddr % 4)
3406 {
3407 switch (caddr % 4)
3408 {
3409 case 0: faddr = offset + 3; break;
3410 case 1: faddr = offset + 1; break;
3411 case 2: faddr = offset - 1; break;
3412 case 3: faddr = offset - 3; break;
3413 }
3414
3415 rv = _bfd_elf_set_section_contents (abfd, section, location, faddr, 1);
3416 if (! rv)
3417 return rv;
3418
3419 location ++;
3420 offset ++;
3421 count --;
3422 caddr ++;
3423 }
3424
3425 scount = (int)(count / 4) * 4;
3426 if (scount > 0)
3427 {
3428 char * cloc = (char *) location;
3429
3430 swapped_data = (char *) bfd_alloc (abfd, count);
3431
3432 for (i = 0; i < count; i += 4)
3433 {
3434 bfd_vma v = bfd_getl32 (cloc + i);
3435 bfd_putb32 (v, swapped_data + i);
3436 }
3437
3438 rv = _bfd_elf_set_section_contents (abfd, section, swapped_data, offset, scount);
3439
3440 if (!rv)
3441 return rv;
3442 }
3443
3444 count -= scount;
3445 location += scount;
3446 offset += scount;
3447
3448 if (count > 0)
3449 {
3450 caddr = section->vma + offset;
3451 while (count > 0)
3452 {
3453 switch (caddr % 4)
3454 {
3455 case 0: faddr = offset + 3; break;
3456 case 1: faddr = offset + 1; break;
3457 case 2: faddr = offset - 1; break;
3458 case 3: faddr = offset - 3; break;
3459 }
3460 rv = _bfd_elf_set_section_contents (abfd, section, location, faddr, 1);
3461 if (! rv)
3462 return rv;
3463
3464 location ++;
3465 offset ++;
3466 count --;
3467 caddr ++;
3468 }
3469 }
3470
3471 return TRUE;
3472 }
3473
3474 static bfd_boolean
3475 rx_final_link (bfd * abfd, struct bfd_link_info * info)
3476 {
3477 asection * o;
3478
3479 for (o = abfd->sections; o != NULL; o = o->next)
3480 {
3481 #ifdef DJDEBUG
3482 fprintf (stderr, "sec %s fl %x vma %lx lma %lx size %lx raw %lx\n",
3483 o->name, o->flags, o->vma, o->lma, o->size, o->rawsize);
3484 #endif
3485 if (o->flags & SEC_CODE
3486 && bfd_big_endian (abfd)
3487 && o->size % 4)
3488 {
3489 #ifdef DJDEBUG
3490 fprintf (stderr, "adjusting...\n");
3491 #endif
3492 o->size += 4 - (o->size % 4);
3493 }
3494 }
3495
3496 return bfd_elf_final_link (abfd, info);
3497 }
3498
3499 static bfd_boolean
3500 elf32_rx_modify_program_headers (bfd * abfd ATTRIBUTE_UNUSED,
3501 struct bfd_link_info * info ATTRIBUTE_UNUSED)
3502 {
3503 const struct elf_backend_data * bed;
3504 struct elf_obj_tdata * tdata;
3505 Elf_Internal_Phdr * phdr;
3506 unsigned int count;
3507 unsigned int i;
3508
3509 bed = get_elf_backend_data (abfd);
3510 tdata = elf_tdata (abfd);
3511 phdr = tdata->phdr;
3512 count = elf_program_header_size (abfd) / bed->s->sizeof_phdr;
3513
3514 if (ignore_lma)
3515 for (i = count; i-- != 0;)
3516 if (phdr[i].p_type == PT_LOAD)
3517 {
3518 /* The Renesas tools expect p_paddr to be zero. However,
3519 there is no other way to store the writable data in ROM for
3520 startup initialization. So, we let the linker *think*
3521 we're using paddr and vaddr the "usual" way, but at the
3522 last minute we move the paddr into the vaddr (which is what
3523 the simulator uses) and zero out paddr. Note that this
3524 does not affect the section headers, just the program
3525 headers. We hope. */
3526 phdr[i].p_vaddr = phdr[i].p_paddr;
3527 #if 0 /* If we zero out p_paddr, then the LMA in the section table
3528 becomes wrong. */
3529 phdr[i].p_paddr = 0;
3530 #endif
3531 }
3532
3533 return TRUE;
3534 }
3535
3536 /* The default literal sections should always be marked as "code" (i.e.,
3537 SHF_EXECINSTR). This is particularly important for big-endian mode
3538 when we do not want their contents byte reversed. */
3539 static const struct bfd_elf_special_section elf32_rx_special_sections[] =
3540 {
3541 { STRING_COMMA_LEN (".init_array"), 0, SHT_INIT_ARRAY, SHF_ALLOC + SHF_EXECINSTR },
3542 { STRING_COMMA_LEN (".fini_array"), 0, SHT_FINI_ARRAY, SHF_ALLOC + SHF_EXECINSTR },
3543 { STRING_COMMA_LEN (".preinit_array"), 0, SHT_PREINIT_ARRAY, SHF_ALLOC + SHF_EXECINSTR },
3544 { NULL, 0, 0, 0, 0 }
3545 };
3546 \f
3547 #define ELF_ARCH bfd_arch_rx
3548 #define ELF_MACHINE_CODE EM_RX
3549 #define ELF_MAXPAGESIZE 0x1000
3550
3551 #define TARGET_BIG_SYM bfd_elf32_rx_be_vec
3552 #define TARGET_BIG_NAME "elf32-rx-be"
3553
3554 #define TARGET_LITTLE_SYM bfd_elf32_rx_le_vec
3555 #define TARGET_LITTLE_NAME "elf32-rx-le"
3556
3557 #define elf_info_to_howto_rel NULL
3558 #define elf_info_to_howto rx_info_to_howto_rela
3559 #define elf_backend_object_p rx_elf_object_p
3560 #define elf_backend_relocate_section rx_elf_relocate_section
3561 #define elf_symbol_leading_char ('_')
3562 #define elf_backend_can_gc_sections 1
3563 #define elf_backend_modify_program_headers elf32_rx_modify_program_headers
3564
3565 #define bfd_elf32_bfd_reloc_type_lookup rx_reloc_type_lookup
3566 #define bfd_elf32_bfd_reloc_name_lookup rx_reloc_name_lookup
3567 #define bfd_elf32_bfd_set_private_flags rx_elf_set_private_flags
3568 #define bfd_elf32_bfd_merge_private_bfd_data rx_elf_merge_private_bfd_data
3569 #define bfd_elf32_bfd_print_private_bfd_data rx_elf_print_private_bfd_data
3570 #define bfd_elf32_get_section_contents rx_get_section_contents
3571 #define bfd_elf32_set_section_contents rx_set_section_contents
3572 #define bfd_elf32_bfd_final_link rx_final_link
3573 #define bfd_elf32_bfd_relax_section elf32_rx_relax_section_wrapper
3574 #define elf_backend_special_sections elf32_rx_special_sections
3575
3576 #include "elf32-target.h"
3577
3578 /* We define a second big-endian target that doesn't have the custom
3579 section get/set hooks, for times when we want to preserve the
3580 pre-swapped .text sections (like objcopy). */
3581
3582 #undef TARGET_BIG_SYM
3583 #define TARGET_BIG_SYM bfd_elf32_rx_be_ns_vec
3584 #undef TARGET_BIG_NAME
3585 #define TARGET_BIG_NAME "elf32-rx-be-ns"
3586 #undef TARGET_LITTLE_SYM
3587
3588 #undef bfd_elf32_get_section_contents
3589 #undef bfd_elf32_set_section_contents
3590
3591 #undef elf32_bed
3592 #define elf32_bed elf32_rx_be_ns_bed
3593
3594 #include "elf32-target.h"
The GNU version of GDB