projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
2005-06-20 H.J. Lu <hongjiu.lu@intel.com>
[deliverable/binutils-gdb.git] / bfd / elf32-v850.c
CommitLineData
252b5132 1/* V850-specific support for 32-bit ELF
9553c638 2 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
7898deda 3 Free Software Foundation, Inc.
252b5132 4
86aba9db 5 This file is part of BFD, the Binary File Descriptor library.
252b5132 6
86aba9db
NC		 7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
252b5132 11
86aba9db
NC		 12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
252b5132 16
86aba9db
NC		 17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
3e110533 19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
252b5132 20
252b5132 21/* XXX FIXME: This code is littered with 32bit int, 16bit short, 8bit char
86aba9db 22 dependencies. As is the gas & simulator code for the v850. */
252b5132 23
252b5132
RH		 24#include "bfd.h"
25#include "sysdep.h"
26#include "bfdlink.h"
27#include "libbfd.h"
28#include "elf-bfd.h"
29#include "elf/v850.h"
e12dd2ea 30#include "libiberty.h"
252b5132 31
e12dd2ea 32/* Sign-extend a 24-bit number. */
dc810e39 33#define SEXT24(x) ((((x) & 0xffffff) ^ 0x800000) - 0x800000)
435b1e90 34
252b5132
RH		 35static reloc_howto_type *v850_elf_reloc_type_lookup
36 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
37static void v850_elf_info_to_howto_rel
947216bf 38 PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
252b5132 39static void v850_elf_info_to_howto_rela
947216bf 40 PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
252b5132
RH		 41static bfd_reloc_status_type v850_elf_reloc
42 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
b34976b6 43static bfd_boolean v850_elf_is_local_label_name
252b5132 44 PARAMS ((bfd *, const char *));
b34976b6 45static bfd_boolean v850_elf_relocate_section
252b5132
RH		 46 PARAMS((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
47 Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
48static bfd_reloc_status_type v850_elf_perform_relocation
dc810e39 49 PARAMS ((bfd *, unsigned int, bfd_vma, bfd_byte *));
b34976b6 50static bfd_boolean v850_elf_check_relocs
252b5132
RH		 51 PARAMS ((bfd *, struct bfd_link_info *, asection *, const Elf_Internal_Rela *));
52static void remember_hi16s_reloc
53 PARAMS ((bfd *, bfd_vma, bfd_byte *));
54static bfd_byte * find_remembered_hi16s_reloc
b34976b6 55 PARAMS ((bfd_vma, bfd_boolean *));
252b5132
RH		 56static bfd_reloc_status_type v850_elf_final_link_relocate
57 PARAMS ((reloc_howto_type *, bfd *, bfd *, asection *, bfd_byte *, bfd_vma,
58 bfd_vma, bfd_vma, struct bfd_link_info *, asection *, int));
b34976b6 59static bfd_boolean v850_elf_object_p
252b5132 60 PARAMS ((bfd *));
b34976b6 61static bfd_boolean v850_elf_fake_sections
947216bf 62 PARAMS ((bfd *, Elf_Internal_Shdr *, asection *));
252b5132 63static void v850_elf_final_write_processing
b34976b6
AM		 64 PARAMS ((bfd *, bfd_boolean));
65static bfd_boolean v850_elf_set_private_flags
252b5132 66 PARAMS ((bfd *, flagword));
b34976b6 67static bfd_boolean v850_elf_merge_private_bfd_data
252b5132 68 PARAMS ((bfd *, bfd *));
b34976b6 69static bfd_boolean v850_elf_print_private_bfd_data
252b5132 70 PARAMS ((bfd *, PTR));
b34976b6 71static bfd_boolean v850_elf_section_from_bfd_section
af746e92 72 PARAMS ((bfd *, asection *, int *));
252b5132
RH		 73static void v850_elf_symbol_processing
74 PARAMS ((bfd *, asymbol *));
b34976b6 75static bfd_boolean v850_elf_add_symbol_hook
555cd476 76 PARAMS ((bfd *, struct bfd_link_info *, Elf_Internal_Sym *,
252b5132 77 const char **, flagword *, asection **, bfd_vma *));
b34976b6 78static bfd_boolean v850_elf_link_output_symbol_hook
754021d0
AM		 79 PARAMS ((struct bfd_link_info *, const char *, Elf_Internal_Sym *,
80 asection *, struct elf_link_hash_entry *));
b34976b6 81static bfd_boolean v850_elf_gc_sweep_hook
e12dd2ea
NC		 82 PARAMS ((bfd *, struct bfd_link_info *, asection *,
83 const Elf_Internal_Rela *));
84static asection * v850_elf_gc_mark_hook
1e2f5b6e 85 PARAMS ((asection *, struct bfd_link_info *,
e12dd2ea
NC		 86 Elf_Internal_Rela *, struct elf_link_hash_entry *,
87 Elf_Internal_Sym *));
86aba9db
NC		 88static bfd_reloc_status_type v850_elf_ignore_reloc
89 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
b34976b6 90static bfd_boolean v850_elf_relax_delete_bytes
86aba9db 91 PARAMS ((bfd *, asection *, bfd_vma, bfd_vma, int));
b34976b6
AM		 92static bfd_boolean v850_elf_relax_section
93 PARAMS ((bfd *, asection *, struct bfd_link_info *, bfd_boolean *));
e12dd2ea
NC		 94
95/* Note: It is REQUIRED that the 'type' value of each entry
96 in this array match the index of the entry in the array. */
252b5132
RH		 97static reloc_howto_type v850_elf_howto_table[] =
98{
99 /* This reloc does nothing. */
100 HOWTO (R_V850_NONE, /* type */
101 0, /* rightshift */
102 2, /* size (0 = byte, 1 = short, 2 = long) */
103 32, /* bitsize */
b34976b6 104 FALSE, /* pc_relative */
252b5132
RH		 105 0, /* bitpos */
106 complain_overflow_bitfield, /* complain_on_overflow */
107 bfd_elf_generic_reloc, /* special_function */
108 "R_V850_NONE", /* name */
b34976b6 109 FALSE, /* partial_inplace */
252b5132
RH		 110 0, /* src_mask */
111 0, /* dst_mask */
b34976b6 112 FALSE), /* pcrel_offset */
252b5132 113
435b1e90 114 /* A PC relative 9 bit branch. */
252b5132
RH		 115 HOWTO (R_V850_9_PCREL, /* type */
116 2, /* rightshift */
117 2, /* size (0 = byte, 1 = short, 2 = long) */
118 26, /* bitsize */
b34976b6 119 TRUE, /* pc_relative */
252b5132
RH		 120 0, /* bitpos */
121 complain_overflow_bitfield, /* complain_on_overflow */
122 v850_elf_reloc, /* special_function */
123 "R_V850_9_PCREL", /* name */
b34976b6 124 FALSE, /* partial_inplace */
252b5132
RH		 125 0x00ffffff, /* src_mask */
126 0x00ffffff, /* dst_mask */
b34976b6 127 TRUE), /* pcrel_offset */
252b5132 128
435b1e90 129 /* A PC relative 22 bit branch. */
252b5132
RH		 130 HOWTO (R_V850_22_PCREL, /* type */
131 2, /* rightshift */
132 2, /* size (0 = byte, 1 = short, 2 = long) */
133 22, /* bitsize */
b34976b6 134 TRUE, /* pc_relative */
252b5132
RH		 135 7, /* bitpos */
136 complain_overflow_signed, /* complain_on_overflow */
137 v850_elf_reloc, /* special_function */
138 "R_V850_22_PCREL", /* name */
b34976b6 139 FALSE, /* partial_inplace */
252b5132
RH		 140 0x07ffff80, /* src_mask */
141 0x07ffff80, /* dst_mask */
b34976b6 142 TRUE), /* pcrel_offset */
252b5132
RH		 143
144 /* High 16 bits of symbol value. */
145 HOWTO (R_V850_HI16_S, /* type */
146 0, /* rightshift */
147 1, /* size (0 = byte, 1 = short, 2 = long) */
148 16, /* bitsize */
b34976b6 149 FALSE, /* pc_relative */
252b5132
RH		 150 0, /* bitpos */
151 complain_overflow_dont, /* complain_on_overflow */
152 v850_elf_reloc, /* special_function */
153 "R_V850_HI16_S", /* name */
b34976b6 154 FALSE, /* partial_inplace */
252b5132
RH		 155 0xffff, /* src_mask */
156 0xffff, /* dst_mask */
b34976b6 157 FALSE), /* pcrel_offset */
252b5132
RH		 158
159 /* High 16 bits of symbol value. */
160 HOWTO (R_V850_HI16, /* type */
161 0, /* rightshift */
162 1, /* size (0 = byte, 1 = short, 2 = long) */
163 16, /* bitsize */
b34976b6 164 FALSE, /* pc_relative */
252b5132
RH		 165 0, /* bitpos */
166 complain_overflow_dont, /* complain_on_overflow */
167 v850_elf_reloc, /* special_function */
168 "R_V850_HI16", /* name */
b34976b6 169 FALSE, /* partial_inplace */
252b5132
RH		 170 0xffff, /* src_mask */
171 0xffff, /* dst_mask */
b34976b6 172 FALSE), /* pcrel_offset */
252b5132
RH		 173
174 /* Low 16 bits of symbol value. */
175 HOWTO (R_V850_LO16, /* type */
176 0, /* rightshift */
177 1, /* size (0 = byte, 1 = short, 2 = long) */
178 16, /* bitsize */
b34976b6 179 FALSE, /* pc_relative */
252b5132
RH		 180 0, /* bitpos */
181 complain_overflow_dont, /* complain_on_overflow */
182 v850_elf_reloc, /* special_function */
183 "R_V850_LO16", /* name */
b34976b6 184 FALSE, /* partial_inplace */
252b5132
RH		 185 0xffff, /* src_mask */
186 0xffff, /* dst_mask */
b34976b6 187 FALSE), /* pcrel_offset */
252b5132
RH		 188
189 /* Simple 32bit reloc. */
e30ddb24 190 HOWTO (R_V850_ABS32, /* type */
252b5132
RH		 191 0, /* rightshift */
192 2, /* size (0 = byte, 1 = short, 2 = long) */
193 32, /* bitsize */
b34976b6 194 FALSE, /* pc_relative */
252b5132
RH		 195 0, /* bitpos */
196 complain_overflow_dont, /* complain_on_overflow */
197 v850_elf_reloc, /* special_function */
e30ddb24 198 "R_V850_ABS32", /* name */
b34976b6 199 FALSE, /* partial_inplace */
252b5132
RH		 200 0xffffffff, /* src_mask */
201 0xffffffff, /* dst_mask */
b34976b6 202 FALSE), /* pcrel_offset */
252b5132
RH		 203
204 /* Simple 16bit reloc. */
205 HOWTO (R_V850_16, /* type */
206 0, /* rightshift */
207 1, /* size (0 = byte, 1 = short, 2 = long) */
208 16, /* bitsize */
b34976b6 209 FALSE, /* pc_relative */
252b5132
RH		 210 0, /* bitpos */
211 complain_overflow_dont, /* complain_on_overflow */
212 bfd_elf_generic_reloc, /* special_function */
213 "R_V850_16", /* name */
b34976b6 214 FALSE, /* partial_inplace */
252b5132
RH		 215 0xffff, /* src_mask */
216 0xffff, /* dst_mask */
b34976b6 217 FALSE), /* pcrel_offset */
252b5132
RH		 218
219 /* Simple 8bit reloc. */
220 HOWTO (R_V850_8, /* type */
221 0, /* rightshift */
222 0, /* size (0 = byte, 1 = short, 2 = long) */
223 8, /* bitsize */
b34976b6 224 FALSE, /* pc_relative */
252b5132
RH		 225 0, /* bitpos */
226 complain_overflow_dont, /* complain_on_overflow */
227 bfd_elf_generic_reloc, /* special_function */
228 "R_V850_8", /* name */
b34976b6 229 FALSE, /* partial_inplace */
252b5132
RH		 230 0xff, /* src_mask */
231 0xff, /* dst_mask */
b34976b6 232 FALSE), /* pcrel_offset */
252b5132
RH		 233
234 /* 16 bit offset from the short data area pointer. */
235 HOWTO (R_V850_SDA_16_16_OFFSET, /* type */
236 0, /* rightshift */
237 1, /* size (0 = byte, 1 = short, 2 = long) */
238 16, /* bitsize */
b34976b6 239 FALSE, /* pc_relative */
252b5132
RH		 240 0, /* bitpos */
241 complain_overflow_dont, /* complain_on_overflow */
242 v850_elf_reloc, /* special_function */
243 "R_V850_SDA_16_16_OFFSET", /* name */
b34976b6 244 FALSE, /* partial_inplace */
252b5132
RH		 245 0xffff, /* src_mask */
246 0xffff, /* dst_mask */
b34976b6 247 FALSE), /* pcrel_offset */
252b5132
RH		 248
249 /* 15 bit offset from the short data area pointer. */
250 HOWTO (R_V850_SDA_15_16_OFFSET, /* type */
251 1, /* rightshift */
252 1, /* size (0 = byte, 1 = short, 2 = long) */
253 16, /* bitsize */
b34976b6 254 FALSE, /* pc_relative */
252b5132
RH		 255 1, /* bitpos */
256 complain_overflow_dont, /* complain_on_overflow */
257 v850_elf_reloc, /* special_function */
258 "R_V850_SDA_15_16_OFFSET", /* name */
b34976b6 259 FALSE, /* partial_inplace */
252b5132
RH		 260 0xfffe, /* src_mask */
261 0xfffe, /* dst_mask */
b34976b6 262 FALSE), /* pcrel_offset */
252b5132
RH		 263
264 /* 16 bit offset from the zero data area pointer. */
265 HOWTO (R_V850_ZDA_16_16_OFFSET, /* type */
266 0, /* rightshift */
267 1, /* size (0 = byte, 1 = short, 2 = long) */
268 16, /* bitsize */
b34976b6 269 FALSE, /* pc_relative */
252b5132
RH		 270 0, /* bitpos */
271 complain_overflow_dont, /* complain_on_overflow */
272 v850_elf_reloc, /* special_function */
273 "R_V850_ZDA_16_16_OFFSET", /* name */
b34976b6 274 FALSE, /* partial_inplace */
252b5132
RH		 275 0xffff, /* src_mask */
276 0xffff, /* dst_mask */
b34976b6 277 FALSE), /* pcrel_offset */
252b5132
RH		 278
279 /* 15 bit offset from the zero data area pointer. */
280 HOWTO (R_V850_ZDA_15_16_OFFSET, /* type */
281 1, /* rightshift */
282 1, /* size (0 = byte, 1 = short, 2 = long) */
283 16, /* bitsize */
b34976b6 284 FALSE, /* pc_relative */
252b5132
RH		 285 1, /* bitpos */
286 complain_overflow_dont, /* complain_on_overflow */
287 v850_elf_reloc, /* special_function */
288 "R_V850_ZDA_15_16_OFFSET", /* name */
b34976b6 289 FALSE, /* partial_inplace */
252b5132
RH		 290 0xfffe, /* src_mask */
291 0xfffe, /* dst_mask */
b34976b6 292 FALSE), /* pcrel_offset */
252b5132
RH		 293
294 /* 6 bit offset from the tiny data area pointer. */
295 HOWTO (R_V850_TDA_6_8_OFFSET, /* type */
296 2, /* rightshift */
297 1, /* size (0 = byte, 1 = short, 2 = long) */
298 8, /* bitsize */
b34976b6 299 FALSE, /* pc_relative */
252b5132
RH		 300 1, /* bitpos */
301 complain_overflow_dont, /* complain_on_overflow */
302 v850_elf_reloc, /* special_function */
303 "R_V850_TDA_6_8_OFFSET", /* name */
b34976b6 304 FALSE, /* partial_inplace */
252b5132
RH		 305 0x7e, /* src_mask */
306 0x7e, /* dst_mask */
b34976b6 307 FALSE), /* pcrel_offset */
252b5132
RH		 308
309 /* 8 bit offset from the tiny data area pointer. */
310 HOWTO (R_V850_TDA_7_8_OFFSET, /* type */
311 1, /* rightshift */
312 1, /* size (0 = byte, 1 = short, 2 = long) */
313 8, /* bitsize */
b34976b6 314 FALSE, /* pc_relative */
252b5132
RH		 315 0, /* bitpos */
316 complain_overflow_dont, /* complain_on_overflow */
317 v850_elf_reloc, /* special_function */
318 "R_V850_TDA_7_8_OFFSET", /* name */
b34976b6 319 FALSE, /* partial_inplace */
252b5132
RH		 320 0x7f, /* src_mask */
321 0x7f, /* dst_mask */
b34976b6 322 FALSE), /* pcrel_offset */
435b1e90 323
252b5132
RH		 324 /* 7 bit offset from the tiny data area pointer. */
325 HOWTO (R_V850_TDA_7_7_OFFSET, /* type */
326 0, /* rightshift */
327 1, /* size (0 = byte, 1 = short, 2 = long) */
328 7, /* bitsize */
b34976b6 329 FALSE, /* pc_relative */
252b5132
RH		 330 0, /* bitpos */
331 complain_overflow_dont, /* complain_on_overflow */
332 v850_elf_reloc, /* special_function */
333 "R_V850_TDA_7_7_OFFSET", /* name */
b34976b6 334 FALSE, /* partial_inplace */
252b5132
RH		 335 0x7f, /* src_mask */
336 0x7f, /* dst_mask */
b34976b6 337 FALSE), /* pcrel_offset */
252b5132
RH		 338
339 /* 16 bit offset from the tiny data area pointer! */
340 HOWTO (R_V850_TDA_16_16_OFFSET, /* type */
341 0, /* rightshift */
342 1, /* size (0 = byte, 1 = short, 2 = long) */
343 16, /* bitsize */
b34976b6 344 FALSE, /* pc_relative */
252b5132
RH		 345 0, /* bitpos */
346 complain_overflow_dont, /* complain_on_overflow */
347 v850_elf_reloc, /* special_function */
348 "R_V850_TDA_16_16_OFFSET", /* name */
b34976b6 349 FALSE, /* partial_inplace */
252b5132
RH		 350 0xffff, /* src_mask */
351 0xfff, /* dst_mask */
b34976b6 352 FALSE), /* pcrel_offset */
252b5132
RH		 353
354 /* 5 bit offset from the tiny data area pointer. */
355 HOWTO (R_V850_TDA_4_5_OFFSET, /* type */
356 1, /* rightshift */
357 1, /* size (0 = byte, 1 = short, 2 = long) */
358 5, /* bitsize */
b34976b6 359 FALSE, /* pc_relative */
252b5132
RH		 360 0, /* bitpos */
361 complain_overflow_dont, /* complain_on_overflow */
362 v850_elf_reloc, /* special_function */
363 "R_V850_TDA_4_5_OFFSET", /* name */
b34976b6 364 FALSE, /* partial_inplace */
252b5132
RH		 365 0x0f, /* src_mask */
366 0x0f, /* dst_mask */
b34976b6 367 FALSE), /* pcrel_offset */
252b5132
RH		 368
369 /* 4 bit offset from the tiny data area pointer. */
370 HOWTO (R_V850_TDA_4_4_OFFSET, /* type */
371 0, /* rightshift */
372 1, /* size (0 = byte, 1 = short, 2 = long) */
373 4, /* bitsize */
b34976b6 374 FALSE, /* pc_relative */
252b5132
RH		 375 0, /* bitpos */
376 complain_overflow_dont, /* complain_on_overflow */
377 v850_elf_reloc, /* special_function */
378 "R_V850_TDA_4_4_OFFSET", /* name */
b34976b6 379 FALSE, /* partial_inplace */
252b5132
RH		 380 0x0f, /* src_mask */
381 0x0f, /* dst_mask */
b34976b6 382 FALSE), /* pcrel_offset */
252b5132
RH		 383
384 /* 16 bit offset from the short data area pointer. */
385 HOWTO (R_V850_SDA_16_16_SPLIT_OFFSET, /* type */
386 0, /* rightshift */
387 2, /* size (0 = byte, 1 = short, 2 = long) */
388 16, /* bitsize */
b34976b6 389 FALSE, /* pc_relative */
252b5132
RH		 390 0, /* bitpos */
391 complain_overflow_dont, /* complain_on_overflow */
392 v850_elf_reloc, /* special_function */
393 "R_V850_SDA_16_16_SPLIT_OFFSET",/* name */
b34976b6 394 FALSE, /* partial_inplace */
252b5132
RH		 395 0xfffe0020, /* src_mask */
396 0xfffe0020, /* dst_mask */
b34976b6 397 FALSE), /* pcrel_offset */
252b5132
RH		 398
399 /* 16 bit offset from the zero data area pointer. */
400 HOWTO (R_V850_ZDA_16_16_SPLIT_OFFSET, /* type */
401 0, /* rightshift */
402 2, /* size (0 = byte, 1 = short, 2 = long) */
403 16, /* bitsize */
b34976b6 404 FALSE, /* pc_relative */
252b5132
RH		 405 0, /* bitpos */
406 complain_overflow_dont, /* complain_on_overflow */
407 v850_elf_reloc, /* special_function */
408 "R_V850_ZDA_16_16_SPLIT_OFFSET",/* name */
b34976b6 409 FALSE, /* partial_inplace */
252b5132
RH		 410 0xfffe0020, /* src_mask */
411 0xfffe0020, /* dst_mask */
b34976b6 412 FALSE), /* pcrel_offset */
252b5132
RH		 413
414 /* 6 bit offset from the call table base pointer. */
415 HOWTO (R_V850_CALLT_6_7_OFFSET, /* type */
416 0, /* rightshift */
417 1, /* size (0 = byte, 1 = short, 2 = long) */
418 7, /* bitsize */
b34976b6 419 FALSE, /* pc_relative */
252b5132
RH		 420 0, /* bitpos */
421 complain_overflow_dont, /* complain_on_overflow */
422 v850_elf_reloc, /* special_function */
423 "R_V850_CALLT_6_7_OFFSET", /* name */
b34976b6 424 FALSE, /* partial_inplace */
252b5132
RH		 425 0x3f, /* src_mask */
426 0x3f, /* dst_mask */
b34976b6 427 FALSE), /* pcrel_offset */
252b5132
RH		 428
429 /* 16 bit offset from the call table base pointer. */
430 HOWTO (R_V850_CALLT_16_16_OFFSET, /* type */
431 0, /* rightshift */
432 1, /* size (0 = byte, 1 = short, 2 = long) */
433 16, /* bitsize */
b34976b6 434 FALSE, /* pc_relative */
252b5132
RH		 435 0, /* bitpos */
436 complain_overflow_dont, /* complain_on_overflow */
437 v850_elf_reloc, /* special_function */
438 "R_V850_CALLT_16_16_OFFSET", /* name */
b34976b6 439 FALSE, /* partial_inplace */
252b5132
RH		 440 0xffff, /* src_mask */
441 0xffff, /* dst_mask */
b34976b6 442 FALSE), /* pcrel_offset */
252b5132
RH		 443
444 /* GNU extension to record C++ vtable hierarchy */
445 HOWTO (R_V850_GNU_VTINHERIT, /* type */
446 0, /* rightshift */
447 2, /* size (0 = byte, 1 = short, 2 = long) */
448 0, /* bitsize */
b34976b6 449 FALSE, /* pc_relative */
252b5132
RH		 450 0, /* bitpos */
451 complain_overflow_dont, /* complain_on_overflow */
452 NULL, /* special_function */
453 "R_V850_GNU_VTINHERIT", /* name */
b34976b6 454 FALSE, /* partial_inplace */
252b5132
RH		 455 0, /* src_mask */
456 0, /* dst_mask */
b34976b6 457 FALSE), /* pcrel_offset */
252b5132
RH		 458
459 /* GNU extension to record C++ vtable member usage */
460 HOWTO (R_V850_GNU_VTENTRY, /* type */
461 0, /* rightshift */
462 2, /* size (0 = byte, 1 = short, 2 = long) */
463 0, /* bitsize */
b34976b6 464 FALSE, /* pc_relative */
252b5132
RH		 465 0, /* bitpos */
466 complain_overflow_dont, /* complain_on_overflow */
467 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
468 "R_V850_GNU_VTENTRY", /* name */
b34976b6 469 FALSE, /* partial_inplace */
252b5132
RH		 470 0, /* src_mask */
471 0, /* dst_mask */
b34976b6 472 FALSE), /* pcrel_offset */
435b1e90 473
86aba9db
NC		 474 /* Indicates a .longcall pseudo-op. The compiler will generate a .longcall
475 pseudo-op when it finds a function call which can be relaxed. */
476 HOWTO (R_V850_LONGCALL, /* type */
477 0, /* rightshift */
478 2, /* size (0 = byte, 1 = short, 2 = long) */
479 32, /* bitsize */
b34976b6 480 TRUE, /* pc_relative */
86aba9db
NC		 481 0, /* bitpos */
482 complain_overflow_signed, /* complain_on_overflow */
483 v850_elf_ignore_reloc, /* special_function */
484 "R_V850_LONGCALL", /* name */
b34976b6 485 FALSE, /* partial_inplace */
86aba9db
NC		 486 0, /* src_mask */
487 0, /* dst_mask */
b34976b6 488 TRUE), /* pcrel_offset */
86aba9db
NC		 489
490 /* Indicates a .longjump pseudo-op. The compiler will generate a
491 .longjump pseudo-op when it finds a branch which can be relaxed. */
492 HOWTO (R_V850_LONGJUMP, /* type */
493 0, /* rightshift */
494 2, /* size (0 = byte, 1 = short, 2 = long) */
495 32, /* bitsize */
b34976b6 496 TRUE, /* pc_relative */
86aba9db
NC		 497 0, /* bitpos */
498 complain_overflow_signed, /* complain_on_overflow */
499 v850_elf_ignore_reloc, /* special_function */
500 "R_V850_LONGJUMP", /* name */
b34976b6 501 FALSE, /* partial_inplace */
86aba9db
NC		 502 0, /* src_mask */
503 0, /* dst_mask */
b34976b6 504 TRUE), /* pcrel_offset */
86aba9db
NC		 505
506 HOWTO (R_V850_ALIGN, /* type */
507 0, /* rightshift */
508 1, /* size (0 = byte, 1 = short, 2 = long) */
509 0, /* bitsize */
b34976b6 510 FALSE, /* pc_relative */
86aba9db
NC		 511 0, /* bitpos */
512 complain_overflow_unsigned, /* complain_on_overflow */
513 v850_elf_ignore_reloc, /* special_function */
514 "R_V850_ALIGN", /* name */
b34976b6 515 FALSE, /* partial_inplace */
86aba9db
NC		 516 0, /* src_mask */
517 0, /* dst_mask */
b34976b6 518 TRUE), /* pcrel_offset */
e30ddb24
NC		 519
520 /* Simple pc-relative 32bit reloc. */
521 HOWTO (R_V850_REL32, /* type */
522 0, /* rightshift */
523 2, /* size (0 = byte, 1 = short, 2 = long) */
524 32, /* bitsize */
525 TRUE, /* pc_relative */
526 0, /* bitpos */
527 complain_overflow_dont, /* complain_on_overflow */
528 v850_elf_reloc, /* special_function */
529 "R_V850_REL32", /* name */
530 FALSE, /* partial_inplace */
531 0xffffffff, /* src_mask */
532 0xffffffff, /* dst_mask */
533 FALSE), /* pcrel_offset */
1e50d24d
RS		 534
535 /* An ld.bu version of R_V850_LO16. */
536 HOWTO (R_V850_LO16_SPLIT_OFFSET, /* type */
537 0, /* rightshift */
538 2, /* size (0 = byte, 1 = short, 2 = long) */
539 16, /* bitsize */
540 FALSE, /* pc_relative */
541 0, /* bitpos */
542 complain_overflow_dont, /* complain_on_overflow */
543 v850_elf_reloc, /* special_function */
544 "R_V850_LO16_SPLIT_OFFSET", /* name */
545 FALSE, /* partial_inplace */
546 0xfffe0020, /* src_mask */
547 0xfffe0020, /* dst_mask */
548 FALSE), /* pcrel_offset */
252b5132
RH		 549};
550
551/* Map BFD reloc types to V850 ELF reloc types. */
552
553struct v850_elf_reloc_map
554{
555 /* BFD_RELOC_V850_CALLT_16_16_OFFSET is 258, which will not fix in an
556 unsigned char. */
557 bfd_reloc_code_real_type bfd_reloc_val;
917583ad 558 unsigned int elf_reloc_val;
252b5132
RH		 559};
560
561static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
562{
86aba9db
NC		 563 { BFD_RELOC_NONE, R_V850_NONE },
564 { BFD_RELOC_V850_9_PCREL, R_V850_9_PCREL },
565 { BFD_RELOC_V850_22_PCREL, R_V850_22_PCREL },
566 { BFD_RELOC_HI16_S, R_V850_HI16_S },
567 { BFD_RELOC_HI16, R_V850_HI16 },
568 { BFD_RELOC_LO16, R_V850_LO16 },
e30ddb24
NC		 569 { BFD_RELOC_32, R_V850_ABS32 },
570 { BFD_RELOC_32_PCREL, R_V850_REL32 },
86aba9db
NC		 571 { BFD_RELOC_16, R_V850_16 },
572 { BFD_RELOC_8, R_V850_8 },
573 { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V850_SDA_16_16_OFFSET },
574 { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V850_SDA_15_16_OFFSET },
575 { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V850_ZDA_16_16_OFFSET },
576 { BFD_RELOC_V850_ZDA_15_16_OFFSET, R_V850_ZDA_15_16_OFFSET },
577 { BFD_RELOC_V850_TDA_6_8_OFFSET, R_V850_TDA_6_8_OFFSET },
578 { BFD_RELOC_V850_TDA_7_8_OFFSET, R_V850_TDA_7_8_OFFSET },
579 { BFD_RELOC_V850_TDA_7_7_OFFSET, R_V850_TDA_7_7_OFFSET },
580 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V850_TDA_16_16_OFFSET },
252b5132
RH		 581 { BFD_RELOC_V850_TDA_4_5_OFFSET, R_V850_TDA_4_5_OFFSET },
582 { BFD_RELOC_V850_TDA_4_4_OFFSET, R_V850_TDA_4_4_OFFSET },
1e50d24d 583 { BFD_RELOC_V850_LO16_SPLIT_OFFSET, R_V850_LO16_SPLIT_OFFSET },
252b5132
RH		 584 { BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET, R_V850_SDA_16_16_SPLIT_OFFSET },
585 { BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET, R_V850_ZDA_16_16_SPLIT_OFFSET },
586 { BFD_RELOC_V850_CALLT_6_7_OFFSET, R_V850_CALLT_6_7_OFFSET },
587 { BFD_RELOC_V850_CALLT_16_16_OFFSET, R_V850_CALLT_16_16_OFFSET },
86aba9db
NC		 588 { BFD_RELOC_VTABLE_INHERIT, R_V850_GNU_VTINHERIT },
589 { BFD_RELOC_VTABLE_ENTRY, R_V850_GNU_VTENTRY },
590 { BFD_RELOC_V850_LONGCALL, R_V850_LONGCALL },
591 { BFD_RELOC_V850_LONGJUMP, R_V850_LONGJUMP },
592 { BFD_RELOC_V850_ALIGN, R_V850_ALIGN },
252b5132
RH		 593
594};
252b5132 595\f
e12dd2ea
NC		 596/* Map a bfd relocation into the appropriate howto structure. */
597
252b5132
RH		 598static reloc_howto_type *
599v850_elf_reloc_type_lookup (abfd, code)
b34976b6
AM		 600 bfd *abfd ATTRIBUTE_UNUSED;
601 bfd_reloc_code_real_type code;
252b5132
RH		 602{
603 unsigned int i;
604
e12dd2ea
NC		 605 for (i = ARRAY_SIZE (v850_elf_reloc_map); i --;)
606 if (v850_elf_reloc_map[i].bfd_reloc_val == code)
607 {
917583ad 608 unsigned int elf_reloc_val = v850_elf_reloc_map[i].elf_reloc_val;
dc810e39 609
fbad9a25 610 BFD_ASSERT (v850_elf_howto_table[elf_reloc_val].type == elf_reloc_val);
435b1e90 611
fbad9a25 612 return v850_elf_howto_table + elf_reloc_val;
e12dd2ea 613 }
252b5132
RH		 614
615 return NULL;
616}
252b5132
RH		 617\f
618/* Set the howto pointer for an V850 ELF reloc. */
e12dd2ea 619
252b5132
RH		 620static void
621v850_elf_info_to_howto_rel (abfd, cache_ptr, dst)
b34976b6
AM		 622 bfd *abfd ATTRIBUTE_UNUSED;
623 arelent *cache_ptr;
624 Elf_Internal_Rela *dst;
252b5132
RH		 625{
626 unsigned int r_type;
627
628 r_type = ELF32_R_TYPE (dst->r_info);
629 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
630 cache_ptr->howto = &v850_elf_howto_table[r_type];
631}
632
435b1e90 633/* Set the howto pointer for a V850 ELF reloc (type RELA). */
252b5132
RH		 634static void
635v850_elf_info_to_howto_rela (abfd, cache_ptr, dst)
b34976b6
AM		 636 bfd *abfd ATTRIBUTE_UNUSED;
637 arelent * cache_ptr;
638 Elf_Internal_Rela *dst;
252b5132
RH		 639{
640 unsigned int r_type;
641
642 r_type = ELF32_R_TYPE (dst->r_info);
643 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
644 cache_ptr->howto = &v850_elf_howto_table[r_type];
645}
252b5132
RH		 646\f
647/* Look through the relocs for a section during the first phase, and
648 allocate space in the global offset table or procedure linkage
649 table. */
650
b34976b6 651static bfd_boolean
252b5132 652v850_elf_check_relocs (abfd, info, sec, relocs)
b34976b6
AM		 653 bfd *abfd;
654 struct bfd_link_info *info;
655 asection *sec;
656 const Elf_Internal_Rela *relocs;
252b5132 657{
b34976b6 658 bfd_boolean ret = TRUE;
252b5132
RH		 659 bfd *dynobj;
660 Elf_Internal_Shdr *symtab_hdr;
661 struct elf_link_hash_entry **sym_hashes;
662 const Elf_Internal_Rela *rel;
663 const Elf_Internal_Rela *rel_end;
664 asection *sreloc;
665 enum v850_reloc_type r_type;
666 int other = 0;
667 const char *common = (const char *)0;
668
1049f94e 669 if (info->relocatable)
b34976b6 670 return TRUE;
252b5132
RH		 671
672#ifdef DEBUG
d003868e
AM		 673 _bfd_error_handler ("v850_elf_check_relocs called for section %A in %B",
674 sec, abfd);
252b5132
RH		 675#endif
676
677 dynobj = elf_hash_table (info)->dynobj;
678 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
679 sym_hashes = elf_sym_hashes (abfd);
680 sreloc = NULL;
681
682 rel_end = relocs + sec->reloc_count;
683 for (rel = relocs; rel < rel_end; rel++)
684 {
685 unsigned long r_symndx;
686 struct elf_link_hash_entry *h;
687
688 r_symndx = ELF32_R_SYM (rel->r_info);
689 if (r_symndx < symtab_hdr->sh_info)
690 h = NULL;
691 else
692 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
693
694 r_type = (enum v850_reloc_type) ELF32_R_TYPE (rel->r_info);
695 switch (r_type)
696 {
697 default:
698 case R_V850_NONE:
699 case R_V850_9_PCREL:
700 case R_V850_22_PCREL:
701 case R_V850_HI16_S:
702 case R_V850_HI16:
703 case R_V850_LO16:
1e50d24d 704 case R_V850_LO16_SPLIT_OFFSET:
e30ddb24
NC		 705 case R_V850_ABS32:
706 case R_V850_REL32:
252b5132
RH		 707 case R_V850_16:
708 case R_V850_8:
709 case R_V850_CALLT_6_7_OFFSET:
710 case R_V850_CALLT_16_16_OFFSET:
711 break;
712
713 /* This relocation describes the C++ object vtable hierarchy.
714 Reconstruct it for later use during GC. */
715 case R_V850_GNU_VTINHERIT:
c152c796 716 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
b34976b6 717 return FALSE;
252b5132
RH		 718 break;
719
e12dd2ea
NC		 720 /* This relocation describes which C++ vtable entries
721 are actually used. Record for later use during GC. */
252b5132 722 case R_V850_GNU_VTENTRY:
c152c796 723 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
b34976b6 724 return FALSE;
252b5132
RH		 725 break;
726
727 case R_V850_SDA_16_16_SPLIT_OFFSET:
728 case R_V850_SDA_16_16_OFFSET:
729 case R_V850_SDA_15_16_OFFSET:
730 other = V850_OTHER_SDA;
731 common = ".scommon";
732 goto small_data_common;
435b1e90 733
252b5132
RH		 734 case R_V850_ZDA_16_16_SPLIT_OFFSET:
735 case R_V850_ZDA_16_16_OFFSET:
736 case R_V850_ZDA_15_16_OFFSET:
737 other = V850_OTHER_ZDA;
738 common = ".zcommon";
739 goto small_data_common;
435b1e90 740
252b5132
RH		 741 case R_V850_TDA_4_5_OFFSET:
742 case R_V850_TDA_4_4_OFFSET:
743 case R_V850_TDA_6_8_OFFSET:
744 case R_V850_TDA_7_8_OFFSET:
745 case R_V850_TDA_7_7_OFFSET:
746 case R_V850_TDA_16_16_OFFSET:
747 other = V850_OTHER_TDA;
748 common = ".tcommon";
749 /* fall through */
750
751#define V850_OTHER_MASK (V850_OTHER_TDA | V850_OTHER_SDA | V850_OTHER_ZDA)
752
753 small_data_common:
754 if (h)
755 {
e12dd2ea
NC		 756 /* Flag which type of relocation was used. */
757 h->other |= other;
252b5132
RH		 758 if ((h->other & V850_OTHER_MASK) != (other & V850_OTHER_MASK)
759 && (h->other & V850_OTHER_ERROR) == 0)
760 {
761 const char * msg;
762 static char buff[200]; /* XXX */
763
764 switch (h->other & V850_OTHER_MASK)
765 {
766 default:
767 msg = _("Variable `%s' cannot occupy in multiple small data regions");
768 break;
769 case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
770 msg = _("Variable `%s' can only be in one of the small, zero, and tiny data regions");
771 break;
772 case V850_OTHER_SDA | V850_OTHER_ZDA:
773 msg = _("Variable `%s' cannot be in both small and zero data regions simultaneously");
774 break;
775 case V850_OTHER_SDA | V850_OTHER_TDA:
776 msg = _("Variable `%s' cannot be in both small and tiny data regions simultaneously");
777 break;
778 case V850_OTHER_ZDA | V850_OTHER_TDA:
779 msg = _("Variable `%s' cannot be in both zero and tiny data regions simultaneously");
780 break;
781 }
782
783 sprintf (buff, msg, h->root.root.string);
784 info->callbacks->warning (info, buff, h->root.root.string,
dc810e39
AM		 785 abfd, h->root.u.def.section,
786 (bfd_vma) 0);
252b5132
RH		 787
788 bfd_set_error (bfd_error_bad_value);
789 h->other |= V850_OTHER_ERROR;
b34976b6 790 ret = FALSE;
252b5132
RH		 791 }
792 }
793
794 if (h && h->root.type == bfd_link_hash_common
795 && h->root.u.c.p
796 && !strcmp (bfd_get_section_name (abfd, h->root.u.c.p->section), "COMMON"))
797 {
e12dd2ea
NC		 798 asection * section;
799
800 section = h->root.u.c.p->section = bfd_make_section_old_way (abfd, common);
252b5132
RH		 801 section->flags |= SEC_IS_COMMON;
802 }
803
804#ifdef DEBUG
805 fprintf (stderr, "v850_elf_check_relocs, found %s relocation for %s%s\n",
806 v850_elf_howto_table[ (int)r_type ].name,
807 (h && h->root.root.string) ? h->root.root.string : "<unknown>",
808 (h->root.type == bfd_link_hash_common) ? ", symbol is common" : "");
809#endif
810 break;
811 }
812 }
813
814 return ret;
815}
816
e12dd2ea
NC		 817/* In the old version, when an entry was checked out from the table,
818 it was deleted. This produced an error if the entry was needed
819 more than once, as the second attempted retry failed.
820
821 In the current version, the entry is not deleted, instead we set
b34976b6 822 the field 'found' to TRUE. If a second lookup matches the same
e12dd2ea
NC		 823 entry, then we know that the hi16s reloc has already been updated
824 and does not need to be updated a second time.
825
826 TODO - TOFIX: If it is possible that we need to restore 2 different
827 addresses from the same table entry, where the first generates an
828 overflow, whilst the second do not, then this code will fail. */
252b5132
RH		 829
830typedef struct hi16s_location
831{
b34976b6
AM		 832 bfd_vma addend;
833 bfd_byte *address;
252b5132 834 unsigned long counter;
b34976b6
AM		 835 bfd_boolean found;
836 struct hi16s_location *next;
252b5132
RH		 837}
838hi16s_location;
839
b34976b6
AM		 840static hi16s_location *previous_hi16s;
841static hi16s_location *free_hi16s;
842static unsigned long hi16s_counter;
252b5132
RH		 843
844static void
845remember_hi16s_reloc (abfd, addend, address)
b34976b6
AM		 846 bfd *abfd;
847 bfd_vma addend;
848 bfd_byte *address;
252b5132
RH		 849{
850 hi16s_location * entry = NULL;
dc810e39 851 bfd_size_type amt = sizeof (* free_hi16s);
435b1e90 852
252b5132
RH		 853 /* Find a free structure. */
854 if (free_hi16s == NULL)
dc810e39 855 free_hi16s = (hi16s_location *) bfd_zalloc (abfd, amt);
252b5132
RH		 856
857 entry = free_hi16s;
858 free_hi16s = free_hi16s->next;
435b1e90 859
252b5132
RH		 860 entry->addend = addend;
861 entry->address = address;
862 entry->counter = hi16s_counter ++;
b34976b6 863 entry->found = FALSE;
252b5132
RH		 864 entry->next = previous_hi16s;
865 previous_hi16s = entry;
435b1e90 866
252b5132
RH		 867 /* Cope with wrap around of our counter. */
868 if (hi16s_counter == 0)
869 {
870 /* XXX - Assume that all counter entries differ only in their low 16 bits. */
871 for (entry = previous_hi16s; entry != NULL; entry = entry->next)
872 entry->counter &= 0xffff;
873
874 hi16s_counter = 0x10000;
875 }
435b1e90 876
252b5132
RH		 877 return;
878}
879
880static bfd_byte *
881find_remembered_hi16s_reloc (addend, already_found)
b34976b6
AM		 882 bfd_vma addend;
883 bfd_boolean *already_found;
252b5132 884{
b34976b6
AM		 885 hi16s_location *match = NULL;
886 hi16s_location *entry;
887 hi16s_location *previous = NULL;
888 hi16s_location *prev;
889 bfd_byte *addr;
435b1e90 890
252b5132
RH		 891 /* Search the table. Record the most recent entry that matches. */
892 for (entry = previous_hi16s; entry; entry = entry->next)
893 {
894 if (entry->addend == addend
895 && (match == NULL || match->counter < entry->counter))
896 {
897 previous = prev;
898 match = entry;
899 }
435b1e90 900
252b5132
RH		 901 prev = entry;
902 }
903
904 if (match == NULL)
905 return NULL;
906
907 /* Extract the address. */
908 addr = match->address;
909
4cc11e76 910 /* Remember if this entry has already been used before. */
252b5132
RH		 911 if (already_found)
912 * already_found = match->found;
913
914 /* Note that this entry has now been used. */
b34976b6 915 match->found = TRUE;
435b1e90 916
252b5132 917 return addr;
435b1e90 918}
252b5132 919
1e50d24d
RS		 920/* Calculate the final operand value for a R_V850_LO16 or
921 R_V850_LO16_SPLIT_OFFSET. *INSN is the current operand value and
922 ADDEND is the sum of the relocation symbol and offset. Store the
923 operand value in *INSN and return true on success.
924
925 The assembler has already done some of this: If the value stored in
926 the instruction has its 15th bit set, (counting from zero) then the
927 assembler will have added 1 to the value stored in the associated
928 HI16S reloc. So for example, these relocations:
929
930 movhi hi( fred ), r0, r1
931 movea lo( fred ), r1, r1
932
933 will store 0 in the value fields for the MOVHI and MOVEA instructions
934 and addend will be the address of fred, but for these instructions:
935
936 movhi hi( fred + 0x123456), r0, r1
937 movea lo( fred + 0x123456), r1, r1
938
939 the value stored in the MOVHI instruction will be 0x12 and the value
940 stored in the MOVEA instruction will be 0x3456. If however the
941 instructions were:
942
943 movhi hi( fred + 0x10ffff), r0, r1
944 movea lo( fred + 0x10ffff), r1, r1
945
946 then the value stored in the MOVHI instruction would be 0x11 (not
947 0x10) and the value stored in the MOVEA instruction would be 0xffff.
948 Thus (assuming for the moment that the addend is 0), at run time the
949 MOVHI instruction loads 0x110000 into r1, then the MOVEA instruction
950 adds 0xffffffff (sign extension!) producing 0x10ffff. Similarly if
951 the instructions were:
952
953 movhi hi( fred - 1), r0, r1
954 movea lo( fred - 1), r1, r1
955
956 then 0 is stored in the MOVHI instruction and -1 is stored in the
957 MOVEA instruction.
958
959 Overflow can occur if the addition of the value stored in the
960 instruction plus the addend sets the 15th bit when before it was clear.
961 This is because the 15th bit will be sign extended into the high part,
962 thus reducing its value by one, but since the 15th bit was originally
963 clear, the assembler will not have added 1 to the previous HI16S reloc
964 to compensate for this effect. For example:
965
966 movhi hi( fred + 0x123456), r0, r1
967 movea lo( fred + 0x123456), r1, r1
968
969 The value stored in HI16S reloc is 0x12, the value stored in the LO16
970 reloc is 0x3456. If we assume that the address of fred is 0x00007000
971 then the relocations become:
972
973 HI16S: 0x0012 + (0x00007000 >> 16) = 0x12
974 LO16: 0x3456 + (0x00007000 & 0xffff) = 0xa456
975
976 but when the instructions are executed, the MOVEA instruction's value
977 is signed extended, so the sum becomes:
978
979 0x00120000
980 + 0xffffa456
981 ------------
982 0x0011a456 but 'fred + 0x123456' = 0x0012a456
983
984 Note that if the 15th bit was set in the value stored in the LO16
985 reloc, then we do not have to do anything:
986
987 movhi hi( fred + 0x10ffff), r0, r1
988 movea lo( fred + 0x10ffff), r1, r1
989
990 HI16S: 0x0011 + (0x00007000 >> 16) = 0x11
991 LO16: 0xffff + (0x00007000 & 0xffff) = 0x6fff
992
993 0x00110000
994 + 0x00006fff
995 ------------
996 0x00116fff = fred + 0x10ffff = 0x7000 + 0x10ffff
997
998 Overflow can also occur if the computation carries into the 16th bit
999 and it also results in the 15th bit having the same value as the 15th
1000 bit of the original value. What happens is that the HI16S reloc
1001 will have already examined the 15th bit of the original value and
1002 added 1 to the high part if the bit is set. This compensates for the
1003 sign extension of 15th bit of the result of the computation. But now
1004 there is a carry into the 16th bit, and this has not been allowed for.
1005
1006 So, for example if fred is at address 0xf000:
1007
1008 movhi hi( fred + 0xffff), r0, r1 [bit 15 of the offset is set]
1009 movea lo( fred + 0xffff), r1, r1
1010
1011 HI16S: 0x0001 + (0x0000f000 >> 16) = 0x0001
1012 LO16: 0xffff + (0x0000f000 & 0xffff) = 0xefff (carry into bit 16 is lost)
1013
1014 0x00010000
1015 + 0xffffefff
1016 ------------
1017 0x0000efff but 'fred + 0xffff' = 0x0001efff
1018
1019 Similarly, if the 15th bit remains clear, but overflow occurs into
1020 the 16th bit then (assuming the address of fred is 0xf000):
1021
1022 movhi hi( fred + 0x7000), r0, r1 [bit 15 of the offset is clear]
1023 movea lo( fred + 0x7000), r1, r1
1024
1025 HI16S: 0x0000 + (0x0000f000 >> 16) = 0x0000
1026 LO16: 0x7000 + (0x0000f000 & 0xffff) = 0x6fff (carry into bit 16 is lost)
1027
1028 0x00000000
1029 + 0x00006fff
1030 ------------
1031 0x00006fff but 'fred + 0x7000' = 0x00016fff
1032
1033 Note - there is no need to change anything if a carry occurs, and the
1034 15th bit changes its value from being set to being clear, as the HI16S
1035 reloc will have already added in 1 to the high part for us:
1036
1037 movhi hi( fred + 0xffff), r0, r1 [bit 15 of the offset is set]
1038 movea lo( fred + 0xffff), r1, r1
1039
1040 HI16S: 0x0001 + (0x00007000 >> 16)
1041 LO16: 0xffff + (0x00007000 & 0xffff) = 0x6fff (carry into bit 16 is lost)
1042
1043 0x00010000
1044 + 0x00006fff (bit 15 not set, so the top half is zero)
1045 ------------
1046 0x00016fff which is right (assuming that fred is at 0x7000)
1047
1048 but if the 15th bit goes from being clear to being set, then we must
1049 once again handle overflow:
1050
1051 movhi hi( fred + 0x7000), r0, r1 [bit 15 of the offset is clear]
1052 movea lo( fred + 0x7000), r1, r1
1053
1054 HI16S: 0x0000 + (0x0000ffff >> 16)
1055 LO16: 0x7000 + (0x0000ffff & 0xffff) = 0x6fff (carry into bit 16)
1056
1057 0x00000000
1058 + 0x00006fff (bit 15 not set, so the top half is zero)
1059 ------------
1060 0x00006fff which is wrong (assuming that fred is at 0xffff). */
1061
1062static bfd_boolean
1063v850_elf_perform_lo16_relocation (bfd *abfd, unsigned long *insn,
1064 unsigned long addend)
1065{
1066#define BIT15_SET(x) ((x) & 0x8000)
1067#define OVERFLOWS(a,i) ((((a) & 0xffff) + (i)) > 0xffff)
1068 if ((BIT15_SET (*insn + addend) && ! BIT15_SET (addend))
1069 || (OVERFLOWS (addend, *insn)
1070 && ((! BIT15_SET (*insn)) || (BIT15_SET (addend)))))
1071 {
1072 bfd_boolean already_updated;
1073 bfd_byte *hi16s_address = find_remembered_hi16s_reloc
1074 (addend, & already_updated);
1075
1076 /* Amend the matching HI16_S relocation. */
1077 if (hi16s_address != NULL)
1078 {
1079 if (! already_updated)
1080 {
1081 unsigned long hi_insn = bfd_get_16 (abfd, hi16s_address);
1082 hi_insn += 1;
1083 bfd_put_16 (abfd, hi_insn, hi16s_address);
1084 }
1085 }
1086 else
1087 {
1088 fprintf (stderr, _("FAILED to find previous HI16 reloc\n"));
1089 return FALSE;
1090 }
1091 }
1092#undef OVERFLOWS
1093#undef BIT15_SET
1094
1095 /* Do not complain if value has top bit set, as this has been
1096 anticipated. */
1097 *insn = (*insn + addend) & 0xffff;
1098 return TRUE;
1099}
1100
252b5132 1101/* FIXME: The code here probably ought to be removed and the code in reloc.c
4cc11e76 1102 allowed to do its stuff instead. At least for most of the relocs, anyway. */
e12dd2ea 1103
252b5132
RH		 1104static bfd_reloc_status_type
1105v850_elf_perform_relocation (abfd, r_type, addend, address)
dc810e39
AM		 1106 bfd *abfd;
1107 unsigned int r_type;
1108 bfd_vma addend;
1109 bfd_byte *address;
252b5132
RH		 1110{
1111 unsigned long insn;
1e50d24d 1112 unsigned long result;
252b5132 1113 bfd_signed_vma saddend = (bfd_signed_vma) addend;
435b1e90 1114
252b5132
RH		 1115 switch (r_type)
1116 {
1117 default:
1118 /* fprintf (stderr, "reloc type %d not SUPPORTED\n", r_type ); */
1119 return bfd_reloc_notsupported;
435b1e90 1120
e30ddb24
NC		 1121 case R_V850_REL32:
1122 case R_V850_ABS32:
252b5132
RH		 1123 bfd_put_32 (abfd, addend, address);
1124 return bfd_reloc_ok;
435b1e90 1125
252b5132
RH		 1126 case R_V850_22_PCREL:
1127 if (saddend > 0x1fffff || saddend < -0x200000)
1128 return bfd_reloc_overflow;
435b1e90 1129
252b5132
RH		 1130 if ((addend % 2) != 0)
1131 return bfd_reloc_dangerous;
435b1e90 1132
252b5132
RH		 1133 insn = bfd_get_32 (abfd, address);
1134 insn &= ~0xfffe003f;
1135 insn |= (((addend & 0xfffe) << 16) | ((addend & 0x3f0000) >> 16));
dc810e39 1136 bfd_put_32 (abfd, (bfd_vma) insn, address);
252b5132 1137 return bfd_reloc_ok;
435b1e90 1138
252b5132
RH		 1139 case R_V850_9_PCREL:
1140 if (saddend > 0xff || saddend < -0x100)
1141 return bfd_reloc_overflow;
435b1e90 1142
252b5132
RH		 1143 if ((addend % 2) != 0)
1144 return bfd_reloc_dangerous;
435b1e90 1145
252b5132
RH		 1146 insn = bfd_get_16 (abfd, address);
1147 insn &= ~ 0xf870;
1148 insn |= ((addend & 0x1f0) << 7) | ((addend & 0x0e) << 3);
1149 break;
435b1e90 1150
252b5132
RH		 1151 case R_V850_HI16:
1152 addend += (bfd_get_16 (abfd, address) << 16);
1153 addend = (addend >> 16);
1154 insn = addend;
1155 break;
435b1e90 1156
252b5132
RH		 1157 case R_V850_HI16_S:
1158 /* Remember where this relocation took place. */
1159 remember_hi16s_reloc (abfd, addend, address);
1160
1161 addend += (bfd_get_16 (abfd, address) << 16);
1162 addend = (addend >> 16) + ((addend & 0x8000) != 0);
435b1e90
KH		 1163
1164 /* This relocation cannot overflow. */
252b5132
RH		 1165 if (addend > 0x7fff)
1166 addend = 0;
435b1e90 1167
252b5132
RH		 1168 insn = addend;
1169 break;
435b1e90 1170
252b5132 1171 case R_V850_LO16:
1e50d24d
RS		 1172 insn = bfd_get_16 (abfd, address);
1173 if (! v850_elf_perform_lo16_relocation (abfd, &insn, addend))
1174 return bfd_reloc_overflow;
1175 break;
252b5132
RH		 1176
1177 case R_V850_8:
1178 addend += (char) bfd_get_8 (abfd, address);
1179
1180 saddend = (bfd_signed_vma) addend;
435b1e90 1181
252b5132
RH		 1182 if (saddend > 0x7f || saddend < -0x80)
1183 return bfd_reloc_overflow;
1184
1185 bfd_put_8 (abfd, addend, address);
1186 return bfd_reloc_ok;
1187
1188 case R_V850_CALLT_16_16_OFFSET:
1189 addend += bfd_get_16 (abfd, address);
435b1e90 1190
252b5132 1191 saddend = (bfd_signed_vma) addend;
435b1e90 1192
252b5132
RH		 1193 if (saddend > 0xffff || saddend < 0)
1194 return bfd_reloc_overflow;
1195
1196 insn = addend;
1197 break;
435b1e90 1198
252b5132
RH		 1199 case R_V850_16:
1200
435b1e90 1201 /* drop through */
252b5132
RH		 1202 case R_V850_SDA_16_16_OFFSET:
1203 case R_V850_ZDA_16_16_OFFSET:
1204 case R_V850_TDA_16_16_OFFSET:
1205 addend += bfd_get_16 (abfd, address);
435b1e90 1206
252b5132 1207 saddend = (bfd_signed_vma) addend;
435b1e90 1208
252b5132
RH		 1209 if (saddend > 0x7fff || saddend < -0x8000)
1210 return bfd_reloc_overflow;
1211
1212 insn = addend;
1213 break;
435b1e90 1214
252b5132
RH		 1215 case R_V850_SDA_15_16_OFFSET:
1216 case R_V850_ZDA_15_16_OFFSET:
1217 insn = bfd_get_16 (abfd, address);
1218 addend += (insn & 0xfffe);
435b1e90 1219
252b5132 1220 saddend = (bfd_signed_vma) addend;
435b1e90 1221
252b5132
RH		 1222 if (saddend > 0x7ffe || saddend < -0x8000)
1223 return bfd_reloc_overflow;
435b1e90 1224
252b5132
RH		 1225 if (addend & 1)
1226 return bfd_reloc_dangerous;
435b1e90 1227
dc810e39 1228 insn = (addend &~ (bfd_vma) 1) | (insn & 1);
252b5132 1229 break;
435b1e90 1230
252b5132
RH		 1231 case R_V850_TDA_6_8_OFFSET:
1232 insn = bfd_get_16 (abfd, address);
1233 addend += ((insn & 0x7e) << 1);
435b1e90 1234
252b5132 1235 saddend = (bfd_signed_vma) addend;
435b1e90 1236
252b5132
RH		 1237 if (saddend > 0xfc || saddend < 0)
1238 return bfd_reloc_overflow;
435b1e90 1239
252b5132
RH		 1240 if (addend & 3)
1241 return bfd_reloc_dangerous;
435b1e90 1242
252b5132
RH		 1243 insn &= 0xff81;
1244 insn |= (addend >> 1);
1245 break;
435b1e90 1246
252b5132
RH		 1247 case R_V850_TDA_7_8_OFFSET:
1248 insn = bfd_get_16 (abfd, address);
1249 addend += ((insn & 0x7f) << 1);
435b1e90 1250
252b5132 1251 saddend = (bfd_signed_vma) addend;
435b1e90 1252
252b5132
RH		 1253 if (saddend > 0xfe || saddend < 0)
1254 return bfd_reloc_overflow;
435b1e90 1255
252b5132
RH		 1256 if (addend & 1)
1257 return bfd_reloc_dangerous;
435b1e90 1258
252b5132
RH		 1259 insn &= 0xff80;
1260 insn |= (addend >> 1);
1261 break;
435b1e90 1262
252b5132
RH		 1263 case R_V850_TDA_7_7_OFFSET:
1264 insn = bfd_get_16 (abfd, address);
1265 addend += insn & 0x7f;
435b1e90 1266
252b5132 1267 saddend = (bfd_signed_vma) addend;
435b1e90 1268
252b5132
RH		 1269 if (saddend > 0x7f || saddend < 0)
1270 return bfd_reloc_overflow;
435b1e90 1271
252b5132
RH		 1272 insn &= 0xff80;
1273 insn |= addend;
1274 break;
435b1e90 1275
252b5132
RH		 1276 case R_V850_TDA_4_5_OFFSET:
1277 insn = bfd_get_16 (abfd, address);
1278 addend += ((insn & 0xf) << 1);
435b1e90 1279
252b5132 1280 saddend = (bfd_signed_vma) addend;
435b1e90 1281
252b5132
RH		 1282 if (saddend > 0x1e || saddend < 0)
1283 return bfd_reloc_overflow;
435b1e90 1284
252b5132
RH		 1285 if (addend & 1)
1286 return bfd_reloc_dangerous;
435b1e90 1287
252b5132
RH		 1288 insn &= 0xfff0;
1289 insn |= (addend >> 1);
1290 break;
435b1e90 1291
252b5132
RH		 1292 case R_V850_TDA_4_4_OFFSET:
1293 insn = bfd_get_16 (abfd, address);
1294 addend += insn & 0xf;
435b1e90 1295
252b5132 1296 saddend = (bfd_signed_vma) addend;
435b1e90 1297
252b5132
RH		 1298 if (saddend > 0xf || saddend < 0)
1299 return bfd_reloc_overflow;
435b1e90 1300
252b5132
RH		 1301 insn &= 0xfff0;
1302 insn |= addend;
1303 break;
435b1e90 1304
1e50d24d
RS		 1305 case R_V850_LO16_SPLIT_OFFSET:
1306 insn = bfd_get_32 (abfd, address);
1307 result = ((insn & 0xfffe0000) >> 16) | ((insn & 0x20) >> 5);
1308 if (! v850_elf_perform_lo16_relocation (abfd, &result, addend))
1309 return bfd_reloc_overflow;
1310 insn = (((result << 16) & 0xfffe0000)
1311 | ((result << 5) & 0x20)
1312 | (insn & ~0xfffe0020));
1313 bfd_put_32 (abfd, insn, address);
1314 return bfd_reloc_ok;
1315
252b5132
RH		 1316 case R_V850_ZDA_16_16_SPLIT_OFFSET:
1317 case R_V850_SDA_16_16_SPLIT_OFFSET:
1318 insn = bfd_get_32 (abfd, address);
1319 addend += ((insn & 0xfffe0000) >> 16) + ((insn & 0x20) >> 5);
435b1e90 1320
252b5132 1321 saddend = (bfd_signed_vma) addend;
435b1e90 1322
252b5132
RH		 1323 if (saddend > 0x7fff || saddend < -0x8000)
1324 return bfd_reloc_overflow;
435b1e90 1325
252b5132
RH		 1326 insn &= 0x0001ffdf;
1327 insn |= (addend & 1) << 5;
dc810e39 1328 insn |= (addend &~ (bfd_vma) 1) << 16;
435b1e90 1329
dc810e39 1330 bfd_put_32 (abfd, (bfd_vma) insn, address);
252b5132 1331 return bfd_reloc_ok;
435b1e90 1332
252b5132
RH		 1333 case R_V850_CALLT_6_7_OFFSET:
1334 insn = bfd_get_16 (abfd, address);
1335 addend += ((insn & 0x3f) << 1);
435b1e90 1336
252b5132 1337 saddend = (bfd_signed_vma) addend;
435b1e90 1338
252b5132
RH		 1339 if (saddend > 0x7e || saddend < 0)
1340 return bfd_reloc_overflow;
435b1e90 1341
252b5132
RH		 1342 if (addend & 1)
1343 return bfd_reloc_dangerous;
435b1e90 1344
252b5132
RH		 1345 insn &= 0xff80;
1346 insn |= (addend >> 1);
1347 break;
1348
1349 case R_V850_GNU_VTINHERIT:
1350 case R_V850_GNU_VTENTRY:
1351 return bfd_reloc_ok;
1352
1353 }
1354
dc810e39 1355 bfd_put_16 (abfd, (bfd_vma) insn, address);
252b5132
RH		 1356 return bfd_reloc_ok;
1357}
252b5132
RH		 1358\f
1359/* Insert the addend into the instruction. */
e12dd2ea 1360
252b5132
RH		 1361static bfd_reloc_status_type
1362v850_elf_reloc (abfd, reloc, symbol, data, isection, obfd, err)
b34976b6
AM		 1363 bfd *abfd ATTRIBUTE_UNUSED;
1364 arelent *reloc;
1365 asymbol *symbol;
1366 PTR data ATTRIBUTE_UNUSED;
1367 asection *isection;
1368 bfd *obfd;
1369 char **err ATTRIBUTE_UNUSED;
252b5132
RH		 1370{
1371 long relocation;
435b1e90 1372
252b5132
RH		 1373 /* If there is an output BFD,
1374 and the symbol is not a section name (which is only defined at final link time),
1375 and either we are not putting the addend into the instruction
e12dd2ea 1376 or the addend is zero, so there is nothing to add into the instruction
252b5132
RH		 1377 then just fixup the address and return. */
1378 if (obfd != (bfd *) NULL
1379 && (symbol->flags & BSF_SECTION_SYM) == 0
1380 && (! reloc->howto->partial_inplace
1381 || reloc->addend == 0))
1382 {
1383 reloc->address += isection->output_offset;
1384 return bfd_reloc_ok;
1385 }
435b1e90 1386
252b5132
RH		 1387 /* Catch relocs involving undefined symbols. */
1388 if (bfd_is_und_section (symbol->section)
1389 && (symbol->flags & BSF_WEAK) == 0
1390 && obfd == NULL)
1391 return bfd_reloc_undefined;
1392
1393 /* We handle final linking of some relocs ourselves. */
1394
1395 /* Is the address of the relocation really within the section? */
07515404 1396 if (reloc->address > bfd_get_section_limit (abfd, isection))
252b5132 1397 return bfd_reloc_outofrange;
435b1e90 1398
4cc11e76 1399 /* Work out which section the relocation is targeted at and the
252b5132 1400 initial relocation command value. */
435b1e90 1401
b34976b6 1402 if (reloc->howto->pc_relative)
86aba9db
NC		 1403 return bfd_reloc_ok;
1404
252b5132
RH		 1405 /* Get symbol value. (Common symbols are special.) */
1406 if (bfd_is_com_section (symbol->section))
1407 relocation = 0;
1408 else
1409 relocation = symbol->value;
435b1e90 1410
252b5132
RH		 1411 /* Convert input-section-relative symbol value to absolute + addend. */
1412 relocation += symbol->section->output_section->vma;
1413 relocation += symbol->section->output_offset;
1414 relocation += reloc->addend;
435b1e90 1415
435b1e90 1416 reloc->addend = relocation;
252b5132
RH		 1417 return bfd_reloc_ok;
1418}
86aba9db
NC		 1419
1420/* This function is used for relocs which are only used
1421 for relaxing, which the linker should otherwise ignore. */
1422
1423static bfd_reloc_status_type
1424v850_elf_ignore_reloc (abfd, reloc_entry, symbol, data, input_section,
1425 output_bfd, error_message)
b34976b6
AM		 1426 bfd *abfd ATTRIBUTE_UNUSED;
1427 arelent *reloc_entry;
1428 asymbol *symbol ATTRIBUTE_UNUSED;
1429 PTR data ATTRIBUTE_UNUSED;
1430 asection *input_section;
1431 bfd *output_bfd;
1432 char **error_message ATTRIBUTE_UNUSED;
86aba9db
NC		 1433{
1434 if (output_bfd != NULL)
1435 reloc_entry->address += input_section->output_offset;
1436
1437 return bfd_reloc_ok;
1438}
252b5132 1439\f
b34976b6 1440static bfd_boolean
252b5132 1441v850_elf_is_local_label_name (abfd, name)
b34976b6
AM		 1442 bfd *abfd ATTRIBUTE_UNUSED;
1443 const char *name;
252b5132
RH		 1444{
1445 return ( (name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
1446 || (name[0] == '_' && name[1] == '.' && name[2] == 'L' && name[3] == '_'));
1447}
252b5132 1448\f
5cec6941
NC		 1449/* We overload some of the bfd_reloc error codes for own purposes. */
1450#define bfd_reloc_gp_not_found bfd_reloc_other
1451#define bfd_reloc_ep_not_found bfd_reloc_continue
1452#define bfd_reloc_ctbp_not_found (bfd_reloc_dangerous + 1)
1453
252b5132 1454/* Perform a relocation as part of a final link. */
e12dd2ea 1455
252b5132
RH		 1456static bfd_reloc_status_type
1457v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
86aba9db
NC		 1458 input_section, contents, offset, value,
1459 addend, info, sym_sec, is_local)
b34976b6
AM		 1460 reloc_howto_type *howto;
1461 bfd *input_bfd;
1462 bfd *output_bfd ATTRIBUTE_UNUSED;
1463 asection *input_section;
1464 bfd_byte *contents;
1465 bfd_vma offset;
1466 bfd_vma value;
1467 bfd_vma addend;
1468 struct bfd_link_info *info;
1469 asection *sym_sec;
1470 int is_local ATTRIBUTE_UNUSED;
252b5132 1471{
b34976b6
AM		 1472 unsigned int r_type = howto->type;
1473 bfd_byte *hit_data = contents + offset;
252b5132
RH		 1474
1475 /* Adjust the value according to the relocation. */
1476 switch (r_type)
1477 {
1478 case R_V850_9_PCREL:
1479 value -= (input_section->output_section->vma
1480 + input_section->output_offset);
1481 value -= offset;
1482 break;
435b1e90 1483
252b5132
RH		 1484 case R_V850_22_PCREL:
1485 value -= (input_section->output_section->vma
1486 + input_section->output_offset
1487 + offset);
1488
232fb1a3
NC		 1489 /* If the sign extension will corrupt the value then we have overflowed. */
1490 if (((value & 0xff000000) != 0x0) && ((value & 0xff000000) != 0xff000000))
1491 return bfd_reloc_overflow;
435b1e90 1492
e12dd2ea
NC		 1493 /* Only the bottom 24 bits of the PC are valid */
1494 value = SEXT24 (value);
252b5132 1495 break;
435b1e90 1496
e30ddb24
NC		 1497 case R_V850_REL32:
1498 value -= (input_section->output_section->vma
1499 + input_section->output_offset
1500 + offset);
1501 break;
1502
252b5132
RH		 1503 case R_V850_HI16_S:
1504 case R_V850_HI16:
1505 case R_V850_LO16:
1e50d24d 1506 case R_V850_LO16_SPLIT_OFFSET:
252b5132 1507 case R_V850_16:
e30ddb24 1508 case R_V850_ABS32:
252b5132
RH		 1509 case R_V850_8:
1510 break;
1511
435b1e90 1512 case R_V850_ZDA_15_16_OFFSET:
252b5132
RH		 1513 case R_V850_ZDA_16_16_OFFSET:
1514 case R_V850_ZDA_16_16_SPLIT_OFFSET:
1515 if (sym_sec == NULL)
1516 return bfd_reloc_undefined;
435b1e90 1517
252b5132
RH		 1518 value -= sym_sec->output_section->vma;
1519 break;
1520
1521 case R_V850_SDA_15_16_OFFSET:
1522 case R_V850_SDA_16_16_OFFSET:
1523 case R_V850_SDA_16_16_SPLIT_OFFSET:
1524 {
1525 unsigned long gp;
1526 struct bfd_link_hash_entry * h;
1527
1528 if (sym_sec == NULL)
1529 return bfd_reloc_undefined;
435b1e90 1530
252b5132 1531 /* Get the value of __gp. */
b34976b6 1532 h = bfd_link_hash_lookup (info->hash, "__gp", FALSE, FALSE, TRUE);
252b5132
RH		 1533 if (h == (struct bfd_link_hash_entry *) NULL
1534 || h->type != bfd_link_hash_defined)
5cec6941 1535 return bfd_reloc_gp_not_found;
252b5132
RH		 1536
1537 gp = (h->u.def.value
1538 + h->u.def.section->output_section->vma
1539 + h->u.def.section->output_offset);
1540
1541 value -= sym_sec->output_section->vma;
1542 value -= (gp - sym_sec->output_section->vma);
1543 }
1544 break;
1545
1546 case R_V850_TDA_4_4_OFFSET:
1547 case R_V850_TDA_4_5_OFFSET:
1548 case R_V850_TDA_16_16_OFFSET:
1549 case R_V850_TDA_7_7_OFFSET:
1550 case R_V850_TDA_7_8_OFFSET:
1551 case R_V850_TDA_6_8_OFFSET:
1552 {
1553 unsigned long ep;
1554 struct bfd_link_hash_entry * h;
435b1e90 1555
252b5132 1556 /* Get the value of __ep. */
b34976b6 1557 h = bfd_link_hash_lookup (info->hash, "__ep", FALSE, FALSE, TRUE);
252b5132
RH		 1558 if (h == (struct bfd_link_hash_entry *) NULL
1559 || h->type != bfd_link_hash_defined)
5cec6941 1560 return bfd_reloc_ep_not_found;
252b5132
RH		 1561
1562 ep = (h->u.def.value
1563 + h->u.def.section->output_section->vma
1564 + h->u.def.section->output_offset);
1565
1566 value -= ep;
1567 }
1568 break;
435b1e90 1569
252b5132
RH		 1570 case R_V850_CALLT_6_7_OFFSET:
1571 {
1572 unsigned long ctbp;
1573 struct bfd_link_hash_entry * h;
435b1e90 1574
252b5132 1575 /* Get the value of __ctbp. */
b34976b6 1576 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
252b5132
RH		 1577 if (h == (struct bfd_link_hash_entry *) NULL
1578 || h->type != bfd_link_hash_defined)
5cec6941 1579 return bfd_reloc_ctbp_not_found;
252b5132
RH		 1580
1581 ctbp = (h->u.def.value
1582 + h->u.def.section->output_section->vma
1583 + h->u.def.section->output_offset);
1584 value -= ctbp;
1585 }
1586 break;
435b1e90 1587
252b5132
RH		 1588 case R_V850_CALLT_16_16_OFFSET:
1589 {
1590 unsigned long ctbp;
1591 struct bfd_link_hash_entry * h;
1592
1593 if (sym_sec == NULL)
1594 return bfd_reloc_undefined;
435b1e90 1595
252b5132 1596 /* Get the value of __ctbp. */
b34976b6 1597 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
252b5132
RH		 1598 if (h == (struct bfd_link_hash_entry *) NULL
1599 || h->type != bfd_link_hash_defined)
5cec6941 1600 return bfd_reloc_ctbp_not_found;
252b5132
RH		 1601
1602 ctbp = (h->u.def.value
1603 + h->u.def.section->output_section->vma
1604 + h->u.def.section->output_offset);
1605
1606 value -= sym_sec->output_section->vma;
1607 value -= (ctbp - sym_sec->output_section->vma);
1608 }
1609 break;
435b1e90 1610
252b5132
RH		 1611 case R_V850_NONE:
1612 case R_V850_GNU_VTINHERIT:
1613 case R_V850_GNU_VTENTRY:
86aba9db
NC		 1614 case R_V850_LONGCALL:
1615 case R_V850_LONGJUMP:
1616 case R_V850_ALIGN:
252b5132
RH		 1617 return bfd_reloc_ok;
1618
1619 default:
1620 return bfd_reloc_notsupported;
1621 }
1622
1623 /* Perform the relocation. */
435b1e90 1624 return v850_elf_perform_relocation (input_bfd, r_type, value + addend, hit_data);
252b5132 1625}
252b5132
RH		 1626\f
1627/* Relocate an V850 ELF section. */
e12dd2ea 1628
b34976b6 1629static bfd_boolean
252b5132
RH		 1630v850_elf_relocate_section (output_bfd, info, input_bfd, input_section,
1631 contents, relocs, local_syms, local_sections)
b34976b6
AM		 1632 bfd *output_bfd;
1633 struct bfd_link_info *info;
1634 bfd *input_bfd;
1635 asection *input_section;
1636 bfd_byte *contents;
1637 Elf_Internal_Rela *relocs;
1638 Elf_Internal_Sym *local_syms;
1639 asection **local_sections;
252b5132 1640{
b34976b6
AM		 1641 Elf_Internal_Shdr *symtab_hdr;
1642 struct elf_link_hash_entry **sym_hashes;
1643 Elf_Internal_Rela *rel;
1644 Elf_Internal_Rela *relend;
252b5132 1645
1049f94e 1646 if (info->relocatable)
b34976b6 1647 return TRUE;
f0fe0e16 1648
252b5132
RH		 1649 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
1650 sym_hashes = elf_sym_hashes (input_bfd);
1651
252b5132
RH		 1652 /* Reset the list of remembered HI16S relocs to empty. */
1653 free_hi16s = previous_hi16s;
1654 previous_hi16s = NULL;
1655 hi16s_counter = 0;
435b1e90 1656
252b5132
RH		 1657 rel = relocs;
1658 relend = relocs + input_section->reloc_count;
1659 for (; rel < relend; rel++)
1660 {
b34976b6
AM		 1661 int r_type;
1662 reloc_howto_type *howto;
1663 unsigned long r_symndx;
1664 Elf_Internal_Sym *sym;
1665 asection *sec;
1666 struct elf_link_hash_entry *h;
1667 bfd_vma relocation;
1668 bfd_reloc_status_type r;
252b5132
RH		 1669
1670 r_symndx = ELF32_R_SYM (rel->r_info);
1671 r_type = ELF32_R_TYPE (rel->r_info);
1672
1673 if (r_type == R_V850_GNU_VTENTRY
1674 || r_type == R_V850_GNU_VTINHERIT)
1675 continue;
1676
252b5132 1677 /* This is a final link. */
f0fe0e16 1678 howto = v850_elf_howto_table + r_type;
252b5132
RH		 1679 h = NULL;
1680 sym = NULL;
1681 sec = NULL;
1682 if (r_symndx < symtab_hdr->sh_info)
1683 {
1684 sym = local_syms + r_symndx;
1685 sec = local_sections[r_symndx];
8517fae7 1686 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
252b5132
RH		 1687 }
1688 else
1689 {
59c2e50f 1690 bfd_boolean unresolved_reloc, warned;
435b1e90 1691
641bd093
NC		 1692 /* Note - this check is delayed until now as it is possible and valid
1693 to have a file without any symbols but with relocs that can be
1694 processed. */
1695 if (sym_hashes == NULL)
1696 {
1697 info->callbacks->warning
1698 (info, "no hash table available",
1699 NULL, input_bfd, input_section, (bfd_vma) 0);
1700
1701 return FALSE;
1702 }
1703
b2a8e766
AM		 1704 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1705 r_symndx, symtab_hdr, sym_hashes,
1706 h, sec, relocation,
1707 unresolved_reloc, warned);
252b5132
RH		 1708 }
1709
e12dd2ea 1710 /* FIXME: We should use the addend, but the COFF relocations don't. */
252b5132
RH		 1711 r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
1712 input_section,
1713 contents, rel->r_offset,
1714 relocation, rel->r_addend,
1715 info, sec, h == NULL);
1716
1717 if (r != bfd_reloc_ok)
1718 {
1719 const char * name;
1720 const char * msg = (const char *)0;
1721
1722 if (h != NULL)
1723 name = h->root.root.string;
1724 else
1725 {
1726 name = (bfd_elf_string_from_elf_section
1727 (input_bfd, symtab_hdr->sh_link, sym->st_name));
1728 if (name == NULL || *name == '\0')
1729 name = bfd_section_name (input_bfd, sec);
1730 }
1731
1732 switch (r)
1733 {
1734 case bfd_reloc_overflow:
1735 if (! ((*info->callbacks->reloc_overflow)
dfeffb9f
L		 1736 (info, (h ? &h->root : NULL), name, howto->name,
1737 (bfd_vma) 0, input_bfd, input_section,
1738 rel->r_offset)))
b34976b6 1739 return FALSE;
252b5132
RH		 1740 break;
1741
1742 case bfd_reloc_undefined:
1743 if (! ((*info->callbacks->undefined_symbol)
1744 (info, name, input_bfd, input_section,
b34976b6
AM		 1745 rel->r_offset, TRUE)))
1746 return FALSE;
252b5132
RH		 1747 break;
1748
1749 case bfd_reloc_outofrange:
1750 msg = _("internal error: out of range error");
1751 goto common_error;
1752
1753 case bfd_reloc_notsupported:
1754 msg = _("internal error: unsupported relocation error");
1755 goto common_error;
1756
1757 case bfd_reloc_dangerous:
1758 msg = _("internal error: dangerous relocation");
1759 goto common_error;
1760
5cec6941 1761 case bfd_reloc_gp_not_found:
252b5132
RH		 1762 msg = _("could not locate special linker symbol __gp");
1763 goto common_error;
1764
5cec6941 1765 case bfd_reloc_ep_not_found:
252b5132
RH		 1766 msg = _("could not locate special linker symbol __ep");
1767 goto common_error;
1768
5cec6941 1769 case bfd_reloc_ctbp_not_found:
252b5132
RH		 1770 msg = _("could not locate special linker symbol __ctbp");
1771 goto common_error;
435b1e90 1772
252b5132
RH		 1773 default:
1774 msg = _("internal error: unknown error");
1775 /* fall through */
1776
1777 common_error:
1778 if (!((*info->callbacks->warning)
1779 (info, msg, name, input_bfd, input_section,
1780 rel->r_offset)))
b34976b6 1781 return FALSE;
252b5132
RH		 1782 break;
1783 }
1784 }
1785 }
1786
b34976b6 1787 return TRUE;
252b5132
RH		 1788}
1789
b34976b6 1790static bfd_boolean
252b5132 1791v850_elf_gc_sweep_hook (abfd, info, sec, relocs)
5f771d47
ILT		 1792 bfd *abfd ATTRIBUTE_UNUSED;
1793 struct bfd_link_info *info ATTRIBUTE_UNUSED;
1794 asection *sec ATTRIBUTE_UNUSED;
1795 const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED;
252b5132 1796{
e12dd2ea 1797 /* No got and plt entries for v850-elf. */
b34976b6 1798 return TRUE;
252b5132
RH		 1799}
1800
1801static asection *
1e2f5b6e
AM		 1802v850_elf_gc_mark_hook (sec, info, rel, h, sym)
1803 asection *sec;
5f771d47 1804 struct bfd_link_info *info ATTRIBUTE_UNUSED;
252b5132
RH		 1805 Elf_Internal_Rela *rel;
1806 struct elf_link_hash_entry *h;
1807 Elf_Internal_Sym *sym;
1808{
1809 if (h != NULL)
1810 {
1811 switch (ELF32_R_TYPE (rel->r_info))
1812 {
1813 case R_V850_GNU_VTINHERIT:
1814 case R_V850_GNU_VTENTRY:
1815 break;
1816
1817 default:
1818 switch (h->root.type)
1819 {
1820 case bfd_link_hash_defined:
1821 case bfd_link_hash_defweak:
1822 return h->root.u.def.section;
1823
1824 case bfd_link_hash_common:
1825 return h->root.u.c.p->section;
e049a0de
ILT		 1826
1827 default:
1828 break;
252b5132
RH		 1829 }
1830 }
1831 }
1832 else
1e2f5b6e 1833 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
9ad5cbcf 1834
252b5132
RH		 1835 return NULL;
1836}
e12dd2ea 1837
252b5132 1838/* Set the right machine number. */
e12dd2ea 1839
b34976b6 1840static bfd_boolean
252b5132
RH		 1841v850_elf_object_p (abfd)
1842 bfd *abfd;
1843{
1844 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1845 {
1846 default:
250d94fd
AM		 1847 case E_V850_ARCH:
1848 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850);
1849 break;
1850 case E_V850E_ARCH:
1851 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e);
1852 break;
8ad30312
NC		 1853 case E_V850E1_ARCH:
1854 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e1);
1855 break;
252b5132 1856 }
b34976b6 1857 return TRUE;
252b5132
RH		 1858}
1859
1860/* Store the machine number in the flags field. */
e12dd2ea 1861
252b5132
RH		 1862static void
1863v850_elf_final_write_processing (abfd, linker)
b34976b6
AM		 1864 bfd *abfd;
1865 bfd_boolean linker ATTRIBUTE_UNUSED;
252b5132
RH		 1866{
1867 unsigned long val;
1868
1869 switch (bfd_get_mach (abfd))
1870 {
b34976b6 1871 default:
250d94fd
AM		 1872 case bfd_mach_v850: val = E_V850_ARCH; break;
1873 case bfd_mach_v850e: val = E_V850E_ARCH; break;
8ad30312 1874 case bfd_mach_v850e1: val = E_V850E1_ARCH; break;
252b5132
RH		 1875 }
1876
1877 elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
1878 elf_elfheader (abfd)->e_flags |= val;
1879}
1880
435b1e90 1881/* Function to keep V850 specific file flags. */
e12dd2ea 1882
b34976b6 1883static bfd_boolean
252b5132 1884v850_elf_set_private_flags (abfd, flags)
b34976b6 1885 bfd *abfd;
252b5132
RH		 1886 flagword flags;
1887{
1888 BFD_ASSERT (!elf_flags_init (abfd)
1889 || elf_elfheader (abfd)->e_flags == flags);
1890
1891 elf_elfheader (abfd)->e_flags = flags;
b34976b6
AM		 1892 elf_flags_init (abfd) = TRUE;
1893 return TRUE;
252b5132
RH		 1894}
1895
e12dd2ea
NC		 1896/* Merge backend specific data from an object file
1897 to the output object file when linking. */
b34976b6 1898static bfd_boolean
252b5132 1899v850_elf_merge_private_bfd_data (ibfd, obfd)
b34976b6
AM		 1900 bfd *ibfd;
1901 bfd *obfd;
252b5132
RH		 1902{
1903 flagword out_flags;
1904 flagword in_flags;
1905
1906 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1907 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
b34976b6 1908 return TRUE;
252b5132
RH		 1909
1910 in_flags = elf_elfheader (ibfd)->e_flags;
1911 out_flags = elf_elfheader (obfd)->e_flags;
1912
1913 if (! elf_flags_init (obfd))
1914 {
1915 /* If the input is the default architecture then do not
1916 bother setting the flags for the output architecture,
1917 instead allow future merges to do this. If no future
1918 merges ever set these flags then they will retain their
1919 unitialised values, which surprise surprise, correspond
1920 to the default values. */
1921 if (bfd_get_arch_info (ibfd)->the_default)
b34976b6 1922 return TRUE;
435b1e90 1923
b34976b6 1924 elf_flags_init (obfd) = TRUE;
252b5132
RH		 1925 elf_elfheader (obfd)->e_flags = in_flags;
1926
1927 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
1928 && bfd_get_arch_info (obfd)->the_default)
e12dd2ea 1929 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
252b5132 1930
b34976b6 1931 return TRUE;
252b5132
RH		 1932 }
1933
1934 /* Check flag compatibility. */
1935 if (in_flags == out_flags)
b34976b6 1936 return TRUE;
252b5132
RH		 1937
1938 if ((in_flags & EF_V850_ARCH) != (out_flags & EF_V850_ARCH)
1939 && (in_flags & EF_V850_ARCH) != E_V850_ARCH)
8ad30312
NC		 1940 {
1941 /* Allow v850e1 binaries to be linked with v850e binaries.
1942 Set the output binary to v850e. */
1943 if ((in_flags & EF_V850_ARCH) == E_V850E1_ARCH
1944 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
1945 return TRUE;
1946
1947 if ((in_flags & EF_V850_ARCH) == E_V850E_ARCH
1948 && (out_flags & EF_V850_ARCH) == E_V850E1_ARCH)
1949 {
1950 elf_elfheader (obfd)->e_flags =
1951 ((out_flags & ~ EF_V850_ARCH) | E_V850E_ARCH);
1952 return TRUE;
1953 }
1954
d003868e
AM		 1955 _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
1956 ibfd);
8ad30312 1957 }
252b5132 1958
b34976b6 1959 return TRUE;
252b5132 1960}
e12dd2ea
NC		 1961
1962/* Display the flags field. */
252b5132 1963
b34976b6 1964static bfd_boolean
252b5132 1965v850_elf_print_private_bfd_data (abfd, ptr)
b34976b6
AM		 1966 bfd *abfd;
1967 PTR ptr;
252b5132
RH		 1968{
1969 FILE * file = (FILE *) ptr;
435b1e90 1970
252b5132 1971 BFD_ASSERT (abfd != NULL && ptr != NULL);
435b1e90 1972
252b5132 1973 _bfd_elf_print_private_bfd_data (abfd, ptr);
435b1e90 1974
252b5132
RH		 1975 /* xgettext:c-format */
1976 fprintf (file, _("private flags = %lx: "), elf_elfheader (abfd)->e_flags);
435b1e90 1977
252b5132
RH		 1978 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1979 {
1980 default:
1981 case E_V850_ARCH: fprintf (file, _("v850 architecture")); break;
1982 case E_V850E_ARCH: fprintf (file, _("v850e architecture")); break;
8ad30312 1983 case E_V850E1_ARCH: fprintf (file, _("v850e1 architecture")); break;
252b5132 1984 }
435b1e90 1985
252b5132 1986 fputc ('\n', file);
435b1e90 1987
b34976b6 1988 return TRUE;
252b5132
RH		 1989}
1990
1991/* V850 ELF uses four common sections. One is the usual one, and the
1992 others are for (small) objects in one of the special data areas:
1993 small, tiny and zero. All the objects are kept together, and then
1994 referenced via the gp register, the ep register or the r0 register
1995 respectively, which yields smaller, faster assembler code. This
1996 approach is copied from elf32-mips.c. */
1997
1998static asection v850_elf_scom_section;
1999static asymbol v850_elf_scom_symbol;
2000static asymbol * v850_elf_scom_symbol_ptr;
2001static asection v850_elf_tcom_section;
2002static asymbol v850_elf_tcom_symbol;
2003static asymbol * v850_elf_tcom_symbol_ptr;
2004static asection v850_elf_zcom_section;
2005static asymbol v850_elf_zcom_symbol;
2006static asymbol * v850_elf_zcom_symbol_ptr;
2007
e12dd2ea
NC		 2008/* Given a BFD section, try to locate the
2009 corresponding ELF section index. */
252b5132 2010
b34976b6 2011static bfd_boolean
af746e92 2012v850_elf_section_from_bfd_section (abfd, sec, retval)
b34976b6
AM		 2013 bfd *abfd ATTRIBUTE_UNUSED;
2014 asection *sec;
2015 int *retval;
252b5132
RH		 2016{
2017 if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0)
2018 *retval = SHN_V850_SCOMMON;
2019 else if (strcmp (bfd_get_section_name (abfd, sec), ".tcommon") == 0)
2020 *retval = SHN_V850_TCOMMON;
2021 else if (strcmp (bfd_get_section_name (abfd, sec), ".zcommon") == 0)
2022 *retval = SHN_V850_ZCOMMON;
2023 else
b34976b6 2024 return FALSE;
435b1e90 2025
b34976b6 2026 return TRUE;
252b5132
RH		 2027}
2028
2029/* Handle the special V850 section numbers that a symbol may use. */
2030
2031static void
2032v850_elf_symbol_processing (abfd, asym)
b34976b6
AM		 2033 bfd *abfd;
2034 asymbol *asym;
252b5132
RH		 2035{
2036 elf_symbol_type * elfsym = (elf_symbol_type *) asym;
9ad5cbcf 2037 unsigned int indx;
435b1e90 2038
9ad5cbcf 2039 indx = elfsym->internal_elf_sym.st_shndx;
252b5132
RH		 2040
2041 /* If the section index is an "ordinary" index, then it may
2042 refer to a v850 specific section created by the assembler.
2043 Check the section's type and change the index it matches.
435b1e90 2044
252b5132 2045 FIXME: Should we alter the st_shndx field as well ? */
435b1e90 2046
9ad5cbcf
AM		 2047 if (indx < elf_numsections (abfd))
2048 switch (elf_elfsections(abfd)[indx]->sh_type)
252b5132
RH		 2049 {
2050 case SHT_V850_SCOMMON:
9ad5cbcf 2051 indx = SHN_V850_SCOMMON;
252b5132 2052 break;
435b1e90 2053
252b5132 2054 case SHT_V850_TCOMMON:
9ad5cbcf 2055 indx = SHN_V850_TCOMMON;
252b5132 2056 break;
435b1e90 2057
252b5132 2058 case SHT_V850_ZCOMMON:
9ad5cbcf 2059 indx = SHN_V850_ZCOMMON;
252b5132 2060 break;
435b1e90 2061
252b5132
RH		 2062 default:
2063 break;
2064 }
435b1e90 2065
9ad5cbcf 2066 switch (indx)
252b5132
RH		 2067 {
2068 case SHN_V850_SCOMMON:
2069 if (v850_elf_scom_section.name == NULL)
2070 {
2071 /* Initialize the small common section. */
2072 v850_elf_scom_section.name = ".scommon";
2073 v850_elf_scom_section.flags = SEC_IS_COMMON | SEC_ALLOC | SEC_DATA;
2074 v850_elf_scom_section.output_section = & v850_elf_scom_section;
2075 v850_elf_scom_section.symbol = & v850_elf_scom_symbol;
2076 v850_elf_scom_section.symbol_ptr_ptr = & v850_elf_scom_symbol_ptr;
2077 v850_elf_scom_symbol.name = ".scommon";
2078 v850_elf_scom_symbol.flags = BSF_SECTION_SYM;
2079 v850_elf_scom_symbol.section = & v850_elf_scom_section;
2080 v850_elf_scom_symbol_ptr = & v850_elf_scom_symbol;
2081 }
2082 asym->section = & v850_elf_scom_section;
2083 asym->value = elfsym->internal_elf_sym.st_size;
2084 break;
435b1e90 2085
252b5132
RH		 2086 case SHN_V850_TCOMMON:
2087 if (v850_elf_tcom_section.name == NULL)
2088 {
2089 /* Initialize the tcommon section. */
2090 v850_elf_tcom_section.name = ".tcommon";
2091 v850_elf_tcom_section.flags = SEC_IS_COMMON;
2092 v850_elf_tcom_section.output_section = & v850_elf_tcom_section;
2093 v850_elf_tcom_section.symbol = & v850_elf_tcom_symbol;
2094 v850_elf_tcom_section.symbol_ptr_ptr = & v850_elf_tcom_symbol_ptr;
2095 v850_elf_tcom_symbol.name = ".tcommon";
2096 v850_elf_tcom_symbol.flags = BSF_SECTION_SYM;
2097 v850_elf_tcom_symbol.section = & v850_elf_tcom_section;
2098 v850_elf_tcom_symbol_ptr = & v850_elf_tcom_symbol;
2099 }
2100 asym->section = & v850_elf_tcom_section;
2101 asym->value = elfsym->internal_elf_sym.st_size;
2102 break;
2103
2104 case SHN_V850_ZCOMMON:
2105 if (v850_elf_zcom_section.name == NULL)
2106 {
2107 /* Initialize the zcommon section. */
2108 v850_elf_zcom_section.name = ".zcommon";
2109 v850_elf_zcom_section.flags = SEC_IS_COMMON;
2110 v850_elf_zcom_section.output_section = & v850_elf_zcom_section;
2111 v850_elf_zcom_section.symbol = & v850_elf_zcom_symbol;
2112 v850_elf_zcom_section.symbol_ptr_ptr = & v850_elf_zcom_symbol_ptr;
2113 v850_elf_zcom_symbol.name = ".zcommon";
2114 v850_elf_zcom_symbol.flags = BSF_SECTION_SYM;
2115 v850_elf_zcom_symbol.section = & v850_elf_zcom_section;
2116 v850_elf_zcom_symbol_ptr = & v850_elf_zcom_symbol;
2117 }
2118 asym->section = & v850_elf_zcom_section;
2119 asym->value = elfsym->internal_elf_sym.st_size;
2120 break;
2121 }
2122}
2123
2124/* Hook called by the linker routine which adds symbols from an object
2125 file. We must handle the special v850 section numbers here. */
2126
b34976b6 2127static bfd_boolean
252b5132 2128v850_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
b34976b6
AM		 2129 bfd *abfd;
2130 struct bfd_link_info *info ATTRIBUTE_UNUSED;
555cd476 2131 Elf_Internal_Sym *sym;
b34976b6
AM		 2132 const char **namep ATTRIBUTE_UNUSED;
2133 flagword *flagsp ATTRIBUTE_UNUSED;
2134 asection **secp;
2135 bfd_vma *valp;
252b5132 2136{
9ad5cbcf 2137 unsigned int indx = sym->st_shndx;
435b1e90 2138
252b5132
RH		 2139 /* If the section index is an "ordinary" index, then it may
2140 refer to a v850 specific section created by the assembler.
2141 Check the section's type and change the index it matches.
435b1e90 2142
252b5132 2143 FIXME: Should we alter the st_shndx field as well ? */
435b1e90 2144
9ad5cbcf
AM		 2145 if (indx < elf_numsections (abfd))
2146 switch (elf_elfsections(abfd)[indx]->sh_type)
252b5132
RH		 2147 {
2148 case SHT_V850_SCOMMON:
9ad5cbcf 2149 indx = SHN_V850_SCOMMON;
252b5132 2150 break;
435b1e90 2151
252b5132 2152 case SHT_V850_TCOMMON:
9ad5cbcf 2153 indx = SHN_V850_TCOMMON;
252b5132 2154 break;
435b1e90 2155
252b5132 2156 case SHT_V850_ZCOMMON:
9ad5cbcf 2157 indx = SHN_V850_ZCOMMON;
252b5132 2158 break;
435b1e90 2159
252b5132
RH		 2160 default:
2161 break;
2162 }
435b1e90 2163
9ad5cbcf 2164 switch (indx)
252b5132
RH		 2165 {
2166 case SHN_V850_SCOMMON:
2167 *secp = bfd_make_section_old_way (abfd, ".scommon");
2168 (*secp)->flags |= SEC_IS_COMMON;
2169 *valp = sym->st_size;
2170 break;
435b1e90 2171
252b5132
RH		 2172 case SHN_V850_TCOMMON:
2173 *secp = bfd_make_section_old_way (abfd, ".tcommon");
2174 (*secp)->flags |= SEC_IS_COMMON;
2175 *valp = sym->st_size;
2176 break;
435b1e90 2177
252b5132
RH		 2178 case SHN_V850_ZCOMMON:
2179 *secp = bfd_make_section_old_way (abfd, ".zcommon");
2180 (*secp)->flags |= SEC_IS_COMMON;
2181 *valp = sym->st_size;
2182 break;
2183 }
2184
b34976b6 2185 return TRUE;
252b5132
RH		 2186}
2187
b34976b6 2188static bfd_boolean
754021d0 2189v850_elf_link_output_symbol_hook (info, name, sym, input_sec, h)
b34976b6
AM		 2190 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2191 const char *name ATTRIBUTE_UNUSED;
2192 Elf_Internal_Sym *sym;
2193 asection *input_sec;
754021d0 2194 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED;
252b5132
RH		 2195{
2196 /* If we see a common symbol, which implies a relocatable link, then
2197 if a symbol was in a special common section in an input file, mark
2198 it as a special common in the output file. */
435b1e90 2199
252b5132
RH		 2200 if (sym->st_shndx == SHN_COMMON)
2201 {
2202 if (strcmp (input_sec->name, ".scommon") == 0)
2203 sym->st_shndx = SHN_V850_SCOMMON;
2204 else if (strcmp (input_sec->name, ".tcommon") == 0)
2205 sym->st_shndx = SHN_V850_TCOMMON;
2206 else if (strcmp (input_sec->name, ".zcommon") == 0)
2207 sym->st_shndx = SHN_V850_ZCOMMON;
2208 }
2209
b34976b6 2210 return TRUE;
252b5132
RH		 2211}
2212
b34976b6 2213static bfd_boolean
6dc132d9
L		 2214v850_elf_section_from_shdr (bfd *abfd,
2215 Elf_Internal_Shdr *hdr,
2216 const char *name,
2217 int shindex)
252b5132
RH		 2218{
2219 /* There ought to be a place to keep ELF backend specific flags, but
2220 at the moment there isn't one. We just keep track of the
2221 sections by their name, instead. */
2222
6dc132d9 2223 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
b34976b6 2224 return FALSE;
252b5132
RH		 2225
2226 switch (hdr->sh_type)
2227 {
2228 case SHT_V850_SCOMMON:
2229 case SHT_V850_TCOMMON:
2230 case SHT_V850_ZCOMMON:
2231 if (! bfd_set_section_flags (abfd, hdr->bfd_section,
2232 (bfd_get_section_flags (abfd,
2233 hdr->bfd_section)
2234 | SEC_IS_COMMON)))
b34976b6 2235 return FALSE;
252b5132
RH		 2236 }
2237
b34976b6 2238 return TRUE;
252b5132
RH		 2239}
2240
e12dd2ea
NC		 2241/* Set the correct type for a V850 ELF section. We do this
2242 by the section name, which is a hack, but ought to work. */
2243
b34976b6 2244static bfd_boolean
252b5132 2245v850_elf_fake_sections (abfd, hdr, sec)
b34976b6
AM		 2246 bfd *abfd ATTRIBUTE_UNUSED;
2247 Elf_Internal_Shdr *hdr;
2248 asection *sec;
252b5132
RH		 2249{
2250 register const char * name;
2251
2252 name = bfd_get_section_name (abfd, sec);
2253
2254 if (strcmp (name, ".scommon") == 0)
2255 {
2256 hdr->sh_type = SHT_V850_SCOMMON;
2257 }
2258 else if (strcmp (name, ".tcommon") == 0)
2259 {
2260 hdr->sh_type = SHT_V850_TCOMMON;
2261 }
2262 else if (strcmp (name, ".zcommon") == 0)
2263 hdr->sh_type = SHT_V850_ZCOMMON;
435b1e90 2264
b34976b6 2265 return TRUE;
252b5132 2266}
86aba9db
NC		 2267
2268/* Delete some bytes from a section while relaxing. */
2269
b34976b6 2270static bfd_boolean
86aba9db 2271v850_elf_relax_delete_bytes (abfd, sec, addr, toaddr, count)
b34976b6
AM		 2272 bfd *abfd;
2273 asection *sec;
2274 bfd_vma addr;
2275 bfd_vma toaddr;
2276 int count;
86aba9db 2277{
b34976b6
AM		 2278 Elf_Internal_Shdr *symtab_hdr;
2279 Elf32_External_Sym *extsyms;
2280 Elf32_External_Sym *esym;
2281 Elf32_External_Sym *esymend;
2282 int index;
2283 unsigned int sec_shndx;
2284 bfd_byte *contents;
2285 Elf_Internal_Rela *irel;
2286 Elf_Internal_Rela *irelend;
2287 struct elf_link_hash_entry *sym_hash;
2288 Elf_Internal_Shdr *shndx_hdr;
2289 Elf_External_Sym_Shndx *shndx;
86aba9db
NC		 2290
2291 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2292 extsyms = (Elf32_External_Sym *) symtab_hdr->contents;
2293
2294 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
2295
2296 contents = elf_section_data (sec)->this_hdr.contents;
2297
2298 /* The deletion must stop at the next ALIGN reloc for an alignment
2299 power larger than the number of bytes we are deleting. */
2300
2301 /* Actually delete the bytes. */
2302#if (DEBUG_RELAX & 2)
2303 fprintf (stderr, "relax_delete: contents: sec: %s %p .. %p %x\n",
2304 sec->name, addr, toaddr, count );
2305#endif
2306 memmove (contents + addr, contents + addr + count,
2307 toaddr - addr - count);
2308 memset (contents + toaddr-count, 0, count);
2309
2310 /* Adjust all the relocs. */
2311 irel = elf_section_data (sec)->relocs;
2312 irelend = irel + sec->reloc_count;
2313 shndx_hdr = &elf_tdata (abfd)->symtab_shndx_hdr;
2314 shndx = (Elf_External_Sym_Shndx *) shndx_hdr->contents;
2315
2316 for (; irel < irelend; irel++)
2317 {
2318 bfd_vma raddr, paddr, symval;
2319 Elf_Internal_Sym isym;
2320
2321 /* Get the new reloc address. */
2322 raddr = irel->r_offset;
2323 if ((raddr >= (addr + count) && raddr < toaddr))
b34976b6 2324 irel->r_offset -= count;
86aba9db
NC		 2325
2326 if (raddr >= addr && raddr < addr + count)
2327 {
2328 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2329 (int) R_V850_NONE);
2330 continue;
2331 }
b34976b6 2332
86aba9db
NC		 2333 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN)
2334 continue;
2335
2336 bfd_elf32_swap_symbol_in (abfd,
2337 extsyms + ELF32_R_SYM (irel->r_info),
2338 shndx ? shndx + ELF32_R_SYM (irel->r_info) : NULL,
2339 & isym);
b34976b6 2340
86aba9db
NC		 2341 if (isym.st_shndx != sec_shndx)
2342 continue;
2343
2344 /* Get the value of the symbol referred to by the reloc. */
2345 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2346 {
2347 symval = isym.st_value;
2348#if (DEBUG_RELAX & 2)
2349 {
2350 char * name = bfd_elf_string_from_elf_section
2351 (abfd, symtab_hdr->sh_link, isym.st_name);
2352 fprintf (stderr,
2353 "relax_delete: local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
2354 sec->name, name, isym.st_name,
2355 sec->output_section->vma, sec->output_offset,
2356 isym.st_value, irel->r_addend);
2357 }
2358#endif
2359 }
2360 else
2361 {
2362 unsigned long indx;
2363 struct elf_link_hash_entry * h;
2364
2365 /* An external symbol. */
2366 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2367
2368 h = elf_sym_hashes (abfd) [indx];
2369 BFD_ASSERT (h != NULL);
2370
2371 symval = h->root.u.def.value;
2372#if (DEBUG_RELAX & 2)
2373 fprintf (stderr,
2374 "relax_delete: defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
2375 sec->name, h->root.root.string, h->root.u.def.value,
2376 sec->output_section->vma, sec->output_offset, irel->r_addend);
2377#endif
2378 }
b34976b6 2379
86aba9db 2380 paddr = symval + irel->r_addend;
b34976b6 2381
86aba9db
NC		 2382 if ( (symval >= addr + count && symval < toaddr)
2383 && (paddr < addr + count || paddr >= toaddr))
2384 irel->r_addend += count;
2385 else if ( (symval < addr + count || symval >= toaddr)
2386 && (paddr >= addr + count && paddr < toaddr))
2387 irel->r_addend -= count;
2388 }
2389
2390 /* Adjust the local symbols defined in this section. */
2391 esym = extsyms;
2392 esymend = esym + symtab_hdr->sh_info;
2393
2394 for (; esym < esymend; esym++, shndx = (shndx ? shndx + 1 : NULL))
2395 {
2396 Elf_Internal_Sym isym;
2397
2398 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2399
2400 if (isym.st_shndx == sec_shndx
2401 && isym.st_value >= addr + count
2402 && isym.st_value < toaddr)
2403 {
2404 isym.st_value -= count;
2405
2406 if (isym.st_value + isym.st_size >= toaddr)
b34976b6
AM		 2407 isym.st_size += count;
2408
63a23799 2409 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
86aba9db
NC		 2410 }
2411 else if (isym.st_shndx == sec_shndx
2412 && isym.st_value < addr + count)
2413 {
2414 if (isym.st_value+isym.st_size >= addr + count
2415 && isym.st_value+isym.st_size < toaddr)
2416 isym.st_size -= count;
2417
2418 if (isym.st_value >= addr
2419 && isym.st_value < addr + count)
2420 isym.st_value = addr;
2421
63a23799 2422 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
86aba9db
NC		 2423 }
2424 }
2425
2426 /* Now adjust the global symbols defined in this section. */
2427 esym = extsyms + symtab_hdr->sh_info;
2428 esymend = extsyms + (symtab_hdr->sh_size / sizeof (Elf32_External_Sym));
2429
2430 for (index = 0; esym < esymend; esym ++, index ++)
2431 {
2432 Elf_Internal_Sym isym;
2433
2434 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2435 sym_hash = elf_sym_hashes (abfd) [index];
2436
2437 if (isym.st_shndx == sec_shndx
2438 && ((sym_hash)->root.type == bfd_link_hash_defined
2439 || (sym_hash)->root.type == bfd_link_hash_defweak)
2440 && (sym_hash)->root.u.def.section == sec
2441 && (sym_hash)->root.u.def.value >= addr + count
2442 && (sym_hash)->root.u.def.value < toaddr)
2443 {
2444 if ((sym_hash)->root.u.def.value + isym.st_size >= toaddr)
2445 {
2446 isym.st_size += count;
63a23799 2447 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
86aba9db
NC		 2448 }
2449
2450 (sym_hash)->root.u.def.value -= count;
2451 }
2452 else if (isym.st_shndx == sec_shndx
2453 && ((sym_hash)->root.type == bfd_link_hash_defined
2454 || (sym_hash)->root.type == bfd_link_hash_defweak)
2455 && (sym_hash)->root.u.def.section == sec
2456 && (sym_hash)->root.u.def.value < addr + count)
2457 {
2458 if ((sym_hash)->root.u.def.value+isym.st_size >= addr + count
2459 && (sym_hash)->root.u.def.value+isym.st_size < toaddr)
2460 isym.st_size -= count;
2461
2462 if ((sym_hash)->root.u.def.value >= addr
2463 && (sym_hash)->root.u.def.value < addr + count)
2464 (sym_hash)->root.u.def.value = addr;
2465
63a23799 2466 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
86aba9db
NC		 2467 }
2468
2469 if (shndx)
2470 ++ shndx;
2471 }
2472
b34976b6 2473 return TRUE;
86aba9db
NC		 2474}
2475
2476#define NOP_OPCODE (0x0000)
b34976b6 2477#define MOVHI 0x0640 /* 4byte */
86aba9db 2478#define MOVHI_MASK 0x07e0
b34976b6 2479#define MOVHI_R1(insn) ((insn) & 0x1f) /* 4byte */
86aba9db
NC		 2480#define MOVHI_R2(insn) ((insn) >> 11)
2481#define MOVEA 0x0620 /* 2byte */
2482#define MOVEA_MASK 0x07e0
2483#define MOVEA_R1(insn) ((insn) & 0x1f)
2484#define MOVEA_R2(insn) ((insn) >> 11)
2485#define JARL_4 0x00040780 /* 4byte */
2486#define JARL_4_MASK 0xFFFF07FF
2487#define JARL_R2(insn) (int)(((insn) & (~JARL_4_MASK)) >> 11)
2488#define ADD_I 0x0240 /* 2byte */
2489#define ADD_I_MASK 0x07e0
2490#define ADD_I5(insn) ((((insn) & 0x001f) << 11) >> 11) /* 2byte */
2491#define ADD_R2(insn) ((insn) >> 11)
2492#define JMP_R 0x0060 /* 2byte */
2493#define JMP_R_MASK 0xFFE0
2494#define JMP_R1(insn) ((insn) & 0x1f)
2495
b34976b6 2496static bfd_boolean
86aba9db 2497v850_elf_relax_section (abfd, sec, link_info, again)
b34976b6
AM		 2498 bfd *abfd;
2499 asection *sec;
2500 struct bfd_link_info *link_info;
2501 bfd_boolean *again;
86aba9db 2502{
b34976b6
AM		 2503 Elf_Internal_Shdr *symtab_hdr;
2504 Elf_Internal_Rela *internal_relocs;
2505 Elf_Internal_Rela *irel;
2506 Elf_Internal_Rela *irelend;
2507 Elf_Internal_Rela *irelalign = NULL;
2508 Elf_Internal_Sym *isymbuf = NULL;
2509 bfd_byte *contents = NULL;
2510 bfd_vma addr = 0;
2511 bfd_vma toaddr;
2512 int align_pad_size = 0;
2513 bfd_boolean result = TRUE;
2514
2515 *again = FALSE;
86aba9db 2516
1049f94e 2517 if (link_info->relocatable
86aba9db
NC		 2518 || (sec->flags & SEC_RELOC) == 0
2519 || sec->reloc_count == 0)
b34976b6 2520 return TRUE;
86aba9db 2521
86aba9db
NC		 2522 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2523
45d6a902 2524 internal_relocs = (_bfd_elf_link_read_relocs
86aba9db
NC		 2525 (abfd, sec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
2526 link_info->keep_memory));
2527 if (internal_relocs == NULL)
2528 goto error_return;
86aba9db
NC		 2529
2530 irelend = internal_relocs + sec->reloc_count;
b34976b6 2531
eea6121a 2532 while (addr < sec->size)
86aba9db 2533 {
eea6121a 2534 toaddr = sec->size;
86aba9db
NC		 2535
2536 for (irel = internal_relocs; irel < irelend; irel ++)
2537 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
2538 && irel->r_offset > addr
2539 && irel->r_offset < toaddr)
2540 toaddr = irel->r_offset;
b34976b6 2541
86aba9db
NC		 2542#ifdef DEBUG_RELAX
2543 fprintf (stderr, "relax region 0x%x to 0x%x align pad %d\n",
2544 addr, toaddr, align_pad_size);
2545#endif
2546 if (irelalign)
2547 {
2548 bfd_vma alignto;
2549 bfd_vma alignmoveto;
2550
2551 alignmoveto = BFD_ALIGN (addr - align_pad_size, 1 << irelalign->r_addend);
2552 alignto = BFD_ALIGN (addr, 1 << irelalign->r_addend);
2553
2554 if (alignmoveto < alignto)
2555 {
2556 unsigned int i;
2557
2558 align_pad_size = alignto - alignmoveto;
2559#ifdef DEBUG_RELAX
2560 fprintf (stderr, "relax move region 0x%x to 0x%x delete size 0x%x\n",
2561 alignmoveto, toaddr, align_pad_size);
2562#endif
2563 if (!v850_elf_relax_delete_bytes (abfd, sec, alignmoveto,
2564 toaddr, align_pad_size))
b34976b6 2565 goto error_return;
86aba9db
NC		 2566
2567 for (i = BFD_ALIGN (toaddr - align_pad_size, 1);
2568 (i + 1) < toaddr; i += 2)
2569 bfd_put_16 (abfd, NOP_OPCODE, contents + i);
2570
2571 addr = alignmoveto;
2572 }
2573 else
2574 align_pad_size = 0;
2575 }
2576
2577 for (irel = internal_relocs; irel < irelend; irel++)
2578 {
b34976b6
AM		 2579 bfd_vma laddr;
2580 bfd_vma addend;
2581 bfd_vma symval;
2582 int insn[5];
2583 int no_match = -1;
2584 Elf_Internal_Rela *hi_irelfn;
2585 Elf_Internal_Rela *lo_irelfn;
2586 Elf_Internal_Rela *irelcall;
2587 bfd_signed_vma foff;
86aba9db
NC		 2588
2589 if (! (irel->r_offset >= addr && irel->r_offset < toaddr
2590 && (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL
2591 || ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)))
2592 continue;
2593
2594#ifdef DEBUG_RELAX
2595 fprintf (stderr, "relax check r_info 0x%x r_offset 0x%x r_addend 0x%x\n",
2596 irel->r_info,
2597 irel->r_offset,
2598 irel->r_addend );
2599#endif
2600
2601 /* Get the section contents. */
2602 if (contents == NULL)
2603 {
2604 if (elf_section_data (sec)->this_hdr.contents != NULL)
2605 contents = elf_section_data (sec)->this_hdr.contents;
2606 else
2607 {
eea6121a 2608 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
86aba9db
NC		 2609 goto error_return;
2610 }
2611 }
2612
5cec6941
NC		 2613 /* Read this BFD's local symbols if we haven't done so already. */
2614 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
86aba9db 2615 {
5cec6941
NC		 2616 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2617 if (isymbuf == NULL)
2618 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2619 symtab_hdr->sh_info, 0,
2620 NULL, NULL, NULL);
2621 if (isymbuf == NULL)
2622 goto error_return;
86aba9db
NC		 2623 }
2624
2625 laddr = irel->r_offset;
2626
2627 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL)
2628 {
2629 /* Check code for -mlong-calls output. */
eea6121a 2630 if (laddr + 16 <= (bfd_vma) sec->size)
86aba9db
NC		 2631 {
2632 insn[0] = bfd_get_16 (abfd, contents + laddr);
2633 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
2634 insn[2] = bfd_get_32 (abfd, contents + laddr + 8);
2635 insn[3] = bfd_get_16 (abfd, contents + laddr + 12);
2636 insn[4] = bfd_get_16 (abfd, contents + laddr + 14);
b34976b6 2637
86aba9db
NC		 2638 if ((insn[0] & MOVHI_MASK) != MOVHI
2639 || MOVHI_R1 (insn[0]) != 0)
2640 no_match = 0;
2641
2642 if (no_match < 0
2643 && ((insn[1] & MOVEA_MASK) != MOVEA
2644 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
2645 no_match = 1;
2646
2647 if (no_match < 0
2648 && (insn[2] & JARL_4_MASK) != JARL_4)
2649 no_match = 2;
2650
2651 if (no_match < 0
2652 && ((insn[3] & ADD_I_MASK) != ADD_I
2653 || ADD_I5 (insn[3]) != 4
2654 || JARL_R2 (insn[2]) != ADD_R2 (insn[3])))
2655 no_match = 3;
2656
2657 if (no_match < 0
2658 && ((insn[4] & JMP_R_MASK) != JMP_R
2659 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[4])))
2660 no_match = 4;
2661 }
2662 else
2663 {
2664 ((*_bfd_error_handler)
2665 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insns",
2666 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
2667
2668 continue;
2669 }
2670
2671 if (no_match >= 0)
2672 {
2673 ((*_bfd_error_handler)
2674 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insn 0x%x",
2675 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
2676
2677 continue;
b34976b6 2678 }
86aba9db
NC		 2679
2680 /* Get the reloc for the address from which the register is
2681 being loaded. This reloc will tell us which function is
2682 actually being called. */
2683 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
2684 if (hi_irelfn->r_offset == laddr + 2
b34976b6 2685 && ELF32_R_TYPE (hi_irelfn->r_info)
86aba9db
NC		 2686 == (int) R_V850_HI16_S)
2687 break;
2688
2689 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
2690 if (lo_irelfn->r_offset == laddr + 6
2691 && ELF32_R_TYPE (lo_irelfn->r_info)
2692 == (int) R_V850_LO16)
2693 break;
2694
2695 for (irelcall = internal_relocs; irelcall < irelend; irelcall ++)
2696 if (irelcall->r_offset == laddr + 8
2697 && ELF32_R_TYPE (irelcall->r_info)
2698 == (int) R_V850_22_PCREL)
2699 break;
2700
2701 if ( hi_irelfn == irelend
2702 || lo_irelfn == irelend
2703 || irelcall == irelend)
2704 {
2705 ((*_bfd_error_handler)
2706 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc",
2707 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
2708
2709 continue;
2710 }
b34976b6 2711
86aba9db
NC		 2712 if (ELF32_R_SYM (irelcall->r_info) < symtab_hdr->sh_info)
2713 {
5cec6941 2714 Elf_Internal_Sym * isym;
86aba9db
NC		 2715
2716 /* A local symbol. */
5cec6941 2717 isym = isymbuf + ELF32_R_SYM (irelcall->r_info);
86aba9db 2718
5cec6941 2719 symval = isym->st_value;
86aba9db
NC		 2720 }
2721 else
2722 {
2723 unsigned long indx;
2724 struct elf_link_hash_entry * h;
2725
2726 /* An external symbol. */
2727 indx = ELF32_R_SYM (irelcall->r_info) - symtab_hdr->sh_info;
2728 h = elf_sym_hashes (abfd)[indx];
2729 BFD_ASSERT (h != NULL);
2730
2731 if ( h->root.type != bfd_link_hash_defined
2732 && h->root.type != bfd_link_hash_defweak)
2733 /* This appears to be a reference to an undefined
2734 symbol. Just ignore it--it will be caught by the
2735 regular reloc processing. */
2736 continue;
2737
2738 symval = h->root.u.def.value;
2739 }
2740
2741 if (symval + irelcall->r_addend != irelcall->r_offset + 4)
2742 {
2743 ((*_bfd_error_handler)
2744 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc 0x%lx",
2745 bfd_get_filename (abfd), (unsigned long) irel->r_offset, irelcall->r_offset ));
2746
2747 continue;
2748 }
2749
2750 /* Get the value of the symbol referred to by the reloc. */
2751 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
2752 {
b34976b6
AM		 2753 Elf_Internal_Sym *isym;
2754 asection *sym_sec;
86aba9db
NC		 2755
2756 /* A local symbol. */
5cec6941 2757 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
b34976b6 2758
5cec6941 2759 if (isym->st_shndx == SHN_UNDEF)
86aba9db 2760 sym_sec = bfd_und_section_ptr;
5cec6941 2761 else if (isym->st_shndx == SHN_ABS)
86aba9db 2762 sym_sec = bfd_abs_section_ptr;
5cec6941 2763 else if (isym->st_shndx == SHN_COMMON)
86aba9db
NC		 2764 sym_sec = bfd_com_section_ptr;
2765 else
5cec6941
NC		 2766 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2767 symval = (isym->st_value
86aba9db
NC		 2768 + sym_sec->output_section->vma
2769 + sym_sec->output_offset);
2770 }
2771 else
2772 {
2773 unsigned long indx;
b34976b6 2774 struct elf_link_hash_entry *h;
86aba9db
NC		 2775
2776 /* An external symbol. */
5cec6941 2777 indx = ELF32_R_SYM (hi_irelfn->r_info) - symtab_hdr->sh_info;
86aba9db
NC		 2778 h = elf_sym_hashes (abfd)[indx];
2779 BFD_ASSERT (h != NULL);
2780
2781 if ( h->root.type != bfd_link_hash_defined
2782 && h->root.type != bfd_link_hash_defweak)
2783 /* This appears to be a reference to an undefined
2784 symbol. Just ignore it--it will be caught by the
2785 regular reloc processing. */
2786 continue;
2787
2788 symval = (h->root.u.def.value
2789 + h->root.u.def.section->output_section->vma
2790 + h->root.u.def.section->output_offset);
2791 }
2792
2793 addend = irel->r_addend;
2794
2795 foff = (symval + addend
2796 - (irel->r_offset
2797 + sec->output_section->vma
2798 + sec->output_offset
2799 + 4));
2800#ifdef DEBUG_RELAX
2801 fprintf (stderr, "relax longcall r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
2802 irel->r_offset,
2803 (irel->r_offset
2804 + sec->output_section->vma
2805 + sec->output_offset),
2806 symval, addend, foff);
2807#endif
2808
2809 if (foff < -0x100000 || foff >= 0x100000)
2810 /* After all that work, we can't shorten this function call. */
2811 continue;
2812
2813 /* For simplicity of coding, we are going to modify the section
2814 contents, the section relocs, and the BFD symbol table. We
2815 must tell the rest of the code not to free up this
2816 information. It would be possible to instead create a table
2817 of changes which have to be made, as is done in coff-mips.c;
2818 that would be more work, but would require less memory when
2819 the linker is run. */
2820 elf_section_data (sec)->relocs = internal_relocs;
86aba9db 2821 elf_section_data (sec)->this_hdr.contents = contents;
5cec6941 2822 symtab_hdr->contents = (bfd_byte *) isymbuf;
b34976b6 2823
86aba9db
NC		 2824 /* Replace the long call with a jarl. */
2825 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_22_PCREL);
2826
2827 addend = 0;
2828
2829 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
2830 /* If this needs to be changed because of future relaxing,
2831 it will be handled here like other internal IND12W
2832 relocs. */
2833 bfd_put_32 (abfd,
2834 0x00000780 | (JARL_R2 (insn[2])<<11) | ((addend << 16) & 0xffff) | ((addend >> 16) & 0xf),
2835 contents + irel->r_offset);
2836 else
2837 /* We can't fully resolve this yet, because the external
2838 symbol value may be changed by future relaxing.
2839 We let the final link phase handle it. */
2840 bfd_put_32 (abfd, 0x00000780 | (JARL_R2 (insn[2])<<11),
2841 contents + irel->r_offset);
2842
b34976b6 2843 hi_irelfn->r_info =
86aba9db
NC		 2844 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
2845 lo_irelfn->r_info =
2846 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
2847 irelcall->r_info =
2848 ELF32_R_INFO (ELF32_R_SYM (irelcall->r_info), R_V850_NONE);
2849
2850 if (! v850_elf_relax_delete_bytes (abfd, sec,
2851 irel->r_offset + 4, toaddr, 12))
2852 goto error_return;
2853
2854 align_pad_size += 12;
2855 }
2856 else if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)
2857 {
2858 /* Check code for -mlong-jumps output. */
eea6121a 2859 if (laddr + 10 <= (bfd_vma) sec->size)
86aba9db
NC		 2860 {
2861 insn[0] = bfd_get_16 (abfd, contents + laddr);
2862 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
2863 insn[2] = bfd_get_16 (abfd, contents + laddr + 8);
2864
2865 if ((insn[0] & MOVHI_MASK) != MOVHI
2866 || MOVHI_R1 (insn[0]) != 0)
2867 no_match = 0;
2868
2869 if (no_match < 0
2870 && ((insn[1] & MOVEA_MASK) != MOVEA
2871 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
2872 no_match = 1;
2873
2874 if (no_match < 0
2875 && ((insn[2] & JMP_R_MASK) != JMP_R
2876 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[2])))
2877 no_match = 4;
2878 }
2879 else
2880 {
2881 ((*_bfd_error_handler)
2882 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insns",
2883 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
2884
2885 continue;
2886 }
2887
2888 if (no_match >= 0)
2889 {
2890 ((*_bfd_error_handler)
2891 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insn 0x%x",
2892 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
2893
2894 continue;
2895 }
2896
2897 /* Get the reloc for the address from which the register is
2898 being loaded. This reloc will tell us which function is
2899 actually being called. */
2900 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
2901 if (hi_irelfn->r_offset == laddr + 2
b34976b6 2902 && ELF32_R_TYPE (hi_irelfn->r_info) == (int) R_V850_HI16_S)
86aba9db
NC		 2903 break;
2904
2905 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
2906 if (lo_irelfn->r_offset == laddr + 6
2907 && ELF32_R_TYPE (lo_irelfn->r_info) == (int) R_V850_LO16)
2908 break;
2909
2910 if ( hi_irelfn == irelend
2911 || lo_irelfn == irelend)
2912 {
2913 ((*_bfd_error_handler)
2914 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized reloc",
2915 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
2916
2917 continue;
2918 }
b34976b6 2919
86aba9db
NC		 2920 /* Get the value of the symbol referred to by the reloc. */
2921 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
2922 {
5cec6941
NC		 2923 Elf_Internal_Sym * isym;
2924 asection * sym_sec;
86aba9db
NC		 2925
2926 /* A local symbol. */
5cec6941
NC		 2927 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
2928
2929 if (isym->st_shndx == SHN_UNDEF)
86aba9db 2930 sym_sec = bfd_und_section_ptr;
5cec6941 2931 else if (isym->st_shndx == SHN_ABS)
86aba9db 2932 sym_sec = bfd_abs_section_ptr;
5cec6941 2933 else if (isym->st_shndx == SHN_COMMON)
86aba9db
NC		 2934 sym_sec = bfd_com_section_ptr;
2935 else
5cec6941
NC		 2936 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2937 symval = (isym->st_value
86aba9db
NC		 2938 + sym_sec->output_section->vma
2939 + sym_sec->output_offset);
2940#ifdef DEBUG_RELAX
2941 {
2942 char * name = bfd_elf_string_from_elf_section
5cec6941 2943 (abfd, symtab_hdr->sh_link, isym->st_name);
86aba9db
NC		 2944
2945 fprintf (stderr, "relax long jump local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
5cec6941
NC		 2946 sym_sec->name, name, isym->st_name,
2947 sym_sec->output_section->vma,
2948 sym_sec->output_offset,
2949 isym->st_value, irel->r_addend);
86aba9db
NC		 2950 }
2951#endif
2952 }
2953 else
2954 {
2955 unsigned long indx;
2956 struct elf_link_hash_entry * h;
2957
2958 /* An external symbol. */
2959 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2960 h = elf_sym_hashes (abfd)[indx];
2961 BFD_ASSERT (h != NULL);
2962
2963 if ( h->root.type != bfd_link_hash_defined
2964 && h->root.type != bfd_link_hash_defweak)
2965 /* This appears to be a reference to an undefined
2966 symbol. Just ignore it--it will be caught by the
2967 regular reloc processing. */
2968 continue;
2969
2970 symval = (h->root.u.def.value
2971 + h->root.u.def.section->output_section->vma
2972 + h->root.u.def.section->output_offset);
2973#ifdef DEBUG_RELAX
2974 fprintf (stderr,
2975 "relax longjump defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
2976 sec->name, h->root.root.string, h->root.u.def.value,
2977 sec->output_section->vma, sec->output_offset, irel->r_addend);
2978#endif
2979 }
2980
2981 addend = irel->r_addend;
2982
2983 foff = (symval + addend
2984 - (irel->r_offset
2985 + sec->output_section->vma
2986 + sec->output_offset
2987 + 4));
2988#ifdef DEBUG_RELAX
2989 fprintf (stderr, "relax longjump r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
2990 irel->r_offset,
2991 (irel->r_offset
2992 + sec->output_section->vma
2993 + sec->output_offset),
2994 symval, addend, foff);
2995#endif
2996 if (foff < -0x100000 || foff >= 0x100000)
2997 /* After all that work, we can't shorten this function call. */
2998 continue;
2999
3000 /* For simplicity of coding, we are going to modify the section
3001 contents, the section relocs, and the BFD symbol table. We
3002 must tell the rest of the code not to free up this
3003 information. It would be possible to instead create a table
3004 of changes which have to be made, as is done in coff-mips.c;
3005 that would be more work, but would require less memory when
3006 the linker is run. */
3007 elf_section_data (sec)->relocs = internal_relocs;
86aba9db 3008 elf_section_data (sec)->this_hdr.contents = contents;
5cec6941 3009 symtab_hdr->contents = (bfd_byte *) isymbuf;
86aba9db
NC		 3010
3011 if (foff < -0x100 || foff >= 0x100)
3012 {
3013 /* Replace the long jump with a jr. */
3014
3015 irel->r_info =
b34976b6
AM		 3016 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_22_PCREL);
3017
86aba9db
NC		 3018 irel->r_addend = addend;
3019 addend = 0;
3020
3021 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3022 /* If this needs to be changed because of future relaxing,
3023 it will be handled here like other internal IND12W
3024 relocs. */
3025 bfd_put_32 (abfd,
3026 0x00000780 | ((addend << 15) & 0xffff0000) | ((addend >> 17) & 0xf),
3027 contents + irel->r_offset);
3028 else
3029 /* We can't fully resolve this yet, because the external
3030 symbol value may be changed by future relaxing.
3031 We let the final link phase handle it. */
3032 bfd_put_32 (abfd, 0x00000780, contents + irel->r_offset);
3033
3034 hi_irelfn->r_info =
3035 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3036 lo_irelfn->r_info =
3037 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3038 if (!v850_elf_relax_delete_bytes (abfd, sec,
3039 irel->r_offset + 4, toaddr, 6))
3040 goto error_return;
3041
3042 align_pad_size += 6;
3043 }
3044 else
3045 {
3046 /* Replace the long jump with a br. */
3047
3048 irel->r_info =
3049 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_9_PCREL);
3050
3051 irel->r_addend = addend;
3052 addend = 0;
3053
3054 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3055 /* If this needs to be changed because of future relaxing,
3056 it will be handled here like other internal IND12W
3057 relocs. */
3058 bfd_put_16 (abfd,
3059 0x0585 | ((addend << 10) & 0xf800) | ((addend << 3) & 0x0070),
3060 contents + irel->r_offset);
3061 else
3062 /* We can't fully resolve this yet, because the external
3063 symbol value may be changed by future relaxing.
3064 We let the final link phase handle it. */
3065 bfd_put_16 (abfd, 0x0585, contents + irel->r_offset);
3066
3067 hi_irelfn->r_info =
3068 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3069 lo_irelfn->r_info =
3070 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3071 if (!v850_elf_relax_delete_bytes (abfd, sec,
3072 irel->r_offset + 2, toaddr, 8))
3073 goto error_return;
3074
3075 align_pad_size += 8;
3076 }
3077 }
3078 }
3079
3080 irelalign = NULL;
3081 for (irel = internal_relocs; irel < irelend; irel++)
3082 {
3083 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
3084 && irel->r_offset == toaddr)
3085 {
3086 irel->r_offset -= align_pad_size;
3087
3088 if (irelalign == NULL || irelalign->r_addend > irel->r_addend)
3089 irelalign = irel;
3090 }
3091 }
3092
3093 addr = toaddr;
3094 }
3095
3096 if (!irelalign)
3097 {
3098#ifdef DEBUG_RELAX
3099 fprintf (stderr, "relax pad %d shorten %d -> %d\n",
3100 align_pad_size,
eea6121a
AM		 3101 sec->size,
3102 sec->size - align_pad_size);
86aba9db 3103#endif
eea6121a 3104 sec->size -= align_pad_size;
86aba9db
NC		 3105 }
3106
5cec6941
NC		 3107 finish:
3108 if (internal_relocs != NULL
3109 && elf_section_data (sec)->relocs != internal_relocs)
3110 free (internal_relocs);
86aba9db 3111
5cec6941
NC		 3112 if (contents != NULL
3113 && elf_section_data (sec)->this_hdr.contents != (unsigned char *) contents)
3114 free (contents);
86aba9db 3115
5cec6941
NC		 3116 if (isymbuf != NULL
3117 && symtab_hdr->contents != (bfd_byte *) isymbuf)
3118 free (isymbuf);
86aba9db 3119
5cec6941 3120 return result;
86aba9db 3121
5cec6941 3122 error_return:
b34976b6 3123 result = FALSE;
5cec6941 3124 goto finish;
86aba9db 3125}
2f89ff8d 3126
7f4d3958
L		 3127static struct bfd_elf_special_section const
3128 v850_special_sections_c[]=
3129{
3130 { ".call_table_data", 16, 0, SHT_PROGBITS, (SHF_ALLOC
3131 + SHF_WRITE) },
3132 { ".call_table_text", 16, 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3133 + SHF_EXECINSTR) },
3134 { NULL, 0, 0, 0, 0 }
3135};
3136
3137static struct bfd_elf_special_section const
3138 v850_special_sections_r[]=
2f89ff8d 3139{
7dcb9820
AM		 3140 { ".rosdata", 8, -2, SHT_PROGBITS, (SHF_ALLOC
3141 + SHF_V850_GPREL) },
7f4d3958
L		 3142 { ".rozdata", 8, -2, SHT_PROGBITS, (SHF_ALLOC
3143 + SHF_V850_R0REL) },
3144 { NULL, 0, 0, 0, 0 }
3145};
3146
3147static struct bfd_elf_special_section const
3148 v850_special_sections_s[]=
3149{
3150 { ".sdata", 6, -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3151 + SHF_V850_GPREL) },
7dcb9820
AM		 3152 { ".sbss", 5, -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3153 + SHF_V850_GPREL) },
3154 { ".scommon", 8, -2, SHT_V850_SCOMMON, (SHF_ALLOC + SHF_WRITE
3155 + SHF_V850_GPREL) },
7f4d3958
L		 3156 { NULL, 0, 0, 0, 0 }
3157};
3158
3159static struct bfd_elf_special_section const
3160 v850_special_sections_t[]=
3161{
7dcb9820
AM		 3162 { ".tdata", 6, -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3163 + SHF_V850_EPREL) },
3164 { ".tbss", 5, -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3165 + SHF_V850_EPREL) },
3166 { ".tcommon", 8, -2, SHT_V850_TCOMMON, (SHF_ALLOC + SHF_WRITE
3167 + SHF_V850_R0REL) },
7f4d3958
L		 3168 { NULL, 0, 0, 0, 0 }
3169};
3170
3171static struct bfd_elf_special_section const
3172 v850_special_sections_z[]=
3173{
7dcb9820
AM		 3174 { ".zdata", 6, -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3175 + SHF_V850_R0REL) },
7dcb9820
AM		 3176 { ".zbss", 5, -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3177 + SHF_V850_R0REL) },
3178 { ".zcommon", 8, -2, SHT_V850_ZCOMMON, (SHF_ALLOC + SHF_WRITE
3179 + SHF_V850_R0REL) },
7f4d3958
L		 3180 { NULL, 0, 0, 0, 0 }
3181};
3182
3183static struct bfd_elf_special_section const *
3184 v850_elf_special_sections[27] =
3185{
3186 NULL, /* 'a' */
3187 NULL, /* 'b' */
3188 v850_special_sections_c, /* 'c' */
3189 NULL, /* 'd' */
3190 NULL, /* 'e' */
3191 NULL, /* 'f' */
3192 NULL, /* 'g' */
3193 NULL, /* 'h' */
3194 NULL, /* 'i' */
3195 NULL, /* 'j' */
3196 NULL, /* 'k' */
3197 NULL, /* 'l' */
3198 NULL, /* 'm' */
3199 NULL, /* 'n' */
3200 NULL, /* 'o' */
3201 NULL, /* 'p' */
3202 NULL, /* 'q' */
3203 v850_special_sections_r, /* 'r' */
3204 v850_special_sections_s, /* 's' */
3205 v850_special_sections_t, /* 't' */
3206 NULL, /* 'u' */
3207 NULL, /* 'v' */
3208 NULL, /* 'w' */
3209 NULL, /* 'x' */
3210 NULL, /* 'y' */
3211 v850_special_sections_z, /* 'z' */
3212 NULL /* other */
2f89ff8d 3213};
252b5132
RH		 3214\f
3215#define TARGET_LITTLE_SYM bfd_elf32_v850_vec
3216#define TARGET_LITTLE_NAME "elf32-v850"
3217#define ELF_ARCH bfd_arch_v850
aa4f99bb
AO		 3218#define ELF_MACHINE_CODE EM_V850
3219#define ELF_MACHINE_ALT1 EM_CYGNUS_V850
46767561 3220#define ELF_MACHINE_ALT2 EM_V800 /* This is the value used by the GreenHills toolchain. */
252b5132 3221#define ELF_MAXPAGESIZE 0x1000
435b1e90 3222
252b5132
RH		 3223#define elf_info_to_howto v850_elf_info_to_howto_rela
3224#define elf_info_to_howto_rel v850_elf_info_to_howto_rel
3225
3226#define elf_backend_check_relocs v850_elf_check_relocs
3227#define elf_backend_relocate_section v850_elf_relocate_section
3228#define elf_backend_object_p v850_elf_object_p
3229#define elf_backend_final_write_processing v850_elf_final_write_processing
3230#define elf_backend_section_from_bfd_section v850_elf_section_from_bfd_section
3231#define elf_backend_symbol_processing v850_elf_symbol_processing
3232#define elf_backend_add_symbol_hook v850_elf_add_symbol_hook
3233#define elf_backend_link_output_symbol_hook v850_elf_link_output_symbol_hook
3234#define elf_backend_section_from_shdr v850_elf_section_from_shdr
3235#define elf_backend_fake_sections v850_elf_fake_sections
3236#define elf_backend_gc_mark_hook v850_elf_gc_mark_hook
3237#define elf_backend_gc_sweep_hook v850_elf_gc_sweep_hook
2f89ff8d 3238#define elf_backend_special_sections v850_elf_special_sections
252b5132
RH		 3239
3240#define elf_backend_can_gc_sections 1
f0fe0e16 3241#define elf_backend_rela_normal 1
252b5132 3242
252b5132
RH		 3243#define bfd_elf32_bfd_is_local_label_name v850_elf_is_local_label_name
3244#define bfd_elf32_bfd_reloc_type_lookup v850_elf_reloc_type_lookup
252b5132
RH		 3245#define bfd_elf32_bfd_merge_private_bfd_data v850_elf_merge_private_bfd_data
3246#define bfd_elf32_bfd_set_private_flags v850_elf_set_private_flags
3247#define bfd_elf32_bfd_print_private_bfd_data v850_elf_print_private_bfd_data
86aba9db 3248#define bfd_elf32_bfd_relax_section v850_elf_relax_section
252b5132
RH		 3249
3250#define elf_symbol_leading_char '_'
3251
3252#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.565503 seconds and 4 git commands to generate.