tc-i960.c: add some casts when assigning literals to args[i]
[external/binutils.git] / bfd / elf32-microblaze.c
1 /* Xilinx MicroBlaze-specific support for 32-bit ELF
2
3    Copyright (C) 2009-2016 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
19    Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
20    Boston, MA 02110-1301, USA.  */
21
22
23 int dbg = 0;
24
25 #include "sysdep.h"
26 #include "bfd.h"
27 #include "bfdlink.h"
28 #include "libbfd.h"
29 #include "elf-bfd.h"
30 #include "elf/microblaze.h"
31 #include <assert.h>
32
33 #define USE_RELA        /* Only USE_REL is actually significant, but this is
34                            here are a reminder...  */
35 #define INST_WORD_SIZE 4
36
37 static int ro_small_data_pointer = 0;
38 static int rw_small_data_pointer = 0;
39
40 static reloc_howto_type * microblaze_elf_howto_table [(int) R_MICROBLAZE_max];
41
42 static reloc_howto_type microblaze_elf_howto_raw[] =
43 {
44    /* This reloc does nothing.  */
45    HOWTO (R_MICROBLAZE_NONE,    /* Type.  */
46           0,                    /* Rightshift.  */
47           3,                    /* Size (0 = byte, 1 = short, 2 = long).  */
48           0,                    /* Bitsize.  */
49           FALSE,                /* PC_relative.  */
50           0,                    /* Bitpos.  */
51           complain_overflow_dont,  /* Complain on overflow.  */
52           NULL,                  /* Special Function.  */
53           "R_MICROBLAZE_NONE",  /* Name.  */
54           FALSE,                /* Partial Inplace.  */
55           0,                    /* Source Mask.  */
56           0,                    /* Dest Mask.  */
57           FALSE),               /* PC relative offset?  */
58
59    /* A standard 32 bit relocation.  */
60    HOWTO (R_MICROBLAZE_32,      /* Type.  */
61           0,                    /* Rightshift.  */
62           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
63           32,                   /* Bitsize.  */
64           FALSE,                /* PC_relative.  */
65           0,                    /* Bitpos.  */
66           complain_overflow_bitfield, /* Complain on overflow.  */
67           bfd_elf_generic_reloc,/* Special Function.  */
68           "R_MICROBLAZE_32",    /* Name.  */
69           FALSE,                /* Partial Inplace.  */
70           0,                    /* Source Mask.  */
71           0xffffffff,           /* Dest Mask.  */
72           FALSE),               /* PC relative offset?  */
73
74    /* A standard PCREL 32 bit relocation.  */
75    HOWTO (R_MICROBLAZE_32_PCREL,/* Type.  */
76           0,                    /* Rightshift.  */
77           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
78           32,                   /* Bitsize.  */
79           TRUE,                 /* PC_relative.  */
80           0,                    /* Bitpos.  */
81           complain_overflow_bitfield, /* Complain on overflow.  */
82           bfd_elf_generic_reloc,/* Special Function.  */
83           "R_MICROBLAZE_32_PCREL",      /* Name.  */
84           TRUE,                 /* Partial Inplace.  */
85           0,                    /* Source Mask.  */
86           0xffffffff,           /* Dest Mask.  */
87           TRUE),                /* PC relative offset?  */
88
89    /* A 64 bit PCREL relocation.  Table-entry not really used.  */
90    HOWTO (R_MICROBLAZE_64_PCREL,/* Type.  */
91           0,                    /* Rightshift.  */
92           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
93           16,                   /* Bitsize.  */
94           TRUE,                 /* PC_relative.  */
95           0,                    /* Bitpos.  */
96           complain_overflow_dont, /* Complain on overflow.  */
97           bfd_elf_generic_reloc,/* Special Function.  */
98           "R_MICROBLAZE_64_PCREL",      /* Name.  */
99           FALSE,                /* Partial Inplace.  */
100           0,                    /* Source Mask.  */
101           0x0000ffff,           /* Dest Mask.  */
102           TRUE),                /* PC relative offset?  */
103
104    /* The low half of a PCREL 32 bit relocation.  */
105    HOWTO (R_MICROBLAZE_32_PCREL_LO,     /* Type.  */
106           0,                    /* Rightshift.  */
107           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
108           16,                   /* Bitsize.  */
109           TRUE,                 /* PC_relative.  */
110           0,                    /* Bitpos.  */
111           complain_overflow_signed, /* Complain on overflow.  */
112           bfd_elf_generic_reloc,        /* Special Function.  */
113           "R_MICROBLAZE_32_PCREL_LO",   /* Name.  */
114           FALSE,                /* Partial Inplace.  */
115           0,                    /* Source Mask.  */
116           0x0000ffff,           /* Dest Mask.  */
117           TRUE),                /* PC relative offset?  */
118
119    /* A 64 bit relocation.  Table entry not really used.  */
120    HOWTO (R_MICROBLAZE_64,      /* Type.  */
121           0,                    /* Rightshift.  */
122           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
123           16,                   /* Bitsize.  */
124           FALSE,                /* PC_relative.  */
125           0,                    /* Bitpos.  */
126           complain_overflow_dont, /* Complain on overflow.  */
127           bfd_elf_generic_reloc,/* Special Function.  */
128           "R_MICROBLAZE_64",    /* Name.  */
129           FALSE,                /* Partial Inplace.  */
130           0,                    /* Source Mask.  */
131           0x0000ffff,           /* Dest Mask.  */
132           FALSE),               /* PC relative offset?  */
133
134    /* The low half of a 32 bit relocation.  */
135    HOWTO (R_MICROBLAZE_32_LO,   /* Type.  */
136           0,                    /* Rightshift.  */
137           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
138           16,                   /* Bitsize.  */
139           FALSE,                /* PC_relative.  */
140           0,                    /* Bitpos.  */
141           complain_overflow_signed, /* Complain on overflow.  */
142           bfd_elf_generic_reloc,/* Special Function.  */
143           "R_MICROBLAZE_32_LO", /* Name.  */
144           FALSE,                /* Partial Inplace.  */
145           0,                    /* Source Mask.  */
146           0x0000ffff,           /* Dest Mask.  */
147           FALSE),               /* PC relative offset?  */
148
149    /* Read-only small data section relocation.  */
150    HOWTO (R_MICROBLAZE_SRO32,   /* Type.  */
151           0,                    /* Rightshift.  */
152           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
153           16,                   /* Bitsize.  */
154           FALSE,                /* PC_relative.  */
155           0,                    /* Bitpos.  */
156           complain_overflow_bitfield, /* Complain on overflow.  */
157           bfd_elf_generic_reloc,/* Special Function.  */
158           "R_MICROBLAZE_SRO32", /* Name.  */
159           FALSE,                /* Partial Inplace.  */
160           0,                    /* Source Mask.  */
161           0x0000ffff,           /* Dest Mask.  */
162           FALSE),               /* PC relative offset?  */
163
164    /* Read-write small data area relocation.  */
165    HOWTO (R_MICROBLAZE_SRW32,   /* Type.  */
166           0,                    /* Rightshift.  */
167           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
168           16,                   /* Bitsize.  */
169           FALSE,                /* PC_relative.  */
170           0,                    /* Bitpos.  */
171           complain_overflow_bitfield, /* Complain on overflow.  */
172           bfd_elf_generic_reloc,/* Special Function.  */
173           "R_MICROBLAZE_SRW32", /* Name.  */
174           FALSE,                /* Partial Inplace.  */
175           0,                    /* Source Mask.  */
176           0x0000ffff,           /* Dest Mask.  */
177           FALSE),               /* PC relative offset?  */
178
179    /* This reloc does nothing.  Used for relaxation.  */
180    HOWTO (R_MICROBLAZE_64_NONE, /* Type.  */
181           0,                    /* Rightshift.  */
182           3,                    /* Size (0 = byte, 1 = short, 2 = long).  */
183           0,                    /* Bitsize.  */
184           TRUE,                 /* PC_relative.  */
185           0,                    /* Bitpos.  */
186           complain_overflow_dont, /* Complain on overflow.  */
187           NULL,                  /* Special Function.  */
188           "R_MICROBLAZE_64_NONE",/* Name.  */
189           FALSE,                /* Partial Inplace.  */
190           0,                    /* Source Mask.  */
191           0,                    /* Dest Mask.  */
192           FALSE),               /* PC relative offset?  */
193
194    /* Symbol Op Symbol relocation.  */
195    HOWTO (R_MICROBLAZE_32_SYM_OP_SYM,           /* Type.  */
196           0,                    /* Rightshift.  */
197           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
198           32,                   /* Bitsize.  */
199           FALSE,                /* PC_relative.  */
200           0,                    /* Bitpos.  */
201           complain_overflow_bitfield, /* Complain on overflow.  */
202           bfd_elf_generic_reloc,/* Special Function.  */
203           "R_MICROBLAZE_32_SYM_OP_SYM",         /* Name.  */
204           FALSE,                /* Partial Inplace.  */
205           0,                    /* Source Mask.  */
206           0xffffffff,           /* Dest Mask.  */
207           FALSE),               /* PC relative offset?  */
208
209    /* GNU extension to record C++ vtable hierarchy.  */
210    HOWTO (R_MICROBLAZE_GNU_VTINHERIT, /* Type.  */
211           0,                     /* Rightshift.  */
212           2,                     /* Size (0 = byte, 1 = short, 2 = long).  */
213           0,                     /* Bitsize.  */
214           FALSE,                 /* PC_relative.  */
215           0,                     /* Bitpos.  */
216           complain_overflow_dont,/* Complain on overflow.  */
217           NULL,                  /* Special Function.  */
218           "R_MICROBLAZE_GNU_VTINHERIT", /* Name.  */
219           FALSE,                 /* Partial Inplace.  */
220           0,                     /* Source Mask.  */
221           0,                     /* Dest Mask.  */
222           FALSE),                /* PC relative offset?  */
223
224    /* GNU extension to record C++ vtable member usage.  */
225    HOWTO (R_MICROBLAZE_GNU_VTENTRY,   /* Type.  */
226           0,                     /* Rightshift.  */
227           2,                     /* Size (0 = byte, 1 = short, 2 = long).  */
228           0,                     /* Bitsize.  */
229           FALSE,                 /* PC_relative.  */
230           0,                     /* Bitpos.  */
231           complain_overflow_dont,/* Complain on overflow.  */
232           _bfd_elf_rel_vtable_reloc_fn,  /* Special Function.  */
233           "R_MICROBLAZE_GNU_VTENTRY", /* Name.  */
234           FALSE,                 /* Partial Inplace.  */
235           0,                     /* Source Mask.  */
236           0,                     /* Dest Mask.  */
237           FALSE),                /* PC relative offset?  */
238
239    /* A 64 bit GOTPC relocation.  Table-entry not really used.  */
240    HOWTO (R_MICROBLAZE_GOTPC_64,        /* Type.  */
241           0,                    /* Rightshift.  */
242           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
243           16,                   /* Bitsize.  */
244           TRUE,                 /* PC_relative.  */
245           0,                    /* Bitpos.  */
246           complain_overflow_dont, /* Complain on overflow.  */
247           bfd_elf_generic_reloc,        /* Special Function.  */
248           "R_MICROBLAZE_GOTPC_64",      /* Name.  */
249           FALSE,                /* Partial Inplace.  */
250           0,                    /* Source Mask.  */
251           0x0000ffff,           /* Dest Mask.  */
252           TRUE),                /* PC relative offset?  */
253
254    /* A 64 bit GOT relocation.  Table-entry not really used.  */
255    HOWTO (R_MICROBLAZE_GOT_64,  /* Type.  */
256           0,                    /* Rightshift.  */
257           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
258           16,                   /* Bitsize.  */
259           FALSE,                /* PC_relative.  */
260           0,                    /* Bitpos.  */
261           complain_overflow_dont, /* Complain on overflow.  */
262           bfd_elf_generic_reloc,/* Special Function.  */
263           "R_MICROBLAZE_GOT_64",/* Name.  */
264           FALSE,                /* Partial Inplace.  */
265           0,                    /* Source Mask.  */
266           0x0000ffff,           /* Dest Mask.  */
267           FALSE),               /* PC relative offset?  */
268
269    /* A 64 bit PLT relocation.  Table-entry not really used.  */
270    HOWTO (R_MICROBLAZE_PLT_64,  /* Type.  */
271           0,                    /* Rightshift.  */
272           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
273           16,                   /* Bitsize.  */
274           TRUE,                 /* PC_relative.  */
275           0,                    /* Bitpos.  */
276           complain_overflow_dont, /* Complain on overflow.  */
277           bfd_elf_generic_reloc,/* Special Function.  */
278           "R_MICROBLAZE_PLT_64",/* Name.  */
279           FALSE,                /* Partial Inplace.  */
280           0,                    /* Source Mask.  */
281           0x0000ffff,           /* Dest Mask.  */
282           TRUE),                /* PC relative offset?  */
283
284    /*  Table-entry not really used.  */
285    HOWTO (R_MICROBLAZE_REL,     /* Type.  */
286           0,                    /* Rightshift.  */
287           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
288           16,                   /* Bitsize.  */
289           TRUE,                 /* PC_relative.  */
290           0,                    /* Bitpos.  */
291           complain_overflow_dont, /* Complain on overflow.  */
292           bfd_elf_generic_reloc,/* Special Function.  */
293           "R_MICROBLAZE_REL",   /* Name.  */
294           FALSE,                /* Partial Inplace.  */
295           0,                    /* Source Mask.  */
296           0x0000ffff,           /* Dest Mask.  */
297           TRUE),                /* PC relative offset?  */
298
299    /*  Table-entry not really used.  */
300    HOWTO (R_MICROBLAZE_JUMP_SLOT,/* Type.  */
301           0,                    /* Rightshift.  */
302           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
303           16,                   /* Bitsize.  */
304           TRUE,                 /* PC_relative.  */
305           0,                    /* Bitpos.  */
306           complain_overflow_dont, /* Complain on overflow.  */
307           bfd_elf_generic_reloc,/* Special Function.  */
308           "R_MICROBLAZE_JUMP_SLOT",     /* Name.  */
309           FALSE,                /* Partial Inplace.  */
310           0,                    /* Source Mask.  */
311           0x0000ffff,           /* Dest Mask.  */
312           TRUE),                /* PC relative offset?  */
313
314    /*  Table-entry not really used.  */
315    HOWTO (R_MICROBLAZE_GLOB_DAT,/* Type.  */
316           0,                    /* Rightshift.  */
317           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
318           16,                   /* Bitsize.  */
319           TRUE,                 /* PC_relative.  */
320           0,                    /* Bitpos.  */
321           complain_overflow_dont, /* Complain on overflow.  */
322           bfd_elf_generic_reloc,/* Special Function.  */
323           "R_MICROBLAZE_GLOB_DAT",      /* Name.  */
324           FALSE,                /* Partial Inplace.  */
325           0,                    /* Source Mask.  */
326           0x0000ffff,           /* Dest Mask.  */
327           TRUE),                /* PC relative offset?  */
328
329    /* A 64 bit GOT relative relocation.  Table-entry not really used.  */
330    HOWTO (R_MICROBLAZE_GOTOFF_64,       /* Type.  */
331           0,                    /* Rightshift.  */
332           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
333           16,                   /* Bitsize.  */
334           FALSE,                /* PC_relative.  */
335           0,                    /* Bitpos.  */
336           complain_overflow_dont, /* Complain on overflow.  */
337           bfd_elf_generic_reloc,/* Special Function.  */
338           "R_MICROBLAZE_GOTOFF_64",     /* Name.  */
339           FALSE,                /* Partial Inplace.  */
340           0,                    /* Source Mask.  */
341           0x0000ffff,           /* Dest Mask.  */
342           FALSE),               /* PC relative offset?  */
343
344    /* A 32 bit GOT relative relocation.  Table-entry not really used.  */
345    HOWTO (R_MICROBLAZE_GOTOFF_32,       /* Type.  */
346           0,                    /* Rightshift.  */
347           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
348           16,                   /* Bitsize.  */
349           FALSE,                /* PC_relative.  */
350           0,                    /* Bitpos.  */
351           complain_overflow_dont, /* Complain on overflow.  */
352           bfd_elf_generic_reloc,        /* Special Function.  */
353           "R_MICROBLAZE_GOTOFF_32",     /* Name.  */
354           FALSE,                /* Partial Inplace.  */
355           0,                    /* Source Mask.  */
356           0x0000ffff,           /* Dest Mask.  */
357           FALSE),               /* PC relative offset?  */
358
359    /* COPY relocation.  Table-entry not really used.  */
360    HOWTO (R_MICROBLAZE_COPY,    /* Type.  */
361           0,                    /* Rightshift.  */
362           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
363           16,                   /* Bitsize.  */
364           FALSE,                /* PC_relative.  */
365           0,                    /* Bitpos.  */
366           complain_overflow_dont, /* Complain on overflow.  */
367           bfd_elf_generic_reloc,/* Special Function.  */
368           "R_MICROBLAZE_COPY",  /* Name.  */
369           FALSE,                /* Partial Inplace.  */
370           0,                    /* Source Mask.  */
371           0x0000ffff,           /* Dest Mask.  */
372           FALSE),               /* PC relative offset?  */
373
374    /* Marker relocs for TLS.  */
375    HOWTO (R_MICROBLAZE_TLS,
376          0,                     /* rightshift */
377          2,                     /* size (0 = byte, 1 = short, 2 = long) */
378          32,                    /* bitsize */
379          FALSE,                 /* pc_relative */
380          0,                     /* bitpos */
381          complain_overflow_dont, /* complain_on_overflow */
382          bfd_elf_generic_reloc, /* special_function */
383          "R_MICROBLAZE_TLS",            /* name */
384          FALSE,                 /* partial_inplace */
385          0,                     /* src_mask */
386          0x0000ffff,                    /* dst_mask */
387          FALSE),                /* pcrel_offset */
388
389    HOWTO (R_MICROBLAZE_TLSGD,
390          0,                     /* rightshift */
391          2,                     /* size (0 = byte, 1 = short, 2 = long) */
392          32,                    /* bitsize */
393          FALSE,                 /* pc_relative */
394          0,                     /* bitpos */
395          complain_overflow_dont, /* complain_on_overflow */
396          bfd_elf_generic_reloc, /* special_function */
397          "R_MICROBLAZE_TLSGD",          /* name */
398          FALSE,                 /* partial_inplace */
399          0,                     /* src_mask */
400          0x0000ffff,                    /* dst_mask */
401          FALSE),                /* pcrel_offset */
402
403    HOWTO (R_MICROBLAZE_TLSLD,
404          0,                     /* rightshift */
405          2,                     /* size (0 = byte, 1 = short, 2 = long) */
406          32,                    /* bitsize */
407          FALSE,                 /* pc_relative */
408          0,                     /* bitpos */
409          complain_overflow_dont, /* complain_on_overflow */
410          bfd_elf_generic_reloc, /* special_function */
411          "R_MICROBLAZE_TLSLD",          /* name */
412          FALSE,                 /* partial_inplace */
413          0,                     /* src_mask */
414          0x0000ffff,            /* dst_mask */
415          FALSE),                /* pcrel_offset */
416
417    /* Computes the load module index of the load module that contains the
418       definition of its TLS sym.  */
419    HOWTO (R_MICROBLAZE_TLSDTPMOD32,
420          0,                     /* rightshift */
421          2,                     /* size (0 = byte, 1 = short, 2 = long) */
422          32,                    /* bitsize */
423          FALSE,                 /* pc_relative */
424          0,                     /* bitpos */
425          complain_overflow_dont, /* complain_on_overflow */
426          bfd_elf_generic_reloc, /* special_function */
427          "R_MICROBLAZE_TLSDTPMOD32",    /* name */
428          FALSE,                 /* partial_inplace */
429          0,                     /* src_mask */
430          0x0000ffff,            /* dst_mask */
431          FALSE),                /* pcrel_offset */
432
433    /* Computes a dtv-relative displacement, the difference between the value
434       of sym+add and the base address of the thread-local storage block that
435       contains the definition of sym, minus 0x8000.  Used for initializing GOT */
436    HOWTO (R_MICROBLAZE_TLSDTPREL32,
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_dont, /* complain_on_overflow */
443          bfd_elf_generic_reloc, /* special_function */
444          "R_MICROBLAZE_TLSDTPREL32",    /* name */
445          FALSE,                 /* partial_inplace */
446          0,                     /* src_mask */
447          0x0000ffff,            /* dst_mask */
448          FALSE),                /* pcrel_offset */
449
450    /* Computes a dtv-relative displacement, the difference between the value
451       of sym+add and the base address of the thread-local storage block that
452       contains the definition of sym, minus 0x8000.  */
453    HOWTO (R_MICROBLAZE_TLSDTPREL64,
454          0,                     /* rightshift */
455          2,                     /* size (0 = byte, 1 = short, 2 = long) */
456          32,                    /* bitsize */
457          FALSE,                 /* pc_relative */
458          0,                     /* bitpos */
459          complain_overflow_dont, /* complain_on_overflow */
460          bfd_elf_generic_reloc, /* special_function */
461          "R_MICROBLAZE_TLSDTPREL64",    /* name */
462          FALSE,                 /* partial_inplace */
463          0,                     /* src_mask */
464          0x0000ffff,            /* dst_mask */
465          FALSE),                /* pcrel_offset */
466
467    /* Computes a tp-relative displacement, the difference between the value of
468       sym+add and the value of the thread pointer (r13).  */
469    HOWTO (R_MICROBLAZE_TLSGOTTPREL32,
470          0,                     /* rightshift */
471          2,                     /* size (0 = byte, 1 = short, 2 = long) */
472          32,                    /* bitsize */
473          FALSE,                 /* pc_relative */
474          0,                     /* bitpos */
475          complain_overflow_dont, /* complain_on_overflow */
476          bfd_elf_generic_reloc, /* special_function */
477          "R_MICROBLAZE_TLSGOTTPREL32",  /* name */
478          FALSE,                 /* partial_inplace */
479          0,                     /* src_mask */
480          0x0000ffff,            /* dst_mask */
481          FALSE),                /* pcrel_offset */
482
483    /* Computes a tp-relative displacement, the difference between the value of
484       sym+add and the value of the thread pointer (r13).  */
485    HOWTO (R_MICROBLAZE_TLSTPREL32,
486          0,                     /* rightshift */
487          2,                     /* size (0 = byte, 1 = short, 2 = long) */
488          32,                    /* bitsize */
489          FALSE,                 /* pc_relative */
490          0,                     /* bitpos */
491          complain_overflow_dont, /* complain_on_overflow */
492          bfd_elf_generic_reloc, /* special_function */
493          "R_MICROBLAZE_TLSTPREL32",     /* name */
494          FALSE,                 /* partial_inplace */
495          0,                     /* src_mask */
496          0x0000ffff,            /* dst_mask */
497          FALSE),                /* pcrel_offset */
498
499 };
500
501 #ifndef NUM_ELEM
502 #define NUM_ELEM(a) (sizeof (a) / sizeof (a)[0])
503 #endif
504 \f
505 /* Initialize the microblaze_elf_howto_table, so that linear accesses can be done.  */
506
507 static void
508 microblaze_elf_howto_init (void)
509 {
510   unsigned int i;
511
512   for (i = NUM_ELEM (microblaze_elf_howto_raw); i--;)
513     {
514       unsigned int type;
515
516       type = microblaze_elf_howto_raw[i].type;
517
518       BFD_ASSERT (type < NUM_ELEM (microblaze_elf_howto_table));
519
520       microblaze_elf_howto_table [type] = & microblaze_elf_howto_raw [i];
521     }
522 }
523 \f
524 static reloc_howto_type *
525 microblaze_elf_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
526                                   bfd_reloc_code_real_type code)
527 {
528   enum elf_microblaze_reloc_type microblaze_reloc = R_MICROBLAZE_NONE;
529
530   switch (code)
531     {
532     case BFD_RELOC_NONE:
533       microblaze_reloc = R_MICROBLAZE_NONE;
534       break;
535     case BFD_RELOC_MICROBLAZE_64_NONE:
536       microblaze_reloc = R_MICROBLAZE_64_NONE;
537       break;
538     case BFD_RELOC_32:
539       microblaze_reloc = R_MICROBLAZE_32;
540       break;
541       /* RVA is treated the same as 32 */
542     case BFD_RELOC_RVA:
543       microblaze_reloc = R_MICROBLAZE_32;
544       break;
545     case BFD_RELOC_32_PCREL:
546       microblaze_reloc = R_MICROBLAZE_32_PCREL;
547       break;
548     case BFD_RELOC_64_PCREL:
549       microblaze_reloc = R_MICROBLAZE_64_PCREL;
550       break;
551     case BFD_RELOC_MICROBLAZE_32_LO_PCREL:
552       microblaze_reloc = R_MICROBLAZE_32_PCREL_LO;
553       break;
554     case BFD_RELOC_64:
555       microblaze_reloc = R_MICROBLAZE_64;
556       break;
557     case BFD_RELOC_MICROBLAZE_32_LO:
558       microblaze_reloc = R_MICROBLAZE_32_LO;
559       break;
560     case BFD_RELOC_MICROBLAZE_32_ROSDA:
561       microblaze_reloc = R_MICROBLAZE_SRO32;
562       break;
563     case BFD_RELOC_MICROBLAZE_32_RWSDA:
564       microblaze_reloc = R_MICROBLAZE_SRW32;
565       break;
566     case BFD_RELOC_MICROBLAZE_32_SYM_OP_SYM:
567       microblaze_reloc = R_MICROBLAZE_32_SYM_OP_SYM;
568       break;
569     case BFD_RELOC_VTABLE_INHERIT:
570       microblaze_reloc = R_MICROBLAZE_GNU_VTINHERIT;
571       break;
572     case BFD_RELOC_VTABLE_ENTRY:
573       microblaze_reloc = R_MICROBLAZE_GNU_VTENTRY;
574       break;
575     case BFD_RELOC_MICROBLAZE_64_GOTPC:
576       microblaze_reloc = R_MICROBLAZE_GOTPC_64;
577       break;
578     case BFD_RELOC_MICROBLAZE_64_GOT:
579       microblaze_reloc = R_MICROBLAZE_GOT_64;
580       break;
581     case BFD_RELOC_MICROBLAZE_64_PLT:
582       microblaze_reloc = R_MICROBLAZE_PLT_64;
583       break;
584     case BFD_RELOC_MICROBLAZE_64_GOTOFF:
585       microblaze_reloc = R_MICROBLAZE_GOTOFF_64;
586       break;
587     case BFD_RELOC_MICROBLAZE_32_GOTOFF:
588       microblaze_reloc = R_MICROBLAZE_GOTOFF_32;
589       break;
590     case BFD_RELOC_MICROBLAZE_64_TLSGD:
591       microblaze_reloc = R_MICROBLAZE_TLSGD;
592       break;
593     case BFD_RELOC_MICROBLAZE_64_TLSLD:
594       microblaze_reloc = R_MICROBLAZE_TLSLD;
595       break;
596     case BFD_RELOC_MICROBLAZE_32_TLSDTPREL:
597       microblaze_reloc = R_MICROBLAZE_TLSDTPREL32;
598       break;
599     case BFD_RELOC_MICROBLAZE_64_TLSDTPREL:
600       microblaze_reloc = R_MICROBLAZE_TLSDTPREL64;
601       break;
602     case BFD_RELOC_MICROBLAZE_32_TLSDTPMOD:
603       microblaze_reloc = R_MICROBLAZE_TLSDTPMOD32;
604       break;
605     case BFD_RELOC_MICROBLAZE_64_TLSGOTTPREL:
606       microblaze_reloc = R_MICROBLAZE_TLSGOTTPREL32;
607       break;
608     case BFD_RELOC_MICROBLAZE_64_TLSTPREL:
609       microblaze_reloc = R_MICROBLAZE_TLSTPREL32;
610       break;
611     case BFD_RELOC_MICROBLAZE_COPY:
612       microblaze_reloc = R_MICROBLAZE_COPY;
613       break;
614     default:
615       return (reloc_howto_type *) NULL;
616     }
617
618   if (!microblaze_elf_howto_table [R_MICROBLAZE_32])
619     /* Initialize howto table if needed.  */
620     microblaze_elf_howto_init ();
621
622   return microblaze_elf_howto_table [(int) microblaze_reloc];
623 };
624
625 static reloc_howto_type *
626 microblaze_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
627                                   const char *r_name)
628 {
629   unsigned int i;
630
631   for (i = 0; i < NUM_ELEM (microblaze_elf_howto_raw); i++)
632     if (microblaze_elf_howto_raw[i].name != NULL
633         && strcasecmp (microblaze_elf_howto_raw[i].name, r_name) == 0)
634       return &microblaze_elf_howto_raw[i];
635
636   return NULL;
637 }
638
639 /* Set the howto pointer for a RCE ELF reloc.  */
640
641 static void
642 microblaze_elf_info_to_howto (bfd * abfd ATTRIBUTE_UNUSED,
643                               arelent * cache_ptr,
644                               Elf_Internal_Rela * dst)
645 {
646   unsigned int r_type;
647
648   if (!microblaze_elf_howto_table [R_MICROBLAZE_32])
649     /* Initialize howto table if needed.  */
650     microblaze_elf_howto_init ();
651
652   r_type = ELF32_R_TYPE (dst->r_info);
653   if (r_type >= R_MICROBLAZE_max)
654     {
655       (*_bfd_error_handler) (_("%B: unrecognised MicroBlaze reloc number: %d"),
656                              abfd, r_type);
657       bfd_set_error (bfd_error_bad_value);
658       r_type = R_MICROBLAZE_NONE;
659     }
660
661   cache_ptr->howto = microblaze_elf_howto_table [r_type];
662 }
663
664 /* Microblaze ELF local labels start with 'L.' or '$L', not '.L'.  */
665
666 static bfd_boolean
667 microblaze_elf_is_local_label_name (bfd *abfd, const char *name)
668 {
669   if (name[0] == 'L' && name[1] == '.')
670     return TRUE;
671
672   if (name[0] == '$' && name[1] == 'L')
673     return TRUE;
674
675   /* With gcc, the labels go back to starting with '.', so we accept
676      the generic ELF local label syntax as well.  */
677   return _bfd_elf_is_local_label_name (abfd, name);
678 }
679
680 /* The microblaze linker (like many others) needs to keep track of
681    the number of relocs that it decides to copy as dynamic relocs in
682    check_relocs for each symbol. This is so that it can later discard
683    them if they are found to be unnecessary.  We store the information
684    in a field extending the regular ELF linker hash table.  */
685
686 struct elf32_mb_dyn_relocs
687 {
688   struct elf32_mb_dyn_relocs *next;
689
690   /* The input section of the reloc.  */
691   asection *sec;
692
693   /* Total number of relocs copied for the input section.  */
694   bfd_size_type count;
695
696   /* Number of pc-relative relocs copied for the input section.  */
697   bfd_size_type pc_count;
698 };
699
700 /* ELF linker hash entry.  */
701
702 struct elf32_mb_link_hash_entry
703 {
704   struct elf_link_hash_entry elf;
705
706   /* Track dynamic relocs copied for this symbol.  */
707   struct elf32_mb_dyn_relocs *dyn_relocs;
708
709   /* TLS Reference Types for the symbol; Updated by check_relocs */
710 #define TLS_GD     1  /* GD reloc. */
711 #define TLS_LD     2  /* LD reloc. */
712 #define TLS_TPREL  4  /* TPREL reloc, => IE. */
713 #define TLS_DTPREL 8  /* DTPREL reloc, => LD. */
714 #define TLS_TLS    16 /* Any TLS reloc.  */
715   unsigned char tls_mask;
716
717 };
718
719 #define IS_TLS_GD(x)     (x == (TLS_TLS | TLS_GD))
720 #define IS_TLS_LD(x)     (x == (TLS_TLS | TLS_LD))
721 #define IS_TLS_DTPREL(x) (x == (TLS_TLS | TLS_DTPREL))
722 #define IS_TLS_NONE(x)   (x == 0)
723
724 #define elf32_mb_hash_entry(ent) ((struct elf32_mb_link_hash_entry *)(ent))
725
726 /* ELF linker hash table.  */
727
728 struct elf32_mb_link_hash_table
729 {
730   struct elf_link_hash_table elf;
731
732   /* Short-cuts to get to dynamic linker sections.  */
733   asection *sgot;
734   asection *sgotplt;
735   asection *srelgot;
736   asection *splt;
737   asection *srelplt;
738   asection *sdynbss;
739   asection *srelbss;
740
741   /* Small local sym to section mapping cache.  */
742   struct sym_cache sym_sec;
743
744   /* TLS Local Dynamic GOT Entry */
745   union {
746     bfd_signed_vma refcount;
747     bfd_vma offset;
748   } tlsld_got;
749 };
750
751 /* Nonzero if this section has TLS related relocations.  */
752 #define has_tls_reloc sec_flg0
753
754 /* Get the ELF linker hash table from a link_info structure.  */
755
756 #define elf32_mb_hash_table(p)                          \
757   (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
758   == MICROBLAZE_ELF_DATA ? ((struct elf32_mb_link_hash_table *) ((p)->hash)) : NULL)
759
760 /* Create an entry in a microblaze ELF linker hash table.  */
761
762 static struct bfd_hash_entry *
763 link_hash_newfunc (struct bfd_hash_entry *entry,
764                    struct bfd_hash_table *table,
765                    const char *string)
766 {
767   /* Allocate the structure if it has not already been allocated by a
768      subclass.  */
769   if (entry == NULL)
770     {
771       entry = bfd_hash_allocate (table,
772                                  sizeof (struct elf32_mb_link_hash_entry));
773       if (entry == NULL)
774         return entry;
775     }
776
777   /* Call the allocation method of the superclass.  */
778   entry = _bfd_elf_link_hash_newfunc (entry, table, string);
779   if (entry != NULL)
780     {
781       struct elf32_mb_link_hash_entry *eh;
782
783       eh = (struct elf32_mb_link_hash_entry *) entry;
784       eh->dyn_relocs = NULL;
785       eh->tls_mask = 0;
786     }
787
788   return entry;
789 }
790
791 /* Create a mb ELF linker hash table.  */
792
793 static struct bfd_link_hash_table *
794 microblaze_elf_link_hash_table_create (bfd *abfd)
795 {
796   struct elf32_mb_link_hash_table *ret;
797   bfd_size_type amt = sizeof (struct elf32_mb_link_hash_table);
798
799   ret = (struct elf32_mb_link_hash_table *) bfd_zmalloc (amt);
800   if (ret == NULL)
801     return NULL;
802
803   if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
804                                       sizeof (struct elf32_mb_link_hash_entry),
805                                       MICROBLAZE_ELF_DATA))
806     {
807       free (ret);
808       return NULL;
809     }
810
811   return &ret->elf.root;
812 }
813 \f
814 /* Set the values of the small data pointers.  */
815
816 static void
817 microblaze_elf_final_sdp (struct bfd_link_info *info)
818 {
819   struct bfd_link_hash_entry *h;
820
821   h = bfd_link_hash_lookup (info->hash, RO_SDA_ANCHOR_NAME, FALSE, FALSE, TRUE);
822   if (h != (struct bfd_link_hash_entry *) NULL
823       && h->type == bfd_link_hash_defined)
824     ro_small_data_pointer = (h->u.def.value
825                              + h->u.def.section->output_section->vma
826                              + h->u.def.section->output_offset);
827
828   h = bfd_link_hash_lookup (info->hash, RW_SDA_ANCHOR_NAME, FALSE, FALSE, TRUE);
829   if (h != (struct bfd_link_hash_entry *) NULL
830       && h->type == bfd_link_hash_defined)
831     rw_small_data_pointer = (h->u.def.value
832                              + h->u.def.section->output_section->vma
833                              + h->u.def.section->output_offset);
834 }
835
836 static bfd_vma
837 dtprel_base (struct bfd_link_info *info)
838 {
839   /* If tls_sec is NULL, we should have signalled an error already.  */
840   if (elf_hash_table (info)->tls_sec == NULL)
841     return 0;
842   return elf_hash_table (info)->tls_sec->vma;
843 }
844
845 /* The size of the thread control block.  */
846 #define TCB_SIZE        8
847
848 /* Output a simple dynamic relocation into SRELOC.  */
849
850 static void
851 microblaze_elf_output_dynamic_relocation (bfd *output_bfd,
852                                           asection *sreloc,
853                                           unsigned long reloc_index,
854                                           unsigned long indx,
855                                           int r_type,
856                                           bfd_vma offset,
857                                           bfd_vma addend)
858 {
859
860   Elf_Internal_Rela rel;
861
862   rel.r_info = ELF32_R_INFO (indx, r_type);
863   rel.r_offset = offset;
864   rel.r_addend = addend;
865
866   bfd_elf32_swap_reloca_out (output_bfd, &rel,
867               (sreloc->contents + reloc_index * sizeof (Elf32_External_Rela)));
868 }
869
870 /* This code is taken from elf32-m32r.c
871    There is some attempt to make this function usable for many architectures,
872    both USE_REL and USE_RELA ['twould be nice if such a critter existed],
873    if only to serve as a learning tool.
874
875    The RELOCATE_SECTION function is called by the new ELF backend linker
876    to handle the relocations for a section.
877
878    The relocs are always passed as Rela structures; if the section
879    actually uses Rel structures, the r_addend field will always be
880    zero.
881
882    This function is responsible for adjust the section contents as
883    necessary, and (if using Rela relocs and generating a
884    relocatable output file) adjusting the reloc addend as
885    necessary.
886
887    This function does not have to worry about setting the reloc
888    address or the reloc symbol index.
889
890    LOCAL_SYMS is a pointer to the swapped in local symbols.
891
892    LOCAL_SECTIONS is an array giving the section in the input file
893    corresponding to the st_shndx field of each local symbol.
894
895    The global hash table entry for the global symbols can be found
896    via elf_sym_hashes (input_bfd).
897
898    When generating relocatable output, this function must handle
899    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
900    going to be the section symbol corresponding to the output
901    section, which means that the addend must be adjusted
902    accordingly.  */
903
904 static bfd_boolean
905 microblaze_elf_relocate_section (bfd *output_bfd,
906                                  struct bfd_link_info *info,
907                                  bfd *input_bfd,
908                                  asection *input_section,
909                                  bfd_byte *contents,
910                                  Elf_Internal_Rela *relocs,
911                                  Elf_Internal_Sym *local_syms,
912                                  asection **local_sections)
913 {
914   struct elf32_mb_link_hash_table *htab;
915   Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
916   struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
917   Elf_Internal_Rela *rel, *relend;
918   int endian = (bfd_little_endian (output_bfd)) ? 0 : 2;
919   /* Assume success.  */
920   bfd_boolean ret = TRUE;
921   asection *sreloc;
922   bfd_vma *local_got_offsets;
923   unsigned int tls_type;
924
925   if (!microblaze_elf_howto_table[R_MICROBLAZE_max-1])
926     microblaze_elf_howto_init ();
927
928   htab = elf32_mb_hash_table (info);
929   if (htab == NULL)
930     return FALSE;
931
932   local_got_offsets = elf_local_got_offsets (input_bfd);
933
934   sreloc = elf_section_data (input_section)->sreloc;
935
936   rel = relocs;
937   relend = relocs + input_section->reloc_count;
938   for (; rel < relend; rel++)
939     {
940       int r_type;
941       reloc_howto_type *howto;
942       unsigned long r_symndx;
943       bfd_vma addend = rel->r_addend;
944       bfd_vma offset = rel->r_offset;
945       struct elf_link_hash_entry *h;
946       Elf_Internal_Sym *sym;
947       asection *sec;
948       const char *sym_name;
949       bfd_reloc_status_type r = bfd_reloc_ok;
950       const char *errmsg = NULL;
951       bfd_boolean unresolved_reloc = FALSE;
952
953       h = NULL;
954       r_type = ELF32_R_TYPE (rel->r_info);
955       tls_type = 0;
956
957       if (r_type < 0 || r_type >= (int) R_MICROBLAZE_max)
958         {
959           (*_bfd_error_handler) (_("%s: unknown relocation type %d"),
960                                  bfd_get_filename (input_bfd), (int) r_type);
961           bfd_set_error (bfd_error_bad_value);
962           ret = FALSE;
963           continue;
964         }
965
966       howto = microblaze_elf_howto_table[r_type];
967       r_symndx = ELF32_R_SYM (rel->r_info);
968
969       if (bfd_link_relocatable (info))
970         {
971           /* This is a relocatable link.  We don't have to change
972              anything, unless the reloc is against a section symbol,
973              in which case we have to adjust according to where the
974              section symbol winds up in the output section.  */
975           sec = NULL;
976           if (r_symndx >= symtab_hdr->sh_info)
977             /* External symbol.  */
978             continue;
979
980           /* Local symbol.  */
981           sym = local_syms + r_symndx;
982           sym_name = "<local symbol>";
983           /* STT_SECTION: symbol is associated with a section.  */
984           if (ELF_ST_TYPE (sym->st_info) != STT_SECTION)
985             /* Symbol isn't associated with a section.  Nothing to do.  */
986             continue;
987
988           sec = local_sections[r_symndx];
989           addend += sec->output_offset + sym->st_value;
990 #ifndef USE_REL
991           /* This can't be done for USE_REL because it doesn't mean anything
992              and elf_link_input_bfd asserts this stays zero.  */
993           /* rel->r_addend = addend; */
994 #endif
995
996 #ifndef USE_REL
997           /* Addends are stored with relocs.  We're done.  */
998           continue;
999 #else /* USE_REL */
1000           /* If partial_inplace, we need to store any additional addend
1001              back in the section.  */
1002           if (!howto->partial_inplace)
1003             continue;
1004           /* ??? Here is a nice place to call a special_function like handler.  */
1005           r = _bfd_relocate_contents (howto, input_bfd, addend,
1006                                       contents + offset);
1007 #endif /* USE_REL */
1008         }
1009       else
1010         {
1011           bfd_vma relocation;
1012
1013           /* This is a final link.  */
1014           sym = NULL;
1015           sec = NULL;
1016           unresolved_reloc = FALSE;
1017
1018           if (r_symndx < symtab_hdr->sh_info)
1019             {
1020               /* Local symbol.  */
1021               sym = local_syms + r_symndx;
1022               sec = local_sections[r_symndx];
1023               if (sec == 0)
1024                 continue;
1025               sym_name = "<local symbol>";
1026               relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1027               /* r_addend may have changed if the reference section was
1028                  a merge section.  */
1029               addend = rel->r_addend;
1030             }
1031           else
1032             {
1033               /* External symbol.  */
1034               bfd_boolean warned ATTRIBUTE_UNUSED;
1035               bfd_boolean ignored ATTRIBUTE_UNUSED;
1036
1037               RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1038                                        r_symndx, symtab_hdr, sym_hashes,
1039                                        h, sec, relocation,
1040                                        unresolved_reloc, warned, ignored);
1041               sym_name = h->root.root.string;
1042             }
1043
1044           /* Sanity check the address.  */
1045           if (offset > bfd_get_section_limit (input_bfd, input_section))
1046             {
1047               r = bfd_reloc_outofrange;
1048               goto check_reloc;
1049             }
1050
1051           switch ((int) r_type)
1052             {
1053             case (int) R_MICROBLAZE_SRO32 :
1054               {
1055                 const char *name;
1056
1057                 /* Only relocate if the symbol is defined.  */
1058                 if (sec)
1059                   {
1060                     name = bfd_get_section_name (sec->owner, sec);
1061
1062                     if (strcmp (name, ".sdata2") == 0
1063                         || strcmp (name, ".sbss2") == 0)
1064                       {
1065                         if (ro_small_data_pointer == 0)
1066                           microblaze_elf_final_sdp (info);
1067                         if (ro_small_data_pointer == 0)
1068                           {
1069                             ret = FALSE;
1070                             r = bfd_reloc_undefined;
1071                             goto check_reloc;
1072                           }
1073
1074                         /* At this point `relocation' contains the object's
1075                            address.  */
1076                         relocation -= ro_small_data_pointer;
1077                         /* Now it contains the offset from _SDA2_BASE_.  */
1078                         r = _bfd_final_link_relocate (howto, input_bfd,
1079                                                       input_section,
1080                                                       contents, offset,
1081                                                       relocation, addend);
1082                       }
1083                     else
1084                       {
1085                         (*_bfd_error_handler) (_("%s: The target (%s) of an %s relocation is in the wrong section (%s)"),
1086                                                bfd_get_filename (input_bfd),
1087                                                sym_name,
1088                                                microblaze_elf_howto_table[(int) r_type]->name,
1089                                                bfd_get_section_name (sec->owner, sec));
1090                         /*bfd_set_error (bfd_error_bad_value); ??? why? */
1091                         ret = FALSE;
1092                         continue;
1093                       }
1094                   }
1095               }
1096               break;
1097
1098             case (int) R_MICROBLAZE_SRW32 :
1099               {
1100                 const char *name;
1101
1102                 /* Only relocate if the symbol is defined.  */
1103                 if (sec)
1104                   {
1105                     name = bfd_get_section_name (sec->owner, sec);
1106
1107                     if (strcmp (name, ".sdata") == 0
1108                         || strcmp (name, ".sbss") == 0)
1109                       {
1110                         if (rw_small_data_pointer == 0)
1111                           microblaze_elf_final_sdp (info);
1112                         if (rw_small_data_pointer == 0)
1113                           {
1114                             ret = FALSE;
1115                             r = bfd_reloc_undefined;
1116                             goto check_reloc;
1117                           }
1118
1119                         /* At this point `relocation' contains the object's
1120                            address.  */
1121                         relocation -= rw_small_data_pointer;
1122                         /* Now it contains the offset from _SDA_BASE_.  */
1123                         r = _bfd_final_link_relocate (howto, input_bfd,
1124                                                       input_section,
1125                                                       contents, offset,
1126                                                       relocation, addend);
1127                       }
1128                     else
1129                       {
1130                         (*_bfd_error_handler) (_("%s: The target (%s) of an %s relocation is in the wrong section (%s)"),
1131                                                bfd_get_filename (input_bfd),
1132                                                sym_name,
1133                                                microblaze_elf_howto_table[(int) r_type]->name,
1134                                                bfd_get_section_name (sec->owner, sec));
1135                         /*bfd_set_error (bfd_error_bad_value); ??? why? */
1136                         ret = FALSE;
1137                         continue;
1138                       }
1139                   }
1140               }
1141               break;
1142
1143             case (int) R_MICROBLAZE_32_SYM_OP_SYM:
1144               break; /* Do nothing.  */
1145
1146             case (int) R_MICROBLAZE_GOTPC_64:
1147               relocation = htab->sgotplt->output_section->vma
1148                 + htab->sgotplt->output_offset;
1149               relocation -= (input_section->output_section->vma
1150                              + input_section->output_offset
1151                              + offset + INST_WORD_SIZE);
1152               relocation += addend;
1153               bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1154                           contents + offset + endian);
1155               bfd_put_16 (input_bfd, relocation & 0xffff,
1156                           contents + offset + endian + INST_WORD_SIZE);
1157               break;
1158
1159             case (int) R_MICROBLAZE_PLT_64:
1160               {
1161                 bfd_vma immediate;
1162                 if (htab->splt != NULL && h != NULL
1163                     && h->plt.offset != (bfd_vma) -1)
1164                   {
1165                     relocation = (htab->splt->output_section->vma
1166                                   + htab->splt->output_offset
1167                                   + h->plt.offset);
1168                     unresolved_reloc = FALSE;
1169                     immediate = relocation - (input_section->output_section->vma
1170                                               + input_section->output_offset
1171                                               + offset + INST_WORD_SIZE);
1172                     bfd_put_16 (input_bfd, (immediate >> 16) & 0xffff,
1173                                 contents + offset + endian);
1174                     bfd_put_16 (input_bfd, immediate & 0xffff,
1175                                 contents + offset + endian + INST_WORD_SIZE);
1176                   }
1177                 else
1178                   {
1179                     relocation -= (input_section->output_section->vma
1180                                    + input_section->output_offset
1181                                    + offset + INST_WORD_SIZE);
1182                     immediate = relocation;
1183                     bfd_put_16 (input_bfd, (immediate >> 16) & 0xffff,
1184                                 contents + offset + endian);
1185                     bfd_put_16 (input_bfd, immediate & 0xffff,
1186                                 contents + offset + endian + INST_WORD_SIZE);
1187                   }
1188                 break;
1189               }
1190
1191             case (int) R_MICROBLAZE_TLSGD:
1192               tls_type = (TLS_TLS | TLS_GD);
1193               goto dogot;
1194             case (int) R_MICROBLAZE_TLSLD:
1195               tls_type = (TLS_TLS | TLS_LD);
1196             dogot:
1197             case (int) R_MICROBLAZE_GOT_64:
1198               {
1199                 bfd_vma *offp;
1200                 bfd_vma off, off2;
1201                 unsigned long indx;
1202                 bfd_vma static_value;
1203
1204                 bfd_boolean need_relocs = FALSE;
1205                 if (htab->sgot == NULL)
1206                   abort ();
1207
1208                 indx = 0;
1209                 offp = NULL;
1210
1211                 /* 1. Identify GOT Offset;
1212                    2. Compute Static Values
1213                    3. Process Module Id, Process Offset
1214                    4. Fixup Relocation with GOT offset value. */
1215
1216                 /* 1. Determine GOT Offset to use : TLS_LD, global, local */
1217                 if (IS_TLS_LD (tls_type))
1218                   offp = &htab->tlsld_got.offset;
1219                 else if (h != NULL)
1220                   {
1221                     if (htab->sgotplt != NULL && h->got.offset != (bfd_vma) -1)
1222                         offp = &h->got.offset;
1223                     else
1224                         abort ();
1225                   }
1226                 else
1227                   {
1228                     if (local_got_offsets == NULL)
1229                       abort ();
1230                     offp = &local_got_offsets[r_symndx];
1231                   }
1232
1233                 if (!offp)
1234                   abort ();
1235
1236                 off = (*offp) & ~1;
1237                 off2 = off;
1238
1239                 if (IS_TLS_LD(tls_type) || IS_TLS_GD(tls_type))
1240                   off2 = off + 4;
1241
1242                 /* Symbol index to use for relocs */
1243                 if (h != NULL)
1244                   {
1245                     bfd_boolean dyn =
1246                         elf_hash_table (info)->dynamic_sections_created;
1247
1248                     if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
1249                                                          bfd_link_pic (info),
1250                                                          h)
1251                         && (!bfd_link_pic (info)
1252                             || !SYMBOL_REFERENCES_LOCAL (info, h)))
1253                       indx = h->dynindx;
1254                   }
1255
1256                 /* Need to generate relocs ? */
1257                 if ((bfd_link_pic (info) || indx != 0)
1258                     && (h == NULL
1259                     || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1260                     || h->root.type != bfd_link_hash_undefweak))
1261                   need_relocs = TRUE;
1262
1263                 /* 2. Compute/Emit Static value of r-expression */
1264                 static_value = relocation + addend;
1265
1266                 /* 3. Process module-id and offset */
1267                 if (! ((*offp) & 1) )
1268                   {
1269                     bfd_vma got_offset;
1270
1271                     got_offset = (htab->sgot->output_section->vma
1272                                   + htab->sgot->output_offset
1273                                   + off);
1274
1275                     /* Process module-id */
1276                     if (IS_TLS_LD(tls_type))
1277                       {
1278                         if (! bfd_link_pic (info))
1279                           {
1280                             bfd_put_32 (output_bfd, 1, htab->sgot->contents + off);
1281                           }
1282                         else
1283                           {
1284                             microblaze_elf_output_dynamic_relocation (output_bfd,
1285                               htab->srelgot, htab->srelgot->reloc_count++,
1286                               /* symindex= */ 0, R_MICROBLAZE_TLSDTPMOD32,
1287                               got_offset, 0);
1288                           }
1289                       }
1290                     else if (IS_TLS_GD(tls_type))
1291                       {
1292                         if (! need_relocs)
1293                           {
1294                             bfd_put_32 (output_bfd, 1, htab->sgot->contents + off);
1295                           }
1296                         else
1297                           {
1298                             microblaze_elf_output_dynamic_relocation (output_bfd,
1299                               htab->srelgot,
1300                               htab->srelgot->reloc_count++,
1301                               /* symindex= */ indx, R_MICROBLAZE_TLSDTPMOD32,
1302                               got_offset, indx ? 0 : static_value);
1303                           }
1304                       }
1305
1306                     /* Process Offset */
1307                     if (htab->srelgot == NULL)
1308                       abort ();
1309
1310                     got_offset = (htab->sgot->output_section->vma
1311                                   + htab->sgot->output_offset
1312                                   + off2);
1313                     if (IS_TLS_LD(tls_type))
1314                       {
1315                         /* For LD, offset should be 0 */
1316                         *offp |= 1;
1317                         bfd_put_32 (output_bfd, 0, htab->sgot->contents + off2);
1318                       }
1319                     else if (IS_TLS_GD(tls_type))
1320                       {
1321                         *offp |= 1;
1322                         static_value -= dtprel_base(info);
1323                         if (need_relocs)
1324                           {
1325                             microblaze_elf_output_dynamic_relocation (output_bfd,
1326                               htab->srelgot, htab->srelgot->reloc_count++,
1327                               /* symindex= */ indx, R_MICROBLAZE_TLSDTPREL32,
1328                               got_offset, indx ? 0 : static_value);
1329                           }
1330                         else
1331                           {
1332                             bfd_put_32 (output_bfd, static_value,
1333                                         htab->sgot->contents + off2);
1334                           }
1335                       }
1336                     else
1337                       {
1338                           bfd_put_32 (output_bfd, static_value,
1339                                       htab->sgot->contents + off2);
1340
1341                           /* Relocs for dyn symbols generated by
1342                              finish_dynamic_symbols */
1343                           if (bfd_link_pic (info) && h == NULL)
1344                             {
1345                               *offp |= 1;
1346                               microblaze_elf_output_dynamic_relocation (output_bfd,
1347                                 htab->srelgot, htab->srelgot->reloc_count++,
1348                                 /* symindex= */ indx, R_MICROBLAZE_REL,
1349                                 got_offset, static_value);
1350                             }
1351                       }
1352                   }
1353
1354                 /* 4. Fixup Relocation with GOT offset value
1355                       Compute relative address of GOT entry for applying
1356                       the current relocation */
1357                 relocation = htab->sgot->output_section->vma
1358                              + htab->sgot->output_offset
1359                              + off
1360                              - htab->sgotplt->output_section->vma
1361                              - htab->sgotplt->output_offset;
1362
1363                 /* Apply Current Relocation */
1364                 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1365                             contents + offset + endian);
1366                 bfd_put_16 (input_bfd, relocation & 0xffff,
1367                             contents + offset + endian + INST_WORD_SIZE);
1368
1369                 unresolved_reloc = FALSE;
1370                 break;
1371               }
1372
1373             case (int) R_MICROBLAZE_GOTOFF_64:
1374               {
1375                 bfd_vma immediate;
1376                 unsigned short lo, high;
1377                 relocation += addend;
1378                 relocation -= htab->sgotplt->output_section->vma
1379                   + htab->sgotplt->output_offset;
1380                 /* Write this value into correct location.  */
1381                 immediate = relocation;
1382                 lo = immediate & 0x0000ffff;
1383                 high = (immediate >> 16) & 0x0000ffff;
1384                 bfd_put_16 (input_bfd, high, contents + offset + endian);
1385                 bfd_put_16 (input_bfd, lo, contents + offset + INST_WORD_SIZE + endian);
1386                 break;
1387               }
1388
1389             case (int) R_MICROBLAZE_GOTOFF_32:
1390               {
1391                 relocation += addend;
1392                 relocation -= htab->sgotplt->output_section->vma
1393                   + htab->sgotplt->output_offset;
1394                 /* Write this value into correct location.  */
1395                 bfd_put_32 (input_bfd, relocation, contents + offset);
1396                 break;
1397               }
1398
1399             case (int) R_MICROBLAZE_TLSDTPREL64:
1400               relocation += addend;
1401               relocation -= dtprel_base(info);
1402               bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1403                           contents + offset + 2);
1404               bfd_put_16 (input_bfd, relocation & 0xffff,
1405                           contents + offset + 2 + INST_WORD_SIZE);
1406               break;
1407             case (int) R_MICROBLAZE_64_PCREL :
1408             case (int) R_MICROBLAZE_64:
1409             case (int) R_MICROBLAZE_32:
1410               {
1411                 /* r_symndx will be STN_UNDEF (zero) only for relocs against symbols
1412                    from removed linkonce sections, or sections discarded by
1413                    a linker script.  */
1414                 if (r_symndx == STN_UNDEF || (input_section->flags & SEC_ALLOC) == 0)
1415                   {
1416                     relocation += addend;
1417                     if (r_type == R_MICROBLAZE_32)
1418                       bfd_put_32 (input_bfd, relocation, contents + offset);
1419                     else
1420                       {
1421                         if (r_type == R_MICROBLAZE_64_PCREL)
1422                           relocation -= (input_section->output_section->vma
1423                                          + input_section->output_offset
1424                                          + offset + INST_WORD_SIZE);
1425                         bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1426                                     contents + offset + endian);
1427                         bfd_put_16 (input_bfd, relocation & 0xffff,
1428                                     contents + offset + endian + INST_WORD_SIZE);
1429                       }
1430                     break;
1431                   }
1432
1433                 if ((bfd_link_pic (info)
1434                      && (h == NULL
1435                          || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1436                          || h->root.type != bfd_link_hash_undefweak)
1437                      && (!howto->pc_relative
1438                          || (h != NULL
1439                              && h->dynindx != -1
1440                              && (!info->symbolic
1441                                  || !h->def_regular))))
1442                     || (!bfd_link_pic (info)
1443                         && h != NULL
1444                         && h->dynindx != -1
1445                         && !h->non_got_ref
1446                         && ((h->def_dynamic
1447                              && !h->def_regular)
1448                             || h->root.type == bfd_link_hash_undefweak
1449                             || h->root.type == bfd_link_hash_undefined)))
1450                   {
1451                     Elf_Internal_Rela outrel;
1452                     bfd_byte *loc;
1453                     bfd_boolean skip;
1454
1455                     /* When generating a shared object, these relocations
1456                        are copied into the output file to be resolved at run
1457                        time.  */
1458
1459                     BFD_ASSERT (sreloc != NULL);
1460
1461                     skip = FALSE;
1462
1463                     outrel.r_offset =
1464                       _bfd_elf_section_offset (output_bfd, info, input_section,
1465                                                rel->r_offset);
1466                     if (outrel.r_offset == (bfd_vma) -1)
1467                       skip = TRUE;
1468                     else if (outrel.r_offset == (bfd_vma) -2)
1469                       skip = TRUE;
1470                     outrel.r_offset += (input_section->output_section->vma
1471                                         + input_section->output_offset);
1472
1473                     if (skip)
1474                       memset (&outrel, 0, sizeof outrel);
1475                     /* h->dynindx may be -1 if the symbol was marked to
1476                        become local.  */
1477                     else if (h != NULL
1478                              && ((! info->symbolic && h->dynindx != -1)
1479                                  || !h->def_regular))
1480                       {
1481                         BFD_ASSERT (h->dynindx != -1);
1482                         outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1483                         outrel.r_addend = addend;
1484                       }
1485                     else
1486                       {
1487                         if (r_type == R_MICROBLAZE_32)
1488                           {
1489                             outrel.r_info = ELF32_R_INFO (0, R_MICROBLAZE_REL);
1490                             outrel.r_addend = relocation + addend;
1491                           }
1492                         else
1493                           {
1494                             BFD_FAIL ();
1495                             (*_bfd_error_handler)
1496                               (_("%B: probably compiled without -fPIC?"),
1497                                input_bfd);
1498                             bfd_set_error (bfd_error_bad_value);
1499                             return FALSE;
1500                           }
1501                       }
1502
1503                     loc = sreloc->contents;
1504                     loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
1505                     bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1506                     break;
1507                   }
1508                 else
1509                   {
1510                     relocation += addend;
1511                     if (r_type == R_MICROBLAZE_32)
1512                       bfd_put_32 (input_bfd, relocation, contents + offset);
1513                     else
1514                       {
1515                         if (r_type == R_MICROBLAZE_64_PCREL)
1516                           relocation -= (input_section->output_section->vma
1517                                          + input_section->output_offset
1518                                          + offset + INST_WORD_SIZE);
1519                         bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1520                                     contents + offset + endian);
1521                         bfd_put_16 (input_bfd, relocation & 0xffff,
1522                                     contents + offset + endian + INST_WORD_SIZE);
1523                       }
1524                     break;
1525                   }
1526               }
1527
1528             default :
1529               r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1530                                             contents, offset,
1531                                             relocation, addend);
1532               break;
1533             }
1534         }
1535
1536     check_reloc:
1537
1538       if (r != bfd_reloc_ok)
1539         {
1540           /* FIXME: This should be generic enough to go in a utility.  */
1541           const char *name;
1542
1543           if (h != NULL)
1544             name = h->root.root.string;
1545           else
1546             {
1547               name = (bfd_elf_string_from_elf_section
1548                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1549               if (name == NULL || *name == '\0')
1550                 name = bfd_section_name (input_bfd, sec);
1551             }
1552
1553           if (errmsg != NULL)
1554             goto common_error;
1555
1556           switch (r)
1557             {
1558             case bfd_reloc_overflow:
1559               if (!((*info->callbacks->reloc_overflow)
1560                     (info, (h ? &h->root : NULL), name, howto->name,
1561                      (bfd_vma) 0, input_bfd, input_section, offset)))
1562                 return FALSE;
1563               break;
1564
1565             case bfd_reloc_undefined:
1566               if (!((*info->callbacks->undefined_symbol)
1567                     (info, name, input_bfd, input_section, offset, TRUE)))
1568                 return FALSE;
1569               break;
1570
1571             case bfd_reloc_outofrange:
1572               errmsg = _("internal error: out of range error");
1573               goto common_error;
1574
1575             case bfd_reloc_notsupported:
1576               errmsg = _("internal error: unsupported relocation error");
1577               goto common_error;
1578
1579             case bfd_reloc_dangerous:
1580               errmsg = _("internal error: dangerous error");
1581               goto common_error;
1582
1583             default:
1584               errmsg = _("internal error: unknown error");
1585               /* Fall through.  */
1586             common_error:
1587               if (!((*info->callbacks->warning)
1588                     (info, errmsg, name, input_bfd, input_section, offset)))
1589                 return FALSE;
1590               break;
1591             }
1592         }
1593     }
1594
1595   return ret;
1596 }
1597
1598 /* Merge backend specific data from an object file to the output
1599    object file when linking.
1600
1601    Note: We only use this hook to catch endian mismatches.  */
1602 static bfd_boolean
1603 microblaze_elf_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
1604 {
1605   /* Check if we have the same endianess.  */
1606   if (! _bfd_generic_verify_endian_match (ibfd, obfd))
1607     return FALSE;
1608
1609   return TRUE;
1610 }
1611
1612 \f
1613 /* Calculate fixup value for reference.  */
1614
1615 static int
1616 calc_fixup (bfd_vma start, bfd_vma size, asection *sec)
1617 {
1618   bfd_vma end = start + size;
1619   int i, fixup = 0;
1620
1621   if (sec == NULL || sec->relax == NULL)
1622     return 0;
1623
1624   /* Look for addr in relax table, total fixup value.  */
1625   for (i = 0; i < sec->relax_count; i++)
1626     {
1627       if (end <= sec->relax[i].addr)
1628         break;
1629       if ((end != start) && (start > sec->relax[i].addr))
1630         continue;
1631       fixup += sec->relax[i].size;
1632     }
1633   return fixup;
1634 }
1635
1636 /* Read-modify-write into the bfd, an immediate value into appropriate fields of
1637    a 32-bit instruction.  */
1638 static void
1639 microblaze_bfd_write_imm_value_32 (bfd *abfd, bfd_byte *bfd_addr, bfd_vma val)
1640 {
1641     unsigned long instr = bfd_get_32 (abfd, bfd_addr);
1642     instr &= ~0x0000ffff;
1643     instr |= (val & 0x0000ffff);
1644     bfd_put_32 (abfd, instr, bfd_addr);
1645 }
1646
1647 /* Read-modify-write into the bfd, an immediate value into appropriate fields of
1648    two consecutive 32-bit instructions.  */
1649 static void
1650 microblaze_bfd_write_imm_value_64 (bfd *abfd, bfd_byte *bfd_addr, bfd_vma val)
1651 {
1652     unsigned long instr_hi;
1653     unsigned long instr_lo;
1654
1655     instr_hi = bfd_get_32 (abfd, bfd_addr);
1656     instr_hi &= ~0x0000ffff;
1657     instr_hi |= ((val >> 16) & 0x0000ffff);
1658     bfd_put_32 (abfd, instr_hi, bfd_addr);
1659
1660     instr_lo = bfd_get_32 (abfd, bfd_addr + INST_WORD_SIZE);
1661     instr_lo &= ~0x0000ffff;
1662     instr_lo |= (val & 0x0000ffff);
1663     bfd_put_32 (abfd, instr_lo, bfd_addr + INST_WORD_SIZE);
1664 }
1665
1666 static bfd_boolean
1667 microblaze_elf_relax_section (bfd *abfd,
1668                               asection *sec,
1669                               struct bfd_link_info *link_info,
1670                               bfd_boolean *again)
1671 {
1672   Elf_Internal_Shdr *symtab_hdr;
1673   Elf_Internal_Rela *internal_relocs;
1674   Elf_Internal_Rela *free_relocs = NULL;
1675   Elf_Internal_Rela *irel, *irelend;
1676   bfd_byte *contents = NULL;
1677   bfd_byte *free_contents = NULL;
1678   int rel_count;
1679   unsigned int shndx;
1680   int i, sym_index;
1681   asection *o;
1682   struct elf_link_hash_entry *sym_hash;
1683   Elf_Internal_Sym *isymbuf, *isymend;
1684   Elf_Internal_Sym *isym;
1685   int symcount;
1686   int offset;
1687   bfd_vma src, dest;
1688
1689   /* We only do this once per section.  We may be able to delete some code
1690      by running multiple passes, but it is not worth it.  */
1691   *again = FALSE;
1692
1693   /* Only do this for a text section.  */
1694   if (bfd_link_relocatable (link_info)
1695       || (sec->flags & SEC_RELOC) == 0
1696       || (sec->reloc_count == 0)
1697       || (sec->flags & SEC_CODE) == 0)
1698     return TRUE;
1699
1700   BFD_ASSERT ((sec->size > 0) || (sec->rawsize > 0));
1701
1702   /* If this is the first time we have been called for this section,
1703      initialize the cooked size.  */
1704   if (sec->size == 0)
1705     sec->size = sec->rawsize;
1706
1707   /* Get symbols for this section.  */
1708   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1709   isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1710   symcount =  symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
1711   if (isymbuf == NULL)
1712     isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr, symcount,
1713                                     0, NULL, NULL, NULL);
1714   BFD_ASSERT (isymbuf != NULL);
1715
1716   internal_relocs = _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL, link_info->keep_memory);
1717   if (internal_relocs == NULL)
1718     goto error_return;
1719   if (! link_info->keep_memory)
1720     free_relocs = internal_relocs;
1721
1722   sec->relax = (struct relax_table *) bfd_malloc ((sec->reloc_count + 1)
1723                                                   * sizeof (struct relax_table));
1724   if (sec->relax == NULL)
1725     goto error_return;
1726   sec->relax_count = 0;
1727
1728   irelend = internal_relocs + sec->reloc_count;
1729   rel_count = 0;
1730   for (irel = internal_relocs; irel < irelend; irel++, rel_count++)
1731     {
1732       bfd_vma symval;
1733       if ((ELF32_R_TYPE (irel->r_info) != (int) R_MICROBLAZE_64_PCREL)
1734           && (ELF32_R_TYPE (irel->r_info) != (int) R_MICROBLAZE_64 ))
1735         continue; /* Can't delete this reloc.  */
1736
1737       /* Get the section contents.  */
1738       if (contents == NULL)
1739         {
1740           if (elf_section_data (sec)->this_hdr.contents != NULL)
1741             contents = elf_section_data (sec)->this_hdr.contents;
1742           else
1743             {
1744               contents = (bfd_byte *) bfd_malloc (sec->size);
1745               if (contents == NULL)
1746                 goto error_return;
1747               free_contents = contents;
1748
1749               if (!bfd_get_section_contents (abfd, sec, contents,
1750                                              (file_ptr) 0, sec->size))
1751                 goto error_return;
1752               elf_section_data (sec)->this_hdr.contents = contents;
1753             }
1754         }
1755
1756       /* Get the value of the symbol referred to by the reloc.  */
1757       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1758         {
1759           /* A local symbol.  */
1760           asection *sym_sec;
1761
1762           isym = isymbuf + ELF32_R_SYM (irel->r_info);
1763           if (isym->st_shndx == SHN_UNDEF)
1764             sym_sec = bfd_und_section_ptr;
1765           else if (isym->st_shndx == SHN_ABS)
1766             sym_sec = bfd_abs_section_ptr;
1767           else if (isym->st_shndx == SHN_COMMON)
1768             sym_sec = bfd_com_section_ptr;
1769           else
1770             sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1771
1772           symval = _bfd_elf_rela_local_sym (abfd, isym, &sym_sec, irel);
1773         }
1774       else
1775         {
1776           unsigned long indx;
1777           struct elf_link_hash_entry *h;
1778
1779           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
1780           h = elf_sym_hashes (abfd)[indx];
1781           BFD_ASSERT (h != NULL);
1782
1783           if (h->root.type != bfd_link_hash_defined
1784               && h->root.type != bfd_link_hash_defweak)
1785             /* This appears to be a reference to an undefined
1786                symbol.  Just ignore it--it will be caught by the
1787                regular reloc processing.  */
1788             continue;
1789
1790           symval = (h->root.u.def.value
1791                     + h->root.u.def.section->output_section->vma
1792                     + h->root.u.def.section->output_offset);
1793         }
1794
1795       /* If this is a PC-relative reloc, subtract the instr offset from
1796          the symbol value.  */
1797       if (ELF32_R_TYPE (irel->r_info) == (int) R_MICROBLAZE_64_PCREL)
1798         {
1799           symval = symval + irel->r_addend
1800             - (irel->r_offset
1801                + sec->output_section->vma
1802                + sec->output_offset);
1803         }
1804       else
1805         symval += irel->r_addend;
1806
1807       if ((symval & 0xffff8000) == 0
1808           || (symval & 0xffff8000) == 0xffff8000)
1809         {
1810           /* We can delete this instruction.  */
1811           sec->relax[sec->relax_count].addr = irel->r_offset;
1812           sec->relax[sec->relax_count].size = INST_WORD_SIZE;
1813           sec->relax_count++;
1814
1815           /* Rewrite relocation type.  */
1816           switch ((enum elf_microblaze_reloc_type) ELF32_R_TYPE (irel->r_info))
1817             {
1818             case R_MICROBLAZE_64_PCREL:
1819               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1820                                            (int) R_MICROBLAZE_32_PCREL_LO);
1821               break;
1822             case R_MICROBLAZE_64:
1823               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1824                                            (int) R_MICROBLAZE_32_LO);
1825               break;
1826             default:
1827               /* Cannot happen.  */
1828               BFD_ASSERT (FALSE);
1829             }
1830         }
1831     } /* Loop through all relocations.  */
1832
1833   /* Loop through the relocs again, and see if anything needs to change.  */
1834   if (sec->relax_count > 0)
1835     {
1836       shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1837       rel_count = 0;
1838       sec->relax[sec->relax_count].addr = sec->size;
1839
1840       for (irel = internal_relocs; irel < irelend; irel++, rel_count++)
1841         {
1842           bfd_vma nraddr;
1843
1844           /* Get the new reloc address.  */
1845           nraddr = irel->r_offset - calc_fixup (irel->r_offset, 0, sec);
1846           switch ((enum elf_microblaze_reloc_type) ELF32_R_TYPE (irel->r_info))
1847             {
1848             default:
1849               break;
1850             case R_MICROBLAZE_64_PCREL:
1851               break;
1852             case R_MICROBLAZE_64:
1853             case R_MICROBLAZE_32_LO:
1854               /* If this reloc is against a symbol defined in this
1855                  section, we must check the addend to see it will put the value in
1856                  range to be adjusted, and hence must be changed.  */
1857               if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1858                 {
1859                   isym = isymbuf + ELF32_R_SYM (irel->r_info);
1860                   /* Only handle relocs against .text.  */
1861                   if (isym->st_shndx == shndx
1862                       && ELF32_ST_TYPE (isym->st_info) == STT_SECTION)
1863                     irel->r_addend -= calc_fixup (irel->r_addend, 0, sec);
1864                 }
1865               break;
1866             case R_MICROBLAZE_NONE:
1867               {
1868                 /* This was a PC-relative instruction that was
1869                    completely resolved.  */
1870                 int sfix, efix;
1871                 bfd_vma target_address;
1872                 target_address = irel->r_addend + irel->r_offset;
1873                 sfix = calc_fixup (irel->r_offset, 0, sec);
1874                 efix = calc_fixup (target_address, 0, sec);
1875                 irel->r_addend -= (efix - sfix);
1876                 /* Should use HOWTO.  */
1877                 microblaze_bfd_write_imm_value_32 (abfd, contents + irel->r_offset,
1878                                                    irel->r_addend);
1879               }
1880               break;
1881             case R_MICROBLAZE_64_NONE:
1882               {
1883                 /* This was a PC-relative 64-bit instruction that was
1884                    completely resolved.  */
1885                 int sfix, efix;
1886                 bfd_vma target_address;
1887                 target_address = irel->r_addend + irel->r_offset + INST_WORD_SIZE;
1888                 sfix = calc_fixup (irel->r_offset + INST_WORD_SIZE, 0, sec);
1889                 efix = calc_fixup (target_address, 0, sec);
1890                 irel->r_addend -= (efix - sfix);
1891     microblaze_bfd_write_imm_value_32 (abfd, contents + irel->r_offset
1892                                        + INST_WORD_SIZE, irel->r_addend);
1893               }
1894               break;
1895             }
1896           irel->r_offset = nraddr;
1897         } /* Change all relocs in this section.  */
1898
1899       /* Look through all other sections.  */
1900       for (o = abfd->sections; o != NULL; o = o->next)
1901         {
1902           Elf_Internal_Rela *irelocs;
1903           Elf_Internal_Rela *irelscan, *irelscanend;
1904           bfd_byte *ocontents;
1905
1906           if (o == sec
1907               || (o->flags & SEC_RELOC) == 0
1908               || o->reloc_count == 0)
1909             continue;
1910
1911           /* We always cache the relocs.  Perhaps, if info->keep_memory is
1912              FALSE, we should free them, if we are permitted to.  */
1913
1914           irelocs = _bfd_elf_link_read_relocs (abfd, o, NULL, NULL, TRUE);
1915           if (irelocs == NULL)
1916             goto error_return;
1917
1918           ocontents = NULL;
1919           irelscanend = irelocs + o->reloc_count;
1920           for (irelscan = irelocs; irelscan < irelscanend; irelscan++)
1921             {
1922               if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32)
1923                 {
1924                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1925
1926                   /* Look at the reloc only if the value has been resolved.  */
1927                   if (isym->st_shndx == shndx
1928                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
1929                     {
1930                       if (ocontents == NULL)
1931                         {
1932                           if (elf_section_data (o)->this_hdr.contents != NULL)
1933                             ocontents = elf_section_data (o)->this_hdr.contents;
1934                           else
1935                             {
1936                               /* We always cache the section contents.
1937                                  Perhaps, if info->keep_memory is FALSE, we
1938                                  should free them, if we are permitted to.  */
1939                               if (o->rawsize == 0)
1940                                 o->rawsize = o->size;
1941                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1942                               if (ocontents == NULL)
1943                                 goto error_return;
1944                               if (!bfd_get_section_contents (abfd, o, ocontents,
1945                                                              (file_ptr) 0,
1946                                                              o->rawsize))
1947                                 goto error_return;
1948                               elf_section_data (o)->this_hdr.contents = ocontents;
1949                             }
1950
1951                         }
1952                       irelscan->r_addend -= calc_fixup (irelscan->r_addend, 0, sec);
1953                     }
1954                   else if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_SYM_OP_SYM)
1955                     {
1956                       isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1957
1958                       /* Look at the reloc only if the value has been resolved.  */
1959                       if (ocontents == NULL)
1960                         {
1961                           if (elf_section_data (o)->this_hdr.contents != NULL)
1962                             ocontents = elf_section_data (o)->this_hdr.contents;
1963                           else
1964                             {
1965                               /* We always cache the section contents.
1966                                  Perhaps, if info->keep_memory is FALSE, we
1967                                  should free them, if we are permitted to.  */
1968
1969                               if (o->rawsize == 0)
1970                                 o->rawsize = o->size;
1971                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1972                               if (ocontents == NULL)
1973                                 goto error_return;
1974                               if (!bfd_get_section_contents (abfd, o, ocontents,
1975                                                              (file_ptr) 0,
1976                                                              o->rawsize))
1977                                 goto error_return;
1978                               elf_section_data (o)->this_hdr.contents = ocontents;
1979                             }
1980                         }
1981                       irelscan->r_addend -= calc_fixup (irel->r_addend
1982                                                         + isym->st_value,
1983                                                         0,
1984                                                         sec);
1985                     }
1986                 }
1987               else if ((ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_PCREL_LO)
1988                        || (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_LO))
1989                 {
1990                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1991
1992                   /* Look at the reloc only if the value has been resolved.  */
1993                   if (isym->st_shndx == shndx
1994                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
1995                     {
1996                       bfd_vma immediate;
1997                       bfd_vma target_address;
1998
1999                       if (ocontents == NULL)
2000                         {
2001                           if (elf_section_data (o)->this_hdr.contents != NULL)
2002                             ocontents = elf_section_data (o)->this_hdr.contents;
2003                           else
2004                             {
2005                               /* We always cache the section contents.
2006                                  Perhaps, if info->keep_memory is FALSE, we
2007                                  should free them, if we are permitted to.  */
2008                               if (o->rawsize == 0)
2009                                 o->rawsize = o->size;
2010                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2011                               if (ocontents == NULL)
2012                                 goto error_return;
2013                               if (!bfd_get_section_contents (abfd, o, ocontents,
2014                                                              (file_ptr) 0,
2015                                                              o->rawsize))
2016                                 goto error_return;
2017                               elf_section_data (o)->this_hdr.contents = ocontents;
2018                             }
2019                         }
2020
2021                       unsigned long instr = bfd_get_32 (abfd, ocontents + irelscan->r_offset);
2022                       immediate = instr & 0x0000ffff;
2023                       target_address = immediate;
2024                       offset = calc_fixup (target_address, 0, sec);
2025                       immediate -= offset;
2026                       irelscan->r_addend -= offset;
2027           microblaze_bfd_write_imm_value_32 (abfd, ocontents + irelscan->r_offset,
2028                                              irelscan->r_addend);
2029                     }
2030                 }
2031
2032               if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_64)
2033                 {
2034                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
2035
2036                   /* Look at the reloc only if the value has been resolved.  */
2037                   if (isym->st_shndx == shndx
2038                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
2039                     {
2040                       bfd_vma immediate;
2041
2042                       if (ocontents == NULL)
2043                         {
2044                           if (elf_section_data (o)->this_hdr.contents != NULL)
2045                             ocontents = elf_section_data (o)->this_hdr.contents;
2046                           else
2047                             {
2048                               /* We always cache the section contents.
2049                                  Perhaps, if info->keep_memory is FALSE, we
2050                                  should free them, if we are permitted to.  */
2051
2052                               if (o->rawsize == 0)
2053                                 o->rawsize = o->size;
2054                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2055                               if (ocontents == NULL)
2056                                 goto error_return;
2057                               if (!bfd_get_section_contents (abfd, o, ocontents,
2058                                                              (file_ptr) 0,
2059                                                              o->rawsize))
2060                                 goto error_return;
2061                               elf_section_data (o)->this_hdr.contents = ocontents;
2062                             }
2063                         }
2064           unsigned long instr_hi =  bfd_get_32 (abfd, ocontents
2065                                                 + irelscan->r_offset);
2066           unsigned long instr_lo =  bfd_get_32 (abfd, ocontents
2067                                                 + irelscan->r_offset
2068                                                 + INST_WORD_SIZE);
2069           immediate = (instr_hi & 0x0000ffff) << 16;
2070           immediate |= (instr_lo & 0x0000ffff);
2071                       offset = calc_fixup (irelscan->r_addend, 0, sec);
2072                       immediate -= offset;
2073                       irelscan->r_addend -= offset;
2074                     }
2075                 }
2076               else if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_64_PCREL)
2077                 {
2078                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
2079
2080                   /* Look at the reloc only if the value has been resolved.  */
2081                   if (isym->st_shndx == shndx
2082                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
2083                     {
2084                       bfd_vma immediate;
2085                       bfd_vma target_address;
2086
2087                       if (ocontents == NULL)
2088                         {
2089                           if (elf_section_data (o)->this_hdr.contents != NULL)
2090                             ocontents = elf_section_data (o)->this_hdr.contents;
2091                           else
2092                             {
2093                               /* We always cache the section contents.
2094                                  Perhaps, if info->keep_memory is FALSE, we
2095                                  should free them, if we are permitted to.  */
2096                               if (o->rawsize == 0)
2097                                 o->rawsize = o->size;
2098                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2099                               if (ocontents == NULL)
2100                                 goto error_return;
2101                               if (!bfd_get_section_contents (abfd, o, ocontents,
2102                                                              (file_ptr) 0,
2103                                                              o->rawsize))
2104                                 goto error_return;
2105                               elf_section_data (o)->this_hdr.contents = ocontents;
2106                             }
2107                         }
2108           unsigned long instr_hi =  bfd_get_32 (abfd, ocontents
2109                                                 + irelscan->r_offset);
2110           unsigned long instr_lo =  bfd_get_32 (abfd, ocontents
2111                                                 + irelscan->r_offset
2112                                                 + INST_WORD_SIZE);
2113           immediate = (instr_hi & 0x0000ffff) << 16;
2114           immediate |= (instr_lo & 0x0000ffff);
2115                       target_address = immediate;
2116                       offset = calc_fixup (target_address, 0, sec);
2117                       immediate -= offset;
2118                       irelscan->r_addend -= offset;
2119           microblaze_bfd_write_imm_value_64 (abfd, ocontents
2120                                              + irelscan->r_offset, immediate);
2121                     }
2122                 }
2123             }
2124         }
2125
2126       /* Adjust the local symbols defined in this section.  */
2127       isymend = isymbuf + symtab_hdr->sh_info;
2128       for (isym = isymbuf; isym < isymend; isym++)
2129         {
2130           if (isym->st_shndx == shndx)
2131             {
2132               isym->st_value -= calc_fixup (isym->st_value, 0, sec);
2133               if (isym->st_size)
2134                 isym->st_size -= calc_fixup (isym->st_value, isym->st_size, sec);
2135             }
2136         }
2137
2138       /* Now adjust the global symbols defined in this section.  */
2139       isym = isymbuf + symtab_hdr->sh_info;
2140       symcount =  (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)) - symtab_hdr->sh_info;
2141       for (sym_index = 0; sym_index < symcount; sym_index++)
2142         {
2143           sym_hash = elf_sym_hashes (abfd)[sym_index];
2144           if ((sym_hash->root.type == bfd_link_hash_defined
2145                   || sym_hash->root.type == bfd_link_hash_defweak)
2146               && sym_hash->root.u.def.section == sec)
2147             {
2148               sym_hash->root.u.def.value -= calc_fixup (sym_hash->root.u.def.value,
2149                                                         0, sec);
2150               if (sym_hash->size)
2151                 sym_hash->size -= calc_fixup (sym_hash->root.u.def.value,
2152                                               sym_hash->size, sec);
2153             }
2154         }
2155
2156       /* Physically move the code and change the cooked size.  */
2157       dest = sec->relax[0].addr;
2158       for (i = 0; i < sec->relax_count; i++)
2159         {
2160           int len;
2161           src = sec->relax[i].addr + sec->relax[i].size;
2162           len = sec->relax[i+1].addr - sec->relax[i].addr - sec->relax[i].size;
2163
2164           memmove (contents + dest, contents + src, len);
2165           sec->size -= sec->relax[i].size;
2166           dest += len;
2167         }
2168
2169       elf_section_data (sec)->relocs = internal_relocs;
2170       free_relocs = NULL;
2171
2172       elf_section_data (sec)->this_hdr.contents = contents;
2173       free_contents = NULL;
2174
2175       symtab_hdr->contents = (bfd_byte *) isymbuf;
2176     }
2177
2178   if (free_relocs != NULL)
2179     {
2180       free (free_relocs);
2181       free_relocs = NULL;
2182     }
2183
2184   if (free_contents != NULL)
2185     {
2186       if (!link_info->keep_memory)
2187         free (free_contents);
2188       else
2189         /* Cache the section contents for elf_link_input_bfd.  */
2190         elf_section_data (sec)->this_hdr.contents = contents;
2191       free_contents = NULL;
2192     }
2193
2194   if (sec->relax_count == 0)
2195     {
2196       *again = FALSE;
2197       free (sec->relax);
2198       sec->relax = NULL;
2199     }
2200   else
2201     *again = TRUE;
2202   return TRUE;
2203
2204  error_return:
2205   if (free_relocs != NULL)
2206     free (free_relocs);
2207   if (free_contents != NULL)
2208     free (free_contents);
2209   if (sec->relax != NULL)
2210     {
2211       free (sec->relax);
2212       sec->relax = NULL;
2213       sec->relax_count = 0;
2214     }
2215   return FALSE;
2216 }
2217
2218 /* Return the section that should be marked against GC for a given
2219    relocation.  */
2220
2221 static asection *
2222 microblaze_elf_gc_mark_hook (asection *sec,
2223                              struct bfd_link_info * info,
2224                              Elf_Internal_Rela * rel,
2225                              struct elf_link_hash_entry * h,
2226                              Elf_Internal_Sym * sym)
2227 {
2228   if (h != NULL)
2229     switch (ELF32_R_TYPE (rel->r_info))
2230       {
2231       case R_MICROBLAZE_GNU_VTINHERIT:
2232       case R_MICROBLAZE_GNU_VTENTRY:
2233         return NULL;
2234       }
2235
2236   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2237 }
2238
2239 /* Update the got entry reference counts for the section being removed.  */
2240
2241 static bfd_boolean
2242 microblaze_elf_gc_sweep_hook (bfd * abfd ATTRIBUTE_UNUSED,
2243                               struct bfd_link_info * info ATTRIBUTE_UNUSED,
2244                               asection * sec ATTRIBUTE_UNUSED,
2245                               const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED)
2246 {
2247   return TRUE;
2248 }
2249
2250 /* PIC support.  */
2251
2252 #define PLT_ENTRY_SIZE 16
2253
2254 #define PLT_ENTRY_WORD_0  0xb0000000          /* "imm 0".  */
2255 #define PLT_ENTRY_WORD_1  0xe9940000          /* "lwi r12,r20,0" - relocated to lwi r12,r20,func@GOT.  */
2256 #define PLT_ENTRY_WORD_1_NOPIC  0xe9800000    /* "lwi r12,r0,0" - non-PIC object.  */
2257 #define PLT_ENTRY_WORD_2  0x98186000          /* "brad r12".  */
2258 #define PLT_ENTRY_WORD_3  0x80000000          /* "nop".  */
2259
2260 /* Create .got, .gotplt, and .rela.got sections in DYNOBJ, and set up
2261    shortcuts to them in our hash table.  */
2262
2263 static bfd_boolean
2264 create_got_section (bfd *dynobj, struct bfd_link_info *info)
2265 {
2266   struct elf32_mb_link_hash_table *htab;
2267
2268   if (! _bfd_elf_create_got_section (dynobj, info))
2269     return FALSE;
2270   htab = elf32_mb_hash_table (info);
2271   if (htab == NULL)
2272     return FALSE;
2273
2274   htab->sgot = bfd_get_linker_section (dynobj, ".got");
2275   htab->sgotplt = bfd_get_linker_section (dynobj, ".got.plt");
2276   if (!htab->sgot || !htab->sgotplt)
2277     return FALSE;
2278
2279   if ((htab->srelgot = bfd_get_linker_section (dynobj, ".rela.got")) == NULL)
2280     htab->srelgot = bfd_make_section_anyway (dynobj, ".rela.got");
2281   if (htab->srelgot == NULL
2282       || ! bfd_set_section_flags (dynobj, htab->srelgot, SEC_ALLOC
2283                                   | SEC_LOAD
2284                                   | SEC_HAS_CONTENTS
2285                                   | SEC_IN_MEMORY
2286                                   | SEC_LINKER_CREATED
2287                                   | SEC_READONLY)
2288       || ! bfd_set_section_alignment (dynobj, htab->srelgot, 2))
2289     return FALSE;
2290   return TRUE;
2291 }
2292
2293 static bfd_boolean
2294 update_local_sym_info (bfd *abfd,
2295                        Elf_Internal_Shdr *symtab_hdr,
2296                        unsigned long r_symndx,
2297                        unsigned int tls_type)
2298 {
2299   bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
2300   unsigned char *local_got_tls_masks;
2301
2302   if (local_got_refcounts == NULL)
2303     {
2304       bfd_size_type size = symtab_hdr->sh_info;
2305
2306       size *= (sizeof (*local_got_refcounts) + sizeof (*local_got_tls_masks));
2307       local_got_refcounts = bfd_zalloc (abfd, size);
2308       if (local_got_refcounts == NULL)
2309         return FALSE;
2310       elf_local_got_refcounts (abfd) = local_got_refcounts;
2311     }
2312
2313   local_got_tls_masks =
2314          (unsigned char *) (local_got_refcounts + symtab_hdr->sh_info);
2315   local_got_tls_masks[r_symndx] |= tls_type;
2316   local_got_refcounts[r_symndx] += 1;
2317
2318   return TRUE;
2319 }
2320 /* Look through the relocs for a section during the first phase.  */
2321
2322 static bfd_boolean
2323 microblaze_elf_check_relocs (bfd * abfd,
2324                              struct bfd_link_info * info,
2325                              asection * sec,
2326                              const Elf_Internal_Rela * relocs)
2327 {
2328   Elf_Internal_Shdr *           symtab_hdr;
2329   struct elf_link_hash_entry ** sym_hashes;
2330   struct elf_link_hash_entry ** sym_hashes_end;
2331   const Elf_Internal_Rela *     rel;
2332   const Elf_Internal_Rela *     rel_end;
2333   struct elf32_mb_link_hash_table *htab;
2334   asection *sreloc = NULL;
2335
2336   if (bfd_link_relocatable (info))
2337     return TRUE;
2338
2339   htab = elf32_mb_hash_table (info);
2340   if (htab == NULL)
2341     return FALSE;
2342
2343   symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2344   sym_hashes = elf_sym_hashes (abfd);
2345   sym_hashes_end = sym_hashes + symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
2346   if (!elf_bad_symtab (abfd))
2347     sym_hashes_end -= symtab_hdr->sh_info;
2348
2349   rel_end = relocs + sec->reloc_count;
2350
2351   for (rel = relocs; rel < rel_end; rel++)
2352     {
2353       unsigned int r_type;
2354       struct elf_link_hash_entry * h;
2355       unsigned long r_symndx;
2356       unsigned char tls_type = 0;
2357
2358       r_symndx = ELF32_R_SYM (rel->r_info);
2359       r_type = ELF32_R_TYPE (rel->r_info);
2360
2361       if (r_symndx < symtab_hdr->sh_info)
2362         h = NULL;
2363       else
2364         {
2365           h = sym_hashes [r_symndx - symtab_hdr->sh_info];
2366
2367           /* PR15323, ref flags aren't set for references in the same
2368              object.  */
2369           h->root.non_ir_ref = 1;
2370         }
2371
2372       switch (r_type)
2373         {
2374           /* This relocation describes the C++ object vtable hierarchy.
2375              Reconstruct it for later use during GC.  */
2376         case R_MICROBLAZE_GNU_VTINHERIT:
2377           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2378             return FALSE;
2379           break;
2380
2381           /* This relocation describes which C++ vtable entries are actually
2382              used.  Record for later use during GC.  */
2383         case R_MICROBLAZE_GNU_VTENTRY:
2384           if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2385             return FALSE;
2386           break;
2387
2388           /* This relocation requires .plt entry.  */
2389         case R_MICROBLAZE_PLT_64:
2390           if (h != NULL)
2391             {
2392               h->needs_plt = 1;
2393               h->plt.refcount += 1;
2394             }
2395           break;
2396
2397           /* This relocation requires .got entry.  */
2398         case R_MICROBLAZE_TLSGD:
2399           tls_type |= (TLS_TLS | TLS_GD);
2400           goto dogottls;
2401         case R_MICROBLAZE_TLSLD:
2402           tls_type |= (TLS_TLS | TLS_LD);
2403         dogottls:
2404           sec->has_tls_reloc = 1;
2405         case R_MICROBLAZE_GOT_64:
2406           if (htab->sgot == NULL)
2407             {
2408               if (htab->elf.dynobj == NULL)
2409                 htab->elf.dynobj = abfd;
2410               if (!create_got_section (htab->elf.dynobj, info))
2411                 return FALSE;
2412             }
2413           if (h != NULL)
2414             {
2415               h->got.refcount += 1;
2416               elf32_mb_hash_entry (h)->tls_mask |= tls_type;
2417             }
2418           else
2419             {
2420               if (! update_local_sym_info(abfd, symtab_hdr, r_symndx, tls_type) )
2421                 return FALSE;
2422             }
2423           break;
2424
2425         case R_MICROBLAZE_64:
2426         case R_MICROBLAZE_64_PCREL:
2427         case R_MICROBLAZE_32:
2428           {
2429             if (h != NULL && !bfd_link_pic (info))
2430               {
2431                 /* we may need a copy reloc.  */
2432                 h->non_got_ref = 1;
2433
2434                 /* we may also need a .plt entry.  */
2435                 h->plt.refcount += 1;
2436                 if (ELF32_R_TYPE (rel->r_info) != R_MICROBLAZE_64_PCREL)
2437                   h->pointer_equality_needed = 1;
2438               }
2439
2440
2441             /* If we are creating a shared library, and this is a reloc
2442                against a global symbol, or a non PC relative reloc
2443                against a local symbol, then we need to copy the reloc
2444                into the shared library.  However, if we are linking with
2445                -Bsymbolic, we do not need to copy a reloc against a
2446                global symbol which is defined in an object we are
2447                including in the link (i.e., DEF_REGULAR is set).  At
2448                this point we have not seen all the input files, so it is
2449                possible that DEF_REGULAR is not set now but will be set
2450                later (it is never cleared).  In case of a weak definition,
2451                DEF_REGULAR may be cleared later by a strong definition in
2452                a shared library.  We account for that possibility below by
2453                storing information in the relocs_copied field of the hash
2454                table entry.  A similar situation occurs when creating
2455                shared libraries and symbol visibility changes render the
2456                symbol local.
2457
2458                If on the other hand, we are creating an executable, we
2459                may need to keep relocations for symbols satisfied by a
2460                dynamic library if we manage to avoid copy relocs for the
2461                symbol.  */
2462
2463             if ((bfd_link_pic (info)
2464                  && (sec->flags & SEC_ALLOC) != 0
2465                  && (r_type != R_MICROBLAZE_64_PCREL
2466                      || (h != NULL
2467                          && (! info->symbolic
2468                              || h->root.type == bfd_link_hash_defweak
2469                              || !h->def_regular))))
2470                 || (!bfd_link_pic (info)
2471                     && (sec->flags & SEC_ALLOC) != 0
2472                     && h != NULL
2473                     && (h->root.type == bfd_link_hash_defweak
2474                         || !h->def_regular)))
2475               {
2476                 struct elf32_mb_dyn_relocs *p;
2477                 struct elf32_mb_dyn_relocs **head;
2478
2479                 /* When creating a shared object, we must copy these
2480                    relocs into the output file.  We create a reloc
2481                    section in dynobj and make room for the reloc.  */
2482
2483                 if (sreloc == NULL)
2484                   {
2485                     bfd *dynobj;
2486
2487                     if (htab->elf.dynobj == NULL)
2488                       htab->elf.dynobj = abfd;
2489                     dynobj = htab->elf.dynobj;
2490
2491                     sreloc = _bfd_elf_make_dynamic_reloc_section (sec, dynobj,
2492                                                                   2, abfd, 1);
2493                     if (sreloc == NULL)
2494                       return FALSE;
2495                   }
2496
2497                 /* If this is a global symbol, we count the number of
2498                    relocations we need for this symbol.  */
2499                 if (h != NULL)
2500                   head = &((struct elf32_mb_link_hash_entry *) h)->dyn_relocs;
2501                 else
2502                   {
2503                     /* Track dynamic relocs needed for local syms too.
2504                        We really need local syms available to do this
2505                        easily.  Oh well.  */
2506
2507                     asection *s;
2508                     Elf_Internal_Sym *isym;
2509                     void *vpp;
2510
2511                     isym = bfd_sym_from_r_symndx (&htab->sym_sec,
2512                                                   abfd, r_symndx);
2513                     if (isym == NULL)
2514                       return FALSE;
2515
2516                     s = bfd_section_from_elf_index (abfd, isym->st_shndx);
2517                     if (s == NULL)
2518                       return FALSE;
2519
2520                     vpp = &elf_section_data (s)->local_dynrel;
2521                     head = (struct elf32_mb_dyn_relocs **) vpp;
2522                   }
2523
2524                 p = *head;
2525                 if (p == NULL || p->sec != sec)
2526                   {
2527                     bfd_size_type amt = sizeof *p;
2528                     p = ((struct elf32_mb_dyn_relocs *)
2529                          bfd_alloc (htab->elf.dynobj, amt));
2530                     if (p == NULL)
2531                       return FALSE;
2532                     p->next = *head;
2533                     *head = p;
2534                     p->sec = sec;
2535                     p->count = 0;
2536                     p->pc_count = 0;
2537                   }
2538
2539                 p->count += 1;
2540                 if (r_type == R_MICROBLAZE_64_PCREL)
2541                   p->pc_count += 1;
2542               }
2543           }
2544           break;
2545         }
2546     }
2547
2548   return TRUE;
2549 }
2550
2551 static bfd_boolean
2552 microblaze_elf_create_dynamic_sections (bfd *dynobj, struct bfd_link_info *info)
2553 {
2554   struct elf32_mb_link_hash_table *htab;
2555
2556   htab = elf32_mb_hash_table (info);
2557   if (htab == NULL)
2558     return FALSE;
2559
2560   if (!htab->sgot && !create_got_section (dynobj, info))
2561     return FALSE;
2562
2563   if (!_bfd_elf_create_dynamic_sections (dynobj, info))
2564     return FALSE;
2565
2566   htab->splt = bfd_get_linker_section (dynobj, ".plt");
2567   htab->srelplt = bfd_get_linker_section (dynobj, ".rela.plt");
2568   htab->sdynbss = bfd_get_linker_section (dynobj, ".dynbss");
2569   if (!bfd_link_pic (info))
2570     htab->srelbss = bfd_get_linker_section (dynobj, ".rela.bss");
2571
2572   if (!htab->splt || !htab->srelplt || !htab->sdynbss
2573       || (!bfd_link_pic (info) && !htab->srelbss))
2574     abort ();
2575
2576   return TRUE;
2577 }
2578
2579 /* Copy the extra info we tack onto an elf_link_hash_entry.  */
2580
2581 static void
2582 microblaze_elf_copy_indirect_symbol (struct bfd_link_info *info,
2583                                      struct elf_link_hash_entry *dir,
2584                                      struct elf_link_hash_entry *ind)
2585 {
2586   struct elf32_mb_link_hash_entry *edir, *eind;
2587
2588   edir = (struct elf32_mb_link_hash_entry *) dir;
2589   eind = (struct elf32_mb_link_hash_entry *) ind;
2590
2591   if (eind->dyn_relocs != NULL)
2592     {
2593       if (edir->dyn_relocs != NULL)
2594         {
2595           struct elf32_mb_dyn_relocs **pp;
2596           struct elf32_mb_dyn_relocs *p;
2597
2598           if (ind->root.type == bfd_link_hash_indirect)
2599             abort ();
2600
2601           /* Add reloc counts against the weak sym to the strong sym
2602              list.  Merge any entries against the same section.  */
2603           for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
2604             {
2605               struct elf32_mb_dyn_relocs *q;
2606
2607               for (q = edir->dyn_relocs; q != NULL; q = q->next)
2608                 if (q->sec == p->sec)
2609                   {
2610                     q->pc_count += p->pc_count;
2611                     q->count += p->count;
2612                     *pp = p->next;
2613                     break;
2614                   }
2615               if (q == NULL)
2616                 pp = &p->next;
2617             }
2618           *pp = edir->dyn_relocs;
2619         }
2620
2621       edir->dyn_relocs = eind->dyn_relocs;
2622       eind->dyn_relocs = NULL;
2623     }
2624
2625   edir->tls_mask |= eind->tls_mask;
2626
2627   _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2628 }
2629
2630 static bfd_boolean
2631 microblaze_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
2632                                       struct elf_link_hash_entry *h)
2633 {
2634   struct elf32_mb_link_hash_table *htab;
2635   struct elf32_mb_link_hash_entry * eh;
2636   struct elf32_mb_dyn_relocs *p;
2637   asection *sdynbss, *s;
2638   unsigned int power_of_two;
2639   bfd *dynobj;
2640
2641   htab = elf32_mb_hash_table (info);
2642   if (htab == NULL)
2643     return FALSE;
2644
2645   /* If this is a function, put it in the procedure linkage table.  We
2646      will fill in the contents of the procedure linkage table later,
2647      when we know the address of the .got section.  */
2648   if (h->type == STT_FUNC
2649       || h->needs_plt)
2650     {
2651       if (h->plt.refcount <= 0
2652           || SYMBOL_CALLS_LOCAL (info, h)
2653           || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2654               && h->root.type == bfd_link_hash_undefweak))
2655         {
2656           /* This case can occur if we saw a PLT reloc in an input
2657              file, but the symbol was never referred to by a dynamic
2658              object, or if all references were garbage collected.  In
2659              such a case, we don't actually need to build a procedure
2660              linkage table, and we can just do a PC32 reloc instead.  */
2661           h->plt.offset = (bfd_vma) -1;
2662           h->needs_plt = 0;
2663         }
2664
2665       return TRUE;
2666     }
2667   else
2668     /* It's possible that we incorrectly decided a .plt reloc was
2669        needed for an R_MICROBLAZE_64_PCREL reloc to a non-function sym in
2670        check_relocs.  We can't decide accurately between function and
2671        non-function syms in check-relocs;  Objects loaded later in
2672        the link may change h->type.  So fix it now.  */
2673     h->plt.offset = (bfd_vma) -1;
2674
2675   /* If this is a weak symbol, and there is a real definition, the
2676      processor independent code will have arranged for us to see the
2677      real definition first, and we can just use the same value.  */
2678   if (h->u.weakdef != NULL)
2679     {
2680       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
2681                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
2682       h->root.u.def.section = h->u.weakdef->root.u.def.section;
2683       h->root.u.def.value = h->u.weakdef->root.u.def.value;
2684       return TRUE;
2685     }
2686
2687   /* This is a reference to a symbol defined by a dynamic object which
2688      is not a function.  */
2689
2690   /* If we are creating a shared library, we must presume that the
2691      only references to the symbol are via the global offset table.
2692      For such cases we need not do anything here; the relocations will
2693      be handled correctly by relocate_section.  */
2694   if (bfd_link_pic (info))
2695     return TRUE;
2696
2697   /* If there are no references to this symbol that do not use the
2698      GOT, we don't need to generate a copy reloc.  */
2699   if (!h->non_got_ref)
2700     return TRUE;
2701
2702   /* If -z nocopyreloc was given, we won't generate them either.  */
2703   if (info->nocopyreloc)
2704     {
2705       h->non_got_ref = 0;
2706       return TRUE;
2707     }
2708
2709   eh = (struct elf32_mb_link_hash_entry *) h;
2710   for (p = eh->dyn_relocs; p != NULL; p = p->next)
2711     {
2712       s = p->sec->output_section;
2713       if (s != NULL && (s->flags & SEC_READONLY) != 0)
2714         break;
2715     }
2716
2717   /* If we didn't find any dynamic relocs in read-only sections, then
2718      we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
2719   if (p == NULL)
2720     {
2721       h->non_got_ref = 0;
2722       return TRUE;
2723     }
2724
2725   /* We must allocate the symbol in our .dynbss section, which will
2726      become part of the .bss section of the executable.  There will be
2727      an entry for this symbol in the .dynsym section.  The dynamic
2728      object will contain position independent code, so all references
2729      from the dynamic object to this symbol will go through the global
2730      offset table.  The dynamic linker will use the .dynsym entry to
2731      determine the address it must put in the global offset table, so
2732      both the dynamic object and the regular object will refer to the
2733      same memory location for the variable.  */
2734
2735   /* We must generate a R_MICROBLAZE_COPY reloc to tell the dynamic linker
2736      to copy the initial value out of the dynamic object and into the
2737      runtime process image.  */
2738   dynobj = elf_hash_table (info)->dynobj;
2739   BFD_ASSERT (dynobj != NULL);
2740   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2741     {
2742       htab->srelbss->size += sizeof (Elf32_External_Rela);
2743       h->needs_copy = 1;
2744     }
2745
2746   /* We need to figure out the alignment required for this symbol.  I
2747      have no idea how ELF linkers handle this.  */
2748   power_of_two = bfd_log2 (h->size);
2749   if (power_of_two > 3)
2750     power_of_two = 3;
2751
2752   sdynbss = htab->sdynbss;
2753   /* Apply the required alignment.  */
2754   sdynbss->size = BFD_ALIGN (sdynbss->size, (bfd_size_type) (1 << power_of_two));
2755   if (power_of_two > bfd_get_section_alignment (dynobj, sdynbss))
2756     {
2757       if (! bfd_set_section_alignment (dynobj, sdynbss, power_of_two))
2758         return FALSE;
2759     }
2760
2761   /* Define the symbol as being at this point in the section.  */
2762   h->root.u.def.section = sdynbss;
2763   h->root.u.def.value = sdynbss->size;
2764
2765   /* Increment the section size to make room for the symbol.  */
2766   sdynbss->size += h->size;
2767   return TRUE;
2768 }
2769
2770 /* Allocate space in .plt, .got and associated reloc sections for
2771    dynamic relocs.  */
2772
2773 static bfd_boolean
2774 allocate_dynrelocs (struct elf_link_hash_entry *h, void * dat)
2775 {
2776   struct bfd_link_info *info;
2777   struct elf32_mb_link_hash_table *htab;
2778   struct elf32_mb_link_hash_entry *eh;
2779   struct elf32_mb_dyn_relocs *p;
2780
2781   if (h->root.type == bfd_link_hash_indirect)
2782     return TRUE;
2783
2784   info = (struct bfd_link_info *) dat;
2785   htab = elf32_mb_hash_table (info);
2786   if (htab == NULL)
2787     return FALSE;
2788
2789   if (htab->elf.dynamic_sections_created
2790       && h->plt.refcount > 0)
2791     {
2792       /* Make sure this symbol is output as a dynamic symbol.
2793          Undefined weak syms won't yet be marked as dynamic.  */
2794       if (h->dynindx == -1
2795           && !h->forced_local)
2796         {
2797           if (! bfd_elf_link_record_dynamic_symbol (info, h))
2798             return FALSE;
2799         }
2800
2801       if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
2802         {
2803           asection *s = htab->splt;
2804
2805           /* The first entry in .plt is reserved.  */
2806           if (s->size == 0)
2807             s->size = PLT_ENTRY_SIZE;
2808
2809           h->plt.offset = s->size;
2810
2811           /* If this symbol is not defined in a regular file, and we are
2812              not generating a shared library, then set the symbol to this
2813              location in the .plt.  This is required to make function
2814              pointers compare as equal between the normal executable and
2815              the shared library.  */
2816           if (! bfd_link_pic (info)
2817               && !h->def_regular)
2818             {
2819               h->root.u.def.section = s;
2820               h->root.u.def.value = h->plt.offset;
2821             }
2822
2823           /* Make room for this entry.  */
2824           s->size += PLT_ENTRY_SIZE;
2825
2826           /* We also need to make an entry in the .got.plt section, which
2827              will be placed in the .got section by the linker script.  */
2828           htab->sgotplt->size += 4;
2829
2830           /* We also need to make an entry in the .rel.plt section.  */
2831           htab->srelplt->size += sizeof (Elf32_External_Rela);
2832         }
2833       else
2834         {
2835           h->plt.offset = (bfd_vma) -1;
2836           h->needs_plt = 0;
2837         }
2838     }
2839   else
2840     {
2841       h->plt.offset = (bfd_vma) -1;
2842       h->needs_plt = 0;
2843     }
2844
2845   eh = (struct elf32_mb_link_hash_entry *) h;
2846   if (h->got.refcount > 0)
2847     {
2848       unsigned int need;
2849       asection *s;
2850
2851       /* Make sure this symbol is output as a dynamic symbol.
2852          Undefined weak syms won't yet be marked as dynamic.  */
2853       if (h->dynindx == -1
2854           && !h->forced_local)
2855         {
2856           if (! bfd_elf_link_record_dynamic_symbol (info, h))
2857             return FALSE;
2858         }
2859
2860       need = 0;
2861       if ((eh->tls_mask & TLS_TLS) != 0)
2862         {
2863           /* Handle TLS Symbol */
2864           if ((eh->tls_mask & TLS_LD) != 0)
2865             {
2866               if (!eh->elf.def_dynamic)
2867                 /* We'll just use htab->tlsld_got.offset.  This should
2868                    always be the case.  It's a little odd if we have
2869                    a local dynamic reloc against a non-local symbol.  */
2870                 htab->tlsld_got.refcount += 1;
2871               else
2872                 need += 8;
2873             }
2874           if ((eh->tls_mask & TLS_GD) != 0)
2875             need += 8;
2876         }
2877       else
2878         {
2879           /* Regular (non-TLS) symbol */
2880           need += 4;
2881         }
2882       if (need == 0)
2883         {
2884           h->got.offset = (bfd_vma) -1;
2885         }
2886       else
2887         {
2888           s = htab->sgot;
2889           h->got.offset = s->size;
2890           s->size += need;
2891           htab->srelgot->size += need * (sizeof (Elf32_External_Rela) / 4);
2892         }
2893     }
2894   else
2895     h->got.offset = (bfd_vma) -1;
2896
2897   if (eh->dyn_relocs == NULL)
2898     return TRUE;
2899
2900   /* In the shared -Bsymbolic case, discard space allocated for
2901      dynamic pc-relative relocs against symbols which turn out to be
2902      defined in regular objects.  For the normal shared case, discard
2903      space for pc-relative relocs that have become local due to symbol
2904      visibility changes.  */
2905
2906   if (bfd_link_pic (info))
2907     {
2908       if (h->def_regular
2909           && (h->forced_local
2910               || info->symbolic))
2911         {
2912           struct elf32_mb_dyn_relocs **pp;
2913
2914           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2915             {
2916               p->count -= p->pc_count;
2917               p->pc_count = 0;
2918               if (p->count == 0)
2919                 *pp = p->next;
2920               else
2921                 pp = &p->next;
2922             }
2923         }
2924     }
2925   else
2926     {
2927       /* For the non-shared case, discard space for relocs against
2928          symbols which turn out to need copy relocs or are not
2929          dynamic.  */
2930
2931       if (!h->non_got_ref
2932           && ((h->def_dynamic
2933                && !h->def_regular)
2934               || (htab->elf.dynamic_sections_created
2935                   && (h->root.type == bfd_link_hash_undefweak
2936                       || h->root.type == bfd_link_hash_undefined))))
2937         {
2938           /* Make sure this symbol is output as a dynamic symbol.
2939              Undefined weak syms won't yet be marked as dynamic.  */
2940           if (h->dynindx == -1
2941               && !h->forced_local)
2942             {
2943               if (! bfd_elf_link_record_dynamic_symbol (info, h))
2944                 return FALSE;
2945             }
2946
2947           /* If that succeeded, we know we'll be keeping all the
2948              relocs.  */
2949           if (h->dynindx != -1)
2950             goto keep;
2951         }
2952
2953       eh->dyn_relocs = NULL;
2954
2955     keep: ;
2956     }
2957
2958   /* Finally, allocate space.  */
2959   for (p = eh->dyn_relocs; p != NULL; p = p->next)
2960     {
2961       asection *sreloc = elf_section_data (p->sec)->sreloc;
2962       sreloc->size += p->count * sizeof (Elf32_External_Rela);
2963     }
2964
2965   return TRUE;
2966 }
2967
2968 /* Set the sizes of the dynamic sections.  */
2969
2970 static bfd_boolean
2971 microblaze_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2972                                       struct bfd_link_info *info)
2973 {
2974   struct elf32_mb_link_hash_table *htab;
2975   bfd *dynobj;
2976   asection *s;
2977   bfd *ibfd;
2978
2979   htab = elf32_mb_hash_table (info);
2980   if (htab == NULL)
2981     return FALSE;
2982
2983   dynobj = htab->elf.dynobj;
2984   BFD_ASSERT (dynobj != NULL);
2985
2986   /* Set up .got offsets for local syms, and space for local dynamic
2987      relocs.  */
2988   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2989     {
2990       bfd_signed_vma *local_got;
2991       bfd_signed_vma *end_local_got;
2992       bfd_size_type locsymcount;
2993       Elf_Internal_Shdr *symtab_hdr;
2994       unsigned char *lgot_masks;
2995       asection *srel;
2996
2997       if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2998         continue;
2999
3000       for (s = ibfd->sections; s != NULL; s = s->next)
3001         {
3002           struct elf32_mb_dyn_relocs *p;
3003
3004           for (p = ((struct elf32_mb_dyn_relocs *)
3005                     elf_section_data (s)->local_dynrel);
3006                p != NULL;
3007                p = p->next)
3008             {
3009               if (!bfd_is_abs_section (p->sec)
3010                   && bfd_is_abs_section (p->sec->output_section))
3011                 {
3012                   /* Input section has been discarded, either because
3013                      it is a copy of a linkonce section or due to
3014                      linker script /DISCARD/, so we'll be discarding
3015                      the relocs too.  */
3016                 }
3017               else if (p->count != 0)
3018                 {
3019                   srel = elf_section_data (p->sec)->sreloc;
3020                   srel->size += p->count * sizeof (Elf32_External_Rela);
3021                   if ((p->sec->output_section->flags & SEC_READONLY) != 0)
3022                     info->flags |= DF_TEXTREL;
3023                 }
3024             }
3025         }
3026
3027       local_got = elf_local_got_refcounts (ibfd);
3028       if (!local_got)
3029         continue;
3030
3031       symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
3032       locsymcount = symtab_hdr->sh_info;
3033       end_local_got = local_got + locsymcount;
3034       lgot_masks = (unsigned char *) end_local_got;
3035       s = htab->sgot;
3036       srel = htab->srelgot;
3037
3038       for (; local_got < end_local_got; ++local_got, ++lgot_masks)
3039         {
3040           if (*local_got > 0)
3041             {
3042               unsigned int need = 0;
3043               if ((*lgot_masks & TLS_TLS) != 0)
3044                 {
3045                   if ((*lgot_masks & TLS_GD) != 0)
3046                     need += 8;
3047                   if ((*lgot_masks & TLS_LD) != 0)
3048                     htab->tlsld_got.refcount += 1;
3049                 }
3050               else
3051                 need += 4;
3052
3053               if (need == 0)
3054                 {
3055                   *local_got = (bfd_vma) -1;
3056                 }
3057               else
3058                 {
3059                   *local_got = s->size;
3060                   s->size += need;
3061                   if (bfd_link_pic (info))
3062                     srel->size += need * (sizeof (Elf32_External_Rela) / 4);
3063                 }
3064             }
3065           else
3066             *local_got = (bfd_vma) -1;
3067         }
3068     }
3069
3070   /* Allocate global sym .plt and .got entries, and space for global
3071      sym dynamic relocs.  */
3072   elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
3073
3074   if (htab->tlsld_got.refcount > 0)
3075     {
3076       htab->tlsld_got.offset = htab->sgot->size;
3077       htab->sgot->size += 8;
3078       if (bfd_link_pic (info))
3079         htab->srelgot->size += sizeof (Elf32_External_Rela);
3080     }
3081   else
3082     htab->tlsld_got.offset = (bfd_vma) -1;
3083
3084   if (elf_hash_table (info)->dynamic_sections_created)
3085     {
3086       /* Make space for the trailing nop in .plt.  */
3087       if (htab->splt->size > 0)
3088         htab->splt->size += 4;
3089     }
3090
3091   /* The check_relocs and adjust_dynamic_symbol entry points have
3092      determined the sizes of the various dynamic sections.  Allocate
3093      memory for them.  */
3094   for (s = dynobj->sections; s != NULL; s = s->next)
3095     {
3096       const char *name;
3097       bfd_boolean strip = FALSE;
3098
3099       if ((s->flags & SEC_LINKER_CREATED) == 0)
3100         continue;
3101
3102       /* It's OK to base decisions on the section name, because none
3103          of the dynobj section names depend upon the input files.  */
3104       name = bfd_get_section_name (dynobj, s);
3105
3106       if (strncmp (name, ".rela", 5) == 0)
3107         {
3108           if (s->size == 0)
3109             {
3110               /* If we don't need this section, strip it from the
3111                  output file.  This is to handle .rela.bss and
3112                  .rela.plt.  We must create it in
3113                  create_dynamic_sections, because it must be created
3114                  before the linker maps input sections to output
3115                  sections.  The linker does that before
3116                  adjust_dynamic_symbol is called, and it is that
3117                  function which decides whether anything needs to go
3118                  into these sections.  */
3119               strip = TRUE;
3120             }
3121           else
3122             {
3123               /* We use the reloc_count field as a counter if we need
3124                  to copy relocs into the output file.  */
3125               s->reloc_count = 0;
3126             }
3127         }
3128       else if (s != htab->splt && s != htab->sgot && s != htab->sgotplt)
3129         {
3130           /* It's not one of our sections, so don't allocate space.  */
3131           continue;
3132         }
3133
3134       if (strip)
3135         {
3136           s->flags |= SEC_EXCLUDE;
3137           continue;
3138         }
3139
3140       /* Allocate memory for the section contents.  */
3141       /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
3142          Unused entries should be reclaimed before the section's contents
3143          are written out, but at the moment this does not happen.  Thus in
3144          order to prevent writing out garbage, we initialise the section's
3145          contents to zero.  */
3146       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
3147       if (s->contents == NULL && s->size != 0)
3148         return FALSE;
3149     }
3150
3151   if (elf_hash_table (info)->dynamic_sections_created)
3152     {
3153       /* Add some entries to the .dynamic section.  We fill in the
3154          values later, in microblaze_elf_finish_dynamic_sections, but we
3155          must add the entries now so that we get the correct size for
3156          the .dynamic section.  The DT_DEBUG entry is filled in by the
3157          dynamic linker and used by the debugger.  */
3158 #define add_dynamic_entry(TAG, VAL)                     \
3159       _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3160
3161       if (bfd_link_executable (info))
3162         {
3163           if (!add_dynamic_entry (DT_DEBUG, 0))
3164             return FALSE;
3165         }
3166
3167       if (!add_dynamic_entry (DT_RELA, 0)
3168           || !add_dynamic_entry (DT_RELASZ, 0)
3169           || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
3170         return FALSE;
3171
3172       if (htab->splt->size != 0)
3173         {
3174           if (!add_dynamic_entry (DT_PLTGOT, 0)
3175               || !add_dynamic_entry (DT_PLTRELSZ, 0)
3176               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3177               || !add_dynamic_entry (DT_JMPREL, 0)
3178               || !add_dynamic_entry (DT_BIND_NOW, 1))
3179             return FALSE;
3180         }
3181
3182       if (info->flags & DF_TEXTREL)
3183         {
3184           if (!add_dynamic_entry (DT_TEXTREL, 0))
3185             return FALSE;
3186         }
3187     }
3188 #undef add_dynamic_entry
3189   return TRUE;
3190 }
3191
3192 /* Finish up dynamic symbol handling.  We set the contents of various
3193    dynamic sections here.  */
3194
3195 static bfd_boolean
3196 microblaze_elf_finish_dynamic_symbol (bfd *output_bfd,
3197                                       struct bfd_link_info *info,
3198                                       struct elf_link_hash_entry *h,
3199                                       Elf_Internal_Sym *sym)
3200 {
3201   struct elf32_mb_link_hash_table *htab;
3202   struct elf32_mb_link_hash_entry *eh = elf32_mb_hash_entry(h);
3203
3204   htab = elf32_mb_hash_table (info);
3205   if (htab == NULL)
3206     return FALSE;
3207
3208   if (h->plt.offset != (bfd_vma) -1)
3209     {
3210       asection *splt;
3211       asection *srela;
3212       asection *sgotplt;
3213       Elf_Internal_Rela rela;
3214       bfd_byte *loc;
3215       bfd_vma plt_index;
3216       bfd_vma got_offset;
3217       bfd_vma got_addr;
3218
3219       /* This symbol has an entry in the procedure linkage table.  Set
3220          it up.  */
3221       BFD_ASSERT (h->dynindx != -1);
3222
3223       splt = htab->splt;
3224       srela = htab->srelplt;
3225       sgotplt = htab->sgotplt;
3226       BFD_ASSERT (splt != NULL && srela != NULL && sgotplt != NULL);
3227
3228       plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1; /* first entry reserved.  */
3229       got_offset = (plt_index + 3) * 4; /* 3 reserved ???  */
3230       got_addr = got_offset;
3231
3232       /* For non-PIC objects we need absolute address of the GOT entry.  */
3233       if (!bfd_link_pic (info))
3234         got_addr += htab->sgotplt->output_section->vma + sgotplt->output_offset;
3235
3236       /* Fill in the entry in the procedure linkage table.  */
3237       bfd_put_32 (output_bfd, PLT_ENTRY_WORD_0 + ((got_addr >> 16) & 0xffff),
3238                   splt->contents + h->plt.offset);
3239       if (bfd_link_pic (info))
3240         bfd_put_32 (output_bfd, PLT_ENTRY_WORD_1 + (got_addr & 0xffff),
3241                     splt->contents + h->plt.offset + 4);
3242       else
3243         bfd_put_32 (output_bfd, PLT_ENTRY_WORD_1_NOPIC + (got_addr & 0xffff),
3244                     splt->contents + h->plt.offset + 4);
3245       bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD_2,
3246                   splt->contents + h->plt.offset + 8);
3247       bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD_3,
3248                   splt->contents + h->plt.offset + 12);
3249
3250       /* Any additions to the .got section??? */
3251       /*      bfd_put_32 (output_bfd,
3252               splt->output_section->vma + splt->output_offset + h->plt.offset + 4,
3253               sgotplt->contents + got_offset); */
3254
3255       /* Fill in the entry in the .rela.plt section.  */
3256       rela.r_offset = (sgotplt->output_section->vma
3257                        + sgotplt->output_offset
3258                        + got_offset);
3259       rela.r_info = ELF32_R_INFO (h->dynindx, R_MICROBLAZE_JUMP_SLOT);
3260       rela.r_addend = 0;
3261       loc = srela->contents;
3262       loc += plt_index * sizeof (Elf32_External_Rela);
3263       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3264
3265       if (!h->def_regular)
3266         {
3267           /* Mark the symbol as undefined, rather than as defined in
3268              the .plt section.  Zero the value.  */
3269           sym->st_shndx = SHN_UNDEF;
3270           sym->st_value = 0;
3271         }
3272     }
3273
3274   /* h->got.refcount to be checked ? */
3275   if (h->got.offset != (bfd_vma) -1 &&
3276       ! ((h->got.offset & 1) ||
3277           IS_TLS_LD(eh->tls_mask) || IS_TLS_GD(eh->tls_mask)))
3278     {
3279       asection *sgot;
3280       asection *srela;
3281       bfd_vma offset;
3282
3283       /* This symbol has an entry in the global offset table.  Set it
3284          up.  */
3285
3286       sgot = htab->sgot;
3287       srela = htab->srelgot;
3288       BFD_ASSERT (sgot != NULL && srela != NULL);
3289
3290       offset = (sgot->output_section->vma + sgot->output_offset
3291                 + (h->got.offset &~ (bfd_vma) 1));
3292
3293       /* If this is a -Bsymbolic link, and the symbol is defined
3294          locally, we just want to emit a RELATIVE reloc.  Likewise if
3295          the symbol was forced to be local because of a version file.
3296          The entry in the global offset table will already have been
3297          initialized in the relocate_section function.  */
3298       if (bfd_link_pic (info)
3299           && ((info->symbolic && h->def_regular)
3300               || h->dynindx == -1))
3301         {
3302           asection *sec = h->root.u.def.section;
3303           microblaze_elf_output_dynamic_relocation (output_bfd,
3304                                                     srela, srela->reloc_count++,
3305                                                     /* symindex= */ 0,
3306                                                     R_MICROBLAZE_REL, offset,
3307                                                     h->root.u.def.value
3308                                                     + sec->output_section->vma
3309                                                     + sec->output_offset);
3310         }
3311       else
3312         {
3313           microblaze_elf_output_dynamic_relocation (output_bfd,
3314                                                     srela, srela->reloc_count++,
3315                                                     h->dynindx,
3316                                                     R_MICROBLAZE_GLOB_DAT,
3317                                                     offset, 0);
3318         }
3319
3320       bfd_put_32 (output_bfd, (bfd_vma) 0,
3321                   sgot->contents + (h->got.offset &~ (bfd_vma) 1));
3322     }
3323
3324   if (h->needs_copy)
3325     {
3326       asection *s;
3327       Elf_Internal_Rela rela;
3328       bfd_byte *loc;
3329
3330       /* This symbols needs a copy reloc.  Set it up.  */
3331
3332       BFD_ASSERT (h->dynindx != -1);
3333
3334       s = bfd_get_linker_section (htab->elf.dynobj, ".rela.bss");
3335       BFD_ASSERT (s != NULL);
3336
3337       rela.r_offset = (h->root.u.def.value
3338                        + h->root.u.def.section->output_section->vma
3339                        + h->root.u.def.section->output_offset);
3340       rela.r_info = ELF32_R_INFO (h->dynindx, R_MICROBLAZE_COPY);
3341       rela.r_addend = 0;
3342       loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
3343       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3344     }
3345
3346   /* Mark some specially defined symbols as absolute.  */
3347   if (h == htab->elf.hdynamic
3348       || h == htab->elf.hgot
3349       || h == htab->elf.hplt)
3350     sym->st_shndx = SHN_ABS;
3351
3352   return TRUE;
3353 }
3354
3355
3356 /* Finish up the dynamic sections.  */
3357
3358 static bfd_boolean
3359 microblaze_elf_finish_dynamic_sections (bfd *output_bfd,
3360                                         struct bfd_link_info *info)
3361 {
3362   bfd *dynobj;
3363   asection *sdyn, *sgot;
3364   struct elf32_mb_link_hash_table *htab;
3365
3366   htab = elf32_mb_hash_table (info);
3367   if (htab == NULL)
3368     return FALSE;
3369
3370   dynobj = htab->elf.dynobj;
3371
3372   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
3373
3374   if (htab->elf.dynamic_sections_created)
3375     {
3376       asection *splt;
3377       Elf32_External_Dyn *dyncon, *dynconend;
3378
3379       splt = bfd_get_linker_section (dynobj, ".plt");
3380       BFD_ASSERT (splt != NULL && sdyn != NULL);
3381
3382       dyncon = (Elf32_External_Dyn *) sdyn->contents;
3383       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
3384       for (; dyncon < dynconend; dyncon++)
3385         {
3386           Elf_Internal_Dyn dyn;
3387           const char *name;
3388           bfd_boolean size;
3389
3390           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3391
3392           switch (dyn.d_tag)
3393             {
3394             case DT_PLTGOT:   name = ".got.plt"; size = FALSE; break;
3395             case DT_PLTRELSZ: name = ".rela.plt"; size = TRUE; break;
3396             case DT_JMPREL:   name = ".rela.plt"; size = FALSE; break;
3397             case DT_RELA:     name = ".rela.dyn"; size = FALSE; break;
3398             case DT_RELASZ:   name = ".rela.dyn"; size = TRUE; break;
3399             default:      name = NULL; size = FALSE; break;
3400             }
3401
3402           if (name != NULL)
3403             {
3404               asection *s;
3405
3406               s = bfd_get_section_by_name (output_bfd, name);
3407               if (s == NULL)
3408                 dyn.d_un.d_val = 0;
3409               else
3410                 {
3411                   if (! size)
3412                     dyn.d_un.d_ptr = s->vma;
3413                   else
3414                     dyn.d_un.d_val = s->size;
3415                 }
3416               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3417             }
3418         }
3419
3420       /* Clear the first entry in the procedure linkage table,
3421          and put a nop in the last four bytes.  */
3422       if (splt->size > 0)
3423         {
3424           memset (splt->contents, 0, PLT_ENTRY_SIZE);
3425           bfd_put_32 (output_bfd, (bfd_vma) 0x80000000 /* nop.  */,
3426                       splt->contents + splt->size - 4);
3427         }
3428
3429       elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
3430     }
3431
3432   /* Set the first entry in the global offset table to the address of
3433      the dynamic section.  */
3434   sgot = bfd_get_linker_section (dynobj, ".got.plt");
3435   if (sgot && sgot->size > 0)
3436     {
3437       if (sdyn == NULL)
3438         bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
3439       else
3440         bfd_put_32 (output_bfd,
3441                     sdyn->output_section->vma + sdyn->output_offset,
3442                     sgot->contents);
3443       elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
3444     }
3445
3446   if (htab->sgot && htab->sgot->size > 0)
3447     elf_section_data (htab->sgot->output_section)->this_hdr.sh_entsize = 4;
3448
3449   return TRUE;
3450 }
3451
3452 /* Hook called by the linker routine which adds symbols from an object
3453    file.  We use it to put .comm items in .sbss, and not .bss.  */
3454
3455 static bfd_boolean
3456 microblaze_elf_add_symbol_hook (bfd *abfd,
3457                                 struct bfd_link_info *info,
3458                                 Elf_Internal_Sym *sym,
3459                                 const char **namep ATTRIBUTE_UNUSED,
3460                                 flagword *flagsp ATTRIBUTE_UNUSED,
3461                                 asection **secp,
3462                                 bfd_vma *valp)
3463 {
3464   if (sym->st_shndx == SHN_COMMON
3465       && !bfd_link_relocatable (info)
3466       && sym->st_size <= elf_gp_size (abfd))
3467     {
3468       /* Common symbols less than or equal to -G nn bytes are automatically
3469          put into .sbss.  */
3470       *secp = bfd_make_section_old_way (abfd, ".sbss");
3471       if (*secp == NULL
3472           || ! bfd_set_section_flags (abfd, *secp, SEC_IS_COMMON))
3473         return FALSE;
3474
3475       *valp = sym->st_size;
3476     }
3477
3478   return TRUE;
3479 }
3480
3481 #define TARGET_LITTLE_SYM      microblaze_elf32_le_vec
3482 #define TARGET_LITTLE_NAME     "elf32-microblazeel"
3483
3484 #define TARGET_BIG_SYM          microblaze_elf32_vec
3485 #define TARGET_BIG_NAME         "elf32-microblaze"
3486
3487 #define ELF_ARCH                bfd_arch_microblaze
3488 #define ELF_TARGET_ID           MICROBLAZE_ELF_DATA
3489 #define ELF_MACHINE_CODE        EM_MICROBLAZE
3490 #define ELF_MACHINE_ALT1        EM_MICROBLAZE_OLD
3491 #define ELF_MAXPAGESIZE         0x1000
3492 #define elf_info_to_howto       microblaze_elf_info_to_howto
3493 #define elf_info_to_howto_rel   NULL
3494
3495 #define bfd_elf32_bfd_reloc_type_lookup         microblaze_elf_reloc_type_lookup
3496 #define bfd_elf32_bfd_is_local_label_name       microblaze_elf_is_local_label_name
3497 #define elf_backend_relocate_section            microblaze_elf_relocate_section
3498 #define bfd_elf32_bfd_relax_section             microblaze_elf_relax_section
3499 #define bfd_elf32_bfd_merge_private_bfd_data    microblaze_elf_merge_private_bfd_data
3500 #define bfd_elf32_bfd_reloc_name_lookup         microblaze_elf_reloc_name_lookup
3501
3502 #define elf_backend_gc_mark_hook                microblaze_elf_gc_mark_hook
3503 #define elf_backend_gc_sweep_hook               microblaze_elf_gc_sweep_hook
3504 #define elf_backend_check_relocs                microblaze_elf_check_relocs
3505 #define elf_backend_copy_indirect_symbol        microblaze_elf_copy_indirect_symbol
3506 #define bfd_elf32_bfd_link_hash_table_create    microblaze_elf_link_hash_table_create
3507 #define elf_backend_can_gc_sections             1
3508 #define elf_backend_can_refcount                1
3509 #define elf_backend_want_got_plt                1
3510 #define elf_backend_plt_readonly                1
3511 #define elf_backend_got_header_size             12
3512 #define elf_backend_rela_normal                 1
3513
3514 #define elf_backend_adjust_dynamic_symbol       microblaze_elf_adjust_dynamic_symbol
3515 #define elf_backend_create_dynamic_sections     microblaze_elf_create_dynamic_sections
3516 #define elf_backend_finish_dynamic_sections     microblaze_elf_finish_dynamic_sections
3517 #define elf_backend_finish_dynamic_symbol       microblaze_elf_finish_dynamic_symbol
3518 #define elf_backend_size_dynamic_sections       microblaze_elf_size_dynamic_sections
3519 #define elf_backend_add_symbol_hook             microblaze_elf_add_symbol_hook
3520
3521 #include "elf32-target.h"