OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [bfd/] [elf32-lm32.c] - Blame information for rev 394

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
/* Lattice Mico32-specific support for 32-bit ELF
2
   Copyright 2008, 2009, 2010  Free Software Foundation, Inc.
3
   Contributed by Jon Beniston <jon@beniston.com>
4
 
5
   This file is part of BFD, the Binary File Descriptor library.
6
 
7
   This program is free software; you can redistribute it and/or modify
8
   it under the terms of the GNU General Public License as published by
9
   the Free Software Foundation; either version 3 of the License, or
10
   (at your option) any later version.
11
 
12
   This program is distributed in the hope that it will be useful,
13
   but WITHOUT ANY WARRANTY; without even the implied warranty of
14
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15
   GNU General Public License for more details.
16
 
17
   You should have received a copy of the GNU General Public License
18
   along with this program; if not, write to the Free Software
19
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20
   MA 02110-1301, USA.  */
21
 
22
#include "bfd.h"
23
#include "sysdep.h"
24
#include "libbfd.h"
25
#include "elf-bfd.h"
26
#include "elf/lm32.h"
27
 
28
#define DEFAULT_STACK_SIZE 0x20000
29
 
30
#define PLT_ENTRY_SIZE 20
31
 
32
#define PLT0_ENTRY_WORD0  0
33
#define PLT0_ENTRY_WORD1  0
34
#define PLT0_ENTRY_WORD2  0
35
#define PLT0_ENTRY_WORD3  0
36
#define PLT0_ENTRY_WORD4  0
37
 
38
#define PLT0_PIC_ENTRY_WORD0  0
39
#define PLT0_PIC_ENTRY_WORD1  0
40
#define PLT0_PIC_ENTRY_WORD2  0
41
#define PLT0_PIC_ENTRY_WORD3  0
42
#define PLT0_PIC_ENTRY_WORD4  0
43
 
44
#define ELF_DYNAMIC_INTERPRETER "/usr/lib/libc.so.1"
45
 
46
extern const bfd_target bfd_elf32_lm32fdpic_vec;
47
 
48
#define IS_FDPIC(bfd) ((bfd)->xvec == &bfd_elf32_lm32fdpic_vec)
49
 
50
static bfd_reloc_status_type lm32_elf_gprel_reloc
51
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
52
 
53
/* The linker needs to keep track of the number of relocs that it
54
   decides to copy as dynamic relocs in check_relocs for each symbol.
55
   This is so that it can later discard them if they are found to be
56
   unnecessary.  We store the information in a field extending the
57
   regular ELF linker hash table.  */
58
 
59
struct elf_lm32_dyn_relocs
60
{
61
  struct elf_lm32_dyn_relocs *next;
62
 
63
  /* The input section of the reloc.  */
64
  asection *sec;
65
 
66
  /* Total number of relocs copied for the input section.  */
67
  bfd_size_type count;
68
 
69
  /* Number of pc-relative relocs copied for the input section.  */
70
  bfd_size_type pc_count;
71
};
72
 
73
/* lm32 ELF linker hash entry.  */
74
 
75
struct elf_lm32_link_hash_entry
76
{
77
  struct elf_link_hash_entry root;
78
 
79
  /* Track dynamic relocs copied for this symbol.  */
80
  struct elf_lm32_dyn_relocs *dyn_relocs;
81
};
82
 
83
/* lm32 ELF linker hash table.  */
84
 
85
struct elf_lm32_link_hash_table
86
{
87
  struct elf_link_hash_table root;
88
 
89
  /* Short-cuts to get to dynamic linker sections.  */
90
  asection *sgot;
91
  asection *sgotplt;
92
  asection *srelgot;
93
  asection *sfixup32;
94
  asection *splt;
95
  asection *srelplt;
96
  asection *sdynbss;
97
  asection *srelbss;
98
 
99
  int relocs32;
100
};
101
 
102
/* Get the lm32 ELF linker hash table from a link_info structure.  */
103
 
104
#define lm32_elf_hash_table(p) \
105
  (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
106
  == LM32_ELF_DATA ? ((struct elf_lm32_link_hash_table *) ((p)->hash)) : NULL)
107
 
108
#define lm32fdpic_got_section(info) \
109
  (lm32_elf_hash_table (info)->sgot)
110
#define lm32fdpic_gotrel_section(info) \
111
  (lm32_elf_hash_table (info)->srelgot)
112
#define lm32fdpic_fixup32_section(info) \
113
  (lm32_elf_hash_table (info)->sfixup32)
114
 
115
struct weak_symbol_list
116
{
117
  const char *name;
118
  struct weak_symbol_list *next;
119
};
120
 
121
/* Create an entry in an lm32 ELF linker hash table.  */
122
 
123
static struct bfd_hash_entry *
124
lm32_elf_link_hash_newfunc (struct bfd_hash_entry *entry,
125
                            struct bfd_hash_table *table,
126
                            const char *string)
127
{
128
  struct elf_lm32_link_hash_entry *ret =
129
    (struct elf_lm32_link_hash_entry *) entry;
130
 
131
  /* Allocate the structure if it has not already been allocated by a
132
     subclass.  */
133
  if (ret == NULL)
134
    ret = bfd_hash_allocate (table,
135
                             sizeof (struct elf_lm32_link_hash_entry));
136
  if (ret == NULL)
137
    return NULL;
138
 
139
  /* Call the allocation method of the superclass.  */
140
  ret = ((struct elf_lm32_link_hash_entry *)
141
         _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
142
                                     table, string));
143
  if (ret != NULL)
144
    {
145
      struct elf_lm32_link_hash_entry *eh;
146
 
147
      eh = (struct elf_lm32_link_hash_entry *) ret;
148
      eh->dyn_relocs = NULL;
149
    }
150
 
151
  return (struct bfd_hash_entry *) ret;
152
}
153
 
154
/* Create an lm32 ELF linker hash table.  */
155
 
156
static struct bfd_link_hash_table *
157
lm32_elf_link_hash_table_create (bfd *abfd)
158
{
159
  struct elf_lm32_link_hash_table *ret;
160
  bfd_size_type amt = sizeof (struct elf_lm32_link_hash_table);
161
 
162
  ret = bfd_malloc (amt);
163
  if (ret == NULL)
164
    return NULL;
165
 
166
  if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
167
                                      lm32_elf_link_hash_newfunc,
168
                                      sizeof (struct elf_lm32_link_hash_entry),
169
                                      LM32_ELF_DATA))
170
    {
171
      free (ret);
172
      return NULL;
173
    }
174
 
175
  ret->sgot = NULL;
176
  ret->sgotplt = NULL;
177
  ret->srelgot = NULL;
178
  ret->sfixup32 = NULL;
179
  ret->splt = NULL;
180
  ret->srelplt = NULL;
181
  ret->sdynbss = NULL;
182
  ret->srelbss = NULL;
183
  ret->relocs32 = 0;
184
 
185
  return &ret->root.root;
186
}
187
 
188
/* Add a fixup to the ROFIXUP section.  */
189
 
190
static bfd_vma
191
_lm32fdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma relocation)
192
{
193
  bfd_vma fixup_offset;
194
 
195
  if (rofixup->flags & SEC_EXCLUDE)
196
    return -1;
197
 
198
  fixup_offset = rofixup->reloc_count * 4;
199
  if (rofixup->contents)
200
    {
201
      BFD_ASSERT (fixup_offset < rofixup->size);
202
      if (fixup_offset < rofixup->size)
203
      bfd_put_32 (output_bfd, relocation, rofixup->contents + fixup_offset);
204
    }
205
  rofixup->reloc_count++;
206
 
207
  return fixup_offset;
208
}
209
 
210
/* Create .got, .gotplt, and .rela.got sections in DYNOBJ, and set up
211
   shortcuts to them in our hash table.  */
212
 
213
static bfd_boolean
214
create_got_section (bfd *dynobj, struct bfd_link_info *info)
215
{
216
  struct elf_lm32_link_hash_table *htab;
217
  asection *s;
218
 
219
  /* This function may be called more than once.  */
220
  s = bfd_get_section_by_name (dynobj, ".got");
221
  if (s != NULL && (s->flags & SEC_LINKER_CREATED) != 0)
222
    return TRUE;
223
 
224
  htab = lm32_elf_hash_table (info);
225
  if (htab == NULL)
226
    return FALSE;
227
 
228
  if (! _bfd_elf_create_got_section (dynobj, info))
229
    return FALSE;
230
 
231
  htab->sgot = bfd_get_section_by_name (dynobj, ".got");
232
  htab->sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
233
  htab->srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
234
  if (! htab->sgot || ! htab->sgotplt || ! htab->srelgot)
235
    abort ();
236
 
237
  return TRUE;
238
}
239
 
240
/* Create .rofixup sections in DYNOBJ, and set up
241
   shortcuts to them in our hash table.  */
242
 
243
static bfd_boolean
244
create_rofixup_section (bfd *dynobj, struct bfd_link_info *info)
245
{
246
  struct elf_lm32_link_hash_table *htab;
247
  htab = lm32_elf_hash_table (info);
248
 
249
  if (htab == NULL)
250
    return FALSE;
251
 
252
  /* Fixup section for R_LM32_32 relocs.  */
253
  lm32fdpic_fixup32_section (info) = bfd_make_section_with_flags (dynobj,
254
                                                                   ".rofixup",
255
                                                                   (SEC_ALLOC
256
                                                                   | SEC_LOAD
257
                                                                   | SEC_HAS_CONTENTS
258
                                                                   | SEC_IN_MEMORY
259
                                                                   | SEC_LINKER_CREATED
260
                                                                   | SEC_READONLY));
261
  if (lm32fdpic_fixup32_section (info) == NULL
262
      || ! bfd_set_section_alignment (dynobj, lm32fdpic_fixup32_section (info), 2))
263
    return FALSE;
264
 
265
  return TRUE;
266
}
267
 
