1 /* MSP430-specific support for 32-bit ELF
2 Copyright (C) 2002-2020 Free Software Foundation, Inc.
3 Contributed by Dmitry Diky <diwil@mail.ru>
4
5 This file is part of BFD, the Binary File Descriptor library.
6
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 3 of the License, or
10 (at your option) any later version.
11
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.
16
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
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "libiberty.h"
25 #include "libbfd.h"
26 #include "elf-bfd.h"
27 #include "elf/msp430.h"
28
29 static bfd_boolean debug_relocs = 0;
30
31 /* All users of this file have bfd_octets_per_byte (abfd, sec) == 1. */
32 #define OCTETS_PER_BYTE(ABFD, SEC) 1
33
34 static bfd_reloc_status_type
rl78_sym_diff_handler(bfd * abfd,arelent * reloc,asymbol * sym ATTRIBUTE_UNUSED,void * addr ATTRIBUTE_UNUSED,asection * input_sec,bfd * out_bfd ATTRIBUTE_UNUSED,char ** error_message ATTRIBUTE_UNUSED)35 rl78_sym_diff_handler (bfd * abfd,
36 arelent * reloc,
37 asymbol * sym ATTRIBUTE_UNUSED,
38 void * addr ATTRIBUTE_UNUSED,
39 asection * input_sec,
40 bfd * out_bfd ATTRIBUTE_UNUSED,
41 char ** error_message ATTRIBUTE_UNUSED)
42 {
43 bfd_size_type octets;
44 octets = reloc->address * OCTETS_PER_BYTE (abfd, input_sec);
45
46 /* Catch the case where bfd_install_relocation would return
47 bfd_reloc_outofrange because the SYM_DIFF reloc is being used in a very
48 small section. It does not actually matter if this happens because all
49 that SYM_DIFF does is compute a (4-byte) value. A second reloc then uses
50 this value, and it is that reloc that must fit into the section.
51
52 This happens in eg, gcc/testsuite/gcc.c-torture/compile/labels-3.c. */
53 if ((octets + bfd_get_reloc_size (reloc->howto))
54 > bfd_get_section_limit_octets (abfd, input_sec))
55 return bfd_reloc_ok;
56 return bfd_reloc_continue;
57 }
58
59 /* Special handler for relocations which don't have to be relocated.
60 This function just simply returns bfd_reloc_ok. */
61 static bfd_reloc_status_type
msp430_elf_ignore_reloc(bfd * abfd ATTRIBUTE_UNUSED,arelent * reloc_entry,asymbol * symbol ATTRIBUTE_UNUSED,void * data ATTRIBUTE_UNUSED,asection * input_section,bfd * output_bfd,char ** error_message ATTRIBUTE_UNUSED)62 msp430_elf_ignore_reloc (bfd *abfd ATTRIBUTE_UNUSED, arelent *reloc_entry,
63 asymbol *symbol ATTRIBUTE_UNUSED,
64 void *data ATTRIBUTE_UNUSED, asection *input_section,
65 bfd *output_bfd, char **error_message ATTRIBUTE_UNUSED)
66 {
67 if (output_bfd != NULL)
68 reloc_entry->address += input_section->output_offset;
69
70 return bfd_reloc_ok;
71 }
72
73 static reloc_howto_type elf_msp430_howto_table[] =
74 {
75 HOWTO (R_MSP430_NONE, /* type */
76 0, /* rightshift */
77 3, /* size (0 = byte, 1 = short, 2 = long) */
78 0, /* bitsize */
79 FALSE, /* pc_relative */
80 0, /* bitpos */
81 complain_overflow_dont,/* complain_on_overflow */
82 bfd_elf_generic_reloc, /* special_function */
83 "R_MSP430_NONE", /* name */
84 FALSE, /* partial_inplace */
85 0, /* src_mask */
86 0, /* dst_mask */
87 FALSE), /* pcrel_offset */
88
89 HOWTO (R_MSP430_32, /* type */
90 0, /* rightshift */
91 2, /* size (0 = byte, 1 = short, 2 = long) */
92 32, /* bitsize */
93 FALSE, /* pc_relative */
94 0, /* bitpos */
95 complain_overflow_bitfield,/* complain_on_overflow */
96 bfd_elf_generic_reloc, /* special_function */
97 "R_MSP430_32", /* name */
98 FALSE, /* partial_inplace */
99 0xffffffff, /* src_mask */
100 0xffffffff, /* dst_mask */
101 FALSE), /* pcrel_offset */
102
103 /* A 10 bit PC relative relocation. */
104 HOWTO (R_MSP430_10_PCREL, /* type */
105 1, /* rightshift */
106 1, /* size (0 = byte, 1 = short, 2 = long) */
107 10, /* bitsize */
108 TRUE, /* pc_relative */
109 0, /* bitpos */
110 complain_overflow_bitfield,/* complain_on_overflow */
111 bfd_elf_generic_reloc, /* special_function */
112 "R_MSP430_10_PCREL", /* name */
113 FALSE, /* partial_inplace */
114 0x3ff, /* src_mask */
115 0x3ff, /* dst_mask */
116 TRUE), /* pcrel_offset */
117
118 /* A 16 bit absolute relocation. */
119 HOWTO (R_MSP430_16, /* type */
120 0, /* rightshift */
121 1, /* size (0 = byte, 1 = short, 2 = long) */
122 16, /* bitsize */
123 FALSE, /* pc_relative */
124 0, /* bitpos */
125 complain_overflow_dont,/* complain_on_overflow */
126 bfd_elf_generic_reloc, /* special_function */
127 "R_MSP430_16", /* name */
128 FALSE, /* partial_inplace */
129 0, /* src_mask */
130 0xffff, /* dst_mask */
131 FALSE), /* pcrel_offset */
132
133 /* A 16 bit PC relative relocation for command address. */
134 HOWTO (R_MSP430_16_PCREL, /* type */
135 1, /* rightshift */
136 1, /* size (0 = byte, 1 = short, 2 = long) */
137 16, /* bitsize */
138 TRUE, /* pc_relative */
139 0, /* bitpos */
140 complain_overflow_dont,/* complain_on_overflow */
141 bfd_elf_generic_reloc, /* special_function */
142 "R_MSP430_16_PCREL", /* name */
143 FALSE, /* partial_inplace */
144 0, /* src_mask */
145 0xffff, /* dst_mask */
146 TRUE), /* pcrel_offset */
147
148 /* A 16 bit absolute relocation, byte operations. */
149 HOWTO (R_MSP430_16_BYTE, /* type */
150 0, /* rightshift */
151 1, /* size (0 = byte, 1 = short, 2 = long) */
152 16, /* bitsize */
153 FALSE, /* pc_relative */
154 0, /* bitpos */
155 complain_overflow_dont,/* complain_on_overflow */
156 bfd_elf_generic_reloc, /* special_function */
157 "R_MSP430_16_BYTE", /* name */
158 FALSE, /* partial_inplace */
159 0xffff, /* src_mask */
160 0xffff, /* dst_mask */
161 FALSE), /* pcrel_offset */
162
163 /* A 16 bit absolute relocation for command address. */
164 HOWTO (R_MSP430_16_PCREL_BYTE,/* type */
165 1, /* rightshift */
166 1, /* size (0 = byte, 1 = short, 2 = long) */
167 16, /* bitsize */
168 TRUE, /* pc_relative */
169 0, /* bitpos */
170 complain_overflow_dont,/* complain_on_overflow */
171 bfd_elf_generic_reloc, /* special_function */
172 "R_MSP430_16_PCREL_BYTE",/* name */
173 FALSE, /* partial_inplace */
174 0xffff, /* src_mask */
175 0xffff, /* dst_mask */
176 TRUE), /* pcrel_offset */
177
178 /* A 10 bit PC relative relocation for complicated polymorphs. */
179 HOWTO (R_MSP430_2X_PCREL, /* type */
180 1, /* rightshift */
181 2, /* size (0 = byte, 1 = short, 2 = long) */
182 10, /* bitsize */
183 TRUE, /* pc_relative */
184 0, /* bitpos */
185 complain_overflow_bitfield,/* complain_on_overflow */
186 bfd_elf_generic_reloc, /* special_function */
187 "R_MSP430_2X_PCREL", /* name */
188 FALSE, /* partial_inplace */
189 0x3ff, /* src_mask */
190 0x3ff, /* dst_mask */
191 TRUE), /* pcrel_offset */
192
193 /* A 16 bit relaxable relocation for command address. */
194 HOWTO (R_MSP430_RL_PCREL, /* type */
195 1, /* rightshift */
196 1, /* size (0 = byte, 1 = short, 2 = long) */
197 16, /* bitsize */
198 TRUE, /* pc_relative */
199 0, /* bitpos */
200 complain_overflow_dont,/* complain_on_overflow */
201 bfd_elf_generic_reloc, /* special_function */
202 "R_MSP430_RL_PCREL", /* name */
203 FALSE, /* partial_inplace */
204 0, /* src_mask */
205 0xffff, /* dst_mask */
206 TRUE) /* pcrel_offset */
207
208 /* A 8-bit absolute relocation. */
209 , HOWTO (R_MSP430_8, /* type */
210 0, /* rightshift */
211 0, /* size (0 = byte, 1 = short, 2 = long) */
212 8, /* bitsize */
213 FALSE, /* pc_relative */
214 0, /* bitpos */
215 complain_overflow_dont,/* complain_on_overflow */
216 bfd_elf_generic_reloc, /* special_function */
217 "R_MSP430_8", /* name */
218 FALSE, /* partial_inplace */
219 0, /* src_mask */
220 0xffff, /* dst_mask */
221 FALSE), /* pcrel_offset */
222
223 /* Together with a following reloc, allows for the difference
224 between two symbols to be the real addend of the second reloc. */
225 HOWTO (R_MSP430_SYM_DIFF, /* type */
226 0, /* rightshift */
227 2, /* size (0 = byte, 1 = short, 2 = long) */
228 32, /* bitsize */
229 FALSE, /* pc_relative */
230 0, /* bitpos */
231 complain_overflow_dont,/* complain_on_overflow */
232 rl78_sym_diff_handler, /* special handler. */
233 "R_MSP430_SYM_DIFF", /* name */
234 FALSE, /* partial_inplace */
235 0xffffffff, /* src_mask */
236 0xffffffff, /* dst_mask */
237 FALSE), /* pcrel_offset */
238
239 /* The length of unsigned-leb128 is variable, just assume the
240 size is one byte here. */
241 HOWTO (R_MSP430_GNU_SET_ULEB128, /* type */
242 0, /* rightshift */
243 0, /* size */
244 0, /* bitsize */
245 FALSE, /* pc_relative */
246 0, /* bitpos */
247 complain_overflow_dont, /* complain_on_overflow */
248 msp430_elf_ignore_reloc, /* special handler. */
249 "R_MSP430_GNU_SET_ULEB128", /* name */
250 FALSE, /* partial_inplace */
251 0, /* src_mask */
252 0, /* dst_mask */
253 FALSE), /* pcrel_offset */
254
255 /* The length of unsigned-leb128 is variable, just assume the
256 size is one byte here. */
257 HOWTO (R_MSP430_GNU_SUB_ULEB128, /* type */
258 0, /* rightshift */
259 0, /* size */
260 0, /* bitsize */
261 FALSE, /* pc_relative */
262 0, /* bitpos */
263 complain_overflow_dont, /* complain_on_overflow */
264 msp430_elf_ignore_reloc, /* special handler. */
265 "R_MSP430_GNU_SUB_ULEB128", /* name */
266 FALSE, /* partial_inplace */
267 0, /* src_mask */
268 0, /* dst_mask */
269 FALSE), /* pcrel_offset */
270
271 };
272
273 static reloc_howto_type elf_msp430x_howto_table[] =
274 {
275 HOWTO (R_MSP430_NONE, /* type */
276 0, /* rightshift */
277 3, /* size (0 = byte, 1 = short, 2 = long) */
278 0, /* bitsize */
279 FALSE, /* pc_relative */
280 0, /* bitpos */
281 complain_overflow_dont,/* complain_on_overflow */
282 bfd_elf_generic_reloc, /* special_function */
283 "R_MSP430_NONE", /* name */
284 FALSE, /* partial_inplace */
285 0, /* src_mask */
286 0, /* dst_mask */
287 FALSE), /* pcrel_offset */
288
289 HOWTO (R_MSP430_ABS32, /* type */
290 0, /* rightshift */
291 2, /* size (0 = byte, 1 = short, 2 = long) */
292 32, /* bitsize */
293 FALSE, /* pc_relative */
294 0, /* bitpos */
295 complain_overflow_bitfield,/* complain_on_overflow */
296 bfd_elf_generic_reloc, /* special_function */
297 "R_MSP430_ABS32", /* name */
298 FALSE, /* partial_inplace */
299 0xffffffff, /* src_mask */
300 0xffffffff, /* dst_mask */
301 FALSE), /* pcrel_offset */
302
303 HOWTO (R_MSP430_ABS16, /* type */
304 0, /* rightshift */
305 1, /* size (0 = byte, 1 = short, 2 = long) */
306 16, /* bitsize */
307 FALSE, /* pc_relative */
308 0, /* bitpos */
309 complain_overflow_dont,/* complain_on_overflow */
310 bfd_elf_generic_reloc, /* special_function */
311 "R_MSP430_ABS16", /* name */
312 FALSE, /* partial_inplace */
313 0, /* src_mask */
314 0xffff, /* dst_mask */
315 FALSE), /* pcrel_offset */
316
317 HOWTO (R_MSP430_ABS8, /* type */
318 0, /* rightshift */
319 0, /* size (0 = byte, 1 = short, 2 = long) */
320 8, /* bitsize */
321 FALSE, /* pc_relative */
322 0, /* bitpos */
323 complain_overflow_bitfield,/* complain_on_overflow */
324 bfd_elf_generic_reloc, /* special_function */
325 "R_MSP430_ABS8", /* name */
326 FALSE, /* partial_inplace */
327 0xff, /* src_mask */
328 0xff, /* dst_mask */
329 FALSE), /* pcrel_offset */
330
331 HOWTO (R_MSP430_PCR16, /* type */
332 1, /* rightshift */
333 1, /* size (0 = byte, 1 = short, 2 = long) */
334 16, /* bitsize */
335 TRUE, /* pc_relative */
336 0, /* bitpos */
337 complain_overflow_dont,/* complain_on_overflow */
338 bfd_elf_generic_reloc, /* special_function */
339 "R_MSP430_PCR16", /* name */
340 FALSE, /* partial_inplace */
341 0, /* src_mask */
342 0xffff, /* dst_mask */
343 TRUE), /* pcrel_offset */
344
345 HOWTO (R_MSP430X_PCR20_EXT_SRC,/* type */
346 0, /* rightshift */
347 2, /* size (0 = byte, 1 = short, 2 = long) */
348 32, /* bitsize */
349 TRUE, /* pc_relative */
350 0, /* bitpos */
351 complain_overflow_dont,/* complain_on_overflow */
352 bfd_elf_generic_reloc, /* special_function */
353 "R_MSP430X_PCR20_EXT_SRC",/* name */
354 FALSE, /* partial_inplace */
355 0, /* src_mask */
356 0xffff, /* dst_mask */
357 TRUE), /* pcrel_offset */
358
359 HOWTO (R_MSP430X_PCR20_EXT_DST,/* type */
360 0, /* rightshift */
361 2, /* size (0 = byte, 1 = short, 2 = long) */
362 32, /* bitsize */
363 TRUE, /* pc_relative */
364 0, /* bitpos */
365 complain_overflow_dont,/* complain_on_overflow */
366 bfd_elf_generic_reloc, /* special_function */
367 "R_MSP430X_PCR20_EXT_DST",/* name */
368 FALSE, /* partial_inplace */
369 0, /* src_mask */
370 0xffff, /* dst_mask */
371 TRUE), /* pcrel_offset */
372
373 HOWTO (R_MSP430X_PCR20_EXT_ODST,/* type */
374 0, /* rightshift */
375 2, /* size (0 = byte, 1 = short, 2 = long) */
376 32, /* bitsize */
377 TRUE, /* pc_relative */
378 0, /* bitpos */
379 complain_overflow_dont,/* complain_on_overflow */
380 bfd_elf_generic_reloc, /* special_function */
381 "R_MSP430X_PCR20_EXT_ODST",/* name */
382 FALSE, /* partial_inplace */
383 0, /* src_mask */
384 0xffff, /* dst_mask */
385 TRUE), /* pcrel_offset */
386
387 HOWTO (R_MSP430X_ABS20_EXT_SRC,/* type */
388 0, /* rightshift */
389 2, /* size (0 = byte, 1 = short, 2 = long) */
390 32, /* bitsize */
391 TRUE, /* pc_relative */
392 0, /* bitpos */
393 complain_overflow_dont,/* complain_on_overflow */
394 bfd_elf_generic_reloc, /* special_function */
395 "R_MSP430X_ABS20_EXT_SRC",/* name */
396 FALSE, /* partial_inplace */
397 0, /* src_mask */
398 0xffff, /* dst_mask */
399 TRUE), /* pcrel_offset */
400
401 HOWTO (R_MSP430X_ABS20_EXT_DST,/* type */
402 0, /* rightshift */
403 2, /* size (0 = byte, 1 = short, 2 = long) */
404 32, /* bitsize */
405 TRUE, /* pc_relative */
406 0, /* bitpos */
407 complain_overflow_dont,/* complain_on_overflow */
408 bfd_elf_generic_reloc, /* special_function */
409 "R_MSP430X_ABS20_EXT_DST",/* name */
410 FALSE, /* partial_inplace */
411 0, /* src_mask */
412 0xffff, /* dst_mask */
413 TRUE), /* pcrel_offset */
414
415 HOWTO (R_MSP430X_ABS20_EXT_ODST,/* type */
416 0, /* rightshift */
417 2, /* size (0 = byte, 1 = short, 2 = long) */
418 32, /* bitsize */
419 TRUE, /* pc_relative */
420 0, /* bitpos */
421 complain_overflow_dont,/* complain_on_overflow */
422 bfd_elf_generic_reloc, /* special_function */
423 "R_MSP430X_ABS20_EXT_ODST",/* name */
424 FALSE, /* partial_inplace */
425 0, /* src_mask */
426 0xffff, /* dst_mask */
427 TRUE), /* pcrel_offset */
428
429 HOWTO (R_MSP430X_ABS20_ADR_SRC,/* type */
430 0, /* rightshift */
431 2, /* size (0 = byte, 1 = short, 2 = long) */
432 32, /* bitsize */
433 TRUE, /* pc_relative */
434 0, /* bitpos */
435 complain_overflow_dont,/* complain_on_overflow */
436 bfd_elf_generic_reloc, /* special_function */
437 "R_MSP430X_ABS20_ADR_SRC",/* name */
438 FALSE, /* partial_inplace */
439 0, /* src_mask */
440 0xffff, /* dst_mask */
441 TRUE), /* pcrel_offset */
442
443 HOWTO (R_MSP430X_ABS20_ADR_DST,/* type */
444 0, /* rightshift */
445 2, /* size (0 = byte, 1 = short, 2 = long) */
446 32, /* bitsize */
447 TRUE, /* pc_relative */
448 0, /* bitpos */
449 complain_overflow_dont,/* complain_on_overflow */
450 bfd_elf_generic_reloc, /* special_function */
451 "R_MSP430X_ABS20_ADR_DST",/* name */
452 FALSE, /* partial_inplace */
453 0, /* src_mask */
454 0xffff, /* dst_mask */
455 TRUE), /* pcrel_offset */
456
457 HOWTO (R_MSP430X_PCR16, /* type */
458 0, /* rightshift */
459 2, /* size (0 = byte, 1 = short, 2 = long) */
460 32, /* bitsize */
461 TRUE, /* pc_relative */
462 0, /* bitpos */
463 complain_overflow_dont,/* complain_on_overflow */
464 bfd_elf_generic_reloc, /* special_function */
465 "R_MSP430X_PCR16", /* name */
466 FALSE, /* partial_inplace */
467 0, /* src_mask */
468 0xffff, /* dst_mask */
469 TRUE), /* pcrel_offset */
470
471 HOWTO (R_MSP430X_PCR20_CALL, /* type */
472 0, /* rightshift */
473 2, /* size (0 = byte, 1 = short, 2 = long) */
474 32, /* bitsize */
475 TRUE, /* pc_relative */
476 0, /* bitpos */
477 complain_overflow_dont,/* complain_on_overflow */
478 bfd_elf_generic_reloc, /* special_function */
479 "R_MSP430X_PCR20_CALL",/* name */
480 FALSE, /* partial_inplace */
481 0, /* src_mask */
482 0xffff, /* dst_mask */
483 TRUE), /* pcrel_offset */
484
485 HOWTO (R_MSP430X_ABS16, /* type */
486 0, /* rightshift */
487 2, /* size (0 = byte, 1 = short, 2 = long) */
488 32, /* bitsize */
489 TRUE, /* pc_relative */
490 0, /* bitpos */
491 complain_overflow_dont,/* complain_on_overflow */
492 bfd_elf_generic_reloc, /* special_function */
493 "R_MSP430X_ABS16", /* name */
494 FALSE, /* partial_inplace */
495 0, /* src_mask */
496 0xffff, /* dst_mask */
497 TRUE), /* pcrel_offset */
498
499 HOWTO (R_MSP430_ABS_HI16, /* type */
500 0, /* rightshift */
501 2, /* size (0 = byte, 1 = short, 2 = long) */
502 32, /* bitsize */
503 TRUE, /* pc_relative */
504 0, /* bitpos */
505 complain_overflow_dont,/* complain_on_overflow */
506 bfd_elf_generic_reloc, /* special_function */
507 "R_MSP430_ABS_HI16", /* name */
508 FALSE, /* partial_inplace */
509 0, /* src_mask */
510 0xffff, /* dst_mask */
511 TRUE), /* pcrel_offset */
512
513 HOWTO (R_MSP430_PREL31, /* type */
514 0, /* rightshift */
515 2, /* size (0 = byte, 1 = short, 2 = long) */
516 32, /* bitsize */
517 TRUE, /* pc_relative */
518 0, /* bitpos */
519 complain_overflow_dont,/* complain_on_overflow */
520 bfd_elf_generic_reloc, /* special_function */
521 "R_MSP430_PREL31", /* name */
522 FALSE, /* partial_inplace */
523 0, /* src_mask */
524 0xffff, /* dst_mask */
525 TRUE), /* pcrel_offset */
526
527 EMPTY_HOWTO (R_MSP430_EHTYPE),
528
529 /* A 10 bit PC relative relocation. */
530 HOWTO (R_MSP430X_10_PCREL, /* type */
531 1, /* rightshift */
532 1, /* size (0 = byte, 1 = short, 2 = long) */
533 10, /* bitsize */
534 TRUE, /* pc_relative */
535 0, /* bitpos */
536 complain_overflow_bitfield,/* complain_on_overflow */
537 bfd_elf_generic_reloc, /* special_function */
538 "R_MSP430X_10_PCREL", /* name */
539 FALSE, /* partial_inplace */
540 0x3ff, /* src_mask */
541 0x3ff, /* dst_mask */
542 TRUE), /* pcrel_offset */
543
544 /* A 10 bit PC relative relocation for complicated polymorphs. */
545 HOWTO (R_MSP430X_2X_PCREL, /* type */
546 1, /* rightshift */
547 2, /* size (0 = byte, 1 = short, 2 = long) */
548 10, /* bitsize */
549 TRUE, /* pc_relative */
550 0, /* bitpos */
551 complain_overflow_bitfield,/* complain_on_overflow */
552 bfd_elf_generic_reloc, /* special_function */
553 "R_MSP430X_2X_PCREL", /* name */
554 FALSE, /* partial_inplace */
555 0x3ff, /* src_mask */
556 0x3ff, /* dst_mask */
557 TRUE), /* pcrel_offset */
558
559 /* Together with a following reloc, allows for the difference
560 between two symbols to be the real addend of the second reloc. */
561 HOWTO (R_MSP430X_SYM_DIFF, /* type */
562 0, /* rightshift */
563 2, /* size (0 = byte, 1 = short, 2 = long) */
564 32, /* bitsize */
565 FALSE, /* pc_relative */
566 0, /* bitpos */
567 complain_overflow_dont,/* complain_on_overflow */
568 rl78_sym_diff_handler, /* special handler. */
569 "R_MSP430X_SYM_DIFF", /* name */
570 FALSE, /* partial_inplace */
571 0xffffffff, /* src_mask */
572 0xffffffff, /* dst_mask */
573 FALSE), /* pcrel_offset */
574
575 /* The length of unsigned-leb128 is variable, just assume the
576 size is one byte here. */
577 HOWTO (R_MSP430X_GNU_SET_ULEB128, /* type */
578 0, /* rightshift */
579 0, /* size */
580 0, /* bitsize */
581 FALSE, /* pc_relative */
582 0, /* bitpos */
583 complain_overflow_dont, /* complain_on_overflow */
584 msp430_elf_ignore_reloc, /* special handler. */
585 "R_MSP430X_GNU_SET_ULEB128", /* name */
586 FALSE, /* partial_inplace */
587 0, /* src_mask */
588 0, /* dst_mask */
589 FALSE), /* pcrel_offset */
590
591 /* The length of unsigned-leb128 is variable, just assume the
592 size is one byte here. */
593 HOWTO (R_MSP430X_GNU_SUB_ULEB128, /* type */
594 0, /* rightshift */
595 0, /* size */
596 0, /* bitsize */
597 FALSE, /* pc_relative */
598 0, /* bitpos */
599 complain_overflow_dont, /* complain_on_overflow */
600 msp430_elf_ignore_reloc, /* special handler. */
601 "R_MSP430X_GNU_SUB_ULEB128", /* name */
602 FALSE, /* partial_inplace */
603 0, /* src_mask */
604 0, /* dst_mask */
605 FALSE), /* pcrel_offset */
606
607 };
608
609 /* Map BFD reloc types to MSP430 ELF reloc types. */
610
611 struct msp430_reloc_map
612 {
613 bfd_reloc_code_real_type bfd_reloc_val;
614 unsigned int elf_reloc_val;
615 };
616
617 static const struct msp430_reloc_map msp430_reloc_map[] =
618 {
619 {BFD_RELOC_NONE, R_MSP430_NONE},
620 {BFD_RELOC_32, R_MSP430_32},
621 {BFD_RELOC_MSP430_10_PCREL, R_MSP430_10_PCREL},
622 {BFD_RELOC_16, R_MSP430_16_BYTE},
623 {BFD_RELOC_MSP430_16_PCREL, R_MSP430_16_PCREL},
624 {BFD_RELOC_MSP430_16, R_MSP430_16},
625 {BFD_RELOC_MSP430_16_PCREL_BYTE, R_MSP430_16_PCREL_BYTE},
626 {BFD_RELOC_MSP430_16_BYTE, R_MSP430_16_BYTE},
627 {BFD_RELOC_MSP430_2X_PCREL, R_MSP430_2X_PCREL},
628 {BFD_RELOC_MSP430_RL_PCREL, R_MSP430_RL_PCREL},
629 {BFD_RELOC_8, R_MSP430_8},
630 {BFD_RELOC_MSP430_SYM_DIFF, R_MSP430_SYM_DIFF},
631 {BFD_RELOC_MSP430_SET_ULEB128, R_MSP430_GNU_SET_ULEB128 },
632 {BFD_RELOC_MSP430_SUB_ULEB128, R_MSP430_GNU_SUB_ULEB128 }
633 };
634
635 static const struct msp430_reloc_map msp430x_reloc_map[] =
636 {
637 {BFD_RELOC_NONE, R_MSP430_NONE},
638 {BFD_RELOC_32, R_MSP430_ABS32},
639 {BFD_RELOC_16, R_MSP430_ABS16},
640 {BFD_RELOC_8, R_MSP430_ABS8},
641 {BFD_RELOC_MSP430_ABS8, R_MSP430_ABS8},
642 {BFD_RELOC_MSP430X_PCR20_EXT_SRC, R_MSP430X_PCR20_EXT_SRC},
643 {BFD_RELOC_MSP430X_PCR20_EXT_DST, R_MSP430X_PCR20_EXT_DST},
644 {BFD_RELOC_MSP430X_PCR20_EXT_ODST, R_MSP430X_PCR20_EXT_ODST},
645 {BFD_RELOC_MSP430X_ABS20_EXT_SRC, R_MSP430X_ABS20_EXT_SRC},
646 {BFD_RELOC_MSP430X_ABS20_EXT_DST, R_MSP430X_ABS20_EXT_DST},
647 {BFD_RELOC_MSP430X_ABS20_EXT_ODST, R_MSP430X_ABS20_EXT_ODST},
648 {BFD_RELOC_MSP430X_ABS20_ADR_SRC, R_MSP430X_ABS20_ADR_SRC},
649 {BFD_RELOC_MSP430X_ABS20_ADR_DST, R_MSP430X_ABS20_ADR_DST},
650 {BFD_RELOC_MSP430X_PCR16, R_MSP430X_PCR16},
651 {BFD_RELOC_MSP430X_PCR20_CALL, R_MSP430X_PCR20_CALL},
652 {BFD_RELOC_MSP430X_ABS16, R_MSP430X_ABS16},
653 {BFD_RELOC_MSP430_ABS_HI16, R_MSP430_ABS_HI16},
654 {BFD_RELOC_MSP430_PREL31, R_MSP430_PREL31},
655 {BFD_RELOC_MSP430_10_PCREL, R_MSP430X_10_PCREL},
656 {BFD_RELOC_MSP430_2X_PCREL, R_MSP430X_2X_PCREL},
657 {BFD_RELOC_MSP430_RL_PCREL, R_MSP430X_PCR16},
658 {BFD_RELOC_MSP430_SYM_DIFF, R_MSP430X_SYM_DIFF},
659 {BFD_RELOC_MSP430_SET_ULEB128, R_MSP430X_GNU_SET_ULEB128 },
660 {BFD_RELOC_MSP430_SUB_ULEB128, R_MSP430X_GNU_SUB_ULEB128 }
661 };
662
663 static inline bfd_boolean
uses_msp430x_relocs(bfd * abfd)664 uses_msp430x_relocs (bfd * abfd)
665 {
666 extern const bfd_target msp430_elf32_ti_vec;
667
668 return bfd_get_mach (abfd) == bfd_mach_msp430x
669 || abfd->xvec == & msp430_elf32_ti_vec;
670 }
671
672 static reloc_howto_type *
bfd_elf32_bfd_reloc_type_lookup(bfd * abfd ATTRIBUTE_UNUSED,bfd_reloc_code_real_type code)673 bfd_elf32_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
674 bfd_reloc_code_real_type code)
675 {
676 unsigned int i;
677
678 if (uses_msp430x_relocs (abfd))
679 {
680 for (i = ARRAY_SIZE (msp430x_reloc_map); i--;)
681 if (msp430x_reloc_map[i].bfd_reloc_val == code)
682 return elf_msp430x_howto_table + msp430x_reloc_map[i].elf_reloc_val;
683 }
684 else
685 {
686 for (i = 0; i < ARRAY_SIZE (msp430_reloc_map); i++)
687 if (msp430_reloc_map[i].bfd_reloc_val == code)
688 return &elf_msp430_howto_table[msp430_reloc_map[i].elf_reloc_val];
689 }
690
691 return NULL;
692 }
693
694 static reloc_howto_type *
bfd_elf32_bfd_reloc_name_lookup(bfd * abfd ATTRIBUTE_UNUSED,const char * r_name)695 bfd_elf32_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
696 const char *r_name)
697 {
698 unsigned int i;
699
700 if (uses_msp430x_relocs (abfd))
701 {
702 for (i = ARRAY_SIZE (elf_msp430x_howto_table); i--;)
703 if (elf_msp430x_howto_table[i].name != NULL
704 && strcasecmp (elf_msp430x_howto_table[i].name, r_name) == 0)
705 return elf_msp430x_howto_table + i;
706 }
707 else
708 {
709 for (i = 0;
710 i < (sizeof (elf_msp430_howto_table)
711 / sizeof (elf_msp430_howto_table[0]));
712 i++)
713 if (elf_msp430_howto_table[i].name != NULL
714 && strcasecmp (elf_msp430_howto_table[i].name, r_name) == 0)
715 return &elf_msp430_howto_table[i];
716 }
717
718 return NULL;
719 }
720
721 /* Set the howto pointer for an MSP430 ELF reloc. */
722
723 static bfd_boolean
msp430_info_to_howto_rela(bfd * abfd,arelent * cache_ptr,Elf_Internal_Rela * dst)724 msp430_info_to_howto_rela (bfd * abfd,
725 arelent * cache_ptr,
726 Elf_Internal_Rela * dst)
727 {
728 unsigned int r_type;
729
730 r_type = ELF32_R_TYPE (dst->r_info);
731
732 if (uses_msp430x_relocs (abfd))
733 {
734 if (r_type >= (unsigned int) R_MSP430x_max)
735 {
736 /* xgettext:c-format */
737 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
738 abfd, r_type);
739 bfd_set_error (bfd_error_bad_value);
740 return FALSE;
741 }
742 cache_ptr->howto = elf_msp430x_howto_table + r_type;
743 }
744 else if (r_type >= (unsigned int) R_MSP430_max)
745 {
746 /* xgettext:c-format */
747 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
748 abfd, r_type);
749 bfd_set_error (bfd_error_bad_value);
750 return FALSE;
751 }
752 else
753 cache_ptr->howto = &elf_msp430_howto_table[r_type];
754
755 return TRUE;
756 }
757
758 /* Look through the relocs for a section during the first phase.
759 Since we don't do .gots or .plts, we just need to consider the
760 virtual table relocs for gc. */
761
762 static bfd_boolean
elf32_msp430_check_relocs(bfd * abfd,struct bfd_link_info * info,asection * sec,const Elf_Internal_Rela * relocs)763 elf32_msp430_check_relocs (bfd * abfd, struct bfd_link_info * info,
764 asection * sec, const Elf_Internal_Rela * relocs)
765 {
766 Elf_Internal_Shdr *symtab_hdr;
767 struct elf_link_hash_entry **sym_hashes;
768 const Elf_Internal_Rela *rel;
769 const Elf_Internal_Rela *rel_end;
770
771 if (bfd_link_relocatable (info))
772 return TRUE;
773
774 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
775 sym_hashes = elf_sym_hashes (abfd);
776
777 rel_end = relocs + sec->reloc_count;
778 for (rel = relocs; rel < rel_end; rel++)
779 {
780 struct elf_link_hash_entry *h;
781 unsigned long r_symndx;
782
783 r_symndx = ELF32_R_SYM (rel->r_info);
784 if (r_symndx < symtab_hdr->sh_info)
785 h = NULL;
786 else
787 {
788 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
789 while (h->root.type == bfd_link_hash_indirect
790 || h->root.type == bfd_link_hash_warning)
791 h = (struct elf_link_hash_entry *) h->root.u.i.link;
792 }
793 }
794
795 return TRUE;
796 }
797
798 /* Perform a single relocation. By default we use the standard BFD
799 routines, but a few relocs, we have to do them ourselves. */
800
801 static bfd_reloc_status_type
msp430_final_link_relocate(reloc_howto_type * howto,bfd * input_bfd,asection * input_section,bfd_byte * contents,Elf_Internal_Rela * rel,bfd_vma relocation,struct bfd_link_info * info)802 msp430_final_link_relocate (reloc_howto_type * howto,
803 bfd * input_bfd,
804 asection * input_section,
805 bfd_byte * contents,
806 Elf_Internal_Rela * rel,
807 bfd_vma relocation,
808 struct bfd_link_info * info)
809 {
810 static asection * sym_diff_section;
811 static bfd_vma sym_diff_value;
812
813 struct bfd_elf_section_data * esd = elf_section_data (input_section);
814 bfd_reloc_status_type r = bfd_reloc_ok;
815 bfd_vma x;
816 bfd_signed_vma srel;
817 bfd_boolean is_rel_reloc = FALSE;
818
819 if (uses_msp430x_relocs (input_bfd))
820 {
821 /* See if we have a REL type relocation. */
822 is_rel_reloc = (esd->rel.hdr != NULL);
823 /* Sanity check - only one type of relocation per section.
824 FIXME: Theoretically it is possible to have both types,
825 but if that happens how can we distinguish between the two ? */
826 BFD_ASSERT (! is_rel_reloc || ! esd->rela.hdr);
827 /* If we are using a REL relocation then the addend should be empty. */
828 BFD_ASSERT (! is_rel_reloc || rel->r_addend == 0);
829 }
830
831 if (debug_relocs)
832 printf ("writing relocation (%p) at 0x%lx type: %d\n", rel,
833 (long) (input_section->output_section->vma + input_section->output_offset
834 + rel->r_offset), howto->type);
835 if (sym_diff_section != NULL)
836 {
837 BFD_ASSERT (sym_diff_section == input_section);
838
839 if (uses_msp430x_relocs (input_bfd))
840 switch (howto->type)
841 {
842 case R_MSP430X_GNU_SET_ULEB128:
843 relocation += (!is_rel_reloc ? rel->r_addend : 0);
844 /* Fall through. */
845 case R_MSP430_ABS32:
846 /* If we are computing a 32-bit value for the location lists
847 and the result is 0 then we add one to the value. A zero
848 value can result because of linker relaxation deleteing
849 prologue instructions and using a value of 1 (for the begin
850 and end offsets in the location list entry) results in a
851 nul entry which does not prevent the following entries from
852 being parsed. */
853 if (relocation == sym_diff_value
854 && strcmp (input_section->name, ".debug_loc") == 0)
855 ++ relocation;
856 /* Fall through. */
857 case R_MSP430_ABS16:
858 case R_MSP430X_ABS16:
859 case R_MSP430_ABS8:
860 BFD_ASSERT (! is_rel_reloc);
861 relocation -= sym_diff_value;
862 break;
863
864 default:
865 return bfd_reloc_dangerous;
866 }
867 else
868 switch (howto->type)
869 {
870 case R_MSP430_GNU_SET_ULEB128:
871 relocation += (!is_rel_reloc ? rel->r_addend : 0);
872 /* Fall through. */
873 case R_MSP430_32:
874 case R_MSP430_16:
875 case R_MSP430_16_BYTE:
876 case R_MSP430_8:
877 relocation -= sym_diff_value;
878 break;
879
880 default:
881 return bfd_reloc_dangerous;
882 }
883
884 sym_diff_section = NULL;
885 }
886
887 if ((uses_msp430x_relocs (input_bfd)
888 && howto->type == R_MSP430X_GNU_SET_ULEB128)
889 || (!uses_msp430x_relocs (input_bfd)
890 && howto->type == R_MSP430_GNU_SET_ULEB128))
891 {
892 unsigned int len, new_len = 0;
893 bfd_byte *endp, *p;
894 unsigned int val = relocation;
895
896 _bfd_read_unsigned_leb128 (input_bfd, contents + rel->r_offset, &len);
897
898 /* Clean the contents value to zero. Do not reduce the length. */
899 p = contents + rel->r_offset;
900 endp = (p + len) - 1;
901 memset (p, 0x80, len - 1);
902 *(endp) = 0;
903
904 /* Get the length of the new uleb128 value. */
905 do
906 {
907 new_len++;
908 val >>= 7;
909 } while (val);
910
911 if (new_len > len)
912 {
913 _bfd_error_handler
914 (_("error: final size of uleb128 value at offset 0x%lx in %pA "
915 "from %pB exceeds available space"),
916 (long) rel->r_offset, input_section, input_bfd);
917 }
918 else
919 {
920 /* If the number of bytes required to store the new value has
921 decreased, "right align" the new value within the available space,
922 so the MSB side is padded with uleb128 zeros (0x80). */
923 p = _bfd_write_unsigned_leb128 (p + (len - new_len), endp,
924 relocation);
925 /* We checked there is enough space for the new value above, so this
926 should never be NULL. */
927 BFD_ASSERT (p);
928 }
929
930 return bfd_reloc_ok;
931 }
932 else if (uses_msp430x_relocs (input_bfd))
933 switch (howto->type)
934 {
935 case R_MSP430X_SYM_DIFF:
936 case R_MSP430X_GNU_SUB_ULEB128:
937 /* Cache the input section and value.
938 The offset is unreliable, since relaxation may
939 have reduced the following reloc's offset. */
940 BFD_ASSERT (! is_rel_reloc);
941 sym_diff_section = input_section;
942 sym_diff_value = relocation + (howto->type == R_MSP430X_GNU_SUB_ULEB128
943 ? rel->r_addend : 0);
944 return bfd_reloc_ok;
945
946 case R_MSP430_ABS16:
947 contents += rel->r_offset;
948 srel = (bfd_signed_vma) relocation;
949 if (is_rel_reloc)
950 srel += bfd_get_16 (input_bfd, contents);
951 else
952 srel += rel->r_addend;
953 bfd_put_16 (input_bfd, srel & 0xffff, contents);
954 break;
955
956 case R_MSP430X_10_PCREL:
957 contents += rel->r_offset;
958 srel = (bfd_signed_vma) relocation;
959 if (is_rel_reloc)
960 srel += bfd_get_16 (input_bfd, contents) & 0x3ff;
961 else
962 srel += rel->r_addend;
963 srel -= rel->r_offset;
964 srel -= 2; /* Branch instructions add 2 to the PC... */
965 srel -= (input_section->output_section->vma +
966 input_section->output_offset);
967 if (srel & 1)
968 return bfd_reloc_outofrange;
969
970 /* MSP430 addresses commands as words. */
971 srel >>= 1;
972
973 /* Check for an overflow. */
974 if (srel < -512 || srel > 511)
975 {
976 if (info->disable_target_specific_optimizations < 0)
977 {
978 static bfd_boolean warned = FALSE;
979 if (! warned)
980 {
981 info->callbacks->warning
982 (info,
983 _("try enabling relaxation to avoid relocation truncations"),
984 NULL, input_bfd, input_section, relocation);
985 warned = TRUE;
986 }
987 }
988 return bfd_reloc_overflow;
989 }
990
991 x = bfd_get_16 (input_bfd, contents);
992 x = (x & 0xfc00) | (srel & 0x3ff);
993 bfd_put_16 (input_bfd, x, contents);
994 break;
995
996 case R_MSP430X_PCR20_EXT_ODST:
997 /* [0,4]+[48,16] = ---F ---- ---- FFFF */
998 contents += rel->r_offset;
999 srel = (bfd_signed_vma) relocation;
1000 if (is_rel_reloc)
1001 {
1002 bfd_vma addend;
1003 addend = (bfd_get_16 (input_bfd, contents) & 0xf) << 16;
1004 addend |= bfd_get_16 (input_bfd, contents + 6);
1005 srel += addend;
1006
1007 }
1008 else
1009 srel += rel->r_addend;
1010 srel -= rel->r_offset;
1011 srel -= (input_section->output_section->vma +
1012 input_section->output_offset);
1013 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 6);
1014 x = bfd_get_16 (input_bfd, contents);
1015 x = (x & 0xfff0) | ((srel >> 16) & 0xf);
1016 bfd_put_16 (input_bfd, x, contents);
1017 break;
1018
1019 case R_MSP430X_ABS20_EXT_SRC:
1020 /* [7,4]+[32,16] = -78- ---- FFFF */
1021 contents += rel->r_offset;
1022 srel = (bfd_signed_vma) relocation;
1023 if (is_rel_reloc)
1024 {
1025 bfd_vma addend;
1026 addend = (bfd_get_16 (input_bfd, contents) & 0x0780) << 9;
1027 addend |= bfd_get_16 (input_bfd, contents + 4);
1028 srel += addend;
1029 }
1030 else
1031 srel += rel->r_addend;
1032 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 4);
1033 srel >>= 16;
1034 x = bfd_get_16 (input_bfd, contents);
1035 x = (x & 0xf87f) | ((srel << 7) & 0x0780);
1036 bfd_put_16 (input_bfd, x, contents);
1037 break;
1038
1039 case R_MSP430_16_PCREL:
1040 contents += rel->r_offset;
1041 srel = (bfd_signed_vma) relocation;
1042 if (is_rel_reloc)
1043 srel += bfd_get_16 (input_bfd, contents);
1044 else
1045 srel += rel->r_addend;
1046 srel -= rel->r_offset;
1047 /* Only branch instructions add 2 to the PC... */
1048 srel -= (input_section->output_section->vma +
1049 input_section->output_offset);
1050 if (srel & 1)
1051 return bfd_reloc_outofrange;
1052 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1053 break;
1054
1055 case R_MSP430X_PCR20_EXT_DST:
1056 /* [0,4]+[32,16] = ---F ---- FFFF */
1057 contents += rel->r_offset;
1058 srel = (bfd_signed_vma) relocation;
1059 if (is_rel_reloc)
1060 {
1061 bfd_vma addend;
1062 addend = (bfd_get_16 (input_bfd, contents) & 0xf) << 16;
1063 addend |= bfd_get_16 (input_bfd, contents + 4);
1064 srel += addend;
1065 }
1066 else
1067 srel += rel->r_addend;
1068 srel -= rel->r_offset;
1069 srel -= (input_section->output_section->vma +
1070 input_section->output_offset);
1071 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 4);
1072 srel >>= 16;
1073 x = bfd_get_16 (input_bfd, contents);
1074 x = (x & 0xfff0) | (srel & 0xf);
1075 bfd_put_16 (input_bfd, x, contents);
1076 break;
1077
1078 case R_MSP430X_PCR20_EXT_SRC:
1079 /* [7,4]+[32,16] = -78- ---- FFFF */
1080 contents += rel->r_offset;
1081 srel = (bfd_signed_vma) relocation;
1082 if (is_rel_reloc)
1083 {
1084 bfd_vma addend;
1085 addend = ((bfd_get_16 (input_bfd, contents) & 0x0780) << 9);
1086 addend |= bfd_get_16 (input_bfd, contents + 4);
1087 srel += addend;;
1088 }
1089 else
1090 srel += rel->r_addend;
1091 srel -= rel->r_offset;
1092 /* Only branch instructions add 2 to the PC... */
1093 srel -= (input_section->output_section->vma +
1094 input_section->output_offset);
1095 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 4);
1096 srel >>= 16;
1097 x = bfd_get_16 (input_bfd, contents);
1098 x = (x & 0xf87f) | ((srel << 7) & 0x0780);
1099 bfd_put_16 (input_bfd, x, contents);
1100 break;
1101
1102 case R_MSP430_ABS8:
1103 contents += rel->r_offset;
1104 srel = (bfd_signed_vma) relocation;
1105 if (is_rel_reloc)
1106 srel += bfd_get_8 (input_bfd, contents);
1107 else
1108 srel += rel->r_addend;
1109 bfd_put_8 (input_bfd, srel & 0xff, contents);
1110 break;
1111
1112 case R_MSP430X_ABS20_EXT_DST:
1113 /* [0,4]+[32,16] = ---F ---- FFFF */
1114 contents += rel->r_offset;
1115 srel = (bfd_signed_vma) relocation;
1116 if (is_rel_reloc)
1117 {
1118 bfd_vma addend;
1119 addend = (bfd_get_16 (input_bfd, contents) & 0xf) << 16;
1120 addend |= bfd_get_16 (input_bfd, contents + 4);
1121 srel += addend;
1122 }
1123 else
1124 srel += rel->r_addend;
1125 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 4);
1126 srel >>= 16;
1127 x = bfd_get_16 (input_bfd, contents);
1128 x = (x & 0xfff0) | (srel & 0xf);
1129 bfd_put_16 (input_bfd, x, contents);
1130 break;
1131
1132 case R_MSP430X_ABS20_EXT_ODST:
1133 /* [0,4]+[48,16] = ---F ---- ---- FFFF */
1134 contents += rel->r_offset;
1135 srel = (bfd_signed_vma) relocation;
1136 if (is_rel_reloc)
1137 {
1138 bfd_vma addend;
1139 addend = (bfd_get_16 (input_bfd, contents) & 0xf) << 16;
1140 addend |= bfd_get_16 (input_bfd, contents + 6);
1141 srel += addend;
1142 }
1143 else
1144 srel += rel->r_addend;
1145 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 6);
1146 srel >>= 16;
1147 x = bfd_get_16 (input_bfd, contents);
1148 x = (x & 0xfff0) | (srel & 0xf);
1149 bfd_put_16 (input_bfd, x, contents);
1150 break;
1151
1152 case R_MSP430X_ABS20_ADR_SRC:
1153 /* [8,4]+[16,16] = -F-- FFFF */
1154 contents += rel->r_offset;
1155 srel = (bfd_signed_vma) relocation;
1156 if (is_rel_reloc)
1157 {
1158 bfd_vma addend;
1159
1160 addend = ((bfd_get_16 (input_bfd, contents) & 0xf00) << 8);
1161 addend |= bfd_get_16 (input_bfd, contents + 2);
1162 srel += addend;
1163 }
1164 else
1165 srel += rel->r_addend;
1166 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 2);
1167 srel >>= 16;
1168 x = bfd_get_16 (input_bfd, contents);
1169 x = (x & 0xf0ff) | ((srel << 8) & 0x0f00);
1170 bfd_put_16 (input_bfd, x, contents);
1171 break;
1172
1173 case R_MSP430X_ABS20_ADR_DST:
1174 /* [0,4]+[16,16] = ---F FFFF */
1175 contents += rel->r_offset;
1176 srel = (bfd_signed_vma) relocation;
1177 if (is_rel_reloc)
1178 {
1179 bfd_vma addend;
1180 addend = ((bfd_get_16 (input_bfd, contents) & 0xf) << 16);
1181 addend |= bfd_get_16 (input_bfd, contents + 2);
1182 srel += addend;
1183 }
1184 else
1185 srel += rel->r_addend;
1186 bfd_put_16 (input_bfd, (srel & 0xffff), contents + 2);
1187 srel >>= 16;
1188 x = bfd_get_16 (input_bfd, contents);
1189 x = (x & 0xfff0) | (srel & 0xf);
1190 bfd_put_16 (input_bfd, x, contents);
1191 break;
1192
1193 case R_MSP430X_ABS16:
1194 contents += rel->r_offset;
1195 srel = (bfd_signed_vma) relocation;
1196 if (is_rel_reloc)
1197 srel += bfd_get_16 (input_bfd, contents);
1198 else
1199 srel += rel->r_addend;
1200 x = srel;
1201 if (x > 0xffff)
1202 return bfd_reloc_overflow;
1203 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1204 break;
1205
1206 case R_MSP430_ABS_HI16:
1207 /* The EABI specifies that this must be a RELA reloc. */
1208 BFD_ASSERT (! is_rel_reloc);
1209 contents += rel->r_offset;
1210 srel = (bfd_signed_vma) relocation;
1211 srel += rel->r_addend;
1212 bfd_put_16 (input_bfd, (srel >> 16) & 0xffff, contents);
1213 break;
1214
1215 case R_MSP430X_PCR20_CALL:
1216 /* [0,4]+[16,16] = ---F FFFF*/
1217 contents += rel->r_offset;
1218 srel = (bfd_signed_vma) relocation;
1219 if (is_rel_reloc)
1220 {
1221 bfd_vma addend;
1222 addend = (bfd_get_16 (input_bfd, contents) & 0xf) << 16;
1223 addend |= bfd_get_16 (input_bfd, contents + 2);
1224 srel += addend;
1225 }
1226 else
1227 srel += rel->r_addend;
1228 srel -= rel->r_offset;
1229 srel -= (input_section->output_section->vma +
1230 input_section->output_offset);
1231 bfd_put_16 (input_bfd, srel & 0xffff, contents + 2);
1232 srel >>= 16;
1233 x = bfd_get_16 (input_bfd, contents);
1234 x = (x & 0xfff0) | (srel & 0xf);
1235 bfd_put_16 (input_bfd, x, contents);
1236 break;
1237
1238 case R_MSP430X_PCR16:
1239 contents += rel->r_offset;
1240 srel = (bfd_signed_vma) relocation;
1241 if (is_rel_reloc)
1242 srel += bfd_get_16 (input_bfd, contents);
1243 else
1244 srel += rel->r_addend;
1245 srel -= rel->r_offset;
1246 srel -= (input_section->output_section->vma +
1247 input_section->output_offset);
1248 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1249 break;
1250
1251 case R_MSP430_PREL31:
1252 contents += rel->r_offset;
1253 srel = (bfd_signed_vma) relocation;
1254 if (is_rel_reloc)
1255 srel += (bfd_get_32 (input_bfd, contents) & 0x7fffffff);
1256 else
1257 srel += rel->r_addend;
1258 srel += rel->r_addend;
1259 x = bfd_get_32 (input_bfd, contents);
1260 x = (x & 0x80000000) | ((srel >> 31) & 0x7fffffff);
1261 bfd_put_32 (input_bfd, x, contents);
1262 break;
1263
1264 default:
1265 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1266 contents, rel->r_offset,
1267 relocation, rel->r_addend);
1268 }
1269 else
1270 switch (howto->type)
1271 {
1272 case R_MSP430_10_PCREL:
1273 contents += rel->r_offset;
1274 srel = (bfd_signed_vma) relocation;
1275 srel += rel->r_addend;
1276 srel -= rel->r_offset;
1277 srel -= 2; /* Branch instructions add 2 to the PC... */
1278 srel -= (input_section->output_section->vma +
1279 input_section->output_offset);
1280
1281 if (srel & 1)
1282 return bfd_reloc_outofrange;
1283
1284 /* MSP430 addresses commands as words. */
1285 srel >>= 1;
1286
1287 /* Check for an overflow. */
1288 if (srel < -512 || srel > 511)
1289 {
1290 if (info->disable_target_specific_optimizations < 0)
1291 {
1292 static bfd_boolean warned = FALSE;
1293 if (! warned)
1294 {
1295 info->callbacks->warning
1296 (info,
1297 _("try enabling relaxation to avoid relocation truncations"),
1298 NULL, input_bfd, input_section, relocation);
1299 warned = TRUE;
1300 }
1301 }
1302 return bfd_reloc_overflow;
1303 }
1304
1305 x = bfd_get_16 (input_bfd, contents);
1306 x = (x & 0xfc00) | (srel & 0x3ff);
1307 bfd_put_16 (input_bfd, x, contents);
1308 break;
1309
1310 case R_MSP430_2X_PCREL:
1311 contents += rel->r_offset;
1312 srel = (bfd_signed_vma) relocation;
1313 srel += rel->r_addend;
1314 srel -= rel->r_offset;
1315 srel -= 2; /* Branch instructions add 2 to the PC... */
1316 srel -= (input_section->output_section->vma +
1317 input_section->output_offset);
1318
1319 if (srel & 1)
1320 return bfd_reloc_outofrange;
1321
1322 /* MSP430 addresses commands as words. */
1323 srel >>= 1;
1324
1325 /* Check for an overflow. */
1326 if (srel < -512 || srel > 511)
1327 return bfd_reloc_overflow;
1328
1329 x = bfd_get_16 (input_bfd, contents);
1330 x = (x & 0xfc00) | (srel & 0x3ff);
1331 bfd_put_16 (input_bfd, x, contents);
1332 /* Handle second jump instruction. */
1333 x = bfd_get_16 (input_bfd, contents - 2);
1334 srel += 1;
1335 x = (x & 0xfc00) | (srel & 0x3ff);
1336 bfd_put_16 (input_bfd, x, contents - 2);
1337 break;
1338
1339 case R_MSP430_RL_PCREL:
1340 case R_MSP430_16_PCREL:
1341 contents += rel->r_offset;
1342 srel = (bfd_signed_vma) relocation;
1343 srel += rel->r_addend;
1344 srel -= rel->r_offset;
1345 /* Only branch instructions add 2 to the PC... */
1346 srel -= (input_section->output_section->vma +
1347 input_section->output_offset);
1348
1349 if (srel & 1)
1350 return bfd_reloc_outofrange;
1351
1352 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1353 break;
1354
1355 case R_MSP430_16_PCREL_BYTE:
1356 contents += rel->r_offset;
1357 srel = (bfd_signed_vma) relocation;
1358 srel += rel->r_addend;
1359 srel -= rel->r_offset;
1360 /* Only branch instructions add 2 to the PC... */
1361 srel -= (input_section->output_section->vma +
1362 input_section->output_offset);
1363
1364 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1365 break;
1366
1367 case R_MSP430_16_BYTE:
1368 contents += rel->r_offset;
1369 srel = (bfd_signed_vma) relocation;
1370 srel += rel->r_addend;
1371 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1372 break;
1373
1374 case R_MSP430_16:
1375 contents += rel->r_offset;
1376 srel = (bfd_signed_vma) relocation;
1377 srel += rel->r_addend;
1378
1379 if (srel & 1)
1380 return bfd_reloc_notsupported;
1381
1382 bfd_put_16 (input_bfd, srel & 0xffff, contents);
1383 break;
1384
1385 case R_MSP430_8:
1386 contents += rel->r_offset;
1387 srel = (bfd_signed_vma) relocation;
1388 srel += rel->r_addend;
1389
1390 bfd_put_8 (input_bfd, srel & 0xff, contents);
1391 break;
1392
1393 case R_MSP430_SYM_DIFF:
1394 case R_MSP430_GNU_SUB_ULEB128:
1395 /* Cache the input section and value.
1396 The offset is unreliable, since relaxation may
1397 have reduced the following reloc's offset. */
1398 sym_diff_section = input_section;
1399 sym_diff_value = relocation + (howto->type == R_MSP430_GNU_SUB_ULEB128
1400 ? rel->r_addend : 0);
1401 return bfd_reloc_ok;
1402
1403 default:
1404 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1405 contents, rel->r_offset,
1406 relocation, rel->r_addend);
1407 }
1408
1409 return r;
1410 }
1411
1412 /* Relocate an MSP430 ELF section. */
1413
1414 static bfd_boolean
elf32_msp430_relocate_section(bfd * output_bfd ATTRIBUTE_UNUSED,struct bfd_link_info * info,bfd * input_bfd,asection * input_section,bfd_byte * contents,Elf_Internal_Rela * relocs,Elf_Internal_Sym * local_syms,asection ** local_sections)1415 elf32_msp430_relocate_section (bfd * output_bfd ATTRIBUTE_UNUSED,
1416 struct bfd_link_info * info,
1417 bfd * input_bfd,
1418 asection * input_section,
1419 bfd_byte * contents,
1420 Elf_Internal_Rela * relocs,
1421 Elf_Internal_Sym * local_syms,
1422 asection ** local_sections)
1423 {
1424 Elf_Internal_Shdr *symtab_hdr;
1425 struct elf_link_hash_entry **sym_hashes;
1426 Elf_Internal_Rela *rel;
1427 Elf_Internal_Rela *relend;
1428
1429 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1430 sym_hashes = elf_sym_hashes (input_bfd);
1431 relend = relocs + input_section->reloc_count;
1432
1433 for (rel = relocs; rel < relend; rel++)
1434 {
1435 reloc_howto_type *howto;
1436 unsigned long r_symndx;
1437 Elf_Internal_Sym *sym;
1438 asection *sec;
1439 struct elf_link_hash_entry *h;
1440 bfd_vma relocation;
1441 bfd_reloc_status_type r;
1442 const char *name = NULL;
1443 int r_type;
1444
1445 r_type = ELF32_R_TYPE (rel->r_info);
1446 r_symndx = ELF32_R_SYM (rel->r_info);
1447
1448 if (uses_msp430x_relocs (input_bfd))
1449 howto = elf_msp430x_howto_table + r_type;
1450 else
1451 howto = elf_msp430_howto_table + r_type;
1452
1453 h = NULL;
1454 sym = NULL;
1455 sec = NULL;
1456
1457 if (r_symndx < symtab_hdr->sh_info)
1458 {
1459 sym = local_syms + r_symndx;
1460 sec = local_sections[r_symndx];
1461 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1462
1463 name = bfd_elf_string_from_elf_section
1464 (input_bfd, symtab_hdr->sh_link, sym->st_name);
1465 name = name == NULL || *name == 0 ? bfd_section_name (sec) : name;
1466 }
1467 else
1468 {
1469 bfd_boolean unresolved_reloc, warned, ignored;
1470
1471 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1472 r_symndx, symtab_hdr, sym_hashes,
1473 h, sec, relocation,
1474 unresolved_reloc, warned, ignored);
1475 name = h->root.root.string;
1476 }
1477
1478 if (sec != NULL && discarded_section (sec))
1479 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
1480 rel, 1, relend, howto, 0, contents);
1481
1482 if (bfd_link_relocatable (info))
1483 continue;
1484
1485 r = msp430_final_link_relocate (howto, input_bfd, input_section,
1486 contents, rel, relocation, info);
1487
1488 if (r != bfd_reloc_ok)
1489 {
1490 const char *msg = (const char *) NULL;
1491
1492 switch (r)
1493 {
1494 case bfd_reloc_overflow:
1495 (*info->callbacks->reloc_overflow)
1496 (info, (h ? &h->root : NULL), name, howto->name,
1497 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
1498 break;
1499
1500 case bfd_reloc_undefined:
1501 (*info->callbacks->undefined_symbol)
1502 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
1503 break;
1504
1505 case bfd_reloc_outofrange:
1506 msg = _("internal error: branch/jump to an odd address detected");
1507 break;
1508
1509 case bfd_reloc_notsupported:
1510 msg = _("internal error: unsupported relocation error");
1511 break;
1512
1513 case bfd_reloc_dangerous:
1514 msg = _("internal error: dangerous relocation");
1515 break;
1516
1517 default:
1518 msg = _("internal error: unknown error");
1519 break;
1520 }
1521
1522 if (msg)
1523 (*info->callbacks->warning) (info, msg, name, input_bfd,
1524 input_section, rel->r_offset);
1525 }
1526
1527 }
1528
1529 return TRUE;
1530 }
1531
1532 /* The final processing done just before writing out a MSP430 ELF object
1533 file. This gets the MSP430 architecture right based on the machine
1534 number. */
1535
1536 static bfd_boolean
bfd_elf_msp430_final_write_processing(bfd * abfd)1537 bfd_elf_msp430_final_write_processing (bfd *abfd)
1538 {
1539 unsigned long val;
1540
1541 switch (bfd_get_mach (abfd))
1542 {
1543 default:
1544 case bfd_mach_msp110: val = E_MSP430_MACH_MSP430x11x1; break;
1545 case bfd_mach_msp11: val = E_MSP430_MACH_MSP430x11; break;
1546 case bfd_mach_msp12: val = E_MSP430_MACH_MSP430x12; break;
1547 case bfd_mach_msp13: val = E_MSP430_MACH_MSP430x13; break;
1548 case bfd_mach_msp14: val = E_MSP430_MACH_MSP430x14; break;
1549 case bfd_mach_msp15: val = E_MSP430_MACH_MSP430x15; break;
1550 case bfd_mach_msp16: val = E_MSP430_MACH_MSP430x16; break;
1551 case bfd_mach_msp31: val = E_MSP430_MACH_MSP430x31; break;
1552 case bfd_mach_msp32: val = E_MSP430_MACH_MSP430x32; break;
1553 case bfd_mach_msp33: val = E_MSP430_MACH_MSP430x33; break;
1554 case bfd_mach_msp41: val = E_MSP430_MACH_MSP430x41; break;
1555 case bfd_mach_msp42: val = E_MSP430_MACH_MSP430x42; break;
1556 case bfd_mach_msp43: val = E_MSP430_MACH_MSP430x43; break;
1557 case bfd_mach_msp44: val = E_MSP430_MACH_MSP430x44; break;
1558 case bfd_mach_msp20: val = E_MSP430_MACH_MSP430x20; break;
1559 case bfd_mach_msp22: val = E_MSP430_MACH_MSP430x22; break;
1560 case bfd_mach_msp23: val = E_MSP430_MACH_MSP430x23; break;
1561 case bfd_mach_msp24: val = E_MSP430_MACH_MSP430x24; break;
1562 case bfd_mach_msp26: val = E_MSP430_MACH_MSP430x26; break;
1563 case bfd_mach_msp46: val = E_MSP430_MACH_MSP430x46; break;
1564 case bfd_mach_msp47: val = E_MSP430_MACH_MSP430x47; break;
1565 case bfd_mach_msp54: val = E_MSP430_MACH_MSP430x54; break;
1566 case bfd_mach_msp430x: val = E_MSP430_MACH_MSP430X; break;
1567 }
1568
1569 elf_elfheader (abfd)->e_machine = EM_MSP430;
1570 elf_elfheader (abfd)->e_flags &= ~EF_MSP430_MACH;
1571 elf_elfheader (abfd)->e_flags |= val;
1572 return _bfd_elf_final_write_processing (abfd);
1573 }
1574
1575 /* Set the right machine number. */
1576
1577 static bfd_boolean
elf32_msp430_object_p(bfd * abfd)1578 elf32_msp430_object_p (bfd * abfd)
1579 {
1580 int e_set = bfd_mach_msp14;
1581
1582 if (elf_elfheader (abfd)->e_machine == EM_MSP430
1583 || elf_elfheader (abfd)->e_machine == EM_MSP430_OLD)
1584 {
1585 int e_mach = elf_elfheader (abfd)->e_flags & EF_MSP430_MACH;
1586
1587 switch (e_mach)
1588 {
1589 default:
1590 case E_MSP430_MACH_MSP430x11: e_set = bfd_mach_msp11; break;
1591 case E_MSP430_MACH_MSP430x11x1: e_set = bfd_mach_msp110; break;
1592 case E_MSP430_MACH_MSP430x12: e_set = bfd_mach_msp12; break;
1593 case E_MSP430_MACH_MSP430x13: e_set = bfd_mach_msp13; break;
1594 case E_MSP430_MACH_MSP430x14: e_set = bfd_mach_msp14; break;
1595 case E_MSP430_MACH_MSP430x15: e_set = bfd_mach_msp15; break;
1596 case E_MSP430_MACH_MSP430x16: e_set = bfd_mach_msp16; break;
1597 case E_MSP430_MACH_MSP430x31: e_set = bfd_mach_msp31; break;
1598 case E_MSP430_MACH_MSP430x32: e_set = bfd_mach_msp32; break;
1599 case E_MSP430_MACH_MSP430x33: e_set = bfd_mach_msp33; break;
1600 case E_MSP430_MACH_MSP430x41: e_set = bfd_mach_msp41; break;
1601 case E_MSP430_MACH_MSP430x42: e_set = bfd_mach_msp42; break;
1602 case E_MSP430_MACH_MSP430x43: e_set = bfd_mach_msp43; break;
1603 case E_MSP430_MACH_MSP430x44: e_set = bfd_mach_msp44; break;
1604 case E_MSP430_MACH_MSP430x20: e_set = bfd_mach_msp20; break;
1605 case E_MSP430_MACH_MSP430x22: e_set = bfd_mach_msp22; break;
1606 case E_MSP430_MACH_MSP430x23: e_set = bfd_mach_msp23; break;
1607 case E_MSP430_MACH_MSP430x24: e_set = bfd_mach_msp24; break;
1608 case E_MSP430_MACH_MSP430x26: e_set = bfd_mach_msp26; break;
1609 case E_MSP430_MACH_MSP430x46: e_set = bfd_mach_msp46; break;
1610 case E_MSP430_MACH_MSP430x47: e_set = bfd_mach_msp47; break;
1611 case E_MSP430_MACH_MSP430x54: e_set = bfd_mach_msp54; break;
1612 case E_MSP430_MACH_MSP430X: e_set = bfd_mach_msp430x; break;
1613 }
1614 }
1615
1616 return bfd_default_set_arch_mach (abfd, bfd_arch_msp430, e_set);
1617 }
1618
1619 /* These functions handle relaxing for the msp430.
1620 Relaxation required only in two cases:
1621 - Bad hand coding like jumps from one section to another or
1622 from file to file.
1623 - Sibling calls. This will affect only 'jump label' polymorph. Without
1624 relaxing this enlarges code by 2 bytes. Sibcalls implemented but
1625 do not work in gcc's port by the reason I do not know.
1626 - To convert out of range conditional jump instructions (found inside
1627 a function) into inverted jumps over an unconditional branch instruction.
1628 Anyway, if a relaxation required, user should pass -relax option to the
1629 linker.
1630
1631 There are quite a few relaxing opportunities available on the msp430:
1632
1633 ================================================================
1634
1635 1. 3 words -> 1 word
1636
1637 eq == jeq label jne +4; br lab
1638 ne != jne label jeq +4; br lab
1639 lt < jl label jge +4; br lab
1640 ltu < jlo label lhs +4; br lab
1641 ge >= jge label jl +4; br lab
1642 geu >= jhs label jlo +4; br lab
1643
1644 2. 4 words -> 1 word
1645
1646 ltn < jn jn +2; jmp +4; br lab
1647
1648 3. 4 words -> 2 words
1649
1650 gt > jeq +2; jge label jeq +6; jl +4; br label
1651 gtu > jeq +2; jhs label jeq +6; jlo +4; br label
1652
1653 4. 4 words -> 2 words and 2 labels
1654
1655 leu <= jeq label; jlo label jeq +2; jhs +4; br label
1656 le <= jeq label; jl label jeq +2; jge +4; br label
1657 =================================================================
1658
1659 codemap for first cases is (labels masked ):
1660 eq: 0x2002,0x4010,0x0000 -> 0x2400
1661 ne: 0x2402,0x4010,0x0000 -> 0x2000
1662 lt: 0x3402,0x4010,0x0000 -> 0x3800
1663 ltu: 0x2c02,0x4010,0x0000 -> 0x2800
1664 ge: 0x3802,0x4010,0x0000 -> 0x3400
1665 geu: 0x2802,0x4010,0x0000 -> 0x2c00
1666
1667 second case:
1668 ltn: 0x3001,0x3c02,0x4010,0x0000 -> 0x3000
1669
1670 third case:
1671 gt: 0x2403,0x3802,0x4010,0x0000 -> 0x2401,0x3400
1672 gtu: 0x2403,0x2802,0x4010,0x0000 -> 0x2401,0x2c00
1673
1674 fourth case:
1675 leu: 0x2401,0x2c02,0x4010,0x0000 -> 0x2400,0x2800
1676 le: 0x2401,0x3402,0x4010,0x0000 -> 0x2400,0x3800
1677
1678 Unspecified case :)
1679 jump: 0x4010,0x0000 -> 0x3c00. */
1680
1681 #define NUMB_RELAX_CODES 12
1682 static struct rcodes_s
1683 {
1684 int f0, f1; /* From code. */
1685 int t0, t1; /* To code. */
1686 int labels; /* Position of labels: 1 - one label at first
1687 word, 2 - one at second word, 3 - two
1688 labels at both. */
1689 int cdx; /* Words to match. */
1690 int bs; /* Shrink bytes. */
1691 int off; /* Offset from old label for new code. */
1692 int ncl; /* New code length. */
1693 } rcode[] =
1694 {/* lab,cdx,bs,off,ncl */
1695 { 0x0000, 0x0000, 0x3c00, 0x0000, 1, 0, 2, 2, 2}, /* jump */
1696 { 0x0000, 0x2002, 0x2400, 0x0000, 1, 1, 4, 4, 2}, /* eq */
1697 { 0x0000, 0x2402, 0x2000, 0x0000, 1, 1, 4, 4, 2}, /* ne */
1698 { 0x0000, 0x3402, 0x3800, 0x0000, 1, 1, 4, 4, 2}, /* lt */
1699 { 0x0000, 0x2c02, 0x2800, 0x0000, 1, 1, 4, 4, 2}, /* ltu */
1700 { 0x0000, 0x3802, 0x3400, 0x0000, 1, 1, 4, 4, 2}, /* ge */
1701 { 0x0000, 0x2802, 0x2c00, 0x0000, 1, 1, 4, 4, 2}, /* geu */
1702 { 0x3001, 0x3c02, 0x3000, 0x0000, 1, 2, 6, 6, 2}, /* ltn */
1703 { 0x2403, 0x3802, 0x2401, 0x3400, 2, 2, 4, 6, 4}, /* gt */
1704 { 0x2403, 0x2802, 0x2401, 0x2c00, 2, 2, 4, 6, 4}, /* gtu */
1705 { 0x2401, 0x2c02, 0x2400, 0x2800, 3, 2, 4, 6, 4}, /* leu , 2 labels */
1706 { 0x2401, 0x2c02, 0x2400, 0x2800, 3, 2, 4, 6, 4}, /* le , 2 labels */
1707 { 0, 0, 0, 0, 0, 0, 0, 0, 0}
1708 };
1709
1710 /* Return TRUE if a symbol exists at the given address. */
1711
1712 static bfd_boolean
msp430_elf_symbol_address_p(bfd * abfd,asection * sec,Elf_Internal_Sym * isym,bfd_vma addr)1713 msp430_elf_symbol_address_p (bfd * abfd,
1714 asection * sec,
1715 Elf_Internal_Sym * isym,
1716 bfd_vma addr)
1717 {
1718 Elf_Internal_Shdr *symtab_hdr;
1719 unsigned int sec_shndx;
1720 Elf_Internal_Sym *isymend;
1721 struct elf_link_hash_entry **sym_hashes;
1722 struct elf_link_hash_entry **end_hashes;
1723 unsigned int symcount;
1724
1725 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1726
1727 /* Examine all the local symbols. */
1728 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1729 for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
1730 if (isym->st_shndx == sec_shndx && isym->st_value == addr)
1731 return TRUE;
1732
1733 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1734 - symtab_hdr->sh_info);
1735 sym_hashes = elf_sym_hashes (abfd);
1736 end_hashes = sym_hashes + symcount;
1737 for (; sym_hashes < end_hashes; sym_hashes++)
1738 {
1739 struct elf_link_hash_entry *sym_hash = *sym_hashes;
1740
1741 if ((sym_hash->root.type == bfd_link_hash_defined
1742 || sym_hash->root.type == bfd_link_hash_defweak)
1743 && sym_hash->root.u.def.section == sec
1744 && sym_hash->root.u.def.value == addr)
1745 return TRUE;
1746 }
1747
1748 return FALSE;
1749 }
1750
1751 /* Adjust all local symbols defined as '.section + 0xXXXX' (.section has
1752 sec_shndx) referenced from current and other sections. */
1753
1754 static bfd_boolean
msp430_elf_relax_adjust_locals(bfd * abfd,asection * sec,bfd_vma addr,int count,unsigned int sec_shndx,bfd_vma toaddr)1755 msp430_elf_relax_adjust_locals (bfd * abfd, asection * sec, bfd_vma addr,
1756 int count, unsigned int sec_shndx,
1757 bfd_vma toaddr)
1758 {
1759 Elf_Internal_Shdr *symtab_hdr;
1760 Elf_Internal_Rela *irel;
1761 Elf_Internal_Rela *irelend;
1762 Elf_Internal_Sym *isym;
1763
1764 irel = elf_section_data (sec)->relocs;
1765 if (irel == NULL)
1766 return TRUE;
1767
1768 irelend = irel + sec->reloc_count;
1769 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
1770 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1771
1772 for (;irel < irelend; irel++)
1773 {
1774 unsigned int sidx = ELF32_R_SYM(irel->r_info);
1775 Elf_Internal_Sym *lsym = isym + sidx;
1776
1777 /* Adjust symbols referenced by .sec+0xXX. */
1778 if (irel->r_addend > addr && irel->r_addend < toaddr
1779 && sidx < symtab_hdr->sh_info
1780 && lsym->st_shndx == sec_shndx)
1781 irel->r_addend -= count;
1782 }
1783
1784 return TRUE;
1785 }
1786
1787 /* Delete some bytes from a section while relaxing. */
1788
1789 static bfd_boolean
msp430_elf_relax_delete_bytes(bfd * abfd,asection * sec,bfd_vma addr,int count)1790 msp430_elf_relax_delete_bytes (bfd * abfd, asection * sec, bfd_vma addr,
1791 int count)
1792 {
1793 Elf_Internal_Shdr *symtab_hdr;
1794 unsigned int sec_shndx;
1795 bfd_byte *contents;
1796 Elf_Internal_Rela *irel;
1797 Elf_Internal_Rela *irelend;
1798 bfd_vma toaddr;
1799 Elf_Internal_Sym *isym;
1800 Elf_Internal_Sym *isymend;
1801 struct elf_link_hash_entry **sym_hashes;
1802 struct elf_link_hash_entry **end_hashes;
1803 unsigned int symcount;
1804 asection *p;
1805
1806 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1807
1808 contents = elf_section_data (sec)->this_hdr.contents;
1809
1810 toaddr = sec->size;
1811 if (debug_relocs)
1812 printf (" deleting %d bytes between 0x%lx to 0x%lx\n",
1813 count, (long) addr, (long) toaddr);
1814
1815 irel = elf_section_data (sec)->relocs;
1816 irelend = irel + sec->reloc_count;
1817
1818 /* Actually delete the bytes. */
1819 memmove (contents + addr, contents + addr + count,
1820 (size_t) (toaddr - addr - count));
1821 sec->size -= count;
1822
1823 /* Adjust all the relocs. */
1824 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
1825 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1826 for (; irel < irelend; irel++)
1827 {
1828 /* Get the new reloc address. */
1829 if ((irel->r_offset > addr && irel->r_offset < toaddr))
1830 irel->r_offset -= count;
1831 }
1832
1833 for (p = abfd->sections; p != NULL; p = p->next)
1834 msp430_elf_relax_adjust_locals (abfd,p,addr,count,sec_shndx,toaddr);
1835
1836 /* Adjust the local symbols defined in this section. */
1837 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
1838 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1839 for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
1840 {
1841 const char * name;
1842
1843 name = bfd_elf_string_from_elf_section
1844 (abfd, symtab_hdr->sh_link, isym->st_name);
1845 name = name == NULL || *name == 0 ? bfd_section_name (sec) : name;
1846
1847 if (isym->st_shndx != sec_shndx)
1848 continue;
1849
1850 if (isym->st_value > addr
1851 && (isym->st_value < toaddr
1852 /* We also adjust a symbol at the end of the section if its name is
1853 on the list below. These symbols are used for debug info
1854 generation and they refer to the end of the current section, not
1855 the start of the next section. */
1856 || (isym->st_value == toaddr
1857 && name != NULL
1858 && (CONST_STRNEQ (name, ".Letext")
1859 || CONST_STRNEQ (name, ".LFE")))))
1860 {
1861 if (debug_relocs)
1862 printf (" adjusting value of local symbol %s from 0x%lx ",
1863 name, (long) isym->st_value);
1864 if (isym->st_value < addr + count)
1865 isym->st_value = addr;
1866 else
1867 isym->st_value -= count;
1868 if (debug_relocs)
1869 printf ("to 0x%lx\n", (long) isym->st_value);
1870 }
1871 /* Adjust the function symbol's size as well. */
1872 else if (ELF_ST_TYPE (isym->st_info) == STT_FUNC
1873 && isym->st_value + isym->st_size > addr
1874 && isym->st_value + isym->st_size < toaddr)
1875 isym->st_size -= count;
1876 }
1877
1878 /* Now adjust the global symbols defined in this section. */
1879 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1880 - symtab_hdr->sh_info);
1881 sym_hashes = elf_sym_hashes (abfd);
1882 end_hashes = sym_hashes + symcount;
1883 for (; sym_hashes < end_hashes; sym_hashes++)
1884 {
1885 struct elf_link_hash_entry *sym_hash = *sym_hashes;
1886
1887 if ((sym_hash->root.type == bfd_link_hash_defined
1888 || sym_hash->root.type == bfd_link_hash_defweak)
1889 && sym_hash->root.u.def.section == sec
1890 && sym_hash->root.u.def.value > addr
1891 && sym_hash->root.u.def.value < toaddr)
1892 {
1893 if (sym_hash->root.u.def.value < addr + count)
1894 sym_hash->root.u.def.value = addr;
1895 else
1896 sym_hash->root.u.def.value -= count;
1897 }
1898 /* Adjust the function symbol's size as well. */
1899 else if (sym_hash->root.type == bfd_link_hash_defined
1900 && sym_hash->root.u.def.section == sec
1901 && sym_hash->type == STT_FUNC
1902 && sym_hash->root.u.def.value + sym_hash->size > addr
1903 && sym_hash->root.u.def.value + sym_hash->size < toaddr)
1904 sym_hash->size -= count;
1905 }
1906
1907 return TRUE;
1908 }
1909
1910 /* Insert one or two words into a section whilst relaxing. */
1911
1912 static bfd_byte *
msp430_elf_relax_add_words(bfd * abfd,asection * sec,bfd_vma addr,int num_words,int word1,int word2)1913 msp430_elf_relax_add_words (bfd * abfd, asection * sec, bfd_vma addr,
1914 int num_words, int word1, int word2)
1915 {
1916 Elf_Internal_Shdr *symtab_hdr;
1917 unsigned int sec_shndx;
1918 bfd_byte *contents;
1919 Elf_Internal_Rela *irel;
1920 Elf_Internal_Rela *irelend;
1921 Elf_Internal_Sym *isym;
1922 Elf_Internal_Sym *isymend;
1923 struct elf_link_hash_entry **sym_hashes;
1924 struct elf_link_hash_entry **end_hashes;
1925 unsigned int symcount;
1926 bfd_vma sec_end;
1927 asection *p;
1928 if (debug_relocs)
1929 printf (" adding %d words at 0x%lx\n", num_words,
1930 (long) (sec->output_section->vma + sec->output_offset + addr));
1931
1932 contents = elf_section_data (sec)->this_hdr.contents;
1933 sec_end = sec->size;
1934 int num_bytes = num_words * 2;
1935
1936 /* Make space for the new words. */
1937 contents = bfd_realloc (contents, sec_end + num_bytes);
1938 memmove (contents + addr + num_bytes, contents + addr, sec_end - addr);
1939
1940 /* Insert the new words. */
1941 bfd_put_16 (abfd, word1, contents + addr);
1942 if (num_words == 2)
1943 bfd_put_16 (abfd, word2, contents + addr + 2);
1944
1945 /* Update the section information. */
1946 sec->size += num_bytes;
1947 elf_section_data (sec)->this_hdr.contents = contents;
1948
1949 /* Adjust all the relocs. */
1950 irel = elf_section_data (sec)->relocs;
1951 irelend = irel + sec->reloc_count;
1952
1953 for (; irel < irelend; irel++)
1954 if ((irel->r_offset >= addr && irel->r_offset < sec_end))
1955 irel->r_offset += num_bytes;
1956
1957 /* Adjust the local symbols defined in this section. */
1958 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1959 for (p = abfd->sections; p != NULL; p = p->next)
1960 msp430_elf_relax_adjust_locals (abfd, p, addr, -num_bytes,
1961 sec_shndx, sec_end);
1962
1963 /* Adjust the global symbols affected by the move. */
1964 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
1965 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1966 for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
1967 if (isym->st_shndx == sec_shndx
1968 && isym->st_value >= addr && isym->st_value < sec_end)
1969 {
1970 if (debug_relocs)
1971 printf (" adjusting value of local symbol %s from 0x%lx to "
1972 "0x%lx\n", bfd_elf_string_from_elf_section
1973 (abfd, symtab_hdr->sh_link, isym->st_name),
1974 (long) isym->st_value, (long)(isym->st_value + num_bytes));
1975 isym->st_value += num_bytes;
1976 }
1977
1978 /* Now adjust the global symbols defined in this section. */
1979 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1980 - symtab_hdr->sh_info);
1981 sym_hashes = elf_sym_hashes (abfd);
1982 end_hashes = sym_hashes + symcount;
1983 for (; sym_hashes < end_hashes; sym_hashes++)
1984 {
1985 struct elf_link_hash_entry *sym_hash = *sym_hashes;
1986
1987 if ((sym_hash->root.type == bfd_link_hash_defined
1988 || sym_hash->root.type == bfd_link_hash_defweak)
1989 && sym_hash->root.u.def.section == sec
1990 && sym_hash->root.u.def.value >= addr
1991 && sym_hash->root.u.def.value < sec_end)
1992 sym_hash->root.u.def.value += num_bytes;
1993 }
1994
1995 return contents;
1996 }
1997
1998 static bfd_boolean
msp430_elf_relax_section(bfd * abfd,asection * sec,struct bfd_link_info * link_info,bfd_boolean * again)1999 msp430_elf_relax_section (bfd * abfd, asection * sec,
2000 struct bfd_link_info * link_info,
2001 bfd_boolean * again)
2002 {
2003 Elf_Internal_Shdr * symtab_hdr;
2004 Elf_Internal_Rela * internal_relocs;
2005 Elf_Internal_Rela * irel;
2006 Elf_Internal_Rela * irelend;
2007 bfd_byte * contents = NULL;
2008 Elf_Internal_Sym * isymbuf = NULL;
2009
2010 /* Assume nothing changes. */
2011 *again = FALSE;
2012
2013 /* We don't have to do anything for a relocatable link, if
2014 this section does not have relocs, or if this is not a
2015 code section. */
2016 if (bfd_link_relocatable (link_info)
2017 || (sec->flags & SEC_RELOC) == 0
2018 || sec->reloc_count == 0 || (sec->flags & SEC_CODE) == 0)
2019 return TRUE;
2020
2021 if (debug_relocs)
2022 printf ("Relaxing %s (%p), output_offset: 0x%lx sec size: 0x%lx\n",
2023 sec->name, sec, (long) sec->output_offset, (long) sec->size);
2024
2025 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2026
2027 /* Get a copy of the native relocations. */
2028 internal_relocs =
2029 _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL, link_info->keep_memory);
2030 if (internal_relocs == NULL)
2031 goto error_return;
2032
2033 /* Walk through them looking for relaxing opportunities. */
2034 irelend = internal_relocs + sec->reloc_count;
2035
2036 if (debug_relocs)
2037 printf (" trying code size growing relocs\n");
2038 /* Do code size growing relocs first. */
2039 for (irel = internal_relocs; irel < irelend; irel++)
2040 {
2041 bfd_vma symval;
2042
2043 /* If this isn't something that can be relaxed, then ignore
2044 this reloc. */
2045 if (uses_msp430x_relocs (abfd)
2046 && ELF32_R_TYPE (irel->r_info) == (int) R_MSP430X_10_PCREL)
2047 ;
2048 else if (! uses_msp430x_relocs (abfd)
2049 && ELF32_R_TYPE (irel->r_info) == (int) R_MSP430_10_PCREL)
2050 ;
2051 else
2052 continue;
2053
2054 /* Get the section contents if we haven't done so already. */
2055 if (contents == NULL)
2056 {
2057 /* Get cached copy if it exists. */
2058 if (elf_section_data (sec)->this_hdr.contents != NULL)
2059 contents = elf_section_data (sec)->this_hdr.contents;
2060 else if (! bfd_malloc_and_get_section (abfd, sec, &contents))
2061 goto error_return;
2062 }
2063
2064 /* Read this BFD's local symbols if we haven't done so already. */
2065 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
2066 {
2067 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2068 if (isymbuf == NULL)
2069 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2070 symtab_hdr->sh_info, 0,
2071 NULL, NULL, NULL);
2072 if (isymbuf == NULL)
2073 goto error_return;
2074 }
2075
2076 /* Get the value of the symbol referred to by the reloc. */
2077 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2078 {
2079 /* A local symbol. */
2080 Elf_Internal_Sym *isym;
2081 asection *sym_sec;
2082
2083 isym = isymbuf + ELF32_R_SYM (irel->r_info);
2084 if (isym->st_shndx == SHN_UNDEF)
2085 sym_sec = bfd_und_section_ptr;
2086 else if (isym->st_shndx == SHN_ABS)
2087 sym_sec = bfd_abs_section_ptr;
2088 else if (isym->st_shndx == SHN_COMMON)
2089 sym_sec = bfd_com_section_ptr;
2090 else
2091 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2092 symval = (isym->st_value
2093 + sym_sec->output_section->vma + sym_sec->output_offset);
2094
2095 if (debug_relocs)
2096 printf (" processing reloc at 0x%lx for local sym: %s "
2097 "st_value: 0x%lx adj value: 0x%lx\n",
2098 (long) (sec->output_offset + sec->output_section->vma
2099 + irel->r_offset),
2100 bfd_elf_string_from_elf_section (abfd, symtab_hdr->sh_link,
2101 isym->st_name),
2102 (long) isym->st_value, (long) symval);
2103 }
2104 else
2105 {
2106 unsigned long indx;
2107 struct elf_link_hash_entry *h;
2108
2109 /* An external symbol. */
2110 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2111 h = elf_sym_hashes (abfd)[indx];
2112 BFD_ASSERT (h != NULL);
2113
2114 if (h->root.type != bfd_link_hash_defined
2115 && h->root.type != bfd_link_hash_defweak)
2116 /* This appears to be a reference to an undefined
2117 symbol. Just ignore it--it will be caught by the
2118 regular reloc processing. */
2119 continue;
2120
2121 symval = (h->root.u.def.value
2122 + h->root.u.def.section->output_section->vma
2123 + h->root.u.def.section->output_offset);
2124 if (debug_relocs)
2125 printf (" processing reloc at 0x%lx for global sym: %s "
2126 "st_value: 0x%lx adj value: 0x%lx\n",
2127 (long) (sec->output_offset + sec->output_section->vma
2128 + irel->r_offset),
2129 h->root.root.string, (long) h->root.u.def.value,
2130 (long) symval);
2131 }
2132
2133 /* For simplicity of coding, we are going to modify the section
2134 contents, the section relocs, and the BFD symbol table. We
2135 must tell the rest of the code not to free up this
2136 information. It would be possible to instead create a table
2137 of changes which have to be made, as is done in coff-mips.c;
2138 that would be more work, but would require less memory when
2139 the linker is run. */
2140
2141 bfd_signed_vma value = symval;
2142 int opcode;
2143
2144 /* Compute the value that will be relocated. */
2145 value += irel->r_addend;
2146 /* Convert to PC relative. */
2147 value -= (sec->output_section->vma + sec->output_offset);
2148 value -= irel->r_offset;
2149 value -= 2;
2150
2151 /* Scale. */
2152 value >>= 1;
2153
2154 /* If it is in range then no modifications are needed. */
2155 if (value >= -512 && value <= 511)
2156 continue;
2157
2158 /* Get the opcode. */
2159 opcode = bfd_get_16 (abfd, contents + irel->r_offset);
2160
2161 /* Compute the new opcode. We are going to convert:
2162 JMP label
2163 into:
2164 BR[A] label
2165 or
2166 J<cond> label
2167 into:
2168 J<inv-cond> 1f
2169 BR[A] #label
2170 1: */
2171 switch (opcode & 0xfc00)
2172 {
2173 case 0x3800: opcode = 0x3402; break; /* Jl -> Jge +2 */
2174 case 0x3400: opcode = 0x3802; break; /* Jge -> Jl +2 */
2175 case 0x2c00: opcode = 0x2802; break; /* Jhs -> Jlo +2 */
2176 case 0x2800: opcode = 0x2c02; break; /* Jlo -> Jhs +2 */
2177 case 0x2400: opcode = 0x2002; break; /* Jeq -> Jne +2 */
2178 case 0x2000: opcode = 0x2402; break; /* jne -> Jeq +2 */
2179 case 0x3000: /* jn */
2180 /* There is no direct inverse of the Jn insn.
2181 FIXME: we could do this as:
2182 Jn 1f
2183 br 2f
2184 1: br label
2185 2: */
2186 continue;
2187 case 0x3c00:
2188 if (uses_msp430x_relocs (abfd))
2189 opcode = 0x0080; /* JMP -> BRA */
2190 else
2191 opcode = 0x4030; /* JMP -> BR */
2192 break;
2193 default:
2194 /* Unhandled branch instruction. */
2195 /* fprintf (stderr, "unrecog: %x\n", opcode); */
2196 continue;
2197 }
2198
2199 /* Note that we've changed the relocs, section contents, etc. */
2200 elf_section_data (sec)->relocs = internal_relocs;
2201 elf_section_data (sec)->this_hdr.contents = contents;
2202 symtab_hdr->contents = (unsigned char *) isymbuf;
2203
2204 /* Install the new opcode. */
2205 bfd_put_16 (abfd, opcode, contents + irel->r_offset);
2206
2207 /* Insert the new branch instruction. */
2208 if (uses_msp430x_relocs (abfd))
2209 {
2210 if (debug_relocs)
2211 printf (" R_MSP430X_10_PCREL -> R_MSP430X_ABS20_ADR_SRC "
2212 "(growing with new opcode 0x%x)\n", opcode);
2213
2214 /* Insert an absolute branch (aka MOVA) instruction.
2215 Note that bits 19:16 of the address are stored in the first word
2216 of the insn, so this is where r_offset will point to. */
2217 if (opcode == 0x0080)
2218 {
2219 /* If we're inserting a BRA because we are converting from a JMP,
2220 then only add one word for destination address; the BRA opcode
2221 has already been written. */
2222 contents = msp430_elf_relax_add_words
2223 (abfd, sec, irel->r_offset + 2, 1, 0x0000, 0);
2224 }
2225 else
2226 {
2227 contents = msp430_elf_relax_add_words
2228 (abfd, sec, irel->r_offset + 2, 2, 0x0080, 0x0000);
2229 /* Update the relocation to point to the inserted branch
2230 instruction. Note - we are changing a PC-relative reloc
2231 into an absolute reloc, but this is OK because we have
2232 arranged with the assembler to have the reloc's value be
2233 a (local) symbol, not a section+offset value. */
2234 irel->r_offset += 2;
2235 }
2236
2237 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2238 R_MSP430X_ABS20_ADR_SRC);
2239 }
2240 else
2241 {
2242 if (debug_relocs)
2243 printf (" R_MSP430_10_PCREL -> R_MSP430_16 "
2244 "(growing with new opcode 0x%x)\n", opcode);
2245 if (opcode == 0x4030)
2246 {
2247 /* If we're inserting a BR because we are converting from a JMP,
2248 then only add one word for destination address; the BR opcode
2249 has already been written. */
2250 contents = msp430_elf_relax_add_words
2251 (abfd, sec, irel->r_offset + 2, 1, 0x0000, 0);
2252 irel->r_offset += 2;
2253 }
2254 else
2255 {
2256 contents = msp430_elf_relax_add_words
2257 (abfd, sec, irel->r_offset + 2, 2, 0x4030, 0x0000);
2258 /* See comment above about converting a 10-bit PC-rel
2259 relocation into a 16-bit absolute relocation. */
2260 irel->r_offset += 4;
2261 }
2262 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2263 R_MSP430_16);
2264 }
2265
2266 /* Growing the section may mean that other
2267 conditional branches need to be fixed. */
2268 *again = TRUE;
2269 }
2270
2271 if (debug_relocs)
2272 printf (" trying code size shrinking relocs\n");
2273
2274 for (irel = internal_relocs; irel < irelend; irel++)
2275 {
2276 bfd_vma symval;
2277
2278 /* Get the section contents if we haven't done so already. */
2279 if (contents == NULL)
2280 {
2281 /* Get cached copy if it exists. */
2282 if (elf_section_data (sec)->this_hdr.contents != NULL)
2283 contents = elf_section_data (sec)->this_hdr.contents;
2284 else if (! bfd_malloc_and_get_section (abfd, sec, &contents))
2285 goto error_return;
2286 }
2287
2288 /* Read this BFD's local symbols if we haven't done so already. */
2289 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
2290 {
2291 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2292 if (isymbuf == NULL)
2293 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2294 symtab_hdr->sh_info, 0,
2295 NULL, NULL, NULL);
2296 if (isymbuf == NULL)
2297 goto error_return;
2298 }
2299
2300 /* Get the value of the symbol referred to by the reloc. */
2301 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2302 {
2303 /* A local symbol. */
2304 Elf_Internal_Sym *isym;
2305 asection *sym_sec;
2306
2307 isym = isymbuf + ELF32_R_SYM (irel->r_info);
2308 if (isym->st_shndx == SHN_UNDEF)
2309 sym_sec = bfd_und_section_ptr;
2310 else if (isym->st_shndx == SHN_ABS)
2311 sym_sec = bfd_abs_section_ptr;
2312 else if (isym->st_shndx == SHN_COMMON)
2313 sym_sec = bfd_com_section_ptr;
2314 else
2315 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2316 symval = (isym->st_value
2317 + sym_sec->output_section->vma + sym_sec->output_offset);
2318
2319 if (debug_relocs)
2320 printf (" processing reloc at 0x%lx for local sym: %s "
2321 "st_value: 0x%lx adj value: 0x%lx\n",
2322 (long) (sec->output_offset + sec->output_section->vma
2323 + irel->r_offset),
2324 bfd_elf_string_from_elf_section
2325 (abfd, symtab_hdr->sh_link, isym->st_name),
2326 (long) isym->st_value, (long) symval);
2327 }
2328 else
2329 {
2330 unsigned long indx;
2331 struct elf_link_hash_entry *h;
2332
2333 /* An external symbol. */
2334 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2335 h = elf_sym_hashes (abfd)[indx];
2336 BFD_ASSERT (h != NULL);
2337
2338 if (h->root.type != bfd_link_hash_defined
2339 && h->root.type != bfd_link_hash_defweak)
2340 /* This appears to be a reference to an undefined
2341 symbol. Just ignore it--it will be caught by the
2342 regular reloc processing. */
2343 continue;
2344
2345 symval = (h->root.u.def.value
2346 + h->root.u.def.section->output_section->vma
2347 + h->root.u.def.section->output_offset);
2348 if (debug_relocs)
2349 printf (" processing reloc at 0x%lx for global sym: %s "
2350 "st_value: 0x%lx adj value: 0x%lx\n", (long)
2351 (sec->output_offset + sec->output_section->vma
2352 + irel->r_offset),
2353 h->root.root.string, (long) h->root.u.def.value,
2354 (long) symval);
2355 }
2356
2357 /* For simplicity of coding, we are going to modify the section
2358 contents, the section relocs, and the BFD symbol table. We
2359 must tell the rest of the code not to free up this
2360 information. It would be possible to instead create a table
2361 of changes which have to be made, as is done in coff-mips.c;
2362 that would be more work, but would require less memory when
2363 the linker is run. */
2364
2365 /* Try to turn a 16bit pc-relative branch into a 10bit pc-relative
2366 branch. */
2367 /* Paranoia? paranoia... */
2368 if (! uses_msp430x_relocs (abfd)
2369 && ELF32_R_TYPE (irel->r_info) == (int) R_MSP430_RL_PCREL)
2370 {
2371 bfd_vma value = symval;
2372
2373 /* Deal with pc-relative gunk. */
2374 value -= (sec->output_section->vma + sec->output_offset);
2375 value -= irel->r_offset;
2376 value += irel->r_addend;
2377
2378 /* See if the value will fit in 10 bits, note the high value is
2379 1016 as the target will be two bytes closer if we are
2380 able to relax. */
2381 if ((long) value < 1016 && (long) value > -1016)
2382 {
2383 int code0 = 0, code1 = 0, code2 = 0;
2384 int i;
2385 struct rcodes_s *rx;
2386
2387 /* Get the opcode. */
2388 if (irel->r_offset >= 6)
2389 code0 = bfd_get_16 (abfd, contents + irel->r_offset - 6);
2390
2391 if (irel->r_offset >= 4)
2392 code1 = bfd_get_16 (abfd, contents + irel->r_offset - 4);
2393
2394 code2 = bfd_get_16 (abfd, contents + irel->r_offset - 2);
2395
2396 if (code2 != 0x4010)
2397 continue;
2398
2399 /* Check r4 and r3. */
2400 for (i = NUMB_RELAX_CODES - 1; i >= 0; i--)
2401 {
2402 rx = &rcode[i];
2403 if (rx->cdx == 2 && rx->f0 == code0 && rx->f1 == code1)
2404 break;
2405 else if (rx->cdx == 1 && rx->f1 == code1)
2406 break;
2407 else if (rx->cdx == 0) /* This is an unconditional jump. */
2408 break;
2409 }
2410
2411 /* Check labels:
2412 .Label0: ; we do not care about this label
2413 jeq +6
2414 .Label1: ; make sure there is no label here
2415 jl +4
2416 .Label2: ; make sure there is no label here
2417 br .Label_dst
2418
2419 So, if there is .Label1 or .Label2 we cannot relax this code.
2420 This actually should not happen, cause for relaxable
2421 instructions we use RL_PCREL reloc instead of 16_PCREL.
2422 Will change this in the future. */
2423
2424 if (rx->cdx > 0
2425 && msp430_elf_symbol_address_p (abfd, sec, isymbuf,
2426 irel->r_offset - 2))
2427 continue;
2428 if (rx->cdx > 1
2429 && msp430_elf_symbol_address_p (abfd, sec, isymbuf,
2430 irel->r_offset - 4))
2431 continue;
2432
2433 /* Note that we've changed the relocs, section contents, etc. */
2434 elf_section_data (sec)->relocs = internal_relocs;
2435 elf_section_data (sec)->this_hdr.contents = contents;
2436 symtab_hdr->contents = (unsigned char *) isymbuf;
2437
2438 if (debug_relocs)
2439 printf (" R_MSP430_RL_PCREL -> ");
2440 /* Fix the relocation's type. */
2441 if (uses_msp430x_relocs (abfd))
2442 {
2443 if (rx->labels == 3) /* Handle special cases. */
2444 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2445 R_MSP430X_2X_PCREL);
2446 else
2447 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2448 R_MSP430X_10_PCREL);
2449 }
2450 else
2451 {
2452 if (rx->labels == 3) /* Handle special cases. */
2453 {
2454 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2455 R_MSP430_2X_PCREL);
2456 if (debug_relocs)
2457 printf ("R_MSP430_2X_PCREL (shrinking with new opcode"
2458 " 0x%x)\n", rx->t0);
2459 }
2460 else
2461 {
2462 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2463 R_MSP430_10_PCREL);
2464 if (debug_relocs)
2465 printf ("R_MSP430_10_PCREL (shrinking with new opcode"
2466 " 0x%x)\n", rx->t0);
2467 }
2468 }
2469
2470 /* Fix the opcode right way. */
2471 bfd_put_16 (abfd, rx->t0, contents + irel->r_offset - rx->off);
2472 if (rx->t1)
2473 bfd_put_16 (abfd, rx->t1,
2474 contents + irel->r_offset - rx->off + 2);
2475
2476 /* Delete bytes. */
2477 if (!msp430_elf_relax_delete_bytes (abfd, sec,
2478 irel->r_offset - rx->off +
2479 rx->ncl, rx->bs))
2480 goto error_return;
2481
2482 /* Handle unconditional jumps. */
2483 if (rx->cdx == 0)
2484 irel->r_offset -= 2;
2485
2486 /* That will change things, so, we should relax again.
2487 Note that this is not required, and it may be slow. */
2488 *again = TRUE;
2489 }
2490 }
2491
2492 /* Try to turn a 16-bit absolute branch into a 10-bit pc-relative
2493 branch. */
2494 if ((uses_msp430x_relocs (abfd)
2495 && ELF32_R_TYPE (irel->r_info) == R_MSP430X_ABS16)
2496 || (! uses_msp430x_relocs (abfd)
2497 && ELF32_R_TYPE (irel->r_info) == R_MSP430_16))
2498 {
2499 bfd_vma value = symval;
2500
2501 value -= (sec->output_section->vma + sec->output_offset);
2502 value -= irel->r_offset;
2503 value += irel->r_addend;
2504
2505 /* See if the value will fit in 10 bits, note the high value is
2506 1016 as the target will be two bytes closer if we are
2507 able to relax. */
2508 if ((long) value < 1016 && (long) value > -1016)
2509 {
2510 int code1, code2, opcode;
2511
2512 /* Get the opcode. */
2513 code2 = bfd_get_16 (abfd, contents + irel->r_offset - 2);
2514 if (code2 != 0x4030) /* BR -> JMP */
2515 continue;
2516 /* FIXME: check r4 and r3 ? */
2517 /* FIXME: Handle 0x4010 as well ? */
2518
2519 /* Note that we've changed the relocs, section contents, etc. */
2520 elf_section_data (sec)->relocs = internal_relocs;
2521 elf_section_data (sec)->this_hdr.contents = contents;
2522 symtab_hdr->contents = (unsigned char *) isymbuf;
2523
2524 /* Fix the relocation's type. */
2525 if (uses_msp430x_relocs (abfd))
2526 {
2527 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2528 R_MSP430X_10_PCREL);
2529 if (debug_relocs)
2530 printf (" R_MSP430X_16 -> R_MSP430X_10_PCREL ");
2531 }
2532 else
2533 {
2534 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2535 R_MSP430_10_PCREL);
2536 if (debug_relocs)
2537 printf (" R_MSP430_16 -> R_MSP430_10_PCREL ");
2538 }
2539 /* If we're trying to shrink a BR[A] after previously having
2540 grown a JMP for this reloc, then we have a sequence like
2541 this:
2542 J<cond> 1f
2543 BR[A]
2544 1:
2545 The opcode for J<cond> has the target hard-coded as 2 words
2546 ahead of the insn, instead of using a reloc.
2547 This means we cannot rely on any of the helper functions to
2548 update this hard-coded jump destination if we remove the
2549 BR[A] insn, so we must explicitly update it here.
2550 This does mean that we can remove the entire branch
2551 instruction, and invert the conditional jump, saving us 4
2552 bytes rather than only 2 if we detected this in the normal
2553 way. */
2554 code1 = bfd_get_16 (abfd, contents + irel->r_offset - 4);
2555 switch (code1)
2556 {
2557 case 0x3802: opcode = 0x3401; break; /* Jl +2 -> Jge +1 */
2558 case 0x3402: opcode = 0x3801; break; /* Jge +2 -> Jl +1 */
2559 case 0x2c02: opcode = 0x2801; break; /* Jhs +2 -> Jlo +1 */
2560 case 0x2802: opcode = 0x2c01; break; /* Jlo +2 -> Jhs +1 */
2561 case 0x2402: opcode = 0x2001; break; /* Jeq +2 -> Jne +1 */
2562 case 0x2002: opcode = 0x2401; break; /* jne +2 -> Jeq +1 */
2563 case 0x3002: /* jn +2 */
2564 /* FIXME: There is no direct inverse of the Jn insn. */
2565 continue;
2566 default:
2567 /* The previous opcode does not have a hard-coded jump
2568 that we added when previously relaxing, so relax the
2569 current branch as normal. */
2570 opcode = 0x3c00;
2571 break;
2572 }
2573 if (debug_relocs)
2574 printf ("(shrinking with new opcode 0x%x)\n", opcode);
2575
2576 if (opcode != 0x3c00)
2577 {
2578 /* Invert the opcode of the conditional jump. */
2579 bfd_put_16 (abfd, opcode, contents + irel->r_offset - 4);
2580 irel->r_offset -= 4;
2581
2582 /* Delete 4 bytes - the full BR insn. */
2583 if (!msp430_elf_relax_delete_bytes (abfd, sec,
2584 irel->r_offset + 2, 4))
2585 goto error_return;
2586 }
2587 else
2588 {
2589 /* Fix the opcode right way. */
2590 bfd_put_16 (abfd, opcode, contents + irel->r_offset - 2);
2591 irel->r_offset -= 2;
2592
2593 /* Delete bytes. */
2594 if (!msp430_elf_relax_delete_bytes (abfd, sec,
2595 irel->r_offset + 2, 2))
2596 goto error_return;
2597 }
2598
2599 /* That will change things, so, we should relax again.
2600 Note that this is not required, and it may be slow. */
2601 *again = TRUE;
2602 }
2603 }
2604 }
2605
2606 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
2607 {
2608 if (!link_info->keep_memory)
2609 free (isymbuf);
2610 else
2611 {
2612 /* Cache the symbols for elf_link_input_bfd. */
2613 symtab_hdr->contents = (unsigned char *) isymbuf;
2614 }
2615 }
2616
2617 if (contents != NULL
2618 && elf_section_data (sec)->this_hdr.contents != contents)
2619 {
2620 if (!link_info->keep_memory)
2621 free (contents);
2622 else
2623 {
2624 /* Cache the section contents for elf_link_input_bfd. */
2625 elf_section_data (sec)->this_hdr.contents = contents;
2626 }
2627 }
2628
2629 if (elf_section_data (sec)->relocs != internal_relocs)
2630 free (internal_relocs);
2631
2632 return TRUE;
2633
2634 error_return:
2635 if (symtab_hdr->contents != (unsigned char *) isymbuf)
2636 free (isymbuf);
2637 if (elf_section_data (sec)->this_hdr.contents != contents)
2638 free (contents);
2639 if (elf_section_data (sec)->relocs != internal_relocs)
2640 free (internal_relocs);
2641
2642 return FALSE;
2643 }
2644
2645 /* Handle an MSP430 specific section when reading an object file.
2646 This is called when bfd_section_from_shdr finds a section with
2647 an unknown type. */
2648
2649 static bfd_boolean
elf32_msp430_section_from_shdr(bfd * abfd,Elf_Internal_Shdr * hdr,const char * name,int shindex)2650 elf32_msp430_section_from_shdr (bfd *abfd,
2651 Elf_Internal_Shdr * hdr,
2652 const char *name,
2653 int shindex)
2654 {
2655 switch (hdr->sh_type)
2656 {
2657 case SHT_MSP430_SEC_FLAGS:
2658 case SHT_MSP430_SYM_ALIASES:
2659 case SHT_MSP430_ATTRIBUTES:
2660 return _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex);
2661 default:
2662 return FALSE;
2663 }
2664 }
2665
2666 static bfd_boolean
elf32_msp430_obj_attrs_handle_unknown(bfd * abfd,int tag)2667 elf32_msp430_obj_attrs_handle_unknown (bfd *abfd, int tag)
2668 {
2669 _bfd_error_handler
2670 /* xgettext:c-format */
2671 (_("warning: %pB: unknown MSPABI object attribute %d"),
2672 abfd, tag);
2673 return TRUE;
2674 }
2675
2676 /* Determine whether an object attribute tag takes an integer, a
2677 string or both. */
2678
2679 static int
elf32_msp430_obj_attrs_arg_type(int tag)2680 elf32_msp430_obj_attrs_arg_type (int tag)
2681 {
2682 if (tag == Tag_compatibility)
2683 return ATTR_TYPE_FLAG_INT_VAL | ATTR_TYPE_FLAG_STR_VAL;
2684
2685 if (tag < 32)
2686 return ATTR_TYPE_FLAG_INT_VAL;
2687
2688 return (tag & 1) != 0 ? ATTR_TYPE_FLAG_STR_VAL : ATTR_TYPE_FLAG_INT_VAL;
2689 }
2690
2691 static inline const char *
isa_type(int isa)2692 isa_type (int isa)
2693 {
2694 switch (isa)
2695 {
2696 case 1: return "MSP430";
2697 case 2: return "MSP430X";
2698 default: return "unknown";
2699 }
2700 }
2701
2702 static inline const char *
code_model(int model)2703 code_model (int model)
2704 {
2705 switch (model)
2706 {
2707 case 1: return "small";
2708 case 2: return "large";
2709 default: return "unknown";
2710 }
2711 }
2712
2713 static inline const char *
data_model(int model)2714 data_model (int model)
2715 {
2716 switch (model)
2717 {
2718 case 1: return "small";
2719 case 2: return "large";
2720 case 3: return "restricted large";
2721 default: return "unknown";
2722 }
2723 }
2724
2725 /* Merge MSPABI and GNU object attributes from IBFD into OBFD.
2726 Raise an error if there are conflicting attributes. */
2727
2728 static bfd_boolean
elf32_msp430_merge_msp430_attributes(bfd * ibfd,struct bfd_link_info * info)2729 elf32_msp430_merge_msp430_attributes (bfd *ibfd, struct bfd_link_info *info)
2730 {
2731 bfd *obfd = info->output_bfd;
2732 obj_attribute *in_msp_attr, *in_gnu_attr;
2733 obj_attribute *out_msp_attr, *out_gnu_attr;
2734 bfd_boolean result = TRUE;
2735 static bfd * first_input_bfd = NULL;
2736
2737 /* Skip linker created files. */
2738 if (ibfd->flags & BFD_LINKER_CREATED)
2739 return TRUE;
2740
2741 /* LTO can create temporary files for linking which may not have an attribute
2742 section. */
2743 if (ibfd->lto_output
2744 && bfd_get_section_by_name (ibfd, ".MSP430.attributes") == NULL)
2745 return TRUE;
2746
2747 /* If this is the first real object just copy the attributes. */
2748 if (!elf_known_obj_attributes_proc (obfd)[0].i)
2749 {
2750 _bfd_elf_copy_obj_attributes (ibfd, obfd);
2751
2752 out_msp_attr = elf_known_obj_attributes_proc (obfd);
2753
2754 /* Use the Tag_null value to indicate that
2755 the attributes have been initialized. */
2756 out_msp_attr[0].i = 1;
2757
2758 first_input_bfd = ibfd;
2759 return TRUE;
2760 }
2761
2762 in_msp_attr = elf_known_obj_attributes_proc (ibfd);
2763 out_msp_attr = elf_known_obj_attributes_proc (obfd);
2764 in_gnu_attr = elf_known_obj_attributes (ibfd) [OBJ_ATTR_GNU];
2765 out_gnu_attr = elf_known_obj_attributes (obfd) [OBJ_ATTR_GNU];
2766
2767 /* The ISAs must be the same. */
2768 if (in_msp_attr[OFBA_MSPABI_Tag_ISA].i != out_msp_attr[OFBA_MSPABI_Tag_ISA].i)
2769 {
2770 _bfd_error_handler
2771 /* xgettext:c-format */
2772 (_("error: %pB uses %s instructions but %pB uses %s"),
2773 ibfd, isa_type (in_msp_attr[OFBA_MSPABI_Tag_ISA].i),
2774 first_input_bfd, isa_type (out_msp_attr[OFBA_MSPABI_Tag_ISA].i));
2775 result = FALSE;
2776 }
2777
2778 /* The code models must be the same. */
2779 if (in_msp_attr[OFBA_MSPABI_Tag_Code_Model].i
2780 != out_msp_attr[OFBA_MSPABI_Tag_Code_Model].i)
2781 {
2782 _bfd_error_handler
2783 /* xgettext:c-format */
2784 (_("error: %pB uses the %s code model whereas %pB uses the %s code model"),
2785 ibfd, code_model (in_msp_attr[OFBA_MSPABI_Tag_Code_Model].i),
2786 first_input_bfd,
2787 code_model (out_msp_attr[OFBA_MSPABI_Tag_Code_Model].i));
2788 result = FALSE;
2789 }
2790
2791 /* The large code model is only supported by the MSP430X. */
2792 if (in_msp_attr[OFBA_MSPABI_Tag_Code_Model].i == 2
2793 && out_msp_attr[OFBA_MSPABI_Tag_ISA].i != 2)
2794 {
2795 _bfd_error_handler
2796 /* xgettext:c-format */
2797 (_("error: %pB uses the large code model but %pB uses MSP430 instructions"),
2798 ibfd, first_input_bfd);
2799 result = FALSE;
2800 }
2801
2802 /* The data models must be the same. */
2803 if (in_msp_attr[OFBA_MSPABI_Tag_Data_Model].i
2804 != out_msp_attr[OFBA_MSPABI_Tag_Data_Model].i)
2805 {
2806 _bfd_error_handler
2807 /* xgettext:c-format */
2808 (_("error: %pB uses the %s data model whereas %pB uses the %s data model"),
2809 ibfd, data_model (in_msp_attr[OFBA_MSPABI_Tag_Data_Model].i),
2810 first_input_bfd,
2811 data_model (out_msp_attr[OFBA_MSPABI_Tag_Data_Model].i));
2812 result = FALSE;
2813 }
2814
2815 /* The small code model requires the use of the small data model. */
2816 if (in_msp_attr[OFBA_MSPABI_Tag_Code_Model].i == 1
2817 && out_msp_attr[OFBA_MSPABI_Tag_Data_Model].i != 1)
2818 {
2819 _bfd_error_handler
2820 /* xgettext:c-format */
2821 (_("error: %pB uses the small code model but %pB uses the %s data model"),
2822 ibfd, first_input_bfd,
2823 data_model (out_msp_attr[OFBA_MSPABI_Tag_Data_Model].i));
2824 result = FALSE;
2825 }
2826
2827 /* The large data models are only supported by the MSP430X. */
2828 if (in_msp_attr[OFBA_MSPABI_Tag_Data_Model].i > 1
2829 && out_msp_attr[OFBA_MSPABI_Tag_ISA].i != 2)
2830 {
2831 _bfd_error_handler
2832 /* xgettext:c-format */
2833 (_("error: %pB uses the %s data model but %pB only uses MSP430 instructions"),
2834 ibfd, data_model (in_msp_attr[OFBA_MSPABI_Tag_Data_Model].i),
2835 first_input_bfd);
2836 result = FALSE;
2837 }
2838
2839 /* Just ignore the data region unless the large memory model is in use.
2840 We have already checked that ibfd and obfd use the same memory model. */
2841 if ((in_msp_attr[OFBA_MSPABI_Tag_Code_Model].i
2842 == OFBA_MSPABI_Val_Code_Model_LARGE)
2843 && (in_msp_attr[OFBA_MSPABI_Tag_Data_Model].i
2844 == OFBA_MSPABI_Val_Data_Model_LARGE))
2845 {
2846 /* We cannot allow "lower region only" to be linked with any other
2847 values (i.e. ANY or NONE).
2848 Before this attribute existed, "ANY" region was the default. */
2849 bfd_boolean ibfd_lower_region_used
2850 = (in_gnu_attr[Tag_GNU_MSP430_Data_Region].i
2851 == Val_GNU_MSP430_Data_Region_Lower);
2852 bfd_boolean obfd_lower_region_used
2853 = (out_gnu_attr[Tag_GNU_MSP430_Data_Region].i
2854 == Val_GNU_MSP430_Data_Region_Lower);
2855 if (ibfd_lower_region_used != obfd_lower_region_used)
2856 {
2857 _bfd_error_handler
2858 (_("error: %pB can use the upper region for data, "
2859 "but %pB assumes data is exclusively in lower memory"),
2860 ibfd_lower_region_used ? obfd : ibfd,
2861 ibfd_lower_region_used ? ibfd : obfd);
2862 result = FALSE;
2863 }
2864 }
2865
2866 return result;
2867 }
2868
2869 /* Merge backend specific data from an object file to the output
2870 object file when linking. */
2871
2872 static bfd_boolean
elf32_msp430_merge_private_bfd_data(bfd * ibfd,struct bfd_link_info * info)2873 elf32_msp430_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
2874 {
2875 bfd *obfd = info->output_bfd;
2876 /* Make sure that the machine number reflects the most
2877 advanced version of the MSP architecture required. */
2878 #define max(a,b) ((a) > (b) ? (a) : (b))
2879 if (bfd_get_mach (ibfd) != bfd_get_mach (obfd))
2880 bfd_default_set_arch_mach (obfd, bfd_get_arch (obfd),
2881 max (bfd_get_mach (ibfd), bfd_get_mach (obfd)));
2882 #undef max
2883
2884 return elf32_msp430_merge_msp430_attributes (ibfd, info);
2885 }
2886
2887 static bfd_boolean
msp430_elf_is_target_special_symbol(bfd * abfd,asymbol * sym)2888 msp430_elf_is_target_special_symbol (bfd *abfd, asymbol *sym)
2889 {
2890 return _bfd_elf_is_local_label_name (abfd, sym->name);
2891 }
2892
2893 static bfd_boolean
uses_large_model(bfd * abfd)2894 uses_large_model (bfd *abfd)
2895 {
2896 obj_attribute * attr;
2897
2898 if (abfd->flags & BFD_LINKER_CREATED)
2899 return FALSE;
2900
2901 attr = elf_known_obj_attributes_proc (abfd);
2902 if (attr == NULL)
2903 return FALSE;
2904
2905 return attr[OFBA_MSPABI_Tag_Code_Model].i == 2;
2906 }
2907
2908 static unsigned int
elf32_msp430_eh_frame_address_size(bfd * abfd,const asection * sec ATTRIBUTE_UNUSED)2909 elf32_msp430_eh_frame_address_size (bfd *abfd,
2910 const asection *sec ATTRIBUTE_UNUSED)
2911 {
2912 return uses_large_model (abfd) ? 4 : 2;
2913 }
2914
2915 /* This is gross. The MSP430 EABI says that (sec 11.5):
2916
2917 "An implementation may choose to use Rel or Rela
2918 type relocations for other relocations."
2919
2920 But it also says that:
2921
2922 "Certain relocations are identified as Rela only. [snip]
2923 Where Rela is specified, an implementation must honor
2924 this requirement."
2925
2926 There is one relocation marked as requiring RELA - R_MSP430_ABS_HI16 - but
2927 to keep things simple we choose to use RELA relocations throughout. The
2928 problem is that the TI compiler generates REL relocations, so we have to
2929 be able to accept those as well. */
2930
2931 #define elf_backend_may_use_rel_p 1
2932 #define elf_backend_may_use_rela_p 1
2933 #define elf_backend_default_use_rela_p 1
2934
2935 #undef elf_backend_obj_attrs_vendor
2936 #define elf_backend_obj_attrs_vendor "mspabi"
2937 #undef elf_backend_obj_attrs_section
2938 #define elf_backend_obj_attrs_section ".MSP430.attributes"
2939 #undef elf_backend_obj_attrs_section_type
2940 #define elf_backend_obj_attrs_section_type SHT_MSP430_ATTRIBUTES
2941 #define elf_backend_section_from_shdr elf32_msp430_section_from_shdr
2942 #define elf_backend_obj_attrs_handle_unknown elf32_msp430_obj_attrs_handle_unknown
2943 #undef elf_backend_obj_attrs_arg_type
2944 #define elf_backend_obj_attrs_arg_type elf32_msp430_obj_attrs_arg_type
2945 #define bfd_elf32_bfd_merge_private_bfd_data elf32_msp430_merge_private_bfd_data
2946 #define elf_backend_eh_frame_address_size elf32_msp430_eh_frame_address_size
2947
2948 #define ELF_ARCH bfd_arch_msp430
2949 #define ELF_MACHINE_CODE EM_MSP430
2950 #define ELF_MACHINE_ALT1 EM_MSP430_OLD
2951 #define ELF_MAXPAGESIZE 4
2952 #define ELF_OSABI ELFOSABI_STANDALONE
2953
2954 #define TARGET_LITTLE_SYM msp430_elf32_vec
2955 #define TARGET_LITTLE_NAME "elf32-msp430"
2956
2957 #define elf_info_to_howto msp430_info_to_howto_rela
2958 #define elf_info_to_howto_rel NULL
2959 #define elf_backend_relocate_section elf32_msp430_relocate_section
2960 #define elf_backend_check_relocs elf32_msp430_check_relocs
2961 #define elf_backend_can_gc_sections 1
2962 #define elf_backend_final_write_processing bfd_elf_msp430_final_write_processing
2963 #define elf_backend_object_p elf32_msp430_object_p
2964 #define bfd_elf32_bfd_relax_section msp430_elf_relax_section
2965 #define bfd_elf32_bfd_is_target_special_symbol msp430_elf_is_target_special_symbol
2966
2967 #undef elf32_bed
2968 #define elf32_bed elf32_msp430_bed
2969
2970 #include "elf32-target.h"
2971
2972 /* The TI compiler sets the OSABI field to ELFOSABI_NONE. */
2973 #undef TARGET_LITTLE_SYM
2974 #define TARGET_LITTLE_SYM msp430_elf32_ti_vec
2975
2976 #undef elf32_bed
2977 #define elf32_bed elf32_msp430_ti_bed
2978
2979 #undef ELF_OSABI
2980 #define ELF_OSABI ELFOSABI_NONE
2981
2982 static const struct bfd_elf_special_section msp430_ti_elf_special_sections[] =
2983 {
2984 /* prefix, prefix_length, suffix_len, type, attributes. */
2985 { STRING_COMMA_LEN (".TI.symbol.alias"), 0, SHT_MSP430_SYM_ALIASES, 0 },
2986 { STRING_COMMA_LEN (".TI.section.flags"), 0, SHT_MSP430_SEC_FLAGS, 0 },
2987 { STRING_COMMA_LEN ("_TI_build_attrib"), 0, SHT_MSP430_ATTRIBUTES, 0 },
2988 { NULL, 0, 0, 0, 0 }
2989 };
2990
2991 #undef elf_backend_special_sections
2992 #define elf_backend_special_sections msp430_ti_elf_special_sections
2993
2994 #include "elf32-target.h"
2995