OSDN Git Service

update copyright dates
[pf3gnuchains/pf3gnuchains3x.git] / bfd / elf-m10300.c
1 /* Matsushita 10300 specific support for 32-bit ELF
2    Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3    2006, 2007, 2008, 2009 Free Software Foundation, Inc.
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 "libbfd.h"
25 #include "elf-bfd.h"
26 #include "elf/mn10300.h"
27 #include "libiberty.h"
28
29 /* The mn10300 linker needs to keep track of the number of relocs that
30    it decides to copy in check_relocs for each symbol.  This is so
31    that it can discard PC relative relocs if it doesn't need them when
32    linking with -Bsymbolic.  We store the information in a field
33    extending the regular ELF linker hash table.  */
34
35 struct elf32_mn10300_link_hash_entry
36 {
37   /* The basic elf link hash table entry.  */
38   struct elf_link_hash_entry root;
39
40   /* For function symbols, the number of times this function is
41      called directly (ie by name).  */
42   unsigned int direct_calls;
43
44   /* For function symbols, the size of this function's stack
45      (if <= 255 bytes).  We stuff this into "call" instructions
46      to this target when it's valid and profitable to do so.
47
48      This does not include stack allocated by movm!  */
49   unsigned char stack_size;
50
51   /* For function symbols, arguments (if any) for movm instruction
52      in the prologue.  We stuff this value into "call" instructions
53      to the target when it's valid and profitable to do so.  */
54   unsigned char movm_args;
55
56   /* For function symbols, the amount of stack space that would be allocated
57      by the movm instruction.  This is redundant with movm_args, but we
58      add it to the hash table to avoid computing it over and over.  */
59   unsigned char movm_stack_size;
60
61 /* When set, convert all "call" instructions to this target into "calls"
62    instructions.  */
63 #define MN10300_CONVERT_CALL_TO_CALLS 0x1
64
65 /* Used to mark functions which have had redundant parts of their
66    prologue deleted.  */
67 #define MN10300_DELETED_PROLOGUE_BYTES 0x2
68   unsigned char flags;
69
70   /* Calculated value.  */
71   bfd_vma value;
72 };
73
74 /* We derive a hash table from the main elf linker hash table so
75    we can store state variables and a secondary hash table without
76    resorting to global variables.  */
77 struct elf32_mn10300_link_hash_table
78 {
79   /* The main hash table.  */
80   struct elf_link_hash_table root;
81
82   /* A hash table for static functions.  We could derive a new hash table
83      instead of using the full elf32_mn10300_link_hash_table if we wanted
84      to save some memory.  */
85   struct elf32_mn10300_link_hash_table *static_hash_table;
86
87   /* Random linker state flags.  */
88 #define MN10300_HASH_ENTRIES_INITIALIZED 0x1
89   char flags;
90 };
91
92 #ifndef streq
93 #define streq(a, b) (strcmp ((a),(b)) == 0)
94 #endif
95
96 /* For MN10300 linker hash table.  */
97
98 /* Get the MN10300 ELF linker hash table from a link_info structure.  */
99
100 #define elf32_mn10300_hash_table(p) \
101   ((struct elf32_mn10300_link_hash_table *) ((p)->hash))
102
103 #define elf32_mn10300_link_hash_traverse(table, func, info)             \
104   (elf_link_hash_traverse                                               \
105    (&(table)->root,                                                     \
106     (bfd_boolean (*) (struct elf_link_hash_entry *, void *)) (func),    \
107     (info)))
108
109 static reloc_howto_type elf_mn10300_howto_table[] =
110 {
111   /* Dummy relocation.  Does nothing.  */
112   HOWTO (R_MN10300_NONE,
113          0,
114          2,
115          16,
116          FALSE,
117          0,
118          complain_overflow_bitfield,
119          bfd_elf_generic_reloc,
120          "R_MN10300_NONE",
121          FALSE,
122          0,
123          0,
124          FALSE),
125   /* Standard 32 bit reloc.  */
126   HOWTO (R_MN10300_32,
127          0,
128          2,
129          32,
130          FALSE,
131          0,
132          complain_overflow_bitfield,
133          bfd_elf_generic_reloc,
134          "R_MN10300_32",
135          FALSE,
136          0xffffffff,
137          0xffffffff,
138          FALSE),
139   /* Standard 16 bit reloc.  */
140   HOWTO (R_MN10300_16,
141          0,
142          1,
143          16,
144          FALSE,
145          0,
146          complain_overflow_bitfield,
147          bfd_elf_generic_reloc,
148          "R_MN10300_16",
149          FALSE,
150          0xffff,
151          0xffff,
152          FALSE),
153   /* Standard 8 bit reloc.  */
154   HOWTO (R_MN10300_8,
155          0,
156          0,
157          8,
158          FALSE,
159          0,
160          complain_overflow_bitfield,
161          bfd_elf_generic_reloc,
162          "R_MN10300_8",
163          FALSE,
164          0xff,
165          0xff,
166          FALSE),
167   /* Standard 32bit pc-relative reloc.  */
168   HOWTO (R_MN10300_PCREL32,
169          0,
170          2,
171          32,
172          TRUE,
173          0,
174          complain_overflow_bitfield,
175          bfd_elf_generic_reloc,
176          "R_MN10300_PCREL32",
177          FALSE,
178          0xffffffff,
179          0xffffffff,
180          TRUE),
181   /* Standard 16bit pc-relative reloc.  */
182   HOWTO (R_MN10300_PCREL16,
183          0,
184          1,
185          16,
186          TRUE,
187          0,
188          complain_overflow_bitfield,
189          bfd_elf_generic_reloc,
190          "R_MN10300_PCREL16",
191          FALSE,
192          0xffff,
193          0xffff,
194          TRUE),
195   /* Standard 8 pc-relative reloc.  */
196   HOWTO (R_MN10300_PCREL8,
197          0,
198          0,
199          8,
200          TRUE,
201          0,
202          complain_overflow_bitfield,
203          bfd_elf_generic_reloc,
204          "R_MN10300_PCREL8",
205          FALSE,
206          0xff,
207          0xff,
208          TRUE),
209
210   /* GNU extension to record C++ vtable hierarchy.  */
211   HOWTO (R_MN10300_GNU_VTINHERIT, /* type */
212          0,                     /* rightshift */
213          0,                     /* size (0 = byte, 1 = short, 2 = long) */
214          0,                     /* bitsize */
215          FALSE,                 /* pc_relative */
216          0,                     /* bitpos */
217          complain_overflow_dont, /* complain_on_overflow */
218          NULL,                  /* special_function */
219          "R_MN10300_GNU_VTINHERIT", /* name */
220          FALSE,                 /* partial_inplace */
221          0,                     /* src_mask */
222          0,                     /* dst_mask */
223          FALSE),                /* pcrel_offset */
224
225   /* GNU extension to record C++ vtable member usage */
226   HOWTO (R_MN10300_GNU_VTENTRY, /* type */
227          0,                     /* rightshift */
228          0,                     /* size (0 = byte, 1 = short, 2 = long) */
229          0,                     /* bitsize */
230          FALSE,                 /* pc_relative */
231          0,                     /* bitpos */
232          complain_overflow_dont, /* complain_on_overflow */
233          NULL,                  /* special_function */
234          "R_MN10300_GNU_VTENTRY", /* name */
235          FALSE,                 /* partial_inplace */
236          0,                     /* src_mask */
237          0,                     /* dst_mask */
238          FALSE),                /* pcrel_offset */
239
240   /* Standard 24 bit reloc.  */
241   HOWTO (R_MN10300_24,
242          0,
243          2,
244          24,
245          FALSE,
246          0,
247          complain_overflow_bitfield,
248          bfd_elf_generic_reloc,
249          "R_MN10300_24",
250          FALSE,
251          0xffffff,
252          0xffffff,
253          FALSE),
254   HOWTO (R_MN10300_GOTPC32,     /* type */
255          0,                     /* rightshift */
256          2,                     /* size (0 = byte, 1 = short, 2 = long) */
257          32,                    /* bitsize */
258          TRUE,                  /* pc_relative */
259          0,                     /* bitpos */
260          complain_overflow_bitfield, /* complain_on_overflow */
261          bfd_elf_generic_reloc, /* */
262          "R_MN10300_GOTPC32",   /* name */
263          FALSE,                 /* partial_inplace */
264          0xffffffff,            /* src_mask */
265          0xffffffff,            /* dst_mask */
266          TRUE),                 /* pcrel_offset */
267
268   HOWTO (R_MN10300_GOTPC16,     /* type */
269          0,                     /* rightshift */
270          1,                     /* size (0 = byte, 1 = short, 2 = long) */
271          16,                    /* bitsize */
272          TRUE,                  /* pc_relative */
273          0,                     /* bitpos */
274          complain_overflow_bitfield, /* complain_on_overflow */
275          bfd_elf_generic_reloc, /* */
276          "R_MN10300_GOTPC16",   /* name */
277          FALSE,                 /* partial_inplace */
278          0xffff,                /* src_mask */
279          0xffff,                /* dst_mask */
280          TRUE),                 /* pcrel_offset */
281
282   HOWTO (R_MN10300_GOTOFF32,    /* type */
283          0,                     /* rightshift */
284          2,                     /* size (0 = byte, 1 = short, 2 = long) */
285          32,                    /* bitsize */
286          FALSE,                 /* pc_relative */
287          0,                     /* bitpos */
288          complain_overflow_bitfield, /* complain_on_overflow */
289          bfd_elf_generic_reloc, /* */
290          "R_MN10300_GOTOFF32",  /* name */
291          FALSE,                 /* partial_inplace */
292          0xffffffff,            /* src_mask */
293          0xffffffff,            /* dst_mask */
294          FALSE),                /* pcrel_offset */
295
296   HOWTO (R_MN10300_GOTOFF24,    /* type */
297          0,                     /* rightshift */
298          2,                     /* size (0 = byte, 1 = short, 2 = long) */
299          24,                    /* bitsize */
300          FALSE,                 /* pc_relative */
301          0,                     /* bitpos */
302          complain_overflow_bitfield, /* complain_on_overflow */
303          bfd_elf_generic_reloc, /* */
304          "R_MN10300_GOTOFF24",  /* name */
305          FALSE,                 /* partial_inplace */
306          0xffffff,              /* src_mask */
307          0xffffff,              /* dst_mask */
308          FALSE),                /* pcrel_offset */
309
310   HOWTO (R_MN10300_GOTOFF16,    /* type */
311          0,                     /* rightshift */
312          1,                     /* size (0 = byte, 1 = short, 2 = long) */
313          16,                    /* bitsize */
314          FALSE,                 /* pc_relative */
315          0,                     /* bitpos */
316          complain_overflow_bitfield, /* complain_on_overflow */
317          bfd_elf_generic_reloc, /* */
318          "R_MN10300_GOTOFF16",  /* name */
319          FALSE,                 /* partial_inplace */
320          0xffff,                /* src_mask */
321          0xffff,                /* dst_mask */
322          FALSE),                /* pcrel_offset */
323
324   HOWTO (R_MN10300_PLT32,       /* type */
325          0,                     /* rightshift */
326          2,                     /* size (0 = byte, 1 = short, 2 = long) */
327          32,                    /* bitsize */
328          TRUE,                  /* pc_relative */
329          0,                     /* bitpos */
330          complain_overflow_bitfield, /* complain_on_overflow */
331          bfd_elf_generic_reloc, /* */
332          "R_MN10300_PLT32",     /* name */
333          FALSE,                 /* partial_inplace */
334          0xffffffff,            /* src_mask */
335          0xffffffff,            /* dst_mask */
336          TRUE),                 /* pcrel_offset */
337
338   HOWTO (R_MN10300_PLT16,       /* type */
339          0,                     /* rightshift */
340          1,                     /* size (0 = byte, 1 = short, 2 = long) */
341          16,                    /* bitsize */
342          TRUE,                  /* pc_relative */
343          0,                     /* bitpos */
344          complain_overflow_bitfield, /* complain_on_overflow */
345          bfd_elf_generic_reloc, /* */
346          "R_MN10300_PLT16",     /* name */
347          FALSE,                 /* partial_inplace */
348          0xffff,                /* src_mask */
349          0xffff,                /* dst_mask */
350          TRUE),                 /* pcrel_offset */
351
352   HOWTO (R_MN10300_GOT32,       /* type */
353          0,                     /* rightshift */
354          2,                     /* size (0 = byte, 1 = short, 2 = long) */
355          32,                    /* bitsize */
356          FALSE,                 /* pc_relative */
357          0,                     /* bitpos */
358          complain_overflow_bitfield, /* complain_on_overflow */
359          bfd_elf_generic_reloc, /* */
360          "R_MN10300_GOT32",     /* name */
361          FALSE,                 /* partial_inplace */
362          0xffffffff,            /* src_mask */
363          0xffffffff,            /* dst_mask */
364          FALSE),                /* pcrel_offset */
365
366   HOWTO (R_MN10300_GOT24,       /* type */
367          0,                     /* rightshift */
368          2,                     /* size (0 = byte, 1 = short, 2 = long) */
369          24,                    /* bitsize */
370          FALSE,                 /* pc_relative */
371          0,                     /* bitpos */
372          complain_overflow_bitfield, /* complain_on_overflow */
373          bfd_elf_generic_reloc, /* */
374          "R_MN10300_GOT24",     /* name */
375          FALSE,                 /* partial_inplace */
376          0xffffffff,            /* src_mask */
377          0xffffffff,            /* dst_mask */
378          FALSE),                /* pcrel_offset */
379
380   HOWTO (R_MN10300_GOT16,       /* type */
381          0,                     /* rightshift */
382          1,                     /* size (0 = byte, 1 = short, 2 = long) */
383          16,                    /* bitsize */
384          FALSE,                 /* pc_relative */
385          0,                     /* bitpos */
386          complain_overflow_bitfield, /* complain_on_overflow */
387          bfd_elf_generic_reloc, /* */
388          "R_MN10300_GOT16",     /* name */
389          FALSE,                 /* partial_inplace */
390          0xffffffff,            /* src_mask */
391          0xffffffff,            /* dst_mask */
392          FALSE),                /* pcrel_offset */
393
394   HOWTO (R_MN10300_COPY,        /* type */
395          0,                     /* rightshift */
396          2,                     /* size (0 = byte, 1 = short, 2 = long) */
397          32,                    /* bitsize */
398          FALSE,                 /* pc_relative */
399          0,                     /* bitpos */
400          complain_overflow_bitfield, /* complain_on_overflow */
401          bfd_elf_generic_reloc, /* */
402          "R_MN10300_COPY",              /* name */
403          FALSE,                 /* partial_inplace */
404          0xffffffff,            /* src_mask */
405          0xffffffff,            /* dst_mask */
406          FALSE),                /* pcrel_offset */
407
408   HOWTO (R_MN10300_GLOB_DAT,    /* type */
409          0,                     /* rightshift */
410          2,                     /* size (0 = byte, 1 = short, 2 = long) */
411          32,                    /* bitsize */
412          FALSE,                 /* pc_relative */
413          0,                     /* bitpos */
414          complain_overflow_bitfield, /* complain_on_overflow */
415          bfd_elf_generic_reloc, /* */
416          "R_MN10300_GLOB_DAT",  /* name */
417          FALSE,                 /* partial_inplace */
418          0xffffffff,            /* src_mask */
419          0xffffffff,            /* dst_mask */
420          FALSE),                /* pcrel_offset */
421
422   HOWTO (R_MN10300_JMP_SLOT,    /* type */
423          0,                     /* rightshift */
424          2,                     /* size (0 = byte, 1 = short, 2 = long) */
425          32,                    /* bitsize */
426          FALSE,                 /* pc_relative */
427          0,                     /* bitpos */
428          complain_overflow_bitfield, /* complain_on_overflow */
429          bfd_elf_generic_reloc, /* */
430          "R_MN10300_JMP_SLOT",  /* name */
431          FALSE,                 /* partial_inplace */
432          0xffffffff,            /* src_mask */
433          0xffffffff,            /* dst_mask */
434          FALSE),                /* pcrel_offset */
435
436   HOWTO (R_MN10300_RELATIVE,    /* type */
437          0,                     /* rightshift */
438          2,                     /* size (0 = byte, 1 = short, 2 = long) */
439          32,                    /* bitsize */
440          FALSE,                 /* pc_relative */
441          0,                     /* bitpos */
442          complain_overflow_bitfield, /* complain_on_overflow */
443          bfd_elf_generic_reloc, /* */
444          "R_MN10300_RELATIVE",  /* name */
445          FALSE,                 /* partial_inplace */
446          0xffffffff,            /* src_mask */
447          0xffffffff,            /* dst_mask */
448          FALSE),                /* pcrel_offset */
449
450   EMPTY_HOWTO (24),
451   EMPTY_HOWTO (25),
452   EMPTY_HOWTO (26),
453   EMPTY_HOWTO (27),
454   EMPTY_HOWTO (28),
455   EMPTY_HOWTO (29),
456   EMPTY_HOWTO (30),
457   EMPTY_HOWTO (31),
458   EMPTY_HOWTO (32),
459   
460   HOWTO (R_MN10300_SYM_DIFF,    /* type */
461          0,                     /* rightshift */
462          2,                     /* size (0 = byte, 1 = short, 2 = long) */
463          32,                    /* bitsize */
464          FALSE,                 /* pc_relative */
465          0,                     /* bitpos */
466          complain_overflow_dont,/* complain_on_overflow */
467          NULL,                  /* special handler.  */
468          "R_MN10300_SYM_DIFF",  /* name */
469          FALSE,                 /* partial_inplace */
470          0xffffffff,            /* src_mask */
471          0xffffffff,            /* dst_mask */
472          FALSE),                /* pcrel_offset */
473
474   HOWTO (R_MN10300_ALIGN,       /* type */
475          0,                     /* rightshift */
476          0,                     /* size (0 = byte, 1 = short, 2 = long) */
477          32,                    /* bitsize */
478          FALSE,                 /* pc_relative */
479          0,                     /* bitpos */
480          complain_overflow_dont,/* complain_on_overflow */
481          NULL,                  /* special handler.  */
482          "R_MN10300_ALIGN",     /* name */
483          FALSE,                 /* partial_inplace */
484          0,                     /* src_mask */
485          0,                     /* dst_mask */
486          FALSE)                 /* pcrel_offset */
487 };
488
489 struct mn10300_reloc_map
490 {
491   bfd_reloc_code_real_type bfd_reloc_val;
492   unsigned char elf_reloc_val;
493 };
494
495 static const struct mn10300_reloc_map mn10300_reloc_map[] =
496 {
497   { BFD_RELOC_NONE, R_MN10300_NONE, },
498   { BFD_RELOC_32, R_MN10300_32, },
499   { BFD_RELOC_16, R_MN10300_16, },
500   { BFD_RELOC_8, R_MN10300_8, },
501   { BFD_RELOC_32_PCREL, R_MN10300_PCREL32, },
502   { BFD_RELOC_16_PCREL, R_MN10300_PCREL16, },
503   { BFD_RELOC_8_PCREL, R_MN10300_PCREL8, },
504   { BFD_RELOC_24, R_MN10300_24, },
505   { BFD_RELOC_VTABLE_INHERIT, R_MN10300_GNU_VTINHERIT },
506   { BFD_RELOC_VTABLE_ENTRY, R_MN10300_GNU_VTENTRY },
507   { BFD_RELOC_32_GOT_PCREL, R_MN10300_GOTPC32 },
508   { BFD_RELOC_16_GOT_PCREL, R_MN10300_GOTPC16 },
509   { BFD_RELOC_32_GOTOFF, R_MN10300_GOTOFF32 },
510   { BFD_RELOC_MN10300_GOTOFF24, R_MN10300_GOTOFF24 },
511   { BFD_RELOC_16_GOTOFF, R_MN10300_GOTOFF16 },
512   { BFD_RELOC_32_PLT_PCREL, R_MN10300_PLT32 },
513   { BFD_RELOC_16_PLT_PCREL, R_MN10300_PLT16 },
514   { BFD_RELOC_MN10300_GOT32, R_MN10300_GOT32 },
515   { BFD_RELOC_MN10300_GOT24, R_MN10300_GOT24 },
516   { BFD_RELOC_MN10300_GOT16, R_MN10300_GOT16 },
517   { BFD_RELOC_MN10300_COPY, R_MN10300_COPY },
518   { BFD_RELOC_MN10300_GLOB_DAT, R_MN10300_GLOB_DAT },
519   { BFD_RELOC_MN10300_JMP_SLOT, R_MN10300_JMP_SLOT },
520   { BFD_RELOC_MN10300_RELATIVE, R_MN10300_RELATIVE },
521   { BFD_RELOC_MN10300_SYM_DIFF, R_MN10300_SYM_DIFF },
522   { BFD_RELOC_MN10300_ALIGN, R_MN10300_ALIGN }
523 };
524
525 /* Create the GOT section.  */
526
527 static bfd_boolean
528 _bfd_mn10300_elf_create_got_section (bfd * abfd,
529                                      struct bfd_link_info * info)
530 {
531   flagword   flags;
532   flagword   pltflags;
533   asection * s;
534   struct elf_link_hash_entry * h;
535   const struct elf_backend_data * bed = get_elf_backend_data (abfd);
536   int ptralign;
537
538   /* This function may be called more than once.  */
539   if (bfd_get_section_by_name (abfd, ".got") != NULL)
540     return TRUE;
541
542   switch (bed->s->arch_size)
543     {
544     case 32:
545       ptralign = 2;
546       break;
547
548     case 64:
549       ptralign = 3;
550       break;
551
552     default:
553       bfd_set_error (bfd_error_bad_value);
554       return FALSE;
555     }
556
557   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
558            | SEC_LINKER_CREATED);
559
560   pltflags = flags;
561   pltflags |= SEC_CODE;
562   if (bed->plt_not_loaded)
563     pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
564   if (bed->plt_readonly)
565     pltflags |= SEC_READONLY;
566
567   s = bfd_make_section_with_flags (abfd, ".plt", pltflags);
568   if (s == NULL
569       || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
570     return FALSE;
571
572   /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
573      .plt section.  */
574   if (bed->want_plt_sym)
575     {
576       h = _bfd_elf_define_linkage_sym (abfd, info, s,
577                                        "_PROCEDURE_LINKAGE_TABLE_");
578       elf_hash_table (info)->hplt = h;
579       if (h == NULL)
580         return FALSE;
581     }
582
583   s = bfd_make_section_with_flags (abfd, ".got", flags);
584   if (s == NULL
585       || ! bfd_set_section_alignment (abfd, s, ptralign))
586     return FALSE;
587
588   if (bed->want_got_plt)
589     {
590       s = bfd_make_section_with_flags (abfd, ".got.plt", flags);
591       if (s == NULL
592           || ! bfd_set_section_alignment (abfd, s, ptralign))
593         return FALSE;
594     }
595
596   /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
597      (or .got.plt) section.  We don't do this in the linker script
598      because we don't want to define the symbol if we are not creating
599      a global offset table.  */
600   h = _bfd_elf_define_linkage_sym (abfd, info, s, "_GLOBAL_OFFSET_TABLE_");
601   elf_hash_table (info)->hgot = h;
602   if (h == NULL)
603     return FALSE;
604
605   /* The first bit of the global offset table is the header.  */
606   s->size += bed->got_header_size;
607
608   return TRUE;
609 }
610
611 static reloc_howto_type *
612 bfd_elf32_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
613                                  bfd_reloc_code_real_type code)
614 {
615   unsigned int i;
616
617   for (i = ARRAY_SIZE (mn10300_reloc_map); i--;)
618     if (mn10300_reloc_map[i].bfd_reloc_val == code)
619       return &elf_mn10300_howto_table[mn10300_reloc_map[i].elf_reloc_val];
620
621   return NULL;
622 }
623
624 static reloc_howto_type *
625 bfd_elf32_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
626                                  const char *r_name)
627 {
628   unsigned int i;
629
630   for (i = ARRAY_SIZE (elf_mn10300_howto_table); i--;)
631     if (elf_mn10300_howto_table[i].name != NULL
632         && strcasecmp (elf_mn10300_howto_table[i].name, r_name) == 0)
633       return elf_mn10300_howto_table + i;
634
635   return NULL;
636 }
637
638 /* Set the howto pointer for an MN10300 ELF reloc.  */
639
640 static void
641 mn10300_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
642                        arelent *cache_ptr,
643                        Elf_Internal_Rela *dst)
644 {
645   unsigned int r_type;
646
647   r_type = ELF32_R_TYPE (dst->r_info);
648   BFD_ASSERT (r_type < (unsigned int) R_MN10300_MAX);
649   cache_ptr->howto = elf_mn10300_howto_table + r_type;
650 }
651
652 /* Look through the relocs for a section during the first phase.
653    Since we don't do .gots or .plts, we just need to consider the
654    virtual table relocs for gc.  */
655
656 static bfd_boolean
657 mn10300_elf_check_relocs (bfd *abfd,
658                           struct bfd_link_info *info,
659                           asection *sec,
660                           const Elf_Internal_Rela *relocs)
661 {
662   bfd_boolean sym_diff_reloc_seen;
663   Elf_Internal_Shdr *symtab_hdr;
664   Elf_Internal_Sym * isymbuf = NULL;
665   struct elf_link_hash_entry **sym_hashes;
666   const Elf_Internal_Rela *rel;
667   const Elf_Internal_Rela *rel_end;
668   bfd *      dynobj;
669   bfd_vma *  local_got_offsets;
670   asection * sgot;
671   asection * srelgot;
672   asection * sreloc;
673   bfd_boolean result = FALSE;
674
675   sgot    = NULL;
676   srelgot = NULL;
677   sreloc  = NULL;
678
679   if (info->relocatable)
680     return TRUE;
681
682   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
683   isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
684   sym_hashes = elf_sym_hashes (abfd);
685
686   dynobj = elf_hash_table (info)->dynobj;
687   local_got_offsets = elf_local_got_offsets (abfd);
688   rel_end = relocs + sec->reloc_count;
689   sym_diff_reloc_seen = FALSE;
690
691   for (rel = relocs; rel < rel_end; rel++)
692     {
693       struct elf_link_hash_entry *h;
694       unsigned long r_symndx;
695       unsigned int r_type;
696
697       r_symndx = ELF32_R_SYM (rel->r_info);
698       if (r_symndx < symtab_hdr->sh_info)
699         h = NULL;
700       else
701         {
702           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
703           while (h->root.type == bfd_link_hash_indirect
704                  || h->root.type == bfd_link_hash_warning)
705             h = (struct elf_link_hash_entry *) h->root.u.i.link;
706         }
707
708       r_type = ELF32_R_TYPE (rel->r_info);
709
710       /* Some relocs require a global offset table.  */
711       if (dynobj == NULL)
712         {
713           switch (r_type)
714             {
715             case R_MN10300_GOT32:
716             case R_MN10300_GOT24:
717             case R_MN10300_GOT16:
718             case R_MN10300_GOTOFF32:
719             case R_MN10300_GOTOFF24:
720             case R_MN10300_GOTOFF16:
721             case R_MN10300_GOTPC32:
722             case R_MN10300_GOTPC16:
723               elf_hash_table (info)->dynobj = dynobj = abfd;
724               if (! _bfd_mn10300_elf_create_got_section (dynobj, info))
725                 goto fail;
726               break;
727
728             default:
729               break;
730             }
731         }
732
733       switch (r_type)
734         {
735         /* This relocation describes the C++ object vtable hierarchy.
736            Reconstruct it for later use during GC.  */
737         case R_MN10300_GNU_VTINHERIT:
738           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
739             goto fail;
740           break;
741
742         /* This relocation describes which C++ vtable entries are actually
743            used.  Record for later use during GC.  */
744         case R_MN10300_GNU_VTENTRY:
745           BFD_ASSERT (h != NULL);
746           if (h != NULL
747               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
748             goto fail;
749           break;
750
751         case R_MN10300_GOT32:
752         case R_MN10300_GOT24:
753         case R_MN10300_GOT16:
754           /* This symbol requires a global offset table entry.  */
755
756           if (sgot == NULL)
757             {
758               sgot = bfd_get_section_by_name (dynobj, ".got");
759               BFD_ASSERT (sgot != NULL);
760             }
761
762           if (srelgot == NULL
763               && (h != NULL || info->shared))
764             {
765               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
766               if (srelgot == NULL)
767                 {
768                   srelgot = bfd_make_section_with_flags (dynobj,
769                                                          ".rela.got",
770                                                          (SEC_ALLOC
771                                                           | SEC_LOAD
772                                                           | SEC_HAS_CONTENTS
773                                                           | SEC_IN_MEMORY
774                                                           | SEC_LINKER_CREATED
775                                                           | SEC_READONLY));
776                   if (srelgot == NULL
777                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
778                     goto fail;
779                 }
780             }
781
782           if (h != NULL)
783             {
784               if (h->got.offset != (bfd_vma) -1)
785                 /* We have already allocated space in the .got.  */
786                 break;
787
788               h->got.offset = sgot->size;
789
790               /* Make sure this symbol is output as a dynamic symbol.  */
791               if (h->dynindx == -1)
792                 {
793                   if (! bfd_elf_link_record_dynamic_symbol (info, h))
794                     goto fail;
795                 }
796
797               srelgot->size += sizeof (Elf32_External_Rela);
798             }
799           else
800             {
801               /* This is a global offset table entry for a local
802                  symbol.  */
803               if (local_got_offsets == NULL)
804                 {
805                   size_t       size;
806                   unsigned int i;
807
808                   size = symtab_hdr->sh_info * sizeof (bfd_vma);
809                   local_got_offsets = bfd_alloc (abfd, size);
810
811                   if (local_got_offsets == NULL)
812                     goto fail;
813
814                   elf_local_got_offsets (abfd) = local_got_offsets;
815
816                   for (i = 0; i < symtab_hdr->sh_info; i++)
817                     local_got_offsets[i] = (bfd_vma) -1;
818                 }
819
820               if (local_got_offsets[r_symndx] != (bfd_vma) -1)
821                 /* We have already allocated space in the .got.  */
822                 break;
823
824               local_got_offsets[r_symndx] = sgot->size;
825
826               if (info->shared)
827                 /* If we are generating a shared object, we need to
828                    output a R_MN10300_RELATIVE reloc so that the dynamic
829                    linker can adjust this GOT entry.  */
830                 srelgot->size += sizeof (Elf32_External_Rela);
831             }
832
833           sgot->size += 4;
834           break;
835
836         case R_MN10300_PLT32:
837         case R_MN10300_PLT16:
838           /* This symbol requires a procedure linkage table entry.  We
839              actually build the entry in adjust_dynamic_symbol,
840              because this might be a case of linking PIC code which is
841              never referenced by a dynamic object, in which case we
842              don't need to generate a procedure linkage table entry
843              after all.  */
844
845           /* If this is a local symbol, we resolve it directly without
846              creating a procedure linkage table entry.  */
847           if (h == NULL)
848             continue;
849
850           if (ELF_ST_VISIBILITY (h->other) == STV_INTERNAL
851               || ELF_ST_VISIBILITY (h->other) == STV_HIDDEN)
852             break;
853
854           h->needs_plt = 1;
855           break;
856
857         case R_MN10300_24:
858         case R_MN10300_16:
859         case R_MN10300_8:
860         case R_MN10300_PCREL32:
861         case R_MN10300_PCREL16:
862         case R_MN10300_PCREL8:
863           if (h != NULL)
864             h->non_got_ref = 1;
865           break;
866
867         case R_MN10300_SYM_DIFF:
868           sym_diff_reloc_seen = TRUE;
869           break;
870
871         case R_MN10300_32:
872           if (h != NULL)
873             h->non_got_ref = 1;
874
875           /* If we are creating a shared library, then we
876              need to copy the reloc into the shared library.  */
877           if (info->shared
878               && (sec->flags & SEC_ALLOC) != 0
879               /* Do not generate a dynamic reloc for a
880                  reloc associated with a SYM_DIFF operation.  */
881               && ! sym_diff_reloc_seen)
882             {
883               asection * sym_section = NULL;
884
885               /* Find the section containing the
886                  symbol involved in the relocation.  */
887               if (h == NULL)
888                 {
889                   Elf_Internal_Sym * isym;
890
891                   if (isymbuf == NULL)
892                     isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
893                                                     symtab_hdr->sh_info, 0,
894                                                     NULL, NULL, NULL);
895                   if (isymbuf)
896                     {
897                       isym = isymbuf + r_symndx;
898                       /* All we care about is whether this local symbol is absolute.  */
899                       if (isym->st_shndx == SHN_ABS)
900                         sym_section = bfd_abs_section_ptr;
901                     }
902                 }
903               else
904                 {
905                   if (h->root.type == bfd_link_hash_defined
906                       || h->root.type == bfd_link_hash_defweak)
907                     sym_section = h->root.u.def.section;
908                 }
909
910               /* If the symbol is absolute then the relocation can
911                  be resolved during linking and there is no need for
912                  a dynamic reloc.  */
913               if (sym_section != bfd_abs_section_ptr)
914                 {
915                   /* When creating a shared object, we must copy these
916                      reloc types into the output file.  We create a reloc
917                      section in dynobj and make room for this reloc.  */
918                   if (sreloc == NULL)
919                     {
920                       sreloc = _bfd_elf_make_dynamic_reloc_section
921                         (sec, dynobj, 2, abfd, /*rela?*/ TRUE);
922                       if (sreloc == NULL)
923                         goto fail;
924                     }
925
926                   sreloc->size += sizeof (Elf32_External_Rela);
927                 }
928             }
929
930           break;
931         }
932
933       if (ELF32_R_TYPE (rel->r_info) != R_MN10300_SYM_DIFF)
934         sym_diff_reloc_seen = FALSE;
935     }
936
937   result = TRUE;
938  fail:
939   if (isymbuf != NULL)
940     free (isymbuf);
941
942   return result;
943 }
944
945 /* Return the section that should be marked against GC for a given
946    relocation.  */
947
948 static asection *
949 mn10300_elf_gc_mark_hook (asection *sec,
950                           struct bfd_link_info *info,
951                           Elf_Internal_Rela *rel,
952                           struct elf_link_hash_entry *h,
953                           Elf_Internal_Sym *sym)
954 {
955   if (h != NULL)
956     switch (ELF32_R_TYPE (rel->r_info))
957       {
958       case R_MN10300_GNU_VTINHERIT:
959       case R_MN10300_GNU_VTENTRY:
960         return NULL;
961       }
962
963   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
964 }
965
966 /* Perform a relocation as part of a final link.  */
967
968 static bfd_reloc_status_type
969 mn10300_elf_final_link_relocate (reloc_howto_type *howto,
970                                  bfd *input_bfd,
971                                  bfd *output_bfd ATTRIBUTE_UNUSED,
972                                  asection *input_section,
973                                  bfd_byte *contents,
974                                  bfd_vma offset,
975                                  bfd_vma value,
976                                  bfd_vma addend,
977                                  struct elf_link_hash_entry * h,
978                                  unsigned long symndx,
979                                  struct bfd_link_info *info,
980                                  asection *sym_sec ATTRIBUTE_UNUSED,
981                                  int is_local ATTRIBUTE_UNUSED)
982 {
983   static asection *  sym_diff_section;
984   static bfd_vma     sym_diff_value;
985   bfd_boolean is_sym_diff_reloc;
986   unsigned long r_type = howto->type;
987   bfd_byte * hit_data = contents + offset;
988   bfd *      dynobj;
989   bfd_vma *  local_got_offsets;
990   asection * sgot;
991   asection * splt;
992   asection * sreloc;
993
994   dynobj = elf_hash_table (info)->dynobj;
995   local_got_offsets = elf_local_got_offsets (input_bfd);
996
997   sgot   = NULL;
998   splt   = NULL;
999   sreloc = NULL;
1000
1001   switch (r_type)
1002     {
1003     case R_MN10300_24:
1004     case R_MN10300_16:
1005     case R_MN10300_8:
1006     case R_MN10300_PCREL8:
1007     case R_MN10300_PCREL16:
1008     case R_MN10300_PCREL32:
1009     case R_MN10300_GOTOFF32:
1010     case R_MN10300_GOTOFF24:
1011     case R_MN10300_GOTOFF16:
1012       if (info->shared
1013           && (input_section->flags & SEC_ALLOC) != 0
1014           && h != NULL
1015           && ! SYMBOL_REFERENCES_LOCAL (info, h))
1016         return bfd_reloc_dangerous;
1017     }
1018
1019   is_sym_diff_reloc = FALSE;
1020   if (sym_diff_section != NULL)
1021     {
1022       BFD_ASSERT (sym_diff_section == input_section);
1023
1024       switch (r_type)
1025         {
1026         case R_MN10300_32:
1027         case R_MN10300_24:
1028         case R_MN10300_16:
1029         case R_MN10300_8:
1030           value -= sym_diff_value;
1031           /* If we are computing a 32-bit value for the location lists
1032              and the result is 0 then we add one to the value.  A zero
1033              value can result because of linker relaxation deleteing
1034              prologue instructions and using a value of 1 (for the begin
1035              and end offsets in the location list entry) results in a
1036              nul entry which does not prevent the following entries from
1037              being parsed.  */
1038           if (r_type == R_MN10300_32
1039               && value == 0
1040               && strcmp (input_section->name, ".debug_loc") == 0)
1041             value = 1;
1042           sym_diff_section = NULL;
1043           is_sym_diff_reloc = TRUE;
1044           break;
1045
1046         default:
1047           sym_diff_section = NULL;
1048           break;
1049         }
1050     }
1051
1052   switch (r_type)
1053     {
1054     case R_MN10300_SYM_DIFF:
1055       BFD_ASSERT (addend == 0);
1056       /* Cache the input section and value.
1057          The offset is unreliable, since relaxation may
1058          have reduced the following reloc's offset.  */
1059       sym_diff_section = input_section;
1060       sym_diff_value = value;
1061       return bfd_reloc_ok;
1062
1063     case R_MN10300_ALIGN:
1064     case R_MN10300_NONE:
1065       return bfd_reloc_ok;
1066
1067     case R_MN10300_32:
1068       if (info->shared
1069           /* Do not generate relocs when an R_MN10300_32 has been used
1070              with an R_MN10300_SYM_DIFF to compute a difference of two
1071              symbols.  */
1072           && is_sym_diff_reloc == FALSE
1073           /* Also, do not generate a reloc when the symbol associated
1074              with the R_MN10300_32 reloc is absolute - there is no
1075              need for a run time computation in this case.  */
1076           && sym_sec != bfd_abs_section_ptr
1077           /* If the section is not going to be allocated at load time
1078              then there is no need to generate relocs for it.  */
1079           && (input_section->flags & SEC_ALLOC) != 0)
1080         {
1081           Elf_Internal_Rela outrel;
1082           bfd_boolean skip, relocate;
1083
1084           /* When generating a shared object, these relocations are
1085              copied into the output file to be resolved at run
1086              time.  */
1087           if (sreloc == NULL)
1088             {
1089               sreloc = _bfd_elf_get_dynamic_reloc_section
1090                 (input_bfd, input_section, /*rela?*/ TRUE);
1091               if (sreloc == NULL)
1092                 return FALSE;
1093             }
1094
1095           skip = FALSE;
1096
1097           outrel.r_offset = _bfd_elf_section_offset (input_bfd, info,
1098                                                      input_section, offset);
1099           if (outrel.r_offset == (bfd_vma) -1)
1100             skip = TRUE;
1101
1102           outrel.r_offset += (input_section->output_section->vma
1103                               + input_section->output_offset);
1104
1105           if (skip)
1106             {
1107               memset (&outrel, 0, sizeof outrel);
1108               relocate = FALSE;
1109             }
1110           else
1111             {
1112               /* h->dynindx may be -1 if this symbol was marked to
1113                  become local.  */
1114               if (h == NULL
1115                   || SYMBOL_REFERENCES_LOCAL (info, h))
1116                 {
1117                   relocate = TRUE;
1118                   outrel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
1119                   outrel.r_addend = value + addend;
1120                 }
1121               else
1122                 {
1123                   BFD_ASSERT (h->dynindx != -1);
1124                   relocate = FALSE;
1125                   outrel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_32);
1126                   outrel.r_addend = value + addend;
1127                 }
1128             }
1129
1130           bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1131                                      (bfd_byte *) (((Elf32_External_Rela *) sreloc->contents)
1132                                                    + sreloc->reloc_count));
1133           ++sreloc->reloc_count;
1134
1135           /* If this reloc is against an external symbol, we do
1136              not want to fiddle with the addend.  Otherwise, we
1137              need to include the symbol value so that it becomes
1138              an addend for the dynamic reloc.  */
1139           if (! relocate)
1140             return bfd_reloc_ok;
1141         }
1142       value += addend;
1143       bfd_put_32 (input_bfd, value, hit_data);
1144       return bfd_reloc_ok;
1145
1146     case R_MN10300_24:
1147       value += addend;
1148
1149       if ((long) value > 0x7fffff || (long) value < -0x800000)
1150         return bfd_reloc_overflow;
1151
1152       bfd_put_8 (input_bfd, value & 0xff, hit_data);
1153       bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1154       bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1155       return bfd_reloc_ok;
1156
1157     case R_MN10300_16:
1158       value += addend;
1159
1160       if ((long) value > 0x7fff || (long) value < -0x8000)
1161         return bfd_reloc_overflow;
1162
1163       bfd_put_16 (input_bfd, value, hit_data);
1164       return bfd_reloc_ok;
1165
1166     case R_MN10300_8:
1167       value += addend;
1168
1169       if ((long) value > 0x7f || (long) value < -0x80)
1170         return bfd_reloc_overflow;
1171
1172       bfd_put_8 (input_bfd, value, hit_data);
1173       return bfd_reloc_ok;
1174
1175     case R_MN10300_PCREL8:
1176       value -= (input_section->output_section->vma
1177                 + input_section->output_offset);
1178       value -= offset;
1179       value += addend;
1180
1181       if ((long) value > 0x7f || (long) value < -0x80)
1182         return bfd_reloc_overflow;
1183
1184       bfd_put_8 (input_bfd, value, hit_data);
1185       return bfd_reloc_ok;
1186
1187     case R_MN10300_PCREL16:
1188       value -= (input_section->output_section->vma
1189                 + input_section->output_offset);
1190       value -= offset;
1191       value += addend;
1192
1193       if ((long) value > 0x7fff || (long) value < -0x8000)
1194         return bfd_reloc_overflow;
1195
1196       bfd_put_16 (input_bfd, value, hit_data);
1197       return bfd_reloc_ok;
1198
1199     case R_MN10300_PCREL32:
1200       value -= (input_section->output_section->vma
1201                 + input_section->output_offset);
1202       value -= offset;
1203       value += addend;
1204
1205       bfd_put_32 (input_bfd, value, hit_data);
1206       return bfd_reloc_ok;
1207
1208     case R_MN10300_GNU_VTINHERIT:
1209     case R_MN10300_GNU_VTENTRY:
1210       return bfd_reloc_ok;
1211
1212     case R_MN10300_GOTPC32:
1213       /* Use global offset table as symbol value.  */
1214       value = bfd_get_section_by_name (dynobj,
1215                                        ".got")->output_section->vma;
1216       value -= (input_section->output_section->vma
1217                 + input_section->output_offset);
1218       value -= offset;
1219       value += addend;
1220
1221       bfd_put_32 (input_bfd, value, hit_data);
1222       return bfd_reloc_ok;
1223
1224     case R_MN10300_GOTPC16:
1225       /* Use global offset table as symbol value.  */
1226       value = bfd_get_section_by_name (dynobj,
1227                                        ".got")->output_section->vma;
1228       value -= (input_section->output_section->vma
1229                 + input_section->output_offset);
1230       value -= offset;
1231       value += addend;
1232
1233       if ((long) value > 0x7fff || (long) value < -0x8000)
1234         return bfd_reloc_overflow;
1235
1236       bfd_put_16 (input_bfd, value, hit_data);
1237       return bfd_reloc_ok;
1238
1239     case R_MN10300_GOTOFF32:
1240       value -= bfd_get_section_by_name (dynobj,
1241                                         ".got")->output_section->vma;
1242       value += addend;
1243
1244       bfd_put_32 (input_bfd, value, hit_data);
1245       return bfd_reloc_ok;
1246
1247     case R_MN10300_GOTOFF24:
1248       value -= bfd_get_section_by_name (dynobj,
1249                                         ".got")->output_section->vma;
1250       value += addend;
1251
1252       if ((long) value > 0x7fffff || (long) value < -0x800000)
1253         return bfd_reloc_overflow;
1254
1255       bfd_put_8 (input_bfd, value, hit_data);
1256       bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1257       bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1258       return bfd_reloc_ok;
1259
1260     case R_MN10300_GOTOFF16:
1261       value -= bfd_get_section_by_name (dynobj,
1262                                         ".got")->output_section->vma;
1263       value += addend;
1264
1265       if ((long) value > 0x7fff || (long) value < -0x8000)
1266         return bfd_reloc_overflow;
1267
1268       bfd_put_16 (input_bfd, value, hit_data);
1269       return bfd_reloc_ok;
1270
1271     case R_MN10300_PLT32:
1272       if (h != NULL
1273           && ELF_ST_VISIBILITY (h->other) != STV_INTERNAL
1274           && ELF_ST_VISIBILITY (h->other) != STV_HIDDEN
1275           && h->plt.offset != (bfd_vma) -1)
1276         {
1277           asection * splt;
1278
1279           splt = bfd_get_section_by_name (dynobj, ".plt");
1280
1281           value = (splt->output_section->vma
1282                    + splt->output_offset
1283                    + h->plt.offset) - value;
1284         }
1285
1286       value -= (input_section->output_section->vma
1287                 + input_section->output_offset);
1288       value -= offset;
1289       value += addend;
1290
1291       bfd_put_32 (input_bfd, value, hit_data);
1292       return bfd_reloc_ok;
1293
1294     case R_MN10300_PLT16:
1295       if (h != NULL
1296           && ELF_ST_VISIBILITY (h->other) != STV_INTERNAL
1297           && ELF_ST_VISIBILITY (h->other) != STV_HIDDEN
1298           && h->plt.offset != (bfd_vma) -1)
1299         {
1300           asection * splt;
1301
1302           splt = bfd_get_section_by_name (dynobj, ".plt");
1303
1304           value = (splt->output_section->vma
1305                    + splt->output_offset
1306                    + h->plt.offset) - value;
1307         }
1308
1309       value -= (input_section->output_section->vma
1310                 + input_section->output_offset);
1311       value -= offset;
1312       value += addend;
1313
1314       if ((long) value > 0x7fff || (long) value < -0x8000)
1315         return bfd_reloc_overflow;
1316
1317       bfd_put_16 (input_bfd, value, hit_data);
1318       return bfd_reloc_ok;
1319
1320     case R_MN10300_GOT32:
1321     case R_MN10300_GOT24:
1322     case R_MN10300_GOT16:
1323       {
1324         asection * sgot;
1325
1326         sgot = bfd_get_section_by_name (dynobj, ".got");
1327
1328           if (h != NULL)
1329             {
1330               bfd_vma off;
1331
1332               off = h->got.offset;
1333               BFD_ASSERT (off != (bfd_vma) -1);
1334
1335               if (! elf_hash_table (info)->dynamic_sections_created
1336                   || SYMBOL_REFERENCES_LOCAL (info, h))
1337                 /* This is actually a static link, or it is a
1338                    -Bsymbolic link and the symbol is defined
1339                    locally, or the symbol was forced to be local
1340                    because of a version file.  We must initialize
1341                    this entry in the global offset table.
1342
1343                    When doing a dynamic link, we create a .rela.got
1344                    relocation entry to initialize the value.  This
1345                    is done in the finish_dynamic_symbol routine.  */
1346                 bfd_put_32 (output_bfd, value,
1347                             sgot->contents + off);
1348
1349               value = sgot->output_offset + off;
1350             }
1351           else
1352             {
1353               bfd_vma off;
1354
1355               off = elf_local_got_offsets (input_bfd)[symndx];
1356
1357               bfd_put_32 (output_bfd, value, sgot->contents + off);
1358
1359               if (info->shared)
1360                 {
1361                   asection * srelgot;
1362                   Elf_Internal_Rela outrel;
1363
1364                   srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1365                   BFD_ASSERT (srelgot != NULL);
1366
1367                   outrel.r_offset = (sgot->output_section->vma
1368                                      + sgot->output_offset
1369                                      + off);
1370                   outrel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
1371                   outrel.r_addend = value;
1372                   bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1373                                              (bfd_byte *) (((Elf32_External_Rela *)
1374                                                             srelgot->contents)
1375                                                            + srelgot->reloc_count));
1376                   ++ srelgot->reloc_count;
1377                 }
1378
1379               value = sgot->output_offset + off;
1380             }
1381       }
1382
1383       value += addend;
1384
1385       if (r_type == R_MN10300_GOT32)
1386         {
1387           bfd_put_32 (input_bfd, value, hit_data);
1388           return bfd_reloc_ok;
1389         }
1390       else if (r_type == R_MN10300_GOT24)
1391         {
1392           if ((long) value > 0x7fffff || (long) value < -0x800000)
1393             return bfd_reloc_overflow;
1394
1395           bfd_put_8 (input_bfd, value & 0xff, hit_data);
1396           bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1397           bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1398           return bfd_reloc_ok;
1399         }
1400       else if (r_type == R_MN10300_GOT16)
1401         {
1402           if ((long) value > 0x7fff || (long) value < -0x8000)
1403             return bfd_reloc_overflow;
1404
1405           bfd_put_16 (input_bfd, value, hit_data);
1406           return bfd_reloc_ok;
1407         }
1408       /* Fall through.  */
1409
1410     default:
1411       return bfd_reloc_notsupported;
1412     }
1413 }
1414 \f
1415 /* Relocate an MN10300 ELF section.  */
1416
1417 static bfd_boolean
1418 mn10300_elf_relocate_section (bfd *output_bfd,
1419                               struct bfd_link_info *info,
1420                               bfd *input_bfd,
1421                               asection *input_section,
1422                               bfd_byte *contents,
1423                               Elf_Internal_Rela *relocs,
1424                               Elf_Internal_Sym *local_syms,
1425                               asection **local_sections)
1426 {
1427   Elf_Internal_Shdr *symtab_hdr;
1428   struct elf_link_hash_entry **sym_hashes;
1429   Elf_Internal_Rela *rel, *relend;
1430
1431   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1432   sym_hashes = elf_sym_hashes (input_bfd);
1433
1434   rel = relocs;
1435   relend = relocs + input_section->reloc_count;
1436   for (; rel < relend; rel++)
1437     {
1438       int r_type;
1439       reloc_howto_type *howto;
1440       unsigned long r_symndx;
1441       Elf_Internal_Sym *sym;
1442       asection *sec;
1443       struct elf32_mn10300_link_hash_entry *h;
1444       bfd_vma relocation;
1445       bfd_reloc_status_type r;
1446
1447       r_symndx = ELF32_R_SYM (rel->r_info);
1448       r_type = ELF32_R_TYPE (rel->r_info);
1449       howto = elf_mn10300_howto_table + r_type;
1450
1451       /* Just skip the vtable gc relocs.  */
1452       if (r_type == R_MN10300_GNU_VTINHERIT
1453           || r_type == R_MN10300_GNU_VTENTRY)
1454         continue;
1455
1456       h = NULL;
1457       sym = NULL;
1458       sec = NULL;
1459       if (r_symndx < symtab_hdr->sh_info)
1460         {
1461           sym = local_syms + r_symndx;
1462           sec = local_sections[r_symndx];
1463           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1464         }
1465       else
1466         {
1467           bfd_boolean unresolved_reloc;
1468           bfd_boolean warned;
1469           struct elf_link_hash_entry *hh;
1470
1471           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1472                                    r_symndx, symtab_hdr, sym_hashes,
1473                                    hh, sec, relocation,
1474                                    unresolved_reloc, warned);
1475
1476           h = (struct elf32_mn10300_link_hash_entry *) hh;
1477
1478           if ((h->root.root.type == bfd_link_hash_defined
1479               || h->root.root.type == bfd_link_hash_defweak)
1480               && (   r_type == R_MN10300_GOTPC32
1481                   || r_type == R_MN10300_GOTPC16
1482                   || ((   r_type == R_MN10300_PLT32
1483                        || r_type == R_MN10300_PLT16)
1484                       && ELF_ST_VISIBILITY (h->root.other) != STV_INTERNAL
1485                       && ELF_ST_VISIBILITY (h->root.other) != STV_HIDDEN
1486                       && h->root.plt.offset != (bfd_vma) -1)
1487                   || ((   r_type == R_MN10300_GOT32
1488                        || r_type == R_MN10300_GOT24
1489                        || r_type == R_MN10300_GOT16)
1490                       && elf_hash_table (info)->dynamic_sections_created
1491                       && !SYMBOL_REFERENCES_LOCAL (info, hh))
1492                   || (r_type == R_MN10300_32
1493                       /* _32 relocs in executables force _COPY relocs,
1494                          such that the address of the symbol ends up
1495                          being local.  */
1496                       && !info->executable
1497                       && !SYMBOL_REFERENCES_LOCAL (info, hh)
1498                       && ((input_section->flags & SEC_ALLOC) != 0
1499                           /* DWARF will emit R_MN10300_32 relocations
1500                              in its sections against symbols defined
1501                              externally in shared libraries.  We can't
1502                              do anything with them here.  */
1503                           || ((input_section->flags & SEC_DEBUGGING) != 0
1504                               && h->root.def_dynamic)))))
1505             /* In these cases, we don't need the relocation
1506                value.  We check specially because in some
1507                obscure cases sec->output_section will be NULL.  */
1508             relocation = 0;
1509
1510           else if (!info->relocatable && unresolved_reloc)
1511             (*_bfd_error_handler)
1512               (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
1513                input_bfd,
1514                input_section,
1515                (long) rel->r_offset,
1516                howto->name,
1517                h->root.root.root.string);
1518         }
1519
1520       if (sec != NULL && elf_discarded_section (sec))
1521         {
1522           /* For relocs against symbols from removed linkonce sections,
1523              or sections discarded by a linker script, we just want the
1524              section contents zeroed.  Avoid any special processing.  */
1525           _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
1526           rel->r_info = 0;
1527           rel->r_addend = 0;
1528           continue;
1529         }
1530
1531       if (info->relocatable)
1532         continue;
1533
1534       r = mn10300_elf_final_link_relocate (howto, input_bfd, output_bfd,
1535                                            input_section,
1536                                            contents, rel->r_offset,
1537                                            relocation, rel->r_addend,
1538                                            (struct elf_link_hash_entry *) h,
1539                                            r_symndx,
1540                                            info, sec, h == NULL);
1541
1542       if (r != bfd_reloc_ok)
1543         {
1544           const char *name;
1545           const char *msg = NULL;
1546
1547           if (h != NULL)
1548             name = h->root.root.root.string;
1549           else
1550             {
1551               name = (bfd_elf_string_from_elf_section
1552                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1553               if (name == NULL || *name == '\0')
1554                 name = bfd_section_name (input_bfd, sec);
1555             }
1556
1557           switch (r)
1558             {
1559             case bfd_reloc_overflow:
1560               if (! ((*info->callbacks->reloc_overflow)
1561                      (info, (h ? &h->root.root : NULL), name,
1562                       howto->name, (bfd_vma) 0, input_bfd,
1563                       input_section, rel->r_offset)))
1564                 return FALSE;
1565               break;
1566
1567             case bfd_reloc_undefined:
1568               if (! ((*info->callbacks->undefined_symbol)
1569                      (info, name, input_bfd, input_section,
1570                       rel->r_offset, TRUE)))
1571                 return FALSE;
1572               break;
1573
1574             case bfd_reloc_outofrange:
1575               msg = _("internal error: out of range error");
1576               goto common_error;
1577
1578             case bfd_reloc_notsupported:
1579               msg = _("internal error: unsupported relocation error");
1580               goto common_error;
1581
1582             case bfd_reloc_dangerous:
1583               if (r_type == R_MN10300_PCREL32)
1584                 msg = _("error: inappropriate relocation type for shared"
1585                         " library (did you forget -fpic?)");
1586               else
1587                 msg = _("internal error: suspicious relocation type used"
1588                         " in shared library");
1589               goto common_error;
1590
1591             default:
1592               msg = _("internal error: unknown error");
1593               /* Fall through.  */
1594
1595             common_error:
1596               if (!((*info->callbacks->warning)
1597                     (info, msg, name, input_bfd, input_section,
1598                      rel->r_offset)))
1599                 return FALSE;
1600               break;
1601             }
1602         }
1603     }
1604
1605   return TRUE;
1606 }
1607
1608 /* Finish initializing one hash table entry.  */
1609
1610 static bfd_boolean
1611 elf32_mn10300_finish_hash_table_entry (struct bfd_hash_entry *gen_entry,
1612                                        void * in_args)
1613 {
1614   struct elf32_mn10300_link_hash_entry *entry;
1615   struct bfd_link_info *link_info = (struct bfd_link_info *) in_args;
1616   unsigned int byte_count = 0;
1617
1618   entry = (struct elf32_mn10300_link_hash_entry *) gen_entry;
1619
1620   if (entry->root.root.type == bfd_link_hash_warning)
1621     entry = (struct elf32_mn10300_link_hash_entry *) entry->root.root.u.i.link;
1622
1623   /* If we already know we want to convert "call" to "calls" for calls
1624      to this symbol, then return now.  */
1625   if (entry->flags == MN10300_CONVERT_CALL_TO_CALLS)
1626     return TRUE;
1627
1628   /* If there are no named calls to this symbol, or there's nothing we
1629      can move from the function itself into the "call" instruction,
1630      then note that all "call" instructions should be converted into
1631      "calls" instructions and return.  If a symbol is available for
1632      dynamic symbol resolution (overridable or overriding), avoid
1633      custom calling conventions.  */
1634   if (entry->direct_calls == 0
1635       || (entry->stack_size == 0 && entry->movm_args == 0)
1636       || (elf_hash_table (link_info)->dynamic_sections_created
1637           && ELF_ST_VISIBILITY (entry->root.other) != STV_INTERNAL
1638           && ELF_ST_VISIBILITY (entry->root.other) != STV_HIDDEN))
1639     {
1640       /* Make a note that we should convert "call" instructions to "calls"
1641          instructions for calls to this symbol.  */
1642       entry->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1643       return TRUE;
1644     }
1645
1646   /* We may be able to move some instructions from the function itself into
1647      the "call" instruction.  Count how many bytes we might be able to
1648      eliminate in the function itself.  */
1649
1650   /* A movm instruction is two bytes.  */
1651   if (entry->movm_args)
1652     byte_count += 2;
1653
1654   /* Count the insn to allocate stack space too.  */
1655   if (entry->stack_size > 0)
1656     {
1657       if (entry->stack_size <= 128)
1658         byte_count += 3;
1659       else
1660         byte_count += 4;
1661     }
1662
1663   /* If using "call" will result in larger code, then turn all
1664      the associated "call" instructions into "calls" instructions.  */
1665   if (byte_count < entry->direct_calls)
1666     entry->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1667
1668   /* This routine never fails.  */
1669   return TRUE;
1670 }
1671
1672 /* Used to count hash table entries.  */
1673
1674 static bfd_boolean
1675 elf32_mn10300_count_hash_table_entries (struct bfd_hash_entry *gen_entry ATTRIBUTE_UNUSED,
1676                                         void * in_args)
1677 {
1678   int *count = (int *) in_args;
1679
1680   (*count) ++;
1681   return TRUE;
1682 }
1683
1684 /* Used to enumerate hash table entries into a linear array.  */
1685
1686 static bfd_boolean
1687 elf32_mn10300_list_hash_table_entries (struct bfd_hash_entry *gen_entry,
1688                                        void * in_args)
1689 {
1690   struct bfd_hash_entry ***ptr = (struct bfd_hash_entry ***) in_args;
1691
1692   **ptr = gen_entry;
1693   (*ptr) ++;
1694   return TRUE;
1695 }
1696
1697 /* Used to sort the array created by the above.  */
1698
1699 static int
1700 sort_by_value (const void *va, const void *vb)
1701 {
1702   struct elf32_mn10300_link_hash_entry *a
1703     = *(struct elf32_mn10300_link_hash_entry **) va;
1704   struct elf32_mn10300_link_hash_entry *b
1705     = *(struct elf32_mn10300_link_hash_entry **) vb;
1706
1707   return a->value - b->value;
1708 }
1709
1710 /* Compute the stack size and movm arguments for the function
1711    referred to by HASH at address ADDR in section with
1712    contents CONTENTS, store the information in the hash table.  */
1713
1714 static void
1715 compute_function_info (bfd *abfd,
1716                        struct elf32_mn10300_link_hash_entry *hash,
1717                        bfd_vma addr,
1718                        unsigned char *contents)
1719 {
1720   unsigned char byte1, byte2;
1721   /* We only care about a very small subset of the possible prologue
1722      sequences here.  Basically we look for:
1723
1724      movm [d2,d3,a2,a3],sp (optional)
1725      add <size>,sp (optional, and only for sizes which fit in an unsigned
1726                     8 bit number)
1727
1728      If we find anything else, we quit.  */
1729
1730   /* Look for movm [regs],sp.  */
1731   byte1 = bfd_get_8 (abfd, contents + addr);
1732   byte2 = bfd_get_8 (abfd, contents + addr + 1);
1733
1734   if (byte1 == 0xcf)
1735     {
1736       hash->movm_args = byte2;
1737       addr += 2;
1738       byte1 = bfd_get_8 (abfd, contents + addr);
1739       byte2 = bfd_get_8 (abfd, contents + addr + 1);
1740     }
1741
1742   /* Now figure out how much stack space will be allocated by the movm
1743      instruction.  We need this kept separate from the function's normal
1744      stack space.  */
1745   if (hash->movm_args)
1746     {
1747       /* Space for d2.  */
1748       if (hash->movm_args & 0x80)
1749         hash->movm_stack_size += 4;
1750
1751       /* Space for d3.  */
1752       if (hash->movm_args & 0x40)
1753         hash->movm_stack_size += 4;
1754
1755       /* Space for a2.  */
1756       if (hash->movm_args & 0x20)
1757         hash->movm_stack_size += 4;
1758
1759       /* Space for a3.  */
1760       if (hash->movm_args & 0x10)
1761         hash->movm_stack_size += 4;
1762
1763       /* "other" space.  d0, d1, a0, a1, mdr, lir, lar, 4 byte pad.  */
1764       if (hash->movm_args & 0x08)
1765         hash->movm_stack_size += 8 * 4;
1766
1767       if (bfd_get_mach (abfd) == bfd_mach_am33
1768           || bfd_get_mach (abfd) == bfd_mach_am33_2)
1769         {
1770           /* "exother" space.  e0, e1, mdrq, mcrh, mcrl, mcvf */
1771           if (hash->movm_args & 0x1)
1772             hash->movm_stack_size += 6 * 4;
1773
1774           /* exreg1 space.  e4, e5, e6, e7 */
1775           if (hash->movm_args & 0x2)
1776             hash->movm_stack_size += 4 * 4;
1777
1778           /* exreg0 space.  e2, e3  */
1779           if (hash->movm_args & 0x4)
1780             hash->movm_stack_size += 2 * 4;
1781         }
1782     }
1783
1784   /* Now look for the two stack adjustment variants.  */
1785   if (byte1 == 0xf8 && byte2 == 0xfe)
1786     {
1787       int temp = bfd_get_8 (abfd, contents + addr + 2);
1788       temp = ((temp & 0xff) ^ (~0x7f)) + 0x80;
1789
1790       hash->stack_size = -temp;
1791     }
1792   else if (byte1 == 0xfa && byte2 == 0xfe)
1793     {
1794       int temp = bfd_get_16 (abfd, contents + addr + 2);
1795       temp = ((temp & 0xffff) ^ (~0x7fff)) + 0x8000;
1796       temp = -temp;
1797
1798       if (temp < 255)
1799         hash->stack_size = temp;
1800     }
1801
1802   /* If the total stack to be allocated by the call instruction is more
1803      than 255 bytes, then we can't remove the stack adjustment by using
1804      "call" (we might still be able to remove the "movm" instruction.  */
1805   if (hash->stack_size + hash->movm_stack_size > 255)
1806     hash->stack_size = 0;
1807 }
1808
1809 /* Delete some bytes from a section while relaxing.  */
1810
1811 static bfd_boolean
1812 mn10300_elf_relax_delete_bytes (bfd *abfd,
1813                                 asection *sec,
1814                                 bfd_vma addr,
1815                                 int count)
1816 {
1817   Elf_Internal_Shdr *symtab_hdr;
1818   unsigned int sec_shndx;
1819   bfd_byte *contents;
1820   Elf_Internal_Rela *irel, *irelend;
1821   Elf_Internal_Rela *irelalign;
1822   bfd_vma toaddr;
1823   Elf_Internal_Sym *isym, *isymend;
1824   struct elf_link_hash_entry **sym_hashes;
1825   struct elf_link_hash_entry **end_hashes;
1826   unsigned int symcount;
1827
1828   sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1829
1830   contents = elf_section_data (sec)->this_hdr.contents;
1831
1832   irelalign = NULL;
1833   toaddr = sec->size;
1834
1835   irel = elf_section_data (sec)->relocs;
1836   irelend = irel + sec->reloc_count;
1837
1838   if (sec->reloc_count > 0)
1839     {
1840       /* If there is an align reloc at the end of the section ignore it.
1841          GAS creates these relocs for reasons of its own, and they just
1842          serve to keep the section artifically inflated.  */
1843       if (ELF32_R_TYPE ((irelend - 1)->r_info) == (int) R_MN10300_ALIGN)
1844         --irelend;
1845       
1846       /* The deletion must stop at the next ALIGN reloc for an aligment
1847          power larger than, or not a multiple of, the number of bytes we
1848          are deleting.  */
1849       for (; irel < irelend; irel++)
1850         {
1851           int alignment = 1 << irel->r_addend;
1852
1853           if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_ALIGN
1854               && irel->r_offset > addr
1855               && irel->r_offset < toaddr
1856               && (count < alignment
1857                   || alignment % count != 0))
1858             {
1859               irelalign = irel;
1860               toaddr = irel->r_offset;
1861               break;
1862             }
1863         }
1864     }
1865
1866   /* Actually delete the bytes.  */
1867   memmove (contents + addr, contents + addr + count,
1868            (size_t) (toaddr - addr - count));
1869
1870   /* Adjust the section's size if we are shrinking it, or else
1871      pad the bytes between the end of the shrunken region and
1872      the start of the next region with NOP codes.  */
1873   if (irelalign == NULL)
1874     {
1875       sec->size -= count;
1876       /* Include symbols at the end of the section, but
1877          not at the end of a sub-region of the section.  */
1878       toaddr ++;
1879     }
1880   else
1881     {
1882       int i;
1883
1884 #define NOP_OPCODE 0xcb
1885
1886       for (i = 0; i < count; i ++)
1887         bfd_put_8 (abfd, (bfd_vma) NOP_OPCODE, contents + toaddr - count + i);
1888     }
1889
1890   /* Adjust all the relocs.  */
1891   for (irel = elf_section_data (sec)->relocs; irel < irelend; irel++)
1892     {
1893       /* Get the new reloc address.  */
1894       if ((irel->r_offset > addr
1895            && irel->r_offset < toaddr)
1896           || (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_ALIGN
1897               && irel->r_offset == toaddr))
1898         irel->r_offset -= count;
1899     }
1900
1901   /* Adjust the local symbols in the section, reducing their value
1902      by the number of bytes deleted.  Note - symbols within the deleted
1903      region are moved to the address of the start of the region, which
1904      actually means that they will address the byte beyond the end of
1905      the region once the deletion has been completed.  */
1906   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1907   isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1908   for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
1909     {
1910       if (isym->st_shndx == sec_shndx
1911           && isym->st_value > addr
1912           && isym->st_value < toaddr)
1913         {
1914           if (isym->st_value < addr + count)
1915             isym->st_value = addr;
1916           else
1917             isym->st_value -= count;
1918         }
1919       /* Adjust the function symbol's size as well.  */
1920       else if (isym->st_shndx == sec_shndx
1921                && ELF_ST_TYPE (isym->st_info) == STT_FUNC
1922                && isym->st_value + isym->st_size > addr
1923                && isym->st_value + isym->st_size < toaddr)
1924         isym->st_size -= count;
1925     }
1926
1927   /* Now adjust the global symbols defined in this section.  */
1928   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1929               - symtab_hdr->sh_info);
1930   sym_hashes = elf_sym_hashes (abfd);
1931   end_hashes = sym_hashes + symcount;
1932   for (; sym_hashes < end_hashes; sym_hashes++)
1933     {
1934       struct elf_link_hash_entry *sym_hash = *sym_hashes;
1935
1936       if ((sym_hash->root.type == bfd_link_hash_defined
1937            || sym_hash->root.type == bfd_link_hash_defweak)
1938           && sym_hash->root.u.def.section == sec
1939           && sym_hash->root.u.def.value > addr
1940           && sym_hash->root.u.def.value < toaddr)
1941         {
1942           if (sym_hash->root.u.def.value < addr + count)
1943             sym_hash->root.u.def.value = addr;
1944           else
1945             sym_hash->root.u.def.value -= count;
1946         }
1947       /* Adjust the function symbol's size as well.  */
1948       else if (sym_hash->root.type == bfd_link_hash_defined
1949                && sym_hash->root.u.def.section == sec
1950                && sym_hash->type == STT_FUNC
1951                && sym_hash->root.u.def.value + sym_hash->size > addr
1952                && sym_hash->root.u.def.value + sym_hash->size < toaddr)
1953         sym_hash->size -= count;
1954     }
1955
1956   /* See if we can move the ALIGN reloc forward.
1957      We have adjusted r_offset for it already.  */
1958   if (irelalign != NULL)
1959     {
1960       bfd_vma alignto, alignaddr;
1961
1962       if ((int) irelalign->r_addend > 0)
1963         {
1964           /* This is the old address.  */
1965           alignto = BFD_ALIGN (toaddr, 1 << irelalign->r_addend);
1966           /* This is where the align points to now.  */
1967           alignaddr = BFD_ALIGN (irelalign->r_offset,
1968                                  1 << irelalign->r_addend);
1969           if (alignaddr < alignto)
1970             /* Tail recursion.  */
1971             return mn10300_elf_relax_delete_bytes (abfd, sec, alignaddr,
1972                                                    (int) (alignto - alignaddr));
1973         }
1974     }
1975
1976   return TRUE;
1977 }
1978
1979 /* Return TRUE if a symbol exists at the given address, else return
1980    FALSE.  */
1981
1982 static bfd_boolean
1983 mn10300_elf_symbol_address_p (bfd *abfd,
1984                               asection *sec,
1985                               Elf_Internal_Sym *isym,
1986                               bfd_vma addr)
1987 {
1988   Elf_Internal_Shdr *symtab_hdr;
1989   unsigned int sec_shndx;
1990   Elf_Internal_Sym *isymend;
1991   struct elf_link_hash_entry **sym_hashes;
1992   struct elf_link_hash_entry **end_hashes;
1993   unsigned int symcount;
1994
1995   sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1996
1997   /* Examine all the symbols.  */
1998   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1999   for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
2000     if (isym->st_shndx == sec_shndx
2001         && isym->st_value == addr)
2002       return TRUE;
2003
2004   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2005               - symtab_hdr->sh_info);
2006   sym_hashes = elf_sym_hashes (abfd);
2007   end_hashes = sym_hashes + symcount;
2008   for (; sym_hashes < end_hashes; sym_hashes++)
2009     {
2010       struct elf_link_hash_entry *sym_hash = *sym_hashes;
2011
2012       if ((sym_hash->root.type == bfd_link_hash_defined
2013            || sym_hash->root.type == bfd_link_hash_defweak)
2014           && sym_hash->root.u.def.section == sec
2015           && sym_hash->root.u.def.value == addr)
2016         return TRUE;
2017     }
2018
2019   return FALSE;
2020 }
2021
2022 /* This function handles relaxing for the mn10300.
2023
2024    There are quite a few relaxing opportunities available on the mn10300:
2025
2026         * calls:32 -> calls:16                                     2 bytes
2027         * call:32  -> call:16                                      2 bytes
2028
2029         * call:32 -> calls:32                                      1 byte
2030         * call:16 -> calls:16                                      1 byte
2031                 * These are done anytime using "calls" would result
2032                 in smaller code, or when necessary to preserve the
2033                 meaning of the program.
2034
2035         * call:32                                                  varies
2036         * call:16
2037                 * In some circumstances we can move instructions
2038                 from a function prologue into a "call" instruction.
2039                 This is only done if the resulting code is no larger
2040                 than the original code.
2041
2042         * jmp:32 -> jmp:16                                         2 bytes
2043         * jmp:16 -> bra:8                                          1 byte
2044
2045                 * If the previous instruction is a conditional branch
2046                 around the jump/bra, we may be able to reverse its condition
2047                 and change its target to the jump's target.  The jump/bra
2048                 can then be deleted.                               2 bytes
2049
2050         * mov abs32 -> mov abs16                                   1 or 2 bytes
2051
2052         * Most instructions which accept imm32 can relax to imm16  1 or 2 bytes
2053         - Most instructions which accept imm16 can relax to imm8   1 or 2 bytes
2054
2055         * Most instructions which accept d32 can relax to d16      1 or 2 bytes
2056         - Most instructions which accept d16 can relax to d8       1 or 2 bytes
2057
2058         We don't handle imm16->imm8 or d16->d8 as they're very rare
2059         and somewhat more difficult to support.  */
2060
2061 static bfd_boolean
2062 mn10300_elf_relax_section (bfd *abfd,
2063                            asection *sec,
2064                            struct bfd_link_info *link_info,
2065                            bfd_boolean *again)
2066 {
2067   Elf_Internal_Shdr *symtab_hdr;
2068   Elf_Internal_Rela *internal_relocs = NULL;
2069   Elf_Internal_Rela *irel, *irelend;
2070   bfd_byte *contents = NULL;
2071   Elf_Internal_Sym *isymbuf = NULL;
2072   struct elf32_mn10300_link_hash_table *hash_table;
2073   asection *section = sec;
2074   bfd_vma align_gap_adjustment;
2075
2076   if (link_info->relocatable)
2077     (*link_info->callbacks->einfo)
2078       (_("%P%F: --relax and -r may not be used together\n"));
2079
2080   /* Assume nothing changes.  */
2081   *again = FALSE;
2082
2083   /* We need a pointer to the mn10300 specific hash table.  */
2084   hash_table = elf32_mn10300_hash_table (link_info);
2085
2086   /* Initialize fields in each hash table entry the first time through.  */
2087   if ((hash_table->flags & MN10300_HASH_ENTRIES_INITIALIZED) == 0)
2088     {
2089       bfd *input_bfd;
2090
2091       /* Iterate over all the input bfds.  */
2092       for (input_bfd = link_info->input_bfds;
2093            input_bfd != NULL;
2094            input_bfd = input_bfd->link_next)
2095         {
2096           /* We're going to need all the symbols for each bfd.  */
2097           symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2098           if (symtab_hdr->sh_info != 0)
2099             {
2100               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2101               if (isymbuf == NULL)
2102                 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
2103                                                 symtab_hdr->sh_info, 0,
2104                                                 NULL, NULL, NULL);
2105               if (isymbuf == NULL)
2106                 goto error_return;
2107             }
2108
2109           /* Iterate over each section in this bfd.  */
2110           for (section = input_bfd->sections;
2111                section != NULL;
2112                section = section->next)
2113             {
2114               struct elf32_mn10300_link_hash_entry *hash;
2115               Elf_Internal_Sym *sym;
2116               asection *sym_sec = NULL;
2117               const char *sym_name;
2118               char *new_name;
2119
2120               /* If there's nothing to do in this section, skip it.  */
2121               if (! ((section->flags & SEC_RELOC) != 0
2122                      && section->reloc_count != 0))
2123                 continue;
2124               if ((section->flags & SEC_ALLOC) == 0)
2125                 continue;
2126
2127               /* Get cached copy of section contents if it exists.  */
2128               if (elf_section_data (section)->this_hdr.contents != NULL)
2129                 contents = elf_section_data (section)->this_hdr.contents;
2130               else if (section->size != 0)
2131                 {
2132                   /* Go get them off disk.  */
2133                   if (!bfd_malloc_and_get_section (input_bfd, section,
2134                                                    &contents))
2135                     goto error_return;
2136                 }
2137               else
2138                 contents = NULL;
2139
2140               /* If there aren't any relocs, then there's nothing to do.  */
2141               if ((section->flags & SEC_RELOC) != 0
2142                   && section->reloc_count != 0)
2143                 {
2144                   /* Get a copy of the native relocations.  */
2145                   internal_relocs = _bfd_elf_link_read_relocs (input_bfd, section,
2146                                                                NULL, NULL,
2147                                                                link_info->keep_memory);
2148                   if (internal_relocs == NULL)
2149                     goto error_return;
2150
2151                   /* Now examine each relocation.  */
2152                   irel = internal_relocs;
2153                   irelend = irel + section->reloc_count;
2154                   for (; irel < irelend; irel++)
2155                     {
2156                       long r_type;
2157                       unsigned long r_index;
2158                       unsigned char code;
2159
2160                       r_type = ELF32_R_TYPE (irel->r_info);
2161                       r_index = ELF32_R_SYM (irel->r_info);
2162
2163                       if (r_type < 0 || r_type >= (int) R_MN10300_MAX)
2164                         goto error_return;
2165
2166                       /* We need the name and hash table entry of the target
2167                          symbol!  */
2168                       hash = NULL;
2169                       sym = NULL;
2170                       sym_sec = NULL;
2171
2172                       if (r_index < symtab_hdr->sh_info)
2173                         {
2174                           /* A local symbol.  */
2175                           Elf_Internal_Sym *isym;
2176                           struct elf_link_hash_table *elftab;
2177                           bfd_size_type amt;
2178
2179                           isym = isymbuf + r_index;
2180                           if (isym->st_shndx == SHN_UNDEF)
2181                             sym_sec = bfd_und_section_ptr;
2182                           else if (isym->st_shndx == SHN_ABS)
2183                             sym_sec = bfd_abs_section_ptr;
2184                           else if (isym->st_shndx == SHN_COMMON)
2185                             sym_sec = bfd_com_section_ptr;
2186                           else
2187                             sym_sec
2188                               = bfd_section_from_elf_index (input_bfd,
2189                                                             isym->st_shndx);
2190
2191                           sym_name
2192                             = bfd_elf_string_from_elf_section (input_bfd,
2193                                                                (symtab_hdr
2194                                                                 ->sh_link),
2195                                                                isym->st_name);
2196
2197                           /* If it isn't a function, then we don't care
2198                              about it.  */
2199                           if (ELF_ST_TYPE (isym->st_info) != STT_FUNC)
2200                             continue;
2201
2202                           /* Tack on an ID so we can uniquely identify this
2203                              local symbol in the global hash table.  */
2204                           amt = strlen (sym_name) + 10;
2205                           new_name = bfd_malloc (amt);
2206                           if (new_name == NULL)
2207                             goto error_return;
2208
2209                           sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2210                           sym_name = new_name;
2211
2212                           elftab = &hash_table->static_hash_table->root;
2213                           hash = ((struct elf32_mn10300_link_hash_entry *)
2214                                   elf_link_hash_lookup (elftab, sym_name,
2215                                                         TRUE, TRUE, FALSE));
2216                           free (new_name);
2217                         }
2218                       else
2219                         {
2220                           r_index -= symtab_hdr->sh_info;
2221                           hash = (struct elf32_mn10300_link_hash_entry *)
2222                                    elf_sym_hashes (input_bfd)[r_index];
2223                         }
2224
2225                       sym_name = hash->root.root.root.string;
2226                       if ((section->flags & SEC_CODE) != 0)
2227                         {
2228                           /* If this is not a "call" instruction, then we
2229                              should convert "call" instructions to "calls"
2230                              instructions.  */
2231                           code = bfd_get_8 (input_bfd,
2232                                             contents + irel->r_offset - 1);
2233                           if (code != 0xdd && code != 0xcd)
2234                             hash->flags |= MN10300_CONVERT_CALL_TO_CALLS;
2235                         }
2236
2237                       /* If this is a jump/call, then bump the
2238                          direct_calls counter.  Else force "call" to
2239                          "calls" conversions.  */
2240                       if (r_type == R_MN10300_PCREL32
2241                           || r_type == R_MN10300_PLT32
2242                           || r_type == R_MN10300_PLT16
2243                           || r_type == R_MN10300_PCREL16)
2244                         hash->direct_calls++;
2245                       else
2246                         hash->flags |= MN10300_CONVERT_CALL_TO_CALLS;
2247                     }
2248                 }
2249
2250               /* Now look at the actual contents to get the stack size,
2251                  and a list of what registers were saved in the prologue
2252                  (ie movm_args).  */
2253               if ((section->flags & SEC_CODE) != 0)
2254                 {
2255                   Elf_Internal_Sym *isym, *isymend;
2256                   unsigned int sec_shndx;
2257                   struct elf_link_hash_entry **hashes;
2258                   struct elf_link_hash_entry **end_hashes;
2259                   unsigned int symcount;
2260
2261                   sec_shndx = _bfd_elf_section_from_bfd_section (input_bfd,
2262                                                                  section);
2263
2264                   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2265                               - symtab_hdr->sh_info);
2266                   hashes = elf_sym_hashes (input_bfd);
2267                   end_hashes = hashes + symcount;
2268
2269                   /* Look at each function defined in this section and
2270                      update info for that function.  */
2271                   isymend = isymbuf + symtab_hdr->sh_info;
2272                   for (isym = isymbuf; isym < isymend; isym++)
2273                     {
2274                       if (isym->st_shndx == sec_shndx
2275                           && ELF_ST_TYPE (isym->st_info) == STT_FUNC)
2276                         {
2277                           struct elf_link_hash_table *elftab;
2278                           bfd_size_type amt;
2279                           struct elf_link_hash_entry **lhashes = hashes;
2280
2281                           /* Skip a local symbol if it aliases a
2282                              global one.  */
2283                           for (; lhashes < end_hashes; lhashes++)
2284                             {
2285                               hash = (struct elf32_mn10300_link_hash_entry *) *lhashes;
2286                               if ((hash->root.root.type == bfd_link_hash_defined
2287                                    || hash->root.root.type == bfd_link_hash_defweak)
2288                                   && hash->root.root.u.def.section == section
2289                                   && hash->root.type == STT_FUNC
2290                                   && hash->root.root.u.def.value == isym->st_value)
2291                                 break;
2292                             }
2293                           if (lhashes != end_hashes)
2294                             continue;
2295
2296                           if (isym->st_shndx == SHN_UNDEF)
2297                             sym_sec = bfd_und_section_ptr;
2298                           else if (isym->st_shndx == SHN_ABS)
2299                             sym_sec = bfd_abs_section_ptr;
2300                           else if (isym->st_shndx == SHN_COMMON)
2301                             sym_sec = bfd_com_section_ptr;
2302                           else
2303                             sym_sec
2304                               = bfd_section_from_elf_index (input_bfd,
2305                                                             isym->st_shndx);
2306
2307                           sym_name = (bfd_elf_string_from_elf_section
2308                                       (input_bfd, symtab_hdr->sh_link,
2309                                        isym->st_name));
2310
2311                           /* Tack on an ID so we can uniquely identify this
2312                              local symbol in the global hash table.  */
2313                           amt = strlen (sym_name) + 10;
2314                           new_name = bfd_malloc (amt);
2315                           if (new_name == NULL)
2316                             goto error_return;
2317
2318                           sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2319                           sym_name = new_name;
2320
2321                           elftab = &hash_table->static_hash_table->root;
2322                           hash = ((struct elf32_mn10300_link_hash_entry *)
2323                                   elf_link_hash_lookup (elftab, sym_name,
2324                                                         TRUE, TRUE, FALSE));
2325                           free (new_name);
2326                           compute_function_info (input_bfd, hash,
2327                                                  isym->st_value, contents);
2328                           hash->value = isym->st_value;
2329                         }
2330                     }
2331
2332                   for (; hashes < end_hashes; hashes++)
2333                     {
2334                       hash = (struct elf32_mn10300_link_hash_entry *) *hashes;
2335                       if ((hash->root.root.type == bfd_link_hash_defined
2336                            || hash->root.root.type == bfd_link_hash_defweak)
2337                           && hash->root.root.u.def.section == section
2338                           && hash->root.type == STT_FUNC)
2339                         compute_function_info (input_bfd, hash,
2340                                                (hash)->root.root.u.def.value,
2341                                                contents);
2342                     }
2343                 }
2344
2345               /* Cache or free any memory we allocated for the relocs.  */
2346               if (internal_relocs != NULL
2347                   && elf_section_data (section)->relocs != internal_relocs)
2348                 free (internal_relocs);
2349               internal_relocs = NULL;
2350
2351               /* Cache or free any memory we allocated for the contents.  */
2352               if (contents != NULL
2353                   && elf_section_data (section)->this_hdr.contents != contents)
2354                 {
2355                   if (! link_info->keep_memory)
2356                     free (contents);
2357                   else
2358                     {
2359                       /* Cache the section contents for elf_link_input_bfd.  */
2360                       elf_section_data (section)->this_hdr.contents = contents;
2361                     }
2362                 }
2363               contents = NULL;
2364             }
2365
2366           /* Cache or free any memory we allocated for the symbols.  */
2367           if (isymbuf != NULL
2368               && symtab_hdr->contents != (unsigned char *) isymbuf)
2369             {
2370               if (! link_info->keep_memory)
2371                 free (isymbuf);
2372               else
2373                 {
2374                   /* Cache the symbols for elf_link_input_bfd.  */
2375                   symtab_hdr->contents = (unsigned char *) isymbuf;
2376                 }
2377             }
2378           isymbuf = NULL;
2379         }
2380
2381       /* Now iterate on each symbol in the hash table and perform
2382          the final initialization steps on each.  */
2383       elf32_mn10300_link_hash_traverse (hash_table,
2384                                         elf32_mn10300_finish_hash_table_entry,
2385                                         link_info);
2386       elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
2387                                         elf32_mn10300_finish_hash_table_entry,
2388                                         link_info);
2389
2390       {
2391         /* This section of code collects all our local symbols, sorts
2392            them by value, and looks for multiple symbols referring to
2393            the same address.  For those symbols, the flags are merged.
2394            At this point, the only flag that can be set is
2395            MN10300_CONVERT_CALL_TO_CALLS, so we simply OR the flags
2396            together.  */
2397         int static_count = 0, i;
2398         struct elf32_mn10300_link_hash_entry **entries;
2399         struct elf32_mn10300_link_hash_entry **ptr;
2400
2401         elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
2402                                           elf32_mn10300_count_hash_table_entries,
2403                                           &static_count);
2404
2405         entries = bfd_malloc (static_count * sizeof (* ptr));
2406
2407         ptr = entries;
2408         elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
2409                                           elf32_mn10300_list_hash_table_entries,
2410                                           & ptr);
2411
2412         qsort (entries, static_count, sizeof (entries[0]), sort_by_value);
2413
2414         for (i = 0; i < static_count - 1; i++)
2415           if (entries[i]->value && entries[i]->value == entries[i+1]->value)
2416             {
2417               int v = entries[i]->flags;
2418               int j;
2419
2420               for (j = i + 1; j < static_count && entries[j]->value == entries[i]->value; j++)
2421                 v |= entries[j]->flags;
2422
2423               for (j = i; j < static_count && entries[j]->value == entries[i]->value; j++)
2424                 entries[j]->flags = v;
2425
2426               i = j - 1;
2427             }
2428       }
2429
2430       /* All entries in the hash table are fully initialized.  */
2431       hash_table->flags |= MN10300_HASH_ENTRIES_INITIALIZED;
2432
2433       /* Now that everything has been initialized, go through each
2434          code section and delete any prologue insns which will be
2435          redundant because their operations will be performed by
2436          a "call" instruction.  */
2437       for (input_bfd = link_info->input_bfds;
2438            input_bfd != NULL;
2439            input_bfd = input_bfd->link_next)
2440         {
2441           /* We're going to need all the local symbols for each bfd.  */
2442           symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2443           if (symtab_hdr->sh_info != 0)
2444             {
2445               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2446               if (isymbuf == NULL)
2447                 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
2448                                                 symtab_hdr->sh_info, 0,
2449                                                 NULL, NULL, NULL);
2450               if (isymbuf == NULL)
2451                 goto error_return;
2452             }
2453
2454           /* Walk over each section in this bfd.  */
2455           for (section = input_bfd->sections;
2456                section != NULL;
2457                section = section->next)
2458             {
2459               unsigned int sec_shndx;
2460               Elf_Internal_Sym *isym, *isymend;
2461               struct elf_link_hash_entry **hashes;
2462               struct elf_link_hash_entry **end_hashes;
2463               unsigned int symcount;
2464
2465               /* Skip non-code sections and empty sections.  */
2466               if ((section->flags & SEC_CODE) == 0 || section->size == 0)
2467                 continue;
2468
2469               if (section->reloc_count != 0)
2470                 {
2471                   /* Get a copy of the native relocations.  */
2472                   internal_relocs = _bfd_elf_link_read_relocs (input_bfd, section,
2473                                                                NULL, NULL,
2474                                                                link_info->keep_memory);
2475                   if (internal_relocs == NULL)
2476                     goto error_return;
2477                 }
2478
2479               /* Get cached copy of section contents if it exists.  */
2480               if (elf_section_data (section)->this_hdr.contents != NULL)
2481                 contents = elf_section_data (section)->this_hdr.contents;
2482               else
2483                 {
2484                   /* Go get them off disk.  */
2485                   if (!bfd_malloc_and_get_section (input_bfd, section,
2486                                                    &contents))
2487                     goto error_return;
2488                 }
2489
2490               sec_shndx = _bfd_elf_section_from_bfd_section (input_bfd,
2491                                                              section);
2492
2493               /* Now look for any function in this section which needs
2494                  insns deleted from its prologue.  */
2495               isymend = isymbuf + symtab_hdr->sh_info;
2496               for (isym = isymbuf; isym < isymend; isym++)
2497                 {
2498                   struct elf32_mn10300_link_hash_entry *sym_hash;
2499                   asection *sym_sec = NULL;
2500                   const char *sym_name;
2501                   char *new_name;
2502                   struct elf_link_hash_table *elftab;
2503                   bfd_size_type amt;
2504
2505                   if (isym->st_shndx != sec_shndx)
2506                     continue;
2507
2508                   if (isym->st_shndx == SHN_UNDEF)
2509                     sym_sec = bfd_und_section_ptr;
2510                   else if (isym->st_shndx == SHN_ABS)
2511                     sym_sec = bfd_abs_section_ptr;
2512                   else if (isym->st_shndx == SHN_COMMON)
2513                     sym_sec = bfd_com_section_ptr;
2514                   else
2515                     sym_sec
2516                       = bfd_section_from_elf_index (input_bfd, isym->st_shndx);
2517
2518                   sym_name
2519                     = bfd_elf_string_from_elf_section (input_bfd,
2520                                                        symtab_hdr->sh_link,
2521                                                        isym->st_name);
2522
2523                   /* Tack on an ID so we can uniquely identify this
2524                      local symbol in the global hash table.  */
2525                   amt = strlen (sym_name) + 10;
2526                   new_name = bfd_malloc (amt);
2527                   if (new_name == NULL)
2528                     goto error_return;
2529                   sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2530                   sym_name = new_name;
2531
2532                   elftab = & hash_table->static_hash_table->root;
2533                   sym_hash = (struct elf32_mn10300_link_hash_entry *)
2534                     elf_link_hash_lookup (elftab, sym_name,
2535                                           FALSE, FALSE, FALSE);
2536
2537                   free (new_name);
2538                   if (sym_hash == NULL)
2539                     continue;
2540
2541                   if (! (sym_hash->flags & MN10300_CONVERT_CALL_TO_CALLS)
2542                       && ! (sym_hash->flags & MN10300_DELETED_PROLOGUE_BYTES))
2543                     {
2544                       int bytes = 0;
2545
2546                       /* Note that we've changed things.  */
2547                       elf_section_data (section)->relocs = internal_relocs;
2548                       elf_section_data (section)->this_hdr.contents = contents;
2549                       symtab_hdr->contents = (unsigned char *) isymbuf;
2550
2551                       /* Count how many bytes we're going to delete.  */
2552                       if (sym_hash->movm_args)
2553                         bytes += 2;
2554
2555                       if (sym_hash->stack_size > 0)
2556                         {
2557                           if (sym_hash->stack_size <= 128)
2558                             bytes += 3;
2559                           else
2560                             bytes += 4;
2561                         }
2562
2563                       /* Note that we've deleted prologue bytes for this
2564                          function.  */
2565                       sym_hash->flags |= MN10300_DELETED_PROLOGUE_BYTES;
2566
2567                       /* Actually delete the bytes.  */
2568                       if (!mn10300_elf_relax_delete_bytes (input_bfd,
2569                                                            section,
2570                                                            isym->st_value,
2571                                                            bytes))
2572                         goto error_return;
2573
2574                       /* Something changed.  Not strictly necessary, but
2575                          may lead to more relaxing opportunities.  */
2576                       *again = TRUE;
2577                     }
2578                 }
2579
2580               /* Look for any global functions in this section which
2581                  need insns deleted from their prologues.  */
2582               symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2583                           - symtab_hdr->sh_info);
2584               hashes = elf_sym_hashes (input_bfd);
2585               end_hashes = hashes + symcount;
2586               for (; hashes < end_hashes; hashes++)
2587                 {
2588                   struct elf32_mn10300_link_hash_entry *sym_hash;
2589
2590                   sym_hash = (struct elf32_mn10300_link_hash_entry *) *hashes;
2591                   if ((sym_hash->root.root.type == bfd_link_hash_defined
2592                        || sym_hash->root.root.type == bfd_link_hash_defweak)
2593                       && sym_hash->root.root.u.def.section == section
2594                       && ! (sym_hash->flags & MN10300_CONVERT_CALL_TO_CALLS)
2595                       && ! (sym_hash->flags & MN10300_DELETED_PROLOGUE_BYTES))
2596                     {
2597                       int bytes = 0;
2598                       bfd_vma symval;
2599
2600                       /* Note that we've changed things.  */
2601                       elf_section_data (section)->relocs = internal_relocs;
2602                       elf_section_data (section)->this_hdr.contents = contents;
2603                       symtab_hdr->contents = (unsigned char *) isymbuf;
2604
2605                       /* Count how many bytes we're going to delete.  */
2606                       if (sym_hash->movm_args)
2607                         bytes += 2;
2608
2609                       if (sym_hash->stack_size > 0)
2610                         {
2611                           if (sym_hash->stack_size <= 128)
2612                             bytes += 3;
2613                           else
2614                             bytes += 4;
2615                         }
2616
2617                       /* Note that we've deleted prologue bytes for this
2618                          function.  */
2619                       sym_hash->flags |= MN10300_DELETED_PROLOGUE_BYTES;
2620
2621                       /* Actually delete the bytes.  */
2622                       symval = sym_hash->root.root.u.def.value;
2623                       if (!mn10300_elf_relax_delete_bytes (input_bfd,
2624                                                            section,
2625                                                            symval,
2626                                                            bytes))
2627                         goto error_return;
2628
2629                       /* Something changed.  Not strictly necessary, but
2630                          may lead to more relaxing opportunities.  */
2631                       *again = TRUE;
2632                     }
2633                 }
2634
2635               /* Cache or free any memory we allocated for the relocs.  */
2636               if (internal_relocs != NULL
2637                   && elf_section_data (section)->relocs != internal_relocs)
2638                 free (internal_relocs);
2639               internal_relocs = NULL;
2640
2641               /* Cache or free any memory we allocated for the contents.  */
2642               if (contents != NULL
2643                   && elf_section_data (section)->this_hdr.contents != contents)
2644                 {
2645                   if (! link_info->keep_memory)
2646                     free (contents);
2647                   else
2648                     /* Cache the section contents for elf_link_input_bfd.  */
2649                     elf_section_data (section)->this_hdr.contents = contents;
2650                 }
2651               contents = NULL;
2652             }
2653
2654           /* Cache or free any memory we allocated for the symbols.  */
2655           if (isymbuf != NULL
2656               && symtab_hdr->contents != (unsigned char *) isymbuf)
2657             {
2658               if (! link_info->keep_memory)
2659                 free (isymbuf);
2660               else
2661                 /* Cache the symbols for elf_link_input_bfd.  */
2662                 symtab_hdr->contents = (unsigned char *) isymbuf;
2663             }
2664           isymbuf = NULL;
2665         }
2666     }
2667
2668   /* (Re)initialize for the basic instruction shortening/relaxing pass.  */
2669   contents = NULL;
2670   internal_relocs = NULL;
2671   isymbuf = NULL;
2672   /* For error_return.  */
2673   section = sec;
2674
2675   /* We don't have to do anything for a relocatable link, if
2676      this section does not have relocs, or if this is not a
2677      code section.  */
2678   if (link_info->relocatable
2679       || (sec->flags & SEC_RELOC) == 0
2680       || sec->reloc_count == 0
2681       || (sec->flags & SEC_CODE) == 0)
2682     return TRUE;
2683
2684   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2685
2686   /* Get a copy of the native relocations.  */
2687   internal_relocs = _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL,
2688                                                link_info->keep_memory);
2689   if (internal_relocs == NULL)
2690     goto error_return;
2691
2692   /* Scan for worst case alignment gap changes.  Note that this logic
2693      is not ideal; what we should do is run this scan for every
2694      opcode/address range and adjust accordingly, but that's
2695      expensive.  Worst case is that for an alignment of N bytes, we
2696      move by 2*N-N-1 bytes, assuming we have aligns of 1, 2, 4, 8, etc
2697      all before it.  Plus, this still doesn't cover cross-section
2698      jumps with section alignment.  */
2699   irelend = internal_relocs + sec->reloc_count;
2700   align_gap_adjustment = 0;
2701   for (irel = internal_relocs; irel < irelend; irel++)
2702     {
2703       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_ALIGN)
2704         {
2705           bfd_vma adj = 1 << irel->r_addend;
2706           bfd_vma aend = irel->r_offset;
2707
2708           aend = BFD_ALIGN (aend, 1 << irel->r_addend);
2709           adj = 2 * adj - adj - 1;
2710
2711           /* Record the biggest adjustmnet.  Skip any alignment at the
2712              end of our section.  */
2713           if (align_gap_adjustment < adj
2714               && aend < sec->output_section->vma + sec->output_offset + sec->size)
2715             align_gap_adjustment = adj;
2716         }
2717     }
2718
2719   /* Walk through them looking for relaxing opportunities.  */
2720   irelend = internal_relocs + sec->reloc_count;
2721   for (irel = internal_relocs; irel < irelend; irel++)
2722     {
2723       bfd_vma symval;
2724       bfd_signed_vma jump_offset;
2725       asection *sym_sec = NULL;
2726       struct elf32_mn10300_link_hash_entry *h = NULL;
2727
2728       /* If this isn't something that can be relaxed, then ignore
2729          this reloc.  */
2730       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_NONE
2731           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_8
2732           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_MAX)
2733         continue;
2734
2735       /* Get the section contents if we haven't done so already.  */
2736       if (contents == NULL)
2737         {
2738           /* Get cached copy if it exists.  */
2739           if (elf_section_data (sec)->this_hdr.contents != NULL)
2740             contents = elf_section_data (sec)->this_hdr.contents;
2741           else
2742             {
2743               /* Go get them off disk.  */
2744               if (!bfd_malloc_and_get_section (abfd, sec, &contents))
2745                 goto error_return;
2746             }
2747         }
2748
2749       /* Read this BFD's symbols if we haven't done so already.  */
2750       if (isymbuf == NULL && symtab_hdr->sh_info != 0)
2751         {
2752           isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2753           if (isymbuf == NULL)
2754             isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2755                                             symtab_hdr->sh_info, 0,
2756                                             NULL, NULL, NULL);
2757           if (isymbuf == NULL)
2758             goto error_return;
2759         }
2760
2761       /* Get the value of the symbol referred to by the reloc.  */
2762       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2763         {
2764           Elf_Internal_Sym *isym;
2765           const char *sym_name;
2766           char *new_name;
2767
2768           /* A local symbol.  */
2769           isym = isymbuf + ELF32_R_SYM (irel->r_info);
2770           if (isym->st_shndx == SHN_UNDEF)
2771             sym_sec = bfd_und_section_ptr;
2772           else if (isym->st_shndx == SHN_ABS)
2773             sym_sec = bfd_abs_section_ptr;
2774           else if (isym->st_shndx == SHN_COMMON)
2775             sym_sec = bfd_com_section_ptr;
2776           else
2777             sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2778
2779           sym_name = bfd_elf_string_from_elf_section (abfd,
2780                                                       symtab_hdr->sh_link,
2781                                                       isym->st_name);
2782
2783           if ((sym_sec->flags & SEC_MERGE)
2784               && sym_sec->sec_info_type == ELF_INFO_TYPE_MERGE)
2785             {
2786               symval = isym->st_value;
2787
2788               /* GAS may reduce relocations against symbols in SEC_MERGE
2789                  sections to a relocation against the section symbol when
2790                  the original addend was zero.  When the reloc is against
2791                  a section symbol we should include the addend in the
2792                  offset passed to _bfd_merged_section_offset, since the
2793                  location of interest is the original symbol.  On the
2794                  other hand, an access to "sym+addend" where "sym" is not
2795                  a section symbol should not include the addend;  Such an
2796                  access is presumed to be an offset from "sym";  The
2797                  location of interest is just "sym".  */
2798               if (ELF_ST_TYPE (isym->st_info) == STT_SECTION)
2799                 symval += irel->r_addend;
2800
2801               symval = _bfd_merged_section_offset (abfd, & sym_sec,
2802                                                    elf_section_data (sym_sec)->sec_info,
2803                                                    symval);
2804
2805               if (ELF_ST_TYPE (isym->st_info) != STT_SECTION)
2806                 symval += irel->r_addend;
2807
2808               symval += sym_sec->output_section->vma
2809                 + sym_sec->output_offset - irel->r_addend;
2810             }
2811           else
2812             symval = (isym->st_value
2813                       + sym_sec->output_section->vma
2814                       + sym_sec->output_offset);
2815
2816           /* Tack on an ID so we can uniquely identify this
2817              local symbol in the global hash table.  */
2818           new_name = bfd_malloc ((bfd_size_type) strlen (sym_name) + 10);
2819           if (new_name == NULL)
2820             goto error_return;
2821           sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2822           sym_name = new_name;
2823
2824           h = (struct elf32_mn10300_link_hash_entry *)
2825                 elf_link_hash_lookup (&hash_table->static_hash_table->root,
2826                                       sym_name, FALSE, FALSE, FALSE);
2827           free (new_name);
2828         }
2829       else
2830         {
2831           unsigned long indx;
2832
2833           /* An external symbol.  */
2834           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2835           h = (struct elf32_mn10300_link_hash_entry *)
2836                 (elf_sym_hashes (abfd)[indx]);
2837           BFD_ASSERT (h != NULL);
2838           if (h->root.root.type != bfd_link_hash_defined
2839               && h->root.root.type != bfd_link_hash_defweak)
2840             /* This appears to be a reference to an undefined
2841                symbol.  Just ignore it--it will be caught by the
2842                regular reloc processing.  */
2843             continue;
2844
2845           /* Check for a reference to a discarded symbol and ignore it.  */
2846           if (h->root.root.u.def.section->output_section == NULL)
2847             continue;
2848
2849           sym_sec = h->root.root.u.def.section->output_section;
2850
2851           symval = (h->root.root.u.def.value
2852                     + h->root.root.u.def.section->output_section->vma
2853                     + h->root.root.u.def.section->output_offset);
2854         }
2855
2856       /* For simplicity of coding, we are going to modify the section
2857          contents, the section relocs, and the BFD symbol table.  We
2858          must tell the rest of the code not to free up this
2859          information.  It would be possible to instead create a table
2860          of changes which have to be made, as is done in coff-mips.c;
2861          that would be more work, but would require less memory when
2862          the linker is run.  */
2863
2864       /* Try to turn a 32bit pc-relative branch/call into a 16bit pc-relative
2865          branch/call, also deal with "call" -> "calls" conversions and
2866          insertion of prologue data into "call" instructions.  */
2867       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL32
2868           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PLT32)
2869         {
2870           bfd_vma value = symval;
2871
2872           if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PLT32
2873               && h != NULL
2874               && ELF_ST_VISIBILITY (h->root.other) != STV_INTERNAL
2875               && ELF_ST_VISIBILITY (h->root.other) != STV_HIDDEN
2876               && h->root.plt.offset != (bfd_vma) -1)
2877             {
2878               asection * splt;
2879
2880               splt = bfd_get_section_by_name (elf_hash_table (link_info)
2881                                               ->dynobj, ".plt");
2882
2883               value = ((splt->output_section->vma
2884                         + splt->output_offset
2885                         + h->root.plt.offset)
2886                        - (sec->output_section->vma
2887                           + sec->output_offset
2888                           + irel->r_offset));
2889             }
2890
2891           /* If we've got a "call" instruction that needs to be turned
2892              into a "calls" instruction, do so now.  It saves a byte.  */
2893           if (h && (h->flags & MN10300_CONVERT_CALL_TO_CALLS))
2894             {
2895               unsigned char code;
2896
2897               /* Get the opcode.  */
2898               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2899
2900               /* Make sure we're working with a "call" instruction!  */
2901               if (code == 0xdd)
2902                 {
2903                   /* Note that we've changed the relocs, section contents,
2904                      etc.  */
2905                   elf_section_data (sec)->relocs = internal_relocs;
2906                   elf_section_data (sec)->this_hdr.contents = contents;
2907                   symtab_hdr->contents = (unsigned char *) isymbuf;
2908
2909                   /* Fix the opcode.  */
2910                   bfd_put_8 (abfd, 0xfc, contents + irel->r_offset - 1);
2911                   bfd_put_8 (abfd, 0xff, contents + irel->r_offset);
2912
2913                   /* Fix irel->r_offset and irel->r_addend.  */
2914                   irel->r_offset += 1;
2915                   irel->r_addend += 1;
2916
2917                   /* Delete one byte of data.  */
2918                   if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2919                                                        irel->r_offset + 3, 1))
2920                     goto error_return;
2921
2922                   /* That will change things, so, we should relax again.
2923                      Note that this is not required, and it may be slow.  */
2924                   *again = TRUE;
2925                 }
2926             }
2927           else if (h)
2928             {
2929               /* We've got a "call" instruction which needs some data
2930                  from target function filled in.  */
2931               unsigned char code;
2932
2933               /* Get the opcode.  */
2934               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2935
2936               /* Insert data from the target function into the "call"
2937                  instruction if needed.  */
2938               if (code == 0xdd)
2939                 {
2940                   bfd_put_8 (abfd, h->movm_args, contents + irel->r_offset + 4);
2941                   bfd_put_8 (abfd, h->stack_size + h->movm_stack_size,
2942                              contents + irel->r_offset + 5);
2943                 }
2944             }
2945
2946           /* Deal with pc-relative gunk.  */
2947           value -= (sec->output_section->vma + sec->output_offset);
2948           value -= irel->r_offset;
2949           value += irel->r_addend;
2950
2951           /* See if the value will fit in 16 bits, note the high value is
2952              0x7fff + 2 as the target will be two bytes closer if we are
2953              able to relax, if it's in the same section.  */
2954           if (sec->output_section == sym_sec->output_section)
2955             jump_offset = 0x8001;
2956           else
2957             jump_offset = 0x7fff;
2958
2959           /* Account for jumps across alignment boundaries using
2960              align_gap_adjustment.  */
2961           if ((bfd_signed_vma) value < jump_offset - (bfd_signed_vma) align_gap_adjustment
2962               && ((bfd_signed_vma) value > -0x8000 + (bfd_signed_vma) align_gap_adjustment))
2963             {
2964               unsigned char code;
2965
2966               /* Get the opcode.  */
2967               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2968
2969               if (code != 0xdc && code != 0xdd && code != 0xff)
2970                 continue;
2971
2972               /* Note that we've changed the relocs, section contents, etc.  */
2973               elf_section_data (sec)->relocs = internal_relocs;
2974               elf_section_data (sec)->this_hdr.contents = contents;
2975               symtab_hdr->contents = (unsigned char *) isymbuf;
2976
2977               /* Fix the opcode.  */
2978               if (code == 0xdc)
2979                 bfd_put_8 (abfd, 0xcc, contents + irel->r_offset - 1);
2980               else if (code == 0xdd)
2981                 bfd_put_8 (abfd, 0xcd, contents + irel->r_offset - 1);
2982               else if (code == 0xff)
2983                 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
2984
2985               /* Fix the relocation's type.  */
2986               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2987                                            (ELF32_R_TYPE (irel->r_info)
2988                                             == (int) R_MN10300_PLT32)
2989                                            ? R_MN10300_PLT16 :
2990                                            R_MN10300_PCREL16);
2991
2992               /* Delete two bytes of data.  */
2993               if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2994                                                    irel->r_offset + 1, 2))
2995                 goto error_return;
2996
2997               /* That will change things, so, we should relax again.
2998                  Note that this is not required, and it may be slow.  */
2999               *again = TRUE;
3000             }
3001         }
3002
3003       /* Try to turn a 16bit pc-relative branch into a 8bit pc-relative
3004          branch.  */
3005       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL16)
3006         {
3007           bfd_vma value = symval;
3008
3009           /* If we've got a "call" instruction that needs to be turned
3010              into a "calls" instruction, do so now.  It saves a byte.  */
3011           if (h && (h->flags & MN10300_CONVERT_CALL_TO_CALLS))
3012             {
3013               unsigned char code;
3014
3015               /* Get the opcode.  */
3016               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3017
3018               /* Make sure we're working with a "call" instruction!  */
3019               if (code == 0xcd)
3020                 {
3021                   /* Note that we've changed the relocs, section contents,
3022                      etc.  */
3023                   elf_section_data (sec)->relocs = internal_relocs;
3024                   elf_section_data (sec)->this_hdr.contents = contents;
3025                   symtab_hdr->contents = (unsigned char *) isymbuf;
3026
3027                   /* Fix the opcode.  */
3028                   bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 1);
3029                   bfd_put_8 (abfd, 0xff, contents + irel->r_offset);
3030
3031                   /* Fix irel->r_offset and irel->r_addend.  */
3032                   irel->r_offset += 1;
3033                   irel->r_addend += 1;
3034
3035                   /* Delete one byte of data.  */
3036                   if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3037                                                        irel->r_offset + 1, 1))
3038                     goto error_return;
3039
3040                   /* That will change things, so, we should relax again.
3041                      Note that this is not required, and it may be slow.  */
3042                   *again = TRUE;
3043                 }
3044             }
3045           else if (h)
3046             {
3047               unsigned char code;
3048
3049               /* Get the opcode.  */
3050               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3051
3052               /* Insert data from the target function into the "call"
3053                  instruction if needed.  */
3054               if (code == 0xcd)
3055                 {
3056                   bfd_put_8 (abfd, h->movm_args, contents + irel->r_offset + 2);
3057                   bfd_put_8 (abfd, h->stack_size + h->movm_stack_size,
3058                              contents + irel->r_offset + 3);
3059                 }
3060             }
3061
3062           /* Deal with pc-relative gunk.  */
3063           value -= (sec->output_section->vma + sec->output_offset);
3064           value -= irel->r_offset;
3065           value += irel->r_addend;
3066
3067           /* See if the value will fit in 8 bits, note the high value is
3068              0x7f + 1 as the target will be one bytes closer if we are
3069              able to relax.  */
3070           if ((long) value < 0x80 && (long) value > -0x80)
3071             {
3072               unsigned char code;
3073
3074               /* Get the opcode.  */
3075               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3076
3077               if (code != 0xcc)
3078                 continue;
3079
3080               /* Note that we've changed the relocs, section contents, etc.  */
3081               elf_section_data (sec)->relocs = internal_relocs;
3082               elf_section_data (sec)->this_hdr.contents = contents;
3083               symtab_hdr->contents = (unsigned char *) isymbuf;
3084
3085               /* Fix the opcode.  */
3086               bfd_put_8 (abfd, 0xca, contents + irel->r_offset - 1);
3087
3088               /* Fix the relocation's type.  */
3089               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3090                                            R_MN10300_PCREL8);
3091
3092               /* Delete one byte of data.  */
3093               if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3094                                                    irel->r_offset + 1, 1))
3095                 goto error_return;
3096
3097               /* That will change things, so, we should relax again.
3098                  Note that this is not required, and it may be slow.  */
3099               *again = TRUE;
3100             }
3101         }
3102
3103       /* Try to eliminate an unconditional 8 bit pc-relative branch
3104          which immediately follows a conditional 8 bit pc-relative
3105          branch around the unconditional branch.
3106
3107             original:           new:
3108             bCC lab1            bCC' lab2
3109             bra lab2
3110            lab1:               lab1:
3111
3112          This happens when the bCC can't reach lab2 at assembly time,
3113          but due to other relaxations it can reach at link time.  */
3114       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL8)
3115         {
3116           Elf_Internal_Rela *nrel;
3117           bfd_vma value = symval;
3118           unsigned char code;
3119
3120           /* Deal with pc-relative gunk.  */
3121           value -= (sec->output_section->vma + sec->output_offset);
3122           value -= irel->r_offset;
3123           value += irel->r_addend;
3124
3125           /* Do nothing if this reloc is the last byte in the section.  */
3126           if (irel->r_offset == sec->size)
3127             continue;
3128
3129           /* See if the next instruction is an unconditional pc-relative
3130              branch, more often than not this test will fail, so we
3131              test it first to speed things up.  */
3132           code = bfd_get_8 (abfd, contents + irel->r_offset + 1);
3133           if (code != 0xca)
3134             continue;
3135
3136           /* Also make sure the next relocation applies to the next
3137              instruction and that it's a pc-relative 8 bit branch.  */
3138           nrel = irel + 1;
3139           if (nrel == irelend
3140               || irel->r_offset + 2 != nrel->r_offset
3141               || ELF32_R_TYPE (nrel->r_info) != (int) R_MN10300_PCREL8)
3142             continue;
3143
3144           /* Make sure our destination immediately follows the
3145              unconditional branch.  */
3146           if (symval != (sec->output_section->vma + sec->output_offset
3147                          + irel->r_offset + 3))
3148             continue;
3149
3150           /* Now make sure we are a conditional branch.  This may not
3151              be necessary, but why take the chance.
3152
3153              Note these checks assume that R_MN10300_PCREL8 relocs
3154              only occur on bCC and bCCx insns.  If they occured
3155              elsewhere, we'd need to know the start of this insn
3156              for this check to be accurate.  */
3157           code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3158           if (code != 0xc0 && code != 0xc1 && code != 0xc2
3159               && code != 0xc3 && code != 0xc4 && code != 0xc5
3160               && code != 0xc6 && code != 0xc7 && code != 0xc8
3161               && code != 0xc9 && code != 0xe8 && code != 0xe9
3162               && code != 0xea && code != 0xeb)
3163             continue;
3164
3165           /* We also have to be sure there is no symbol/label
3166              at the unconditional branch.  */
3167           if (mn10300_elf_symbol_address_p (abfd, sec, isymbuf,
3168                                             irel->r_offset + 1))
3169             continue;
3170
3171           /* Note that we've changed the relocs, section contents, etc.  */
3172           elf_section_data (sec)->relocs = internal_relocs;
3173           elf_section_data (sec)->this_hdr.contents = contents;
3174           symtab_hdr->contents = (unsigned char *) isymbuf;
3175
3176           /* Reverse the condition of the first branch.  */
3177           switch (code)
3178             {
3179             case 0xc8:
3180               code = 0xc9;
3181               break;
3182             case 0xc9:
3183               code = 0xc8;
3184               break;
3185             case 0xc0:
3186               code = 0xc2;
3187               break;
3188             case 0xc2:
3189               code = 0xc0;
3190               break;
3191             case 0xc3:
3192               code = 0xc1;
3193               break;
3194             case 0xc1:
3195               code = 0xc3;
3196               break;
3197             case 0xc4:
3198               code = 0xc6;
3199               break;
3200             case 0xc6:
3201               code = 0xc4;
3202               break;
3203             case 0xc7:
3204               code = 0xc5;
3205               break;
3206             case 0xc5:
3207               code = 0xc7;
3208               break;
3209             case 0xe8:
3210               code = 0xe9;
3211               break;
3212             case 0x9d:
3213               code = 0xe8;
3214               break;
3215             case 0xea:
3216               code = 0xeb;
3217               break;
3218             case 0xeb:
3219               code = 0xea;
3220               break;
3221             }
3222           bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3223
3224           /* Set the reloc type and symbol for the first branch
3225              from the second branch.  */
3226           irel->r_info = nrel->r_info;
3227
3228           /* Make the reloc for the second branch a null reloc.  */
3229           nrel->r_info = ELF32_R_INFO (ELF32_R_SYM (nrel->r_info),
3230                                        R_MN10300_NONE);
3231
3232           /* Delete two bytes of data.  */
3233           if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3234                                                irel->r_offset + 1, 2))
3235             goto error_return;
3236
3237           /* That will change things, so, we should relax again.
3238              Note that this is not required, and it may be slow.  */
3239           *again = TRUE;
3240         }
3241
3242       /* Try to turn a 24 immediate, displacement or absolute address
3243          into a 8 immediate, displacement or absolute address.  */
3244       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_24)
3245         {
3246           bfd_vma value = symval;
3247           value += irel->r_addend;
3248
3249           /* See if the value will fit in 8 bits.  */
3250           if ((long) value < 0x7f && (long) value > -0x80)
3251             {
3252               unsigned char code;
3253
3254               /* AM33 insns which have 24 operands are 6 bytes long and
3255                  will have 0xfd as the first byte.  */
3256
3257               /* Get the first opcode.  */
3258               code = bfd_get_8 (abfd, contents + irel->r_offset - 3);
3259
3260               if (code == 0xfd)
3261                 {
3262                   /* Get the second opcode.  */
3263                   code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
3264
3265                   /* We can not relax 0x6b, 0x7b, 0x8b, 0x9b as no 24bit
3266                      equivalent instructions exists.  */
3267                   if (code != 0x6b && code != 0x7b
3268                       && code != 0x8b && code != 0x9b
3269                       && ((code & 0x0f) == 0x09 || (code & 0x0f) == 0x08
3270                           || (code & 0x0f) == 0x0a || (code & 0x0f) == 0x0b
3271                           || (code & 0x0f) == 0x0e))
3272                     {
3273                       /* Not safe if the high bit is on as relaxing may
3274                          move the value out of high mem and thus not fit
3275                          in a signed 8bit value.  This is currently over
3276                          conservative.  */
3277                       if ((value & 0x80) == 0)
3278                         {
3279                           /* Note that we've changed the relocation contents,
3280                              etc.  */
3281                           elf_section_data (sec)->relocs = internal_relocs;
3282                           elf_section_data (sec)->this_hdr.contents = contents;
3283                           symtab_hdr->contents = (unsigned char *) isymbuf;
3284
3285                           /* Fix the opcode.  */
3286                           bfd_put_8 (abfd, 0xfb, contents + irel->r_offset - 3);
3287                           bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3288
3289                           /* Fix the relocation's type.  */
3290                           irel->r_info =
3291                             ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3292                                           R_MN10300_8);
3293
3294                           /* Delete two bytes of data.  */
3295                           if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3296                                                                irel->r_offset + 1, 2))
3297                             goto error_return;
3298
3299                           /* That will change things, so, we should relax
3300                              again.  Note that this is not required, and it
3301                              may be slow.  */
3302                           *again = TRUE;
3303                           break;
3304                         }
3305                     }
3306                 }
3307             }
3308         }
3309
3310       /* Try to turn a 32bit immediate, displacement or absolute address
3311          into a 16bit immediate, displacement or absolute address.  */
3312       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_32
3313           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOT32
3314           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTOFF32)
3315         {
3316           bfd_vma value = symval;
3317
3318           if (ELF32_R_TYPE (irel->r_info) != (int) R_MN10300_32)
3319             {
3320               asection * sgot;
3321
3322               sgot = bfd_get_section_by_name (elf_hash_table (link_info)
3323                                               ->dynobj, ".got");
3324
3325               if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOT32)
3326                 {
3327                   value = sgot->output_offset;
3328
3329                   if (h)
3330                     value += h->root.got.offset;
3331                   else
3332                     value += (elf_local_got_offsets
3333                               (abfd)[ELF32_R_SYM (irel->r_info)]);
3334                 }
3335               else if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTOFF32)
3336                 value -= sgot->output_section->vma;
3337               else if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTPC32)
3338                 value = (sgot->output_section->vma
3339                          - (sec->output_section->vma
3340                             + sec->output_offset
3341                             + irel->r_offset));
3342               else
3343                 abort ();
3344             }
3345
3346           value += irel->r_addend;
3347
3348           /* See if the value will fit in 24 bits.
3349              We allow any 16bit match here.  We prune those we can't
3350              handle below.  */
3351           if ((long) value < 0x7fffff && (long) value > -0x800000)
3352             {
3353               unsigned char code;
3354
3355               /* AM33 insns which have 32bit operands are 7 bytes long and
3356                  will have 0xfe as the first byte.  */
3357
3358               /* Get the first opcode.  */
3359               code = bfd_get_8 (abfd, contents + irel->r_offset - 3);
3360
3361               if (code == 0xfe)
3362                 {
3363                   /* Get the second opcode.  */
3364                   code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
3365
3366                   /* All the am33 32 -> 24 relaxing possibilities.  */
3367                   /* We can not relax 0x6b, 0x7b, 0x8b, 0x9b as no 24bit
3368                      equivalent instructions exists.  */
3369                   if (code != 0x6b && code != 0x7b
3370                       && code != 0x8b && code != 0x9b
3371                       && (ELF32_R_TYPE (irel->r_info)
3372                           != (int) R_MN10300_GOTPC32)
3373                       && ((code & 0x0f) == 0x09 || (code & 0x0f) == 0x08
3374                           || (code & 0x0f) == 0x0a || (code & 0x0f) == 0x0b
3375                           || (code & 0x0f) == 0x0e))
3376                     {
3377                       /* Not safe if the high bit is on as relaxing may
3378                          move the value out of high mem and thus not fit
3379                          in a signed 16bit value.  This is currently over
3380                          conservative.  */
3381                       if ((value & 0x8000) == 0)
3382                         {
3383                           /* Note that we've changed the relocation contents,
3384                              etc.  */
3385                           elf_section_data (sec)->relocs = internal_relocs;
3386                           elf_section_data (sec)->this_hdr.contents = contents;
3387                           symtab_hdr->contents = (unsigned char *) isymbuf;
3388
3389                           /* Fix the opcode.  */
3390                           bfd_put_8 (abfd, 0xfd, contents + irel->r_offset - 3);
3391                           bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3392
3393                           /* Fix the relocation's type.  */
3394                           irel->r_info =
3395                             ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3396                                           (ELF32_R_TYPE (irel->r_info)
3397                                            == (int) R_MN10300_GOTOFF32)
3398                                           ? R_MN10300_GOTOFF24
3399                                           : (ELF32_R_TYPE (irel->r_info)
3400                                              == (int) R_MN10300_GOT32)
3401                                           ? R_MN10300_GOT24 :
3402                                           R_MN10300_24);
3403
3404                           /* Delete one byte of data.  */
3405                           if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3406                                                                irel->r_offset + 3, 1))
3407                             goto error_return;
3408
3409                           /* That will change things, so, we should relax
3410                              again.  Note that this is not required, and it
3411                              may be slow.  */
3412                           *again = TRUE;
3413                           break;
3414                         }
3415                     }
3416                 }
3417             }
3418
3419           /* See if the value will fit in 16 bits.
3420              We allow any 16bit match here.  We prune those we can't
3421              handle below.  */
3422           if ((long) value < 0x7fff && (long) value > -0x8000)
3423             {
3424               unsigned char code;
3425
3426               /* Most insns which have 32bit operands are 6 bytes long;
3427                  exceptions are pcrel insns and bit insns.
3428
3429                  We handle pcrel insns above.  We don't bother trying
3430                  to handle the bit insns here.
3431
3432                  The first byte of the remaining insns will be 0xfc.  */
3433
3434               /* Get the first opcode.  */
3435               code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
3436
3437               if (code != 0xfc)
3438                 continue;
3439
3440               /* Get the second opcode.  */
3441               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3442
3443               if ((code & 0xf0) < 0x80)
3444                 switch (code & 0xf0)
3445                   {
3446                   /* mov (d32,am),dn   -> mov (d32,am),dn
3447                      mov dm,(d32,am)   -> mov dn,(d32,am)
3448                      mov (d32,am),an   -> mov (d32,am),an
3449                      mov dm,(d32,am)   -> mov dn,(d32,am)
3450                      movbu (d32,am),dn -> movbu (d32,am),dn
3451                      movbu dm,(d32,am) -> movbu dn,(d32,am)
3452                      movhu (d32,am),dn -> movhu (d32,am),dn
3453                      movhu dm,(d32,am) -> movhu dn,(d32,am) */
3454                   case 0x00:
3455                   case 0x10:
3456                   case 0x20:
3457                   case 0x30:
3458                   case 0x40:
3459                   case 0x50:
3460                   case 0x60:
3461                   case 0x70:
3462                     /* Not safe if the high bit is on as relaxing may
3463                        move the value out of high mem and thus not fit
3464                        in a signed 16bit value.  */
3465                     if (code == 0xcc
3466                         && (value & 0x8000))
3467                       continue;
3468
3469                     /* Note that we've changed the relocation contents, etc.  */
3470                     elf_section_data (sec)->relocs = internal_relocs;
3471                     elf_section_data (sec)->this_hdr.contents = contents;
3472                     symtab_hdr->contents = (unsigned char *) isymbuf;
3473
3474                     /* Fix the opcode.  */
3475                     bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3476                     bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3477
3478                     /* Fix the relocation's type.  */
3479                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3480                                                  (ELF32_R_TYPE (irel->r_info)
3481                                                   == (int) R_MN10300_GOTOFF32)
3482                                                  ? R_MN10300_GOTOFF16
3483                                                  : (ELF32_R_TYPE (irel->r_info)
3484                                                     == (int) R_MN10300_GOT32)
3485                                                  ? R_MN10300_GOT16
3486                                                  : (ELF32_R_TYPE (irel->r_info)
3487                                                     == (int) R_MN10300_GOTPC32)
3488                                                  ? R_MN10300_GOTPC16 :
3489                                                  R_MN10300_16);
3490
3491                     /* Delete two bytes of data.  */
3492                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3493                                                          irel->r_offset + 2, 2))
3494                       goto error_return;
3495
3496                     /* That will change things, so, we should relax again.
3497                        Note that this is not required, and it may be slow.  */
3498                     *again = TRUE;
3499                     break;
3500                   }
3501               else if ((code & 0xf0) == 0x80
3502                        || (code & 0xf0) == 0x90)
3503                 switch (code & 0xf3)
3504                   {
3505                   /* mov dn,(abs32)   -> mov dn,(abs16)
3506                      movbu dn,(abs32) -> movbu dn,(abs16)
3507                      movhu dn,(abs32) -> movhu dn,(abs16)  */
3508                   case 0x81:
3509                   case 0x82:
3510                   case 0x83:
3511                     /* Note that we've changed the relocation contents, etc.  */
3512                     elf_section_data (sec)->relocs = internal_relocs;
3513                     elf_section_data (sec)->this_hdr.contents = contents;
3514                     symtab_hdr->contents = (unsigned char *) isymbuf;
3515
3516                     if ((code & 0xf3) == 0x81)
3517                       code = 0x01 + (code & 0x0c);
3518                     else if ((code & 0xf3) == 0x82)
3519                       code = 0x02 + (code & 0x0c);
3520                     else if ((code & 0xf3) == 0x83)
3521                       code = 0x03 + (code & 0x0c);
3522                     else
3523                       abort ();
3524
3525                     /* Fix the opcode.  */
3526                     bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3527
3528                     /* Fix the relocation's type.  */
3529                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3530                                                  (ELF32_R_TYPE (irel->r_info)
3531                                                   == (int) R_MN10300_GOTOFF32)
3532                                                  ? R_MN10300_GOTOFF16
3533                                                  : (ELF32_R_TYPE (irel->r_info)
3534                                                     == (int) R_MN10300_GOT32)
3535                                                  ? R_MN10300_GOT16
3536                                                  : (ELF32_R_TYPE (irel->r_info)
3537                                                     == (int) R_MN10300_GOTPC32)
3538                                                  ? R_MN10300_GOTPC16 :
3539                                                  R_MN10300_16);
3540
3541                     /* The opcode got shorter too, so we have to fix the
3542                        addend and offset too!  */
3543                     irel->r_offset -= 1;
3544
3545                     /* Delete three bytes of data.  */
3546                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3547                                                          irel->r_offset + 1, 3))
3548                       goto error_return;
3549
3550                     /* That will change things, so, we should relax again.
3551                        Note that this is not required, and it may be slow.  */
3552                     *again = TRUE;
3553                     break;
3554
3555                   /* mov am,(abs32)    -> mov am,(abs16)
3556                      mov am,(d32,sp)   -> mov am,(d16,sp)
3557                      mov dm,(d32,sp)   -> mov dm,(d32,sp)
3558                      movbu dm,(d32,sp) -> movbu dm,(d32,sp)
3559                      movhu dm,(d32,sp) -> movhu dm,(d32,sp) */
3560                   case 0x80:
3561                   case 0x90:
3562                   case 0x91:
3563                   case 0x92:
3564                   case 0x93:
3565                     /* sp-based offsets are zero-extended.  */
3566                     if (code >= 0x90 && code <= 0x93
3567                         && (long) value < 0)
3568                       continue;
3569
3570                     /* Note that we've changed the relocation contents, etc.  */
3571                     elf_section_data (sec)->relocs = internal_relocs;
3572                     elf_section_data (sec)->this_hdr.contents = contents;
3573                     symtab_hdr->contents = (unsigned char *) isymbuf;
3574
3575                     /* Fix the opcode.  */
3576                     bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3577                     bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3578
3579                     /* Fix the relocation's type.  */
3580                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3581                                                  (ELF32_R_TYPE (irel->r_info)
3582                                                   == (int) R_MN10300_GOTOFF32)
3583                                                  ? R_MN10300_GOTOFF16
3584                                                  : (ELF32_R_TYPE (irel->r_info)
3585                                                     == (int) R_MN10300_GOT32)
3586                                                  ? R_MN10300_GOT16
3587                                                  : (ELF32_R_TYPE (irel->r_info)
3588                                                     == (int) R_MN10300_GOTPC32)
3589                                                  ? R_MN10300_GOTPC16 :
3590                                                  R_MN10300_16);
3591
3592                     /* Delete two bytes of data.  */
3593                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3594                                                          irel->r_offset + 2, 2))
3595                       goto error_return;
3596
3597                     /* That will change things, so, we should relax again.
3598                        Note that this is not required, and it may be slow.  */
3599                     *again = TRUE;
3600                     break;
3601                   }
3602               else if ((code & 0xf0) < 0xf0)
3603                 switch (code & 0xfc)
3604                   {
3605                   /* mov imm32,dn     -> mov imm16,dn
3606                      mov imm32,an     -> mov imm16,an
3607                      mov (abs32),dn   -> mov (abs16),dn
3608                      movbu (abs32),dn -> movbu (abs16),dn
3609                      movhu (abs32),dn -> movhu (abs16),dn  */
3610                   case 0xcc:
3611                   case 0xdc:
3612                   case 0xa4:
3613                   case 0xa8:
3614                   case 0xac:
3615                     /* Not safe if the high bit is on as relaxing may
3616                        move the value out of high mem and thus not fit
3617                        in a signed 16bit value.  */
3618                     if (code == 0xcc
3619                         && (value & 0x8000))
3620                       continue;
3621
3622                     /* mov imm16, an zero-extends the immediate.  */
3623                     if (code == 0xdc
3624                         && (long) value < 0)
3625                       continue;
3626
3627                     /* Note that we've changed the relocation contents, etc.  */
3628                     elf_section_data (sec)->relocs = internal_relocs;
3629                     elf_section_data (sec)->this_hdr.contents = contents;
3630                     symtab_hdr->contents = (unsigned char *) isymbuf;
3631
3632                     if ((code & 0xfc) == 0xcc)
3633                       code = 0x2c + (code & 0x03);
3634                     else if ((code & 0xfc) == 0xdc)
3635                       code = 0x24 + (code & 0x03);
3636                     else if ((code & 0xfc) == 0xa4)
3637                       code = 0x30 + (code & 0x03);
3638                     else if ((code & 0xfc) == 0xa8)
3639                       code = 0x34 + (code & 0x03);
3640                     else if ((code & 0xfc) == 0xac)
3641                       code = 0x38 + (code & 0x03);
3642                     else
3643                       abort ();
3644
3645                     /* Fix the opcode.  */
3646                     bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3647
3648                     /* Fix the relocation's type.  */
3649                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3650                                                  (ELF32_R_TYPE (irel->r_info)
3651                                                   == (int) R_MN10300_GOTOFF32)
3652                                                  ? R_MN10300_GOTOFF16
3653                                                  : (ELF32_R_TYPE (irel->r_info)
3654                                                     == (int) R_MN10300_GOT32)
3655                                                  ? R_MN10300_GOT16
3656                                                  : (ELF32_R_TYPE (irel->r_info)
3657                                                     == (int) R_MN10300_GOTPC32)
3658                                                  ? R_MN10300_GOTPC16 :
3659                                                  R_MN10300_16);
3660
3661                     /* The opcode got shorter too, so we have to fix the
3662                        addend and offset too!  */
3663                     irel->r_offset -= 1;
3664
3665                     /* Delete three bytes of data.  */
3666                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3667                                                          irel->r_offset + 1, 3))
3668                       goto error_return;
3669
3670                     /* That will change things, so, we should relax again.
3671                        Note that this is not required, and it may be slow.  */
3672                     *again = TRUE;
3673                     break;
3674
3675                   /* mov (abs32),an    -> mov (abs16),an
3676                      mov (d32,sp),an   -> mov (d16,sp),an
3677                      mov (d32,sp),dn   -> mov (d16,sp),dn
3678                      movbu (d32,sp),dn -> movbu (d16,sp),dn
3679                      movhu (d32,sp),dn -> movhu (d16,sp),dn
3680                      add imm32,dn      -> add imm16,dn
3681                      cmp imm32,dn      -> cmp imm16,dn
3682                      add imm32,an      -> add imm16,an
3683                      cmp imm32,an      -> cmp imm16,an
3684                      and imm32,dn      -> and imm16,dn
3685                      or imm32,dn       -> or imm16,dn
3686                      xor imm32,dn      -> xor imm16,dn
3687                      btst imm32,dn     -> btst imm16,dn */
3688
3689                   case 0xa0:
3690                   case 0xb0:
3691                   case 0xb1:
3692                   case 0xb2:
3693                   case 0xb3:
3694                   case 0xc0:
3695                   case 0xc8:
3696
3697                   case 0xd0:
3698                   case 0xd8:
3699                   case 0xe0:
3700                   case 0xe1:
3701                   case 0xe2:
3702                   case 0xe3:
3703                     /* cmp imm16, an zero-extends the immediate.  */
3704                     if (code == 0xdc
3705                         && (long) value < 0)
3706                       continue;
3707
3708                     /* So do sp-based offsets.  */
3709                     if (code >= 0xb0 && code <= 0xb3
3710                         && (long) value < 0)
3711                       continue;
3712
3713                     /* Note that we've changed the relocation contents, etc.  */
3714                     elf_section_data (sec)->relocs = internal_relocs;
3715                     elf_section_data (sec)->this_hdr.contents = contents;
3716                     symtab_hdr->contents = (unsigned char *) isymbuf;
3717
3718                     /* Fix the opcode.  */
3719                     bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3720                     bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3721
3722                     /* Fix the relocation's type.  */
3723                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3724                                                  (ELF32_R_TYPE (irel->r_info)
3725                                                   == (int) R_MN10300_GOTOFF32)
3726                                                  ? R_MN10300_GOTOFF16
3727                                                  : (ELF32_R_TYPE (irel->r_info)
3728                                                     == (int) R_MN10300_GOT32)
3729                                                  ? R_MN10300_GOT16
3730                                                  : (ELF32_R_TYPE (irel->r_info)
3731                                                     == (int) R_MN10300_GOTPC32)
3732                                                  ? R_MN10300_GOTPC16 :
3733                                                  R_MN10300_16);
3734
3735                     /* Delete two bytes of data.  */
3736                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3737                                                          irel->r_offset + 2, 2))
3738                       goto error_return;
3739
3740                     /* That will change things, so, we should relax again.
3741                        Note that this is not required, and it may be slow.  */
3742                     *again = TRUE;
3743                     break;
3744                   }
3745               else if (code == 0xfe)
3746                 {
3747                   /* add imm32,sp -> add imm16,sp  */
3748
3749                   /* Note that we've changed the relocation contents, etc.  */
3750                   elf_section_data (sec)->relocs = internal_relocs;
3751                   elf_section_data (sec)->this_hdr.contents = contents;
3752                   symtab_hdr->contents = (unsigned char *) isymbuf;
3753
3754                   /* Fix the opcode.  */
3755                   bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3756                   bfd_put_8 (abfd, 0xfe, contents + irel->r_offset - 1);
3757
3758                   /* Fix the relocation's type.  */
3759                   irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3760                                                (ELF32_R_TYPE (irel->r_info)
3761                                                 == (int) R_MN10300_GOT32)
3762                                                ? R_MN10300_GOT16
3763                                                : (ELF32_R_TYPE (irel->r_info)
3764                                                   == (int) R_MN10300_GOTOFF32)
3765                                                ? R_MN10300_GOTOFF16
3766                                                : (ELF32_R_TYPE (irel->r_info)
3767                                                   == (int) R_MN10300_GOTPC32)
3768                                                ? R_MN10300_GOTPC16 :
3769                                                R_MN10300_16);
3770
3771                   /* Delete two bytes of data.  */
3772                   if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3773                                                        irel->r_offset + 2, 2))
3774                     goto error_return;
3775
3776                   /* That will change things, so, we should relax again.
3777                      Note that this is not required, and it may be slow.  */
3778                   *again = TRUE;
3779                   break;
3780                 }
3781             }
3782         }
3783     }
3784
3785   if (isymbuf != NULL
3786       && symtab_hdr->contents != (unsigned char *) isymbuf)
3787     {
3788       if (! link_info->keep_memory)
3789         free (isymbuf);
3790       else
3791         {
3792           /* Cache the symbols for elf_link_input_bfd.  */
3793           symtab_hdr->contents = (unsigned char *) isymbuf;
3794         }
3795     }
3796
3797   if (contents != NULL
3798       && elf_section_data (sec)->this_hdr.contents != contents)
3799     {
3800       if (! link_info->keep_memory)
3801         free (contents);
3802       else
3803         {
3804           /* Cache the section contents for elf_link_input_bfd.  */
3805           elf_section_data (sec)->this_hdr.contents = contents;
3806         }
3807     }
3808
3809   if (internal_relocs != NULL
3810       && elf_section_data (sec)->relocs != internal_relocs)
3811     free (internal_relocs);
3812
3813   return TRUE;
3814
3815  error_return:
3816   if (isymbuf != NULL
3817       && symtab_hdr->contents != (unsigned char *) isymbuf)
3818     free (isymbuf);
3819   if (contents != NULL
3820       && elf_section_data (section)->this_hdr.contents != contents)
3821     free (contents);
3822   if (internal_relocs != NULL
3823       && elf_section_data (section)->relocs != internal_relocs)
3824     free (internal_relocs);
3825
3826   return FALSE;
3827 }
3828
3829 /* This is a version of bfd_generic_get_relocated_section_contents
3830    which uses mn10300_elf_relocate_section.  */
3831
3832 static bfd_byte *
3833 mn10300_elf_get_relocated_section_contents (bfd *output_bfd,
3834                                             struct bfd_link_info *link_info,
3835                                             struct bfd_link_order *link_order,
3836                                             bfd_byte *data,
3837                                             bfd_boolean relocatable,
3838                                             asymbol **symbols)
3839 {
3840   Elf_Internal_Shdr *symtab_hdr;
3841   asection *input_section = link_order->u.indirect.section;
3842   bfd *input_bfd = input_section->owner;
3843   asection **sections = NULL;
3844   Elf_Internal_Rela *internal_relocs = NULL;
3845   Elf_Internal_Sym *isymbuf = NULL;
3846
3847   /* We only need to handle the case of relaxing, or of having a
3848      particular set of section contents, specially.  */
3849   if (relocatable
3850       || elf_section_data (input_section)->this_hdr.contents == NULL)
3851     return bfd_generic_get_relocated_section_contents (output_bfd, link_info,
3852                                                        link_order, data,
3853                                                        relocatable,
3854                                                        symbols);
3855
3856   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3857
3858   memcpy (data, elf_section_data (input_section)->this_hdr.contents,
3859           (size_t) input_section->size);
3860
3861   if ((input_section->flags & SEC_RELOC) != 0
3862       && input_section->reloc_count > 0)
3863     {
3864       asection **secpp;
3865       Elf_Internal_Sym *isym, *isymend;
3866       bfd_size_type amt;
3867
3868       internal_relocs = _bfd_elf_link_read_relocs (input_bfd, input_section,
3869                                                    NULL, NULL, FALSE);
3870       if (internal_relocs == NULL)
3871         goto error_return;
3872
3873       if (symtab_hdr->sh_info != 0)
3874         {
3875           isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
3876           if (isymbuf == NULL)
3877             isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
3878                                             symtab_hdr->sh_info, 0,
3879                                             NULL, NULL, NULL);
3880           if (isymbuf == NULL)
3881             goto error_return;
3882         }
3883
3884       amt = symtab_hdr->sh_info;
3885       amt *= sizeof (asection *);
3886       sections = bfd_malloc (amt);
3887       if (sections == NULL && amt != 0)
3888         goto error_return;
3889
3890       isymend = isymbuf + symtab_hdr->sh_info;
3891       for (isym = isymbuf, secpp = sections; isym < isymend; ++isym, ++secpp)
3892         {
3893           asection *isec;
3894
3895           if (isym->st_shndx == SHN_UNDEF)
3896             isec = bfd_und_section_ptr;
3897           else if (isym->st_shndx == SHN_ABS)
3898             isec = bfd_abs_section_ptr;
3899           else if (isym->st_shndx == SHN_COMMON)
3900             isec = bfd_com_section_ptr;
3901           else
3902             isec = bfd_section_from_elf_index (input_bfd, isym->st_shndx);
3903
3904           *secpp = isec;
3905         }
3906
3907       if (! mn10300_elf_relocate_section (output_bfd, link_info, input_bfd,
3908                                           input_section, data, internal_relocs,
3909                                           isymbuf, sections))
3910         goto error_return;
3911
3912       if (sections != NULL)
3913         free (sections);
3914       if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
3915         free (isymbuf);
3916       if (internal_relocs != elf_section_data (input_section)->relocs)
3917         free (internal_relocs);
3918     }
3919
3920   return data;
3921
3922  error_return:
3923   if (sections != NULL)
3924     free (sections);
3925   if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
3926     free (isymbuf);
3927   if (internal_relocs != NULL
3928       && internal_relocs != elf_section_data (input_section)->relocs)
3929     free (internal_relocs);
3930   return NULL;
3931 }
3932
3933 /* Assorted hash table functions.  */
3934
3935 /* Initialize an entry in the link hash table.  */
3936
3937 /* Create an entry in an MN10300 ELF linker hash table.  */
3938
3939 static struct bfd_hash_entry *
3940 elf32_mn10300_link_hash_newfunc (struct bfd_hash_entry *entry,
3941                                  struct bfd_hash_table *table,
3942                                  const char *string)
3943 {
3944   struct elf32_mn10300_link_hash_entry *ret =
3945     (struct elf32_mn10300_link_hash_entry *) entry;
3946
3947   /* Allocate the structure if it has not already been allocated by a
3948      subclass.  */
3949   if (ret == NULL)
3950     ret = (struct elf32_mn10300_link_hash_entry *)
3951            bfd_hash_allocate (table, sizeof (* ret));
3952   if (ret == NULL)
3953     return (struct bfd_hash_entry *) ret;
3954
3955   /* Call the allocation method of the superclass.  */
3956   ret = (struct elf32_mn10300_link_hash_entry *)
3957          _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
3958                                      table, string);
3959   if (ret != NULL)
3960     {
3961       ret->direct_calls = 0;
3962       ret->stack_size = 0;
3963       ret->movm_args = 0;
3964       ret->movm_stack_size = 0;
3965       ret->flags = 0;
3966       ret->value = 0;
3967     }
3968
3969   return (struct bfd_hash_entry *) ret;
3970 }
3971
3972 /* Create an mn10300 ELF linker hash table.  */
3973
3974 static struct bfd_link_hash_table *
3975 elf32_mn10300_link_hash_table_create (bfd *abfd)
3976 {
3977   struct elf32_mn10300_link_hash_table *ret;
3978   bfd_size_type amt = sizeof (* ret);
3979
3980   ret = bfd_malloc (amt);
3981   if (ret == NULL)
3982     return NULL;
3983
3984   if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
3985                                       elf32_mn10300_link_hash_newfunc,
3986                                       sizeof (struct elf32_mn10300_link_hash_entry)))
3987     {
3988       free (ret);
3989       return NULL;
3990     }
3991
3992   ret->flags = 0;
3993   amt = sizeof (struct elf_link_hash_table);
3994   ret->static_hash_table = bfd_malloc (amt);
3995   if (ret->static_hash_table == NULL)
3996     {
3997       free (ret);
3998       return NULL;
3999     }
4000
4001   if (!_bfd_elf_link_hash_table_init (&ret->static_hash_table->root, abfd,
4002                                       elf32_mn10300_link_hash_newfunc,
4003                                       sizeof (struct elf32_mn10300_link_hash_entry)))
4004     {
4005       free (ret->static_hash_table);
4006       free (ret);
4007       return NULL;
4008     }
4009   return & ret->root.root;
4010 }
4011
4012 /* Free an mn10300 ELF linker hash table.  */
4013
4014 static void
4015 elf32_mn10300_link_hash_table_free (struct bfd_link_hash_table *hash)
4016 {
4017   struct elf32_mn10300_link_hash_table *ret
4018     = (struct elf32_mn10300_link_hash_table *) hash;
4019
4020   _bfd_generic_link_hash_table_free
4021     ((struct bfd_link_hash_table *) ret->static_hash_table);
4022   _bfd_generic_link_hash_table_free
4023     ((struct bfd_link_hash_table *) ret);
4024 }
4025
4026 static unsigned long
4027 elf_mn10300_mach (flagword flags)
4028 {
4029   switch (flags & EF_MN10300_MACH)
4030     {
4031     case E_MN10300_MACH_MN10300:
4032     default:
4033       return bfd_mach_mn10300;
4034
4035     case E_MN10300_MACH_AM33:
4036       return bfd_mach_am33;
4037
4038     case E_MN10300_MACH_AM33_2:
4039       return bfd_mach_am33_2;
4040     }
4041 }
4042
4043 /* The final processing done just before writing out a MN10300 ELF object
4044    file.  This gets the MN10300 architecture right based on the machine
4045    number.  */
4046
4047 static void
4048 _bfd_mn10300_elf_final_write_processing (bfd *abfd,
4049                                          bfd_boolean linker ATTRIBUTE_UNUSED)
4050 {
4051   unsigned long val;
4052
4053   switch (bfd_get_mach (abfd))
4054     {
4055     default:
4056     case bfd_mach_mn10300:
4057       val = E_MN10300_MACH_MN10300;
4058       break;
4059
4060     case bfd_mach_am33:
4061       val = E_MN10300_MACH_AM33;
4062       break;
4063
4064     case bfd_mach_am33_2:
4065       val = E_MN10300_MACH_AM33_2;
4066       break;
4067     }
4068
4069   elf_elfheader (abfd)->e_flags &= ~ (EF_MN10300_MACH);
4070   elf_elfheader (abfd)->e_flags |= val;
4071 }
4072
4073 static bfd_boolean
4074 _bfd_mn10300_elf_object_p (bfd *abfd)
4075 {
4076   bfd_default_set_arch_mach (abfd, bfd_arch_mn10300,
4077                              elf_mn10300_mach (elf_elfheader (abfd)->e_flags));
4078   return TRUE;
4079 }
4080
4081 /* Merge backend specific data from an object file to the output
4082    object file when linking.  */
4083
4084 static bfd_boolean
4085 _bfd_mn10300_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
4086 {
4087   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4088       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4089     return TRUE;
4090
4091   if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4092       && bfd_get_mach (obfd) < bfd_get_mach (ibfd))
4093     {
4094       if (! bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4095                                bfd_get_mach (ibfd)))
4096         return FALSE;
4097     }
4098
4099   return TRUE;
4100 }
4101
4102 #define PLT0_ENTRY_SIZE     15
4103 #define PLT_ENTRY_SIZE      20
4104 #define PIC_PLT_ENTRY_SIZE  24
4105
4106 static const bfd_byte elf_mn10300_plt0_entry[PLT0_ENTRY_SIZE] =
4107 {
4108   0xfc, 0xa0, 0, 0, 0, 0,       /* mov  (.got+8),a0 */
4109   0xfe, 0xe, 0x10, 0, 0, 0, 0,  /* mov  (.got+4),r1 */
4110   0xf0, 0xf4,                   /* jmp  (a0) */
4111 };
4112
4113 static const bfd_byte elf_mn10300_plt_entry[PLT_ENTRY_SIZE] =
4114 {
4115   0xfc, 0xa0, 0, 0, 0, 0,       /* mov  (nameN@GOT + .got),a0 */
4116   0xf0, 0xf4,                   /* jmp  (a0) */
4117   0xfe, 8, 0, 0, 0, 0, 0,       /* mov  reloc-table-address,r0 */
4118   0xdc, 0, 0, 0, 0,             /* jmp  .plt0 */
4119 };
4120
4121 static const bfd_byte elf_mn10300_pic_plt_entry[PIC_PLT_ENTRY_SIZE] =
4122 {
4123   0xfc, 0x22, 0, 0, 0, 0,       /* mov  (nameN@GOT,a2),a0 */
4124   0xf0, 0xf4,                   /* jmp  (a0) */
4125   0xfe, 8, 0, 0, 0, 0, 0,       /* mov  reloc-table-address,r0 */
4126   0xf8, 0x22, 8,                /* mov  (8,a2),a0 */
4127   0xfb, 0xa, 0x1a, 4,           /* mov  (4,a2),r1 */
4128   0xf0, 0xf4,                   /* jmp  (a0) */
4129 };
4130
4131 /* Return size of the first PLT entry.  */
4132 #define elf_mn10300_sizeof_plt0(info) \
4133   (info->shared ? PIC_PLT_ENTRY_SIZE : PLT0_ENTRY_SIZE)
4134
4135 /* Return size of a PLT entry.  */
4136 #define elf_mn10300_sizeof_plt(info) \
4137   (info->shared ? PIC_PLT_ENTRY_SIZE : PLT_ENTRY_SIZE)
4138
4139 /* Return offset of the PLT0 address in an absolute PLT entry.  */
4140 #define elf_mn10300_plt_plt0_offset(info) 16
4141
4142 /* Return offset of the linker in PLT0 entry.  */
4143 #define elf_mn10300_plt0_linker_offset(info) 2
4144
4145 /* Return offset of the GOT id in PLT0 entry.  */
4146 #define elf_mn10300_plt0_gotid_offset(info) 9
4147
4148 /* Return offset of the temporary in PLT entry.  */
4149 #define elf_mn10300_plt_temp_offset(info) 8
4150
4151 /* Return offset of the symbol in PLT entry.  */
4152 #define elf_mn10300_plt_symbol_offset(info) 2
4153
4154 /* Return offset of the relocation in PLT entry.  */
4155 #define elf_mn10300_plt_reloc_offset(info) 11
4156
4157 /* The name of the dynamic interpreter.  This is put in the .interp
4158    section.  */
4159
4160 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
4161
4162 /* Create dynamic sections when linking against a dynamic object.  */
4163
4164 static bfd_boolean
4165 _bfd_mn10300_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
4166 {
4167   flagword   flags;
4168   asection * s;
4169   const struct elf_backend_data * bed = get_elf_backend_data (abfd);
4170   int ptralign = 0;
4171
4172   switch (bed->s->arch_size)
4173     {
4174     case 32:
4175       ptralign = 2;
4176       break;
4177
4178     case 64:
4179       ptralign = 3;
4180       break;
4181
4182     default:
4183       bfd_set_error (bfd_error_bad_value);
4184       return FALSE;
4185     }
4186
4187   /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
4188      .rel[a].bss sections.  */
4189   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
4190            | SEC_LINKER_CREATED);
4191
4192   s = bfd_make_section_with_flags (abfd,
4193                                    (bed->default_use_rela_p
4194                                     ? ".rela.plt" : ".rel.plt"),
4195                                    flags | SEC_READONLY);
4196   if (s == NULL
4197       || ! bfd_set_section_alignment (abfd, s, ptralign))
4198     return FALSE;
4199
4200   if (! _bfd_mn10300_elf_create_got_section (abfd, info))
4201     return FALSE;
4202
4203   {
4204     const char * secname;
4205     char *       relname;
4206     flagword     secflags;
4207     asection *   sec;
4208
4209     for (sec = abfd->sections; sec; sec = sec->next)
4210       {
4211         secflags = bfd_get_section_flags (abfd, sec);
4212         if ((secflags & (SEC_DATA | SEC_LINKER_CREATED))
4213             || ((secflags & SEC_HAS_CONTENTS) != SEC_HAS_CONTENTS))
4214           continue;
4215
4216         secname = bfd_get_section_name (abfd, sec);
4217         relname = bfd_malloc (strlen (secname) + 6);
4218         strcpy (relname, ".rela");
4219         strcat (relname, secname);
4220
4221         s = bfd_make_section_with_flags (abfd, relname,
4222                                          flags | SEC_READONLY);
4223         if (s == NULL
4224             || ! bfd_set_section_alignment (abfd, s, ptralign))
4225           return FALSE;
4226       }
4227   }
4228
4229   if (bed->want_dynbss)
4230     {
4231       /* The .dynbss section is a place to put symbols which are defined
4232          by dynamic objects, are referenced by regular objects, and are
4233          not functions.  We must allocate space for them in the process
4234          image and use a R_*_COPY reloc to tell the dynamic linker to
4235          initialize them at run time.  The linker script puts the .dynbss
4236          section into the .bss section of the final image.  */
4237       s = bfd_make_section_with_flags (abfd, ".dynbss",
4238                                        SEC_ALLOC | SEC_LINKER_CREATED);
4239       if (s == NULL)
4240         return FALSE;
4241
4242       /* The .rel[a].bss section holds copy relocs.  This section is not
4243          normally needed.  We need to create it here, though, so that the
4244          linker will map it to an output section.  We can't just create it
4245          only if we need it, because we will not know whether we need it
4246          until we have seen all the input files, and the first time the
4247          main linker code calls BFD after examining all the input files
4248          (size_dynamic_sections) the input sections have already been
4249          mapped to the output sections.  If the section turns out not to
4250          be needed, we can discard it later.  We will never need this
4251          section when generating a shared object, since they do not use
4252          copy relocs.  */
4253       if (! info->shared)
4254         {
4255           s = bfd_make_section_with_flags (abfd,
4256                                            (bed->default_use_rela_p
4257                                             ? ".rela.bss" : ".rel.bss"),
4258                                            flags | SEC_READONLY);
4259           if (s == NULL
4260               || ! bfd_set_section_alignment (abfd, s, ptralign))
4261             return FALSE;
4262         }
4263     }
4264
4265   return TRUE;
4266 }
4267 \f
4268 /* Adjust a symbol defined by a dynamic object and referenced by a
4269    regular object.  The current definition is in some section of the
4270    dynamic object, but we're not including those sections.  We have to
4271    change the definition to something the rest of the link can
4272    understand.  */
4273
4274 static bfd_boolean
4275 _bfd_mn10300_elf_adjust_dynamic_symbol (struct bfd_link_info * info,
4276                                         struct elf_link_hash_entry * h)
4277 {
4278   bfd * dynobj;
4279   asection * s;
4280
4281   dynobj = elf_hash_table (info)->dynobj;
4282
4283   /* Make sure we know what is going on here.  */
4284   BFD_ASSERT (dynobj != NULL
4285               && (h->needs_plt
4286                   || h->u.weakdef != NULL
4287                   || (h->def_dynamic
4288                       && h->ref_regular
4289                       && !h->def_regular)));
4290
4291   /* If this is a function, put it in the procedure linkage table.  We
4292      will fill in the contents of the procedure linkage table later,
4293      when we know the address of the .got section.  */
4294   if (h->type == STT_FUNC
4295       || h->needs_plt)
4296     {
4297       if (! info->shared
4298           && !h->def_dynamic
4299           && !h->ref_dynamic)
4300         {
4301           /* This case can occur if we saw a PLT reloc in an input
4302              file, but the symbol was never referred to by a dynamic
4303              object.  In such a case, we don't actually need to build
4304              a procedure linkage table, and we can just do a REL32
4305              reloc instead.  */
4306           BFD_ASSERT (h->needs_plt);
4307           return TRUE;
4308         }
4309
4310       /* Make sure this symbol is output as a dynamic symbol.  */
4311       if (h->dynindx == -1)
4312         {
4313           if (! bfd_elf_link_record_dynamic_symbol (info, h))
4314             return FALSE;
4315         }
4316
4317       s = bfd_get_section_by_name (dynobj, ".plt");
4318       BFD_ASSERT (s != NULL);
4319
4320       /* If this is the first .plt entry, make room for the special
4321          first entry.  */
4322       if (s->size == 0)
4323         s->size += elf_mn10300_sizeof_plt0 (info);
4324
4325       /* If this symbol is not defined in a regular file, and we are
4326          not generating a shared library, then set the symbol to this
4327          location in the .plt.  This is required to make function
4328          pointers compare as equal between the normal executable and
4329          the shared library.  */
4330       if (! info->shared
4331           && !h->def_regular)
4332         {
4333           h->root.u.def.section = s;
4334           h->root.u.def.value = s->size;
4335         }
4336
4337       h->plt.offset = s->size;
4338
4339       /* Make room for this entry.  */
4340       s->size += elf_mn10300_sizeof_plt (info);
4341
4342       /* We also need to make an entry in the .got.plt section, which
4343          will be placed in the .got section by the linker script.  */
4344       s = bfd_get_section_by_name (dynobj, ".got.plt");
4345       BFD_ASSERT (s != NULL);
4346       s->size += 4;
4347
4348       /* We also need to make an entry in the .rela.plt section.  */
4349       s = bfd_get_section_by_name (dynobj, ".rela.plt");
4350       BFD_ASSERT (s != NULL);
4351       s->size += sizeof (Elf32_External_Rela);
4352
4353       return TRUE;
4354     }
4355
4356   /* If this is a weak symbol, and there is a real definition, the
4357      processor independent code will have arranged for us to see the
4358      real definition first, and we can just use the same value.  */
4359   if (h->u.weakdef != NULL)
4360     {
4361       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4362                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
4363       h->root.u.def.section = h->u.weakdef->root.u.def.section;
4364       h->root.u.def.value = h->u.weakdef->root.u.def.value;
4365       return TRUE;
4366     }
4367
4368   /* This is a reference to a symbol defined by a dynamic object which
4369      is not a function.  */
4370
4371   /* If we are creating a shared library, we must presume that the
4372      only references to the symbol are via the global offset table.
4373      For such cases we need not do anything here; the relocations will
4374      be handled correctly by relocate_section.  */
4375   if (info->shared)
4376     return TRUE;
4377
4378   /* If there are no references to this symbol that do not use the
4379      GOT, we don't need to generate a copy reloc.  */
4380   if (!h->non_got_ref)
4381     return TRUE;
4382
4383   if (h->size == 0)
4384     {
4385       (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
4386                              h->root.root.string);
4387       return TRUE;
4388     }
4389
4390   /* We must allocate the symbol in our .dynbss section, which will
4391      become part of the .bss section of the executable.  There will be
4392      an entry for this symbol in the .dynsym section.  The dynamic
4393      object will contain position independent code, so all references
4394      from the dynamic object to this symbol will go through the global
4395      offset table.  The dynamic linker will use the .dynsym entry to
4396      determine the address it must put in the global offset table, so
4397      both the dynamic object and the regular object will refer to the
4398      same memory location for the variable.  */
4399
4400   s = bfd_get_section_by_name (dynobj, ".dynbss");
4401   BFD_ASSERT (s != NULL);
4402
4403   /* We must generate a R_MN10300_COPY reloc to tell the dynamic linker to
4404      copy the initial value out of the dynamic object and into the
4405      runtime process image.  We need to remember the offset into the
4406      .rela.bss section we are going to use.  */
4407   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
4408     {
4409       asection * srel;
4410
4411       srel = bfd_get_section_by_name (dynobj, ".rela.bss");
4412       BFD_ASSERT (srel != NULL);
4413       srel->size += sizeof (Elf32_External_Rela);
4414       h->needs_copy = 1;
4415     }
4416
4417   return _bfd_elf_adjust_dynamic_copy (h, s);
4418 }
4419
4420 /* Set the sizes of the dynamic sections.  */
4421
4422 static bfd_boolean
4423 _bfd_mn10300_elf_size_dynamic_sections (bfd * output_bfd,
4424                                         struct bfd_link_info * info)
4425 {
4426   bfd * dynobj;
4427   asection * s;
4428   bfd_boolean plt;
4429   bfd_boolean relocs;
4430   bfd_boolean reltext;
4431
4432   dynobj = elf_hash_table (info)->dynobj;
4433   BFD_ASSERT (dynobj != NULL);
4434
4435   if (elf_hash_table (info)->dynamic_sections_created)
4436     {
4437       /* Set the contents of the .interp section to the interpreter.  */
4438       if (info->executable)
4439         {
4440           s = bfd_get_section_by_name (dynobj, ".interp");
4441           BFD_ASSERT (s != NULL);
4442           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
4443           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
4444         }
4445     }
4446   else
4447     {
4448       /* We may have created entries in the .rela.got section.
4449          However, if we are not creating the dynamic sections, we will
4450          not actually use these entries.  Reset the size of .rela.got,
4451          which will cause it to get stripped from the output file
4452          below.  */
4453       s = bfd_get_section_by_name (dynobj, ".rela.got");
4454       if (s != NULL)
4455         s->size = 0;
4456     }
4457
4458   /* The check_relocs and adjust_dynamic_symbol entry points have
4459      determined the sizes of the various dynamic sections.  Allocate
4460      memory for them.  */
4461   plt = FALSE;
4462   relocs = FALSE;
4463   reltext = FALSE;
4464   for (s = dynobj->sections; s != NULL; s = s->next)
4465     {
4466       const char * name;
4467
4468       if ((s->flags & SEC_LINKER_CREATED) == 0)
4469         continue;
4470
4471       /* It's OK to base decisions on the section name, because none
4472          of the dynobj section names depend upon the input files.  */
4473       name = bfd_get_section_name (dynobj, s);
4474
4475       if (streq (name, ".plt"))
4476         {
4477           /* Remember whether there is a PLT.  */
4478           plt = s->size != 0;
4479         }
4480       else if (CONST_STRNEQ (name, ".rela"))
4481         {
4482           if (s->size != 0)
4483             {
4484               asection * target;
4485
4486               /* Remember whether there are any reloc sections other
4487                  than .rela.plt.  */
4488               if (! streq (name, ".rela.plt"))
4489                 {
4490                   const char * outname;
4491
4492                   relocs = TRUE;
4493
4494                   /* If this relocation section applies to a read only
4495                      section, then we probably need a DT_TEXTREL
4496                      entry.  The entries in the .rela.plt section
4497                      really apply to the .got section, which we
4498                      created ourselves and so know is not readonly.  */
4499                   outname = bfd_get_section_name (output_bfd,
4500                                                   s->output_section);
4501                   target = bfd_get_section_by_name (output_bfd, outname + 5);
4502                   if (target != NULL
4503                       && (target->flags & SEC_READONLY) != 0
4504                       && (target->flags & SEC_ALLOC) != 0)
4505                     reltext = TRUE;
4506                 }
4507
4508               /* We use the reloc_count field as a counter if we need
4509                  to copy relocs into the output file.  */
4510               s->reloc_count = 0;
4511             }
4512         }
4513       else if (! CONST_STRNEQ (name, ".got")
4514                && ! streq (name, ".dynbss"))
4515         /* It's not one of our sections, so don't allocate space.  */
4516         continue;
4517
4518       if (s->size == 0)
4519         {
4520           /* If we don't need this section, strip it from the
4521              output file.  This is mostly to handle .rela.bss and
4522              .rela.plt.  We must create both sections in
4523              create_dynamic_sections, because they must be created
4524              before the linker maps input sections to output
4525              sections.  The linker does that before
4526              adjust_dynamic_symbol is called, and it is that
4527              function which decides whether anything needs to go
4528              into these sections.  */
4529           s->flags |= SEC_EXCLUDE;
4530           continue;
4531         }
4532
4533         if ((s->flags & SEC_HAS_CONTENTS) == 0)
4534           continue;
4535
4536       /* Allocate memory for the section contents.  We use bfd_zalloc
4537          here in case unused entries are not reclaimed before the
4538          section's contents are written out.  This should not happen,
4539          but this way if it does, we get a R_MN10300_NONE reloc
4540          instead of garbage.  */
4541       s->contents = bfd_zalloc (dynobj, s->size);
4542       if (s->contents == NULL)
4543         return FALSE;
4544     }
4545
4546   if (elf_hash_table (info)->dynamic_sections_created)
4547     {
4548       /* Add some entries to the .dynamic section.  We fill in the
4549          values later, in _bfd_mn10300_elf_finish_dynamic_sections,
4550          but we must add the entries now so that we get the correct
4551          size for the .dynamic section.  The DT_DEBUG entry is filled
4552          in by the dynamic linker and used by the debugger.  */
4553       if (! info->shared)
4554         {
4555           if (!_bfd_elf_add_dynamic_entry (info, DT_DEBUG, 0))
4556             return FALSE;
4557         }
4558
4559       if (plt)
4560         {
4561           if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0)
4562               || !_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
4563               || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_RELA)
4564               || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
4565             return FALSE;
4566         }
4567
4568       if (relocs)
4569         {
4570           if (!_bfd_elf_add_dynamic_entry (info, DT_RELA, 0)
4571               || !_bfd_elf_add_dynamic_entry (info, DT_RELASZ, 0)
4572               || !_bfd_elf_add_dynamic_entry (info, DT_RELAENT,
4573                                               sizeof (Elf32_External_Rela)))
4574             return FALSE;
4575         }
4576
4577       if (reltext)
4578         {
4579           if (!_bfd_elf_add_dynamic_entry (info, DT_TEXTREL, 0))
4580             return FALSE;
4581         }
4582     }
4583
4584   return TRUE;
4585 }
4586
4587 /* Finish up dynamic symbol handling.  We set the contents of various
4588    dynamic sections here.  */
4589
4590 static bfd_boolean
4591 _bfd_mn10300_elf_finish_dynamic_symbol (bfd * output_bfd,
4592                                         struct bfd_link_info * info,
4593                                         struct elf_link_hash_entry * h,
4594                                         Elf_Internal_Sym * sym)
4595 {
4596   bfd * dynobj;
4597
4598   dynobj = elf_hash_table (info)->dynobj;
4599
4600   if (h->plt.offset != (bfd_vma) -1)
4601     {
4602       asection *        splt;
4603       asection *        sgot;
4604       asection *        srel;
4605       bfd_vma           plt_index;
4606       bfd_vma           got_offset;
4607       Elf_Internal_Rela rel;
4608
4609       /* This symbol has an entry in the procedure linkage table.  Set
4610          it up.  */
4611
4612       BFD_ASSERT (h->dynindx != -1);
4613
4614       splt = bfd_get_section_by_name (dynobj, ".plt");
4615       sgot = bfd_get_section_by_name (dynobj, ".got.plt");
4616       srel = bfd_get_section_by_name (dynobj, ".rela.plt");
4617       BFD_ASSERT (splt != NULL && sgot != NULL && srel != NULL);
4618
4619       /* Get the index in the procedure linkage table which
4620          corresponds to this symbol.  This is the index of this symbol
4621          in all the symbols for which we are making plt entries.  The
4622          first entry in the procedure linkage table is reserved.  */
4623       plt_index = ((h->plt.offset - elf_mn10300_sizeof_plt0 (info))
4624                    / elf_mn10300_sizeof_plt (info));
4625
4626       /* Get the offset into the .got table of the entry that
4627          corresponds to this function.  Each .got entry is 4 bytes.
4628          The first three are reserved.  */
4629       got_offset = (plt_index + 3) * 4;
4630
4631       /* Fill in the entry in the procedure linkage table.  */
4632       if (! info->shared)
4633         {
4634           memcpy (splt->contents + h->plt.offset, elf_mn10300_plt_entry,
4635                   elf_mn10300_sizeof_plt (info));
4636           bfd_put_32 (output_bfd,
4637                       (sgot->output_section->vma
4638                        + sgot->output_offset
4639                        + got_offset),
4640                       (splt->contents + h->plt.offset
4641                        + elf_mn10300_plt_symbol_offset (info)));
4642
4643           bfd_put_32 (output_bfd,
4644                       (1 - h->plt.offset - elf_mn10300_plt_plt0_offset (info)),
4645                       (splt->contents + h->plt.offset
4646                        + elf_mn10300_plt_plt0_offset (info)));
4647         }
4648       else
4649         {
4650           memcpy (splt->contents + h->plt.offset, elf_mn10300_pic_plt_entry,
4651                   elf_mn10300_sizeof_plt (info));
4652
4653           bfd_put_32 (output_bfd, got_offset,
4654                       (splt->contents + h->plt.offset
4655                        + elf_mn10300_plt_symbol_offset (info)));
4656         }
4657
4658       bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rela),
4659                   (splt->contents + h->plt.offset
4660                    + elf_mn10300_plt_reloc_offset (info)));
4661
4662       /* Fill in the entry in the global offset table.  */
4663       bfd_put_32 (output_bfd,
4664                   (splt->output_section->vma
4665                    + splt->output_offset
4666                    + h->plt.offset
4667                    + elf_mn10300_plt_temp_offset (info)),
4668                   sgot->contents + got_offset);
4669
4670       /* Fill in the entry in the .rela.plt section.  */
4671       rel.r_offset = (sgot->output_section->vma
4672                       + sgot->output_offset
4673                       + got_offset);
4674       rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_JMP_SLOT);
4675       rel.r_addend = 0;
4676       bfd_elf32_swap_reloca_out (output_bfd, &rel,
4677                                  (bfd_byte *) ((Elf32_External_Rela *) srel->contents
4678                                                + plt_index));
4679
4680       if (!h->def_regular)
4681         /* Mark the symbol as undefined, rather than as defined in
4682            the .plt section.  Leave the value alone.  */
4683         sym->st_shndx = SHN_UNDEF;
4684     }
4685
4686   if (h->got.offset != (bfd_vma) -1)
4687     {
4688       asection *        sgot;
4689       asection *        srel;
4690       Elf_Internal_Rela rel;
4691
4692       /* This symbol has an entry in the global offset table.  Set it up.  */
4693       sgot = bfd_get_section_by_name (dynobj, ".got");
4694       srel = bfd_get_section_by_name (dynobj, ".rela.got");
4695       BFD_ASSERT (sgot != NULL && srel != NULL);
4696
4697       rel.r_offset = (sgot->output_section->vma
4698                       + sgot->output_offset
4699                       + (h->got.offset & ~1));
4700
4701       /* If this is a -Bsymbolic link, and the symbol is defined
4702          locally, we just want to emit a RELATIVE reloc.  Likewise if
4703          the symbol was forced to be local because of a version file.
4704          The entry in the global offset table will already have been
4705          initialized in the relocate_section function.  */
4706       if (info->shared
4707           && (info->symbolic || h->dynindx == -1)
4708           && h->def_regular)
4709         {
4710           rel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
4711           rel.r_addend = (h->root.u.def.value
4712                           + h->root.u.def.section->output_section->vma
4713                           + h->root.u.def.section->output_offset);
4714         }
4715       else
4716         {
4717           bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
4718           rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_GLOB_DAT);
4719           rel.r_addend = 0;
4720         }
4721
4722       bfd_elf32_swap_reloca_out (output_bfd, &rel,
4723                                  (bfd_byte *) ((Elf32_External_Rela *) srel->contents
4724                                                + srel->reloc_count));
4725       ++ srel->reloc_count;
4726     }
4727
4728   if (h->needs_copy)
4729     {
4730       asection *        s;
4731       Elf_Internal_Rela rel;
4732
4733       /* This symbol needs a copy reloc.  Set it up.  */
4734       BFD_ASSERT (h->dynindx != -1
4735                   && (h->root.type == bfd_link_hash_defined
4736                       || h->root.type == bfd_link_hash_defweak));
4737
4738       s = bfd_get_section_by_name (h->root.u.def.section->owner,
4739                                    ".rela.bss");
4740       BFD_ASSERT (s != NULL);
4741
4742       rel.r_offset = (h->root.u.def.value
4743                       + h->root.u.def.section->output_section->vma
4744                       + h->root.u.def.section->output_offset);
4745       rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_COPY);
4746       rel.r_addend = 0;
4747       bfd_elf32_swap_reloca_out (output_bfd, & rel,
4748                                  (bfd_byte *) ((Elf32_External_Rela *) s->contents
4749                                                + s->reloc_count));
4750       ++ s->reloc_count;
4751     }
4752
4753   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  */
4754   if (streq (h->root.root.string, "_DYNAMIC")
4755       || h == elf_hash_table (info)->hgot)
4756     sym->st_shndx = SHN_ABS;
4757
4758   return TRUE;
4759 }
4760
4761 /* Finish up the dynamic sections.  */
4762
4763 static bfd_boolean
4764 _bfd_mn10300_elf_finish_dynamic_sections (bfd * output_bfd,
4765                                           struct bfd_link_info * info)
4766 {
4767   bfd *      dynobj;
4768   asection * sgot;
4769   asection * sdyn;
4770
4771   dynobj = elf_hash_table (info)->dynobj;
4772
4773   sgot = bfd_get_section_by_name (dynobj, ".got.plt");
4774   BFD_ASSERT (sgot != NULL);
4775   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4776
4777   if (elf_hash_table (info)->dynamic_sections_created)
4778     {
4779       asection *           splt;
4780       Elf32_External_Dyn * dyncon;
4781       Elf32_External_Dyn * dynconend;
4782
4783       BFD_ASSERT (sdyn != NULL);
4784
4785       dyncon = (Elf32_External_Dyn *) sdyn->contents;
4786       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4787
4788       for (; dyncon < dynconend; dyncon++)
4789         {
4790           Elf_Internal_Dyn dyn;
4791           const char * name;
4792           asection * s;
4793
4794           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4795
4796           switch (dyn.d_tag)
4797             {
4798             default:
4799               break;
4800
4801             case DT_PLTGOT:
4802               name = ".got";
4803               goto get_vma;
4804
4805             case DT_JMPREL:
4806               name = ".rela.plt";
4807             get_vma:
4808               s = bfd_get_section_by_name (output_bfd, name);
4809               BFD_ASSERT (s != NULL);
4810               dyn.d_un.d_ptr = s->vma;
4811               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4812               break;
4813
4814             case DT_PLTRELSZ:
4815               s = bfd_get_section_by_name (output_bfd, ".rela.plt");
4816               BFD_ASSERT (s != NULL);
4817               dyn.d_un.d_val = s->size;
4818               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4819               break;
4820
4821             case DT_RELASZ:
4822               /* My reading of the SVR4 ABI indicates that the
4823                  procedure linkage table relocs (DT_JMPREL) should be
4824                  included in the overall relocs (DT_RELA).  This is
4825                  what Solaris does.  However, UnixWare can not handle
4826                  that case.  Therefore, we override the DT_RELASZ entry
4827                  here to make it not include the JMPREL relocs.  Since
4828                  the linker script arranges for .rela.plt to follow all
4829                  other relocation sections, we don't have to worry
4830                  about changing the DT_RELA entry.  */
4831               s = bfd_get_section_by_name (output_bfd, ".rela.plt");
4832               if (s != NULL)
4833                 dyn.d_un.d_val -= s->size;
4834               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4835               break;
4836             }
4837         }
4838
4839       /* Fill in the first entry in the procedure linkage table.  */
4840       splt = bfd_get_section_by_name (dynobj, ".plt");
4841       if (splt && splt->size > 0)
4842         {
4843           if (info->shared)
4844             {
4845               memcpy (splt->contents, elf_mn10300_pic_plt_entry,
4846                       elf_mn10300_sizeof_plt (info));
4847             }
4848           else
4849             {
4850               memcpy (splt->contents, elf_mn10300_plt0_entry, PLT0_ENTRY_SIZE);
4851               bfd_put_32 (output_bfd,
4852                           sgot->output_section->vma + sgot->output_offset + 4,
4853                           splt->contents + elf_mn10300_plt0_gotid_offset (info));
4854               bfd_put_32 (output_bfd,
4855                           sgot->output_section->vma + sgot->output_offset + 8,
4856                           splt->contents + elf_mn10300_plt0_linker_offset (info));
4857             }
4858
4859           /* UnixWare sets the entsize of .plt to 4, although that doesn't
4860              really seem like the right value.  */
4861           elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
4862         }
4863     }
4864
4865   /* Fill in the first three entries in the global offset table.  */
4866   if (sgot->size > 0)
4867     {
4868       if (sdyn == NULL)
4869         bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
4870       else
4871         bfd_put_32 (output_bfd,
4872                     sdyn->output_section->vma + sdyn->output_offset,
4873                     sgot->contents);
4874       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
4875       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
4876     }
4877
4878   elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
4879
4880   return TRUE;
4881 }
4882
4883 /* Classify relocation types, such that combreloc can sort them
4884    properly.  */
4885
4886 static enum elf_reloc_type_class
4887 _bfd_mn10300_elf_reloc_type_class (const Elf_Internal_Rela *rela)
4888 {
4889   switch ((int) ELF32_R_TYPE (rela->r_info))
4890     {
4891     case R_MN10300_RELATIVE:    return reloc_class_relative;
4892     case R_MN10300_JMP_SLOT:    return reloc_class_plt;
4893     case R_MN10300_COPY:        return reloc_class_copy;
4894     default:                    return reloc_class_normal;
4895     }
4896 }
4897
4898 #ifndef ELF_ARCH
4899 #define TARGET_LITTLE_SYM       bfd_elf32_mn10300_vec
4900 #define TARGET_LITTLE_NAME      "elf32-mn10300"
4901 #define ELF_ARCH                bfd_arch_mn10300
4902 #define ELF_MACHINE_CODE        EM_MN10300
4903 #define ELF_MACHINE_ALT1        EM_CYGNUS_MN10300
4904 #define ELF_MAXPAGESIZE         0x1000
4905 #endif
4906
4907 #define elf_info_to_howto               mn10300_info_to_howto
4908 #define elf_info_to_howto_rel           0
4909 #define elf_backend_can_gc_sections     1
4910 #define elf_backend_rela_normal         1
4911 #define elf_backend_check_relocs        mn10300_elf_check_relocs
4912 #define elf_backend_gc_mark_hook        mn10300_elf_gc_mark_hook
4913 #define elf_backend_relocate_section    mn10300_elf_relocate_section
4914 #define bfd_elf32_bfd_relax_section     mn10300_elf_relax_section
4915 #define bfd_elf32_bfd_get_relocated_section_contents \
4916                                 mn10300_elf_get_relocated_section_contents
4917 #define bfd_elf32_bfd_link_hash_table_create \
4918                                 elf32_mn10300_link_hash_table_create
4919 #define bfd_elf32_bfd_link_hash_table_free \
4920                                 elf32_mn10300_link_hash_table_free
4921
4922 #ifndef elf_symbol_leading_char
4923 #define elf_symbol_leading_char '_'
4924 #endif
4925
4926 /* So we can set bits in e_flags.  */
4927 #define elf_backend_final_write_processing \
4928                                         _bfd_mn10300_elf_final_write_processing
4929 #define elf_backend_object_p            _bfd_mn10300_elf_object_p
4930
4931 #define bfd_elf32_bfd_merge_private_bfd_data \
4932                                         _bfd_mn10300_elf_merge_private_bfd_data
4933
4934 #define elf_backend_can_gc_sections     1
4935 #define elf_backend_create_dynamic_sections \
4936   _bfd_mn10300_elf_create_dynamic_sections
4937 #define elf_backend_adjust_dynamic_symbol \
4938   _bfd_mn10300_elf_adjust_dynamic_symbol
4939 #define elf_backend_size_dynamic_sections \
4940   _bfd_mn10300_elf_size_dynamic_sections
4941 #define elf_backend_omit_section_dynsym \
4942   ((bfd_boolean (*) (bfd *, struct bfd_link_info *, asection *)) bfd_true)
4943 #define elf_backend_finish_dynamic_symbol \
4944   _bfd_mn10300_elf_finish_dynamic_symbol
4945 #define elf_backend_finish_dynamic_sections \
4946   _bfd_mn10300_elf_finish_dynamic_sections
4947
4948 #define elf_backend_reloc_type_class \
4949   _bfd_mn10300_elf_reloc_type_class
4950
4951 #define elf_backend_want_got_plt        1
4952 #define elf_backend_plt_readonly        1
4953 #define elf_backend_want_plt_sym        0
4954 #define elf_backend_got_header_size     12
4955
4956 #include "elf32-target.h"