268
static reloc_howto_type lm32_elf_howto_table [] =
269
{
270
  /* This reloc does nothing.  */
271
  HOWTO (R_LM32_NONE,               /* type */
272
         0,                         /* rightshift */
273
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
274
         32,                        /* bitsize */
275
         FALSE,                     /* pc_relative */
276
         0,                         /* bitpos */
277
         complain_overflow_bitfield,/* complain_on_overflow */
278
         bfd_elf_generic_reloc,     /* special_function */
279
         "R_LM32_NONE",             /* name */
280
         FALSE,                     /* partial_inplace */
281
         0,                         /* src_mask */
282
         0,                         /* dst_mask */
283
         FALSE),                    /* pcrel_offset */
284
 
285
  /* An 8 bit absolute relocation.  */
286
  HOWTO (R_LM32_8,                  /* type */
287
         0,                         /* rightshift */
288
         0,                         /* size (0 = byte, 1 = short, 2 = long) */
289
         8,                         /* bitsize */
290
         FALSE,                     /* pc_relative */
291
         0,                         /* bitpos */
292
         complain_overflow_bitfield,/* complain_on_overflow */
293
         bfd_elf_generic_reloc,     /* special_function */
294
         "R_LM32_8",                /* name */
295
         FALSE,                     /* partial_inplace */
296
         0,                         /* src_mask */
297
         0xff,                      /* dst_mask */
298
         FALSE),                    /* pcrel_offset */
299
 
300
  /* A 16 bit absolute relocation.  */
301
  HOWTO (R_LM32_16,                 /* type */
302
         0,                         /* rightshift */
303
         1,                         /* size (0 = byte, 1 = short, 2 = long) */
304
         16,                        /* bitsize */
305
         FALSE,                     /* pc_relative */
306
         0,                         /* bitpos */
307
         complain_overflow_bitfield,/* complain_on_overflow */
308
         bfd_elf_generic_reloc,     /* special_function */
309
         "R_LM32_16",               /* name */
310
         FALSE,                     /* partial_inplace */
311
         0,                         /* src_mask */
312
         0xffff,                    /* dst_mask */
313
         FALSE),                    /* pcrel_offset */
314
 
315
  /* A 32 bit absolute relocation.  */
316
  HOWTO (R_LM32_32,                 /* type */
317
         0,                         /* rightshift */
318
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
319
         32,                        /* bitsize */
320
         FALSE,                     /* pc_relative */
321
         0,                         /* bitpos */
322
         complain_overflow_bitfield,/* complain_on_overflow */
323
         bfd_elf_generic_reloc,     /* special_function */
324
         "R_LM32_32",               /* name */
325
         FALSE,                     /* partial_inplace */
326
         0,                         /* src_mask */
327
         0xffffffff,                /* dst_mask */
328
         FALSE),                    /* pcrel_offset */
329
 
330
  HOWTO (R_LM32_HI16,               /* type */
331
         16,                        /* rightshift */
332
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
333
         16,                        /* bitsize */
334
         FALSE,                     /* pc_relative */
335
         0,                         /* bitpos */
336
         complain_overflow_bitfield,/* complain_on_overflow */
337
         bfd_elf_generic_reloc,     /* special_function */
338
         "R_LM32_HI16",             /* name */
339
         FALSE,                     /* partial_inplace */
340
         0,                         /* src_mask */
341
         0xffff,                    /* dst_mask */
342
         FALSE),                    /* pcrel_offset */
343
 
344
  HOWTO (R_LM32_LO16,               /* type */
345
         0,                         /* rightshift */
346
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
347
         16,                        /* bitsize */
348
         FALSE,                     /* pc_relative */
349
         0,                         /* bitpos */
350
         complain_overflow_dont,    /* complain_on_overflow */
351
         bfd_elf_generic_reloc,     /* special_function */
352
         "R_LM32_LO16",             /* name */
353
         FALSE,                     /* partial_inplace */
354
         0,                         /* src_mask */
355
         0xffff,                    /* dst_mask */
356
         FALSE),                    /* pcrel_offset */
357
 
358
  HOWTO (R_LM32_GPREL16,            /* type */
359
         0,                         /* rightshift */
360
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
361
         16,                        /* bitsize */
362
         FALSE,                     /* pc_relative */
363
         0,                         /* bitpos */
364
         complain_overflow_dont,    /* complain_on_overflow */
365
         lm32_elf_gprel_reloc,      /* special_function */
366
         "R_LM32_GPREL16",          /* name */
367
         FALSE,                     /* partial_inplace */
368
         0,                         /* src_mask */
369
         0xffff,                    /* dst_mask */
370
         FALSE),                    /* pcrel_offset */
371
 
372
  HOWTO (R_LM32_CALL,               /* type */
373
         2,                         /* rightshift */
374
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
375
         26,                        /* bitsize */
376
         TRUE,                      /* pc_relative */
377
         0,                         /* bitpos */
378
         complain_overflow_signed,  /* complain_on_overflow */
379
         bfd_elf_generic_reloc,     /* special_function */
380
         "R_LM32_CALL",             /* name */
381
         FALSE,                     /* partial_inplace */
382
         0,                         /* src_mask */
383
         0x3ffffff,                 /* dst_mask */
384
         TRUE),                     /* pcrel_offset */
385
 
386
  HOWTO (R_LM32_BRANCH,             /* type */
387
         2,                         /* rightshift */
388
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
389
         16,                        /* bitsize */
390
         TRUE,                      /* pc_relative */
391
         0,                         /* bitpos */
392
         complain_overflow_signed,  /* complain_on_overflow */
393
         bfd_elf_generic_reloc,     /* special_function */
394
         "R_LM32_BRANCH",           /* name */
395
         FALSE,                     /* partial_inplace */
396
         0,                         /* src_mask */
397
         0xffff,                    /* dst_mask */
398
         TRUE),                     /* pcrel_offset */
399
 
400
  /* GNU extension to record C++ vtable hierarchy.  */
401
  HOWTO (R_LM32_GNU_VTINHERIT,      /* type */
402
         0,                         /* rightshift */
403
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
404
         0,                         /* bitsize */
405
         FALSE,                     /* pc_relative */
406
         0,                         /* bitpos */
407
         complain_overflow_dont,    /* complain_on_overflow */
408
         NULL,                      /* special_function */
409
         "R_LM32_GNU_VTINHERIT",    /* name */
410
         FALSE,                     /* partial_inplace */
411
         0,                         /* src_mask */
412
         0,                         /* dst_mask */
413
         FALSE),                    /* pcrel_offset */
414
 
415
  /* GNU extension to record C++ vtable member usage.  */
416
  HOWTO (R_LM32_GNU_VTENTRY,        /* type */
417
         0,                         /* rightshift */
418
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
419
         0,                         /* bitsize */
420
         FALSE,                     /* pc_relative */
421
         0,                         /* bitpos */
422
         complain_overflow_dont,    /* complain_on_overflow */
423
         _bfd_elf_rel_vtable_reloc_fn,/* special_function */
424
         "R_LM32_GNU_VTENTRY",      /* name */
425
         FALSE,                     /* partial_inplace */
426
         0,                         /* src_mask */
427
         0,                         /* dst_mask */
428
         FALSE),                    /* pcrel_offset */
429
 
430
  HOWTO (R_LM32_16_GOT,             /* type */
431
         0,                         /* rightshift */
432
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
433
         16,                        /* bitsize */
434
         FALSE,                     /* pc_relative */
435
         0,                         /* bitpos */
436
         complain_overflow_signed,  /* complain_on_overflow */
437
         bfd_elf_generic_reloc,     /* special_function */
438
         "R_LM32_16_GOT",           /* name */
439
         FALSE,                     /* partial_inplace */
440
         0,                         /* src_mask */
441
         0xffff,                    /* dst_mask */
442
         FALSE),                    /* pcrel_offset */
443
 
444
  HOWTO (R_LM32_GOTOFF_HI16,        /* type */
445
         16,                        /* rightshift */
446
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
447
         16,                        /* bitsize */
448
         FALSE,                     /* pc_relative */
449
         0,                         /* bitpos */
450
         complain_overflow_dont,    /* complain_on_overflow */
451
         bfd_elf_generic_reloc,     /* special_function */
452
         "R_LM32_GOTOFF_HI16",      /* name */
453
         FALSE,                     /* partial_inplace */
454
         0xffff,                    /* src_mask */
455
         0xffff,                    /* dst_mask */
456
         FALSE),                    /* pcrel_offset */
457
 
458
  HOWTO (R_LM32_GOTOFF_LO16,        /* type */
459
         0,                         /* rightshift */
460
         2,                         /* size (0 = byte, 1 = short, 2 = long) */
461
         16,                        /* bitsize */
462
         FALSE,                     /* pc_relative */
463
         0,                         /* bitpos */
464
         complain_overflow_dont,    /* complain_on_overflow */
465
         bfd_elf_generic_reloc,     /* special_function */
466
         "R_LM32_GOTOFF_LO16",      /* name */
467
         FALSE,                     /* partial_inplace */
468
         0xffff,                    /* src_mask */
469
         0xffff,                    /* dst_mask */
470
         FALSE),                    /* pcrel_offset */
471
 
472
  HOWTO (R_LM32_COPY,           /* type */
473
         0,                      /* rightshift */
474
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
475
         32,                    /* bitsize */
476
         FALSE,                 /* pc_relative */
477
         0,                      /* bitpos */
478
         complain_overflow_bitfield, /* complain_on_overflow */
479
         bfd_elf_generic_reloc, /* special_function */
480
         "R_LM32_COPY",         /* name */
481
         FALSE,                 /* partial_inplace */
482
         0xffffffff,            /* src_mask */
483
         0xffffffff,            /* dst_mask */
484
         FALSE),                /* pcrel_offset */
485
 
486
  HOWTO (R_LM32_GLOB_DAT,       /* type */
487
         0,                      /* rightshift */
488
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
489
         32,                    /* bitsize */
490
         FALSE,                 /* pc_relative */
491
         0,                      /* bitpos */
492
         complain_overflow_bitfield, /* complain_on_overflow */
493
         bfd_elf_generic_reloc, /* special_function */
494
         "R_LM32_GLOB_DAT",     /* name */
495
         FALSE,                 /* partial_inplace */
496
         0xffffffff,            /* src_mask */
497
         0xffffffff,            /* dst_mask */
498
         FALSE),                /* pcrel_offset */
499
 
500
  HOWTO (R_LM32_JMP_SLOT,       /* type */
501
         0,                      /* rightshift */
502
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
503
         32,                    /* bitsize */
504
         FALSE,                 /* pc_relative */
505
         0,                      /* bitpos */
506
         complain_overflow_bitfield, /* complain_on_overflow */
507
         bfd_elf_generic_reloc, /* special_function */
508
         "R_LM32_JMP_SLOT",     /* name */
509
         FALSE,                 /* partial_inplace */
510
         0xffffffff,            /* src_mask */
511
         0xffffffff,            /* dst_mask */
512
         FALSE),                /* pcrel_offset */
513
 
514
  HOWTO (R_LM32_RELATIVE,       /* type */
515
         0,                      /* rightshift */
516
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
517
         32,                    /* bitsize */
518
         FALSE,                 /* pc_relative */
519
         0,                      /* bitpos */
520
         complain_overflow_bitfield, /* complain_on_overflow */
521
         bfd_elf_generic_reloc, /* special_function */
522
         "R_LM32_RELATIVE",     /* name */
523
         FALSE,                 /* partial_inplace */
524
         0xffffffff,            /* src_mask */
525
         0xffffffff,            /* dst_mask */
526
         FALSE),                /* pcrel_offset */
527
 
528
};
529
 
530
/* Map BFD reloc types to lm32 ELF reloc types. */
531
 
532
struct lm32_reloc_map
533
{
534
    bfd_reloc_code_real_type bfd_reloc_val;
535
    unsigned char elf_reloc_val;
536
};
537
 
538
static const struct lm32_reloc_map lm32_reloc_map[] =
539
{
540
  { BFD_RELOC_NONE,             R_LM32_NONE },
541
  { BFD_RELOC_8,                R_LM32_8 },
542
  { BFD_RELOC_16,               R_LM32_16 },
543
  { BFD_RELOC_32,               R_LM32_32 },
544
  { BFD_RELOC_HI16,             R_LM32_HI16 },
545
  { BFD_RELOC_LO16,             R_LM32_LO16 },
546
  { BFD_RELOC_GPREL16,          R_LM32_GPREL16 },
547
  { BFD_RELOC_LM32_CALL,        R_LM32_CALL },
548
  { BFD_RELOC_LM32_BRANCH,      R_LM32_BRANCH },
549
  { BFD_RELOC_VTABLE_INHERIT,   R_LM32_GNU_VTINHERIT },
550
  { BFD_RELOC_VTABLE_ENTRY,     R_LM32_GNU_VTENTRY },
551
  { BFD_RELOC_LM32_16_GOT,      R_LM32_16_GOT },
552
  { BFD_RELOC_LM32_GOTOFF_HI16, R_LM32_GOTOFF_HI16 },
553
  { BFD_RELOC_LM32_GOTOFF_LO16, R_LM32_GOTOFF_LO16 },
554
  { BFD_RELOC_LM32_COPY,        R_LM32_COPY },
555
  { BFD_RELOC_LM32_GLOB_DAT,    R_LM32_GLOB_DAT },
556
  { BFD_RELOC_LM32_JMP_SLOT,    R_LM32_JMP_SLOT },
557
  { BFD_RELOC_LM32_RELATIVE,    R_LM32_RELATIVE },
558
};
559
 
560
static reloc_howto_type *
561
lm32_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
562
                        bfd_reloc_code_real_type code)
563
{
564
  unsigned int i;
565
 
566
  for (i = 0; i < sizeof (lm32_reloc_map) / sizeof (lm32_reloc_map[0]); i++)
567
    if (lm32_reloc_map[i].bfd_reloc_val == code)
568
      return &lm32_elf_howto_table[lm32_reloc_map[i].elf_reloc_val];
569
  return NULL;
570
}
571
 
572
static reloc_howto_type *
573
lm32_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
574
                        const char *r_name)
575
{
576
  unsigned int i;
577
 
578
  for (i = 0;
579
       i < sizeof (lm32_elf_howto_table) / sizeof (lm32_elf_howto_table[0]);
580
       i++)
581
    if (lm32_elf_howto_table[i].name != NULL
582
        && strcasecmp (lm32_elf_howto_table[i].name, r_name) == 0)
583
      return &lm32_elf_howto_table[i];
584
 
585
  return NULL;
586
}
587
 
588
 
589
/* Set the howto pointer for an Lattice Mico32 ELF reloc.  */
590
 
591
static void
592
lm32_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
593
                         arelent *cache_ptr,
594
                         Elf_Internal_Rela *dst)
595
{
596
  unsigned int r_type;
597
 
598
  r_type = ELF32_R_TYPE (dst->r_info);
599
  BFD_ASSERT (r_type < (unsigned int) R_LM32_max);
600
  cache_ptr->howto = &lm32_elf_howto_table[r_type];
601
}
602
 
603
/* Set the right machine number for an Lattice Mico32 ELF file. */
604
 
605
static bfd_boolean
606
lm32_elf_object_p (bfd *abfd)
607
{
608
  return bfd_default_set_arch_mach (abfd, bfd_arch_lm32, bfd_mach_lm32);
609
}
610
 
611
/* Set machine type flags just before file is written out. */
612
 
613
static void
614
lm32_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
615
{
616
  elf_elfheader (abfd)->e_machine = EM_LATTICEMICO32;
617
  elf_elfheader (abfd)->e_flags &=~ EF_LM32_MACH;
618
  switch (bfd_get_mach (abfd))
619
    {
620
      case bfd_mach_lm32:
621
        elf_elfheader (abfd)->e_flags |= E_LM32_MACH;
622
        break;
623
      default:
624
        abort ();
625
    }
626
}
627
 
628
/* Set the GP value for OUTPUT_BFD.  Returns FALSE if this is a
629
   dangerous relocation.  */
630
 
631
static bfd_boolean
632
lm32_elf_assign_gp (bfd *output_bfd, bfd_vma *pgp)
633
{
634
  unsigned int count;
635
  asymbol **sym;
636
  unsigned int i;
637
 
638
  /* If we've already figured out what GP will be, just return it. */
639
  *pgp = _bfd_get_gp_value (output_bfd);
640
  if (*pgp)
641
    return TRUE;
642
 
643
  count = bfd_get_symcount (output_bfd);
644
  sym = bfd_get_outsymbols (output_bfd);
645
 
646
  /* The linker script will have created a symbol named `_gp' with the
647
     appropriate value.  */
648
  if (sym == NULL)
649
    i = count;
650
  else
651
    {
652
      for (i = 0; i < count; i++, sym++)
653
        {
654
          const char *name;
655
 
656
          name = bfd_asymbol_name (*sym);
657
          if (*name == '_' && strcmp (name, "_gp") == 0)
658
            {
659
              *pgp = bfd_asymbol_value (*sym);
660
              _bfd_set_gp_value (output_bfd, *pgp);
661
              break;
662
            }
663
        }
664
    }
665
 
666
  if (i >= count)
667
    {
668
      /* Only get the error once.  */
669
      *pgp = 4;
670
      _bfd_set_gp_value (output_bfd, *pgp);
671
      return FALSE;
672
    }
673
 
674
  return TRUE;
675
}
676
 
677
/* We have to figure out the gp value, so that we can adjust the
678
   symbol value correctly.  We look up the symbol _gp in the output
679
   BFD.  If we can't find it, we're stuck.  We cache it in the ELF
680
   target data.  We don't need to adjust the symbol value for an
681
   external symbol if we are producing relocatable output.  */
682
 
683
static bfd_reloc_status_type
684
lm32_elf_final_gp (bfd *output_bfd, asymbol *symbol, bfd_boolean relocatable,
685
                    char **error_message, bfd_vma *pgp)
686
{
687
  if (bfd_is_und_section (symbol->section) && !relocatable)
688
    {
689
      *pgp = 0;
690
      return bfd_reloc_undefined;
691
    }
692
 
693
  *pgp = _bfd_get_gp_value (output_bfd);
694
  if (*pgp == 0 && (!relocatable || (symbol->flags & BSF_SECTION_SYM) != 0))
695
    {
696
      if (relocatable)
697
        {
698
          /* Make up a value.  */
699
          *pgp = symbol->section->output_section->vma + 0x4000;
700
          _bfd_set_gp_value (output_bfd, *pgp);
701
        }
702
      else if (!lm32_elf_assign_gp (output_bfd, pgp))
703
        {
704
          *error_message =
705
            (char *)
706
            _("global pointer relative relocation when _gp not defined");
707
          return bfd_reloc_dangerous;
708
        }
709
    }
710
 
711
  return bfd_reloc_ok;
712
}
713
 
714
static bfd_reloc_status_type
715
lm32_elf_do_gprel_relocate (bfd *abfd,
716
                            reloc_howto_type *howto,
717
                            asection *input_section ATTRIBUTE_UNUSED,
718
                            bfd_byte *data,
719
                            bfd_vma offset,
720
                            bfd_vma symbol_value,
721
                            bfd_vma addend)
722
{
723
  return _bfd_final_link_relocate (howto, abfd, input_section,
724
                                   data, offset, symbol_value, addend);
725
}
726
 
727
static bfd_reloc_status_type
728
lm32_elf_gprel_reloc (bfd *abfd,
729
                      arelent *reloc_entry,
730
                      asymbol *symbol,
731
                      void *data,
732
                      asection *input_section,
733
                      bfd *output_bfd,
734
                      char **msg)
735
{
736
  bfd_vma relocation;
737
  bfd_vma gp;
738
  bfd_reloc_status_type r;
739
 
740
  if (output_bfd != (bfd *) NULL
741
      && (symbol->flags & BSF_SECTION_SYM) == 0
742
      && (!reloc_entry->howto->partial_inplace || reloc_entry->addend == 0))
743
    {
744
      reloc_entry->address += input_section->output_offset;
745
      return bfd_reloc_ok;
746
    }
747
 
748
  if (output_bfd != NULL)
749
    return bfd_reloc_ok;
750
 
751
  relocation = symbol->value
752
    + symbol->section->output_section->vma + symbol->section->output_offset;
753
 
754
  if ((r =
755
       lm32_elf_final_gp (abfd, symbol, FALSE, msg, &gp)) == bfd_reloc_ok)
756
    {
757
      relocation = relocation + reloc_entry->addend - gp;
758
      reloc_entry->addend = 0;
759
      if ((signed) relocation < -32768 || (signed) relocation > 32767)
760
        {
761
          *msg = _("global pointer relative address out of range");
762
          r = bfd_reloc_outofrange;
763
        }
764
      else
765
        {
766
          r = lm32_elf_do_gprel_relocate (abfd, reloc_entry->howto,
767
                                             input_section,
768
                                             data, reloc_entry->address,
769
                                             relocation, reloc_entry->addend);
770
        }
771
    }
772
 
773
  return r;
774
}
775
 
776
/* Find the segment number in which OSEC, and output section, is
777
   located.  */
778
 
779
static unsigned
780
_lm32fdpic_osec_to_segment (bfd *output_bfd, asection *osec)
781
{
782
  struct elf_segment_map *m;
783
  Elf_Internal_Phdr *p;
784
 
785
  /* Find the segment that contains the output_section.  */
786
  for (m = elf_tdata (output_bfd)->segment_map,
787
         p = elf_tdata (output_bfd)->phdr;
788
       m != NULL;
789
       m = m->next, p++)
790
    {
791
      int i;
792
 
793
      for (i = m->count - 1; i >= 0; i--)
794
        if (m->sections[i] == osec)
795
          break;
796
 
797
      if (i >= 0)
798
        break;
799
    }
800
 
801
  return p - elf_tdata (output_bfd)->phdr;
802
}
803
 
804
/* Determine if an output section is read-only.  */
805
 
806
inline static bfd_boolean
807
_lm32fdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
808
{
809
  unsigned seg = _lm32fdpic_osec_to_segment (output_bfd, osec);
810
 
811
  return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
812
}
813
 
814
/* Relocate a section */
815
 
816
static bfd_boolean
817
lm32_elf_relocate_section (bfd *output_bfd,
818
                           struct bfd_link_info *info,
819
                           bfd *input_bfd,
820
                           asection *input_section,
821
                           bfd_byte *contents,
822
                           Elf_Internal_Rela *relocs,
823
                           Elf_Internal_Sym *local_syms,
824
                           asection **local_sections)
825
{
826
  Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
827
  struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
828
  Elf_Internal_Rela *rel, *relend;
829
  struct elf_lm32_link_hash_table *htab = lm32_elf_hash_table (info);
830
  bfd *dynobj;
831
  bfd_vma *local_got_offsets;
832
  asection *sgot;
833
 
834
  if (htab == NULL)
835
    return FALSE;
836
 
837
  dynobj = htab->root.dynobj;
838
  local_got_offsets = elf_local_got_offsets (input_bfd);
839
 
840
  sgot = htab->sgot;
841
 
842
  symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
843
  sym_hashes = elf_sym_hashes (input_bfd);
844
 
845
  rel = relocs;
846
  relend = relocs + input_section->reloc_count;
847
  for (; rel < relend; rel++)
848
    {
849
      reloc_howto_type *howto;
850
      unsigned int r_type;
851
      unsigned long r_symndx;
852
      Elf_Internal_Sym *sym;
853
      asection *sec;
854
      struct elf_link_hash_entry *h;
855
      bfd_vma relocation;
856
      bfd_vma gp;
857
      bfd_reloc_status_type r;
858
      const char *name = NULL;
859
 
860
      r_symndx = ELF32_R_SYM (rel->r_info);
861
      r_type = ELF32_R_TYPE (rel->r_info);
862
 
863
      if (r_type == R_LM32_GNU_VTENTRY
864
          || r_type == R_LM32_GNU_VTINHERIT )
865
        continue;
866
 
867
      h = NULL;
868
      sym = NULL;
869
      sec = NULL;
870
 
871
      howto = lm32_elf_howto_table + r_type;
872
 
873
      if (r_symndx < symtab_hdr->sh_info)
874
        {
875
          /* It's a local symbol.  */
876
          sym = local_syms + r_symndx;
877
          sec = local_sections[r_symndx];
878
          relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
879
          name = bfd_elf_string_from_elf_section
880
            (input_bfd, symtab_hdr->sh_link, sym->st_name);
881
          name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
882
        }
883
      else
884
        {
885
          /* It's a global symbol.  */
886
          bfd_boolean unresolved_reloc;
887
          bfd_boolean warned;
888
 
889
          RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
890
                                   r_symndx, symtab_hdr, sym_hashes,
891
                                   h, sec, relocation,
892
                                   unresolved_reloc, warned);
893
          name = h->root.root.string;
894
        }
895
 
896
      if (sec != NULL && elf_discarded_section (sec))
897
        {
898
          /* For relocs against symbols from removed linkonce sections,
899
             or sections discarded by a linker script, we just want the
900
             section contents zeroed.  Avoid any special processing.  */
901
          _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
902
          rel->r_info = 0;
903
          rel->r_addend = 0;
904
          continue;
905
        }
906
 
907
      if (info->relocatable)
908
        {
909
          /* This is a relocatable link.  We don't have to change
910
             anything, unless the reloc is against a section symbol,
911
             in which case we have to adjust according to where the
912
             section symbol winds up in the output section.  */
913
          if (sym == NULL || ELF_ST_TYPE (sym->st_info) != STT_SECTION)
914
            continue;
915
 
916
          /* If partial_inplace, we need to store any additional addend
917
             back in the section.  */
918
          if (! howto->partial_inplace)
919
            continue;
920
 
921
          /* Shouldn't reach here.  */
922
          abort ();
923
          r = bfd_reloc_ok;
924
        }
925
      else
926
        {
927
          switch (howto->type)
928
            {
929
            case R_LM32_GPREL16:
930
              if (!lm32_elf_assign_gp (output_bfd, &gp))
931
                r = bfd_reloc_dangerous;
932
              else
933
                {
934
                  relocation = relocation + rel->r_addend - gp;
935
                  rel->r_addend = 0;
936
                  if ((signed)relocation < -32768 || (signed)relocation > 32767)
937
                    r = bfd_reloc_outofrange;
938
                  else
939
                    {
940
                      r = _bfd_final_link_relocate (howto, input_bfd,
941
                                                  input_section, contents,
942
                                          rel->r_offset, relocation,
943
                                          rel->r_addend);
944
                   }
945
                }
946
              break;
947
            case R_LM32_16_GOT:
948
              /* Relocation is to the entry for this symbol in the global
949
                 offset table.  */
950
              BFD_ASSERT (sgot != NULL);
951
              if (h != NULL)
952
                {
953
                  bfd_boolean dyn;
954
                  bfd_vma off;
955
 
956
                  off = h->got.offset;
957
                  BFD_ASSERT (off != (bfd_vma) -1);
958
 
959
                  dyn = htab->root.dynamic_sections_created;
960
                  if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
961
                      || (info->shared
962
                          && (info->symbolic
963
                              || h->dynindx == -1
964
                              || h->forced_local)
965
                          && h->def_regular))
966
                    {
967
                      /* This is actually a static link, or it is a
968
                         -Bsymbolic link and the symbol is defined
969
                         locally, or the symbol was forced to be local
970
                         because of a version file.  We must initialize
971
                         this entry in the global offset table.  Since the
972
                         offset must always be a multiple of 4, we use the
973
                         least significant bit to record whether we have
974
                         initialized it already.
975
 
976
                         When doing a dynamic link, we create a .rela.got
977
                         relocation entry to initialize the value.  This
978
                         is done in the finish_dynamic_symbol routine.  */
979
                      if ((off & 1) != 0)
980
                        off &= ~1;
981
                      else
982
                        {
983
                          /* Write entry in GOT */
984
                          bfd_put_32 (output_bfd, relocation,
985
                                      sgot->contents + off);
986
                          /* Create entry in .rofixup pointing to GOT entry.  */
987
                           if (IS_FDPIC (output_bfd) && h->root.type != bfd_link_hash_undefweak)
988
                             {
989
                               _lm32fdpic_add_rofixup (output_bfd,
990
                                                       lm32fdpic_fixup32_section
991
                                                        (info),
992
                                                       sgot->output_section->vma
993
                                                        + sgot->output_offset
994
                                                        + off);
995
                             }
996
                          /* Mark GOT entry as having been written.  */
997
                          h->got.offset |= 1;
998
                        }
999
                    }
1000
 
1001
                  relocation = sgot->output_offset + off;
1002
                }
1003
              else
1004
                {
1005
                  bfd_vma off;
1006
                  bfd_byte *loc;
1007
 
1008
                  BFD_ASSERT (local_got_offsets != NULL
1009
                              && local_got_offsets[r_symndx] != (bfd_vma) -1);
1010
 
1011
                  /* Get offset into GOT table.  */
1012
                  off = local_got_offsets[r_symndx];
1013
 
1014
                  /* The offset must always be a multiple of 4.  We use
1015
                     the least significant bit to record whether we have
1016
                     already processed this entry.  */
1017
                  if ((off & 1) != 0)
1018
                    off &= ~1;
1019
                  else
1020
                    {
1021
                      /* Write entry in GOT.  */
1022
                      bfd_put_32 (output_bfd, relocation, sgot->contents + off);
1023
                      /* Create entry in .rofixup pointing to GOT entry.  */
1024
                      if (IS_FDPIC (output_bfd))
1025
                        {
1026
                          _lm32fdpic_add_rofixup (output_bfd,
1027
                                                  lm32fdpic_fixup32_section
1028
                                                   (info),
1029
                                                  sgot->output_section->vma
1030
                                                   + sgot->output_offset
1031
                                                   + off);
1032
                        }
1033
 
1034
                      if (info->shared)
1035
                        {
1036
                          asection *srelgot;
1037
                          Elf_Internal_Rela outrel;
1038
 
1039
                          /* We need to generate a R_LM32_RELATIVE reloc
1040
                             for the dynamic linker.  */
1041
                          srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1042
                          BFD_ASSERT (srelgot != NULL);
1043
 
1044
                          outrel.r_offset = (sgot->output_section->vma
1045
                                             + sgot->output_offset
1046
                                             + off);
1047
                          outrel.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
1048
                          outrel.r_addend = relocation;
1049
                          loc = srelgot->contents;
1050
                          loc += srelgot->reloc_count * sizeof (Elf32_External_Rela);
1051
                          bfd_elf32_swap_reloca_out (output_bfd, &outrel,loc);
1052
                          ++srelgot->reloc_count;
1053
                        }
1054
 
1055
                      local_got_offsets[r_symndx] |= 1;
1056
                    }
1057
 
1058
 
1059
                  relocation = sgot->output_offset + off;
1060
                }
1061
 
1062
              /* Addend should be zero.  */
1063
              if (rel->r_addend != 0)
1064
                (*_bfd_error_handler) (_("internal error: addend should be zero for R_LM32_16_GOT"));
1065
 
1066
              r = _bfd_final_link_relocate (howto,
1067
                                            input_bfd,
1068
                                            input_section,
1069
                                            contents,
1070
                                            rel->r_offset,
1071
                                            relocation,
1072
                                            rel->r_addend);
1073
              break;
1074
 
1075
            case R_LM32_GOTOFF_LO16:
1076
            case R_LM32_GOTOFF_HI16:
1077
              /* Relocation is offset from GOT.  */
1078
              BFD_ASSERT (sgot != NULL);
1079
              relocation -= sgot->output_section->vma;
1080
              /* Account for sign-extension.  */
1081
              if ((r_type == R_LM32_GOTOFF_HI16)
1082
                  && ((relocation + rel->r_addend) & 0x8000))
1083
                rel->r_addend += 0x10000;
1084
              r = _bfd_final_link_relocate (howto,
1085
                                            input_bfd,
1086
                                            input_section,
1087
                                            contents,
1088
                                            rel->r_offset,
1089
                                            relocation,
1090
                                            rel->r_addend);
1091
              break;
1092
 
1093
            case R_LM32_32:
1094
              if (IS_FDPIC (output_bfd))
1095
                {
1096
                  if ((!h) || (h && h->root.type != bfd_link_hash_undefweak))
1097
                    {
1098
                      /* Only create .rofixup entries for relocs in loadable sections.  */
1099
                      if ((bfd_get_section_flags (output_bfd, input_section->output_section)
1100
                          & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
1101
 
1102
                        {
1103
                          /* Check address to be modified is writable.  */
1104
                          if (_lm32fdpic_osec_readonly_p (output_bfd,
1105
                                                          input_section
1106
                                                           ->output_section))
1107
                            {
1108
                              info->callbacks->warning
1109
                                (info,
1110
                                 _("cannot emit dynamic relocations in read-only section"),
1111
                                 name, input_bfd, input_section, rel->r_offset);
1112
                               return FALSE;
1113
                            }
1114
                          /* Create entry in .rofixup section.  */
1115
                          _lm32fdpic_add_rofixup (output_bfd,
1116
                                                  lm32fdpic_fixup32_section (info),
1117
                                                  input_section->output_section->vma
1118
                                                   + input_section->output_offset
1119
                                                   + rel->r_offset);
1120
                        }
1121
                    }
1122
                }
1123
              /* Fall through.  */
1124
 
1125
            default:
1126
              r = _bfd_final_link_relocate (howto,
1127
                                            input_bfd,
1128
                                            input_section,
1129
                                            contents,
1130
                                            rel->r_offset,
1131
                                            relocation,
1132
                                            rel->r_addend);
1133
              break;
1134
            }
1135
        }
1136
 
1137
      if (r != bfd_reloc_ok)
1138
        {
1139
          const char *msg = NULL;
1140
          arelent bfd_reloc;
1141
 
1142
          lm32_info_to_howto_rela (input_bfd, &bfd_reloc, rel);
1143
          howto = bfd_reloc.howto;
1144
 
1145
          if (h != NULL)
1146
            name = h->root.root.string;
1147
          else
1148
            {
1149
              name = (bfd_elf_string_from_elf_section
1150
                      (input_bfd, symtab_hdr->sh_link, sym->st_name));
1151
              if (name == NULL || *name == '\0')
1152
                name = bfd_section_name (input_bfd, sec);
1153
            }
1154
 
1155
          switch (r)
1156
            {
1157
            case bfd_reloc_overflow:
1158
              if ((h != NULL)
1159
                 && (h->root.type == bfd_link_hash_undefweak))
1160
                break;
1161
              if (! ((*info->callbacks->reloc_overflow)
1162
                     (info, (h ? &h->root : NULL), name, howto->name,
1163
                      (bfd_vma) 0, input_bfd, input_section, rel->r_offset)))
1164
                return FALSE;
1165
              break;
1166
 
1167
            case bfd_reloc_undefined:
1168
              if (! ((*info->callbacks->undefined_symbol)
1169
                     (info, name, input_bfd, input_section,
1170
                      rel->r_offset, TRUE)))
1171
                return FALSE;
1172
              break;
1173
 
1174
            case bfd_reloc_outofrange:
1175
              msg = _("internal error: out of range error");
1176
              goto common_error;
1177
 
1178
            case bfd_reloc_notsupported:
1179
              msg = _("internal error: unsupported relocation error");
1180
              goto common_error;
1181
 
1182
            case bfd_reloc_dangerous:
1183
              msg = _("internal error: dangerous error");
1184
              goto common_error;
1185
 
1186
            default:
1187
              msg = _("internal error: unknown error");
1188
              /* fall through */
1189
 
1190
            common_error:
1191
              if (!((*info->callbacks->warning)
1192
                    (info, msg, name, input_bfd, input_section,
1193
                     rel->r_offset)))
1194
                return FALSE;
1195
              break;
1196
            }
1197
        }
1198
    }
1199
 
1200
  return TRUE;
1201
}
1202
 
1203
static asection *
1204
lm32_elf_gc_mark_hook (asection *sec,
1205
                       struct bfd_link_info *info,
1206
                       Elf_Internal_Rela *rel,
1207
                       struct elf_link_hash_entry *h,
1208
                       Elf_Internal_Sym *sym)
1209
{
1210
  if (h != NULL)
1211
    switch (ELF32_R_TYPE (rel->r_info))
1212
      {
1213
      case R_LM32_GNU_VTINHERIT:
1214
      case R_LM32_GNU_VTENTRY:
1215
        return NULL;
1216
      }
1217
 
1218
  return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1219
}
1220
 
1221
static bfd_boolean
1222
lm32_elf_gc_sweep_hook (bfd *abfd,
1223
                        struct bfd_link_info *info ATTRIBUTE_UNUSED,
1224
                        asection *sec,
1225
                        const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED)
1226
{
1227
  /* Update the got entry reference counts for the section being removed.  */
1228
  Elf_Internal_Shdr *symtab_hdr;
1229
  struct elf_link_hash_entry **sym_hashes;
1230
  bfd_signed_vma *local_got_refcounts;
1231
  const Elf_Internal_Rela *rel, *relend;
1232
 
1233
  elf_section_data (sec)->local_dynrel = NULL;
1234
 
1235
  symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1236
  sym_hashes = elf_sym_hashes (abfd);
1237
  local_got_refcounts = elf_local_got_refcounts (abfd);
1238
 
1239
  relend = relocs + sec->reloc_count;
1240
  for (rel = relocs; rel < relend; rel++)
1241
    {
1242
      unsigned long r_symndx;
1243
      struct elf_link_hash_entry *h = NULL;
1244
 
1245
      r_symndx = ELF32_R_SYM (rel->r_info);
1246
      if (r_symndx >= symtab_hdr->sh_info)
1247
        {
1248
          h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1249
          while (h->root.type == bfd_link_hash_indirect
1250
                 || h->root.type == bfd_link_hash_warning)
1251
            h = (struct elf_link_hash_entry *) h->root.u.i.link;
1252
        }
1253
 
1254
      switch (ELF32_R_TYPE (rel->r_info))
1255
        {
1256
        case R_LM32_16_GOT:
1257
          if (h != NULL)
1258
            {
1259
              if (h->got.refcount > 0)
1260
                h->got.refcount--;
1261
            }
1262
          else
1263
            {
1264
              if (local_got_refcounts && local_got_refcounts[r_symndx] > 0)
1265
                local_got_refcounts[r_symndx]--;
1266
            }
1267
          break;
1268
 
1269
        default:
1270
          break;
1271
        }
1272
    }
1273
  return TRUE;
1274
}
1275
 
1276
/* Look through the relocs for a section during the first phase.  */
1277
 
1278
static bfd_boolean
1279
lm32_elf_check_relocs (bfd *abfd,
1280
                       struct bfd_link_info *info,
1281
                       asection *sec,
1282
                       const Elf_Internal_Rela *relocs)
1283
{
1284
  Elf_Internal_Shdr *symtab_hdr;
1285
  struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
1286
  const Elf_Internal_Rela *rel;
1287
  const Elf_Internal_Rela *rel_end;
1288
  struct elf_lm32_link_hash_table *htab;
1289
  bfd *dynobj;
1290
 
1291
  if (info->relocatable)
1292
    return TRUE;
1293
 
1294
  symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1295
  sym_hashes = elf_sym_hashes (abfd);
1296
  sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
1297
  if (!elf_bad_symtab (abfd))
1298
    sym_hashes_end -= symtab_hdr->sh_info;
1299
 
1300
  htab = lm32_elf_hash_table (info);
1301
  if (htab == NULL)
1302
    return FALSE;
1303
 
1304
  dynobj = htab->root.dynobj;
1305
 
1306
  rel_end = relocs + sec->reloc_count;
1307
  for (rel = relocs; rel < rel_end; rel++)
1308
    {
1309
      int r_type;
1310
      struct elf_link_hash_entry *h;
1311
      unsigned long r_symndx;
1312
 
1313
      r_symndx = ELF32_R_SYM (rel->r_info);
1314
      r_type = ELF32_R_TYPE (rel->r_info);
1315
      if (r_symndx < symtab_hdr->sh_info)
1316
        h = NULL;
1317
      else
1318
        {
1319
          h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1320
          while (h->root.type == bfd_link_hash_indirect
1321
                 || h->root.type == bfd_link_hash_warning)
1322
            h = (struct elf_link_hash_entry *) h->root.u.i.link;
1323
        }
1324
 
1325
      /* Some relocs require a global offset table.  */
1326
      if (htab->sgot == NULL)
1327
        {
1328
          switch (r_type)
1329
            {
1330
            case R_LM32_16_GOT:
1331
            case R_LM32_GOTOFF_HI16:
1332
            case R_LM32_GOTOFF_LO16:
1333
              if (dynobj == NULL)
1334
                htab->root.dynobj = dynobj = abfd;
1335
              if (! create_got_section (dynobj, info))
1336
                return FALSE;
1337
              break;
1338
            }
1339
        }
1340
 
1341
      /* Some relocs require a rofixup table. */
1342
      if (IS_FDPIC (abfd))
1343
        {
1344
          switch (r_type)
1345
            {
1346
            case R_LM32_32:
1347
              /* FDPIC requires a GOT if there is a .rofixup section
1348
                 (Normal ELF doesn't). */
1349
              if (dynobj == NULL)
1350
                htab->root.dynobj = dynobj = abfd;
1351
              if (! create_got_section (dynobj, info))
1352
                return FALSE;
1353
              /* Create .rofixup section */
1354
              if (htab->sfixup32 == NULL)
1355
                {
1356
                  if (! create_rofixup_section (abfd, info))
1357
                    return FALSE;
1358
                }
1359
              break;
1360
            case R_LM32_16_GOT:
1361
            case R_LM32_GOTOFF_HI16:
1362
            case R_LM32_GOTOFF_LO16:
1363
              /* Create .rofixup section.  */
1364
              if (htab->sfixup32 == NULL)
1365
                {
1366
                  if (! create_rofixup_section (abfd, info))
1367
                    return FALSE;
1368
                }
1369
              break;
1370
            }
1371
        }
1372
 
1373
      switch (r_type)
1374
        {
1375
        case R_LM32_16_GOT:
1376
          if (h != NULL)
1377
            h->got.refcount += 1;
1378
          else
1379
            {
1380
              bfd_signed_vma *local_got_refcounts;
1381
 
1382
              /* This is a global offset table entry for a local symbol.  */
1383
              local_got_refcounts = elf_local_got_refcounts (abfd);
1384
              if (local_got_refcounts == NULL)
1385
                {
1386
                  bfd_size_type size;
1387
 
1388
                  size = symtab_hdr->sh_info;
1389
                  size *= sizeof (bfd_signed_vma);
1390
                  local_got_refcounts = bfd_zalloc (abfd, size);
1391
                  if (local_got_refcounts == NULL)
1392
                    return FALSE;
1393
                  elf_local_got_refcounts (abfd) = local_got_refcounts;
1394
                }
1395
              local_got_refcounts[r_symndx] += 1;
1396
            }
1397
          break;
1398
 
1399
        /* This relocation describes the C++ object vtable hierarchy.
1400
           Reconstruct it for later use during GC.  */
1401
        case R_LM32_GNU_VTINHERIT:
1402
          if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1403
            return FALSE;
1404
          break;
1405
 
1406
        /* This relocation describes which C++ vtable entries are actually
1407
           used.  Record for later use during GC.  */
1408
        case R_LM32_GNU_VTENTRY:
1409
          if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1410
            return FALSE;
1411
          break;
1412
 
1413
        }
1414
    }
1415
 
1416
  return TRUE;
1417
}
1418
 
1419
/* Finish up the dynamic sections.  */
1420
 
1421
static bfd_boolean
1422
lm32_elf_finish_dynamic_sections (bfd *output_bfd,
1423
                                  struct bfd_link_info *info)
1424
{
1425
  struct elf_lm32_link_hash_table *htab;
1426
  bfd *dynobj;
1427
  asection *sdyn;
1428
  asection *sgot;
1429
 
1430
  htab = lm32_elf_hash_table (info);
1431
  if (htab == NULL)
1432
    return FALSE;
1433
 
1434
  dynobj = htab->root.dynobj;
1435
 
1436
  sgot = htab->sgotplt;
1437
  sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
1438
 
1439
  if (htab->root.dynamic_sections_created)
1440
    {
1441
      asection *splt;
1442
      Elf32_External_Dyn *dyncon, *dynconend;
1443
 
1444
      BFD_ASSERT (sgot != NULL && sdyn != NULL);
1445
 
1446
      dyncon = (Elf32_External_Dyn *) sdyn->contents;
1447
      dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
1448
 
1449
      for (; dyncon < dynconend; dyncon++)
1450
        {
1451
          Elf_Internal_Dyn dyn;
1452
          asection *s;
1453
 
1454
          bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
1455
 
1456
          switch (dyn.d_tag)
1457
            {
1458
            default:
1459
              break;
1460
 
1461
            case DT_PLTGOT:
1462
              s = htab->sgot->output_section;
1463
              goto get_vma;
1464
            case DT_JMPREL:
1465
              s = htab->srelplt->output_section;
1466
            get_vma:
1467
              BFD_ASSERT (s != NULL);
1468
              dyn.d_un.d_ptr = s->vma;
1469
              bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1470
              break;
1471
 
1472
            case DT_PLTRELSZ:
1473
              s = htab->srelplt->output_section;
1474
              BFD_ASSERT (s != NULL);
1475
              dyn.d_un.d_val = s->size;
1476
              bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1477
              break;
1478
 
1479
            case DT_RELASZ:
1480
              /* My reading of the SVR4 ABI indicates that the
1481
                 procedure linkage table relocs (DT_JMPREL) should be
1482
                 included in the overall relocs (DT_RELA).  This is
1483
                 what Solaris does.  However, UnixWare can not handle
1484
                 that case.  Therefore, we override the DT_RELASZ entry
1485
                 here to make it not include the JMPREL relocs.  Since
1486
                 the linker script arranges for .rela.plt to follow all
1487
                 other relocation sections, we don't have to worry
1488
                 about changing the DT_RELA entry.  */
1489
              if (htab->srelplt != NULL)
1490
                {
1491
                  s = htab->srelplt->output_section;
1492
                  dyn.d_un.d_val -= s->size;
1493
                }
1494
              bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1495
              break;
1496
            }
1497
        }
1498
 
1499
      /* Fill in the first entry in the procedure linkage table.  */
1500
      splt = htab->splt;
1501
      if (splt && splt->size > 0)
1502
        {
1503
          if (info->shared)
1504
            {
1505
              bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD0, splt->contents);
1506
              bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD1, splt->contents + 4);
1507
              bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD2, splt->contents + 8);
1508
              bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD3, splt->contents + 12);
1509
              bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD4, splt->contents + 16);
1510
            }
1511
          else
1512
            {
1513
              unsigned long addr;
1514
              /* addr = .got + 4 */
1515
              addr = sgot->output_section->vma + sgot->output_offset + 4;
1516
              bfd_put_32 (output_bfd,
1517
                          PLT0_ENTRY_WORD0 | ((addr >> 16) & 0xffff),
1518
                          splt->contents);
1519
              bfd_put_32 (output_bfd,
1520
                          PLT0_ENTRY_WORD1 | (addr & 0xffff),
1521
                          splt->contents + 4);
1522
              bfd_put_32 (output_bfd, PLT0_ENTRY_WORD2, splt->contents + 8);
1523
              bfd_put_32 (output_bfd, PLT0_ENTRY_WORD3, splt->contents + 12);
1524
              bfd_put_32 (output_bfd, PLT0_ENTRY_WORD4, splt->contents + 16);
1525
            }
1526
 
1527
          elf_section_data (splt->output_section)->this_hdr.sh_entsize =
1528
            PLT_ENTRY_SIZE;
1529
        }
1530
    }
1531
 
1532
  /* Fill in the first three entries in the global offset table.  */
1533
  if (sgot && sgot->size > 0)
1534
    {
1535
      if (sdyn == NULL)
1536
        bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
1537
      else
1538
        bfd_put_32 (output_bfd,
1539
                    sdyn->output_section->vma + sdyn->output_offset,
1540
                    sgot->contents);
1541
      bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
1542
      bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
1543
 
1544
      /* FIXME:  This can be null if create_dynamic_sections wasn't called. */
1545
      if (elf_section_data (sgot->output_section) != NULL)
1546
        elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
1547
    }
1548
 
1549
  if (lm32fdpic_fixup32_section (info))
1550
    {
1551
      struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
1552
      bfd_vma got_value = hgot->root.u.def.value
1553
            + hgot->root.u.def.section->output_section->vma
1554
            + hgot->root.u.def.section->output_offset;
1555
      struct bfd_link_hash_entry *hend;
1556
 
1557
      /* Last entry is pointer to GOT.  */
1558
      _lm32fdpic_add_rofixup (output_bfd, lm32fdpic_fixup32_section (info), got_value);
1559
 
1560
      /* Check we wrote enough entries.  */
1561
      if (lm32fdpic_fixup32_section (info)->size
1562
              != (lm32fdpic_fixup32_section (info)->reloc_count * 4))
1563
        {
1564
          (*_bfd_error_handler)
1565
            ("LINKER BUG: .rofixup section size mismatch: size/4 %d != relocs %d",
1566
            lm32fdpic_fixup32_section (info)->size/4,
1567
            lm32fdpic_fixup32_section (info)->reloc_count);
1568
          return FALSE;
1569
        }
1570
 
1571
      hend = bfd_link_hash_lookup (info->hash, "__ROFIXUP_END__",
1572
              FALSE, FALSE, TRUE);
1573
      if (hend
1574
          && (hend->type == bfd_link_hash_defined
1575
              || hend->type == bfd_link_hash_defweak))
1576
        {
1577
          bfd_vma value =
1578
            lm32fdpic_fixup32_section (info)->output_section->vma
1579
            + lm32fdpic_fixup32_section (info)->output_offset
1580
            + lm32fdpic_fixup32_section (info)->size
1581
            - hend->u.def.section->output_section->vma
1582
            - hend->u.def.section->output_offset;
1583
          BFD_ASSERT (hend->u.def.value == value);
1584
          if (hend->u.def.value != value)
1585
            {
1586
              (*_bfd_error_handler)
1587
                ("LINKER BUG: .rofixup section hend->u.def.value != value: %ld != %ld", hend->u.def.value, value);
1588
              return FALSE;
1589
            }
1590
        }
1591
    }
1592
 
1593
  return TRUE;
1594
}
1595
 
1596
/* Finish up dynamic symbol handling.  We set the contents of various
1597
   dynamic sections here.  */
1598
 
1599
static bfd_boolean
1600
lm32_elf_finish_dynamic_symbol (bfd *output_bfd,
1601
                                struct bfd_link_info *info,
1602
                                struct elf_link_hash_entry *h,
1603
                                Elf_Internal_Sym *sym)
1604
{
1605
  struct elf_lm32_link_hash_table *htab;
1606
  bfd_byte *loc;
1607
 
1608
  htab = lm32_elf_hash_table (info);
1609
  if (htab == NULL)
1610
    return FALSE;
1611
 
1612
  if (h->plt.offset != (bfd_vma) -1)
1613
    {
1614
      asection *splt;
1615
      asection *sgot;
1616
      asection *srela;
1617
 
1618
      bfd_vma plt_index;
1619
      bfd_vma got_offset;
1620
      Elf_Internal_Rela rela;
1621
 
1622
      /* This symbol has an entry in the procedure linkage table.  Set
1623
         it up.  */
1624
      BFD_ASSERT (h->dynindx != -1);
1625
 
1626
      splt = htab->splt;
1627
      sgot = htab->sgotplt;
1628
      srela = htab->srelplt;
1629
      BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
1630
 
1631
      /* Get the index in the procedure linkage table which
1632
         corresponds to this symbol.  This is the index of this symbol
1633
         in all the symbols for which we are making plt entries.  The
1634
         first entry in the procedure linkage table is reserved.  */
1635
      plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
1636
 
1637
      /* Get the offset into the .got table of the entry that
1638
        corresponds to this function.  Each .got entry is 4 bytes.
1639
        The first three are reserved.  */
1640
      got_offset = (plt_index + 3) * 4;
1641
 
1642
      /* Fill in the entry in the procedure linkage table.  */
1643
      if (! info->shared)
1644
        {
1645
          /* TODO */
1646
        }
1647
      else
1648
        {
1649
          /* TODO */
1650
        }
1651
 
1652
      /* Fill in the entry in the global offset table.  */
1653
      bfd_put_32 (output_bfd,
1654
                  (splt->output_section->vma
1655
                   + splt->output_offset
1656
                   + h->plt.offset
1657
                   + 12), /* same offset */
1658
                  sgot->contents + got_offset);
1659
 
1660
      /* Fill in the entry in the .rela.plt section.  */
1661
      rela.r_offset = (sgot->output_section->vma
1662
                       + sgot->output_offset
1663
                       + got_offset);
1664
      rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_JMP_SLOT);
1665
      rela.r_addend = 0;
1666
      loc = srela->contents;
1667
      loc += plt_index * sizeof (Elf32_External_Rela);
1668
      bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1669
 
1670
      if (!h->def_regular)
1671
        {
1672
          /* Mark the symbol as undefined, rather than as defined in
1673
             the .plt section.  Leave the value alone.  */
1674
          sym->st_shndx = SHN_UNDEF;
1675
        }
1676
 
1677
    }
1678
 
1679
  if (h->got.offset != (bfd_vma) -1)
1680
    {
1681
      asection *sgot;
1682
      asection *srela;
1683
      Elf_Internal_Rela rela;
1684
 
1685
      /* This symbol has an entry in the global offset table.  Set it
1686
         up.  */
1687
      sgot = htab->sgot;
1688
      srela = htab->srelgot;
1689
      BFD_ASSERT (sgot != NULL && srela != NULL);
1690
 
1691
      rela.r_offset = (sgot->output_section->vma
1692
                       + sgot->output_offset
1693
                       + (h->got.offset &~ 1));
1694
 
1695
      /* If this is a -Bsymbolic link, and the symbol is defined
1696
         locally, we just want to emit a RELATIVE reloc.  Likewise if
1697
         the symbol was forced to be local because of a version file.
1698
         The entry in the global offset table will already have been
1699
         initialized in the relocate_section function.  */
1700
      if (info->shared
1701
          && (info->symbolic
1702
              || h->dynindx == -1
1703
              || h->forced_local)
1704
          && h->def_regular)
1705
        {
1706
          rela.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
1707
          rela.r_addend = (h->root.u.def.value
1708
                           + h->root.u.def.section->output_section->vma
1709
                           + h->root.u.def.section->output_offset);
1710
        }
1711
      else
1712
        {
1713
          BFD_ASSERT ((h->got.offset & 1) == 0);
1714
          bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
1715
          rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_GLOB_DAT);
1716
          rela.r_addend = 0;
1717
        }
1718
 
1719
      loc = srela->contents;
1720
      loc += srela->reloc_count * sizeof (Elf32_External_Rela);
1721
      bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1722
      ++srela->reloc_count;
1723
    }
1724
 
1725
  if (h->needs_copy)
1726
    {
1727
      asection *s;
1728
      Elf_Internal_Rela rela;
1729
 
1730
      /* This symbols needs a copy reloc.  Set it up.  */
1731
      BFD_ASSERT (h->dynindx != -1
1732
                  && (h->root.type == bfd_link_hash_defined
1733
                      || h->root.type == bfd_link_hash_defweak));
1734
 
1735
      s = bfd_get_section_by_name (h->root.u.def.section->owner,
1736
                                   ".rela.bss");
1737
      BFD_ASSERT (s != NULL);
1738
 
1739
      rela.r_offset = (h->root.u.def.value
1740
                       + h->root.u.def.section->output_section->vma
1741
                       + h->root.u.def.section->output_offset);
1742
      rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_COPY);
1743
      rela.r_addend = 0;
1744
      loc = s->contents;
1745
      loc += s->reloc_count * sizeof (Elf32_External_Rela);
1746
      bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1747
      ++s->reloc_count;
1748
    }
1749
 
1750
  /* Mark some specially defined symbols as absolute.  */
1751
  if (strcmp (h->root.root.string, "_DYNAMIC") == 0
1752
      || h == htab->root.hgot)
1753
    sym->st_shndx = SHN_ABS;
1754
 
1755
  return TRUE;
1756
}
1757
 
1758
static enum elf_reloc_type_class
1759
lm32_elf_reloc_type_class (const Elf_Internal_Rela *rela)
1760
{
1761
  switch ((int) ELF32_R_TYPE (rela->r_info))
1762
    {
1763
    case R_LM32_RELATIVE:  return reloc_class_relative;
1764
    case R_LM32_JMP_SLOT:  return reloc_class_plt;
1765
    case R_LM32_COPY:      return reloc_class_copy;
1766
    default:               return reloc_class_normal;
1767
    }
1768
}
1769
 
1770
/* Adjust a symbol defined by a dynamic object and referenced by a
1771
   regular object.  The current definition is in some section of the
1772
   dynamic object, but we're not including those sections.  We have to
1773
   change the definition to something the rest of the link can
1774
   understand.  */
1775
 
1776
static bfd_boolean
1777
lm32_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
1778
                                struct elf_link_hash_entry *h)
1779
{
1780
  struct elf_lm32_link_hash_table *htab;
1781
  struct elf_lm32_link_hash_entry *eh;
1782
  struct elf_lm32_dyn_relocs *p;
1783
  bfd *dynobj;
1784
  asection *s;
1785
 
1786
  dynobj = elf_hash_table (info)->dynobj;
1787
 
1788
  /* Make sure we know what is going on here.  */
1789
  BFD_ASSERT (dynobj != NULL
1790
              && (h->needs_plt
1791
                  || h->u.weakdef != NULL
1792
                  || (h->def_dynamic
1793
                      && h->ref_regular
1794
                      && !h->def_regular)));
1795
 
1796
  /* If this is a function, put it in the procedure linkage table.  We
1797
     will fill in the contents of the procedure linkage table later,
1798
     when we know the address of the .got section.  */
1799
  if (h->type == STT_FUNC
1800
      || h->needs_plt)
1801
    {
1802
      if (! info->shared
1803
          && !h->def_dynamic
1804
          && !h->ref_dynamic
1805
          && h->root.type != bfd_link_hash_undefweak
1806
          && h->root.type != bfd_link_hash_undefined)
1807
        {
1808
          /* This case can occur if we saw a PLT reloc in an input
1809
             file, but the symbol was never referred to by a dynamic
1810
             object.  In such a case, we don't actually need to build
1811
             a procedure linkage table, and we can just do a PCREL
1812
             reloc instead.  */
1813
          h->plt.offset = (bfd_vma) -1;
1814
          h->needs_plt = 0;
1815
        }
1816
 
1817
      return TRUE;
1818
    }
1819
  else
1820
    h->plt.offset = (bfd_vma) -1;
1821
 
1822
  /* If this is a weak symbol, and there is a real definition, the
1823
     processor independent code will have arranged for us to see the
1824
     real definition first, and we can just use the same value.  */
1825
  if (h->u.weakdef != NULL)
1826
    {
1827
      BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
1828
                  || h->u.weakdef->root.type == bfd_link_hash_defweak);
1829
      h->root.u.def.section = h->u.weakdef->root.u.def.section;
1830
      h->root.u.def.value = h->u.weakdef->root.u.def.value;
1831
      return TRUE;
1832
    }
1833
 
1834
  /* This is a reference to a symbol defined by a dynamic object which
1835
     is not a function.  */
1836
 
1837
  /* If we are creating a shared library, we must presume that the
1838
     only references to the symbol are via the global offset table.
1839
     For such cases we need not do anything here; the relocations will
1840
     be handled correctly by relocate_section.  */
1841
  if (info->shared)
1842
    return TRUE;
1843
 
1844
  /* If there are no references to this symbol that do not use the
1845
     GOT, we don't need to generate a copy reloc.  */
1846
  if (!h->non_got_ref)
1847
    return TRUE;
1848
 
1849
  /* If -z nocopyreloc was given, we won't generate them either.  */
1850
  if (info->nocopyreloc)
1851
    {
1852
      h->non_got_ref = 0;
1853
      return TRUE;
1854
    }
1855
 
1856
  eh = (struct elf_lm32_link_hash_entry *) h;
1857
  for (p = eh->dyn_relocs; p != NULL; p = p->next)
1858
    {
1859
      s = p->sec->output_section;
1860
      if (s != NULL && (s->flags & (SEC_READONLY | SEC_HAS_CONTENTS)) != 0)
1861
        break;
1862
    }
1863
 
1864
  /* If we didn't find any dynamic relocs in sections which needs the
1865
     copy reloc, then we'll be keeping the dynamic relocs and avoiding
1866
     the copy reloc.  */
1867
  if (p == NULL)
1868
    {
1869
      h->non_got_ref = 0;
1870
      return TRUE;
1871
    }
1872
 
1873
  if (h->size == 0)
1874
    {
1875
      (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
1876
                             h->root.root.string);
1877
      return TRUE;
1878
    }
1879
 
1880
  /* We must allocate the symbol in our .dynbss section, which will
1881
     become part of the .bss section of the executable.  There will be
1882
     an entry for this symbol in the .dynsym section.  The dynamic
1883
     object will contain position independent code, so all references
1884
     from the dynamic object to this symbol will go through the global
1885
     offset table.  The dynamic linker will use the .dynsym entry to
1886
     determine the address it must put in the global offset table, so
1887
     both the dynamic object and the regular object will refer to the
1888
     same memory location for the variable.  */
1889
 
1890
  htab = lm32_elf_hash_table (info);
1891
  if (htab == NULL)
1892
    return FALSE;
1893
 
1894
  s = htab->sdynbss;
1895
  BFD_ASSERT (s != NULL);
1896
 
1897
  /* We must generate a R_LM32_COPY reloc to tell the dynamic linker
1898
     to copy the initial value out of the dynamic object and into the
1899
     runtime process image.  We need to remember the offset into the
1900
     .rela.bss section we are going to use.  */
1901
  if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1902
    {
1903
      asection *srel;
1904
 
1905
      srel = htab->srelbss;
1906
      BFD_ASSERT (srel != NULL);
1907
      srel->size += sizeof (Elf32_External_Rela);
1908
      h->needs_copy = 1;
1909
    }
1910
 
1911
  return _bfd_elf_adjust_dynamic_copy (h, s);
1912
}
1913
 
1914
/* Allocate space in .plt, .got and associated reloc sections for
1915
   dynamic relocs.  */
1916
 
1917
static bfd_boolean
1918
allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
1919
{
1920
  struct bfd_link_info *info;
1921
  struct elf_lm32_link_hash_table *htab;
1922
  struct elf_lm32_link_hash_entry *eh;
1923
  struct elf_lm32_dyn_relocs *p;
1924
 
1925
  if (h->root.type == bfd_link_hash_indirect)
1926
    return TRUE;
1927
 
1928
  if (h->root.type == bfd_link_hash_warning)
1929
    /* When warning symbols are created, they **replace** the "real"
1930
       entry in the hash table, thus we never get to see the real
1931
       symbol in a hash traversal.  So look at it now.  */
1932
    h = (struct elf_link_hash_entry *) h->root.u.i.link;
1933
 
1934
  info = (struct bfd_link_info *) inf;
1935
  htab = lm32_elf_hash_table (info);
1936
  if (htab == NULL)
1937
    return FALSE;
1938
 
1939
  eh = (struct elf_lm32_link_hash_entry *) h;
1940
 
1941
  if (htab->root.dynamic_sections_created
1942
      && h->plt.refcount > 0)
1943
    {
1944
      /* Make sure this symbol is output as a dynamic symbol.
1945
         Undefined weak syms won't yet be marked as dynamic.  */
1946
      if (h->dynindx == -1
1947
          && !h->forced_local)
1948
        {
1949
          if (! bfd_elf_link_record_dynamic_symbol (info, h))
1950
            return FALSE;
1951
        }
1952
 
1953
      if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info->shared, h))
1954
        {
1955
          asection *s = htab->splt;
1956
 
1957
          /* If this is the first .plt entry, make room for the special
1958
             first entry.  */
1959
          if (s->size == 0)
1960
            s->size += PLT_ENTRY_SIZE;
1961
 
1962
          h->plt.offset = s->size;
1963
 
1964
          /* If this symbol is not defined in a regular file, and we are
1965
             not generating a shared library, then set the symbol to this
1966
             location in the .plt.  This is required to make function
1967
             pointers compare as equal between the normal executable and
1968
             the shared library.  */
1969
          if (! info->shared
1970
              && !h->def_regular)
1971
            {
1972
              h->root.u.def.section = s;
1973
              h->root.u.def.value = h->plt.offset;
1974
            }
1975
 
1976
          /* Make room for this entry.  */
1977
          s->size += PLT_ENTRY_SIZE;
1978
 
1979
          /* We also need to make an entry in the .got.plt section, which
1980
             will be placed in the .got section by the linker script.  */
1981
          htab->sgotplt->size += 4;
1982
 
1983
          /* We also need to make an entry in the .rel.plt section.  */
1984
          htab->srelplt->size += sizeof (Elf32_External_Rela);
1985
        }
1986
      else
1987
        {
1988
          h->plt.offset = (bfd_vma) -1;
1989
          h->needs_plt = 0;
1990
        }
1991
    }
1992
  else
1993
    {
1994
      h->plt.offset = (bfd_vma) -1;
1995
      h->needs_plt = 0;
1996
    }
1997
 
1998
  if (h->got.refcount > 0)
1999
    {
2000
      asection *s;
2001
      bfd_boolean dyn;
2002
 
2003
      /* Make sure this symbol is output as a dynamic symbol.
2004
         Undefined weak syms won't yet be marked as dynamic.  */
2005
      if (h->dynindx == -1
2006
          && !h->forced_local)
2007
        {
2008
          if (! bfd_elf_link_record_dynamic_symbol (info, h))
2009
            return FALSE;
2010
        }
2011
 
2012
      s = htab->sgot;
2013
 
2014
      h->got.offset = s->size;
2015
      s->size += 4;
2016
      dyn = htab->root.dynamic_sections_created;
2017
      if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h))
2018
        htab->srelgot->size += sizeof (Elf32_External_Rela);
2019
    }
2020
  else
2021
    h->got.offset = (bfd_vma) -1;
2022
 
2023
  if (eh->dyn_relocs == NULL)
2024
    return TRUE;
2025
 
2026
  /* In the shared -Bsymbolic case, discard space allocated for
2027
     dynamic pc-relative relocs against symbols which turn out to be
2028
     defined in regular objects.  For the normal shared case, discard
2029
     space for pc-relative relocs that have become local due to symbol
2030
     visibility changes.  */
2031
 
2032
  if (info->shared)
2033
    {
2034
      if (h->def_regular
2035
          && (h->forced_local
2036
              || info->symbolic))
2037
        {
2038
          struct elf_lm32_dyn_relocs **pp;
2039
 
2040
          for (pp = &eh->dyn_relocs; (p = *pp) != NULL;)
2041
            {
2042
              p->count -= p->pc_count;
2043
              p->pc_count = 0;
2044
              if (p->count == 0)
2045
                *pp = p->next;
2046
              else
2047
                pp = &p->next;
2048
            }
2049
        }
2050
 
2051
      /* Also discard relocs on undefined weak syms with non-default
2052
         visibility.  */
2053
      if (eh->dyn_relocs != NULL
2054
          && h->root.type == bfd_link_hash_undefweak)
2055
        {
2056
          if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2057
            eh->dyn_relocs = NULL;
2058
 
2059
          /* Make sure undefined weak symbols are output as a dynamic
2060
             symbol in PIEs.  */
2061
          else if (h->dynindx == -1
2062
                   && !h->forced_local)
2063
            {
2064
              if (! bfd_elf_link_record_dynamic_symbol (info, h))
2065
                return FALSE;
2066
            }
2067
        }
2068
    }
2069
  else
2070
    {
2071
      /* For the non-shared case, discard space for relocs against
2072
         symbols which turn out to need copy relocs or are not
2073
         dynamic.  */
2074
 
2075
      if (!h->non_got_ref
2076
          && ((h->def_dynamic
2077
               && !h->def_regular)
2078
              || (htab->root.dynamic_sections_created
2079
                  && (h->root.type == bfd_link_hash_undefweak
2080
                      || h->root.type == bfd_link_hash_undefined))))
2081
        {
2082
          /* Make sure this symbol is output as a dynamic symbol.
2083
             Undefined weak syms won't yet be marked as dynamic.  */
2084
          if (h->dynindx == -1
2085
              && !h->forced_local)
2086
            {
2087
              if (! bfd_elf_link_record_dynamic_symbol (info, h))
2088
                return FALSE;
2089
            }
2090
 
2091
          /* If that succeeded, we know we'll be keeping all the
2092
             relocs.  */
2093
          if (h->dynindx != -1)
2094
            goto keep;
2095
        }
2096
 
2097
      eh->dyn_relocs = NULL;
2098
 
2099
    keep: ;
2100
    }
2101
 
2102
  /* Finally, allocate space.  */
2103
  for (p = eh->dyn_relocs; p != NULL; p = p->next)
2104
    {
2105
      asection *sreloc = elf_section_data (p->sec)->sreloc;
2106
      sreloc->size += p->count * sizeof (Elf32_External_Rela);
2107
    }
2108
 
2109
  return TRUE;
2110
}
2111
 
2112
/* Find any dynamic relocs that apply to read-only sections.  */
2113
 
2114
static bfd_boolean
2115
readonly_dynrelocs (struct elf_link_hash_entry *h, void * inf)
2116
{
2117
  struct elf_lm32_link_hash_entry *eh;
2118
  struct elf_lm32_dyn_relocs *p;
2119
 
2120
  if (h->root.type == bfd_link_hash_warning)
2121
    h = (struct elf_link_hash_entry *) h->root.u.i.link;
2122
 
2123
  eh = (struct elf_lm32_link_hash_entry *) h;
2124
  for (p = eh->dyn_relocs; p != NULL; p = p->next)
2125
    {
2126
      asection *s = p->sec->output_section;
2127
 
2128
      if (s != NULL && (s->flags & SEC_READONLY) != 0)
2129
        {
2130
          struct bfd_link_info *info = (struct bfd_link_info *) inf;
2131
 
2132
          info->flags |= DF_TEXTREL;
2133
 
2134
          /* Not an error, just cut short the traversal.  */
2135
          return FALSE;
2136
        }
2137
    }
2138
  return TRUE;
2139
}
2140
 
2141
/* Set the sizes of the dynamic sections.  */
2142
 
2143
static bfd_boolean
2144
lm32_elf_size_dynamic_sections (bfd *output_bfd,
2145
                                struct bfd_link_info *info)
2146
{
2147
  struct elf_lm32_link_hash_table *htab;
2148
  bfd *dynobj;
2149
  asection *s;
2150
  bfd_boolean relocs;
2151
  bfd *ibfd;
2152
 
2153
  htab = lm32_elf_hash_table (info);
2154
  if (htab == NULL)
2155
    return FALSE;
2156
 
2157
  dynobj = htab->root.dynobj;
2158
  BFD_ASSERT (dynobj != NULL);
2159
 
2160
  if (htab->root.dynamic_sections_created)
2161
    {
2162
      /* Set the contents of the .interp section to the interpreter.  */
2163
      if (info->executable)
2164
        {
2165
          s = bfd_get_section_by_name (dynobj, ".interp");
2166
          BFD_ASSERT (s != NULL);
2167
          s->size = sizeof ELF_DYNAMIC_INTERPRETER;
2168
          s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2169
        }
2170
    }
2171
 
2172
  /* Set up .got offsets for local syms, and space for local dynamic
2173
     relocs.  */
2174
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2175
    {
2176
      bfd_signed_vma *local_got;
2177
      bfd_signed_vma *end_local_got;
2178
      bfd_size_type locsymcount;
2179
      Elf_Internal_Shdr *symtab_hdr;
2180
      asection *srel;
2181
 
2182
      if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2183
        continue;
2184
 
2185
      for (s = ibfd->sections; s != NULL; s = s->next)
2186
        {
2187
          struct elf_lm32_dyn_relocs *p;
2188
 
2189
          for (p = ((struct elf_lm32_dyn_relocs *)
2190
                    elf_section_data (s)->local_dynrel);
2191
               p != NULL;
2192
               p = p->next)
2193
            {
2194
              if (! bfd_is_abs_section (p->sec)
2195
                  && bfd_is_abs_section (p->sec->output_section))
2196
                {
2197
                  /* Input section has been discarded, either because
2198
                     it is a copy of a linkonce section or due to
2199
                     linker script /DISCARD/, so we'll be discarding
2200
                     the relocs too.  */
2201
                }
2202
              else if (p->count != 0)
2203
                {
2204
                  srel = elf_section_data (p->sec)->sreloc;
2205
                  srel->size += p->count * sizeof (Elf32_External_Rela);
2206
                  if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2207
                    info->flags |= DF_TEXTREL;
2208
                }
2209
            }
2210
        }
2211
 
2212
      local_got = elf_local_got_refcounts (ibfd);
2213
      if (!local_got)
2214
        continue;
2215
 
2216
      symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2217
      locsymcount = symtab_hdr->sh_info;
2218
      end_local_got = local_got + locsymcount;
2219
      s = htab->sgot;
2220
      srel = htab->srelgot;
2221
      for (; local_got < end_local_got; ++local_got)
2222
        {
2223
          if (*local_got > 0)
2224
            {
2225
              *local_got = s->size;
2226
              s->size += 4;
2227
              if (info->shared)
2228
                srel->size += sizeof (Elf32_External_Rela);
2229
            }
2230
          else
2231
            *local_got = (bfd_vma) -1;
2232
        }
2233
    }
2234
 
2235
  /* Allocate global sym .plt and .got entries, and space for global
2236
     sym dynamic relocs.  */
2237
  elf_link_hash_traverse (&htab->root, allocate_dynrelocs, info);
2238
 
2239
  /* We now have determined the sizes of the various dynamic sections.
2240
     Allocate memory for them.  */
2241
  relocs = FALSE;
2242
  for (s = dynobj->sections; s != NULL; s = s->next)
2243
    {
2244
      if ((s->flags & SEC_LINKER_CREATED) == 0)
2245
        continue;
2246
 
2247
      if (s == htab->splt
2248
          || s == htab->sgot
2249
          || s == htab->sgotplt
2250
          || s == htab->sdynbss)
2251
        {
2252
          /* Strip this section if we don't need it; see the
2253
             comment below.  */
2254
        }
2255
      else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
2256
        {
2257
          if (s->size != 0 && s != htab->srelplt)
2258
            relocs = TRUE;
2259
 
2260
          /* We use the reloc_count field as a counter if we need
2261
             to copy relocs into the output file.  */
2262
          s->reloc_count = 0;
2263
        }
2264
      else
2265
        /* It's not one of our sections, so don't allocate space.  */
2266
        continue;
2267
 
2268
      if (s->size == 0)
2269
        {
2270
          /* If we don't need this section, strip it from the
2271
             output file.  This is mostly to handle .rela.bss and
2272
             .rela.plt.  We must create both sections in
2273
             create_dynamic_sections, because they must be created
2274
             before the linker maps input sections to output
2275
             sections.  The linker does that before
2276
             adjust_dynamic_symbol is called, and it is that
2277
             function which decides whether anything needs to go
2278
             into these sections.  */
2279
          s->flags |= SEC_EXCLUDE;
2280
          continue;
2281
        }
2282
 
2283
      if ((s->flags & SEC_HAS_CONTENTS) == 0)
2284
        continue;
2285
 
2286
      /* Allocate memory for the section contents.  We use bfd_zalloc
2287
         here in case unused entries are not reclaimed before the
2288
         section's contents are written out.  This should not happen,
2289
         but this way if it does, we get a R_LM32_NONE reloc instead
2290
         of garbage.  */
2291
      s->contents = bfd_zalloc (dynobj, s->size);
2292
      if (s->contents == NULL)
2293
        return FALSE;
2294
    }
2295
 
2296
  if (htab->root.dynamic_sections_created)
2297
    {
2298
      /* Add some entries to the .dynamic section.  We fill in the
2299
         values later, in lm32_elf_finish_dynamic_sections, but we
2300
         must add the entries now so that we get the correct size for
2301
         the .dynamic section.  The DT_DEBUG entry is filled in by the
2302
         dynamic linker and used by the debugger.  */
2303
#define add_dynamic_entry(TAG, VAL) \
2304
  _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2305
 
2306
     if (info->executable)
2307
        {
2308
          if (! add_dynamic_entry (DT_DEBUG, 0))
2309
            return FALSE;
2310
        }
2311
 
2312
      if (htab->splt->size != 0)
2313
        {
2314
          if (! add_dynamic_entry (DT_PLTGOT, 0)
2315
              || ! add_dynamic_entry (DT_PLTRELSZ, 0)
2316
              || ! add_dynamic_entry (DT_PLTREL, DT_RELA)
2317
              || ! add_dynamic_entry (DT_JMPREL, 0))
2318
            return FALSE;
2319
        }
2320
 
2321
      if (relocs)
2322
        {
2323
          if (! add_dynamic_entry (DT_RELA, 0)
2324
              || ! add_dynamic_entry (DT_RELASZ, 0)
2325
              || ! add_dynamic_entry (DT_RELAENT,
2326
                                      sizeof (Elf32_External_Rela)))
2327
            return FALSE;
2328
 
2329
          /* If any dynamic relocs apply to a read-only section,
2330
             then we need a DT_TEXTREL entry.  */
2331
          if ((info->flags & DF_TEXTREL) == 0)
2332
            elf_link_hash_traverse (&htab->root, readonly_dynrelocs,
2333
                                    info);
2334
 
2335
          if ((info->flags & DF_TEXTREL) != 0)
2336
            {
2337
              if (! add_dynamic_entry (DT_TEXTREL, 0))
2338
                return FALSE;
2339
            }
2340
        }
2341
    }
2342
#undef add_dynamic_entry
2343
 
2344
  /* Allocate .rofixup section.  */
2345
  if (IS_FDPIC (output_bfd))
2346
    {
2347
      struct weak_symbol_list *list_start = NULL, *list_end = NULL;
2348
      int rgot_weak_count = 0;
2349
      int r32_count = 0;
2350
      int rgot_count = 0;
2351
      /* Look for deleted sections.  */
2352
      for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2353
        {
2354
          for (s = ibfd->sections; s != NULL; s = s->next)
2355
            {
2356
              if (s->reloc_count)
2357
                {
2358
                  /* Count relocs that need .rofixup entires.  */
2359
                  Elf_Internal_Rela *internal_relocs, *end;
2360
                  internal_relocs = elf_section_data (s)->relocs;
2361
                  if (internal_relocs == NULL)
2362
                    internal_relocs = (_bfd_elf_link_read_relocs (ibfd, s, NULL, NULL, FALSE));
2363
                  if (internal_relocs != NULL)
2364
                    {
2365
                      end = internal_relocs + s->reloc_count;
2366
                      while (internal_relocs < end)
2367
                        {
2368
                          Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2369
                          struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
2370
                          unsigned long r_symndx;
2371
                          struct elf_link_hash_entry *h;
2372
 
2373
                          symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2374
                          sym_hashes = elf_sym_hashes (ibfd);
2375
                          r_symndx = ELF32_R_SYM (internal_relocs->r_info);
2376
                          h = NULL;
2377
                          if (r_symndx < symtab_hdr->sh_info)
2378
                            {
2379
                            }
2380
                          else
2381
                            {
2382
                              h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2383
                              while (h->root.type == bfd_link_hash_indirect
2384
                                     || h->root.type == bfd_link_hash_warning)
2385
                                h = (struct elf_link_hash_entry *) h->root.u.i.link;
2386
                              }
2387
 
2388
                          /* Don't generate entries for weak symbols.  */
2389
                          if (!h || (h && h->root.type != bfd_link_hash_undefweak))
2390
                            {
2391
                              if (!elf_discarded_section (s) && !((bfd_get_section_flags (ibfd, s) & SEC_ALLOC) == 0))
2392
                                {
2393
                                  switch (ELF32_R_TYPE (internal_relocs->r_info))
2394
                                    {
2395
                                    case R_LM32_32:
2396
                                      r32_count++;
2397
                                      break;
2398
                                    case R_LM32_16_GOT:
2399
                                      rgot_count++;
2400
                                      break;
2401
                                    }
2402
                                }
2403
                            }
2404
                          else
2405
                            {
2406
                              struct weak_symbol_list *current, *new_entry;
2407
                              /* Is this symbol already in the list?  */
2408
                              for (current = list_start; current; current = current->next)
2409
                                {
2410
                                  if (!strcmp (current->name, h->root.root.string))
2411
                                    break;
2412
                                }
2413
                              if (!current && !elf_discarded_section (s) && (bfd_get_section_flags (ibfd, s) & SEC_ALLOC))
2414
                                {
2415
                                  /* Will this have an entry in the GOT.  */
2416
                                  if (ELF32_R_TYPE (internal_relocs->r_info) == R_LM32_16_GOT)
2417
                                    {
2418
                                      /* Create a new entry.  */
2419
                                      new_entry = malloc (sizeof (struct weak_symbol_list));
2420
                                      if (!new_entry)
2421
                                        return FALSE;
2422
                                      new_entry->name = h->root.root.string;
2423
                                      new_entry->next = NULL;
2424
                                      /* Add to list */
2425
                                      if (list_start == NULL)
2426
                                        {
2427
                                          list_start = new_entry;
2428
                                          list_end = new_entry;
2429
                                        }
2430
                                      else
2431
                                        {
2432
                                          list_end->next = new_entry;
2433
                                          list_end = new_entry;
2434
                                        }
2435
                                      /* Increase count of undefined weak symbols in the got.  */
2436
                                      rgot_weak_count++;
2437
                                    }
2438
                                }
2439
                            }
2440
                          internal_relocs++;
2441
                        }
2442
                    }
2443
                  else
2444
                    return FALSE;
2445
                }
2446
            }
2447
        }
2448
      /* Free list.  */
2449
      while (list_start)
2450
        {
2451
          list_end = list_start->next;
2452
          free (list_start);
2453
          list_start = list_end;
2454
        }
2455
 
2456
      /* Size sections.  */
2457
      lm32fdpic_fixup32_section (info)->size = (r32_count + (htab->sgot->size / 4) - rgot_weak_count + 1) * 4;
2458
      if (lm32fdpic_fixup32_section (info)->size == 0)
2459
        lm32fdpic_fixup32_section (info)->flags |= SEC_EXCLUDE;
2460
      else
2461
        {
2462
          lm32fdpic_fixup32_section (info)->contents =
2463
             bfd_zalloc (dynobj, lm32fdpic_fixup32_section (info)->size);
2464
          if (lm32fdpic_fixup32_section (info)->contents == NULL)
2465
            return FALSE;
2466
        }
2467
    }
2468
 
2469
  return TRUE;
2470
}
2471
 
2472
/* Create dynamic sections when linking against a dynamic object.  */
2473
 
2474
static bfd_boolean
2475
lm32_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2476
{
2477
  struct elf_lm32_link_hash_table *htab;
2478
  flagword flags, pltflags;
2479
  asection *s;
2480
  const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2481
  int ptralign = 2; /* 32bit */
2482
 
2483
  htab = lm32_elf_hash_table (info);
2484
  if (htab == NULL)
2485
    return FALSE;
2486
 
2487
  /* Make sure we have a GOT - For the case where we have a dynamic object
2488
     but none of the relocs in check_relocs */
2489
  if (! create_got_section (abfd, info))
2490
    return FALSE;
2491
  if (IS_FDPIC (abfd) && (htab->sfixup32 == NULL))
2492
    {
2493
      if (! create_rofixup_section (abfd, info))
2494
        return FALSE;
2495
    }
2496
 
2497
  /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
2498
     .rel[a].bss sections.  */
2499
  flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2500
           | SEC_LINKER_CREATED);
2501
 
2502
  pltflags = flags;
2503
  pltflags |= SEC_CODE;
2504
  if (bed->plt_not_loaded)
2505
    pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
2506
  if (bed->plt_readonly)
2507
    pltflags |= SEC_READONLY;
2508
 
2509
  s = bfd_make_section_with_flags (abfd, ".plt", pltflags);
2510
  htab->splt = s;
2511
  if (s == NULL
2512
      || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
2513
    return FALSE;
2514
 
2515
  if (bed->want_plt_sym)
2516
    {
2517
      /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
2518
         .plt section.  */
2519
      struct bfd_link_hash_entry *bh = NULL;
2520
      struct elf_link_hash_entry *h;
2521
 
2522
      if (! (_bfd_generic_link_add_one_symbol
2523
             (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s,
2524
              (bfd_vma) 0, NULL, FALSE,
2525
              get_elf_backend_data (abfd)->collect, &bh)))
2526
        return FALSE;
2527
      h = (struct elf_link_hash_entry *) bh;
2528
      h->def_regular = 1;
2529
      h->type = STT_OBJECT;
2530
      htab->root.hplt = h;
2531
 
2532
      if (info->shared
2533
          && ! bfd_elf_link_record_dynamic_symbol (info, h))
2534
        return FALSE;
2535
    }
2536
 
2537
  s = bfd_make_section_with_flags (abfd,
2538
                                   bed->default_use_rela_p ? ".rela.plt" : ".rel.plt",
2539
                                   flags | SEC_READONLY);
2540
  htab->srelplt = s;
2541
  if (s == NULL
2542
      || ! bfd_set_section_alignment (abfd, s, ptralign))
2543
    return FALSE;
2544
 
2545
  if (htab->sgot == NULL
2546
      && ! create_got_section (abfd, info))
2547
    return FALSE;
2548
 
2549
  {
2550
    const char *secname;
2551
    char *relname;
2552
    flagword secflags;
2553
    asection *sec;
2554
 
2555
    for (sec = abfd->sections; sec; sec = sec->next)
2556
      {
2557
        secflags = bfd_get_section_flags (abfd, sec);
2558
        if ((secflags & (SEC_DATA | SEC_LINKER_CREATED))
2559
            || ((secflags & SEC_HAS_CONTENTS) != SEC_HAS_CONTENTS))
2560
          continue;
2561
        secname = bfd_get_section_name (abfd, sec);
2562
        relname = bfd_malloc ((bfd_size_type) strlen (secname) + 6);
2563
        strcpy (relname, ".rela");
2564
        strcat (relname, secname);
2565
        if (bfd_get_section_by_name (abfd, secname))
2566
          continue;
2567
        s = bfd_make_section_with_flags (abfd, relname,
2568
                                         flags | SEC_READONLY);
2569
        if (s == NULL
2570
            || ! bfd_set_section_alignment (abfd, s, ptralign))
2571
          return FALSE;
2572
      }
2573
  }
2574
 
2575
  if (bed->want_dynbss)
2576
    {
2577
      /* The .dynbss section is a place to put symbols which are defined
2578
         by dynamic objects, are referenced by regular objects, and are
2579
         not functions.  We must allocate space for them in the process
2580
         image and use a R_*_COPY reloc to tell the dynamic linker to
2581
         initialize them at run time.  The linker script puts the .dynbss
2582
         section into the .bss section of the final image.  */
2583
      s = bfd_make_section_with_flags (abfd, ".dynbss",
2584
                                       SEC_ALLOC | SEC_LINKER_CREATED);
2585
      htab->sdynbss = s;
2586
      if (s == NULL)
2587
        return FALSE;
2588
      /* The .rel[a].bss section holds copy relocs.  This section is not
2589
         normally needed.  We need to create it here, though, so that the
2590
         linker will map it to an output section.  We can't just create it
2591
         only if we need it, because we will not know whether we need it
2592
         until we have seen all the input files, and the first time the
2593
         main linker code calls BFD after examining all the input files
2594
         (size_dynamic_sections) the input sections have already been
2595
         mapped to the output sections.  If the section turns out not to
2596
         be needed, we can discard it later.  We will never need this
2597
         section when generating a shared object, since they do not use
2598
         copy relocs.  */
2599
      if (! info->shared)
2600
        {
2601
          s = bfd_make_section_with_flags (abfd,
2602
                                           (bed->default_use_rela_p
2603
                                            ? ".rela.bss" : ".rel.bss"),
2604
                                           flags | SEC_READONLY);
2605
          htab->srelbss = s;
2606
          if (s == NULL
2607
              || ! bfd_set_section_alignment (abfd, s, ptralign))
2608
            return FALSE;
2609
        }
2610
    }
2611
 
2612
  return TRUE;
2613
}
2614
 
2615
/* Copy the extra info we tack onto an elf_link_hash_entry.  */
2616
 
2617
static void
2618
lm32_elf_copy_indirect_symbol (struct bfd_link_info *info,
2619
                               struct elf_link_hash_entry *dir,
2620
                               struct elf_link_hash_entry *ind)
2621
{
2622
  struct elf_lm32_link_hash_entry * edir;
2623
  struct elf_lm32_link_hash_entry * eind;
2624
 
2625
  edir = (struct elf_lm32_link_hash_entry *) dir;
2626
  eind = (struct elf_lm32_link_hash_entry *) ind;
2627
 
2628
  if (eind->dyn_relocs != NULL)
2629
    {
2630
      if (edir->dyn_relocs != NULL)
2631
        {
2632
          struct elf_lm32_dyn_relocs **pp;
2633
          struct elf_lm32_dyn_relocs *p;
2634
 
2635
          /* Add reloc counts against the indirect sym to the direct sym
2636
             list.  Merge any entries against the same section.  */
2637
          for (pp = &eind->dyn_relocs; (p = *pp) != NULL;)
2638
            {
2639
              struct elf_lm32_dyn_relocs *q;
2640
 
2641
              for (q = edir->dyn_relocs; q != NULL; q = q->next)
2642
                if (q->sec == p->sec)
2643
                  {
2644
                    q->pc_count += p->pc_count;
2645
                    q->count += p->count;
2646
                    *pp = p->next;
2647
                    break;
2648
                  }
2649
              if (q == NULL)
2650
                pp = &p->next;
2651
            }
2652
          *pp = edir->dyn_relocs;
2653
        }
2654
 
2655
      edir->dyn_relocs = eind->dyn_relocs;
2656
      eind->dyn_relocs = NULL;
2657
    }
2658
 
2659
  _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2660
}
2661
 
2662
static bfd_boolean
2663
lm32_elf_always_size_sections (bfd *output_bfd,
2664
                                 struct bfd_link_info *info)
2665
{
2666
  if (!info->relocatable)
2667
    {
2668
      struct elf_link_hash_entry *h;
2669
 
2670
      /* Force a PT_GNU_STACK segment to be created.  */
2671
      if (! elf_tdata (output_bfd)->stack_flags)
2672
        elf_tdata (output_bfd)->stack_flags = PF_R | PF_W | PF_X;
2673
 
2674
      /* Define __stacksize if it's not defined yet.  */
2675
      h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
2676
                                FALSE, FALSE, FALSE);
2677
      if (! h || h->root.type != bfd_link_hash_defined
2678
          || h->type != STT_OBJECT
2679
          || !h->def_regular)
2680
        {
2681
          struct bfd_link_hash_entry *bh = NULL;
2682
 
2683
          if (!(_bfd_generic_link_add_one_symbol
2684
                (info, output_bfd, "__stacksize",
2685
                 BSF_GLOBAL, bfd_abs_section_ptr, DEFAULT_STACK_SIZE,
2686
                 (const char *) NULL, FALSE,
2687
                 get_elf_backend_data (output_bfd)->collect, &bh)))
2688
            return FALSE;
2689
 
2690
          h = (struct elf_link_hash_entry *) bh;
2691
          h->def_regular = 1;
2692
          h->type = STT_OBJECT;
2693
          /* This one must NOT be hidden.  */
2694
        }
2695
    }
2696
 
2697
  return TRUE;
2698
}
2699
 
2700
static bfd_boolean
2701
lm32_elf_modify_segment_map (bfd *output_bfd,
2702
                             struct bfd_link_info *info)
2703
{
2704
  struct elf_segment_map *m;
2705
 
2706
  /* objcopy and strip preserve what's already there using elf32_lm32fdpic_copy_
2707
     private_bfd_data ().  */
2708
  if (! info)
2709
    return TRUE;
2710
 
2711
  for (m = elf_tdata (output_bfd)->segment_map; m != NULL; m = m->next)
2712
    if (m->p_type == PT_GNU_STACK)
2713
      break;
2714
 
2715
  if (m)
2716
    {
2717
      asection *sec = bfd_get_section_by_name (output_bfd, ".stack");
2718
      struct elf_link_hash_entry *h;
2719
 
2720
      if (sec)
2721
        {
2722
          /* Obtain the pointer to the __stacksize symbol.  */
2723
          h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
2724
                                    FALSE, FALSE, FALSE);
2725
          while (h->root.type == bfd_link_hash_indirect
2726
                 || h->root.type == bfd_link_hash_warning)
2727
            h = (struct elf_link_hash_entry *)h->root.u.i.link;
2728
          BFD_ASSERT (h->root.type == bfd_link_hash_defined);
2729
 
2730
          /* Set the section size from the symbol value.  We
2731
             intentionally ignore the symbol section.  */
2732
          if (h->root.type == bfd_link_hash_defined)
2733
            sec->size = h->root.u.def.value;
2734
          else
2735
            sec->size = DEFAULT_STACK_SIZE;
2736
 
2737
          /* Add the stack section to the PT_GNU_STACK segment,
2738
             such that its size and alignment requirements make it
2739
             to the segment.  */
2740
          m->sections[m->count] = sec;
2741
          m->count++;
2742
        }
2743
    }
2744
 
2745
  return TRUE;
2746
}
2747
 
2748
static bfd_boolean
2749
lm32_elf_modify_program_headers (bfd *output_bfd,
2750
                                       struct bfd_link_info *info)
2751
{
2752
  struct elf_obj_tdata *tdata = elf_tdata (output_bfd);
2753
  struct elf_segment_map *m;
2754
  Elf_Internal_Phdr *p;
2755
 
2756
  if (! info)
2757
    return TRUE;
2758
 
2759
  for (p = tdata->phdr, m = tdata->segment_map; m != NULL; m = m->next, p++)
2760
    if (m->p_type == PT_GNU_STACK)
2761
      break;
2762
 
2763
  if (m)
2764
    {
2765
      struct elf_link_hash_entry *h;
2766
 
2767
      /* Obtain the pointer to the __stacksize symbol.  */
2768
      h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
2769
                                FALSE, FALSE, FALSE);
2770
      if (h)
2771
        {
2772
          while (h->root.type == bfd_link_hash_indirect
2773
                 || h->root.type == bfd_link_hash_warning)
2774
            h = (struct elf_link_hash_entry *) h->root.u.i.link;
2775
          BFD_ASSERT (h->root.type == bfd_link_hash_defined);
2776
        }
2777
 
2778
      /* Set the header p_memsz from the symbol value.  We
2779
         intentionally ignore the symbol section.  */
2780
      if (h && h->root.type == bfd_link_hash_defined)
2781
        p->p_memsz = h->root.u.def.value;
2782
      else
2783
        p->p_memsz = DEFAULT_STACK_SIZE;
2784
 
2785
      p->p_align = 8;
2786
    }
2787
 
2788
  return TRUE;
2789
}
2790
 
2791
 
2792
static bfd_boolean
2793
lm32_elf_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
2794
{
2795
  if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2796
      || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2797
    return TRUE;
2798
 
2799
  BFD_ASSERT (!elf_flags_init (obfd)
2800
              || elf_elfheader (obfd)->e_flags == elf_elfheader (ibfd)->e_flags);
2801
 
2802
  elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
2803
  elf_flags_init (obfd) = TRUE;
2804
 
2805
  /* Copy object attributes.  */
2806
  _bfd_elf_copy_obj_attributes (ibfd, obfd);
2807
 
2808
  return TRUE;
2809
}
2810
 
2811
 
2812
static bfd_boolean
2813
lm32_elf_fdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
2814
{
2815
  unsigned i;
2816
 
2817
  if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2818
      || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2819
    return TRUE;
2820
 
2821
  if (! lm32_elf_copy_private_bfd_data (ibfd, obfd))
2822
    return FALSE;
2823
 
2824
  if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
2825
      || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
2826
    return TRUE;
2827
 
2828
  /* Copy the stack size.  */
2829
  for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
2830
    if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
2831
      {
2832
        Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
2833
 
2834
        for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
2835
          if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
2836
            {
2837
              memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
2838
 
2839
              /* Rewrite the phdrs, since we're only called after they were first written.  */
2840
              if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
2841
                            ->s->sizeof_ehdr, SEEK_SET) != 0
2842
                  || get_elf_backend_data (obfd)->s->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
2843
                                     elf_elfheader (obfd)->e_phnum) != 0)
2844
                return FALSE;
2845
              break;
2846
            }
2847
 
2848
        break;
2849
      }
2850
 
2851
  return TRUE;
2852
}
2853
 
2854
 
2855
#define ELF_ARCH                bfd_arch_lm32
2856
#define ELF_MACHINE_CODE        EM_LATTICEMICO32
2857
#define ELF_MAXPAGESIZE         0x1000
2858
 
2859
#define TARGET_BIG_SYM          bfd_elf32_lm32_vec
2860
#define TARGET_BIG_NAME         "elf32-lm32"
2861
 
2862
#define bfd_elf32_bfd_reloc_type_lookup         lm32_reloc_type_lookup
2863
#define bfd_elf32_bfd_reloc_name_lookup         lm32_reloc_name_lookup
2864
#define elf_info_to_howto                       lm32_info_to_howto_rela
2865
#define elf_info_to_howto_rel                   0
2866
#define elf_backend_rela_normal                 1
2867
#define elf_backend_object_p                    lm32_elf_object_p
2868
#define elf_backend_final_write_processing      lm32_elf_final_write_processing
2869
#define elf_backend_can_gc_sections             1
2870
#define elf_backend_can_refcount                1
2871
#define elf_backend_gc_mark_hook                lm32_elf_gc_mark_hook
2872
#define elf_backend_gc_sweep_hook               lm32_elf_gc_sweep_hook
2873
#define elf_backend_plt_readonly                1
2874
#define elf_backend_want_got_plt                1
2875
#define elf_backend_want_plt_sym                0
2876
#define elf_backend_got_header_size             12
2877
#define bfd_elf32_bfd_link_hash_table_create    lm32_elf_link_hash_table_create
2878
#define elf_backend_check_relocs                lm32_elf_check_relocs
2879
#define elf_backend_reloc_type_class            lm32_elf_reloc_type_class
2880
#define elf_backend_copy_indirect_symbol        lm32_elf_copy_indirect_symbol
2881
#define elf_backend_size_dynamic_sections       lm32_elf_size_dynamic_sections
2882
#define elf_backend_omit_section_dynsym         ((bfd_boolean (*) (bfd *, struct bfd_link_info *, asection *)) bfd_true)
2883
#define elf_backend_create_dynamic_sections     lm32_elf_create_dynamic_sections
2884
#define elf_backend_finish_dynamic_sections     lm32_elf_finish_dynamic_sections
2885
#define elf_backend_adjust_dynamic_symbol       lm32_elf_adjust_dynamic_symbol
2886
#define elf_backend_finish_dynamic_symbol       lm32_elf_finish_dynamic_symbol
2887
#define elf_backend_relocate_section            lm32_elf_relocate_section
2888
 
2889
#include "elf32-target.h"
2890
 
2891
#undef  ELF_MAXPAGESIZE
2892
#define ELF_MAXPAGESIZE         0x4000
2893
 
2894
 
2895
#undef  TARGET_BIG_SYM
2896
#define TARGET_BIG_SYM          bfd_elf32_lm32fdpic_vec
2897
#undef  TARGET_BIG_NAME
2898
#define TARGET_BIG_NAME         "elf32-lm32fdpic"
2899
#undef  elf32_bed
2900
#define elf32_bed               elf32_lm32fdpic_bed
2901
 
2902
#undef  elf_backend_always_size_sections
2903
#define elf_backend_always_size_sections        lm32_elf_always_size_sections
2904
#undef  elf_backend_modify_segment_map
2905
#define elf_backend_modify_segment_map          lm32_elf_modify_segment_map
2906
#undef  elf_backend_modify_program_headers
2907
#define elf_backend_modify_program_headers      lm32_elf_modify_program_headers
2908
#undef  bfd_elf32_bfd_copy_private_bfd_data
2909
#define bfd_elf32_bfd_copy_private_bfd_data     lm32_elf_fdpic_copy_private_bfd_data
2910
 
2911
#include "elf32-target.h"

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.