projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
*** empty log message ***
[deliverable/binutils-gdb.git] / bfd / elf32-mips.c
CommitLineData
252b5132 1/* MIPS-specific support for 32-bit ELF
7898deda 2 Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
be3ccd9c 3 Free Software Foundation, Inc.
252b5132
RH		 4
5 Most of the information added by Ian Lance Taylor, Cygnus Support,
6 <ian@cygnus.com>.
103186c6
MM		 7 N32/64 ABI support added by Mark Mitchell, CodeSourcery, LLC.
8 <mark@codesourcery.com>
f7cb7d68
UC		 9 Traditional MIPS targets support added by Koundinya.K, Dansk Data
10 Elektronik & Operations Research Group. <kk@ddeorg.soft.net>
252b5132
RH		 11
12This file is part of BFD, the Binary File Descriptor library.
13
14This program is free software; you can redistribute it and/or modify
15it under the terms of the GNU General Public License as published by
16the Free Software Foundation; either version 2 of the License, or
17(at your option) any later version.
18
19This program is distributed in the hope that it will be useful,
20but WITHOUT ANY WARRANTY; without even the implied warranty of
21MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22GNU General Public License for more details.
23
24You should have received a copy of the GNU General Public License
25along with this program; if not, write to the Free Software
26Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27
28/* This file handles MIPS ELF targets. SGI Irix 5 uses a slightly
29 different MIPS ELF from other targets. This matters when linking.
30 This file supports both, switching at runtime. */
31
32#include "bfd.h"
33#include "sysdep.h"
34#include "libbfd.h"
35#include "bfdlink.h"
36#include "genlink.h"
37#include "elf-bfd.h"
38#include "elf/mips.h"
39
40/* Get the ECOFF swapping routines. */
41#include "coff/sym.h"
42#include "coff/symconst.h"
43#include "coff/internal.h"
44#include "coff/ecoff.h"
45#include "coff/mips.h"
23e2c83b 46#define ECOFF_SIGNED_32
252b5132
RH		 47#include "ecoffswap.h"
48
7403cb63
MM		 49/* This structure is used to hold .got information when linking. It
50 is stored in the tdata field of the bfd_elf_section_data structure. */
51
38b1a46c
NC		 52struct mips_got_info
53{
7403cb63
MM		 54 /* The global symbol in the GOT with the lowest index in the dynamic
55 symbol table. */
56 struct elf_link_hash_entry *global_gotsym;
b3be9b46
RH		 57 /* The number of global .got entries. */
58 unsigned int global_gotno;
7403cb63
MM		 59 /* The number of local .got entries. */
60 unsigned int local_gotno;
61 /* The number of local .got entries we have used. */
62 unsigned int assigned_gotno;
63};
64
65/* The MIPS ELF linker needs additional information for each symbol in
66 the global hash table. */
67
38b1a46c
NC		 68struct mips_elf_link_hash_entry
69{
7403cb63
MM		 70 struct elf_link_hash_entry root;
71
72 /* External symbol information. */
73 EXTR esym;
74
a3c7651d 75 /* Number of R_MIPS_32, R_MIPS_REL32, or R_MIPS_64 relocs against
be3ccd9c 76 this symbol. */
a3c7651d 77 unsigned int possibly_dynamic_relocs;
7403cb63
MM		 78
79 /* The index of the first dynamic relocation (in the .rel.dyn
80 section) against this symbol. */
81 unsigned int min_dyn_reloc_index;
82
9117d219
NC		 83 /* We must not create a stub for a symbol that has relocations
84 related to taking the function's address, i.e. any but
85 R_MIPS_CALL*16 ones -- see "MIPS ABI Supplement, 3rd Edition",
86 p. 4-20. */
87 boolean no_fn_stub;
88
7403cb63
MM		 89 /* If there is a stub that 32 bit functions should use to call this
90 16 bit function, this points to the section containing the stub. */
91 asection *fn_stub;
92
93 /* Whether we need the fn_stub; this is set if this symbol appears
94 in any relocs other than a 16 bit call. */
95 boolean need_fn_stub;
96
97 /* If there is a stub that 16 bit functions should use to call this
98 32 bit function, this points to the section containing the stub. */
99 asection *call_stub;
100
101 /* This is like the call_stub field, but it is used if the function
102 being called returns a floating point value. */
103 asection *call_fp_stub;
104};
105
252b5132
RH		 106static bfd_reloc_status_type mips32_64bit_reloc
107 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
108static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
109 PARAMS ((bfd *, bfd_reloc_code_real_type));
c9b3cbf3
RH		 110static reloc_howto_type *mips_rtype_to_howto
111 PARAMS ((unsigned int));
252b5132
RH		 112static void mips_info_to_howto_rel
113 PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *));
3f830999
MM		 114static void mips_info_to_howto_rela
115 PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *));
252b5132
RH		 116static void bfd_mips_elf32_swap_gptab_in
117 PARAMS ((bfd *, const Elf32_External_gptab *, Elf32_gptab *));
118static void bfd_mips_elf32_swap_gptab_out
119 PARAMS ((bfd *, const Elf32_gptab *, Elf32_External_gptab *));
86033394 120#if 0
be3ccd9c 121static void bfd_mips_elf_swap_msym_in
c6142e5d 122 PARAMS ((bfd *, const Elf32_External_Msym *, Elf32_Internal_Msym *));
86033394 123#endif
c6142e5d
MM		 124static void bfd_mips_elf_swap_msym_out
125 PARAMS ((bfd *, const Elf32_Internal_Msym *, Elf32_External_Msym *));
252b5132 126static boolean mips_elf_sym_is_global PARAMS ((bfd *, asymbol *));
252b5132
RH		 127static boolean mips_elf_create_procedure_table
128 PARAMS ((PTR, bfd *, struct bfd_link_info *, asection *,
129 struct ecoff_debug_info *));
252b5132
RH		 130static INLINE int elf_mips_isa PARAMS ((flagword));
131static INLINE int elf_mips_mach PARAMS ((flagword));
103186c6 132static INLINE char* elf_mips_abi_name PARAMS ((bfd *));
252b5132
RH		 133static boolean mips_elf_is_local_label_name
134 PARAMS ((bfd *, const char *));
135static struct bfd_hash_entry *mips_elf_link_hash_newfunc
136 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
252b5132 137static int gptab_compare PARAMS ((const void *, const void *));
252b5132
RH		 138static bfd_reloc_status_type mips16_jump_reloc
139 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
140static bfd_reloc_status_type mips16_gprel_reloc
141 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
252b5132
RH		 142static boolean mips_elf_create_compact_rel_section
143 PARAMS ((bfd *, struct bfd_link_info *));
144static boolean mips_elf_create_got_section
145 PARAMS ((bfd *, struct bfd_link_info *));
252b5132
RH		 146static bfd_reloc_status_type mips_elf_final_gp
147 PARAMS ((bfd *, asymbol *, boolean, char **, bfd_vma *));
148static bfd_byte *elf32_mips_get_relocated_section_contents
149 PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *,
150 bfd_byte *, boolean, asymbol **));
be3ccd9c 151static asection *mips_elf_create_msym_section
c6142e5d 152 PARAMS ((bfd *));
be3ccd9c 153static void mips_elf_irix6_finish_dynamic_symbol
7403cb63
MM		 154 PARAMS ((bfd *, const char *, Elf_Internal_Sym *));
155static bfd_vma mips_elf_sign_extend PARAMS ((bfd_vma, int));
156static boolean mips_elf_overflow_p PARAMS ((bfd_vma, int));
157static bfd_vma mips_elf_high PARAMS ((bfd_vma));
158static bfd_vma mips_elf_higher PARAMS ((bfd_vma));
159static bfd_vma mips_elf_highest PARAMS ((bfd_vma));
160static bfd_vma mips_elf_global_got_index
161 PARAMS ((bfd *, struct elf_link_hash_entry *));
162static bfd_vma mips_elf_local_got_index
163 PARAMS ((bfd *, struct bfd_link_info *, bfd_vma));
164static bfd_vma mips_elf_got_offset_from_index
165 PARAMS ((bfd *, bfd *, bfd_vma));
be3ccd9c 166static boolean mips_elf_record_global_got_symbol
7403cb63
MM		 167 PARAMS ((struct elf_link_hash_entry *, struct bfd_link_info *,
168 struct mips_got_info *));
169static bfd_vma mips_elf_got_page
170 PARAMS ((bfd *, struct bfd_link_info *, bfd_vma, bfd_vma *));
bb2d6cd7 171static const Elf_Internal_Rela *mips_elf_next_relocation
be3ccd9c 172 PARAMS ((unsigned int, const Elf_Internal_Rela *,
bb2d6cd7 173 const Elf_Internal_Rela *));
7403cb63
MM		 174static bfd_reloc_status_type mips_elf_calculate_relocation
175 PARAMS ((bfd *, bfd *, asection *, struct bfd_link_info *,
103186c6 176 const Elf_Internal_Rela *, bfd_vma, reloc_howto_type *,
197b9ca0
MM		 177 Elf_Internal_Sym *, asection **, bfd_vma *, const char **,
178 boolean *));
7403cb63 179static bfd_vma mips_elf_obtain_contents
103186c6 180 PARAMS ((reloc_howto_type *, const Elf_Internal_Rela *, bfd *, bfd_byte *));
197b9ca0 181static boolean mips_elf_perform_relocation
be3ccd9c 182 PARAMS ((struct bfd_link_info *, reloc_howto_type *,
e53bd91b 183 const Elf_Internal_Rela *, bfd_vma,
197b9ca0 184 bfd *, asection *, bfd_byte *, boolean));
7403cb63 185static boolean mips_elf_assign_gp PARAMS ((bfd *, bfd_vma *));
be3ccd9c 186static boolean mips_elf_sort_hash_table_f
7403cb63 187 PARAMS ((struct mips_elf_link_hash_entry *, PTR));
be3ccd9c 188static boolean mips_elf_sort_hash_table
b3be9b46 189 PARAMS ((struct bfd_link_info *, unsigned long));
7403cb63 190static asection * mips_elf_got_section PARAMS ((bfd *));
be3ccd9c 191static struct mips_got_info *mips_elf_got_info
7403cb63 192 PARAMS ((bfd *, asection **));
6387d602 193static boolean mips_elf_local_relocation_p
b305ef96 194 PARAMS ((bfd *, const Elf_Internal_Rela *, asection **, boolean));
be3ccd9c 195static bfd_vma mips_elf_create_local_got_entry
7403cb63 196 PARAMS ((bfd *, struct mips_got_info *, asection *, bfd_vma));
be3ccd9c 197static bfd_vma mips_elf_got16_entry
b305ef96 198 PARAMS ((bfd *, struct bfd_link_info *, bfd_vma, boolean));
be3ccd9c 199static boolean mips_elf_create_dynamic_relocation
103186c6 200 PARAMS ((bfd *, struct bfd_link_info *, const Elf_Internal_Rela *,
7b1f1231 201 struct mips_elf_link_hash_entry *, asection *,
9117d219 202 bfd_vma, bfd_vma *, asection *));
be3ccd9c 203static void mips_elf_allocate_dynamic_relocations
103186c6 204 PARAMS ((bfd *, unsigned int));
be3ccd9c 205static boolean mips_elf_stub_section_p
197b9ca0 206 PARAMS ((bfd *, asection *));
adb76a3e
UC		 207static int sort_dynamic_relocs
208 PARAMS ((const void *, const void *));
252b5132 209
f7cb7d68 210extern const bfd_target bfd_elf32_tradbigmips_vec;
fdbafa10 211extern const bfd_target bfd_elf32_tradlittlemips_vec;
b3baf5d0 212#ifdef BFD64
fdbafa10
L		 213extern const bfd_target bfd_elf64_tradbigmips_vec;
214extern const bfd_target bfd_elf64_tradlittlemips_vec;
b3baf5d0 215#endif
f7cb7d68 216
a94a7c1c 217/* The level of IRIX compatibility we're striving for. */
252b5132 218
a94a7c1c
MM		 219typedef enum {
220 ict_none,
221 ict_irix5,
222 ict_irix6
223} irix_compat_t;
224
adb76a3e
UC		 225/* This will be used when we sort the dynamic relocation records. */
226static bfd *reldyn_sorting_bfd;
227
a94a7c1c
MM		 228/* Nonzero if ABFD is using the N32 ABI. */
229
230#define ABI_N32_P(abfd) \
231 ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI2) != 0)
232
fdbafa10 233/* Nonzero if ABFD is using the 64-bit ABI. */
5e38c3b8
MM		 234#define ABI_64_P(abfd) \
235 ((elf_elfheader (abfd)->e_ident[EI_CLASS] == ELFCLASS64) != 0)
236
f7cb7d68 237/* Depending on the target vector we generate some version of Irix
be3ccd9c 238 executables or "normal" MIPS ELF ABI executables. */
b3baf5d0 239#ifdef BFD64
a94a7c1c 240#define IRIX_COMPAT(abfd) \
fdbafa10
L		 241 (((abfd->xvec == &bfd_elf64_tradbigmips_vec) || \
242 (abfd->xvec == &bfd_elf64_tradlittlemips_vec) || \
243 (abfd->xvec == &bfd_elf32_tradbigmips_vec) || \
244 (abfd->xvec == &bfd_elf32_tradlittlemips_vec)) ? ict_none : \
f7cb7d68 245 ((ABI_N32_P (abfd) || ABI_64_P (abfd)) ? ict_irix6 : ict_irix5))
b3baf5d0
NC		 246#else
247#define IRIX_COMPAT(abfd) \
248 (((abfd->xvec == &bfd_elf32_tradbigmips_vec) || \
249 (abfd->xvec == &bfd_elf32_tradlittlemips_vec)) ? ict_none : \
250 ((ABI_N32_P (abfd) || ABI_64_P (abfd)) ? ict_irix6 : ict_irix5))
251#endif
a94a7c1c
MM		 252/* Whether we are trying to be compatible with IRIX at all. */
253
254#define SGI_COMPAT(abfd) \
255 (IRIX_COMPAT (abfd) != ict_none)
252b5132 256
c6142e5d
MM		 257/* The name of the msym section. */
258#define MIPS_ELF_MSYM_SECTION_NAME(abfd) ".msym"
259
303f629d
MM		 260/* The name of the srdata section. */
261#define MIPS_ELF_SRDATA_SECTION_NAME(abfd) ".srdata"
262
263/* The name of the options section. */
264#define MIPS_ELF_OPTIONS_SECTION_NAME(abfd) \
265 (IRIX_COMPAT (abfd) == ict_irix6 ? ".MIPS.options" : ".options")
266
267/* The name of the stub section. */
268#define MIPS_ELF_STUB_SECTION_NAME(abfd) \
269 (IRIX_COMPAT (abfd) == ict_irix6 ? ".MIPS.stubs" : ".stub")
270
103186c6
MM		 271/* The name of the dynamic relocation section. */
272#define MIPS_ELF_REL_DYN_SECTION_NAME(abfd) ".rel.dyn"
273
274/* The size of an external REL relocation. */
275#define MIPS_ELF_REL_SIZE(abfd) \
276 (get_elf_backend_data (abfd)->s->sizeof_rel)
277
278/* The size of an external dynamic table entry. */
279#define MIPS_ELF_DYN_SIZE(abfd) \
280 (get_elf_backend_data (abfd)->s->sizeof_dyn)
281
282/* The size of a GOT entry. */
283#define MIPS_ELF_GOT_SIZE(abfd) \
284 (get_elf_backend_data (abfd)->s->arch_size / 8)
285
286/* The size of a symbol-table entry. */
287#define MIPS_ELF_SYM_SIZE(abfd) \
288 (get_elf_backend_data (abfd)->s->sizeof_sym)
289
290/* The default alignment for sections, as a power of two. */
291#define MIPS_ELF_LOG_FILE_ALIGN(abfd) \
292 (get_elf_backend_data (abfd)->s->file_align == 8 ? 3 : 2)
293
294/* Get word-sized data. */
295#define MIPS_ELF_GET_WORD(abfd, ptr) \
296 (ABI_64_P (abfd) ? bfd_get_64 (abfd, ptr) : bfd_get_32 (abfd, ptr))
297
298/* Put out word-sized data. */
299#define MIPS_ELF_PUT_WORD(abfd, val, ptr) \
300 (ABI_64_P (abfd) \
301 ? bfd_put_64 (abfd, val, ptr) \
302 : bfd_put_32 (abfd, val, ptr))
303
304/* Add a dynamic symbol table-entry. */
9ebbd33e 305#ifdef BFD64
103186c6
MM		 306#define MIPS_ELF_ADD_DYNAMIC_ENTRY(info, tag, val) \
307 (ABI_64_P (elf_hash_table (info)->dynobj) \
308 ? bfd_elf64_add_dynamic_entry (info, tag, val) \
309 : bfd_elf32_add_dynamic_entry (info, tag, val))
9ebbd33e
MM		 310#else
311#define MIPS_ELF_ADD_DYNAMIC_ENTRY(info, tag, val) \
312 (ABI_64_P (elf_hash_table (info)->dynobj) \
e049a0de
ILT		 313 ? (abort (), false) \
314 : bfd_elf32_add_dynamic_entry (info, tag, val))
9ebbd33e 315#endif
103186c6 316
252b5132
RH		 317/* The number of local .got entries we reserve. */
318#define MIPS_RESERVED_GOTNO (2)
319
320/* Instructions which appear in a stub. For some reason the stub is
321 slightly different on an SGI system. */
322#define ELF_MIPS_GP_OFFSET(abfd) (SGI_COMPAT (abfd) ? 0x7ff0 : 0x8000)
103186c6
MM		 323#define STUB_LW(abfd) \
324 (SGI_COMPAT (abfd) \
325 ? (ABI_64_P (abfd) \
326 ? 0xdf998010 /* ld t9,0x8010(gp) */ \
327 : 0x8f998010) /* lw t9,0x8010(gp) */ \
f7cb7d68
UC		 328 : 0x8f998010) /* lw t9,0x8000(gp) */
329#define STUB_MOVE(abfd) \
330 (SGI_COMPAT (abfd) ? 0x03e07825 : 0x03e07821) /* move t7,ra */
331#define STUB_JALR 0x0320f809 /* jal t9 */
332#define STUB_LI16(abfd) \
333 (SGI_COMPAT (abfd) ? 0x34180000 : 0x24180000) /* ori t8,zero,0 */
252b5132
RH		 334#define MIPS_FUNCTION_STUB_SIZE (16)
335
336#if 0
337/* We no longer try to identify particular sections for the .dynsym
338 section. When we do, we wind up crashing if there are other random
339 sections with relocations. */
340
341/* Names of sections which appear in the .dynsym section in an Irix 5
342 executable. */
343
38b1a46c
NC		 344static const char * const mips_elf_dynsym_sec_names[] =
345{
252b5132
RH		 346 ".text",
347 ".init",
348 ".fini",
349 ".data",
350 ".rodata",
351 ".sdata",
352 ".sbss",
353 ".bss",
354 NULL
355};
356
357#define SIZEOF_MIPS_DYNSYM_SECNAMES \
358 (sizeof mips_elf_dynsym_sec_names / sizeof mips_elf_dynsym_sec_names[0])
359
360/* The number of entries in mips_elf_dynsym_sec_names which go in the
361 text segment. */
362
363#define MIPS_TEXT_DYNSYM_SECNO (3)
364
365#endif /* 0 */
366
367/* The names of the runtime procedure table symbols used on Irix 5. */
368
38b1a46c
NC		 369static const char * const mips_elf_dynsym_rtproc_names[] =
370{
252b5132
RH		 371 "_procedure_table",
372 "_procedure_string_table",
373 "_procedure_table_size",
374 NULL
375};
376
377/* These structures are used to generate the .compact_rel section on
378 Irix 5. */
379
38b1a46c
NC		 380typedef struct
381{
252b5132
RH		 382 unsigned long id1; /* Always one? */
383 unsigned long num; /* Number of compact relocation entries. */
384 unsigned long id2; /* Always two? */
385 unsigned long offset; /* The file offset of the first relocation. */
386 unsigned long reserved0; /* Zero? */
387 unsigned long reserved1; /* Zero? */
388} Elf32_compact_rel;
389
38b1a46c
NC		 390typedef struct
391{
252b5132
RH		 392 bfd_byte id1[4];
393 bfd_byte num[4];
394 bfd_byte id2[4];
395 bfd_byte offset[4];
396 bfd_byte reserved0[4];
397 bfd_byte reserved1[4];
398} Elf32_External_compact_rel;
399
38b1a46c
NC		 400typedef struct
401{
252b5132 402 unsigned int ctype : 1; /* 1: long 0: short format. See below. */
be3ccd9c 403 unsigned int rtype : 4; /* Relocation types. See below. */
252b5132
RH		 404 unsigned int dist2to : 8;
405 unsigned int relvaddr : 19; /* (VADDR - vaddr of the previous entry)/ 4 */
406 unsigned long konst; /* KONST field. See below. */
407 unsigned long vaddr; /* VADDR to be relocated. */
408} Elf32_crinfo;
409
38b1a46c
NC		 410typedef struct
411{
252b5132 412 unsigned int ctype : 1; /* 1: long 0: short format. See below. */
be3ccd9c 413 unsigned int rtype : 4; /* Relocation types. See below. */
252b5132
RH		 414 unsigned int dist2to : 8;
415 unsigned int relvaddr : 19; /* (VADDR - vaddr of the previous entry)/ 4 */
416 unsigned long konst; /* KONST field. See below. */
417} Elf32_crinfo2;
418
38b1a46c
NC		 419typedef struct
420{
252b5132
RH		 421 bfd_byte info[4];
422 bfd_byte konst[4];
423 bfd_byte vaddr[4];
424} Elf32_External_crinfo;
425
38b1a46c
NC		 426typedef struct
427{
252b5132
RH		 428 bfd_byte info[4];
429 bfd_byte konst[4];
430} Elf32_External_crinfo2;
431
432/* These are the constants used to swap the bitfields in a crinfo. */
433
434#define CRINFO_CTYPE (0x1)
435#define CRINFO_CTYPE_SH (31)
436#define CRINFO_RTYPE (0xf)
437#define CRINFO_RTYPE_SH (27)
438#define CRINFO_DIST2TO (0xff)
439#define CRINFO_DIST2TO_SH (19)
440#define CRINFO_RELVADDR (0x7ffff)
441#define CRINFO_RELVADDR_SH (0)
442
443/* A compact relocation info has long (3 words) or short (2 words)
444 formats. A short format doesn't have VADDR field and relvaddr
445 fields contains ((VADDR - vaddr of the previous entry) >> 2). */
446#define CRF_MIPS_LONG 1
447#define CRF_MIPS_SHORT 0
448
449/* There are 4 types of compact relocation at least. The value KONST
450 has different meaning for each type:
451
452 (type) (konst)
453 CT_MIPS_REL32 Address in data
454 CT_MIPS_WORD Address in word (XXX)
455 CT_MIPS_GPHI_LO GP - vaddr
456 CT_MIPS_JMPAD Address to jump
457 */
458
459#define CRT_MIPS_REL32 0xa
460#define CRT_MIPS_WORD 0xb
461#define CRT_MIPS_GPHI_LO 0xc
462#define CRT_MIPS_JMPAD 0xd
463
464#define mips_elf_set_cr_format(x,format) ((x).ctype = (format))
465#define mips_elf_set_cr_type(x,type) ((x).rtype = (type))
466#define mips_elf_set_cr_dist2to(x,v) ((x).dist2to = (v))
467#define mips_elf_set_cr_relvaddr(x,d) ((x).relvaddr = (d)<<2)
468
469static void bfd_elf32_swap_compact_rel_out
470 PARAMS ((bfd *, const Elf32_compact_rel *, Elf32_External_compact_rel *));
471static void bfd_elf32_swap_crinfo_out
472 PARAMS ((bfd *, const Elf32_crinfo *, Elf32_External_crinfo *));
473
474#define USE_REL 1 /* MIPS uses REL relocations instead of RELA */
475
3f830999
MM		 476/* In case we're on a 32-bit machine, construct a 64-bit "-1" value
477 from smaller values. Start with zero, widen, *then* decrement. */
478#define MINUS_ONE (((bfd_vma)0) - 1)
479
38b1a46c
NC		 480static reloc_howto_type elf_mips_howto_table[] =
481{
252b5132
RH		 482 /* No relocation. */
483 HOWTO (R_MIPS_NONE, /* type */
484 0, /* rightshift */
485 0, /* size (0 = byte, 1 = short, 2 = long) */
486 0, /* bitsize */
487 false, /* pc_relative */
488 0, /* bitpos */
489 complain_overflow_dont, /* complain_on_overflow */
490 bfd_elf_generic_reloc, /* special_function */
491 "R_MIPS_NONE", /* name */
492 false, /* partial_inplace */
493 0, /* src_mask */
494 0, /* dst_mask */
495 false), /* pcrel_offset */
496
497 /* 16 bit relocation. */
498 HOWTO (R_MIPS_16, /* type */
499 0, /* rightshift */
500 1, /* size (0 = byte, 1 = short, 2 = long) */
501 16, /* bitsize */
502 false, /* pc_relative */
503 0, /* bitpos */
504 complain_overflow_bitfield, /* complain_on_overflow */
505 bfd_elf_generic_reloc, /* special_function */
506 "R_MIPS_16", /* name */
507 true, /* partial_inplace */
508 0xffff, /* src_mask */
509 0xffff, /* dst_mask */
510 false), /* pcrel_offset */
511
512 /* 32 bit relocation. */
513 HOWTO (R_MIPS_32, /* type */
514 0, /* rightshift */
515 2, /* size (0 = byte, 1 = short, 2 = long) */
516 32, /* bitsize */
517 false, /* pc_relative */
518 0, /* bitpos */
519 complain_overflow_bitfield, /* complain_on_overflow */
520 bfd_elf_generic_reloc, /* special_function */
521 "R_MIPS_32", /* name */
522 true, /* partial_inplace */
523 0xffffffff, /* src_mask */
524 0xffffffff, /* dst_mask */
525 false), /* pcrel_offset */
526
527 /* 32 bit symbol relative relocation. */
528 HOWTO (R_MIPS_REL32, /* type */
529 0, /* rightshift */
530 2, /* size (0 = byte, 1 = short, 2 = long) */
531 32, /* bitsize */
532 false, /* pc_relative */
533 0, /* bitpos */
534 complain_overflow_bitfield, /* complain_on_overflow */
535 bfd_elf_generic_reloc, /* special_function */
536 "R_MIPS_REL32", /* name */
537 true, /* partial_inplace */
538 0xffffffff, /* src_mask */
539 0xffffffff, /* dst_mask */
540 false), /* pcrel_offset */
541
542 /* 26 bit branch address. */
543 HOWTO (R_MIPS_26, /* type */
544 2, /* rightshift */
545 2, /* size (0 = byte, 1 = short, 2 = long) */
546 26, /* bitsize */
547 false, /* pc_relative */
548 0, /* bitpos */
549 complain_overflow_dont, /* complain_on_overflow */
550 /* This needs complex overflow
551 detection, because the upper four
9117d219 552 bits must match the PC + 4. */
252b5132
RH		 553 bfd_elf_generic_reloc, /* special_function */
554 "R_MIPS_26", /* name */
555 true, /* partial_inplace */
556 0x3ffffff, /* src_mask */
557 0x3ffffff, /* dst_mask */
558 false), /* pcrel_offset */
559
560 /* High 16 bits of symbol value. */
561 HOWTO (R_MIPS_HI16, /* type */
562 0, /* rightshift */
563 2, /* size (0 = byte, 1 = short, 2 = long) */
564 16, /* bitsize */
565 false, /* pc_relative */
566 0, /* bitpos */
567 complain_overflow_dont, /* complain_on_overflow */
568 _bfd_mips_elf_hi16_reloc, /* special_function */
569 "R_MIPS_HI16", /* name */
570 true, /* partial_inplace */
571 0xffff, /* src_mask */
572 0xffff, /* dst_mask */
573 false), /* pcrel_offset */
574
575 /* Low 16 bits of symbol value. */
576 HOWTO (R_MIPS_LO16, /* type */
577 0, /* rightshift */
578 2, /* size (0 = byte, 1 = short, 2 = long) */
579 16, /* bitsize */
580 false, /* pc_relative */
581 0, /* bitpos */
582 complain_overflow_dont, /* complain_on_overflow */
583 _bfd_mips_elf_lo16_reloc, /* special_function */
584 "R_MIPS_LO16", /* name */
585 true, /* partial_inplace */
586 0xffff, /* src_mask */
587 0xffff, /* dst_mask */
588 false), /* pcrel_offset */
589
590 /* GP relative reference. */
591 HOWTO (R_MIPS_GPREL16, /* type */
592 0, /* rightshift */
593 2, /* size (0 = byte, 1 = short, 2 = long) */
594 16, /* bitsize */
595 false, /* pc_relative */
596 0, /* bitpos */
597 complain_overflow_signed, /* complain_on_overflow */
598 _bfd_mips_elf_gprel16_reloc, /* special_function */
599 "R_MIPS_GPREL16", /* name */
600 true, /* partial_inplace */
601 0xffff, /* src_mask */
602 0xffff, /* dst_mask */
603 false), /* pcrel_offset */
604
605 /* Reference to literal section. */
606 HOWTO (R_MIPS_LITERAL, /* type */
607 0, /* rightshift */
608 2, /* size (0 = byte, 1 = short, 2 = long) */
609 16, /* bitsize */
610 false, /* pc_relative */
611 0, /* bitpos */
612 complain_overflow_signed, /* complain_on_overflow */
613 _bfd_mips_elf_gprel16_reloc, /* special_function */
614 "R_MIPS_LITERAL", /* name */
615 true, /* partial_inplace */
616 0xffff, /* src_mask */
617 0xffff, /* dst_mask */
618 false), /* pcrel_offset */
619
620 /* Reference to global offset table. */
621 HOWTO (R_MIPS_GOT16, /* type */
622 0, /* rightshift */
623 2, /* size (0 = byte, 1 = short, 2 = long) */
624 16, /* bitsize */
625 false, /* pc_relative */
626 0, /* bitpos */
627 complain_overflow_signed, /* complain_on_overflow */
628 _bfd_mips_elf_got16_reloc, /* special_function */
629 "R_MIPS_GOT16", /* name */
630 false, /* partial_inplace */
b944b044 631 0xffff, /* src_mask */
252b5132
RH		 632 0xffff, /* dst_mask */
633 false), /* pcrel_offset */
634
635 /* 16 bit PC relative reference. */
636 HOWTO (R_MIPS_PC16, /* type */
637 0, /* rightshift */
638 2, /* size (0 = byte, 1 = short, 2 = long) */
639 16, /* bitsize */
640 true, /* pc_relative */
641 0, /* bitpos */
642 complain_overflow_signed, /* complain_on_overflow */
643 bfd_elf_generic_reloc, /* special_function */
644 "R_MIPS_PC16", /* name */
645 true, /* partial_inplace */
646 0xffff, /* src_mask */
647 0xffff, /* dst_mask */
bb2d6cd7 648 true), /* pcrel_offset */
252b5132
RH		 649
650 /* 16 bit call through global offset table. */
252b5132
RH		 651 HOWTO (R_MIPS_CALL16, /* type */
652 0, /* rightshift */
653 2, /* size (0 = byte, 1 = short, 2 = long) */
654 16, /* bitsize */
655 false, /* pc_relative */
656 0, /* bitpos */
657 complain_overflow_signed, /* complain_on_overflow */
658 bfd_elf_generic_reloc, /* special_function */
659 "R_MIPS_CALL16", /* name */
660 false, /* partial_inplace */
b944b044 661 0xffff, /* src_mask */
252b5132
RH		 662 0xffff, /* dst_mask */
663 false), /* pcrel_offset */
664
665 /* 32 bit GP relative reference. */
666 HOWTO (R_MIPS_GPREL32, /* type */
667 0, /* rightshift */
668 2, /* size (0 = byte, 1 = short, 2 = long) */
669 32, /* bitsize */
670 false, /* pc_relative */
671 0, /* bitpos */
672 complain_overflow_bitfield, /* complain_on_overflow */
673 _bfd_mips_elf_gprel32_reloc, /* special_function */
674 "R_MIPS_GPREL32", /* name */
675 true, /* partial_inplace */
676 0xffffffff, /* src_mask */
677 0xffffffff, /* dst_mask */
678 false), /* pcrel_offset */
679
680 /* The remaining relocs are defined on Irix 5, although they are
681 not defined by the ABI. */
5f771d47
ILT		 682 EMPTY_HOWTO (13),
683 EMPTY_HOWTO (14),
684 EMPTY_HOWTO (15),
252b5132
RH		 685
686 /* A 5 bit shift field. */
687 HOWTO (R_MIPS_SHIFT5, /* type */
688 0, /* rightshift */
689 2, /* size (0 = byte, 1 = short, 2 = long) */
690 5, /* bitsize */
691 false, /* pc_relative */
692 6, /* bitpos */
693 complain_overflow_bitfield, /* complain_on_overflow */
694 bfd_elf_generic_reloc, /* special_function */
695 "R_MIPS_SHIFT5", /* name */
696 true, /* partial_inplace */
697 0x000007c0, /* src_mask */
698 0x000007c0, /* dst_mask */
699 false), /* pcrel_offset */
700
701 /* A 6 bit shift field. */
702 /* FIXME: This is not handled correctly; a special function is
703 needed to put the most significant bit in the right place. */
704 HOWTO (R_MIPS_SHIFT6, /* type */
705 0, /* rightshift */
706 2, /* size (0 = byte, 1 = short, 2 = long) */
707 6, /* bitsize */
708 false, /* pc_relative */
709 6, /* bitpos */
710 complain_overflow_bitfield, /* complain_on_overflow */
711 bfd_elf_generic_reloc, /* special_function */
712 "R_MIPS_SHIFT6", /* name */
713 true, /* partial_inplace */
714 0x000007c4, /* src_mask */
715 0x000007c4, /* dst_mask */
716 false), /* pcrel_offset */
717
a3c7651d 718 /* A 64 bit relocation. */
252b5132
RH		 719 HOWTO (R_MIPS_64, /* type */
720 0, /* rightshift */
a3c7651d
MM		 721 4, /* size (0 = byte, 1 = short, 2 = long) */
722 64, /* bitsize */
252b5132
RH		 723 false, /* pc_relative */
724 0, /* bitpos */
725 complain_overflow_bitfield, /* complain_on_overflow */
726 mips32_64bit_reloc, /* special_function */
727 "R_MIPS_64", /* name */
728 true, /* partial_inplace */
a3c7651d
MM		 729 MINUS_ONE, /* src_mask */
730 MINUS_ONE, /* dst_mask */
252b5132
RH		 731 false), /* pcrel_offset */
732
733 /* Displacement in the global offset table. */
252b5132
RH		 734 HOWTO (R_MIPS_GOT_DISP, /* type */
735 0, /* rightshift */
736 2, /* size (0 = byte, 1 = short, 2 = long) */
737 16, /* bitsize */
738 false, /* pc_relative */
739 0, /* bitpos */
740 complain_overflow_bitfield, /* complain_on_overflow */
741 bfd_elf_generic_reloc, /* special_function */
742 "R_MIPS_GOT_DISP", /* name */
743 true, /* partial_inplace */
744 0x0000ffff, /* src_mask */
745 0x0000ffff, /* dst_mask */
746 false), /* pcrel_offset */
747
748 /* Displacement to page pointer in the global offset table. */
252b5132
RH		 749 HOWTO (R_MIPS_GOT_PAGE, /* type */
750 0, /* rightshift */
751 2, /* size (0 = byte, 1 = short, 2 = long) */
752 16, /* bitsize */
753 false, /* pc_relative */
754 0, /* bitpos */
755 complain_overflow_bitfield, /* complain_on_overflow */
756 bfd_elf_generic_reloc, /* special_function */
757 "R_MIPS_GOT_PAGE", /* name */
758 true, /* partial_inplace */
759 0x0000ffff, /* src_mask */
760 0x0000ffff, /* dst_mask */
761 false), /* pcrel_offset */
762
763 /* Offset from page pointer in the global offset table. */
252b5132
RH		 764 HOWTO (R_MIPS_GOT_OFST, /* type */
765 0, /* rightshift */
766 2, /* size (0 = byte, 1 = short, 2 = long) */
767 16, /* bitsize */
768 false, /* pc_relative */
769 0, /* bitpos */
770 complain_overflow_bitfield, /* complain_on_overflow */
771 bfd_elf_generic_reloc, /* special_function */
772 "R_MIPS_GOT_OFST", /* name */
773 true, /* partial_inplace */
774 0x0000ffff, /* src_mask */
775 0x0000ffff, /* dst_mask */
776 false), /* pcrel_offset */
777
778 /* High 16 bits of displacement in global offset table. */
252b5132
RH		 779 HOWTO (R_MIPS_GOT_HI16, /* type */
780 0, /* rightshift */
781 2, /* size (0 = byte, 1 = short, 2 = long) */
782 16, /* bitsize */
783 false, /* pc_relative */
784 0, /* bitpos */
785 complain_overflow_dont, /* complain_on_overflow */
786 bfd_elf_generic_reloc, /* special_function */
787 "R_MIPS_GOT_HI16", /* name */
788 true, /* partial_inplace */
789 0x0000ffff, /* src_mask */
790 0x0000ffff, /* dst_mask */
791 false), /* pcrel_offset */
792
793 /* Low 16 bits of displacement in global offset table. */
252b5132
RH		 794 HOWTO (R_MIPS_GOT_LO16, /* type */
795 0, /* rightshift */
796 2, /* size (0 = byte, 1 = short, 2 = long) */
797 16, /* bitsize */
798 false, /* pc_relative */
799 0, /* bitpos */
800 complain_overflow_dont, /* complain_on_overflow */
801 bfd_elf_generic_reloc, /* special_function */
802 "R_MIPS_GOT_LO16", /* name */
803 true, /* partial_inplace */
804 0x0000ffff, /* src_mask */
805 0x0000ffff, /* dst_mask */
806 false), /* pcrel_offset */
807
3f830999 808 /* 64 bit subtraction. Used in the N32 ABI. */
3f830999
MM		 809 HOWTO (R_MIPS_SUB, /* type */
810 0, /* rightshift */
811 4, /* size (0 = byte, 1 = short, 2 = long) */
812 64, /* bitsize */
813 false, /* pc_relative */
814 0, /* bitpos */
815 complain_overflow_bitfield, /* complain_on_overflow */
816 bfd_elf_generic_reloc, /* special_function */
817 "R_MIPS_SUB", /* name */
818 true, /* partial_inplace */
819 MINUS_ONE, /* src_mask */
820 MINUS_ONE, /* dst_mask */
821 false), /* pcrel_offset */
252b5132
RH		 822
823 /* Used to cause the linker to insert and delete instructions? */
5f771d47
ILT		 824 EMPTY_HOWTO (R_MIPS_INSERT_A),
825 EMPTY_HOWTO (R_MIPS_INSERT_B),
826 EMPTY_HOWTO (R_MIPS_DELETE),
252b5132 827
103186c6
MM		 828 /* Get the higher value of a 64 bit addend. */
829 HOWTO (R_MIPS_HIGHER, /* type */
830 0, /* rightshift */
831 2, /* size (0 = byte, 1 = short, 2 = long) */
832 16, /* bitsize */
833 false, /* pc_relative */
834 0, /* bitpos */
835 complain_overflow_dont, /* complain_on_overflow */
836 bfd_elf_generic_reloc, /* special_function */
837 "R_MIPS_HIGHER", /* name */
838 true, /* partial_inplace */
839 0, /* src_mask */
840 0xffff, /* dst_mask */
841 false), /* pcrel_offset */
842
843 /* Get the highest value of a 64 bit addend. */
844 HOWTO (R_MIPS_HIGHEST, /* type */
845 0, /* rightshift */
846 2, /* size (0 = byte, 1 = short, 2 = long) */
847 16, /* bitsize */
848 false, /* pc_relative */
849 0, /* bitpos */
850 complain_overflow_dont, /* complain_on_overflow */
851 bfd_elf_generic_reloc, /* special_function */
852 "R_MIPS_HIGHEST", /* name */
853 true, /* partial_inplace */
854 0, /* src_mask */
855 0xffff, /* dst_mask */
856 false), /* pcrel_offset */
252b5132
RH		 857
858 /* High 16 bits of displacement in global offset table. */
252b5132
RH		 859 HOWTO (R_MIPS_CALL_HI16, /* type */
860 0, /* rightshift */
861 2, /* size (0 = byte, 1 = short, 2 = long) */
862 16, /* bitsize */
863 false, /* pc_relative */
864 0, /* bitpos */
865 complain_overflow_dont, /* complain_on_overflow */
866 bfd_elf_generic_reloc, /* special_function */
867 "R_MIPS_CALL_HI16", /* name */
868 true, /* partial_inplace */
869 0x0000ffff, /* src_mask */
870 0x0000ffff, /* dst_mask */
871 false), /* pcrel_offset */
872
873 /* Low 16 bits of displacement in global offset table. */
252b5132
RH		 874 HOWTO (R_MIPS_CALL_LO16, /* type */
875 0, /* rightshift */
876 2, /* size (0 = byte, 1 = short, 2 = long) */
877 16, /* bitsize */
878 false, /* pc_relative */
879 0, /* bitpos */
880 complain_overflow_dont, /* complain_on_overflow */
881 bfd_elf_generic_reloc, /* special_function */
882 "R_MIPS_CALL_LO16", /* name */
883 true, /* partial_inplace */
884 0x0000ffff, /* src_mask */
885 0x0000ffff, /* dst_mask */
886 false), /* pcrel_offset */
887
7403cb63
MM		 888 /* Section displacement. */
889 HOWTO (R_MIPS_SCN_DISP, /* type */
890 0, /* rightshift */
891 2, /* size (0 = byte, 1 = short, 2 = long) */
892 32, /* bitsize */
893 false, /* pc_relative */
894 0, /* bitpos */
895 complain_overflow_dont, /* complain_on_overflow */
896 bfd_elf_generic_reloc, /* special_function */
897 "R_MIPS_SCN_DISP", /* name */
898 false, /* partial_inplace */
899 0xffffffff, /* src_mask */
900 0xffffffff, /* dst_mask */
901 false), /* pcrel_offset */
902
5f771d47
ILT		 903 EMPTY_HOWTO (R_MIPS_REL16),
904 EMPTY_HOWTO (R_MIPS_ADD_IMMEDIATE),
905 EMPTY_HOWTO (R_MIPS_PJUMP),
906 EMPTY_HOWTO (R_MIPS_RELGOT),
d2905643 907
be3ccd9c 908 /* Protected jump conversion. This is an optimization hint. No
d2905643
MM		 909 relocation is required for correctness. */
910 HOWTO (R_MIPS_JALR, /* type */
911 0, /* rightshift */
912 0, /* size (0 = byte, 1 = short, 2 = long) */
913 0, /* bitsize */
914 false, /* pc_relative */
915 0, /* bitpos */
916 complain_overflow_dont, /* complain_on_overflow */
917 bfd_elf_generic_reloc, /* special_function */
918 "R_MIPS_JALR", /* name */
919 false, /* partial_inplace */
920 0x00000000, /* src_mask */
921 0x00000000, /* dst_mask */
922 false), /* pcrel_offset */
252b5132
RH		 923};
924
925/* The reloc used for BFD_RELOC_CTOR when doing a 64 bit link. This
926 is a hack to make the linker think that we need 64 bit values. */
927static reloc_howto_type elf_mips_ctor64_howto =
928 HOWTO (R_MIPS_64, /* type */
929 0, /* rightshift */
930 4, /* size (0 = byte, 1 = short, 2 = long) */
931 32, /* bitsize */
932 false, /* pc_relative */
933 0, /* bitpos */
934 complain_overflow_signed, /* complain_on_overflow */
935 mips32_64bit_reloc, /* special_function */
936 "R_MIPS_64", /* name */
937 true, /* partial_inplace */
938 0xffffffff, /* src_mask */
939 0xffffffff, /* dst_mask */
940 false); /* pcrel_offset */
941
942/* The reloc used for the mips16 jump instruction. */
943static reloc_howto_type elf_mips16_jump_howto =
944 HOWTO (R_MIPS16_26, /* type */
945 2, /* rightshift */
946 2, /* size (0 = byte, 1 = short, 2 = long) */
947 26, /* bitsize */
948 false, /* pc_relative */
949 0, /* bitpos */
950 complain_overflow_dont, /* complain_on_overflow */
951 /* This needs complex overflow
952 detection, because the upper four
953 bits must match the PC. */
954 mips16_jump_reloc, /* special_function */
955 "R_MIPS16_26", /* name */
956 true, /* partial_inplace */
957 0x3ffffff, /* src_mask */
958 0x3ffffff, /* dst_mask */
959 false); /* pcrel_offset */
960
b7233c24 961/* The reloc used for the mips16 gprel instruction. */
252b5132
RH		 962static reloc_howto_type elf_mips16_gprel_howto =
963 HOWTO (R_MIPS16_GPREL, /* type */
964 0, /* rightshift */
965 2, /* size (0 = byte, 1 = short, 2 = long) */
966 16, /* bitsize */
967 false, /* pc_relative */
968 0, /* bitpos */
969 complain_overflow_signed, /* complain_on_overflow */
970 mips16_gprel_reloc, /* special_function */
971 "R_MIPS16_GPREL", /* name */
972 true, /* partial_inplace */
b7233c24
MM		 973 0x07ff001f, /* src_mask */
974 0x07ff001f, /* dst_mask */
252b5132
RH		 975 false); /* pcrel_offset */
976
bb2d6cd7
GK		 977/* GNU extensions for embedded-pic. */
978/* High 16 bits of symbol value, pc-relative. */
979static reloc_howto_type elf_mips_gnu_rel_hi16 =
980 HOWTO (R_MIPS_GNU_REL_HI16, /* type */
981 0, /* rightshift */
982 2, /* size (0 = byte, 1 = short, 2 = long) */
983 16, /* bitsize */
984 true, /* pc_relative */
985 0, /* bitpos */
986 complain_overflow_dont, /* complain_on_overflow */
987 _bfd_mips_elf_hi16_reloc, /* special_function */
988 "R_MIPS_GNU_REL_HI16", /* name */
989 true, /* partial_inplace */
990 0xffff, /* src_mask */
991 0xffff, /* dst_mask */
992 true); /* pcrel_offset */
993
994/* Low 16 bits of symbol value, pc-relative. */
995static reloc_howto_type elf_mips_gnu_rel_lo16 =
996 HOWTO (R_MIPS_GNU_REL_LO16, /* type */
997 0, /* rightshift */
998 2, /* size (0 = byte, 1 = short, 2 = long) */
999 16, /* bitsize */
1000 true, /* pc_relative */
1001 0, /* bitpos */
1002 complain_overflow_dont, /* complain_on_overflow */
1003 _bfd_mips_elf_lo16_reloc, /* special_function */
1004 "R_MIPS_GNU_REL_LO16", /* name */
1005 true, /* partial_inplace */
1006 0xffff, /* src_mask */
1007 0xffff, /* dst_mask */
1008 true); /* pcrel_offset */
1009
1010/* 16 bit offset for pc-relative branches. */
1011static reloc_howto_type elf_mips_gnu_rel16_s2 =
1012 HOWTO (R_MIPS_GNU_REL16_S2, /* type */
1013 2, /* rightshift */
1014 2, /* size (0 = byte, 1 = short, 2 = long) */
1015 16, /* bitsize */
1016 true, /* pc_relative */
1017 0, /* bitpos */
1018 complain_overflow_signed, /* complain_on_overflow */
1019 bfd_elf_generic_reloc, /* special_function */
1020 "R_MIPS_GNU_REL16_S2", /* name */
1021 true, /* partial_inplace */
1022 0xffff, /* src_mask */
1023 0xffff, /* dst_mask */
1024 true); /* pcrel_offset */
1025
1026/* 64 bit pc-relative. */
1027static reloc_howto_type elf_mips_gnu_pcrel64 =
1028 HOWTO (R_MIPS_PC64, /* type */
1029 0, /* rightshift */
1030 4, /* size (0 = byte, 1 = short, 2 = long) */
1031 64, /* bitsize */
1032 true, /* pc_relative */
1033 0, /* bitpos */
1034 complain_overflow_signed, /* complain_on_overflow */
1035 bfd_elf_generic_reloc, /* special_function */
1036 "R_MIPS_PC64", /* name */
1037 true, /* partial_inplace */
1038 MINUS_ONE, /* src_mask */
1039 MINUS_ONE, /* dst_mask */
1040 true); /* pcrel_offset */
1041
1042/* 32 bit pc-relative. */
1043static reloc_howto_type elf_mips_gnu_pcrel32 =
1044 HOWTO (R_MIPS_PC32, /* type */
1045 0, /* rightshift */
1046 2, /* size (0 = byte, 1 = short, 2 = long) */
1047 32, /* bitsize */
1048 true, /* pc_relative */
1049 0, /* bitpos */
1050 complain_overflow_signed, /* complain_on_overflow */
1051 bfd_elf_generic_reloc, /* special_function */
1052 "R_MIPS_PC32", /* name */
1053 true, /* partial_inplace */
1054 0xffffffff, /* src_mask */
1055 0xffffffff, /* dst_mask */
1056 true); /* pcrel_offset */
1057
252b5132
RH		 1058/* GNU extension to record C++ vtable hierarchy */
1059static reloc_howto_type elf_mips_gnu_vtinherit_howto =
1060 HOWTO (R_MIPS_GNU_VTINHERIT, /* type */
1061 0, /* rightshift */
1062 2, /* size (0 = byte, 1 = short, 2 = long) */
1063 0, /* bitsize */
1064 false, /* pc_relative */
1065 0, /* bitpos */
1066 complain_overflow_dont, /* complain_on_overflow */
1067 NULL, /* special_function */
1068 "R_MIPS_GNU_VTINHERIT", /* name */
1069 false, /* partial_inplace */
1070 0, /* src_mask */
1071 0, /* dst_mask */
1072 false); /* pcrel_offset */
1073
1074/* GNU extension to record C++ vtable member usage */
1075static reloc_howto_type elf_mips_gnu_vtentry_howto =
1076 HOWTO (R_MIPS_GNU_VTENTRY, /* type */
1077 0, /* rightshift */
1078 2, /* size (0 = byte, 1 = short, 2 = long) */
1079 0, /* bitsize */
1080 false, /* pc_relative */
1081 0, /* bitpos */
1082 complain_overflow_dont, /* complain_on_overflow */
1083 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
1084 "R_MIPS_GNU_VTENTRY", /* name */
1085 false, /* partial_inplace */
1086 0, /* src_mask */
1087 0, /* dst_mask */
1088 false); /* pcrel_offset */
1089
1090/* Do a R_MIPS_HI16 relocation. This has to be done in combination
1091 with a R_MIPS_LO16 reloc, because there is a carry from the LO16 to
1092 the HI16. Here we just save the information we need; we do the
1093 actual relocation when we see the LO16. MIPS ELF requires that the
1094 LO16 immediately follow the HI16. As a GNU extension, we permit an
1095 arbitrary number of HI16 relocs to be associated with a single LO16
1096 reloc. This extension permits gcc to output the HI and LO relocs
1097 itself. */
1098
38b1a46c
NC		 1099struct mips_hi16
1100{
252b5132
RH		 1101 struct mips_hi16 *next;
1102 bfd_byte *addr;
1103 bfd_vma addend;
1104};
1105
1106/* FIXME: This should not be a static variable. */
1107
1108static struct mips_hi16 *mips_hi16_list;
1109
1110bfd_reloc_status_type
1111_bfd_mips_elf_hi16_reloc (abfd,
1112 reloc_entry,
1113 symbol,
1114 data,
1115 input_section,
1116 output_bfd,
1117 error_message)
5f771d47 1118 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 1119 arelent *reloc_entry;
1120 asymbol *symbol;
1121 PTR data;
1122 asection *input_section;
1123 bfd *output_bfd;
1124 char **error_message;
1125{
1126 bfd_reloc_status_type ret;
1127 bfd_vma relocation;
1128 struct mips_hi16 *n;
1129
1130 /* If we're relocating, and this an external symbol, we don't want
1131 to change anything. */
1132 if (output_bfd != (bfd *) NULL
1133 && (symbol->flags & BSF_SECTION_SYM) == 0
1134 && reloc_entry->addend == 0)
1135 {
1136 reloc_entry->address += input_section->output_offset;
1137 return bfd_reloc_ok;
1138 }
1139
1140 ret = bfd_reloc_ok;
1141
1142 if (strcmp (bfd_asymbol_name (symbol), "_gp_disp") == 0)
1143 {
1144 boolean relocateable;
1145 bfd_vma gp;
1146
1147 if (ret == bfd_reloc_undefined)
1148 abort ();
1149
1150 if (output_bfd != NULL)
1151 relocateable = true;
1152 else
1153 {
1154 relocateable = false;
1155 output_bfd = symbol->section->output_section->owner;
1156 }
1157
1158 ret = mips_elf_final_gp (output_bfd, symbol, relocateable,
1159 error_message, &gp);
1160 if (ret != bfd_reloc_ok)
1161 return ret;
1162
1163 relocation = gp - reloc_entry->address;
1164 }
1165 else
1166 {
1167 if (bfd_is_und_section (symbol->section)
1168 && output_bfd == (bfd *) NULL)
1169 ret = bfd_reloc_undefined;
1170
1171 if (bfd_is_com_section (symbol->section))
1172 relocation = 0;
1173 else
1174 relocation = symbol->value;
1175 }
1176
1177 relocation += symbol->section->output_section->vma;
1178 relocation += symbol->section->output_offset;
1179 relocation += reloc_entry->addend;
1180
1181 if (reloc_entry->address > input_section->_cooked_size)
1182 return bfd_reloc_outofrange;
1183
1184 /* Save the information, and let LO16 do the actual relocation. */
1185 n = (struct mips_hi16 *) bfd_malloc (sizeof *n);
1186 if (n == NULL)
1187 return bfd_reloc_outofrange;
1188 n->addr = (bfd_byte *) data + reloc_entry->address;
1189 n->addend = relocation;
1190 n->next = mips_hi16_list;
1191 mips_hi16_list = n;
1192
1193 if (output_bfd != (bfd *) NULL)
1194 reloc_entry->address += input_section->output_offset;
1195
1196 return ret;
1197}
1198
1199/* Do a R_MIPS_LO16 relocation. This is a straightforward 16 bit
1200 inplace relocation; this function exists in order to do the
1201 R_MIPS_HI16 relocation described above. */
1202
1203bfd_reloc_status_type
1204_bfd_mips_elf_lo16_reloc (abfd,
1205 reloc_entry,
1206 symbol,
1207 data,
1208 input_section,
1209 output_bfd,
1210 error_message)
1211 bfd *abfd;
1212 arelent *reloc_entry;
1213 asymbol *symbol;
1214 PTR data;
1215 asection *input_section;
1216 bfd *output_bfd;
1217 char **error_message;
1218{
1219 arelent gp_disp_relent;
1220
1221 if (mips_hi16_list != NULL)
1222 {
1223 struct mips_hi16 *l;
1224
1225 l = mips_hi16_list;
1226 while (l != NULL)
1227 {
1228 unsigned long insn;
1229 unsigned long val;
1230 unsigned long vallo;
1231 struct mips_hi16 *next;
1232
1233 /* Do the HI16 relocation. Note that we actually don't need
1234 to know anything about the LO16 itself, except where to
1235 find the low 16 bits of the addend needed by the LO16. */
1236 insn = bfd_get_32 (abfd, l->addr);
1237 vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address)
1238 & 0xffff);
1239 val = ((insn & 0xffff) << 16) + vallo;
1240 val += l->addend;
1241
1242 /* The low order 16 bits are always treated as a signed
1243 value. Therefore, a negative value in the low order bits
1244 requires an adjustment in the high order bits. We need
1245 to make this adjustment in two ways: once for the bits we
1246 took from the data, and once for the bits we are putting
1247 back in to the data. */
1248 if ((vallo & 0x8000) != 0)
1249 val -= 0x10000;
1250 if ((val & 0x8000) != 0)
1251 val += 0x10000;
1252
be3ccd9c 1253 insn = (insn & ~0xffff) | ((val >> 16) & 0xffff);
252b5132
RH		 1254 bfd_put_32 (abfd, insn, l->addr);
1255
1256 if (strcmp (bfd_asymbol_name (symbol), "_gp_disp") == 0)
1257 {
1258 gp_disp_relent = *reloc_entry;
1259 reloc_entry = &gp_disp_relent;
1260 reloc_entry->addend = l->addend;
1261 }
1262
1263 next = l->next;
1264 free (l);
1265 l = next;
1266 }
1267
1268 mips_hi16_list = NULL;
1269 }
1270 else if (strcmp (bfd_asymbol_name (symbol), "_gp_disp") == 0)
1271 {
1272 bfd_reloc_status_type ret;
1273 bfd_vma gp, relocation;
1274
1275 /* FIXME: Does this case ever occur? */
1276
1277 ret = mips_elf_final_gp (output_bfd, symbol, true, error_message, &gp);
1278 if (ret != bfd_reloc_ok)
1279 return ret;
1280
1281 relocation = gp - reloc_entry->address;
1282 relocation += symbol->section->output_section->vma;
1283 relocation += symbol->section->output_offset;
1284 relocation += reloc_entry->addend;
1285
1286 if (reloc_entry->address > input_section->_cooked_size)
1287 return bfd_reloc_outofrange;
1288
1289 gp_disp_relent = *reloc_entry;
1290 reloc_entry = &gp_disp_relent;
1291 reloc_entry->addend = relocation - 4;
1292 }
1293
1294 /* Now do the LO16 reloc in the usual way. */
1295 return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1296 input_section, output_bfd, error_message);
1297}
1298
1299/* Do a R_MIPS_GOT16 reloc. This is a reloc against the global offset
1300 table used for PIC code. If the symbol is an external symbol, the
1301 instruction is modified to contain the offset of the appropriate
1302 entry in the global offset table. If the symbol is a section
1303 symbol, the next reloc is a R_MIPS_LO16 reloc. The two 16 bit
1304 addends are combined to form the real addend against the section
1305 symbol; the GOT16 is modified to contain the offset of an entry in
1306 the global offset table, and the LO16 is modified to offset it
1307 appropriately. Thus an offset larger than 16 bits requires a
1308 modified value in the global offset table.
1309
1310 This implementation suffices for the assembler, but the linker does
1311 not yet know how to create global offset tables. */
1312
1313bfd_reloc_status_type
1314_bfd_mips_elf_got16_reloc (abfd,
1315 reloc_entry,
1316 symbol,
1317 data,
1318 input_section,
1319 output_bfd,
1320 error_message)
1321 bfd *abfd;
1322 arelent *reloc_entry;
1323 asymbol *symbol;
1324 PTR data;
1325 asection *input_section;
1326 bfd *output_bfd;
1327 char **error_message;
1328{
1329 /* If we're relocating, and this an external symbol, we don't want
1330 to change anything. */
1331 if (output_bfd != (bfd *) NULL
1332 && (symbol->flags & BSF_SECTION_SYM) == 0
1333 && reloc_entry->addend == 0)
1334 {
1335 reloc_entry->address += input_section->output_offset;
1336 return bfd_reloc_ok;
1337 }
1338
1339 /* If we're relocating, and this is a local symbol, we can handle it
1340 just like HI16. */
1341 if (output_bfd != (bfd *) NULL
1342 && (symbol->flags & BSF_SECTION_SYM) != 0)
1343 return _bfd_mips_elf_hi16_reloc (abfd, reloc_entry, symbol, data,
1344 input_section, output_bfd, error_message);
1345
1346 abort ();
1347}
1348
7403cb63
MM		 1349/* Set the GP value for OUTPUT_BFD. Returns false if this is a
1350 dangerous relocation. */
1351
1352static boolean
1353mips_elf_assign_gp (output_bfd, pgp)
1354 bfd *output_bfd;
1355 bfd_vma *pgp;
1356{
1357 unsigned int count;
1358 asymbol **sym;
1359 unsigned int i;
1360
1361 /* If we've already figured out what GP will be, just return it. */
1362 *pgp = _bfd_get_gp_value (output_bfd);
1363 if (*pgp)
1364 return true;
1365
1366 count = bfd_get_symcount (output_bfd);
1367 sym = bfd_get_outsymbols (output_bfd);
1368
1369 /* The linker script will have created a symbol named `_gp' with the
1370 appropriate value. */
1371 if (sym == (asymbol **) NULL)
1372 i = count;
1373 else
1374 {
1375 for (i = 0; i < count; i++, sym++)
1376 {
1377 register CONST char *name;
1378
1379 name = bfd_asymbol_name (*sym);
1380 if (*name == '_' && strcmp (name, "_gp") == 0)
1381 {
1382 *pgp = bfd_asymbol_value (*sym);
1383 _bfd_set_gp_value (output_bfd, *pgp);
1384 break;
1385 }
1386 }
1387 }
1388
1389 if (i >= count)
1390 {
1391 /* Only get the error once. */
1392 *pgp = 4;
1393 _bfd_set_gp_value (output_bfd, *pgp);
1394 return false;
1395 }
1396
1397 return true;
1398}
1399
252b5132
RH		 1400/* We have to figure out the gp value, so that we can adjust the
1401 symbol value correctly. We look up the symbol _gp in the output
1402 BFD. If we can't find it, we're stuck. We cache it in the ELF
1403 target data. We don't need to adjust the symbol value for an
1404 external symbol if we are producing relocateable output. */
1405
1406static bfd_reloc_status_type
1407mips_elf_final_gp (output_bfd, symbol, relocateable, error_message, pgp)
1408 bfd *output_bfd;
1409 asymbol *symbol;
1410 boolean relocateable;
1411 char **error_message;
1412 bfd_vma *pgp;
1413{
1414 if (bfd_is_und_section (symbol->section)
1415 && ! relocateable)
1416 {
1417 *pgp = 0;
1418 return bfd_reloc_undefined;
1419 }
1420
1421 *pgp = _bfd_get_gp_value (output_bfd);
1422 if (*pgp == 0
1423 && (! relocateable
1424 || (symbol->flags & BSF_SECTION_SYM) != 0))
1425 {
1426 if (relocateable)
1427 {
1428 /* Make up a value. */
1429 *pgp = symbol->section->output_section->vma + 0x4000;
1430 _bfd_set_gp_value (output_bfd, *pgp);
1431 }
7403cb63 1432 else if (!mips_elf_assign_gp (output_bfd, pgp))
252b5132 1433 {
7403cb63
MM		 1434 *error_message =
1435 (char *) _("GP relative relocation when _gp not defined");
1436 return bfd_reloc_dangerous;
252b5132
RH		 1437 }
1438 }
1439
1440 return bfd_reloc_ok;
1441}
1442
1443/* Do a R_MIPS_GPREL16 relocation. This is a 16 bit value which must
1444 become the offset from the gp register. This function also handles
1445 R_MIPS_LITERAL relocations, although those can be handled more
1446 cleverly because the entries in the .lit8 and .lit4 sections can be
1447 merged. */
1448
1449static bfd_reloc_status_type gprel16_with_gp PARAMS ((bfd *, asymbol *,
1450 arelent *, asection *,
1451 boolean, PTR, bfd_vma));
1452
1453bfd_reloc_status_type
1454_bfd_mips_elf_gprel16_reloc (abfd, reloc_entry, symbol, data, input_section,
1455 output_bfd, error_message)
1456 bfd *abfd;
1457 arelent *reloc_entry;
1458 asymbol *symbol;
1459 PTR data;
1460 asection *input_section;
1461 bfd *output_bfd;
1462 char **error_message;
1463{
1464 boolean relocateable;
1465 bfd_reloc_status_type ret;
1466 bfd_vma gp;
1467
1468 /* If we're relocating, and this is an external symbol with no
1469 addend, we don't want to change anything. We will only have an
1470 addend if this is a newly created reloc, not read from an ELF
1471 file. */
1472 if (output_bfd != (bfd *) NULL
1473 && (symbol->flags & BSF_SECTION_SYM) == 0
1474 && reloc_entry->addend == 0)
1475 {
1476 reloc_entry->address += input_section->output_offset;
1477 return bfd_reloc_ok;
1478 }
1479
1480 if (output_bfd != (bfd *) NULL)
1481 relocateable = true;
1482 else
1483 {
1484 relocateable = false;
1485 output_bfd = symbol->section->output_section->owner;
1486 }
1487
1488 ret = mips_elf_final_gp (output_bfd, symbol, relocateable, error_message,
1489 &gp);
1490 if (ret != bfd_reloc_ok)
1491 return ret;
1492
1493 return gprel16_with_gp (abfd, symbol, reloc_entry, input_section,
1494 relocateable, data, gp);
1495}
1496
1497static bfd_reloc_status_type
1498gprel16_with_gp (abfd, symbol, reloc_entry, input_section, relocateable, data,
1499 gp)
1500 bfd *abfd;
1501 asymbol *symbol;
1502 arelent *reloc_entry;
1503 asection *input_section;
1504 boolean relocateable;
1505 PTR data;
1506 bfd_vma gp;
1507{
1508 bfd_vma relocation;
1509 unsigned long insn;
1510 unsigned long val;
1511
1512 if (bfd_is_com_section (symbol->section))
1513 relocation = 0;
1514 else
1515 relocation = symbol->value;
1516
1517 relocation += symbol->section->output_section->vma;
1518 relocation += symbol->section->output_offset;
1519
1520 if (reloc_entry->address > input_section->_cooked_size)
1521 return bfd_reloc_outofrange;
1522
1523 insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
1524
1525 /* Set val to the offset into the section or symbol. */
1526 if (reloc_entry->howto->src_mask == 0)
1527 {
1528 /* This case occurs with the 64-bit MIPS ELF ABI. */
1529 val = reloc_entry->addend;
1530 }
1531 else
1532 {
1533 val = ((insn & 0xffff) + reloc_entry->addend) & 0xffff;
1534 if (val & 0x8000)
1535 val -= 0x10000;
1536 }
1537
1538 /* Adjust val for the final section location and GP value. If we
1539 are producing relocateable output, we don't want to do this for
1540 an external symbol. */
1541 if (! relocateable
1542 || (symbol->flags & BSF_SECTION_SYM) != 0)
1543 val += relocation - gp;
1544
be3ccd9c 1545 insn = (insn & ~0xffff) | (val & 0xffff);
252b5132
RH		 1546 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
1547
1548 if (relocateable)
1549 reloc_entry->address += input_section->output_offset;
1550
1551 /* Make sure it fit in 16 bits. */
43cbcf28 1552 if ((long) val >= 0x8000 || (long) val < -0x8000)
252b5132
RH		 1553 return bfd_reloc_overflow;
1554
1555 return bfd_reloc_ok;
1556}
1557
1558/* Do a R_MIPS_GPREL32 relocation. Is this 32 bit value the offset
1559 from the gp register? XXX */
1560
1561static bfd_reloc_status_type gprel32_with_gp PARAMS ((bfd *, asymbol *,
1562 arelent *, asection *,
1563 boolean, PTR, bfd_vma));
1564
1565bfd_reloc_status_type
1566_bfd_mips_elf_gprel32_reloc (abfd,
1567 reloc_entry,
1568 symbol,
1569 data,
1570 input_section,
1571 output_bfd,
1572 error_message)
1573 bfd *abfd;
1574 arelent *reloc_entry;
1575 asymbol *symbol;
1576 PTR data;
1577 asection *input_section;
1578 bfd *output_bfd;
1579 char **error_message;
1580{
1581 boolean relocateable;
1582 bfd_reloc_status_type ret;
1583 bfd_vma gp;
1584
1585 /* If we're relocating, and this is an external symbol with no
1586 addend, we don't want to change anything. We will only have an
1587 addend if this is a newly created reloc, not read from an ELF
1588 file. */
1589 if (output_bfd != (bfd *) NULL
1590 && (symbol->flags & BSF_SECTION_SYM) == 0
1591 && reloc_entry->addend == 0)
1592 {
1593 *error_message = (char *)
1594 _("32bits gp relative relocation occurs for an external symbol");
1595 return bfd_reloc_outofrange;
1596 }
1597
1598 if (output_bfd != (bfd *) NULL)
1599 {
1600 relocateable = true;
1601 gp = _bfd_get_gp_value (output_bfd);
1602 }
1603 else
1604 {
1605 relocateable = false;
1606 output_bfd = symbol->section->output_section->owner;
1607
1608 ret = mips_elf_final_gp (output_bfd, symbol, relocateable,
1609 error_message, &gp);
1610 if (ret != bfd_reloc_ok)
1611 return ret;
1612 }
1613
1614 return gprel32_with_gp (abfd, symbol, reloc_entry, input_section,
1615 relocateable, data, gp);
1616}
1617
1618static bfd_reloc_status_type
1619gprel32_with_gp (abfd, symbol, reloc_entry, input_section, relocateable, data,
1620 gp)
1621 bfd *abfd;
1622 asymbol *symbol;
1623 arelent *reloc_entry;
1624 asection *input_section;
1625 boolean relocateable;
1626 PTR data;
1627 bfd_vma gp;
1628{
1629 bfd_vma relocation;
1630 unsigned long val;
1631
1632 if (bfd_is_com_section (symbol->section))
1633 relocation = 0;
1634 else
1635 relocation = symbol->value;
1636
1637 relocation += symbol->section->output_section->vma;
1638 relocation += symbol->section->output_offset;
1639
1640 if (reloc_entry->address > input_section->_cooked_size)
1641 return bfd_reloc_outofrange;
1642
1643 if (reloc_entry->howto->src_mask == 0)
1644 {
1645 /* This case arises with the 64-bit MIPS ELF ABI. */
1646 val = 0;
1647 }
1648 else
1649 val = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
1650
1651 /* Set val to the offset into the section or symbol. */
1652 val += reloc_entry->addend;
1653
1654 /* Adjust val for the final section location and GP value. If we
1655 are producing relocateable output, we don't want to do this for
1656 an external symbol. */
1657 if (! relocateable
1658 || (symbol->flags & BSF_SECTION_SYM) != 0)
1659 val += relocation - gp;
1660
1661 bfd_put_32 (abfd, val, (bfd_byte *) data + reloc_entry->address);
1662
1663 if (relocateable)
1664 reloc_entry->address += input_section->output_offset;
1665
1666 return bfd_reloc_ok;
1667}
1668
1669/* Handle a 64 bit reloc in a 32 bit MIPS ELF file. These are
1670 generated when addreses are 64 bits. The upper 32 bits are a simle
1671 sign extension. */
1672
1673static bfd_reloc_status_type
1674mips32_64bit_reloc (abfd, reloc_entry, symbol, data, input_section,
1675 output_bfd, error_message)
1676 bfd *abfd;
1677 arelent *reloc_entry;
1678 asymbol *symbol;
1679 PTR data;
1680 asection *input_section;
1681 bfd *output_bfd;
1682 char **error_message;
1683{
1684 bfd_reloc_status_type r;
1685 arelent reloc32;
1686 unsigned long val;
1687 bfd_size_type addr;
1688
1689 r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1690 input_section, output_bfd, error_message);
1691 if (r != bfd_reloc_continue)
1692 return r;
1693
1694 /* Do a normal 32 bit relocation on the lower 32 bits. */
1695 reloc32 = *reloc_entry;
1696 if (bfd_big_endian (abfd))
1697 reloc32.address += 4;
1698 reloc32.howto = &elf_mips_howto_table[R_MIPS_32];
1699 r = bfd_perform_relocation (abfd, &reloc32, data, input_section,
1700 output_bfd, error_message);
1701
1702 /* Sign extend into the upper 32 bits. */
1703 val = bfd_get_32 (abfd, (bfd_byte *) data + reloc32.address);
1704 if ((val & 0x80000000) != 0)
1705 val = 0xffffffff;
1706 else
1707 val = 0;
1708 addr = reloc_entry->address;
1709 if (bfd_little_endian (abfd))
1710 addr += 4;
1711 bfd_put_32 (abfd, val, (bfd_byte *) data + addr);
1712
1713 return r;
1714}
1715
1716/* Handle a mips16 jump. */
1717
1718static bfd_reloc_status_type
1719mips16_jump_reloc (abfd, reloc_entry, symbol, data, input_section,
1720 output_bfd, error_message)
5f771d47 1721 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 1722 arelent *reloc_entry;
1723 asymbol *symbol;
5f771d47 1724 PTR data ATTRIBUTE_UNUSED;
252b5132
RH		 1725 asection *input_section;
1726 bfd *output_bfd;
5f771d47 1727 char **error_message ATTRIBUTE_UNUSED;
252b5132
RH		 1728{
1729 if (output_bfd != (bfd *) NULL
1730 && (symbol->flags & BSF_SECTION_SYM) == 0
1731 && reloc_entry->addend == 0)
1732 {
1733 reloc_entry->address += input_section->output_offset;
1734 return bfd_reloc_ok;
1735 }
1736
1737 /* FIXME. */
1738 {
1739 static boolean warned;
1740
1741 if (! warned)
1742 (*_bfd_error_handler)
1743 (_("Linking mips16 objects into %s format is not supported"),
1744 bfd_get_target (input_section->output_section->owner));
1745 warned = true;
1746 }
1747
1748 return bfd_reloc_undefined;
1749}
1750
1751/* Handle a mips16 GP relative reloc. */
1752
1753static bfd_reloc_status_type
1754mips16_gprel_reloc (abfd, reloc_entry, symbol, data, input_section,
1755 output_bfd, error_message)
1756 bfd *abfd;
1757 arelent *reloc_entry;
1758 asymbol *symbol;
1759 PTR data;
1760 asection *input_section;
1761 bfd *output_bfd;
1762 char **error_message;
1763{
1764 boolean relocateable;
1765 bfd_reloc_status_type ret;
1766 bfd_vma gp;
1767 unsigned short extend, insn;
1768 unsigned long final;
1769
1770 /* If we're relocating, and this is an external symbol with no
1771 addend, we don't want to change anything. We will only have an
1772 addend if this is a newly created reloc, not read from an ELF
1773 file. */
1774 if (output_bfd != NULL
1775 && (symbol->flags & BSF_SECTION_SYM) == 0
1776 && reloc_entry->addend == 0)
1777 {
1778 reloc_entry->address += input_section->output_offset;
1779 return bfd_reloc_ok;
1780 }
1781
1782 if (output_bfd != NULL)
1783 relocateable = true;
1784 else
1785 {
1786 relocateable = false;
1787 output_bfd = symbol->section->output_section->owner;
1788 }
1789
1790 ret = mips_elf_final_gp (output_bfd, symbol, relocateable, error_message,
1791 &gp);
1792 if (ret != bfd_reloc_ok)
1793 return ret;
1794
1795 if (reloc_entry->address > input_section->_cooked_size)
1796 return bfd_reloc_outofrange;
1797
1798 /* Pick up the mips16 extend instruction and the real instruction. */
1799 extend = bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address);
1800 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address + 2);
1801
1802 /* Stuff the current addend back as a 32 bit value, do the usual
1803 relocation, and then clean up. */
1804 bfd_put_32 (abfd,
1805 (((extend & 0x1f) << 11)
1806 | (extend & 0x7e0)
1807 | (insn & 0x1f)),
1808 (bfd_byte *) data + reloc_entry->address);
1809
1810 ret = gprel16_with_gp (abfd, symbol, reloc_entry, input_section,
1811 relocateable, data, gp);
1812
1813 final = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
1814 bfd_put_16 (abfd,
1815 ((extend & 0xf800)
1816 | ((final >> 11) & 0x1f)
1817 | (final & 0x7e0)),
1818 (bfd_byte *) data + reloc_entry->address);
1819 bfd_put_16 (abfd,
1820 ((insn & 0xffe0)
1821 | (final & 0x1f)),
1822 (bfd_byte *) data + reloc_entry->address + 2);
1823
1824 return ret;
1825}
1826
1827/* Return the ISA for a MIPS e_flags value. */
1828
1829static INLINE int
1830elf_mips_isa (flags)
1831 flagword flags;
1832{
1833 switch (flags & EF_MIPS_ARCH)
1834 {
1835 case E_MIPS_ARCH_1:
1836 return 1;
1837 case E_MIPS_ARCH_2:
1838 return 2;
1839 case E_MIPS_ARCH_3:
1840 return 3;
1841 case E_MIPS_ARCH_4:
1842 return 4;
84ea6cf2
NC		 1843 case E_MIPS_ARCH_5:
1844 return 5;
e7af610e
NC		 1845 case E_MIPS_ARCH_32:
1846 return 32;
84ea6cf2
NC		 1847 case E_MIPS_ARCH_64:
1848 return 64;
252b5132
RH		 1849 }
1850 return 4;
1851}
1852
1853/* Return the MACH for a MIPS e_flags value. */
1854
1855static INLINE int
1856elf_mips_mach (flags)
1857 flagword flags;
1858{
1859 switch (flags & EF_MIPS_MACH)
1860 {
1861 case E_MIPS_MACH_3900:
1862 return bfd_mach_mips3900;
1863
1864 case E_MIPS_MACH_4010:
1865 return bfd_mach_mips4010;
1866
1867 case E_MIPS_MACH_4100:
1868 return bfd_mach_mips4100;
1869
1870 case E_MIPS_MACH_4111:
1871 return bfd_mach_mips4111;
1872
1873 case E_MIPS_MACH_4650:
1874 return bfd_mach_mips4650;
1875
e7af610e
NC		 1876 case E_MIPS_MACH_MIPS32_4K:
1877 return bfd_mach_mips32_4k;
156c2f8b 1878
c6c98b38
NC		 1879 case E_MIPS_MACH_SB1:
1880 return bfd_mach_mips_sb1;
1881
252b5132
RH		 1882 default:
1883 switch (flags & EF_MIPS_ARCH)
1884 {
1885 default:
1886 case E_MIPS_ARCH_1:
1887 return bfd_mach_mips3000;
1888 break;
1889
1890 case E_MIPS_ARCH_2:
1891 return bfd_mach_mips6000;
1892 break;
1893
1894 case E_MIPS_ARCH_3:
1895 return bfd_mach_mips4000;
1896 break;
1897
1898 case E_MIPS_ARCH_4:
1899 return bfd_mach_mips8000;
1900 break;
e7af610e 1901
84ea6cf2
NC		 1902 case E_MIPS_ARCH_5:
1903 return bfd_mach_mips5;
1904 break;
1905
e7af610e
NC		 1906 case E_MIPS_ARCH_32:
1907 return bfd_mach_mips32;
1908 break;
84ea6cf2
NC		 1909
1910 case E_MIPS_ARCH_64:
1911 return bfd_mach_mips64;
1912 break;
252b5132
RH		 1913 }
1914 }
1915
1916 return 0;
1917}
1918
be3ccd9c 1919/* Return printable name for ABI. */
252b5132 1920
be3ccd9c 1921static INLINE char *
103186c6
MM		 1922elf_mips_abi_name (abfd)
1923 bfd *abfd;
252b5132 1924{
103186c6
MM		 1925 flagword flags;
1926
1927 if (ABI_N32_P (abfd))
1928 return "N32";
1929 else if (ABI_64_P (abfd))
1930 return "64";
be3ccd9c 1931
103186c6 1932 flags = elf_elfheader (abfd)->e_flags;
252b5132
RH		 1933 switch (flags & EF_MIPS_ABI)
1934 {
1935 case 0:
1936 return "none";
1937 case E_MIPS_ABI_O32:
1938 return "O32";
1939 case E_MIPS_ABI_O64:
1940 return "O64";
1941 case E_MIPS_ABI_EABI32:
1942 return "EABI32";
1943 case E_MIPS_ABI_EABI64:
1944 return "EABI64";
1945 default:
1946 return "unknown abi";
1947 }
1948}
1949
1950/* A mapping from BFD reloc types to MIPS ELF reloc types. */
1951
1952struct elf_reloc_map {
1953 bfd_reloc_code_real_type bfd_reloc_val;
1954 enum elf_mips_reloc_type elf_reloc_val;
1955};
1956
38b1a46c
NC		 1957static CONST struct elf_reloc_map mips_reloc_map[] =
1958{
252b5132
RH		 1959 { BFD_RELOC_NONE, R_MIPS_NONE, },
1960 { BFD_RELOC_16, R_MIPS_16 },
1961 { BFD_RELOC_32, R_MIPS_32 },
1962 { BFD_RELOC_64, R_MIPS_64 },
1963 { BFD_RELOC_MIPS_JMP, R_MIPS_26 },
1964 { BFD_RELOC_HI16_S, R_MIPS_HI16 },
1965 { BFD_RELOC_LO16, R_MIPS_LO16 },
1966 { BFD_RELOC_MIPS_GPREL, R_MIPS_GPREL16 },
1967 { BFD_RELOC_MIPS_LITERAL, R_MIPS_LITERAL },
1968 { BFD_RELOC_MIPS_GOT16, R_MIPS_GOT16 },
1969 { BFD_RELOC_16_PCREL, R_MIPS_PC16 },
1970 { BFD_RELOC_MIPS_CALL16, R_MIPS_CALL16 },
1971 { BFD_RELOC_MIPS_GPREL32, R_MIPS_GPREL32 },
1972 { BFD_RELOC_MIPS_GOT_HI16, R_MIPS_GOT_HI16 },
1973 { BFD_RELOC_MIPS_GOT_LO16, R_MIPS_GOT_LO16 },
1974 { BFD_RELOC_MIPS_CALL_HI16, R_MIPS_CALL_HI16 },
3f830999
MM		 1975 { BFD_RELOC_MIPS_CALL_LO16, R_MIPS_CALL_LO16 },
1976 { BFD_RELOC_MIPS_SUB, R_MIPS_SUB },
1977 { BFD_RELOC_MIPS_GOT_PAGE, R_MIPS_GOT_PAGE },
1978 { BFD_RELOC_MIPS_GOT_OFST, R_MIPS_GOT_OFST },
1979 { BFD_RELOC_MIPS_GOT_DISP, R_MIPS_GOT_DISP }
252b5132
RH		 1980};
1981
1982/* Given a BFD reloc type, return a howto structure. */
1983
1984static reloc_howto_type *
1985bfd_elf32_bfd_reloc_type_lookup (abfd, code)
1986 bfd *abfd;
1987 bfd_reloc_code_real_type code;
1988{
1989 unsigned int i;
1990
1991 for (i = 0; i < sizeof (mips_reloc_map) / sizeof (struct elf_reloc_map); i++)
1992 {
1993 if (mips_reloc_map[i].bfd_reloc_val == code)
1994 return &elf_mips_howto_table[(int) mips_reloc_map[i].elf_reloc_val];
1995 }
1996
1997 switch (code)
1998 {
1999 default:
2000 bfd_set_error (bfd_error_bad_value);
2001 return NULL;
2002
2003 case BFD_RELOC_CTOR:
2004 /* We need to handle BFD_RELOC_CTOR specially.
2005 Select the right relocation (R_MIPS_32 or R_MIPS_64) based on the
2006 size of addresses on this architecture. */
2007 if (bfd_arch_bits_per_address (abfd) == 32)
2008 return &elf_mips_howto_table[(int) R_MIPS_32];
2009 else
2010 return &elf_mips_ctor64_howto;
2011
2012 case BFD_RELOC_MIPS16_JMP:
2013 return &elf_mips16_jump_howto;
2014 case BFD_RELOC_MIPS16_GPREL:
2015 return &elf_mips16_gprel_howto;
2016 case BFD_RELOC_VTABLE_INHERIT:
2017 return &elf_mips_gnu_vtinherit_howto;
2018 case BFD_RELOC_VTABLE_ENTRY:
2019 return &elf_mips_gnu_vtentry_howto;
bb2d6cd7
GK		 2020 case BFD_RELOC_PCREL_HI16_S:
2021 return &elf_mips_gnu_rel_hi16;
2022 case BFD_RELOC_PCREL_LO16:
2023 return &elf_mips_gnu_rel_lo16;
2024 case BFD_RELOC_16_PCREL_S2:
2025 return &elf_mips_gnu_rel16_s2;
2026 case BFD_RELOC_64_PCREL:
2027 return &elf_mips_gnu_pcrel64;
2028 case BFD_RELOC_32_PCREL:
2029 return &elf_mips_gnu_pcrel32;
252b5132
RH		 2030 }
2031}
2032
3f830999 2033/* Given a MIPS Elf32_Internal_Rel, fill in an arelent structure. */
252b5132 2034
c9b3cbf3
RH		 2035static reloc_howto_type *
2036mips_rtype_to_howto (r_type)
2037 unsigned int r_type;
252b5132 2038{
252b5132
RH		 2039 switch (r_type)
2040 {
2041 case R_MIPS16_26:
c9b3cbf3 2042 return &elf_mips16_jump_howto;
252b5132
RH		 2043 break;
2044 case R_MIPS16_GPREL:
c9b3cbf3 2045 return &elf_mips16_gprel_howto;
252b5132
RH		 2046 break;
2047 case R_MIPS_GNU_VTINHERIT:
c9b3cbf3 2048 return &elf_mips_gnu_vtinherit_howto;
252b5132
RH		 2049 break;
2050 case R_MIPS_GNU_VTENTRY:
c9b3cbf3 2051 return &elf_mips_gnu_vtentry_howto;
252b5132 2052 break;
bb2d6cd7
GK		 2053 case R_MIPS_GNU_REL_HI16:
2054 return &elf_mips_gnu_rel_hi16;
2055 break;
2056 case R_MIPS_GNU_REL_LO16:
2057 return &elf_mips_gnu_rel_lo16;
2058 break;
2059 case R_MIPS_GNU_REL16_S2:
2060 return &elf_mips_gnu_rel16_s2;
2061 break;
2062 case R_MIPS_PC64:
2063 return &elf_mips_gnu_pcrel64;
2064 break;
2065 case R_MIPS_PC32:
2066 return &elf_mips_gnu_pcrel32;
2067 break;
252b5132
RH		 2068
2069 default:
2070 BFD_ASSERT (r_type < (unsigned int) R_MIPS_max);
c9b3cbf3 2071 return &elf_mips_howto_table[r_type];
252b5132
RH		 2072 break;
2073 }
c9b3cbf3
RH		 2074}
2075
2076/* Given a MIPS Elf32_Internal_Rel, fill in an arelent structure. */
2077
2078static void
2079mips_info_to_howto_rel (abfd, cache_ptr, dst)
2080 bfd *abfd;
2081 arelent *cache_ptr;
2082 Elf32_Internal_Rel *dst;
2083{
2084 unsigned int r_type;
2085
2086 r_type = ELF32_R_TYPE (dst->r_info);
2087 cache_ptr->howto = mips_rtype_to_howto (r_type);
252b5132
RH		 2088
2089 /* The addend for a GPREL16 or LITERAL relocation comes from the GP
2090 value for the object file. We get the addend now, rather than
2091 when we do the relocation, because the symbol manipulations done
2092 by the linker may cause us to lose track of the input BFD. */
2093 if (((*cache_ptr->sym_ptr_ptr)->flags & BSF_SECTION_SYM) != 0
2094 && (r_type == (unsigned int) R_MIPS_GPREL16
2095 || r_type == (unsigned int) R_MIPS_LITERAL))
2096 cache_ptr->addend = elf_gp (abfd);
2097}
3f830999
MM		 2098
2099/* Given a MIPS Elf32_Internal_Rela, fill in an arelent structure. */
2100
2101static void
2102mips_info_to_howto_rela (abfd, cache_ptr, dst)
2103 bfd *abfd;
2104 arelent *cache_ptr;
2105 Elf32_Internal_Rela *dst;
2106{
2107 /* Since an Elf32_Internal_Rel is an initial prefix of an
2108 Elf32_Internal_Rela, we can just use mips_info_to_howto_rel
2109 above. */
2110 mips_info_to_howto_rel (abfd, cache_ptr, (Elf32_Internal_Rel *) dst);
2111
2112 /* If we ever need to do any extra processing with dst->r_addend
2113 (the field omitted in an Elf32_Internal_Rel) we can do it here. */
2114}
252b5132
RH		 2115\f
2116/* A .reginfo section holds a single Elf32_RegInfo structure. These
2117 routines swap this structure in and out. They are used outside of
2118 BFD, so they are globally visible. */
2119
2120void
2121bfd_mips_elf32_swap_reginfo_in (abfd, ex, in)
2122 bfd *abfd;
2123 const Elf32_External_RegInfo *ex;
2124 Elf32_RegInfo *in;
2125{
2126 in->ri_gprmask = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_gprmask);
2127 in->ri_cprmask[0] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[0]);
2128 in->ri_cprmask[1] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[1]);
2129 in->ri_cprmask[2] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[2]);
2130 in->ri_cprmask[3] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[3]);
2131 in->ri_gp_value = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_gp_value);
2132}
2133
2134void
2135bfd_mips_elf32_swap_reginfo_out (abfd, in, ex)
2136 bfd *abfd;
2137 const Elf32_RegInfo *in;
2138 Elf32_External_RegInfo *ex;
2139{
2140 bfd_h_put_32 (abfd, (bfd_vma) in->ri_gprmask,
2141 (bfd_byte *) ex->ri_gprmask);
2142 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[0],
2143 (bfd_byte *) ex->ri_cprmask[0]);
2144 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[1],
2145 (bfd_byte *) ex->ri_cprmask[1]);
2146 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[2],
2147 (bfd_byte *) ex->ri_cprmask[2]);
2148 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[3],
2149 (bfd_byte *) ex->ri_cprmask[3]);
2150 bfd_h_put_32 (abfd, (bfd_vma) in->ri_gp_value,
2151 (bfd_byte *) ex->ri_gp_value);
2152}
2153
2154/* In the 64 bit ABI, the .MIPS.options section holds register
2155 information in an Elf64_Reginfo structure. These routines swap
2156 them in and out. They are globally visible because they are used
2157 outside of BFD. These routines are here so that gas can call them
2158 without worrying about whether the 64 bit ABI has been included. */
2159
2160void
2161bfd_mips_elf64_swap_reginfo_in (abfd, ex, in)
2162 bfd *abfd;
2163 const Elf64_External_RegInfo *ex;
2164 Elf64_Internal_RegInfo *in;
2165{
2166 in->ri_gprmask = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_gprmask);
2167 in->ri_pad = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_pad);
2168 in->ri_cprmask[0] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[0]);
2169 in->ri_cprmask[1] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[1]);
2170 in->ri_cprmask[2] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[2]);
2171 in->ri_cprmask[3] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[3]);
2172 in->ri_gp_value = bfd_h_get_64 (abfd, (bfd_byte *) ex->ri_gp_value);
2173}
2174
2175void
2176bfd_mips_elf64_swap_reginfo_out (abfd, in, ex)
2177 bfd *abfd;
2178 const Elf64_Internal_RegInfo *in;
2179 Elf64_External_RegInfo *ex;
2180{
2181 bfd_h_put_32 (abfd, (bfd_vma) in->ri_gprmask,
2182 (bfd_byte *) ex->ri_gprmask);
2183 bfd_h_put_32 (abfd, (bfd_vma) in->ri_pad,
2184 (bfd_byte *) ex->ri_pad);
2185 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[0],
2186 (bfd_byte *) ex->ri_cprmask[0]);
2187 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[1],
2188 (bfd_byte *) ex->ri_cprmask[1]);
2189 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[2],
2190 (bfd_byte *) ex->ri_cprmask[2]);
2191 bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[3],
2192 (bfd_byte *) ex->ri_cprmask[3]);
2193 bfd_h_put_64 (abfd, (bfd_vma) in->ri_gp_value,
2194 (bfd_byte *) ex->ri_gp_value);
2195}
2196
2197/* Swap an entry in a .gptab section. Note that these routines rely
2198 on the equivalence of the two elements of the union. */
2199
2200static void
2201bfd_mips_elf32_swap_gptab_in (abfd, ex, in)
2202 bfd *abfd;
2203 const Elf32_External_gptab *ex;
2204 Elf32_gptab *in;
2205{
2206 in->gt_entry.gt_g_value = bfd_h_get_32 (abfd, ex->gt_entry.gt_g_value);
2207 in->gt_entry.gt_bytes = bfd_h_get_32 (abfd, ex->gt_entry.gt_bytes);
2208}
2209
2210static void
2211bfd_mips_elf32_swap_gptab_out (abfd, in, ex)
2212 bfd *abfd;
2213 const Elf32_gptab *in;
2214 Elf32_External_gptab *ex;
2215{
2216 bfd_h_put_32 (abfd, (bfd_vma) in->gt_entry.gt_g_value,
2217 ex->gt_entry.gt_g_value);
2218 bfd_h_put_32 (abfd, (bfd_vma) in->gt_entry.gt_bytes,
2219 ex->gt_entry.gt_bytes);
2220}
2221
2222static void
2223bfd_elf32_swap_compact_rel_out (abfd, in, ex)
2224 bfd *abfd;
2225 const Elf32_compact_rel *in;
2226 Elf32_External_compact_rel *ex;
2227{
2228 bfd_h_put_32 (abfd, (bfd_vma) in->id1, ex->id1);
2229 bfd_h_put_32 (abfd, (bfd_vma) in->num, ex->num);
2230 bfd_h_put_32 (abfd, (bfd_vma) in->id2, ex->id2);
2231 bfd_h_put_32 (abfd, (bfd_vma) in->offset, ex->offset);
2232 bfd_h_put_32 (abfd, (bfd_vma) in->reserved0, ex->reserved0);
2233 bfd_h_put_32 (abfd, (bfd_vma) in->reserved1, ex->reserved1);
2234}
2235
2236static void
2237bfd_elf32_swap_crinfo_out (abfd, in, ex)
2238 bfd *abfd;
2239 const Elf32_crinfo *in;
2240 Elf32_External_crinfo *ex;
2241{
2242 unsigned long l;
2243
2244 l = (((in->ctype & CRINFO_CTYPE) << CRINFO_CTYPE_SH)
2245 | ((in->rtype & CRINFO_RTYPE) << CRINFO_RTYPE_SH)
2246 | ((in->dist2to & CRINFO_DIST2TO) << CRINFO_DIST2TO_SH)
2247 | ((in->relvaddr & CRINFO_RELVADDR) << CRINFO_RELVADDR_SH));
2248 bfd_h_put_32 (abfd, (bfd_vma) l, ex->info);
2249 bfd_h_put_32 (abfd, (bfd_vma) in->konst, ex->konst);
2250 bfd_h_put_32 (abfd, (bfd_vma) in->vaddr, ex->vaddr);
2251}
2252
2253/* Swap in an options header. */
2254
2255void
2256bfd_mips_elf_swap_options_in (abfd, ex, in)
2257 bfd *abfd;
2258 const Elf_External_Options *ex;
2259 Elf_Internal_Options *in;
2260{
2261 in->kind = bfd_h_get_8 (abfd, ex->kind);
2262 in->size = bfd_h_get_8 (abfd, ex->size);
2263 in->section = bfd_h_get_16 (abfd, ex->section);
2264 in->info = bfd_h_get_32 (abfd, ex->info);
2265}
2266
2267/* Swap out an options header. */
2268
2269void
2270bfd_mips_elf_swap_options_out (abfd, in, ex)
2271 bfd *abfd;
2272 const Elf_Internal_Options *in;
2273 Elf_External_Options *ex;
2274{
2275 bfd_h_put_8 (abfd, in->kind, ex->kind);
2276 bfd_h_put_8 (abfd, in->size, ex->size);
2277 bfd_h_put_16 (abfd, in->section, ex->section);
2278 bfd_h_put_32 (abfd, in->info, ex->info);
2279}
86033394 2280#if 0
c6142e5d
MM		 2281/* Swap in an MSYM entry. */
2282
2283static void
2284bfd_mips_elf_swap_msym_in (abfd, ex, in)
2285 bfd *abfd;
2286 const Elf32_External_Msym *ex;
2287 Elf32_Internal_Msym *in;
2288{
2289 in->ms_hash_value = bfd_h_get_32 (abfd, ex->ms_hash_value);
2290 in->ms_info = bfd_h_get_32 (abfd, ex->ms_info);
2291}
86033394 2292#endif
c6142e5d
MM		 2293/* Swap out an MSYM entry. */
2294
2295static void
2296bfd_mips_elf_swap_msym_out (abfd, in, ex)
2297 bfd *abfd;
2298 const Elf32_Internal_Msym *in;
2299 Elf32_External_Msym *ex;
2300{
2301 bfd_h_put_32 (abfd, in->ms_hash_value, ex->ms_hash_value);
2302 bfd_h_put_32 (abfd, in->ms_info, ex->ms_info);
2303}
252b5132
RH		 2304\f
2305/* Determine whether a symbol is global for the purposes of splitting
2306 the symbol table into global symbols and local symbols. At least
2307 on Irix 5, this split must be between section symbols and all other
2308 symbols. On most ELF targets the split is between static symbols
2309 and externally visible symbols. */
2310
252b5132
RH		 2311static boolean
2312mips_elf_sym_is_global (abfd, sym)
5f771d47 2313 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 2314 asymbol *sym;
2315{
fdbafa10
L		 2316 if (SGI_COMPAT(abfd))
2317 return (sym->flags & BSF_SECTION_SYM) == 0 ? true : false;
2318 else
2319 return ((sym->flags & (BSF_GLOBAL | BSF_WEAK)) != 0
2320 || bfd_is_und_section (bfd_get_section (sym))
2321 || bfd_is_com_section (bfd_get_section (sym)));
252b5132
RH		 2322}
2323\f
2324/* Set the right machine number for a MIPS ELF file. This is used for
2325 both the 32-bit and the 64-bit ABI. */
2326
2327boolean
2328_bfd_mips_elf_object_p (abfd)
2329 bfd *abfd;
2330{
103186c6 2331 /* Irix 5 and 6 is broken. Object file symbol tables are not always
252b5132
RH		 2332 sorted correctly such that local symbols precede global symbols,
2333 and the sh_info field in the symbol table is not always right. */
2334 elf_bad_symtab (abfd) = true;
2335
103186c6
MM		 2336 bfd_default_set_arch_mach (abfd, bfd_arch_mips,
2337 elf_mips_mach (elf_elfheader (abfd)->e_flags));
2338 return true;
252b5132
RH		 2339}
2340
2341/* The final processing done just before writing out a MIPS ELF object
2342 file. This gets the MIPS architecture right based on the machine
2343 number. This is used by both the 32-bit and the 64-bit ABI. */
2344
252b5132
RH		 2345void
2346_bfd_mips_elf_final_write_processing (abfd, linker)
2347 bfd *abfd;
5f771d47 2348 boolean linker ATTRIBUTE_UNUSED;
252b5132
RH		 2349{
2350 unsigned long val;
2351 unsigned int i;
2352 Elf_Internal_Shdr **hdrpp;
2353 const char *name;
2354 asection *sec;
2355
2356 switch (bfd_get_mach (abfd))
2357 {
2358 default:
2359 case bfd_mach_mips3000:
2360 val = E_MIPS_ARCH_1;
2361 break;
2362
2363 case bfd_mach_mips3900:
2364 val = E_MIPS_ARCH_1 | E_MIPS_MACH_3900;
2365 break;
2366
2367 case bfd_mach_mips6000:
2368 val = E_MIPS_ARCH_2;
2369 break;
2370
2371 case bfd_mach_mips4000:
2372 case bfd_mach_mips4300:
2373 val = E_MIPS_ARCH_3;
2374 break;
2375
2376 case bfd_mach_mips4010:
2377 val = E_MIPS_ARCH_3 | E_MIPS_MACH_4010;
2378 break;
2379
2380 case bfd_mach_mips4100:
2381 val = E_MIPS_ARCH_3 | E_MIPS_MACH_4100;
2382 break;
2383
2384 case bfd_mach_mips4111:
2385 val = E_MIPS_ARCH_3 | E_MIPS_MACH_4111;
2386 break;
2387
2388 case bfd_mach_mips4650:
2389 val = E_MIPS_ARCH_3 | E_MIPS_MACH_4650;
2390 break;
2391
2392 case bfd_mach_mips8000:
2393 val = E_MIPS_ARCH_4;
2394 break;
156c2f8b 2395
e7af610e
NC		 2396 case bfd_mach_mips32:
2397 val = E_MIPS_ARCH_32;
2398 break;
2399
2400 case bfd_mach_mips32_4k:
2401 val = E_MIPS_ARCH_32 | E_MIPS_MACH_MIPS32_4K;
156c2f8b 2402 break;
84ea6cf2
NC		 2403
2404 case bfd_mach_mips5:
2405 val = E_MIPS_ARCH_5;
2406 break;
2407
2408 case bfd_mach_mips64:
2409 val = E_MIPS_ARCH_64;
2410 break;
c6c98b38
NC		 2411
2412 case bfd_mach_mips_sb1:
2413 val = E_MIPS_ARCH_64 | E_MIPS_MACH_SB1;
2414 break;
252b5132
RH		 2415 }
2416
be3ccd9c 2417 elf_elfheader (abfd)->e_flags &= ~(EF_MIPS_ARCH | EF_MIPS_MACH);
252b5132
RH		 2418 elf_elfheader (abfd)->e_flags |= val;
2419
2420 /* Set the sh_info field for .gptab sections and other appropriate
2421 info for each special section. */
2422 for (i = 1, hdrpp = elf_elfsections (abfd) + 1;
2423 i < elf_elfheader (abfd)->e_shnum;
2424 i++, hdrpp++)
2425 {
2426 switch ((*hdrpp)->sh_type)
2427 {
c6142e5d 2428 case SHT_MIPS_MSYM:
252b5132
RH		 2429 case SHT_MIPS_LIBLIST:
2430 sec = bfd_get_section_by_name (abfd, ".dynstr");
2431 if (sec != NULL)
2432 (*hdrpp)->sh_link = elf_section_data (sec)->this_idx;
2433 break;
2434
2435 case SHT_MIPS_GPTAB:
2436 BFD_ASSERT ((*hdrpp)->bfd_section != NULL);
2437 name = bfd_get_section_name (abfd, (*hdrpp)->bfd_section);
2438 BFD_ASSERT (name != NULL
2439 && strncmp (name, ".gptab.", sizeof ".gptab." - 1) == 0);
2440 sec = bfd_get_section_by_name (abfd, name + sizeof ".gptab" - 1);
2441 BFD_ASSERT (sec != NULL);
2442 (*hdrpp)->sh_info = elf_section_data (sec)->this_idx;
2443 break;
2444
2445 case SHT_MIPS_CONTENT:
2446 BFD_ASSERT ((*hdrpp)->bfd_section != NULL);
2447 name = bfd_get_section_name (abfd, (*hdrpp)->bfd_section);
2448 BFD_ASSERT (name != NULL
2449 && strncmp (name, ".MIPS.content",
2450 sizeof ".MIPS.content" - 1) == 0);
2451 sec = bfd_get_section_by_name (abfd,
2452 name + sizeof ".MIPS.content" - 1);
2453 BFD_ASSERT (sec != NULL);
3f830999 2454 (*hdrpp)->sh_link = elf_section_data (sec)->this_idx;
252b5132
RH		 2455 break;
2456
2457 case SHT_MIPS_SYMBOL_LIB:
2458 sec = bfd_get_section_by_name (abfd, ".dynsym");
2459 if (sec != NULL)
2460 (*hdrpp)->sh_link = elf_section_data (sec)->this_idx;
2461 sec = bfd_get_section_by_name (abfd, ".liblist");
2462 if (sec != NULL)
2463 (*hdrpp)->sh_info = elf_section_data (sec)->this_idx;
2464 break;
2465
2466 case SHT_MIPS_EVENTS:
2467 BFD_ASSERT ((*hdrpp)->bfd_section != NULL);
2468 name = bfd_get_section_name (abfd, (*hdrpp)->bfd_section);
2469 BFD_ASSERT (name != NULL);
2470 if (strncmp (name, ".MIPS.events", sizeof ".MIPS.events" - 1) == 0)
2471 sec = bfd_get_section_by_name (abfd,
2472 name + sizeof ".MIPS.events" - 1);
2473 else
2474 {
2475 BFD_ASSERT (strncmp (name, ".MIPS.post_rel",
2476 sizeof ".MIPS.post_rel" - 1) == 0);
2477 sec = bfd_get_section_by_name (abfd,
2478 (name
2479 + sizeof ".MIPS.post_rel" - 1));
2480 }
2481 BFD_ASSERT (sec != NULL);
2482 (*hdrpp)->sh_link = elf_section_data (sec)->this_idx;
2483 break;
2484
2485 }
2486 }
2487}
2488\f
be3ccd9c 2489/* Function to keep MIPS specific file flags like as EF_MIPS_PIC. */
252b5132
RH		 2490
2491boolean
2492_bfd_mips_elf_set_private_flags (abfd, flags)
2493 bfd *abfd;
2494 flagword flags;
2495{
2496 BFD_ASSERT (!elf_flags_init (abfd)
2497 || elf_elfheader (abfd)->e_flags == flags);
2498
2499 elf_elfheader (abfd)->e_flags = flags;
2500 elf_flags_init (abfd) = true;
2501 return true;
2502}
2503
2504/* Copy backend specific data from one object module to another */
2505
2506boolean
2507_bfd_mips_elf_copy_private_bfd_data (ibfd, obfd)
2508 bfd *ibfd;
2509 bfd *obfd;
2510{
2511 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2512 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2513 return true;
2514
2515 BFD_ASSERT (!elf_flags_init (obfd)
2516 || (elf_elfheader (obfd)->e_flags
2517 == elf_elfheader (ibfd)->e_flags));
2518
2519 elf_gp (obfd) = elf_gp (ibfd);
2520 elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
2521 elf_flags_init (obfd) = true;
2522 return true;
2523}
2524
2525/* Merge backend specific data from an object file to the output
2526 object file when linking. */
2527
2528boolean
2529_bfd_mips_elf_merge_private_bfd_data (ibfd, obfd)
2530 bfd *ibfd;
2531 bfd *obfd;
2532{
2533 flagword old_flags;
2534 flagword new_flags;
2535 boolean ok;
a9922e52
UC		 2536 boolean null_input_bfd = true;
2537 asection *sec;
252b5132
RH		 2538
2539 /* Check if we have the same endianess */
1fe494a5
NC		 2540 if (_bfd_generic_verify_endian_match (ibfd, obfd) == false)
2541 return false;
252b5132
RH		 2542
2543 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2544 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2545 return true;
2546
2547 new_flags = elf_elfheader (ibfd)->e_flags;
2548 elf_elfheader (obfd)->e_flags |= new_flags & EF_MIPS_NOREORDER;
2549 old_flags = elf_elfheader (obfd)->e_flags;
2550
2551 if (! elf_flags_init (obfd))
2552 {
2553 elf_flags_init (obfd) = true;
2554 elf_elfheader (obfd)->e_flags = new_flags;
be3ccd9c 2555 elf_elfheader (obfd)->e_ident[EI_CLASS]
103186c6 2556 = elf_elfheader (ibfd)->e_ident[EI_CLASS];
252b5132
RH		 2557
2558 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
2559 && bfd_get_arch_info (obfd)->the_default)
2560 {
2561 if (! bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
2562 bfd_get_mach (ibfd)))
2563 return false;
2564 }
2565
2566 return true;
2567 }
2568
2569 /* Check flag compatibility. */
2570
2571 new_flags &= ~EF_MIPS_NOREORDER;
2572 old_flags &= ~EF_MIPS_NOREORDER;
2573
2574 if (new_flags == old_flags)
2575 return true;
2576
a9922e52
UC		 2577 /* Check to see if the input BFD actually contains any sections.
2578 If not, its flags may not have been initialised either, but it cannot
2579 actually cause any incompatibility. */
2580 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
2581 {
2582 /* Ignore synthetic sections and empty .text, .data and .bss sections
2583 which are automatically generated by gas. */
2584 if (strcmp (sec->name, ".reginfo")
2585 && strcmp (sec->name, ".mdebug")
2586 && ((!strcmp (sec->name, ".text")
2587 || !strcmp (sec->name, ".data")
2588 || !strcmp (sec->name, ".bss"))
2589 && sec->_raw_size != 0))
2590 {
2591 null_input_bfd = false;
2592 break;
2593 }
2594 }
2595 if (null_input_bfd)
2596 return true;
2597
252b5132
RH		 2598 ok = true;
2599
2600 if ((new_flags & EF_MIPS_PIC) != (old_flags & EF_MIPS_PIC))
2601 {
2602 new_flags &= ~EF_MIPS_PIC;
2603 old_flags &= ~EF_MIPS_PIC;
2604 (*_bfd_error_handler)
2605 (_("%s: linking PIC files with non-PIC files"),
2606 bfd_get_filename (ibfd));
2607 ok = false;
2608 }
2609
2610 if ((new_flags & EF_MIPS_CPIC) != (old_flags & EF_MIPS_CPIC))
2611 {
2612 new_flags &= ~EF_MIPS_CPIC;
2613 old_flags &= ~EF_MIPS_CPIC;
2614 (*_bfd_error_handler)
2615 (_("%s: linking abicalls files with non-abicalls files"),
2616 bfd_get_filename (ibfd));
2617 ok = false;
2618 }
2619
be3ccd9c 2620 /* Compare the ISA's. */
252b5132
RH		 2621 if ((new_flags & (EF_MIPS_ARCH | EF_MIPS_MACH))
2622 != (old_flags & (EF_MIPS_ARCH | EF_MIPS_MACH)))
2623 {
2624 int new_mach = new_flags & EF_MIPS_MACH;
2625 int old_mach = old_flags & EF_MIPS_MACH;
2626 int new_isa = elf_mips_isa (new_flags);
2627 int old_isa = elf_mips_isa (old_flags);
2628
2629 /* If either has no machine specified, just compare the general isa's.
be3ccd9c
KH		 2630 Some combinations of machines are ok, if the isa's match. */
2631 if (! new_mach
252b5132
RH		 2632 || ! old_mach
2633 || new_mach == old_mach
2634 )
2635 {
e7af610e
NC		 2636 /* Don't warn about mixing code using 32-bit ISAs, or mixing code
2637 using 64-bit ISAs. They will normally use the same data sizes
2638 and calling conventions. */
252b5132 2639
e7af610e
NC		 2640 if (( (new_isa == 1 || new_isa == 2 || new_isa == 32)
2641 ^ (old_isa == 1 || old_isa == 2 || old_isa == 32)) != 0)
252b5132
RH		 2642 {
2643 (*_bfd_error_handler)
2644 (_("%s: ISA mismatch (-mips%d) with previous modules (-mips%d)"),
2645 bfd_get_filename (ibfd), new_isa, old_isa);
2646 ok = false;
2647 }
2648 }
2649
2650 else
2651 {
2652 (*_bfd_error_handler)
2653 (_("%s: ISA mismatch (%d) with previous modules (%d)"),
2654 bfd_get_filename (ibfd),
2655 elf_mips_mach (new_flags),
2656 elf_mips_mach (old_flags));
2657 ok = false;
2658 }
2659
be3ccd9c
KH		 2660 new_flags &= ~(EF_MIPS_ARCH | EF_MIPS_MACH);
2661 old_flags &= ~(EF_MIPS_ARCH | EF_MIPS_MACH);
252b5132
RH		 2662 }
2663
103186c6
MM		 2664 /* Compare ABI's. The 64-bit ABI does not use EF_MIPS_ABI. But, it
2665 does set EI_CLASS differently from any 32-bit ABI. */
2666 if ((new_flags & EF_MIPS_ABI) != (old_flags & EF_MIPS_ABI)
be3ccd9c 2667 || (elf_elfheader (ibfd)->e_ident[EI_CLASS]
103186c6 2668 != elf_elfheader (obfd)->e_ident[EI_CLASS]))
252b5132 2669 {
be3ccd9c 2670 /* Only error if both are set (to different values). */
103186c6 2671 if (((new_flags & EF_MIPS_ABI) && (old_flags & EF_MIPS_ABI))
be3ccd9c 2672 || (elf_elfheader (ibfd)->e_ident[EI_CLASS]
103186c6 2673 != elf_elfheader (obfd)->e_ident[EI_CLASS]))
252b5132
RH		 2674 {
2675 (*_bfd_error_handler)
2676 (_("%s: ABI mismatch: linking %s module with previous %s modules"),
2677 bfd_get_filename (ibfd),
103186c6
MM		 2678 elf_mips_abi_name (ibfd),
2679 elf_mips_abi_name (obfd));
252b5132
RH		 2680 ok = false;
2681 }
2682 new_flags &= ~EF_MIPS_ABI;
2683 old_flags &= ~EF_MIPS_ABI;
2684 }
2685
2686 /* Warn about any other mismatches */
2687 if (new_flags != old_flags)
2688 {
2689 (*_bfd_error_handler)
2690 (_("%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"),
2691 bfd_get_filename (ibfd), (unsigned long) new_flags,
2692 (unsigned long) old_flags);
2693 ok = false;
2694 }
2695
2696 if (! ok)
2697 {
2698 bfd_set_error (bfd_error_bad_value);
2699 return false;
2700 }
2701
2702 return true;
2703}
2704\f
103186c6 2705boolean
252b5132
RH		 2706_bfd_mips_elf_print_private_bfd_data (abfd, ptr)
2707 bfd *abfd;
2708 PTR ptr;
2709{
2710 FILE *file = (FILE *) ptr;
2711
2712 BFD_ASSERT (abfd != NULL && ptr != NULL);
2713
2714 /* Print normal ELF private data. */
2715 _bfd_elf_print_private_bfd_data (abfd, ptr);
2716
2717 /* xgettext:c-format */
be3ccd9c 2718 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
252b5132
RH		 2719
2720 if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI) == E_MIPS_ABI_O32)
be3ccd9c 2721 fprintf (file, _(" [abi=O32]"));
252b5132 2722 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI) == E_MIPS_ABI_O64)
be3ccd9c 2723 fprintf (file, _(" [abi=O64]"));
252b5132 2724 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI) == E_MIPS_ABI_EABI32)
be3ccd9c 2725 fprintf (file, _(" [abi=EABI32]"));
252b5132 2726 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI) == E_MIPS_ABI_EABI64)
be3ccd9c 2727 fprintf (file, _(" [abi=EABI64]"));
252b5132 2728 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI))
be3ccd9c 2729 fprintf (file, _(" [abi unknown]"));
103186c6 2730 else if (ABI_N32_P (abfd))
be3ccd9c 2731 fprintf (file, _(" [abi=N32]"));
103186c6 2732 else if (ABI_64_P (abfd))
be3ccd9c 2733 fprintf (file, _(" [abi=64]"));
252b5132 2734 else
be3ccd9c 2735 fprintf (file, _(" [no abi set]"));
252b5132
RH		 2736
2737 if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_1)
be3ccd9c 2738 fprintf (file, _(" [mips1]"));
252b5132 2739 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_2)
be3ccd9c 2740 fprintf (file, _(" [mips2]"));
252b5132 2741 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_3)
be3ccd9c 2742 fprintf (file, _(" [mips3]"));
252b5132 2743 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_4)
be3ccd9c 2744 fprintf (file, _(" [mips4]"));
84ea6cf2
NC		 2745 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_5)
2746 fprintf (file, _ (" [mips5]"));
e7af610e
NC		 2747 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_32)
2748 fprintf (file, _ (" [mips32]"));
84ea6cf2
NC		 2749 else if ((elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) == E_MIPS_ARCH_64)
2750 fprintf (file, _ (" [mips64]"));
252b5132 2751 else
be3ccd9c 2752 fprintf (file, _(" [unknown ISA]"));
252b5132
RH		 2753
2754 if (elf_elfheader (abfd)->e_flags & EF_MIPS_32BITMODE)
be3ccd9c 2755 fprintf (file, _(" [32bitmode]"));
252b5132 2756 else
be3ccd9c 2757 fprintf (file, _(" [not 32bitmode]"));
252b5132
RH		 2758
2759 fputc ('\n', file);
2760
2761 return true;
2762}
2763\f
2764/* Handle a MIPS specific section when reading an object file. This
2765 is called when elfcode.h finds a section with an unknown type.
2766 This routine supports both the 32-bit and 64-bit ELF ABI.
2767
2768 FIXME: We need to handle the SHF_MIPS_GPREL flag, but I'm not sure
2769 how to. */
2770
2771boolean
2772_bfd_mips_elf_section_from_shdr (abfd, hdr, name)
2773 bfd *abfd;
2774 Elf_Internal_Shdr *hdr;
103186c6 2775 char *name;
252b5132
RH		 2776{
2777 flagword flags = 0;
2778
2779 /* There ought to be a place to keep ELF backend specific flags, but
2780 at the moment there isn't one. We just keep track of the
2781 sections by their name, instead. Fortunately, the ABI gives
2782 suggested names for all the MIPS specific sections, so we will
2783 probably get away with this. */
2784 switch (hdr->sh_type)
2785 {
2786 case SHT_MIPS_LIBLIST:
2787 if (strcmp (name, ".liblist") != 0)
2788 return false;
2789 break;
2790 case SHT_MIPS_MSYM:
c6142e5d 2791 if (strcmp (name, MIPS_ELF_MSYM_SECTION_NAME (abfd)) != 0)
252b5132
RH		 2792 return false;
2793 break;
2794 case SHT_MIPS_CONFLICT:
2795 if (strcmp (name, ".conflict") != 0)
2796 return false;
2797 break;
2798 case SHT_MIPS_GPTAB:
2799 if (strncmp (name, ".gptab.", sizeof ".gptab." - 1) != 0)
2800 return false;
2801 break;
2802 case SHT_MIPS_UCODE:
2803 if (strcmp (name, ".ucode") != 0)
2804 return false;
2805 break;
2806 case SHT_MIPS_DEBUG:
2807 if (strcmp (name, ".mdebug") != 0)
2808 return false;
2809 flags = SEC_DEBUGGING;
2810 break;
2811 case SHT_MIPS_REGINFO:
2812 if (strcmp (name, ".reginfo") != 0
2813 || hdr->sh_size != sizeof (Elf32_External_RegInfo))
2814 return false;
2815 flags = (SEC_LINK_ONCE | SEC_LINK_DUPLICATES_SAME_SIZE);
2816 break;
2817 case SHT_MIPS_IFACE:
2818 if (strcmp (name, ".MIPS.interfaces") != 0)
2819 return false;
2820 break;
2821 case SHT_MIPS_CONTENT:
2822 if (strncmp (name, ".MIPS.content", sizeof ".MIPS.content" - 1) != 0)
2823 return false;
2824 break;
2825 case SHT_MIPS_OPTIONS:
303f629d 2826 if (strcmp (name, MIPS_ELF_OPTIONS_SECTION_NAME (abfd)) != 0)
252b5132
RH		 2827 return false;
2828 break;
2829 case SHT_MIPS_DWARF:
2830 if (strncmp (name, ".debug_", sizeof ".debug_" - 1) != 0)
2831 return false;
2832 break;
2833 case SHT_MIPS_SYMBOL_LIB:
2834 if (strcmp (name, ".MIPS.symlib") != 0)
2835 return false;
2836 break;
2837 case SHT_MIPS_EVENTS:
2838 if (strncmp (name, ".MIPS.events", sizeof ".MIPS.events" - 1) != 0
2839 && strncmp (name, ".MIPS.post_rel",
2840 sizeof ".MIPS.post_rel" - 1) != 0)
2841 return false;
2842 break;
2843 default:
2844 return false;
2845 }
2846
2847 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name))
2848 return false;
2849
2850 if (flags)
2851 {
2852 if (! bfd_set_section_flags (abfd, hdr->bfd_section,
2853 (bfd_get_section_flags (abfd,
2854 hdr->bfd_section)
2855 | flags)))
2856 return false;
2857 }
2858
252b5132
RH		 2859 /* FIXME: We should record sh_info for a .gptab section. */
2860
2861 /* For a .reginfo section, set the gp value in the tdata information
2862 from the contents of this section. We need the gp value while
2863 processing relocs, so we just get it now. The .reginfo section
2864 is not used in the 64-bit MIPS ELF ABI. */
2865 if (hdr->sh_type == SHT_MIPS_REGINFO)
2866 {
2867 Elf32_External_RegInfo ext;
2868 Elf32_RegInfo s;
2869
2870 if (! bfd_get_section_contents (abfd, hdr->bfd_section, (PTR) &ext,
2871 (file_ptr) 0, sizeof ext))
2872 return false;
2873 bfd_mips_elf32_swap_reginfo_in (abfd, &ext, &s);
2874 elf_gp (abfd) = s.ri_gp_value;
2875 }
2876
2877 /* For a SHT_MIPS_OPTIONS section, look for a ODK_REGINFO entry, and
2878 set the gp value based on what we find. We may see both
2879 SHT_MIPS_REGINFO and SHT_MIPS_OPTIONS/ODK_REGINFO; in that case,
2880 they should agree. */
2881 if (hdr->sh_type == SHT_MIPS_OPTIONS)
2882 {
2883 bfd_byte *contents, *l, *lend;
2884
2885 contents = (bfd_byte *) bfd_malloc (hdr->sh_size);
2886 if (contents == NULL)
2887 return false;
2888 if (! bfd_get_section_contents (abfd, hdr->bfd_section, contents,
2889 (file_ptr) 0, hdr->sh_size))
2890 {
2891 free (contents);
2892 return false;
2893 }
2894 l = contents;
2895 lend = contents + hdr->sh_size;
2896 while (l + sizeof (Elf_External_Options) <= lend)
2897 {
2898 Elf_Internal_Options intopt;
2899
2900 bfd_mips_elf_swap_options_in (abfd, (Elf_External_Options *) l,
2901 &intopt);
103186c6
MM		 2902 if (ABI_64_P (abfd) && intopt.kind == ODK_REGINFO)
2903 {
2904 Elf64_Internal_RegInfo intreg;
2905
2906 bfd_mips_elf64_swap_reginfo_in
2907 (abfd,
2908 ((Elf64_External_RegInfo *)
2909 (l + sizeof (Elf_External_Options))),
2910 &intreg);
2911 elf_gp (abfd) = intreg.ri_gp_value;
2912 }
2913 else if (intopt.kind == ODK_REGINFO)
252b5132
RH		 2914 {
2915 Elf32_RegInfo intreg;
2916
2917 bfd_mips_elf32_swap_reginfo_in
2918 (abfd,
2919 ((Elf32_External_RegInfo *)
2920 (l + sizeof (Elf_External_Options))),
2921 &intreg);
2922 elf_gp (abfd) = intreg.ri_gp_value;
2923 }
2924 l += intopt.size;
2925 }
2926 free (contents);
2927 }
2928
2929 return true;
2930}
2931
2932/* Set the correct type for a MIPS ELF section. We do this by the
2933 section name, which is a hack, but ought to work. This routine is
2934 used by both the 32-bit and the 64-bit ABI. */
2935
2936boolean
2937_bfd_mips_elf_fake_sections (abfd, hdr, sec)
2938 bfd *abfd;
2939 Elf32_Internal_Shdr *hdr;
2940 asection *sec;
2941{
2942 register const char *name;
2943
2944 name = bfd_get_section_name (abfd, sec);
2945
2946 if (strcmp (name, ".liblist") == 0)
2947 {
2948 hdr->sh_type = SHT_MIPS_LIBLIST;
2949 hdr->sh_info = sec->_raw_size / sizeof (Elf32_Lib);
2950 /* The sh_link field is set in final_write_processing. */
2951 }
252b5132
RH		 2952 else if (strcmp (name, ".conflict") == 0)
2953 hdr->sh_type = SHT_MIPS_CONFLICT;
2954 else if (strncmp (name, ".gptab.", sizeof ".gptab." - 1) == 0)
2955 {
2956 hdr->sh_type = SHT_MIPS_GPTAB;
2957 hdr->sh_entsize = sizeof (Elf32_External_gptab);
2958 /* The sh_info field is set in final_write_processing. */
2959 }
2960 else if (strcmp (name, ".ucode") == 0)
2961 hdr->sh_type = SHT_MIPS_UCODE;
2962 else if (strcmp (name, ".mdebug") == 0)
2963 {
2964 hdr->sh_type = SHT_MIPS_DEBUG;
2965 /* In a shared object on Irix 5.3, the .mdebug section has an
2966 entsize of 0. FIXME: Does this matter? */
2967 if (SGI_COMPAT (abfd) && (abfd->flags & DYNAMIC) != 0)
2968 hdr->sh_entsize = 0;
2969 else
2970 hdr->sh_entsize = 1;
2971 }
2972 else if (strcmp (name, ".reginfo") == 0)
2973 {
2974 hdr->sh_type = SHT_MIPS_REGINFO;
2975 /* In a shared object on Irix 5.3, the .reginfo section has an
2976 entsize of 0x18. FIXME: Does this matter? */
f7cb7d68 2977 if (SGI_COMPAT (abfd))
be3ccd9c
KH		 2978 {
2979 if ((abfd->flags & DYNAMIC) != 0)
2980 hdr->sh_entsize = sizeof (Elf32_External_RegInfo);
2981 else
2982 hdr->sh_entsize = 1;
2983 }
252b5132 2984 else
be3ccd9c 2985 hdr->sh_entsize = sizeof (Elf32_External_RegInfo);
252b5132
RH		 2986 }
2987 else if (SGI_COMPAT (abfd)
2988 && (strcmp (name, ".hash") == 0
2989 || strcmp (name, ".dynamic") == 0
2990 || strcmp (name, ".dynstr") == 0))
2991 {
be3ccd9c
KH		 2992 if (SGI_COMPAT (abfd))
2993 hdr->sh_entsize = 0;
252b5132
RH		 2994#if 0
2995 /* This isn't how the Irix 6 linker behaves. */
2996 hdr->sh_info = SIZEOF_MIPS_DYNSYM_SECNAMES;
2997#endif
2998 }
2999 else if (strcmp (name, ".got") == 0
303f629d 3000 || strcmp (name, MIPS_ELF_SRDATA_SECTION_NAME (abfd)) == 0
252b5132
RH		 3001 || strcmp (name, ".sdata") == 0
3002 || strcmp (name, ".sbss") == 0
3003 || strcmp (name, ".lit4") == 0
3004 || strcmp (name, ".lit8") == 0)
3005 hdr->sh_flags |= SHF_MIPS_GPREL;
3006 else if (strcmp (name, ".MIPS.interfaces") == 0)
3007 {
3008 hdr->sh_type = SHT_MIPS_IFACE;
3009 hdr->sh_flags |= SHF_MIPS_NOSTRIP;
3010 }
3f830999 3011 else if (strncmp (name, ".MIPS.content", strlen (".MIPS.content")) == 0)
252b5132
RH		 3012 {
3013 hdr->sh_type = SHT_MIPS_CONTENT;
3f830999 3014 hdr->sh_flags |= SHF_MIPS_NOSTRIP;
252b5132
RH		 3015 /* The sh_info field is set in final_write_processing. */
3016 }
303f629d 3017 else if (strcmp (name, MIPS_ELF_OPTIONS_SECTION_NAME (abfd)) == 0)
252b5132
RH		 3018 {
3019 hdr->sh_type = SHT_MIPS_OPTIONS;
3020 hdr->sh_entsize = 1;
3021 hdr->sh_flags |= SHF_MIPS_NOSTRIP;
3022 }
3023 else if (strncmp (name, ".debug_", sizeof ".debug_" - 1) == 0)
3024 hdr->sh_type = SHT_MIPS_DWARF;
3025 else if (strcmp (name, ".MIPS.symlib") == 0)
3026 {
3027 hdr->sh_type = SHT_MIPS_SYMBOL_LIB;
3028 /* The sh_link and sh_info fields are set in
3029 final_write_processing. */
3030 }
3031 else if (strncmp (name, ".MIPS.events", sizeof ".MIPS.events" - 1) == 0
3032 || strncmp (name, ".MIPS.post_rel",
3033 sizeof ".MIPS.post_rel" - 1) == 0)
3034 {
3035 hdr->sh_type = SHT_MIPS_EVENTS;
3036 hdr->sh_flags |= SHF_MIPS_NOSTRIP;
3037 /* The sh_link field is set in final_write_processing. */
3038 }
c6142e5d
MM		 3039 else if (strcmp (name, MIPS_ELF_MSYM_SECTION_NAME (abfd)) == 0)
3040 {
3041 hdr->sh_type = SHT_MIPS_MSYM;
3042 hdr->sh_flags |= SHF_ALLOC;
3043 hdr->sh_entsize = 8;
3044 }
252b5132 3045
23bc299b
MM		 3046 /* The generic elf_fake_sections will set up REL_HDR using the
3047 default kind of relocations. But, we may actually need both
3048 kinds of relocations, so we set up the second header here. */
3049 if ((sec->flags & SEC_RELOC) != 0)
3050 {
3051 struct bfd_elf_section_data *esd;
3052
3053 esd = elf_section_data (sec);
3054 BFD_ASSERT (esd->rel_hdr2 == NULL);
be3ccd9c 3055 esd->rel_hdr2
23bc299b
MM		 3056 = (Elf_Internal_Shdr *) bfd_zalloc (abfd, sizeof (Elf_Internal_Shdr));
3057 if (!esd->rel_hdr2)
3058 return false;
3059 _bfd_elf_init_reloc_shdr (abfd, esd->rel_hdr2, sec,
3060 !elf_section_data (sec)->use_rela_p);
3061 }
3062
252b5132
RH		 3063 return true;
3064}
3065
3066/* Given a BFD section, try to locate the corresponding ELF section
3067 index. This is used by both the 32-bit and the 64-bit ABI.
3068 Actually, it's not clear to me that the 64-bit ABI supports these,
3069 but for non-PIC objects we will certainly want support for at least
3070 the .scommon section. */
3071
3072boolean
3073_bfd_mips_elf_section_from_bfd_section (abfd, hdr, sec, retval)
5f771d47
ILT		 3074 bfd *abfd ATTRIBUTE_UNUSED;
3075 Elf32_Internal_Shdr *hdr ATTRIBUTE_UNUSED;
252b5132
RH		 3076 asection *sec;
3077 int *retval;
3078{
3079 if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0)
3080 {
3081 *retval = SHN_MIPS_SCOMMON;
3082 return true;
3083 }
3084 if (strcmp (bfd_get_section_name (abfd, sec), ".acommon") == 0)
3085 {
3086 *retval = SHN_MIPS_ACOMMON;
3087 return true;
3088 }
3089 return false;
3090}
3091
3092/* When are writing out the .options or .MIPS.options section,
3093 remember the bytes we are writing out, so that we can install the
3094 GP value in the section_processing routine. */
3095
3096boolean
3097_bfd_mips_elf_set_section_contents (abfd, section, location, offset, count)
3098 bfd *abfd;
3099 sec_ptr section;
3100 PTR location;
3101 file_ptr offset;
3102 bfd_size_type count;
3103{
303f629d 3104 if (strcmp (section->name, MIPS_ELF_OPTIONS_SECTION_NAME (abfd)) == 0)
252b5132
RH		 3105 {
3106 bfd_byte *c;
3107
3108 if (elf_section_data (section) == NULL)
3109 {
3110 section->used_by_bfd =
3111 (PTR) bfd_zalloc (abfd, sizeof (struct bfd_elf_section_data));
3112 if (elf_section_data (section) == NULL)
3113 return false;
3114 }
3115 c = (bfd_byte *) elf_section_data (section)->tdata;
3116 if (c == NULL)
3117 {
3118 bfd_size_type size;
3119
3120 if (section->_cooked_size != 0)
3121 size = section->_cooked_size;
3122 else
3123 size = section->_raw_size;
3124 c = (bfd_byte *) bfd_zalloc (abfd, size);
3125 if (c == NULL)
3126 return false;
3127 elf_section_data (section)->tdata = (PTR) c;
3128 }
3129
3130 memcpy (c + offset, location, count);
3131 }
3132
3133 return _bfd_elf_set_section_contents (abfd, section, location, offset,
3134 count);
3135}
3136
3137/* Work over a section just before writing it out. This routine is
3138 used by both the 32-bit and the 64-bit ABI. FIXME: We recognize
3139 sections that need the SHF_MIPS_GPREL flag by name; there has to be
3140 a better way. */
3141
3142boolean
3143_bfd_mips_elf_section_processing (abfd, hdr)
3144 bfd *abfd;
3145 Elf_Internal_Shdr *hdr;
252b5132 3146{
cc3bfcee
ILT		 3147 if (hdr->sh_type == SHT_MIPS_REGINFO
3148 && hdr->sh_size > 0)
252b5132
RH		 3149 {
3150 bfd_byte buf[4];
3151
3152 BFD_ASSERT (hdr->sh_size == sizeof (Elf32_External_RegInfo));
3153 BFD_ASSERT (hdr->contents == NULL);
3154
3155 if (bfd_seek (abfd,
3156 hdr->sh_offset + sizeof (Elf32_External_RegInfo) - 4,
3157 SEEK_SET) == -1)
3158 return false;
3159 bfd_h_put_32 (abfd, (bfd_vma) elf_gp (abfd), buf);
3160 if (bfd_write (buf, (bfd_size_type) 1, (bfd_size_type) 4, abfd) != 4)
3161 return false;
3162 }
3163
3164 if (hdr->sh_type == SHT_MIPS_OPTIONS
3165 && hdr->bfd_section != NULL
3166 && elf_section_data (hdr->bfd_section) != NULL
3167 && elf_section_data (hdr->bfd_section)->tdata != NULL)
3168 {
3169 bfd_byte *contents, *l, *lend;
3170
3171 /* We stored the section contents in the elf_section_data tdata
3172 field in the set_section_contents routine. We save the
3173 section contents so that we don't have to read them again.
3174 At this point we know that elf_gp is set, so we can look
3175 through the section contents to see if there is an
3176 ODK_REGINFO structure. */
3177
3178 contents = (bfd_byte *) elf_section_data (hdr->bfd_section)->tdata;
3179 l = contents;
3180 lend = contents + hdr->sh_size;
3181 while (l + sizeof (Elf_External_Options) <= lend)
3182 {
3183 Elf_Internal_Options intopt;
3184
3185 bfd_mips_elf_swap_options_in (abfd, (Elf_External_Options *) l,
3186 &intopt);
103186c6
MM		 3187 if (ABI_64_P (abfd) && intopt.kind == ODK_REGINFO)
3188 {
3189 bfd_byte buf[8];
3190
3191 if (bfd_seek (abfd,
3192 (hdr->sh_offset
3193 + (l - contents)
3194 + sizeof (Elf_External_Options)
3195 + (sizeof (Elf64_External_RegInfo) - 8)),
3196 SEEK_SET) == -1)
3197 return false;
3198 bfd_h_put_64 (abfd, elf_gp (abfd), buf);
3199 if (bfd_write (buf, 1, 8, abfd) != 8)
3200 return false;
3201 }
3202 else if (intopt.kind == ODK_REGINFO)
252b5132
RH		 3203 {
3204 bfd_byte buf[4];
3205
3206 if (bfd_seek (abfd,
3207 (hdr->sh_offset
3208 + (l - contents)
3209 + sizeof (Elf_External_Options)
3210 + (sizeof (Elf32_External_RegInfo) - 4)),
be3ccd9c 3211 SEEK_SET) == -1)
252b5132
RH		 3212 return false;
3213 bfd_h_put_32 (abfd, elf_gp (abfd), buf);
3214 if (bfd_write (buf, 1, 4, abfd) != 4)
3215 return false;
3216 }
3217 l += intopt.size;
3218 }
3219 }
3220
103186c6
MM		 3221 if (hdr->bfd_section != NULL)
3222 {
3223 const char *name = bfd_get_section_name (abfd, hdr->bfd_section);
3224
3225 if (strcmp (name, ".sdata") == 0
3226 || strcmp (name, ".lit8") == 0
3227 || strcmp (name, ".lit4") == 0)
3228 {
3229 hdr->sh_flags |= SHF_ALLOC | SHF_WRITE | SHF_MIPS_GPREL;
3230 hdr->sh_type = SHT_PROGBITS;
3231 }
3232 else if (strcmp (name, ".sbss") == 0)
3233 {
3234 hdr->sh_flags |= SHF_ALLOC | SHF_WRITE | SHF_MIPS_GPREL;
3235 hdr->sh_type = SHT_NOBITS;
3236 }
3237 else if (strcmp (name, MIPS_ELF_SRDATA_SECTION_NAME (abfd)) == 0)
3238 {
3239 hdr->sh_flags |= SHF_ALLOC | SHF_MIPS_GPREL;
3240 hdr->sh_type = SHT_PROGBITS;
3241 }
3242 else if (strcmp (name, ".compact_rel") == 0)
3243 {
3244 hdr->sh_flags = 0;
3245 hdr->sh_type = SHT_PROGBITS;
3246 }
3247 else if (strcmp (name, ".rtproc") == 0)
3248 {
3249 if (hdr->sh_addralign != 0 && hdr->sh_entsize == 0)
3250 {
3251 unsigned int adjust;
3252
3253 adjust = hdr->sh_size % hdr->sh_addralign;
3254 if (adjust != 0)
3255 hdr->sh_size += hdr->sh_addralign - adjust;
3256 }
3257 }
3258 }
3259
3260 return true;
252b5132
RH		 3261}
3262\f
3263/* MIPS ELF uses two common sections. One is the usual one, and the
3264 other is for small objects. All the small objects are kept
3265 together, and then referenced via the gp pointer, which yields
3266 faster assembler code. This is what we use for the small common
3267 section. This approach is copied from ecoff.c. */
3268static asection mips_elf_scom_section;
3269static asymbol mips_elf_scom_symbol;
3270static asymbol *mips_elf_scom_symbol_ptr;
3271
3272/* MIPS ELF also uses an acommon section, which represents an
3273 allocated common symbol which may be overridden by a
3274 definition in a shared library. */
3275static asection mips_elf_acom_section;
3276static asymbol mips_elf_acom_symbol;
3277static asymbol *mips_elf_acom_symbol_ptr;
3278
252b5132
RH		 3279/* Handle the special MIPS section numbers that a symbol may use.
3280 This is used for both the 32-bit and the 64-bit ABI. */
3281
3282void
3283_bfd_mips_elf_symbol_processing (abfd, asym)
3284 bfd *abfd;
3285 asymbol *asym;
3286{
3287 elf_symbol_type *elfsym;
3288
3289 elfsym = (elf_symbol_type *) asym;
3290 switch (elfsym->internal_elf_sym.st_shndx)
3291 {
3292 case SHN_MIPS_ACOMMON:
3293 /* This section is used in a dynamically linked executable file.
3294 It is an allocated common section. The dynamic linker can
3295 either resolve these symbols to something in a shared
3296 library, or it can just leave them here. For our purposes,
3297 we can consider these symbols to be in a new section. */
3298 if (mips_elf_acom_section.name == NULL)
3299 {
3300 /* Initialize the acommon section. */
3301 mips_elf_acom_section.name = ".acommon";
3302 mips_elf_acom_section.flags = SEC_ALLOC;
3303 mips_elf_acom_section.output_section = &mips_elf_acom_section;
3304 mips_elf_acom_section.symbol = &mips_elf_acom_symbol;
3305 mips_elf_acom_section.symbol_ptr_ptr = &mips_elf_acom_symbol_ptr;
3306 mips_elf_acom_symbol.name = ".acommon";
3307 mips_elf_acom_symbol.flags = BSF_SECTION_SYM;
3308 mips_elf_acom_symbol.section = &mips_elf_acom_section;
3309 mips_elf_acom_symbol_ptr = &mips_elf_acom_symbol;
3310 }
3311 asym->section = &mips_elf_acom_section;
3312 break;
3313
3314 case SHN_COMMON:
3315 /* Common symbols less than the GP size are automatically
7403cb63
MM		 3316 treated as SHN_MIPS_SCOMMON symbols on IRIX5. */
3317 if (asym->value > elf_gp_size (abfd)
3318 || IRIX_COMPAT (abfd) == ict_irix6)
252b5132
RH		 3319 break;
3320 /* Fall through. */
3321 case SHN_MIPS_SCOMMON:
3322 if (mips_elf_scom_section.name == NULL)
3323 {
3324 /* Initialize the small common section. */
3325 mips_elf_scom_section.name = ".scommon";
3326 mips_elf_scom_section.flags = SEC_IS_COMMON;
3327 mips_elf_scom_section.output_section = &mips_elf_scom_section;
3328 mips_elf_scom_section.symbol = &mips_elf_scom_symbol;
3329 mips_elf_scom_section.symbol_ptr_ptr = &mips_elf_scom_symbol_ptr;
3330 mips_elf_scom_symbol.name = ".scommon";
3331 mips_elf_scom_symbol.flags = BSF_SECTION_SYM;
3332 mips_elf_scom_symbol.section = &mips_elf_scom_section;
3333 mips_elf_scom_symbol_ptr = &mips_elf_scom_symbol;
3334 }
3335 asym->section = &mips_elf_scom_section;
3336 asym->value = elfsym->internal_elf_sym.st_size;
3337 break;
3338
3339 case SHN_MIPS_SUNDEFINED:
3340 asym->section = bfd_und_section_ptr;
3341 break;
3342
3343#if 0 /* for SGI_COMPAT */
3344 case SHN_MIPS_TEXT:
3345 asym->section = mips_elf_text_section_ptr;
3346 break;
3347
3348 case SHN_MIPS_DATA:
3349 asym->section = mips_elf_data_section_ptr;
3350 break;
3351#endif
3352 }
3353}
3354\f
3355/* When creating an Irix 5 executable, we need REGINFO and RTPROC
3356 segments. */
3357
103186c6
MM		 3358int
3359_bfd_mips_elf_additional_program_headers (abfd)
252b5132
RH		 3360 bfd *abfd;
3361{
3362 asection *s;
303f629d 3363 int ret = 0;
252b5132 3364
303f629d 3365 /* See if we need a PT_MIPS_REGINFO segment. */
252b5132 3366 s = bfd_get_section_by_name (abfd, ".reginfo");
303f629d
MM		 3367 if (s && (s->flags & SEC_LOAD))
3368 ++ret;
252b5132 3369
303f629d
MM		 3370 /* See if we need a PT_MIPS_OPTIONS segment. */
3371 if (IRIX_COMPAT (abfd) == ict_irix6
be3ccd9c 3372 && bfd_get_section_by_name (abfd,
303f629d
MM		 3373 MIPS_ELF_OPTIONS_SECTION_NAME (abfd)))
3374 ++ret;
3375
3376 /* See if we need a PT_MIPS_RTPROC segment. */
3377 if (IRIX_COMPAT (abfd) == ict_irix5
3378 && bfd_get_section_by_name (abfd, ".dynamic")
3379 && bfd_get_section_by_name (abfd, ".mdebug"))
3380 ++ret;
252b5132
RH		 3381
3382 return ret;
3383}
3384
3385/* Modify the segment map for an Irix 5 executable. */
3386
103186c6
MM		 3387boolean
3388_bfd_mips_elf_modify_segment_map (abfd)
252b5132
RH		 3389 bfd *abfd;
3390{
3391 asection *s;
3392 struct elf_segment_map *m, **pm;
3393
252b5132
RH		 3394 /* If there is a .reginfo section, we need a PT_MIPS_REGINFO
3395 segment. */
3396 s = bfd_get_section_by_name (abfd, ".reginfo");
3397 if (s != NULL && (s->flags & SEC_LOAD) != 0)
3398 {
3399 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
3400 if (m->p_type == PT_MIPS_REGINFO)
3401 break;
3402 if (m == NULL)
3403 {
3404 m = (struct elf_segment_map *) bfd_zalloc (abfd, sizeof *m);
3405 if (m == NULL)
3406 return false;
3407
3408 m->p_type = PT_MIPS_REGINFO;
3409 m->count = 1;
3410 m->sections[0] = s;
3411
3412 /* We want to put it after the PHDR and INTERP segments. */
3413 pm = &elf_tdata (abfd)->segment_map;
3414 while (*pm != NULL
3415 && ((*pm)->p_type == PT_PHDR
3416 || (*pm)->p_type == PT_INTERP))
3417 pm = &(*pm)->next;
3418
3419 m->next = *pm;
3420 *pm = m;
3421 }
3422 }
3423
303f629d
MM		 3424 /* For IRIX 6, we don't have .mdebug sections, nor does anything but
3425 .dynamic end up in PT_DYNAMIC. However, we do have to insert a
3426 PT_OPTIONS segement immediately following the program header
3427 table. */
3428 if (IRIX_COMPAT (abfd) == ict_irix6)
252b5132 3429 {
303f629d
MM		 3430 asection *s;
3431
3432 for (s = abfd->sections; s; s = s->next)
3433 if (elf_section_data (s)->this_hdr.sh_type == SHT_MIPS_OPTIONS)
252b5132 3434 break;
303f629d
MM		 3435
3436 if (s)
252b5132 3437 {
303f629d
MM		 3438 struct elf_segment_map *options_segment;
3439
435394bf
MM		 3440 /* Usually, there's a program header table. But, sometimes
3441 there's not (like when running the `ld' testsuite). So,
3442 if there's no program header table, we just put the
3443 options segement at the end. */
be3ccd9c 3444 for (pm = &elf_tdata (abfd)->segment_map;
435394bf
MM		 3445 *pm != NULL;
3446 pm = &(*pm)->next)
3447 if ((*pm)->p_type == PT_PHDR)
303f629d
MM		 3448 break;
3449
be3ccd9c 3450 options_segment = bfd_zalloc (abfd,
303f629d 3451 sizeof (struct elf_segment_map));
435394bf 3452 options_segment->next = *pm;
303f629d
MM		 3453 options_segment->p_type = PT_MIPS_OPTIONS;
3454 options_segment->p_flags = PF_R;
3455 options_segment->p_flags_valid = true;
3456 options_segment->count = 1;
3457 options_segment->sections[0] = s;
435394bf 3458 *pm = options_segment;
303f629d
MM		 3459 }
3460 }
3461 else
3462 {
f7cb7d68 3463 if (IRIX_COMPAT (abfd) == ict_irix5)
303f629d 3464 {
f7cb7d68
UC		 3465 /* If there are .dynamic and .mdebug sections, we make a room
3466 for the RTPROC header. FIXME: Rewrite without section names. */
3467 if (bfd_get_section_by_name (abfd, ".interp") == NULL
3468 && bfd_get_section_by_name (abfd, ".dynamic") != NULL
3469 && bfd_get_section_by_name (abfd, ".mdebug") != NULL)
252b5132 3470 {
f7cb7d68
UC		 3471 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
3472 if (m->p_type == PT_MIPS_RTPROC)
3473 break;
303f629d 3474 if (m == NULL)
f7cb7d68
UC		 3475 {
3476 m = (struct elf_segment_map *) bfd_zalloc (abfd, sizeof *m);
3477 if (m == NULL)
3478 return false;
252b5132 3479
f7cb7d68 3480 m->p_type = PT_MIPS_RTPROC;
252b5132 3481
f7cb7d68
UC		 3482 s = bfd_get_section_by_name (abfd, ".rtproc");
3483 if (s == NULL)
3484 {
3485 m->count = 0;
3486 m->p_flags = 0;
3487 m->p_flags_valid = 1;
3488 }
3489 else
3490 {
3491 m->count = 1;
3492 m->sections[0] = s;
3493 }
303f629d 3494
f7cb7d68
UC		 3495 /* We want to put it after the DYNAMIC segment. */
3496 pm = &elf_tdata (abfd)->segment_map;
3497 while (*pm != NULL && (*pm)->p_type != PT_DYNAMIC)
3498 pm = &(*pm)->next;
3499 if (*pm != NULL)
3500 pm = &(*pm)->next;
303f629d 3501
f7cb7d68
UC		 3502 m->next = *pm;
3503 *pm = m;
3504 }
303f629d 3505 }
252b5132 3506 }
303f629d
MM		 3507 /* On Irix 5, the PT_DYNAMIC segment includes the .dynamic,
3508 .dynstr, .dynsym, and .hash sections, and everything in
3509 between. */
f7cb7d68
UC		 3510 for (pm = &elf_tdata (abfd)->segment_map; *pm != NULL;
3511 pm = &(*pm)->next)
303f629d
MM		 3512 if ((*pm)->p_type == PT_DYNAMIC)
3513 break;
3514 m = *pm;
f7cb7d68
UC		 3515 if (IRIX_COMPAT (abfd) == ict_none)
3516 {
3517 /* For a normal mips executable the permissions for the PT_DYNAMIC
3518 segment are read, write and execute. We do that here since
3519 the code in elf.c sets only the read permission. This matters
be3ccd9c 3520 sometimes for the dynamic linker. */
f7cb7d68
UC		 3521 if (bfd_get_section_by_name (abfd, ".dynamic") != NULL)
3522 {
3523 m->p_flags = PF_R | PF_W | PF_X;
3524 m->p_flags_valid = 1;
3525 }
3526 }
303f629d 3527 if (m != NULL
f7cb7d68 3528 && m->count == 1 && strcmp (m->sections[0]->name, ".dynamic") == 0)
252b5132 3529 {
38b1a46c
NC		 3530 static const char *sec_names[] =
3531 {
be3ccd9c
KH		 3532 ".dynamic", ".dynstr", ".dynsym", ".hash"
3533 };
303f629d
MM		 3534 bfd_vma low, high;
3535 unsigned int i, c;
3536 struct elf_segment_map *n;
3537
3538 low = 0xffffffff;
3539 high = 0;
3540 for (i = 0; i < sizeof sec_names / sizeof sec_names[0]; i++)
252b5132 3541 {
303f629d
MM		 3542 s = bfd_get_section_by_name (abfd, sec_names[i]);
3543 if (s != NULL && (s->flags & SEC_LOAD) != 0)
3544 {
3545 bfd_size_type sz;
3546
3547 if (low > s->vma)
3548 low = s->vma;
3549 sz = s->_cooked_size;
3550 if (sz == 0)
3551 sz = s->_raw_size;
3552 if (high < s->vma + sz)
3553 high = s->vma + sz;
3554 }
252b5132 3555 }
252b5132 3556
303f629d
MM		 3557 c = 0;
3558 for (s = abfd->sections; s != NULL; s = s->next)
3559 if ((s->flags & SEC_LOAD) != 0
3560 && s->vma >= low
3561 && ((s->vma
f7cb7d68
UC		 3562 + (s->_cooked_size !=
3563 0 ? s->_cooked_size : s->_raw_size)) <= high))
303f629d
MM		 3564 ++c;
3565
3566 n = ((struct elf_segment_map *)
3567 bfd_zalloc (abfd, sizeof *n + (c - 1) * sizeof (asection *)));
3568 if (n == NULL)
3569 return false;
3570 *n = *m;
3571 n->count = c;
252b5132 3572
303f629d
MM		 3573 i = 0;
3574 for (s = abfd->sections; s != NULL; s = s->next)
252b5132 3575 {
303f629d
MM		 3576 if ((s->flags & SEC_LOAD) != 0
3577 && s->vma >= low
3578 && ((s->vma
3579 + (s->_cooked_size != 0 ?
f7cb7d68 3580 s->_cooked_size : s->_raw_size)) <= high))
303f629d
MM		 3581 {
3582 n->sections[i] = s;
3583 ++i;
3584 }
252b5132 3585 }
252b5132 3586
303f629d
MM		 3587 *pm = n;
3588 }
252b5132
RH		 3589 }
3590
3591 return true;
3592}
3593\f
3594/* The structure of the runtime procedure descriptor created by the
3595 loader for use by the static exception system. */
3596
3597typedef struct runtime_pdr {
3598 bfd_vma adr; /* memory address of start of procedure */
3599 long regmask; /* save register mask */
3600 long regoffset; /* save register offset */
3601 long fregmask; /* save floating point register mask */
3602 long fregoffset; /* save floating point register offset */
3603 long frameoffset; /* frame size */
3604 short framereg; /* frame pointer register */
3605 short pcreg; /* offset or reg of return pc */
3606 long irpss; /* index into the runtime string table */
3607 long reserved;
3608 struct exception_info *exception_info;/* pointer to exception array */
3609} RPDR, *pRPDR;
be3ccd9c 3610#define cbRPDR sizeof (RPDR)
252b5132
RH		 3611#define rpdNil ((pRPDR) 0)
3612
3613/* Swap RPDR (runtime procedure table entry) for output. */
3614
3615static void ecoff_swap_rpdr_out
3616 PARAMS ((bfd *, const RPDR *, struct rpdr_ext *));
3617
3618static void
3619ecoff_swap_rpdr_out (abfd, in, ex)
3620 bfd *abfd;
3621 const RPDR *in;
3622 struct rpdr_ext *ex;
3623{
3624 /* ecoff_put_off was defined in ecoffswap.h. */
3625 ecoff_put_off (abfd, in->adr, (bfd_byte *) ex->p_adr);
3626 bfd_h_put_32 (abfd, in->regmask, (bfd_byte *) ex->p_regmask);
3627 bfd_h_put_32 (abfd, in->regoffset, (bfd_byte *) ex->p_regoffset);
3628 bfd_h_put_32 (abfd, in->fregmask, (bfd_byte *) ex->p_fregmask);
3629 bfd_h_put_32 (abfd, in->fregoffset, (bfd_byte *) ex->p_fregoffset);
3630 bfd_h_put_32 (abfd, in->frameoffset, (bfd_byte *) ex->p_frameoffset);
3631
3632 bfd_h_put_16 (abfd, in->framereg, (bfd_byte *) ex->p_framereg);
3633 bfd_h_put_16 (abfd, in->pcreg, (bfd_byte *) ex->p_pcreg);
3634
3635 bfd_h_put_32 (abfd, in->irpss, (bfd_byte *) ex->p_irpss);
3636#if 0 /* FIXME */
3637 ecoff_put_off (abfd, in->exception_info, (bfd_byte *) ex->p_exception_info);
3638#endif
3639}
3640\f
3641/* Read ECOFF debugging information from a .mdebug section into a
3642 ecoff_debug_info structure. */
3643
3644boolean
3645_bfd_mips_elf_read_ecoff_info (abfd, section, debug)
3646 bfd *abfd;
3647 asection *section;
3648 struct ecoff_debug_info *debug;
3649{
3650 HDRR *symhdr;
3651 const struct ecoff_debug_swap *swap;
3652 char *ext_hdr = NULL;
3653
3654 swap = get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap;
be3ccd9c 3655 memset (debug, 0, sizeof (*debug));
252b5132
RH		 3656
3657 ext_hdr = (char *) bfd_malloc ((size_t) swap->external_hdr_size);
3658 if (ext_hdr == NULL && swap->external_hdr_size != 0)
3659 goto error_return;
3660
3661 if (bfd_get_section_contents (abfd, section, ext_hdr, (file_ptr) 0,
3662 swap->external_hdr_size)
3663 == false)
3664 goto error_return;
3665
3666 symhdr = &debug->symbolic_header;
3667 (*swap->swap_hdr_in) (abfd, ext_hdr, symhdr);
3668
3669 /* The symbolic header contains absolute file offsets and sizes to
3670 read. */
3671#define READ(ptr, offset, count, size, type) \
3672 if (symhdr->count == 0) \
3673 debug->ptr = NULL; \
3674 else \
3675 { \
3676 debug->ptr = (type) bfd_malloc ((size_t) (size * symhdr->count)); \
3677 if (debug->ptr == NULL) \
3678 goto error_return; \
3679 if (bfd_seek (abfd, (file_ptr) symhdr->offset, SEEK_SET) != 0 \
3680 || (bfd_read (debug->ptr, size, symhdr->count, \
3681 abfd) != size * symhdr->count)) \
3682 goto error_return; \
3683 }
3684
3685 READ (line, cbLineOffset, cbLine, sizeof (unsigned char), unsigned char *);
3686 READ (external_dnr, cbDnOffset, idnMax, swap->external_dnr_size, PTR);
3687 READ (external_pdr, cbPdOffset, ipdMax, swap->external_pdr_size, PTR);
3688 READ (external_sym, cbSymOffset, isymMax, swap->external_sym_size, PTR);
3689 READ (external_opt, cbOptOffset, ioptMax, swap->external_opt_size, PTR);
3690 READ (external_aux, cbAuxOffset, iauxMax, sizeof (union aux_ext),
3691 union aux_ext *);
3692 READ (ss, cbSsOffset, issMax, sizeof (char), char *);
3693 READ (ssext, cbSsExtOffset, issExtMax, sizeof (char), char *);
3694 READ (external_fdr, cbFdOffset, ifdMax, swap->external_fdr_size, PTR);
3695 READ (external_rfd, cbRfdOffset, crfd, swap->external_rfd_size, PTR);
3696 READ (external_ext, cbExtOffset, iextMax, swap->external_ext_size, PTR);
3697#undef READ
3698
3699 debug->fdr = NULL;
3700 debug->adjust = NULL;
3701
3702 return true;
3703
3704 error_return:
3705 if (ext_hdr != NULL)
3706 free (ext_hdr);
3707 if (debug->line != NULL)
3708 free (debug->line);
3709 if (debug->external_dnr != NULL)
3710 free (debug->external_dnr);
3711 if (debug->external_pdr != NULL)
3712 free (debug->external_pdr);
3713 if (debug->external_sym != NULL)
3714 free (debug->external_sym);
3715 if (debug->external_opt != NULL)
3716 free (debug->external_opt);
3717 if (debug->external_aux != NULL)
3718 free (debug->external_aux);
3719 if (debug->ss != NULL)
3720 free (debug->ss);
3721 if (debug->ssext != NULL)
3722 free (debug->ssext);
3723 if (debug->external_fdr != NULL)
3724 free (debug->external_fdr);
3725 if (debug->external_rfd != NULL)
3726 free (debug->external_rfd);
3727 if (debug->external_ext != NULL)
3728 free (debug->external_ext);
3729 return false;
3730}
3731\f
3732/* MIPS ELF local labels start with '$', not 'L'. */
3733
252b5132
RH		 3734static boolean
3735mips_elf_is_local_label_name (abfd, name)
3736 bfd *abfd;
3737 const char *name;
3738{
3739 if (name[0] == '$')
3740 return true;
3741
3742 /* On Irix 6, the labels go back to starting with '.', so we accept
3743 the generic ELF local label syntax as well. */
3744 return _bfd_elf_is_local_label_name (abfd, name);
3745}
3746
3747/* MIPS ELF uses a special find_nearest_line routine in order the
3748 handle the ECOFF debugging information. */
3749
38b1a46c
NC		 3750struct mips_elf_find_line
3751{
252b5132
RH		 3752 struct ecoff_debug_info d;
3753 struct ecoff_find_line i;
3754};
3755
3756boolean
3757_bfd_mips_elf_find_nearest_line (abfd, section, symbols, offset, filename_ptr,
3758 functionname_ptr, line_ptr)
3759 bfd *abfd;
3760 asection *section;
3761 asymbol **symbols;
3762 bfd_vma offset;
3763 const char **filename_ptr;
3764 const char **functionname_ptr;
3765 unsigned int *line_ptr;
3766{
3767 asection *msec;
3768
3769 if (_bfd_dwarf1_find_nearest_line (abfd, section, symbols, offset,
3770 filename_ptr, functionname_ptr,
3771 line_ptr))
3772 return true;
3773
3774 if (_bfd_dwarf2_find_nearest_line (abfd, section, symbols, offset,
3775 filename_ptr, functionname_ptr,
be3ccd9c 3776 line_ptr,
857ec808
NC		 3777 ABI_64_P (abfd) ? 8 : 0,
3778 &elf_tdata (abfd)->dwarf2_find_line_info))
252b5132
RH		 3779 return true;
3780
3781 msec = bfd_get_section_by_name (abfd, ".mdebug");
3782 if (msec != NULL)
3783 {
3784 flagword origflags;
3785 struct mips_elf_find_line *fi;
3786 const struct ecoff_debug_swap * const swap =
3787 get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap;
3788
3789 /* If we are called during a link, mips_elf_final_link may have
3790 cleared the SEC_HAS_CONTENTS field. We force it back on here
3791 if appropriate (which it normally will be). */
3792 origflags = msec->flags;
3793 if (elf_section_data (msec)->this_hdr.sh_type != SHT_NOBITS)
3794 msec->flags |= SEC_HAS_CONTENTS;
3795
3796 fi = elf_tdata (abfd)->find_line_info;
3797 if (fi == NULL)
3798 {
3799 bfd_size_type external_fdr_size;
3800 char *fraw_src;
3801 char *fraw_end;
3802 struct fdr *fdr_ptr;
3803
3804 fi = ((struct mips_elf_find_line *)
3805 bfd_zalloc (abfd, sizeof (struct mips_elf_find_line)));
3806 if (fi == NULL)
3807 {
3808 msec->flags = origflags;
3809 return false;
3810 }
3811
3812 if (! _bfd_mips_elf_read_ecoff_info (abfd, msec, &fi->d))
3813 {
3814 msec->flags = origflags;
3815 return false;
3816 }
3817
3818 /* Swap in the FDR information. */
3819 fi->d.fdr = ((struct fdr *)
3820 bfd_alloc (abfd,
3821 (fi->d.symbolic_header.ifdMax *
3822 sizeof (struct fdr))));
3823 if (fi->d.fdr == NULL)
3824 {
3825 msec->flags = origflags;
3826 return false;
3827 }
3828 external_fdr_size = swap->external_fdr_size;
3829 fdr_ptr = fi->d.fdr;
3830 fraw_src = (char *) fi->d.external_fdr;
3831 fraw_end = (fraw_src
3832 + fi->d.symbolic_header.ifdMax * external_fdr_size);
3833 for (; fraw_src < fraw_end; fraw_src += external_fdr_size, fdr_ptr++)
3834 (*swap->swap_fdr_in) (abfd, (PTR) fraw_src, fdr_ptr);
3835
3836 elf_tdata (abfd)->find_line_info = fi;
3837
3838 /* Note that we don't bother to ever free this information.
3839 find_nearest_line is either called all the time, as in
3840 objdump -l, so the information should be saved, or it is
3841 rarely called, as in ld error messages, so the memory
3842 wasted is unimportant. Still, it would probably be a
3843 good idea for free_cached_info to throw it away. */
3844 }
3845
3846 if (_bfd_ecoff_locate_line (abfd, section, offset, &fi->d, swap,
3847 &fi->i, filename_ptr, functionname_ptr,
3848 line_ptr))
3849 {
3850 msec->flags = origflags;
3851 return true;
3852 }
3853
3854 msec->flags = origflags;
3855 }
3856
3857 /* Fall back on the generic ELF find_nearest_line routine. */
3858
3859 return _bfd_elf_find_nearest_line (abfd, section, symbols, offset,
3860 filename_ptr, functionname_ptr,
3861 line_ptr);
3862}
3863\f
3864 /* The mips16 compiler uses a couple of special sections to handle
3865 floating point arguments.
3866
3867 Section names that look like .mips16.fn.FNNAME contain stubs that
3868 copy floating point arguments from the fp regs to the gp regs and
3869 then jump to FNNAME. If any 32 bit function calls FNNAME, the
3870 call should be redirected to the stub instead. If no 32 bit
3871 function calls FNNAME, the stub should be discarded. We need to
3872 consider any reference to the function, not just a call, because
3873 if the address of the function is taken we will need the stub,
3874 since the address might be passed to a 32 bit function.
3875
3876 Section names that look like .mips16.call.FNNAME contain stubs
3877 that copy floating point arguments from the gp regs to the fp
3878 regs and then jump to FNNAME. If FNNAME is a 32 bit function,
3879 then any 16 bit function that calls FNNAME should be redirected
3880 to the stub instead. If FNNAME is not a 32 bit function, the
3881 stub should be discarded.
3882
3883 .mips16.call.fp.FNNAME sections are similar, but contain stubs
3884 which call FNNAME and then copy the return value from the fp regs
3885 to the gp regs. These stubs store the return value in $18 while
3886 calling FNNAME; any function which might call one of these stubs
3887 must arrange to save $18 around the call. (This case is not
3888 needed for 32 bit functions that call 16 bit functions, because
3889 16 bit functions always return floating point values in both
3890 $f0/$f1 and $2/$3.)
3891
3892 Note that in all cases FNNAME might be defined statically.
3893 Therefore, FNNAME is not used literally. Instead, the relocation
3894 information will indicate which symbol the section is for.
3895
3896 We record any stubs that we find in the symbol table. */
3897
3898#define FN_STUB ".mips16.fn."
3899#define CALL_STUB ".mips16.call."
3900#define CALL_FP_STUB ".mips16.call.fp."
3901
252b5132
RH		 3902/* MIPS ELF linker hash table. */
3903
38b1a46c
NC		 3904struct mips_elf_link_hash_table
3905{
252b5132
RH		 3906 struct elf_link_hash_table root;
3907#if 0
3908 /* We no longer use this. */
3909 /* String section indices for the dynamic section symbols. */
3910 bfd_size_type dynsym_sec_strindex[SIZEOF_MIPS_DYNSYM_SECNAMES];
3911#endif
3912 /* The number of .rtproc entries. */
3913 bfd_size_type procedure_count;
3914 /* The size of the .compact_rel section (if SGI_COMPAT). */
3915 bfd_size_type compact_rel_size;
3916 /* This flag indicates that the value of DT_MIPS_RLD_MAP dynamic
be3ccd9c 3917 entry is set to the address of __rld_obj_head as in Irix 5. */
252b5132
RH		 3918 boolean use_rld_obj_head;
3919 /* This is the value of the __rld_map or __rld_obj_head symbol. */
3920 bfd_vma rld_value;
be3ccd9c 3921 /* This is set if we see any mips16 stub sections. */
252b5132
RH		 3922 boolean mips16_stubs_seen;
3923};
3924
3925/* Look up an entry in a MIPS ELF linker hash table. */
3926
3927#define mips_elf_link_hash_lookup(table, string, create, copy, follow) \
3928 ((struct mips_elf_link_hash_entry *) \
3929 elf_link_hash_lookup (&(table)->root, (string), (create), \
3930 (copy), (follow)))
3931
3932/* Traverse a MIPS ELF linker hash table. */
3933
3934#define mips_elf_link_hash_traverse(table, func, info) \
3935 (elf_link_hash_traverse \
3936 (&(table)->root, \
3937 (boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \
3938 (info)))
3939
3940/* Get the MIPS ELF linker hash table from a link_info structure. */
3941
3942#define mips_elf_hash_table(p) \
3943 ((struct mips_elf_link_hash_table *) ((p)->hash))
3944
3945static boolean mips_elf_output_extsym
3946 PARAMS ((struct mips_elf_link_hash_entry *, PTR));
3947
3948/* Create an entry in a MIPS ELF linker hash table. */
3949
3950static struct bfd_hash_entry *
3951mips_elf_link_hash_newfunc (entry, table, string)
3952 struct bfd_hash_entry *entry;
3953 struct bfd_hash_table *table;
3954 const char *string;
3955{
3956 struct mips_elf_link_hash_entry *ret =
3957 (struct mips_elf_link_hash_entry *) entry;
3958
3959 /* Allocate the structure if it has not already been allocated by a
3960 subclass. */
3961 if (ret == (struct mips_elf_link_hash_entry *) NULL)
3962 ret = ((struct mips_elf_link_hash_entry *)
3963 bfd_hash_allocate (table,
3964 sizeof (struct mips_elf_link_hash_entry)));
3965 if (ret == (struct mips_elf_link_hash_entry *) NULL)
3966 return (struct bfd_hash_entry *) ret;
3967
3968 /* Call the allocation method of the superclass. */
3969 ret = ((struct mips_elf_link_hash_entry *)
3970 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
3971 table, string));
3972 if (ret != (struct mips_elf_link_hash_entry *) NULL)
3973 {
3974 /* Set local fields. */
3975 memset (&ret->esym, 0, sizeof (EXTR));
3976 /* We use -2 as a marker to indicate that the information has
3977 not been set. -1 means there is no associated ifd. */
3978 ret->esym.ifd = -2;
a3c7651d 3979 ret->possibly_dynamic_relocs = 0;
c6142e5d 3980 ret->min_dyn_reloc_index = 0;
9117d219 3981 ret->no_fn_stub = false;
252b5132
RH		 3982 ret->fn_stub = NULL;
3983 ret->need_fn_stub = false;
3984 ret->call_stub = NULL;
3985 ret->call_fp_stub = NULL;
3986 }
3987
3988 return (struct bfd_hash_entry *) ret;
3989}
3990
b305ef96 3991void
be3ccd9c 3992_bfd_mips_elf_hide_symbol (info, h)
b305ef96
UC		 3993 struct bfd_link_info *info;
3994 struct mips_elf_link_hash_entry *h;
3995{
3996 bfd *dynobj;
3997 asection *got;
3998 struct mips_got_info *g;
3999 dynobj = elf_hash_table (info)->dynobj;
4000 got = bfd_get_section_by_name (dynobj, ".got");
4001 g = (struct mips_got_info *) elf_section_data (got)->tdata;
4002
4003 h->root.elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
4004 h->root.plt.offset = (bfd_vma) -1;
5fba655a
L		 4005 if ((h->root.elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0)
4006 h->root.dynindx = -1;
b305ef96
UC		 4007
4008 /* FIXME: Do we allocate too much GOT space here? */
4009 g->local_gotno++;
4010 got->_raw_size += MIPS_ELF_GOT_SIZE (dynobj);
4011}
4012
252b5132
RH		 4013/* Create a MIPS ELF linker hash table. */
4014
103186c6
MM		 4015struct bfd_link_hash_table *
4016_bfd_mips_elf_link_hash_table_create (abfd)
252b5132
RH		 4017 bfd *abfd;
4018{
4019 struct mips_elf_link_hash_table *ret;
4020
4021 ret = ((struct mips_elf_link_hash_table *)
4022 bfd_alloc (abfd, sizeof (struct mips_elf_link_hash_table)));
4023 if (ret == (struct mips_elf_link_hash_table *) NULL)
4024 return NULL;
4025
4026 if (! _bfd_elf_link_hash_table_init (&ret->root, abfd,
4027 mips_elf_link_hash_newfunc))
4028 {
4029 bfd_release (abfd, ret);
4030 return NULL;
4031 }
4032
4033#if 0
4034 /* We no longer use this. */
4035 for (i = 0; i < SIZEOF_MIPS_DYNSYM_SECNAMES; i++)
4036 ret->dynsym_sec_strindex[i] = (bfd_size_type) -1;
4037#endif
4038 ret->procedure_count = 0;
4039 ret->compact_rel_size = 0;
4040 ret->use_rld_obj_head = false;
4041 ret->rld_value = 0;
4042 ret->mips16_stubs_seen = false;
4043
4044 return &ret->root.root;
4045}
4046
4047/* Hook called by the linker routine which adds symbols from an object
4048 file. We must handle the special MIPS section numbers here. */
4049
103186c6
MM		 4050boolean
4051_bfd_mips_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
252b5132
RH		 4052 bfd *abfd;
4053 struct bfd_link_info *info;
4054 const Elf_Internal_Sym *sym;
4055 const char **namep;
5f771d47 4056 flagword *flagsp ATTRIBUTE_UNUSED;
252b5132
RH		 4057 asection **secp;
4058 bfd_vma *valp;
4059{
4060 if (SGI_COMPAT (abfd)
4061 && (abfd->flags & DYNAMIC) != 0
4062 && strcmp (*namep, "_rld_new_interface") == 0)
4063 {
4064 /* Skip Irix 5 rld entry name. */
4065 *namep = NULL;
4066 return true;
4067 }
4068
4069 switch (sym->st_shndx)
4070 {
4071 case SHN_COMMON:
4072 /* Common symbols less than the GP size are automatically
4073 treated as SHN_MIPS_SCOMMON symbols. */
7403cb63
MM		 4074 if (sym->st_size > elf_gp_size (abfd)
4075 || IRIX_COMPAT (abfd) == ict_irix6)
252b5132
RH		 4076 break;
4077 /* Fall through. */
4078 case SHN_MIPS_SCOMMON:
4079 *secp = bfd_make_section_old_way (abfd, ".scommon");
4080 (*secp)->flags |= SEC_IS_COMMON;
4081 *valp = sym->st_size;
4082 break;
4083
4084 case SHN_MIPS_TEXT:
4085 /* This section is used in a shared object. */
b305ef96 4086 if (elf_tdata (abfd)->elf_text_section == NULL)
252b5132 4087 {
b305ef96
UC		 4088 asymbol *elf_text_symbol;
4089 asection *elf_text_section;
4090
4091 elf_text_section = bfd_zalloc (abfd, sizeof (asection));
4092 if (elf_text_section == NULL)
4093 return false;
4094
4095 elf_text_symbol = bfd_zalloc (abfd, sizeof (asymbol));
4096 if (elf_text_symbol == NULL)
4097 return false;
4098
252b5132 4099 /* Initialize the section. */
b305ef96
UC		 4100
4101 elf_tdata (abfd)->elf_text_section = elf_text_section;
4102 elf_tdata (abfd)->elf_text_symbol = elf_text_symbol;
4103
4104 elf_text_section->symbol = elf_text_symbol;
4105 elf_text_section->symbol_ptr_ptr = &elf_tdata (abfd)->elf_text_symbol;
4106
4107 elf_text_section->name = ".text";
4108 elf_text_section->flags = SEC_NO_FLAGS;
4109 elf_text_section->output_section = NULL;
4110 elf_text_section->owner = abfd;
4111 elf_text_symbol->name = ".text";
4112 elf_text_symbol->flags = BSF_SECTION_SYM | BSF_DYNAMIC;
4113 elf_text_symbol->section = elf_text_section;
252b5132
RH		 4114 }
4115 /* This code used to do *secp = bfd_und_section_ptr if
4116 info->shared. I don't know why, and that doesn't make sense,
4117 so I took it out. */
b305ef96 4118 *secp = elf_tdata (abfd)->elf_text_section;
252b5132
RH		 4119 break;
4120
4121 case SHN_MIPS_ACOMMON:
4122 /* Fall through. XXX Can we treat this as allocated data? */
4123 case SHN_MIPS_DATA:
4124 /* This section is used in a shared object. */
b305ef96 4125 if (elf_tdata (abfd)->elf_data_section == NULL)
252b5132 4126 {
b305ef96
UC		 4127 asymbol *elf_data_symbol;
4128 asection *elf_data_section;
4129
4130 elf_data_section = bfd_zalloc (abfd, sizeof (asection));
4131 if (elf_data_section == NULL)
4132 return false;
4133
4134 elf_data_symbol = bfd_zalloc (abfd, sizeof (asymbol));
4135 if (elf_data_symbol == NULL)
4136 return false;
4137
252b5132 4138 /* Initialize the section. */
b305ef96
UC		 4139
4140 elf_tdata (abfd)->elf_data_section = elf_data_section;
4141 elf_tdata (abfd)->elf_data_symbol = elf_data_symbol;
4142
4143 elf_data_section->symbol = elf_data_symbol;
4144 elf_data_section->symbol_ptr_ptr = &elf_tdata (abfd)->elf_data_symbol;
4145
4146 elf_data_section->name = ".data";
4147 elf_data_section->flags = SEC_NO_FLAGS;
4148 elf_data_section->output_section = NULL;
4149 elf_data_section->owner = abfd;
4150 elf_data_symbol->name = ".data";
4151 elf_data_symbol->flags = BSF_SECTION_SYM | BSF_DYNAMIC;
4152 elf_data_symbol->section = elf_data_section;
252b5132
RH		 4153 }
4154 /* This code used to do *secp = bfd_und_section_ptr if
4155 info->shared. I don't know why, and that doesn't make sense,
4156 so I took it out. */
b305ef96 4157 *secp = elf_tdata (abfd)->elf_data_section;
252b5132
RH		 4158 break;
4159
4160 case SHN_MIPS_SUNDEFINED:
4161 *secp = bfd_und_section_ptr;
4162 break;
4163 }
4164
4165 if (SGI_COMPAT (abfd)
4166 && ! info->shared
4167 && info->hash->creator == abfd->xvec
4168 && strcmp (*namep, "__rld_obj_head") == 0)
4169 {
4170 struct elf_link_hash_entry *h;
4171
4172 /* Mark __rld_obj_head as dynamic. */
4173 h = NULL;
4174 if (! (_bfd_generic_link_add_one_symbol
4175 (info, abfd, *namep, BSF_GLOBAL, *secp,
4176 (bfd_vma) *valp, (const char *) NULL, false,
4177 get_elf_backend_data (abfd)->collect,
4178 (struct bfd_link_hash_entry **) &h)))
4179 return false;
be3ccd9c 4180 h->elf_link_hash_flags &= ~ELF_LINK_NON_ELF;
252b5132
RH		 4181 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
4182 h->type = STT_OBJECT;
4183
4184 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
4185 return false;
4186
4187 mips_elf_hash_table (info)->use_rld_obj_head = true;
4188 }
4189
4190 /* If this is a mips16 text symbol, add 1 to the value to make it
4191 odd. This will cause something like .word SYM to come up with
4192 the right value when it is loaded into the PC. */
4193 if (sym->st_other == STO_MIPS16)
4194 ++*valp;
4195
4196 return true;
4197}
4198
4199/* Structure used to pass information to mips_elf_output_extsym. */
4200
38b1a46c
NC		 4201struct extsym_info
4202{
252b5132
RH		 4203 bfd *abfd;
4204 struct bfd_link_info *info;
4205 struct ecoff_debug_info *debug;
4206 const struct ecoff_debug_swap *swap;
4207 boolean failed;
4208};
4209
4210/* This routine is used to write out ECOFF debugging external symbol
4211 information. It is called via mips_elf_link_hash_traverse. The
4212 ECOFF external symbol information must match the ELF external
4213 symbol information. Unfortunately, at this point we don't know
4214 whether a symbol is required by reloc information, so the two
4215 tables may wind up being different. We must sort out the external
4216 symbol information before we can set the final size of the .mdebug
4217 section, and we must set the size of the .mdebug section before we
4218 can relocate any sections, and we can't know which symbols are
4219 required by relocation until we relocate the sections.
4220 Fortunately, it is relatively unlikely that any symbol will be
4221 stripped but required by a reloc. In particular, it can not happen
4222 when generating a final executable. */
4223
4224static boolean
4225mips_elf_output_extsym (h, data)
4226 struct mips_elf_link_hash_entry *h;
4227 PTR data;
4228{
4229 struct extsym_info *einfo = (struct extsym_info *) data;
4230 boolean strip;
4231 asection *sec, *output_section;
4232
4233 if (h->root.indx == -2)
4234 strip = false;
4235 else if (((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
4236 || (h->root.elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) != 0)
4237 && (h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0
4238 && (h->root.elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0)
4239 strip = true;
4240 else if (einfo->info->strip == strip_all
4241 || (einfo->info->strip == strip_some
4242 && bfd_hash_lookup (einfo->info->keep_hash,
4243 h->root.root.root.string,
4244 false, false) == NULL))
4245 strip = true;
4246 else
4247 strip = false;
4248
4249 if (strip)
4250 return true;
4251
4252 if (h->esym.ifd == -2)
4253 {
4254 h->esym.jmptbl = 0;
4255 h->esym.cobol_main = 0;
4256 h->esym.weakext = 0;
4257 h->esym.reserved = 0;
4258 h->esym.ifd = ifdNil;
4259 h->esym.asym.value = 0;
4260 h->esym.asym.st = stGlobal;
4261
f7cb7d68 4262 if (h->root.root.type == bfd_link_hash_undefined
be3ccd9c 4263 || h->root.root.type == bfd_link_hash_undefweak)
252b5132
RH		 4264 {
4265 const char *name;
4266
4267 /* Use undefined class. Also, set class and type for some
4268 special symbols. */
4269 name = h->root.root.root.string;
4270 if (strcmp (name, mips_elf_dynsym_rtproc_names[0]) == 0
4271 || strcmp (name, mips_elf_dynsym_rtproc_names[1]) == 0)
4272 {
4273 h->esym.asym.sc = scData;
4274 h->esym.asym.st = stLabel;
4275 h->esym.asym.value = 0;
4276 }
4277 else if (strcmp (name, mips_elf_dynsym_rtproc_names[2]) == 0)
4278 {
4279 h->esym.asym.sc = scAbs;
4280 h->esym.asym.st = stLabel;
4281 h->esym.asym.value =
4282 mips_elf_hash_table (einfo->info)->procedure_count;
4283 }
4284 else if (strcmp (name, "_gp_disp") == 0)
4285 {
4286 h->esym.asym.sc = scAbs;
4287 h->esym.asym.st = stLabel;
4288 h->esym.asym.value = elf_gp (einfo->abfd);
4289 }
4290 else
4291 h->esym.asym.sc = scUndefined;
4292 }
4293 else if (h->root.root.type != bfd_link_hash_defined
4294 && h->root.root.type != bfd_link_hash_defweak)
4295 h->esym.asym.sc = scAbs;
4296 else
4297 {
4298 const char *name;
4299
4300 sec = h->root.root.u.def.section;
4301 output_section = sec->output_section;
4302
4303 /* When making a shared library and symbol h is the one from
4304 the another shared library, OUTPUT_SECTION may be null. */
4305 if (output_section == NULL)
4306 h->esym.asym.sc = scUndefined;
4307 else
4308 {
4309 name = bfd_section_name (output_section->owner, output_section);
4310
4311 if (strcmp (name, ".text") == 0)
4312 h->esym.asym.sc = scText;
4313 else if (strcmp (name, ".data") == 0)
4314 h->esym.asym.sc = scData;
4315 else if (strcmp (name, ".sdata") == 0)
4316 h->esym.asym.sc = scSData;
4317 else if (strcmp (name, ".rodata") == 0
4318 || strcmp (name, ".rdata") == 0)
4319 h->esym.asym.sc = scRData;
4320 else if (strcmp (name, ".bss") == 0)
4321 h->esym.asym.sc = scBss;
4322 else if (strcmp (name, ".sbss") == 0)
4323 h->esym.asym.sc = scSBss;
4324 else if (strcmp (name, ".init") == 0)
4325 h->esym.asym.sc = scInit;
4326 else if (strcmp (name, ".fini") == 0)
4327 h->esym.asym.sc = scFini;
4328 else
4329 h->esym.asym.sc = scAbs;
4330 }
4331 }
4332
4333 h->esym.asym.reserved = 0;
4334 h->esym.asym.index = indexNil;
4335 }
4336
4337 if (h->root.root.type == bfd_link_hash_common)
4338 h->esym.asym.value = h->root.root.u.c.size;
4339 else if (h->root.root.type == bfd_link_hash_defined
4340 || h->root.root.type == bfd_link_hash_defweak)
4341 {
4342 if (h->esym.asym.sc == scCommon)
4343 h->esym.asym.sc = scBss;
4344 else if (h->esym.asym.sc == scSCommon)
4345 h->esym.asym.sc = scSBss;
4346
4347 sec = h->root.root.u.def.section;
4348 output_section = sec->output_section;
4349 if (output_section != NULL)
4350 h->esym.asym.value = (h->root.root.u.def.value
4351 + sec->output_offset
4352 + output_section->vma);
4353 else
4354 h->esym.asym.value = 0;
4355 }
4356 else if ((h->root.elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
4357 {
9117d219
NC		 4358 struct mips_elf_link_hash_entry *hd = h;
4359 boolean no_fn_stub = h->no_fn_stub;
4360
4361 while (hd->root.root.type == bfd_link_hash_indirect)
252b5132 4362 {
9117d219
NC		 4363 hd = (struct mips_elf_link_hash_entry *)h->root.root.u.i.link;
4364 no_fn_stub = no_fn_stub || hd->no_fn_stub;
252b5132 4365 }
9117d219
NC		 4366
4367 if (!no_fn_stub)
4368 {
4369 /* Set type and value for a symbol with a function stub. */
4370 h->esym.asym.st = stProc;
4371 sec = hd->root.root.u.def.section;
4372 if (sec == NULL)
4373 h->esym.asym.value = 0;
4374 else
4375 {
4376 output_section = sec->output_section;
4377 if (output_section != NULL)
4378 h->esym.asym.value = (hd->root.plt.offset
4379 + sec->output_offset
4380 + output_section->vma);
4381 else
4382 h->esym.asym.value = 0;
4383 }
252b5132 4384#if 0 /* FIXME? */
9117d219 4385 h->esym.ifd = 0;
252b5132 4386#endif
9117d219 4387 }
252b5132
RH		 4388 }
4389
4390 if (! bfd_ecoff_debug_one_external (einfo->abfd, einfo->debug, einfo->swap,
4391 h->root.root.root.string,
4392 &h->esym))
4393 {
4394 einfo->failed = true;
4395 return false;
4396 }
4397
4398 return true;
4399}
4400
4401/* Create a runtime procedure table from the .mdebug section. */
4402
4403static boolean
4404mips_elf_create_procedure_table (handle, abfd, info, s, debug)
4405 PTR handle;
4406 bfd *abfd;
4407 struct bfd_link_info *info;
4408 asection *s;
4409 struct ecoff_debug_info *debug;
4410{
4411 const struct ecoff_debug_swap *swap;
4412 HDRR *hdr = &debug->symbolic_header;
4413 RPDR *rpdr, *rp;
4414 struct rpdr_ext *erp;
4415 PTR rtproc;
4416 struct pdr_ext *epdr;
4417 struct sym_ext *esym;
4418 char *ss, **sv;
4419 char *str;
4420 unsigned long size, count;
4421 unsigned long sindex;
4422 unsigned long i;
4423 PDR pdr;
4424 SYMR sym;
4425 const char *no_name_func = _("static procedure (no name)");
4426
4427 epdr = NULL;
4428 rpdr = NULL;
4429 esym = NULL;
4430 ss = NULL;
4431 sv = NULL;
4432
4433 swap = get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap;
4434
4435 sindex = strlen (no_name_func) + 1;
4436 count = hdr->ipdMax;
4437 if (count > 0)
4438 {
4439 size = swap->external_pdr_size;
4440
4441 epdr = (struct pdr_ext *) bfd_malloc (size * count);
4442 if (epdr == NULL)
4443 goto error_return;
4444
4445 if (! _bfd_ecoff_get_accumulated_pdr (handle, (PTR) epdr))
4446 goto error_return;
4447
4448 size = sizeof (RPDR);
4449 rp = rpdr = (RPDR *) bfd_malloc (size * count);
4450 if (rpdr == NULL)
4451 goto error_return;
4452
4453 sv = (char **) bfd_malloc (sizeof (char *) * count);
4454 if (sv == NULL)
4455 goto error_return;
4456
4457 count = hdr->isymMax;
4458 size = swap->external_sym_size;
4459 esym = (struct sym_ext *) bfd_malloc (size * count);
4460 if (esym == NULL)
4461 goto error_return;
4462
4463 if (! _bfd_ecoff_get_accumulated_sym (handle, (PTR) esym))
4464 goto error_return;
4465
4466 count = hdr->issMax;
4467 ss = (char *) bfd_malloc (count);
4468 if (ss == NULL)
4469 goto error_return;
4470 if (! _bfd_ecoff_get_accumulated_ss (handle, (PTR) ss))
4471 goto error_return;
4472
4473 count = hdr->ipdMax;
4474 for (i = 0; i < count; i++, rp++)
4475 {
4476 (*swap->swap_pdr_in) (abfd, (PTR) (epdr + i), &pdr);
4477 (*swap->swap_sym_in) (abfd, (PTR) &esym[pdr.isym], &sym);
4478 rp->adr = sym.value;
4479 rp->regmask = pdr.regmask;
4480 rp->regoffset = pdr.regoffset;
4481 rp->fregmask = pdr.fregmask;
4482 rp->fregoffset = pdr.fregoffset;
4483 rp->frameoffset = pdr.frameoffset;
4484 rp->framereg = pdr.framereg;
4485 rp->pcreg = pdr.pcreg;
4486 rp->irpss = sindex;
4487 sv[i] = ss + sym.iss;
4488 sindex += strlen (sv[i]) + 1;
4489 }
4490 }
4491
4492 size = sizeof (struct rpdr_ext) * (count + 2) + sindex;
4493 size = BFD_ALIGN (size, 16);
4494 rtproc = (PTR) bfd_alloc (abfd, size);
4495 if (rtproc == NULL)
4496 {
4497 mips_elf_hash_table (info)->procedure_count = 0;
4498 goto error_return;
4499 }
4500
4501 mips_elf_hash_table (info)->procedure_count = count + 2;
4502
4503 erp = (struct rpdr_ext *) rtproc;
4504 memset (erp, 0, sizeof (struct rpdr_ext));
4505 erp++;
4506 str = (char *) rtproc + sizeof (struct rpdr_ext) * (count + 2);
4507 strcpy (str, no_name_func);
4508 str += strlen (no_name_func) + 1;
4509 for (i = 0; i < count; i++)
4510 {
4511 ecoff_swap_rpdr_out (abfd, rpdr + i, erp + i);
4512 strcpy (str, sv[i]);
4513 str += strlen (sv[i]) + 1;
4514 }
4515 ecoff_put_off (abfd, (bfd_vma) -1, (bfd_byte *) (erp + count)->p_adr);
4516
4517 /* Set the size and contents of .rtproc section. */
4518 s->_raw_size = size;
4519 s->contents = (bfd_byte *) rtproc;
4520
4521 /* Skip this section later on (I don't think this currently
4522 matters, but someday it might). */
4523 s->link_order_head = (struct bfd_link_order *) NULL;
4524
4525 if (epdr != NULL)
4526 free (epdr);
4527 if (rpdr != NULL)
4528 free (rpdr);
4529 if (esym != NULL)
4530 free (esym);
4531 if (ss != NULL)
4532 free (ss);
4533 if (sv != NULL)
4534 free (sv);
4535
4536 return true;
4537
4538 error_return:
4539 if (epdr != NULL)
4540 free (epdr);
4541 if (rpdr != NULL)
4542 free (rpdr);
4543 if (esym != NULL)
4544 free (esym);
4545 if (ss != NULL)
4546 free (ss);
4547 if (sv != NULL)
4548 free (sv);
4549 return false;
4550}
4551
4552/* A comparison routine used to sort .gptab entries. */
4553
4554static int
4555gptab_compare (p1, p2)
4556 const PTR p1;
4557 const PTR p2;
4558{
4559 const Elf32_gptab *a1 = (const Elf32_gptab *) p1;
4560 const Elf32_gptab *a2 = (const Elf32_gptab *) p2;
4561
4562 return a1->gt_entry.gt_g_value - a2->gt_entry.gt_g_value;
4563}
4564
4565/* We need to use a special link routine to handle the .reginfo and
4566 the .mdebug sections. We need to merge all instances of these
4567 sections together, not write them all out sequentially. */
4568
103186c6
MM		 4569boolean
4570_bfd_mips_elf_final_link (abfd, info)
252b5132
RH		 4571 bfd *abfd;
4572 struct bfd_link_info *info;
4573{
4574 asection **secpp;
4575 asection *o;
4576 struct bfd_link_order *p;
4577 asection *reginfo_sec, *mdebug_sec, *gptab_data_sec, *gptab_bss_sec;
4578 asection *rtproc_sec;
4579 Elf32_RegInfo reginfo;
4580 struct ecoff_debug_info debug;
4581 const struct ecoff_debug_swap *swap
4582 = get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap;
4583 HDRR *symhdr = &debug.symbolic_header;
4584 PTR mdebug_handle = NULL;
f7cb7d68
UC		 4585 asection *s;
4586 EXTR esym;
4587 bfd_vma last;
4588 unsigned int i;
38b1a46c
NC		 4589 static const char * const name[] =
4590 {
be3ccd9c
KH		 4591 ".text", ".init", ".fini", ".data",
4592 ".rodata", ".sdata", ".sbss", ".bss"
4593 };
38b1a46c
NC		 4594 static const int sc[] =
4595 {
be3ccd9c
KH		 4596 scText, scInit, scFini, scData,
4597 scRData, scSData, scSBss, scBss
4598 };
252b5132 4599
303f629d
MM		 4600 /* If all the things we linked together were PIC, but we're
4601 producing an executable (rather than a shared object), then the
4602 resulting file is CPIC (i.e., it calls PIC code.) */
0dda5f7a
ILT		 4603 if (!info->shared
4604 && !info->relocateable
4605 && elf_elfheader (abfd)->e_flags & EF_MIPS_PIC)
252b5132 4606 {
303f629d
MM		 4607 elf_elfheader (abfd)->e_flags &= ~EF_MIPS_PIC;
4608 elf_elfheader (abfd)->e_flags |= EF_MIPS_CPIC;
252b5132
RH		 4609 }
4610
b3be9b46
RH		 4611 /* We'd carefully arranged the dynamic symbol indices, and then the
4612 generic size_dynamic_sections renumbered them out from under us.
4613 Rather than trying somehow to prevent the renumbering, just do
4614 the sort again. */
441d6d79 4615 if (elf_hash_table (info)->dynamic_sections_created)
b3be9b46
RH		 4616 {
4617 bfd *dynobj;
4618 asection *got;
4619 struct mips_got_info *g;
4620
435394bf
MM		 4621 /* When we resort, we must tell mips_elf_sort_hash_table what
4622 the lowest index it may use is. That's the number of section
4623 symbols we're going to add. The generic ELF linker only
4624 adds these symbols when building a shared object. Note that
4625 we count the sections after (possibly) removing the .options
4626 section above. */
be3ccd9c 4627 if (!mips_elf_sort_hash_table (info, (info->shared
435394bf
MM		 4628 ? bfd_count_sections (abfd) + 1
4629 : 1)))
be3ccd9c 4630 return false;
b3be9b46
RH		 4631
4632 /* Make sure we didn't grow the global .got region. */
4633 dynobj = elf_hash_table (info)->dynobj;
4634 got = bfd_get_section_by_name (dynobj, ".got");
4635 g = (struct mips_got_info *) elf_section_data (got)->tdata;
4636
8b237a89
MM		 4637 if (g->global_gotsym != NULL)
4638 BFD_ASSERT ((elf_hash_table (info)->dynsymcount
4639 - g->global_gotsym->dynindx)
4640 <= g->global_gotno);
b3be9b46
RH		 4641 }
4642
303f629d
MM		 4643 /* On IRIX5, we omit the .options section. On IRIX6, however, we
4644 include it, even though we don't process it quite right. (Some
4645 entries are supposed to be merged.) Empirically, we seem to be
4646 better off including it then not. */
f7cb7d68 4647 if (IRIX_COMPAT (abfd) == ict_irix5 || IRIX_COMPAT (abfd) == ict_none)
303f629d
MM		 4648 for (secpp = &abfd->sections; *secpp != NULL; secpp = &(*secpp)->next)
4649 {
4650 if (strcmp ((*secpp)->name, MIPS_ELF_OPTIONS_SECTION_NAME (abfd)) == 0)
4651 {
4652 for (p = (*secpp)->link_order_head; p != NULL; p = p->next)
4653 if (p->type == bfd_indirect_link_order)
be3ccd9c 4654 p->u.indirect.section->flags &= ~SEC_HAS_CONTENTS;
303f629d
MM		 4655 (*secpp)->link_order_head = NULL;
4656 *secpp = (*secpp)->next;
4657 --abfd->section_count;
be3ccd9c 4658
303f629d
MM		 4659 break;
4660 }
4661 }
4662
252b5132
RH		 4663 /* Get a value for the GP register. */
4664 if (elf_gp (abfd) == 0)
4665 {
4666 struct bfd_link_hash_entry *h;
4667
4668 h = bfd_link_hash_lookup (info->hash, "_gp", false, false, true);
4669 if (h != (struct bfd_link_hash_entry *) NULL
4670 && h->type == bfd_link_hash_defined)
4671 elf_gp (abfd) = (h->u.def.value
4672 + h->u.def.section->output_section->vma
4673 + h->u.def.section->output_offset);
0db63c18
MM		 4674 else if (info->relocateable)
4675 {
4676 bfd_vma lo;
4677
4678 /* Find the GP-relative section with the lowest offset. */
4679 lo = (bfd_vma) -1;
4680 for (o = abfd->sections; o != (asection *) NULL; o = o->next)
be3ccd9c 4681 if (o->vma < lo
0db63c18
MM		 4682 && (elf_section_data (o)->this_hdr.sh_flags & SHF_MIPS_GPREL))
4683 lo = o->vma;
4684
4685 /* And calculate GP relative to that. */
4686 elf_gp (abfd) = lo + ELF_MIPS_GP_OFFSET (abfd);
4687 }
252b5132
RH		 4688 else
4689 {
4690 /* If the relocate_section function needs to do a reloc
4691 involving the GP value, it should make a reloc_dangerous
4692 callback to warn that GP is not defined. */
4693 }
4694 }
4695
4696 /* Go through the sections and collect the .reginfo and .mdebug
4697 information. */
4698 reginfo_sec = NULL;
4699 mdebug_sec = NULL;
4700 gptab_data_sec = NULL;
4701 gptab_bss_sec = NULL;
4702 for (o = abfd->sections; o != (asection *) NULL; o = o->next)
4703 {
4704 if (strcmp (o->name, ".reginfo") == 0)
4705 {
4706 memset (&reginfo, 0, sizeof reginfo);
4707
4708 /* We have found the .reginfo section in the output file.
4709 Look through all the link_orders comprising it and merge
4710 the information together. */
4711 for (p = o->link_order_head;
4712 p != (struct bfd_link_order *) NULL;
4713 p = p->next)
4714 {
4715 asection *input_section;
4716 bfd *input_bfd;
4717 Elf32_External_RegInfo ext;
4718 Elf32_RegInfo sub;
4719
4720 if (p->type != bfd_indirect_link_order)
4721 {
4722 if (p->type == bfd_fill_link_order)
4723 continue;
4724 abort ();
4725 }
4726
4727 input_section = p->u.indirect.section;
4728 input_bfd = input_section->owner;
4729
4730 /* The linker emulation code has probably clobbered the
4731 size to be zero bytes. */
4732 if (input_section->_raw_size == 0)
4733 input_section->_raw_size = sizeof (Elf32_External_RegInfo);
4734
4735 if (! bfd_get_section_contents (input_bfd, input_section,
4736 (PTR) &ext,
4737 (file_ptr) 0,
4738 sizeof ext))
4739 return false;
4740
4741 bfd_mips_elf32_swap_reginfo_in (input_bfd, &ext, &sub);
4742
4743 reginfo.ri_gprmask |= sub.ri_gprmask;
4744 reginfo.ri_cprmask[0] |= sub.ri_cprmask[0];
4745 reginfo.ri_cprmask[1] |= sub.ri_cprmask[1];
4746 reginfo.ri_cprmask[2] |= sub.ri_cprmask[2];
4747 reginfo.ri_cprmask[3] |= sub.ri_cprmask[3];
4748
4749 /* ri_gp_value is set by the function
4750 mips_elf32_section_processing when the section is
4751 finally written out. */
4752
4753 /* Hack: reset the SEC_HAS_CONTENTS flag so that
4754 elf_link_input_bfd ignores this section. */
be3ccd9c 4755 input_section->flags &= ~SEC_HAS_CONTENTS;
252b5132
RH		 4756 }
4757
4758 /* Size has been set in mips_elf_always_size_sections */
4759 BFD_ASSERT(o->_raw_size == sizeof (Elf32_External_RegInfo));
4760
4761 /* Skip this section later on (I don't think this currently
4762 matters, but someday it might). */
4763 o->link_order_head = (struct bfd_link_order *) NULL;
4764
4765 reginfo_sec = o;
4766 }
4767
4768 if (strcmp (o->name, ".mdebug") == 0)
4769 {
4770 struct extsym_info einfo;
4771
4772 /* We have found the .mdebug section in the output file.
4773 Look through all the link_orders comprising it and merge
4774 the information together. */
4775 symhdr->magic = swap->sym_magic;
4776 /* FIXME: What should the version stamp be? */
4777 symhdr->vstamp = 0;
4778 symhdr->ilineMax = 0;
4779 symhdr->cbLine = 0;
4780 symhdr->idnMax = 0;
4781 symhdr->ipdMax = 0;
4782 symhdr->isymMax = 0;
4783 symhdr->ioptMax = 0;
4784 symhdr->iauxMax = 0;
4785 symhdr->issMax = 0;
4786 symhdr->issExtMax = 0;
4787 symhdr->ifdMax = 0;
4788 symhdr->crfd = 0;
4789 symhdr->iextMax = 0;
4790
4791 /* We accumulate the debugging information itself in the
4792 debug_info structure. */
4793 debug.line = NULL;
4794 debug.external_dnr = NULL;
4795 debug.external_pdr = NULL;
4796 debug.external_sym = NULL;
4797 debug.external_opt = NULL;
4798 debug.external_aux = NULL;
4799 debug.ss = NULL;
4800 debug.ssext = debug.ssext_end = NULL;
4801 debug.external_fdr = NULL;
4802 debug.external_rfd = NULL;
4803 debug.external_ext = debug.external_ext_end = NULL;
4804
4805 mdebug_handle = bfd_ecoff_debug_init (abfd, &debug, swap, info);
4806 if (mdebug_handle == (PTR) NULL)
4807 return false;
4808
be3ccd9c
KH		 4809 esym.jmptbl = 0;
4810 esym.cobol_main = 0;
4811 esym.weakext = 0;
4812 esym.reserved = 0;
4813 esym.ifd = ifdNil;
4814 esym.asym.iss = issNil;
4815 esym.asym.st = stLocal;
4816 esym.asym.reserved = 0;
4817 esym.asym.index = indexNil;
4818 last = 0;
4819 for (i = 0; i < 8; i++)
4820 {
4821 esym.asym.sc = sc[i];
4822 s = bfd_get_section_by_name (abfd, name[i]);
4823 if (s != NULL)
4824 {
4825 esym.asym.value = s->vma;
4826 last = s->vma + s->_raw_size;
4827 }
4828 else
4829 esym.asym.value = last;
4830 if (!bfd_ecoff_debug_one_external (abfd, &debug, swap,
4831 name[i], &esym))
4832 return false;
4833 }
252b5132
RH		 4834
4835 for (p = o->link_order_head;
4836 p != (struct bfd_link_order *) NULL;
4837 p = p->next)
4838 {
4839 asection *input_section;
4840 bfd *input_bfd;
4841 const struct ecoff_debug_swap *input_swap;
4842 struct ecoff_debug_info input_debug;
4843 char *eraw_src;
4844 char *eraw_end;
4845
4846 if (p->type != bfd_indirect_link_order)
4847 {
4848 if (p->type == bfd_fill_link_order)
4849 continue;
4850 abort ();
4851 }
4852
4853 input_section = p->u.indirect.section;
4854 input_bfd = input_section->owner;
4855
4856 if (bfd_get_flavour (input_bfd) != bfd_target_elf_flavour
4857 || (get_elf_backend_data (input_bfd)
4858 ->elf_backend_ecoff_debug_swap) == NULL)
4859 {
4860 /* I don't know what a non MIPS ELF bfd would be
4861 doing with a .mdebug section, but I don't really
4862 want to deal with it. */
4863 continue;
4864 }
4865
4866 input_swap = (get_elf_backend_data (input_bfd)
4867 ->elf_backend_ecoff_debug_swap);
4868
4869 BFD_ASSERT (p->size == input_section->_raw_size);
4870
4871 /* The ECOFF linking code expects that we have already
4872 read in the debugging information and set up an
4873 ecoff_debug_info structure, so we do that now. */
4874 if (! _bfd_mips_elf_read_ecoff_info (input_bfd, input_section,
4875 &input_debug))
4876 return false;
4877
4878 if (! (bfd_ecoff_debug_accumulate
4879 (mdebug_handle, abfd, &debug, swap, input_bfd,
4880 &input_debug, input_swap, info)))
4881 return false;
4882
4883 /* Loop through the external symbols. For each one with
4884 interesting information, try to find the symbol in
4885 the linker global hash table and save the information
4886 for the output external symbols. */
4887 eraw_src = input_debug.external_ext;
4888 eraw_end = (eraw_src
4889 + (input_debug.symbolic_header.iextMax
4890 * input_swap->external_ext_size));
4891 for (;
4892 eraw_src < eraw_end;
4893 eraw_src += input_swap->external_ext_size)
4894 {
4895 EXTR ext;
4896 const char *name;
4897 struct mips_elf_link_hash_entry *h;
4898
4899 (*input_swap->swap_ext_in) (input_bfd, (PTR) eraw_src, &ext);
4900 if (ext.asym.sc == scNil
4901 || ext.asym.sc == scUndefined
4902 || ext.asym.sc == scSUndefined)
4903 continue;
4904
4905 name = input_debug.ssext + ext.asym.iss;
4906 h = mips_elf_link_hash_lookup (mips_elf_hash_table (info),
4907 name, false, false, true);
4908 if (h == NULL || h->esym.ifd != -2)
4909 continue;
4910
4911 if (ext.ifd != -1)
4912 {
4913 BFD_ASSERT (ext.ifd
4914 < input_debug.symbolic_header.ifdMax);
4915 ext.ifd = input_debug.ifdmap[ext.ifd];
4916 }
4917
4918 h->esym = ext;
4919 }
4920
4921 /* Free up the information we just read. */
4922 free (input_debug.line);
4923 free (input_debug.external_dnr);
4924 free (input_debug.external_pdr);
4925 free (input_debug.external_sym);
4926 free (input_debug.external_opt);
4927 free (input_debug.external_aux);
4928 free (input_debug.ss);
4929 free (input_debug.ssext);
4930 free (input_debug.external_fdr);
4931 free (input_debug.external_rfd);
4932 free (input_debug.external_ext);
4933
4934 /* Hack: reset the SEC_HAS_CONTENTS flag so that
4935 elf_link_input_bfd ignores this section. */
be3ccd9c 4936 input_section->flags &= ~SEC_HAS_CONTENTS;
252b5132
RH		 4937 }
4938
4939 if (SGI_COMPAT (abfd) && info->shared)
4940 {
4941 /* Create .rtproc section. */
4942 rtproc_sec = bfd_get_section_by_name (abfd, ".rtproc");
4943 if (rtproc_sec == NULL)
4944 {
4945 flagword flags = (SEC_HAS_CONTENTS | SEC_IN_MEMORY
4946 | SEC_LINKER_CREATED | SEC_READONLY);
4947
4948 rtproc_sec = bfd_make_section (abfd, ".rtproc");
4949 if (rtproc_sec == NULL
4950 || ! bfd_set_section_flags (abfd, rtproc_sec, flags)
4951 || ! bfd_set_section_alignment (abfd, rtproc_sec, 4))
4952 return false;
4953 }
4954
4955 if (! mips_elf_create_procedure_table (mdebug_handle, abfd,
4956 info, rtproc_sec, &debug))
4957 return false;
4958 }
4959
4960 /* Build the external symbol information. */
4961 einfo.abfd = abfd;
4962 einfo.info = info;
4963 einfo.debug = &debug;
4964 einfo.swap = swap;
4965 einfo.failed = false;
4966 mips_elf_link_hash_traverse (mips_elf_hash_table (info),
4967 mips_elf_output_extsym,
4968 (PTR) &einfo);
4969 if (einfo.failed)
4970 return false;
4971
4972 /* Set the size of the .mdebug section. */
4973 o->_raw_size = bfd_ecoff_debug_size (abfd, &debug, swap);
4974
4975 /* Skip this section later on (I don't think this currently
4976 matters, but someday it might). */
4977 o->link_order_head = (struct bfd_link_order *) NULL;
4978
4979 mdebug_sec = o;
4980 }
4981
4982 if (strncmp (o->name, ".gptab.", sizeof ".gptab." - 1) == 0)
4983 {
4984 const char *subname;
4985 unsigned int c;
4986 Elf32_gptab *tab;
4987 Elf32_External_gptab *ext_tab;
4988 unsigned int i;
4989
4990 /* The .gptab.sdata and .gptab.sbss sections hold
4991 information describing how the small data area would
4992 change depending upon the -G switch. These sections
4993 not used in executables files. */
4994 if (! info->relocateable)
4995 {
4996 asection **secpp;
4997
4998 for (p = o->link_order_head;
4999 p != (struct bfd_link_order *) NULL;
5000 p = p->next)
5001 {
5002 asection *input_section;
5003
5004 if (p->type != bfd_indirect_link_order)
5005 {
5006 if (p->type == bfd_fill_link_order)
5007 continue;
5008 abort ();
5009 }
5010
5011 input_section = p->u.indirect.section;
5012
5013 /* Hack: reset the SEC_HAS_CONTENTS flag so that
5014 elf_link_input_bfd ignores this section. */
be3ccd9c 5015 input_section->flags &= ~SEC_HAS_CONTENTS;
252b5132
RH		 5016 }
5017
5018 /* Skip this section later on (I don't think this
5019 currently matters, but someday it might). */
5020 o->link_order_head = (struct bfd_link_order *) NULL;
5021
5022 /* Really remove the section. */
5023 for (secpp = &abfd->sections;
5024 *secpp != o;
5025 secpp = &(*secpp)->next)
5026 ;
5027 *secpp = (*secpp)->next;
5028 --abfd->section_count;
5029
5030 continue;
5031 }
5032
5033 /* There is one gptab for initialized data, and one for
5034 uninitialized data. */
5035 if (strcmp (o->name, ".gptab.sdata") == 0)
5036 gptab_data_sec = o;
5037 else if (strcmp (o->name, ".gptab.sbss") == 0)
5038 gptab_bss_sec = o;
5039 else
5040 {
5041 (*_bfd_error_handler)
5042 (_("%s: illegal section name `%s'"),
5043 bfd_get_filename (abfd), o->name);
5044 bfd_set_error (bfd_error_nonrepresentable_section);
5045 return false;
5046 }
5047
5048 /* The linker script always combines .gptab.data and
5049 .gptab.sdata into .gptab.sdata, and likewise for
5050 .gptab.bss and .gptab.sbss. It is possible that there is
5051 no .sdata or .sbss section in the output file, in which
5052 case we must change the name of the output section. */
5053 subname = o->name + sizeof ".gptab" - 1;
5054 if (bfd_get_section_by_name (abfd, subname) == NULL)
5055 {
5056 if (o == gptab_data_sec)
5057 o->name = ".gptab.data";
5058 else
5059 o->name = ".gptab.bss";
5060 subname = o->name + sizeof ".gptab" - 1;
5061 BFD_ASSERT (bfd_get_section_by_name (abfd, subname) != NULL);
5062 }
5063
5064 /* Set up the first entry. */
5065 c = 1;
5066 tab = (Elf32_gptab *) bfd_malloc (c * sizeof (Elf32_gptab));
5067 if (tab == NULL)
5068 return false;
5069 tab[0].gt_header.gt_current_g_value = elf_gp_size (abfd);
5070 tab[0].gt_header.gt_unused = 0;
5071
5072 /* Combine the input sections. */
5073 for (p = o->link_order_head;
5074 p != (struct bfd_link_order *) NULL;
5075 p = p->next)
5076 {
5077 asection *input_section;
5078 bfd *input_bfd;
5079 bfd_size_type size;
5080 unsigned long last;
5081 bfd_size_type gpentry;
5082
5083 if (p->type != bfd_indirect_link_order)
5084 {
5085 if (p->type == bfd_fill_link_order)
5086 continue;
5087 abort ();
5088 }
5089
5090 input_section = p->u.indirect.section;
5091 input_bfd = input_section->owner;
5092
5093 /* Combine the gptab entries for this input section one
5094 by one. We know that the input gptab entries are
5095 sorted by ascending -G value. */
5096 size = bfd_section_size (input_bfd, input_section);
5097 last = 0;
5098 for (gpentry = sizeof (Elf32_External_gptab);
5099 gpentry < size;
5100 gpentry += sizeof (Elf32_External_gptab))
5101 {
5102 Elf32_External_gptab ext_gptab;
5103 Elf32_gptab int_gptab;
5104 unsigned long val;
5105 unsigned long add;
5106 boolean exact;
5107 unsigned int look;
5108
5109 if (! (bfd_get_section_contents
5110 (input_bfd, input_section, (PTR) &ext_gptab,
5111 gpentry, sizeof (Elf32_External_gptab))))
5112 {
5113 free (tab);
5114 return false;
5115 }
5116
5117 bfd_mips_elf32_swap_gptab_in (input_bfd, &ext_gptab,
5118 &int_gptab);
5119 val = int_gptab.gt_entry.gt_g_value;
5120 add = int_gptab.gt_entry.gt_bytes - last;
5121
5122 exact = false;
5123 for (look = 1; look < c; look++)
5124 {
5125 if (tab[look].gt_entry.gt_g_value >= val)
5126 tab[look].gt_entry.gt_bytes += add;
5127
5128 if (tab[look].gt_entry.gt_g_value == val)
5129 exact = true;
5130 }
5131
5132 if (! exact)
5133 {
5134 Elf32_gptab *new_tab;
5135 unsigned int max;
5136
5137 /* We need a new table entry. */
5138 new_tab = ((Elf32_gptab *)
5139 bfd_realloc ((PTR) tab,
5140 (c + 1) * sizeof (Elf32_gptab)));
5141 if (new_tab == NULL)
5142 {
5143 free (tab);
5144 return false;
5145 }
5146 tab = new_tab;
5147 tab[c].gt_entry.gt_g_value = val;
5148 tab[c].gt_entry.gt_bytes = add;
5149
5150 /* Merge in the size for the next smallest -G
5151 value, since that will be implied by this new
5152 value. */
5153 max = 0;
5154 for (look = 1; look < c; look++)
5155 {
5156 if (tab[look].gt_entry.gt_g_value < val
5157 && (max == 0
5158 || (tab[look].gt_entry.gt_g_value
5159 > tab[max].gt_entry.gt_g_value)))
5160 max = look;
5161 }
5162 if (max != 0)
5163 tab[c].gt_entry.gt_bytes +=
5164 tab[max].gt_entry.gt_bytes;
5165
5166 ++c;
5167 }
5168
5169 last = int_gptab.gt_entry.gt_bytes;
5170 }
5171
5172 /* Hack: reset the SEC_HAS_CONTENTS flag so that
5173 elf_link_input_bfd ignores this section. */
be3ccd9c 5174 input_section->flags &= ~SEC_HAS_CONTENTS;
252b5132
RH		 5175 }
5176
5177 /* The table must be sorted by -G value. */
5178 if (c > 2)
5179 qsort (tab + 1, c - 1, sizeof (tab[0]), gptab_compare);
5180
5181 /* Swap out the table. */
5182 ext_tab = ((Elf32_External_gptab *)
5183 bfd_alloc (abfd, c * sizeof (Elf32_External_gptab)));
5184 if (ext_tab == NULL)
5185 {
5186 free (tab);
5187 return false;
5188 }
5189
5190 for (i = 0; i < c; i++)
5191 bfd_mips_elf32_swap_gptab_out (abfd, tab + i, ext_tab + i);
5192 free (tab);
5193
5194 o->_raw_size = c * sizeof (Elf32_External_gptab);
5195 o->contents = (bfd_byte *) ext_tab;
5196
5197 /* Skip this section later on (I don't think this currently
5198 matters, but someday it might). */
5199 o->link_order_head = (struct bfd_link_order *) NULL;
5200 }
5201 }
5202
5203 /* Invoke the regular ELF backend linker to do all the work. */
9ebbd33e
MM		 5204 if (ABI_64_P (abfd))
5205 {
5206#ifdef BFD64
5207 if (!bfd_elf64_bfd_final_link (abfd, info))
5208 return false;
5209#else
5210 abort ();
103186c6 5211 return false;
9ebbd33e
MM		 5212#endif /* BFD64 */
5213 }
5214 else if (!bfd_elf32_bfd_final_link (abfd, info))
5215 return false;
252b5132
RH		 5216
5217 /* Now write out the computed sections. */
5218
5219 if (reginfo_sec != (asection *) NULL)
5220 {
5221 Elf32_External_RegInfo ext;
5222
5223 bfd_mips_elf32_swap_reginfo_out (abfd, &reginfo, &ext);
5224 if (! bfd_set_section_contents (abfd, reginfo_sec, (PTR) &ext,
5225 (file_ptr) 0, sizeof ext))
5226 return false;
5227 }
5228
5229 if (mdebug_sec != (asection *) NULL)
5230 {
5231 BFD_ASSERT (abfd->output_has_begun);
5232 if (! bfd_ecoff_write_accumulated_debug (mdebug_handle, abfd, &debug,
5233 swap, info,
5234 mdebug_sec->filepos))
5235 return false;
5236
5237 bfd_ecoff_debug_free (mdebug_handle, abfd, &debug, swap, info);
5238 }
5239
5240 if (gptab_data_sec != (asection *) NULL)
5241 {
5242 if (! bfd_set_section_contents (abfd, gptab_data_sec,
5243 gptab_data_sec->contents,
5244 (file_ptr) 0,
5245 gptab_data_sec->_raw_size))
5246 return false;
5247 }
5248
5249 if (gptab_bss_sec != (asection *) NULL)
5250 {
5251 if (! bfd_set_section_contents (abfd, gptab_bss_sec,
5252 gptab_bss_sec->contents,
5253 (file_ptr) 0,
5254 gptab_bss_sec->_raw_size))
5255 return false;
5256 }
5257
5258 if (SGI_COMPAT (abfd))
5259 {
5260 rtproc_sec = bfd_get_section_by_name (abfd, ".rtproc");
5261 if (rtproc_sec != NULL)
5262 {
5263 if (! bfd_set_section_contents (abfd, rtproc_sec,
5264 rtproc_sec->contents,
5265 (file_ptr) 0,
5266 rtproc_sec->_raw_size))
5267 return false;
5268 }
5269 }
5270
5271 return true;
5272}
5273
adb76a3e
UC		 5274/* This function is called via qsort() to sort the dynamic relocation
5275 entries by increasing r_symndx value. */
5276
5277static int
be3ccd9c
KH		 5278sort_dynamic_relocs (arg1, arg2)
5279 const PTR arg1;
5280 const PTR arg2;
adb76a3e
UC		 5281{
5282 const Elf32_External_Rel *ext_reloc1 = (const Elf32_External_Rel *) arg1;
5283 const Elf32_External_Rel *ext_reloc2 = (const Elf32_External_Rel *) arg2;
5284
5285 Elf_Internal_Rel int_reloc1;
5286 Elf_Internal_Rel int_reloc2;
5287
be3ccd9c
KH		 5288 bfd_elf32_swap_reloc_in (reldyn_sorting_bfd, ext_reloc1, &int_reloc1);
5289 bfd_elf32_swap_reloc_in (reldyn_sorting_bfd, ext_reloc2, &int_reloc2);
adb76a3e 5290
be3ccd9c 5291 return (ELF32_R_SYM (int_reloc1.r_info) - ELF32_R_SYM (int_reloc2.r_info));
adb76a3e
UC		 5292}
5293
7403cb63 5294/* Returns the GOT section for ABFD. */
252b5132 5295
7403cb63
MM		 5296static asection *
5297mips_elf_got_section (abfd)
5298 bfd *abfd;
252b5132 5299{
7403cb63
MM		 5300 return bfd_get_section_by_name (abfd, ".got");
5301}
5302
5303/* Returns the GOT information associated with the link indicated by
be3ccd9c 5304 INFO. If SGOTP is non-NULL, it is filled in with the GOT
7403cb63
MM		 5305 section. */
5306
5307static struct mips_got_info *
5308mips_elf_got_info (abfd, sgotp)
5309 bfd *abfd;
5310 asection **sgotp;
5311{
5312 asection *sgot;
252b5132
RH		 5313 struct mips_got_info *g;
5314
7403cb63
MM		 5315 sgot = mips_elf_got_section (abfd);
5316 BFD_ASSERT (sgot != NULL);
5317 BFD_ASSERT (elf_section_data (sgot) != NULL);
5318 g = (struct mips_got_info *) elf_section_data (sgot)->tdata;
5319 BFD_ASSERT (g != NULL);
252b5132 5320
7403cb63
MM		 5321 if (sgotp)
5322 *sgotp = sgot;
5323 return g;
5324}
252b5132 5325
6387d602
ILT		 5326/* Return whether a relocation is against a local symbol. */
5327
5328static boolean
b305ef96
UC		 5329mips_elf_local_relocation_p (input_bfd, relocation, local_sections,
5330 check_forced)
6387d602
ILT		 5331 bfd *input_bfd;
5332 const Elf_Internal_Rela *relocation;
5333 asection **local_sections;
b305ef96 5334 boolean check_forced;
6387d602
ILT		 5335{
5336 unsigned long r_symndx;
5337 Elf_Internal_Shdr *symtab_hdr;
be3ccd9c 5338 struct mips_elf_link_hash_entry *h;
b305ef96 5339 size_t extsymoff;
6387d602
ILT		 5340
5341 r_symndx = ELF32_R_SYM (relocation->r_info);
5342 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
b305ef96
UC		 5343 extsymoff = (elf_bad_symtab (input_bfd)) ? 0 : symtab_hdr->sh_info;
5344
5345 if (r_symndx < extsymoff)
5346 return true;
5347 if (elf_bad_symtab (input_bfd) && local_sections[r_symndx] != NULL)
5348 return true;
5349
5350 if (check_forced)
6387d602 5351 {
be3ccd9c 5352 /* Look up the hash table to check whether the symbol
b305ef96 5353 was forced local. */
be3ccd9c
KH		 5354 h = (struct mips_elf_link_hash_entry *)
5355 elf_sym_hashes (input_bfd) [r_symndx - extsymoff];
5356 /* Find the real hash-table entry for this symbol. */
5357 while (h->root.root.type == bfd_link_hash_indirect
b305ef96 5358 || h->root.root.type == bfd_link_hash_warning)
be3ccd9c
KH		 5359 h = (struct mips_elf_link_hash_entry *) h->root.root.u.i.link;
5360 if ((h->root.elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0)
5361 return true;
6387d602 5362 }
b305ef96
UC		 5363
5364 return false;
6387d602
ILT		 5365}
5366
7403cb63 5367/* Sign-extend VALUE, which has the indicated number of BITS. */
252b5132 5368
7403cb63
MM		 5369static bfd_vma
5370mips_elf_sign_extend (value, bits)
5371 bfd_vma value;
5372 int bits;
5373{
be3ccd9c 5374 if (value & ((bfd_vma) 1 << (bits - 1)))
7403cb63 5375 /* VALUE is negative. */
be3ccd9c
KH		 5376 value |= ((bfd_vma) - 1) << bits;
5377
7403cb63
MM		 5378 return value;
5379}
252b5132 5380
7403cb63
MM		 5381/* Return non-zero if the indicated VALUE has overflowed the maximum
5382 range expressable by a signed number with the indicated number of
5383 BITS. */
252b5132 5384
7403cb63
MM		 5385static boolean
5386mips_elf_overflow_p (value, bits)
5387 bfd_vma value;
5388 int bits;
5389{
5390 bfd_signed_vma svalue = (bfd_signed_vma) value;
252b5132 5391
7403cb63
MM		 5392 if (svalue > (1 << (bits - 1)) - 1)
5393 /* The value is too big. */
5394 return true;
5395 else if (svalue < -(1 << (bits - 1)))
5396 /* The value is too small. */
5397 return true;
be3ccd9c 5398
7403cb63
MM		 5399 /* All is well. */
5400 return false;
5401}
252b5132 5402
7403cb63 5403/* Calculate the %high function. */
252b5132 5404
7403cb63
MM		 5405static bfd_vma
5406mips_elf_high (value)
5407 bfd_vma value;
5408{
5409 return ((value + (bfd_vma) 0x8000) >> 16) & 0xffff;
5410}
252b5132 5411
7403cb63
MM		 5412/* Calculate the %higher function. */
5413
5414static bfd_vma
5415mips_elf_higher (value)
5f771d47 5416 bfd_vma value ATTRIBUTE_UNUSED;
7403cb63
MM		 5417{
5418#ifdef BFD64
5419 return ((value + (bfd_vma) 0x80008000) >> 32) & 0xffff;
5420#else
5421 abort ();
5422 return (bfd_vma) -1;
5423#endif
5424}
5425
5426/* Calculate the %highest function. */
5427
be3ccd9c 5428static bfd_vma
7403cb63 5429mips_elf_highest (value)
5f771d47 5430 bfd_vma value ATTRIBUTE_UNUSED;
7403cb63
MM		 5431{
5432#ifdef BFD64
0af99795 5433 return ((value + (bfd_vma) 0x800080008000) >> 48) & 0xffff;
7403cb63
MM		 5434#else
5435 abort ();
5436 return (bfd_vma) -1;
5437#endif
5438}
5439
5440/* Returns the GOT index for the global symbol indicated by H. */
5441
be3ccd9c 5442static bfd_vma
7403cb63
MM		 5443mips_elf_global_got_index (abfd, h)
5444 bfd *abfd;
5445 struct elf_link_hash_entry *h;
5446{
5447 bfd_vma index;
5448 asection *sgot;
5449 struct mips_got_info *g;
5450
5451 g = mips_elf_got_info (abfd, &sgot);
5452
5453 /* Once we determine the global GOT entry with the lowest dynamic
5454 symbol table index, we must put all dynamic symbols with greater
5455 indices into the GOT. That makes it easy to calculate the GOT
5456 offset. */
5457 BFD_ASSERT (h->dynindx >= g->global_gotsym->dynindx);
be3ccd9c 5458 index = ((h->dynindx - g->global_gotsym->dynindx + g->local_gotno)
103186c6 5459 * MIPS_ELF_GOT_SIZE (abfd));
7403cb63
MM		 5460 BFD_ASSERT (index < sgot->_raw_size);
5461
5462 return index;
5463}
5464
5465/* Returns the offset for the entry at the INDEXth position
5466 in the GOT. */
5467
5468static bfd_vma
5469mips_elf_got_offset_from_index (dynobj, output_bfd, index)
5470 bfd *dynobj;
5471 bfd *output_bfd;
5472 bfd_vma index;
5473{
5474 asection *sgot;
5475 bfd_vma gp;
7403cb63 5476
103186c6 5477 sgot = mips_elf_got_section (dynobj);
7403cb63 5478 gp = _bfd_get_gp_value (output_bfd);
be3ccd9c 5479 return (sgot->output_section->vma + sgot->output_offset + index -
7403cb63
MM		 5480 gp);
5481}
5482
5483/* If H is a symbol that needs a global GOT entry, but has a dynamic
5484 symbol table index lower than any we've seen to date, record it for
5485 posterity. */
5486
5487static boolean
5488mips_elf_record_global_got_symbol (h, info, g)
5489 struct elf_link_hash_entry *h;
5490 struct bfd_link_info *info;
5f771d47 5491 struct mips_got_info *g ATTRIBUTE_UNUSED;
7403cb63
MM		 5492{
5493 /* A global symbol in the GOT must also be in the dynamic symbol
5494 table. */
5495 if (h->dynindx == -1
5496 && !bfd_elf32_link_record_dynamic_symbol (info, h))
5497 return false;
be3ccd9c 5498
7403cb63
MM		 5499 /* If we've already marked this entry as need GOT space, we don't
5500 need to do it again. */
5501 if (h->got.offset != (bfd_vma) - 1)
5502 return true;
5503
5504 /* By setting this to a value other than -1, we are indicating that
5505 there needs to be a GOT entry for H. */
5506 h->got.offset = 0;
5507
5508 return true;
5509}
5510
5511/* This structure is passed to mips_elf_sort_hash_table_f when sorting
5512 the dynamic symbols. */
be3ccd9c 5513
38b1a46c
NC		 5514struct mips_elf_hash_sort_data
5515{
7403cb63
MM		 5516 /* The symbol in the global GOT with the lowest dynamic symbol table
5517 index. */
5518 struct elf_link_hash_entry *low;
5519 /* The least dynamic symbol table index corresponding to a symbol
5520 with a GOT entry. */
5521 long min_got_dynindx;
5522 /* The greatest dynamic symbol table index not corresponding to a
5523 symbol without a GOT entry. */
5524 long max_non_got_dynindx;
5525};
5526
5527/* If H needs a GOT entry, assign it the highest available dynamic
be3ccd9c 5528 index. Otherwise, assign it the lowest available dynamic
7403cb63
MM		 5529 index. */
5530
5531static boolean
5532mips_elf_sort_hash_table_f (h, data)
5533 struct mips_elf_link_hash_entry *h;
5534 PTR data;
5535{
be3ccd9c 5536 struct mips_elf_hash_sort_data *hsd
7403cb63
MM		 5537 = (struct mips_elf_hash_sort_data *) data;
5538
5539 /* Symbols without dynamic symbol table entries aren't interesting
5540 at all. */
5541 if (h->root.dynindx == -1)
5542 return true;
5543
5544 if (h->root.got.offset != 0)
5545 h->root.dynindx = hsd->max_non_got_dynindx++;
5546 else
5547 {
5548 h->root.dynindx = --hsd->min_got_dynindx;
5549 hsd->low = (struct elf_link_hash_entry *) h;
5550 }
5551
5552 return true;
5553}
5554
5555/* Sort the dynamic symbol table so that symbols that need GOT entries
5556 appear towards the end. This reduces the amount of GOT space
b3be9b46
RH		 5557 required. MAX_LOCAL is used to set the number of local symbols
5558 known to be in the dynamic symbol table. During
5559 mips_elf_size_dynamic_sections, this value is 1. Afterward, the
5560 section symbols are added and the count is higher. */
7403cb63
MM		 5561
5562static boolean
b3be9b46 5563mips_elf_sort_hash_table (info, max_local)
7403cb63 5564 struct bfd_link_info *info;
b3be9b46 5565 unsigned long max_local;
7403cb63
MM		 5566{
5567 struct mips_elf_hash_sort_data hsd;
5568 struct mips_got_info *g;
5569 bfd *dynobj;
5570
5571 dynobj = elf_hash_table (info)->dynobj;
5572
5573 hsd.low = NULL;
5574 hsd.min_got_dynindx = elf_hash_table (info)->dynsymcount;
b3be9b46 5575 hsd.max_non_got_dynindx = max_local;
be3ccd9c
KH		 5576 mips_elf_link_hash_traverse (((struct mips_elf_link_hash_table *)
5577 elf_hash_table (info)),
5578 mips_elf_sort_hash_table_f,
7403cb63
MM		 5579 &hsd);
5580
5581 /* There shoud have been enough room in the symbol table to
5582 accomodate both the GOT and non-GOT symbols. */
b305ef96 5583 BFD_ASSERT (hsd.max_non_got_dynindx <= hsd.min_got_dynindx);
7403cb63
MM		 5584
5585 /* Now we know which dynamic symbol has the lowest dynamic symbol
5586 table index in the GOT. */
5587 g = mips_elf_got_info (dynobj, NULL);
5588 g->global_gotsym = hsd.low;
5589
5590 return true;
5591}
5592
5593/* Create a local GOT entry for VALUE. Return the index of the entry,
5594 or -1 if it could not be created. */
5595
5596static bfd_vma
5597mips_elf_create_local_got_entry (abfd, g, sgot, value)
5598 bfd *abfd;
5599 struct mips_got_info *g;
5600 asection *sgot;
5601 bfd_vma value;
5602{
5603 if (g->assigned_gotno >= g->local_gotno)
5604 {
5605 /* We didn't allocate enough space in the GOT. */
5606 (*_bfd_error_handler)
5607 (_("not enough GOT space for local GOT entries"));
5608 bfd_set_error (bfd_error_bad_value);
5609 return (bfd_vma) -1;
5610 }
5611
103186c6 5612 MIPS_ELF_PUT_WORD (abfd, value,
be3ccd9c 5613 (sgot->contents
103186c6
MM		 5614 + MIPS_ELF_GOT_SIZE (abfd) * g->assigned_gotno));
5615 return MIPS_ELF_GOT_SIZE (abfd) * g->assigned_gotno++;
7403cb63
MM		 5616}
5617
5618/* Returns the GOT offset at which the indicated address can be found.
5619 If there is not yet a GOT entry for this value, create one. Returns
5620 -1 if no satisfactory GOT offset can be found. */
5621
5622static bfd_vma
5623mips_elf_local_got_index (abfd, info, value)
5624 bfd *abfd;
5625 struct bfd_link_info *info;
5626 bfd_vma value;
5627{
5628 asection *sgot;
5629 struct mips_got_info *g;
5630 bfd_byte *entry;
5631
5632 g = mips_elf_got_info (elf_hash_table (info)->dynobj, &sgot);
5633
5634 /* Look to see if we already have an appropriate entry. */
be3ccd9c
KH		 5635 for (entry = (sgot->contents
5636 + MIPS_ELF_GOT_SIZE (abfd) * MIPS_RESERVED_GOTNO);
103186c6
MM		 5637 entry != sgot->contents + MIPS_ELF_GOT_SIZE (abfd) * g->assigned_gotno;
5638 entry += MIPS_ELF_GOT_SIZE (abfd))
7403cb63 5639 {
103186c6 5640 bfd_vma address = MIPS_ELF_GET_WORD (abfd, entry);
7403cb63
MM		 5641 if (address == value)
5642 return entry - sgot->contents;
5643 }
5644
5645 return mips_elf_create_local_got_entry (abfd, g, sgot, value);
5646}
5647
5648/* Find a GOT entry that is within 32KB of the VALUE. These entries
5649 are supposed to be placed at small offsets in the GOT, i.e.,
5650 within 32KB of GP. Return the index into the GOT for this page,
5651 and store the offset from this entry to the desired address in
5652 OFFSETP, if it is non-NULL. */
5653
5654static bfd_vma
5655mips_elf_got_page (abfd, info, value, offsetp)
5656 bfd *abfd;
5657 struct bfd_link_info *info;
5658 bfd_vma value;
5659 bfd_vma *offsetp;
5660{
5661 asection *sgot;
5662 struct mips_got_info *g;
5663 bfd_byte *entry;
5664 bfd_byte *last_entry;
86033394 5665 bfd_vma index = 0;
7403cb63
MM		 5666 bfd_vma address;
5667
5668 g = mips_elf_got_info (elf_hash_table (info)->dynobj, &sgot);
5669
5670 /* Look to see if we aleady have an appropriate entry. */
103186c6 5671 last_entry = sgot->contents + MIPS_ELF_GOT_SIZE (abfd) * g->assigned_gotno;
be3ccd9c 5672 for (entry = (sgot->contents
103186c6 5673 + MIPS_ELF_GOT_SIZE (abfd) * MIPS_RESERVED_GOTNO);
7403cb63 5674 entry != last_entry;
103186c6 5675 entry += MIPS_ELF_GOT_SIZE (abfd))
7403cb63 5676 {
103186c6
MM		 5677 address = MIPS_ELF_GET_WORD (abfd, entry);
5678
7403cb63
MM		 5679 if (!mips_elf_overflow_p (value - address, 16))
5680 {
5681 /* This entry will serve as the page pointer. We can add a
5682 16-bit number to it to get the actual address. */
5683 index = entry - sgot->contents;
5684 break;
252b5132 5685 }
7403cb63
MM		 5686 }
5687
5688 /* If we didn't have an appropriate entry, we create one now. */
5689 if (entry == last_entry)
5690 index = mips_elf_create_local_got_entry (abfd, g, sgot, value);
5691
5692 if (offsetp)
5693 {
103186c6 5694 address = MIPS_ELF_GET_WORD (abfd, entry);
7403cb63
MM		 5695 *offsetp = value - address;
5696 }
5697
5698 return index;
5699}
5700
5701/* Find a GOT entry whose higher-order 16 bits are the same as those
5702 for value. Return the index into the GOT for this entry. */
5703
5704static bfd_vma
b305ef96 5705mips_elf_got16_entry (abfd, info, value, external)
7403cb63
MM		 5706 bfd *abfd;
5707 struct bfd_link_info *info;
5708 bfd_vma value;
b305ef96 5709 boolean external;
7403cb63
MM		 5710{
5711 asection *sgot;
5712 struct mips_got_info *g;
5713 bfd_byte *entry;
5714 bfd_byte *last_entry;
86033394 5715 bfd_vma index = 0;
7403cb63
MM		 5716 bfd_vma address;
5717
b305ef96
UC		 5718 if (! external)
5719 {
5720 /* Although the ABI says that it is "the high-order 16 bits" that we
5721 want, it is really the %high value. The complete value is
5722 calculated with a `addiu' of a LO16 relocation, just as with a
5723 HI16/LO16 pair. */
5724 value = mips_elf_high (value) << 16;
5725 }
5726
7403cb63
MM		 5727 g = mips_elf_got_info (elf_hash_table (info)->dynobj, &sgot);
5728
5729 /* Look to see if we already have an appropriate entry. */
103186c6 5730 last_entry = sgot->contents + MIPS_ELF_GOT_SIZE (abfd) * g->assigned_gotno;
be3ccd9c 5731 for (entry = (sgot->contents
103186c6 5732 + MIPS_ELF_GOT_SIZE (abfd) * MIPS_RESERVED_GOTNO);
7403cb63 5733 entry != last_entry;
103186c6 5734 entry += MIPS_ELF_GOT_SIZE (abfd))
7403cb63 5735 {
103186c6 5736 address = MIPS_ELF_GET_WORD (abfd, entry);
b305ef96 5737 if (address == value)
252b5132 5738 {
b305ef96
UC		 5739 /* This entry has the right high-order 16 bits, and the low-order
5740 16 bits are set to zero. */
4f2860ca 5741 index = entry - sgot->contents;
7403cb63
MM		 5742 break;
5743 }
5744 }
5745
5746 /* If we didn't have an appropriate entry, we create one now. */
5747 if (entry == last_entry)
5748 index = mips_elf_create_local_got_entry (abfd, g, sgot, value);
5749
5750 return index;
5751}
5752
bb2d6cd7 5753/* Returns the first relocation of type r_type found, beginning with
23b255aa 5754 RELOCATION. RELEND is one-past-the-end of the relocation table. */
7403cb63 5755
23b255aa 5756static const Elf_Internal_Rela *
bb2d6cd7
GK		 5757mips_elf_next_relocation (r_type, relocation, relend)
5758 unsigned int r_type;
103186c6
MM		 5759 const Elf_Internal_Rela *relocation;
5760 const Elf_Internal_Rela *relend;
7403cb63
MM		 5761{
5762 /* According to the MIPS ELF ABI, the R_MIPS_LO16 relocation must be
5763 immediately following. However, for the IRIX6 ABI, the next
5764 relocation may be a composed relocation consisting of several
5765 relocations for the same address. In that case, the R_MIPS_LO16
435394bf 5766 relocation may occur as one of these. We permit a similar
7403cb63
MM		 5767 extension in general, as that is useful for GCC. */
5768 while (relocation < relend)
5769 {
bb2d6cd7 5770 if (ELF32_R_TYPE (relocation->r_info) == r_type)
23b255aa 5771 return relocation;
7403cb63
MM		 5772
5773 ++relocation;
5774 }
5775
5776 /* We didn't find it. */
6387d602 5777 bfd_set_error (bfd_error_bad_value);
23b255aa 5778 return NULL;
7403cb63
MM		 5779}
5780
7b1f1231
MM		 5781/* Create a rel.dyn relocation for the dynamic linker to resolve. REL
5782 is the original relocation, which is now being transformed into a
b305ef96 5783 dynamic relocation. The ADDENDP is adjusted if necessary; the
7b1f1231 5784 caller should store the result in place of the original addend. */
7403cb63 5785
7b1f1231
MM		 5786static boolean
5787mips_elf_create_dynamic_relocation (output_bfd, info, rel, h, sec,
9117d219 5788 symbol, addendp, input_section)
7403cb63
MM		 5789 bfd *output_bfd;
5790 struct bfd_link_info *info;
103186c6 5791 const Elf_Internal_Rela *rel;
7b1f1231
MM		 5792 struct mips_elf_link_hash_entry *h;
5793 asection *sec;
5794 bfd_vma symbol;
5795 bfd_vma *addendp;
7403cb63
MM		 5796 asection *input_section;
5797{
5798 Elf_Internal_Rel outrel;
5799 boolean skip;
5800 asection *sreloc;
5801 bfd *dynobj;
5802 int r_type;
5803
5804 r_type = ELF32_R_TYPE (rel->r_info);
5805 dynobj = elf_hash_table (info)->dynobj;
be3ccd9c 5806 sreloc
103186c6
MM		 5807 = bfd_get_section_by_name (dynobj,
5808 MIPS_ELF_REL_DYN_SECTION_NAME (output_bfd));
7403cb63 5809 BFD_ASSERT (sreloc != NULL);
b305ef96 5810 BFD_ASSERT (sreloc->contents != NULL);
7403cb63
MM		 5811
5812 skip = false;
5813
7b1f1231
MM		 5814 /* We begin by assuming that the offset for the dynamic relocation
5815 is the same as for the original relocation. We'll adjust this
5816 later to reflect the correct output offsets. */
7403cb63
MM		 5817 if (elf_section_data (input_section)->stab_info == NULL)
5818 outrel.r_offset = rel->r_offset;
5819 else
5820 {
7b1f1231
MM		 5821 /* Except that in a stab section things are more complex.
5822 Because we compress stab information, the offset given in the
5823 relocation may not be the one we want; we must let the stabs
5824 machinery tell us the offset. */
be3ccd9c 5825 outrel.r_offset
7b1f1231
MM		 5826 = (_bfd_stab_section_offset
5827 (output_bfd, &elf_hash_table (info)->stab_info,
5828 input_section,
5829 &elf_section_data (input_section)->stab_info,
5830 rel->r_offset));
5831 /* If we didn't need the relocation at all, this value will be
5832 -1. */
5833 if (outrel.r_offset == (bfd_vma) -1)
7403cb63 5834 skip = true;
7403cb63 5835 }
7403cb63 5836
b305ef96 5837 /* If we've decided to skip this relocation, just output an empty
7b1f1231
MM		 5838 record. Note that R_MIPS_NONE == 0, so that this call to memset
5839 is a way of setting R_TYPE to R_MIPS_NONE. */
7403cb63
MM		 5840 if (skip)
5841 memset (&outrel, 0, sizeof (outrel));
7b1f1231
MM		 5842 else
5843 {
5844 long indx;
5845 bfd_vma section_offset;
5846
5847 /* We must now calculate the dynamic symbol table index to use
5848 in the relocation. */
5849 if (h != NULL
5850 && (! info->symbolic || (h->root.elf_link_hash_flags
5851 & ELF_LINK_HASH_DEF_REGULAR) == 0))
5852 {
5853 indx = h->root.dynindx;
b305ef96
UC		 5854 /* h->root.dynindx may be -1 if this symbol was marked to
5855 become local. */
5856 if (indx == -1)
be3ccd9c 5857 indx = 0;
7b1f1231
MM		 5858 }
5859 else
5860 {
5861 if (sec != NULL && bfd_is_abs_section (sec))
5862 indx = 0;
5863 else if (sec == NULL || sec->owner == NULL)
5864 {
5865 bfd_set_error (bfd_error_bad_value);
5866 return false;
5867 }
5868 else
5869 {
5870 indx = elf_section_data (sec->output_section)->dynindx;
5871 if (indx == 0)
5872 abort ();
5873 }
5874
5875 /* Figure out how far the target of the relocation is from
5876 the beginning of its section. */
5877 section_offset = symbol - sec->output_section->vma;
5878 /* The relocation we're building is section-relative.
5879 Therefore, the original addend must be adjusted by the
5880 section offset. */
9117d219 5881 *addendp += section_offset;
7b1f1231
MM		 5882 /* Now, the relocation is just against the section. */
5883 symbol = sec->output_section->vma;
5884 }
be3ccd9c 5885
9117d219
NC		 5886 /* If the relocation was previously an absolute relocation and
5887 this symbol will not be referred to by the relocation, we must
5888 adjust it by the value we give it in the dynamic symbol table.
5889 Otherwise leave the job up to the dynamic linker. */
5890 if (!indx && r_type != R_MIPS_REL32)
7b1f1231
MM		 5891 *addendp += symbol;
5892
5893 /* The relocation is always an REL32 relocation because we don't
5894 know where the shared library will wind up at load-time. */
5895 outrel.r_info = ELF32_R_INFO (indx, R_MIPS_REL32);
5896
5897 /* Adjust the output offset of the relocation to reference the
5898 correct location in the output file. */
5899 outrel.r_offset += (input_section->output_section->vma
5900 + input_section->output_offset);
5901 }
7403cb63 5902
7b1f1231
MM		 5903 /* Put the relocation back out. We have to use the special
5904 relocation outputter in the 64-bit case since the 64-bit
5905 relocation format is non-standard. */
103186c6
MM		 5906 if (ABI_64_P (output_bfd))
5907 {
5908 (*get_elf_backend_data (output_bfd)->s->swap_reloc_out)
5909 (output_bfd, &outrel,
be3ccd9c 5910 (sreloc->contents
103186c6
MM		 5911 + sreloc->reloc_count * sizeof (Elf64_Mips_External_Rel)));
5912 }
5913 else
5914 bfd_elf32_swap_reloc_out (output_bfd, &outrel,
5915 (((Elf32_External_Rel *)
5916 sreloc->contents)
5917 + sreloc->reloc_count));
7b1f1231
MM		 5918
5919 /* Record the index of the first relocation referencing H. This
5920 information is later emitted in the .msym section. */
5921 if (h != NULL
be3ccd9c 5922 && (h->min_dyn_reloc_index == 0
7b1f1231
MM		 5923 || sreloc->reloc_count < h->min_dyn_reloc_index))
5924 h->min_dyn_reloc_index = sreloc->reloc_count;
5925
5926 /* We've now added another relocation. */
7403cb63
MM		 5927 ++sreloc->reloc_count;
5928
5929 /* Make sure the output section is writable. The dynamic linker
5930 will be writing to it. */
5931 elf_section_data (input_section->output_section)->this_hdr.sh_flags
5932 |= SHF_WRITE;
5933
5934 /* On IRIX5, make an entry of compact relocation info. */
5935 if (! skip && IRIX_COMPAT (output_bfd) == ict_irix5)
5936 {
be3ccd9c 5937 asection *scpt = bfd_get_section_by_name (dynobj, ".compact_rel");
7403cb63
MM		 5938 bfd_byte *cr;
5939
5940 if (scpt)
5941 {
5942 Elf32_crinfo cptrel;
5943
5944 mips_elf_set_cr_format (cptrel, CRF_MIPS_LONG);
5945 cptrel.vaddr = (rel->r_offset
5946 + input_section->output_section->vma
5947 + input_section->output_offset);
5948 if (r_type == R_MIPS_REL32)
5949 mips_elf_set_cr_type (cptrel, CRT_MIPS_REL32);
252b5132 5950 else
7403cb63
MM		 5951 mips_elf_set_cr_type (cptrel, CRT_MIPS_WORD);
5952 mips_elf_set_cr_dist2to (cptrel, 0);
7b1f1231 5953 cptrel.konst = *addendp;
7403cb63
MM		 5954
5955 cr = (scpt->contents
5956 + sizeof (Elf32_External_compact_rel));
5957 bfd_elf32_swap_crinfo_out (output_bfd, &cptrel,
5958 ((Elf32_External_crinfo *) cr
5959 + scpt->reloc_count));
5960 ++scpt->reloc_count;
5961 }
5962 }
252b5132 5963
7b1f1231 5964 return true;
7403cb63 5965}
252b5132 5966
7403cb63
MM		 5967/* Calculate the value produced by the RELOCATION (which comes from
5968 the INPUT_BFD). The ADDEND is the addend to use for this
5969 RELOCATION; RELOCATION->R_ADDEND is ignored.
5970
5971 The result of the relocation calculation is stored in VALUEP.
197b9ca0
MM		 5972 REQUIRE_JALXP indicates whether or not the opcode used with this
5973 relocation must be JALX.
7403cb63
MM		 5974
5975 This function returns bfd_reloc_continue if the caller need take no
5976 further action regarding this relocation, bfd_reloc_notsupported if
5977 something goes dramatically wrong, bfd_reloc_overflow if an
5978 overflow occurs, and bfd_reloc_ok to indicate success. */
5979
5980static bfd_reloc_status_type
be3ccd9c 5981mips_elf_calculate_relocation (abfd,
7403cb63
MM		 5982 input_bfd,
5983 input_section,
5984 info,
5985 relocation,
5986 addend,
5987 howto,
7403cb63
MM		 5988 local_syms,
5989 local_sections,
5990 valuep,
197b9ca0 5991 namep,
be3ccd9c 5992 require_jalxp)
7403cb63
MM		 5993 bfd *abfd;
5994 bfd *input_bfd;
5995 asection *input_section;
5996 struct bfd_link_info *info;
103186c6 5997 const Elf_Internal_Rela *relocation;
7403cb63
MM		 5998 bfd_vma addend;
5999 reloc_howto_type *howto;
7403cb63
MM		 6000 Elf_Internal_Sym *local_syms;
6001 asection **local_sections;
6002 bfd_vma *valuep;
6003 const char **namep;
197b9ca0 6004 boolean *require_jalxp;
7403cb63
MM		 6005{
6006 /* The eventual value we will return. */
6007 bfd_vma value;
6008 /* The address of the symbol against which the relocation is
6009 occurring. */
6010 bfd_vma symbol = 0;
6011 /* The final GP value to be used for the relocatable, executable, or
6012 shared object file being produced. */
6013 bfd_vma gp = (bfd_vma) - 1;
6014 /* The place (section offset or address) of the storage unit being
6015 relocated. */
6016 bfd_vma p;
6017 /* The value of GP used to create the relocatable object. */
6018 bfd_vma gp0 = (bfd_vma) - 1;
6019 /* The offset into the global offset table at which the address of
6020 the relocation entry symbol, adjusted by the addend, resides
6021 during execution. */
6022 bfd_vma g = (bfd_vma) - 1;
6023 /* The section in which the symbol referenced by the relocation is
6024 located. */
6025 asection *sec = NULL;
be3ccd9c 6026 struct mips_elf_link_hash_entry *h = NULL;
103186c6
MM		 6027 /* True if the symbol referred to by this relocation is a local
6028 symbol. */
7403cb63 6029 boolean local_p;
103186c6 6030 /* True if the symbol referred to by this relocation is "_gp_disp". */
7403cb63
MM		 6031 boolean gp_disp_p = false;
6032 Elf_Internal_Shdr *symtab_hdr;
6033 size_t extsymoff;
103186c6 6034 unsigned long r_symndx;
7403cb63 6035 int r_type;
103186c6
MM		 6036 /* True if overflow occurred during the calculation of the
6037 relocation value. */
7403cb63 6038 boolean overflowed_p;
197b9ca0
MM		 6039 /* True if this relocation refers to a MIPS16 function. */
6040 boolean target_is_16_bit_code_p = false;
7403cb63
MM		 6041
6042 /* Parse the relocation. */
6043 r_symndx = ELF32_R_SYM (relocation->r_info);
6044 r_type = ELF32_R_TYPE (relocation->r_info);
be3ccd9c 6045 p = (input_section->output_section->vma
7403cb63
MM		 6046 + input_section->output_offset
6047 + relocation->r_offset);
6048
6049 /* Assume that there will be no overflow. */
6050 overflowed_p = false;
6051
6387d602
ILT		 6052 /* Figure out whether or not the symbol is local, and get the offset
6053 used in the array of hash table entries. */
7403cb63 6054 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
6387d602 6055 local_p = mips_elf_local_relocation_p (input_bfd, relocation,
b305ef96 6056 local_sections, false);
6387d602
ILT		 6057 if (! elf_bad_symtab (input_bfd))
6058 extsymoff = symtab_hdr->sh_info;
6059 else
7403cb63
MM		 6060 {
6061 /* The symbol table does not follow the rule that local symbols
6062 must come before globals. */
6063 extsymoff = 0;
7403cb63 6064 }
be3ccd9c 6065
7403cb63
MM		 6066 /* Figure out the value of the symbol. */
6067 if (local_p)
6068 {
6069 Elf_Internal_Sym *sym;
6070
6071 sym = local_syms + r_symndx;
6072 sec = local_sections[r_symndx];
6073
6074 symbol = sec->output_section->vma + sec->output_offset;
6075 if (ELF_ST_TYPE (sym->st_info) != STT_SECTION)
6076 symbol += sym->st_value;
6077
6078 /* MIPS16 text labels should be treated as odd. */
6079 if (sym->st_other == STO_MIPS16)
6080 ++symbol;
6081
6082 /* Record the name of this symbol, for our caller. */
6083 *namep = bfd_elf_string_from_elf_section (input_bfd,
6084 symtab_hdr->sh_link,
6085 sym->st_name);
e049a0de 6086 if (*namep == '\0')
7403cb63 6087 *namep = bfd_section_name (input_bfd, sec);
197b9ca0
MM		 6088
6089 target_is_16_bit_code_p = (sym->st_other == STO_MIPS16);
7403cb63
MM		 6090 }
6091 else
6092 {
6093 /* For global symbols we look up the symbol in the hash-table. */
be3ccd9c 6094 h = ((struct mips_elf_link_hash_entry *)
7403cb63
MM		 6095 elf_sym_hashes (input_bfd) [r_symndx - extsymoff]);
6096 /* Find the real hash-table entry for this symbol. */
b305ef96
UC		 6097 while (h->root.root.type == bfd_link_hash_indirect
6098 || h->root.root.type == bfd_link_hash_warning)
7403cb63 6099 h = (struct mips_elf_link_hash_entry *) h->root.root.u.i.link;
be3ccd9c 6100
7403cb63
MM		 6101 /* Record the name of this symbol, for our caller. */
6102 *namep = h->root.root.root.string;
6103
6104 /* See if this is the special _gp_disp symbol. Note that such a
6105 symbol must always be a global symbol. */
6106 if (strcmp (h->root.root.root.string, "_gp_disp") == 0)
6107 {
6108 /* Relocations against _gp_disp are permitted only with
6109 R_MIPS_HI16 and R_MIPS_LO16 relocations. */
6110 if (r_type != R_MIPS_HI16 && r_type != R_MIPS_LO16)
6111 return bfd_reloc_notsupported;
6112
6113 gp_disp_p = true;
6114 }
97a4bb05
MM		 6115 /* If this symbol is defined, calculate its address. Note that
6116 _gp_disp is a magic symbol, always implicitly defined by the
6117 linker, so it's inappropriate to check to see whether or not
6118 its defined. */
6119 else if ((h->root.root.type == bfd_link_hash_defined
6120 || h->root.root.type == bfd_link_hash_defweak)
6121 && h->root.root.u.def.section)
7403cb63
MM		 6122 {
6123 sec = h->root.root.u.def.section;
6124 if (sec->output_section)
be3ccd9c 6125 symbol = (h->root.root.u.def.value
7403cb63
MM		 6126 + sec->output_section->vma
6127 + sec->output_offset);
252b5132 6128 else
7403cb63
MM		 6129 symbol = h->root.root.u.def.value;
6130 }
97287574
MM		 6131 else if (h->root.root.type == bfd_link_hash_undefweak)
6132 /* We allow relocations against undefined weak symbols, giving
6133 it the value zero, so that you can undefined weak functions
6134 and check to see if they exist by looking at their
6135 addresses. */
6136 symbol = 0;
3a27a730 6137 else if (info->shared && !info->symbolic && !info->no_undefined
ba09750c 6138 && ELF_ST_VISIBILITY (h->root.other) == STV_DEFAULT)
8535d39c 6139 symbol = 0;
f7cb7d68
UC		 6140 else if (strcmp (h->root.root.root.string, "_DYNAMIC_LINK") == 0 ||
6141 strcmp (h->root.root.root.string, "_DYNAMIC_LINKING") == 0)
3811169e
MM		 6142 {
6143 /* If this is a dynamic link, we should have created a
be3ccd9c 6144 _DYNAMIC_LINK symbol or _DYNAMIC_LINKING(for normal mips) symbol
f7cb7d68 6145 in in mips_elf_create_dynamic_sections.
3811169e
MM		 6146 Otherwise, we should define the symbol with a value of 0.
6147 FIXME: It should probably get into the symbol table
6148 somehow as well. */
6149 BFD_ASSERT (! info->shared);
6150 BFD_ASSERT (bfd_get_section_by_name (abfd, ".dynamic") == NULL);
8535d39c 6151 symbol = 0;
3811169e 6152 }
7403cb63
MM		 6153 else
6154 {
5cc7c785
L		 6155 if (! ((*info->callbacks->undefined_symbol)
6156 (info, h->root.root.root.string, input_bfd,
6157 input_section, relocation->r_offset,
3a27a730 6158 (!info->shared || info->no_undefined
ba09750c 6159 || ELF_ST_VISIBILITY (h->root.other)))))
5cc7c785
L		 6160 return bfd_reloc_undefined;
6161 symbol = 0;
7403cb63 6162 }
197b9ca0
MM		 6163
6164 target_is_16_bit_code_p = (h->root.other == STO_MIPS16);
6165 }
be3ccd9c 6166
197b9ca0
MM		 6167 /* If this is a 32-bit call to a 16-bit function with a stub, we
6168 need to redirect the call to the stub, unless we're already *in*
6169 a stub. */
6170 if (r_type != R_MIPS16_26 && !info->relocateable
6171 && ((h != NULL && h->fn_stub != NULL)
6172 || (local_p && elf_tdata (input_bfd)->local_stubs != NULL
6173 && elf_tdata (input_bfd)->local_stubs[r_symndx] != NULL))
6174 && !mips_elf_stub_section_p (input_bfd, input_section))
6175 {
6176 /* This is a 32-bit call to a 16-bit function. We should
6177 have already noticed that we were going to need the
6178 stub. */
6179 if (local_p)
6180 sec = elf_tdata (input_bfd)->local_stubs[r_symndx];
6181 else
6182 {
6183 BFD_ASSERT (h->need_fn_stub);
6184 sec = h->fn_stub;
6185 }
6186
6187 symbol = sec->output_section->vma + sec->output_offset;
7403cb63 6188 }
197b9ca0
MM		 6189 /* If this is a 16-bit call to a 32-bit function with a stub, we
6190 need to redirect the call to the stub. */
6191 else if (r_type == R_MIPS16_26 && !info->relocateable
be3ccd9c 6192 && h != NULL
197b9ca0
MM		 6193 && (h->call_stub != NULL || h->call_fp_stub != NULL)
6194 && !target_is_16_bit_code_p)
6195 {
6196 /* If both call_stub and call_fp_stub are defined, we can figure
6197 out which one to use by seeing which one appears in the input
6198 file. */
6199 if (h->call_stub != NULL && h->call_fp_stub != NULL)
6200 {
6201 asection *o;
6202
6203 sec = NULL;
6204 for (o = input_bfd->sections; o != NULL; o = o->next)
6205 {
6206 if (strncmp (bfd_get_section_name (input_bfd, o),
6207 CALL_FP_STUB, sizeof CALL_FP_STUB - 1) == 0)
6208 {
6209 sec = h->call_fp_stub;
6210 break;
6211 }
6212 }
6213 if (sec == NULL)
6214 sec = h->call_stub;
6215 }
6216 else if (h->call_stub != NULL)
6217 sec = h->call_stub;
6218 else
6219 sec = h->call_fp_stub;
6220
6221 BFD_ASSERT (sec->_raw_size > 0);
6222 symbol = sec->output_section->vma + sec->output_offset;
6223 }
6224
6225 /* Calls from 16-bit code to 32-bit code and vice versa require the
6226 special jalx instruction. */
6387d602
ILT		 6227 *require_jalxp = (!info->relocateable
6228 && ((r_type == R_MIPS16_26) != target_is_16_bit_code_p));
252b5132 6229
b305ef96
UC		 6230 local_p = mips_elf_local_relocation_p (input_bfd, relocation,
6231 local_sections, true);
6232
7403cb63
MM		 6233 /* If we haven't already determined the GOT offset, or the GP value,
6234 and we're going to need it, get it now. */
6235 switch (r_type)
6236 {
6237 case R_MIPS_CALL16:
2841ecd0 6238 case R_MIPS_GOT16:
7403cb63
MM		 6239 case R_MIPS_GOT_DISP:
6240 case R_MIPS_GOT_HI16:
6241 case R_MIPS_CALL_HI16:
6242 case R_MIPS_GOT_LO16:
6243 case R_MIPS_CALL_LO16:
6244 /* Find the index into the GOT where this value is located. */
4f2860ca 6245 if (!local_p)
7403cb63
MM		 6246 {
6247 BFD_ASSERT (addend == 0);
be3ccd9c 6248 g = mips_elf_global_got_index
7403cb63 6249 (elf_hash_table (info)->dynobj,
be3ccd9c 6250 (struct elf_link_hash_entry *) h);
9a8f3bb7
UC		 6251 if (! elf_hash_table(info)->dynamic_sections_created
6252 || (info->shared
6253 && (info->symbolic || h->root.dynindx == -1)
6254 && (h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
6255 {
6256 /* This is a static link or a -Bsymbolic link. The
6257 symbol is defined locally, or was forced to be local.
6258 We must initialize this entry in the GOT. */
6259 asection *sgot = mips_elf_got_section(elf_hash_table
6260 (info)->dynobj);
6261 MIPS_ELF_PUT_WORD (elf_hash_table (info)->dynobj,
6262 symbol + addend, sgot->contents + g);
6263 }
7403cb63 6264 }
9117d219 6265 else if (r_type == R_MIPS_GOT16 || r_type == R_MIPS_CALL16)
4f2860ca
MM		 6266 /* There's no need to create a local GOT entry here; the
6267 calculation for a local GOT16 entry does not involve G. */
6268 break;
7403cb63
MM		 6269 else
6270 {
6271 g = mips_elf_local_got_index (abfd, info, symbol + addend);
6272 if (g == (bfd_vma) -1)
6273 return false;
6274 }
252b5132 6275
7403cb63
MM		 6276 /* Convert GOT indices to actual offsets. */
6277 g = mips_elf_got_offset_from_index (elf_hash_table (info)->dynobj,
6278 abfd, g);
6279 break;
be3ccd9c 6280
7403cb63
MM		 6281 case R_MIPS_HI16:
6282 case R_MIPS_LO16:
6283 case R_MIPS_GPREL16:
6284 case R_MIPS_GPREL32:
0af99795 6285 case R_MIPS_LITERAL:
7403cb63
MM		 6286 gp0 = _bfd_get_gp_value (input_bfd);
6287 gp = _bfd_get_gp_value (abfd);
6288 break;
252b5132 6289
7403cb63
MM		 6290 default:
6291 break;
6292 }
252b5132 6293
7403cb63
MM		 6294 /* Figure out what kind of relocation is being performed. */
6295 switch (r_type)
6296 {
6297 case R_MIPS_NONE:
6298 return bfd_reloc_continue;
252b5132 6299
7403cb63
MM		 6300 case R_MIPS_16:
6301 value = symbol + mips_elf_sign_extend (addend, 16);
6302 overflowed_p = mips_elf_overflow_p (value, 16);
6303 break;
252b5132 6304
7403cb63
MM		 6305 case R_MIPS_32:
6306 case R_MIPS_REL32:
a3c7651d 6307 case R_MIPS_64:
7b1f1231
MM		 6308 if ((info->shared
6309 || (elf_hash_table (info)->dynamic_sections_created
6310 && h != NULL
b305ef96
UC		 6311 && ((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC)
6312 != 0)))
7b1f1231 6313 && (input_section->flags & SEC_ALLOC) != 0)
7403cb63 6314 {
7b1f1231
MM		 6315 /* If we're creating a shared library, or this relocation is
6316 against a symbol in a shared library, then we can't know
6317 where the symbol will end up. So, we create a relocation
6318 record in the output, and leave the job up to the dynamic
6319 linker. */
6320 value = addend;
be3ccd9c
KH		 6321 if (!mips_elf_create_dynamic_relocation (abfd,
6322 info,
7b1f1231
MM		 6323 relocation,
6324 h,
6325 sec,
6326 symbol,
6327 &value,
9117d219 6328 input_section))
7b1f1231 6329 return false;
7403cb63
MM		 6330 }
6331 else
6332 {
a3c7651d 6333 if (r_type != R_MIPS_REL32)
7403cb63
MM		 6334 value = symbol + addend;
6335 else
6336 value = addend;
6337 }
6338 value &= howto->dst_mask;
6339 break;
6340
bb2d6cd7
GK		 6341 case R_MIPS_PC32:
6342 case R_MIPS_PC64:
6343 case R_MIPS_GNU_REL_LO16:
6344 value = symbol + addend - p;
6345 value &= howto->dst_mask;
6346 break;
6347
6348 case R_MIPS_GNU_REL16_S2:
6349 value = symbol + mips_elf_sign_extend (addend << 2, 18) - p;
6350 overflowed_p = mips_elf_overflow_p (value, 18);
6351 value = (value >> 2) & howto->dst_mask;
6352 break;
6353
6354 case R_MIPS_GNU_REL_HI16:
6355 value = mips_elf_high (addend + symbol - p);
6356 value &= howto->dst_mask;
6357 break;
6358
e53bd91b 6359 case R_MIPS16_26:
9117d219 6360 /* The calculation for R_MIPS16_26 is just the same as for an
e53bd91b 6361 R_MIPS_26. It's only the storage of the relocated field into
1e52e2ee 6362 the output file that's different. That's handled in
e53bd91b
MM		 6363 mips_elf_perform_relocation. So, we just fall through to the
6364 R_MIPS_26 case here. */
7403cb63
MM		 6365 case R_MIPS_26:
6366 if (local_p)
9117d219 6367 value = (((addend << 2) | ((p + 4) & 0xf0000000)) + symbol) >> 2;
7403cb63
MM		 6368 else
6369 value = (mips_elf_sign_extend (addend << 2, 28) + symbol) >> 2;
6370 value &= howto->dst_mask;
6371 break;
6372
6373 case R_MIPS_HI16:
6374 if (!gp_disp_p)
6375 {
6376 value = mips_elf_high (addend + symbol);
6377 value &= howto->dst_mask;
6378 }
6379 else
6380 {
6381 value = mips_elf_high (addend + gp - p);
6382 overflowed_p = mips_elf_overflow_p (value, 16);
6383 }
6384 break;
6385
6386 case R_MIPS_LO16:
6387 if (!gp_disp_p)
6388 value = (symbol + addend) & howto->dst_mask;
6389 else
6390 {
6391 value = addend + gp - p + 4;
97a4bb05
MM		 6392 /* The MIPS ABI requires checking the R_MIPS_LO16 relocation
6393 for overflow. But, on, say, Irix 5, relocations against
6394 _gp_disp are normally generated from the .cpload
6395 pseudo-op. It generates code that normally looks like
6396 this:
6397
6398 lui $gp,%hi(_gp_disp)
6399 addiu $gp,$gp,%lo(_gp_disp)
6400 addu $gp,$gp,$t9
6401
6402 Here $t9 holds the address of the function being called,
6403 as required by the MIPS ELF ABI. The R_MIPS_LO16
e53bd91b 6404 relocation can easily overflow in this situation, but the
97a4bb05
MM		 6405 R_MIPS_HI16 relocation will handle the overflow.
6406 Therefore, we consider this a bug in the MIPS ABI, and do
6407 not check for overflow here. */
7403cb63
MM		 6408 }
6409 break;
6410
6411 case R_MIPS_LITERAL:
6412 /* Because we don't merge literal sections, we can handle this
6413 just like R_MIPS_GPREL16. In the long run, we should merge
6414 shared literals, and then we will need to additional work
6415 here. */
6416
6417 /* Fall through. */
6418
b7233c24
MM		 6419 case R_MIPS16_GPREL:
6420 /* The R_MIPS16_GPREL performs the same calculation as
6421 R_MIPS_GPREL16, but stores the relocated bits in a different
6422 order. We don't need to do anything special here; the
6423 differences are handled in mips_elf_perform_relocation. */
7403cb63
MM		 6424 case R_MIPS_GPREL16:
6425 if (local_p)
6426 value = mips_elf_sign_extend (addend, 16) + symbol + gp0 - gp;
6427 else
6428 value = mips_elf_sign_extend (addend, 16) + symbol - gp;
6429 overflowed_p = mips_elf_overflow_p (value, 16);
6430 break;
be3ccd9c 6431
7403cb63 6432 case R_MIPS_GOT16:
9117d219 6433 case R_MIPS_CALL16:
7403cb63
MM		 6434 if (local_p)
6435 {
b305ef96 6436 boolean forced;
be3ccd9c 6437
b305ef96
UC		 6438 /* The special case is when the symbol is forced to be local. We
6439 need the full address in the GOT since no R_MIPS_LO16 relocation
6440 follows. */
6441 forced = ! mips_elf_local_relocation_p (input_bfd, relocation,
6442 local_sections, false);
6443 value = mips_elf_got16_entry (abfd, info, symbol + addend, forced);
7403cb63
MM		 6444 if (value == (bfd_vma) -1)
6445 return false;
be3ccd9c 6446 value
7403cb63
MM		 6447 = mips_elf_got_offset_from_index (elf_hash_table (info)->dynobj,
6448 abfd,
6449 value);
6450 overflowed_p = mips_elf_overflow_p (value, 16);
6451 break;
6452 }
6453
6454 /* Fall through. */
6455
7403cb63
MM		 6456 case R_MIPS_GOT_DISP:
6457 value = g;
6458 overflowed_p = mips_elf_overflow_p (value, 16);
6459 break;
6460
6461 case R_MIPS_GPREL32:
6462 value = (addend + symbol + gp0 - gp) & howto->dst_mask;
6463 break;
6464
6465 case R_MIPS_PC16:
6466 value = mips_elf_sign_extend (addend, 16) + symbol - p;
2a6d49ea 6467 value = (bfd_vma) ((bfd_signed_vma) value / 4);
7403cb63
MM		 6468 overflowed_p = mips_elf_overflow_p (value, 16);
6469 break;
6470
6471 case R_MIPS_GOT_HI16:
6472 case R_MIPS_CALL_HI16:
6473 /* We're allowed to handle these two relocations identically.
6474 The dynamic linker is allowed to handle the CALL relocations
6475 differently by creating a lazy evaluation stub. */
6476 value = g;
6477 value = mips_elf_high (value);
6478 value &= howto->dst_mask;
6479 break;
6480
6481 case R_MIPS_GOT_LO16:
6482 case R_MIPS_CALL_LO16:
6483 value = g & howto->dst_mask;
6484 break;
6485
7403cb63
MM		 6486 case R_MIPS_GOT_PAGE:
6487 value = mips_elf_got_page (abfd, info, symbol + addend, NULL);
6488 if (value == (bfd_vma) -1)
6489 return false;
6490 value = mips_elf_got_offset_from_index (elf_hash_table (info)->dynobj,
6491 abfd,
6492 value);
6493 overflowed_p = mips_elf_overflow_p (value, 16);
6494 break;
be3ccd9c 6495
7403cb63
MM		 6496 case R_MIPS_GOT_OFST:
6497 mips_elf_got_page (abfd, info, symbol + addend, &value);
6498 overflowed_p = mips_elf_overflow_p (value, 16);
6499 break;
6500
6501 case R_MIPS_SUB:
6502 value = symbol - addend;
6503 value &= howto->dst_mask;
6504 break;
6505
6506 case R_MIPS_HIGHER:
6507 value = mips_elf_higher (addend + symbol);
6508 value &= howto->dst_mask;
6509 break;
6510
6511 case R_MIPS_HIGHEST:
6512 value = mips_elf_highest (addend + symbol);
6513 value &= howto->dst_mask;
6514 break;
be3ccd9c 6515
7403cb63
MM		 6516 case R_MIPS_SCN_DISP:
6517 value = symbol + addend - sec->output_offset;
6518 value &= howto->dst_mask;
6519 break;
6520
6521 case R_MIPS_PJUMP:
6522 case R_MIPS_JALR:
6523 /* Both of these may be ignored. R_MIPS_JALR is an optimization
6524 hint; we could improve performance by honoring that hint. */
6525 return bfd_reloc_continue;
6526
6527 case R_MIPS_GNU_VTINHERIT:
6528 case R_MIPS_GNU_VTENTRY:
6529 /* We don't do anything with these at present. */
6530 return bfd_reloc_continue;
6531
7403cb63
MM		 6532 default:
6533 /* An unrecognized relocation type. */
6534 return bfd_reloc_notsupported;
6535 }
6536
6537 /* Store the VALUE for our caller. */
6538 *valuep = value;
6539 return overflowed_p ? bfd_reloc_overflow : bfd_reloc_ok;
6540}
6541
6542/* Obtain the field relocated by RELOCATION. */
6543
6544static bfd_vma
6545mips_elf_obtain_contents (howto, relocation, input_bfd, contents)
6546 reloc_howto_type *howto;
103186c6 6547 const Elf_Internal_Rela *relocation;
7403cb63
MM		 6548 bfd *input_bfd;
6549 bfd_byte *contents;
6550{
6551 bfd_vma x;
6552 bfd_byte *location = contents + relocation->r_offset;
6553
b7233c24
MM		 6554 /* Obtain the bytes. */
6555 x = bfd_get (8 * bfd_get_reloc_size (howto), input_bfd, location);
7403cb63 6556
6296902e
MM		 6557 if ((ELF32_R_TYPE (relocation->r_info) == R_MIPS16_26
6558 || ELF32_R_TYPE (relocation->r_info) == R_MIPS16_GPREL)
1e52e2ee
MM		 6559 && bfd_little_endian (input_bfd))
6560 /* The two 16-bit words will be reversed on a little-endian
6561 system. See mips_elf_perform_relocation for more details. */
6562 x = (((x & 0xffff) << 16) | ((x & 0xffff0000) >> 16));
6563
7403cb63
MM		 6564 return x;
6565}
6566
6567/* It has been determined that the result of the RELOCATION is the
6568 VALUE. Use HOWTO to place VALUE into the output file at the
6569 appropriate position. The SECTION is the section to which the
197b9ca0
MM		 6570 relocation applies. If REQUIRE_JALX is true, then the opcode used
6571 for the relocation must be either JAL or JALX, and it is
6572 unconditionally converted to JALX.
7403cb63
MM		 6573
6574 Returns false if anything goes wrong. */
252b5132 6575
197b9ca0 6576static boolean
e53bd91b 6577mips_elf_perform_relocation (info, howto, relocation, value,
be3ccd9c 6578 input_bfd, input_section,
197b9ca0 6579 contents, require_jalx)
e53bd91b 6580 struct bfd_link_info *info;
7403cb63 6581 reloc_howto_type *howto;
103186c6 6582 const Elf_Internal_Rela *relocation;
7403cb63
MM		 6583 bfd_vma value;
6584 bfd *input_bfd;
197b9ca0 6585 asection *input_section;
7403cb63 6586 bfd_byte *contents;
197b9ca0 6587 boolean require_jalx;
7403cb63
MM		 6588{
6589 bfd_vma x;
e53bd91b 6590 bfd_byte *location;
197b9ca0 6591 int r_type = ELF32_R_TYPE (relocation->r_info);
e53bd91b
MM		 6592
6593 /* Figure out where the relocation is occurring. */
6594 location = contents + relocation->r_offset;
252b5132 6595
7403cb63
MM		 6596 /* Obtain the current value. */
6597 x = mips_elf_obtain_contents (howto, relocation, input_bfd, contents);
252b5132 6598
7403cb63
MM		 6599 /* Clear the field we are setting. */
6600 x &= ~howto->dst_mask;
252b5132 6601
e53bd91b
MM		 6602 /* If this is the R_MIPS16_26 relocation, we must store the
6603 value in a funny way. */
197b9ca0 6604 if (r_type == R_MIPS16_26)
7403cb63 6605 {
e53bd91b
MM		 6606 /* R_MIPS16_26 is used for the mips16 jal and jalx instructions.
6607 Most mips16 instructions are 16 bits, but these instructions
6608 are 32 bits.
6609
6610 The format of these instructions is:
6611
6612 +--------------+--------------------------------+
6613 ! JALX ! X! Imm 20:16 ! Imm 25:21 !
6614 +--------------+--------------------------------+
6615 ! Immediate 15:0 !
6616 +-----------------------------------------------+
be3ccd9c 6617
e53bd91b
MM		 6618 JALX is the 5-bit value 00011. X is 0 for jal, 1 for jalx.
6619 Note that the immediate value in the first word is swapped.
6620
6621 When producing a relocateable object file, R_MIPS16_26 is
6622 handled mostly like R_MIPS_26. In particular, the addend is
6623 stored as a straight 26-bit value in a 32-bit instruction.
6624 (gas makes life simpler for itself by never adjusting a
6625 R_MIPS16_26 reloc to be against a section, so the addend is
6626 always zero). However, the 32 bit instruction is stored as 2
6627 16-bit values, rather than a single 32-bit value. In a
6628 big-endian file, the result is the same; in a little-endian
6629 file, the two 16-bit halves of the 32 bit value are swapped.
6630 This is so that a disassembler can recognize the jal
6631 instruction.
6632
6633 When doing a final link, R_MIPS16_26 is treated as a 32 bit
6634 instruction stored as two 16-bit values. The addend A is the
6635 contents of the targ26 field. The calculation is the same as
6636 R_MIPS_26. When storing the calculated value, reorder the
6637 immediate value as shown above, and don't forget to store the
6638 value as two 16-bit values.
6639
6640 To put it in MIPS ABI terms, the relocation field is T-targ26-16,
6641 defined as
be3ccd9c 6642
e53bd91b
MM		 6643 big-endian:
6644 +--------+----------------------+
6645 | | |
6646 | | targ26-16 |
6647 |31 26|25 0|
6648 +--------+----------------------+
be3ccd9c 6649
e53bd91b
MM		 6650 little-endian:
6651 +----------+------+-------------+
6652 | | | |
6653 | sub1 | | sub2 |
6654 |0 9|10 15|16 31|
6655 +----------+--------------------+
6656 where targ26-16 is sub1 followed by sub2 (i.e., the addend field A is
6657 ((sub1 << 16) | sub2)).
be3ccd9c 6658
e53bd91b 6659 When producing a relocateable object file, the calculation is
9117d219 6660 (((A < 2) | ((P + 4) & 0xf0000000) + S) >> 2)
e53bd91b 6661 When producing a fully linked file, the calculation is
9117d219 6662 let R = (((A < 2) | ((P + 4) & 0xf0000000) + S) >> 2)
e53bd91b
MM		 6663 ((R & 0x1f0000) << 5) | ((R & 0x3e00000) >> 5) | (R & 0xffff) */
6664
6665 if (!info->relocateable)
6666 /* Shuffle the bits according to the formula above. */
be3ccd9c
KH		 6667 value = (((value & 0x1f0000) << 5)
6668 | ((value & 0x3e00000) >> 5)
e53bd91b 6669 | (value & 0xffff));
e53bd91b 6670 }
197b9ca0 6671 else if (r_type == R_MIPS16_GPREL)
b7233c24
MM		 6672 {
6673 /* R_MIPS16_GPREL is used for GP-relative addressing in mips16
6674 mode. A typical instruction will have a format like this:
6675
6676 +--------------+--------------------------------+
6677 ! EXTEND ! Imm 10:5 ! Imm 15:11 !
6678 +--------------+--------------------------------+
6679 ! Major ! rx ! ry ! Imm 4:0 !
6680 +--------------+--------------------------------+
be3ccd9c 6681
b7233c24
MM		 6682 EXTEND is the five bit value 11110. Major is the instruction
6683 opcode.
be3ccd9c 6684
b7233c24
MM		 6685 This is handled exactly like R_MIPS_GPREL16, except that the
6686 addend is retrieved and stored as shown in this diagram; that
be3ccd9c 6687 is, the Imm fields above replace the V-rel16 field.
b7233c24 6688
6296902e
MM		 6689 All we need to do here is shuffle the bits appropriately. As
6690 above, the two 16-bit halves must be swapped on a
6691 little-endian system. */
b7233c24
MM		 6692 value = (((value & 0x7e0) << 16)
6693 | ((value & 0xf800) << 5)
6694 | (value & 0x1f));
6695 }
252b5132 6696
e53bd91b
MM		 6697 /* Set the field. */
6698 x |= (value & howto->dst_mask);
252b5132 6699
197b9ca0
MM		 6700 /* If required, turn JAL into JALX. */
6701 if (require_jalx)
6702 {
6703 boolean ok;
6704 bfd_vma opcode = x >> 26;
6705 bfd_vma jalx_opcode;
6706
6707 /* Check to see if the opcode is already JAL or JALX. */
6708 if (r_type == R_MIPS16_26)
6709 {
6710 ok = ((opcode == 0x6) || (opcode == 0x7));
6711 jalx_opcode = 0x7;
6712 }
6713 else
6714 {
6715 ok = ((opcode == 0x3) || (opcode == 0x1d));
6716 jalx_opcode = 0x1d;
6717 }
6718
6719 /* If the opcode is not JAL or JALX, there's a problem. */
6720 if (!ok)
6721 {
6722 (*_bfd_error_handler)
6723 (_("%s: %s+0x%lx: jump to stub routine which is not jal"),
6724 bfd_get_filename (input_bfd),
6725 input_section->name,
6726 (unsigned long) relocation->r_offset);
6727 bfd_set_error (bfd_error_bad_value);
6728 return false;
6729 }
6730
6731 /* Make this the JALX opcode. */
6732 x = (x & ~(0x3f << 26)) | (jalx_opcode << 26);
6733 }
6734
6296902e
MM		 6735 /* Swap the high- and low-order 16 bits on little-endian systems
6736 when doing a MIPS16 relocation. */
197b9ca0 6737 if ((r_type == R_MIPS16_GPREL || r_type == R_MIPS16_26)
6296902e
MM		 6738 && bfd_little_endian (input_bfd))
6739 x = (((x & 0xffff) << 16) | ((x & 0xffff0000) >> 16));
be3ccd9c 6740
e53bd91b
MM		 6741 /* Put the value into the output. */
6742 bfd_put (8 * bfd_get_reloc_size (howto), input_bfd, x, location);
197b9ca0
MM		 6743 return true;
6744}
6745
6746/* Returns true if SECTION is a MIPS16 stub section. */
6747
6748static boolean
6749mips_elf_stub_section_p (abfd, section)
6387d602 6750 bfd *abfd ATTRIBUTE_UNUSED;
197b9ca0
MM		 6751 asection *section;
6752{
6753 const char *name = bfd_get_section_name (abfd, section);
6754
6755 return (strncmp (name, FN_STUB, sizeof FN_STUB - 1) == 0
6756 || strncmp (name, CALL_STUB, sizeof CALL_STUB - 1) == 0
6757 || strncmp (name, CALL_FP_STUB, sizeof CALL_FP_STUB - 1) == 0);
7403cb63 6758}
252b5132 6759
7403cb63 6760/* Relocate a MIPS ELF section. */
252b5132 6761
103186c6
MM		 6762boolean
6763_bfd_mips_elf_relocate_section (output_bfd, info, input_bfd, input_section,
6764 contents, relocs, local_syms, local_sections)
7403cb63
MM		 6765 bfd *output_bfd;
6766 struct bfd_link_info *info;
6767 bfd *input_bfd;
6768 asection *input_section;
6769 bfd_byte *contents;
6770 Elf_Internal_Rela *relocs;
6771 Elf_Internal_Sym *local_syms;
6772 asection **local_sections;
6773{
31367b81 6774 Elf_Internal_Rela *rel;
103186c6 6775 const Elf_Internal_Rela *relend;
86033394 6776 bfd_vma addend = 0;
7403cb63 6777 boolean use_saved_addend_p = false;
103186c6 6778 struct elf_backend_data *bed;
252b5132 6779
103186c6
MM		 6780 bed = get_elf_backend_data (output_bfd);
6781 relend = relocs + input_section->reloc_count * bed->s->int_rels_per_ext_rel;
7403cb63
MM		 6782 for (rel = relocs; rel < relend; ++rel)
6783 {
6784 const char *name;
6785 bfd_vma value;
7403cb63 6786 reloc_howto_type *howto;
197b9ca0 6787 boolean require_jalx;
31367b81
MM		 6788 /* True if the relocation is a RELA relocation, rather than a
6789 REL relocation. */
6790 boolean rela_relocation_p = true;
6791 int r_type = ELF32_R_TYPE (rel->r_info);
7a65545d 6792 const char * msg = (const char *) NULL;
252b5132 6793
7403cb63 6794 /* Find the relocation howto for this relocation. */
31367b81 6795 if (r_type == R_MIPS_64 && !ABI_64_P (output_bfd))
0af99795
GK		 6796 {
6797 /* Some 32-bit code uses R_MIPS_64. In particular, people use
be3ccd9c 6798 64-bit code, but make sure all their addresses are in the
0af99795
GK		 6799 lowermost or uppermost 32-bit section of the 64-bit address
6800 space. Thus, when they use an R_MIPS_64 they mean what is
6801 usually meant by R_MIPS_32, with the exception that the
6802 stored value is sign-extended to 64 bits. */
6803 howto = elf_mips_howto_table + R_MIPS_32;
6804
6805 /* On big-endian systems, we need to lie about the position
6806 of the reloc. */
6807 if (bfd_big_endian (input_bfd))
be3ccd9c 6808 rel->r_offset += 4;
0af99795 6809 }
a3c7651d 6810 else
c9b3cbf3 6811 howto = mips_rtype_to_howto (r_type);
252b5132 6812
7403cb63
MM		 6813 if (!use_saved_addend_p)
6814 {
6815 Elf_Internal_Shdr *rel_hdr;
6816
6817 /* If these relocations were originally of the REL variety,
6818 we must pull the addend out of the field that will be
6819 relocated. Otherwise, we simply use the contents of the
6820 RELA relocation. To determine which flavor or relocation
6821 this is, we depend on the fact that the INPUT_SECTION's
6822 REL_HDR is read before its REL_HDR2. */
6823 rel_hdr = &elf_section_data (input_section)->rel_hdr;
5f771d47 6824 if ((size_t) (rel - relocs)
103186c6
MM		 6825 >= (rel_hdr->sh_size / rel_hdr->sh_entsize
6826 * bed->s->int_rels_per_ext_rel))
7403cb63 6827 rel_hdr = elf_section_data (input_section)->rel_hdr2;
103186c6 6828 if (rel_hdr->sh_entsize == MIPS_ELF_REL_SIZE (input_bfd))
7403cb63 6829 {
31367b81
MM		 6830 /* Note that this is a REL relocation. */
6831 rela_relocation_p = false;
7403cb63 6832
31367b81 6833 /* Get the addend, which is stored in the input file. */
be3ccd9c 6834 addend = mips_elf_obtain_contents (howto,
7403cb63
MM		 6835 rel,
6836 input_bfd,
6837 contents);
6838 addend &= howto->src_mask;
6839
6840 /* For some kinds of relocations, the ADDEND is a
6841 combination of the addend stored in two different
6842 relocations. */
6387d602 6843 if (r_type == R_MIPS_HI16
bb2d6cd7 6844 || r_type == R_MIPS_GNU_REL_HI16
6387d602
ILT		 6845 || (r_type == R_MIPS_GOT16
6846 && mips_elf_local_relocation_p (input_bfd, rel,
b305ef96 6847 local_sections, false)))
252b5132 6848 {
23b255aa
MM		 6849 bfd_vma l;
6850 const Elf_Internal_Rela *lo16_relocation;
6851 reloc_howto_type *lo16_howto;
bb2d6cd7 6852 int lo;
23b255aa 6853
e7c44218
MM		 6854 /* The combined value is the sum of the HI16 addend,
6855 left-shifted by sixteen bits, and the LO16
6856 addend, sign extended. (Usually, the code does
6857 a `lui' of the HI16 value, and then an `addiu' of
be3ccd9c 6858 the LO16 value.)
e7c44218 6859
bb2d6cd7
GK		 6860 Scan ahead to find a matching LO16 relocation. */
6861 if (r_type == R_MIPS_GNU_REL_HI16)
6862 lo = R_MIPS_GNU_REL_LO16;
6863 else
6864 lo = R_MIPS_LO16;
be3ccd9c
KH		 6865 lo16_relocation
6866 = mips_elf_next_relocation (lo, rel, relend);
23b255aa 6867 if (lo16_relocation == NULL)
7403cb63 6868 return false;
252b5132 6869
23b255aa 6870 /* Obtain the addend kept there. */
bb2d6cd7 6871 lo16_howto = mips_rtype_to_howto (lo);
23b255aa
MM		 6872 l = mips_elf_obtain_contents (lo16_howto,
6873 lo16_relocation,
6874 input_bfd, contents);
6875 l &= lo16_howto->src_mask;
e7c44218 6876 l = mips_elf_sign_extend (l, 16);
23b255aa 6877
7403cb63 6878 addend <<= 16;
252b5132 6879
7403cb63 6880 /* Compute the combined addend. */
e7c44218 6881 addend += l;
252b5132 6882 }
b7233c24
MM		 6883 else if (r_type == R_MIPS16_GPREL)
6884 {
6885 /* The addend is scrambled in the object file. See
6886 mips_elf_perform_relocation for details on the
6887 format. */
6888 addend = (((addend & 0x1f0000) >> 5)
6889 | ((addend & 0x7e00000) >> 16)
6890 | (addend & 0x1f));
6891 }
252b5132
RH		 6892 }
6893 else
7403cb63
MM		 6894 addend = rel->r_addend;
6895 }
252b5132 6896
31367b81
MM		 6897 if (info->relocateable)
6898 {
6899 Elf_Internal_Sym *sym;
6900 unsigned long r_symndx;
6901
7893e6a2
GK		 6902 if (r_type == R_MIPS_64 && !ABI_64_P (output_bfd)
6903 && bfd_big_endian (input_bfd))
6904 rel->r_offset -= 4;
6905
31367b81 6906 /* Since we're just relocating, all we need to do is copy
0db63c18
MM		 6907 the relocations back out to the object file, unless
6908 they're against a section symbol, in which case we need
6909 to adjust by the section offset, or unless they're GP
6910 relative in which case we need to adjust by the amount
6911 that we're adjusting GP in this relocateable object. */
31367b81 6912
b305ef96
UC		 6913 if (!mips_elf_local_relocation_p (input_bfd, rel, local_sections,
6914 false))
f1a5f37e 6915 /* There's nothing to do for non-local relocations. */
31367b81
MM		 6916 continue;
6917
be3ccd9c 6918 if (r_type == R_MIPS16_GPREL
0db63c18 6919 || r_type == R_MIPS_GPREL16
0af99795
GK		 6920 || r_type == R_MIPS_GPREL32
6921 || r_type == R_MIPS_LITERAL)
0db63c18
MM		 6922 addend -= (_bfd_get_gp_value (output_bfd)
6923 - _bfd_get_gp_value (input_bfd));
bb2d6cd7
GK		 6924 else if (r_type == R_MIPS_26 || r_type == R_MIPS16_26
6925 || r_type == R_MIPS_GNU_REL16_S2)
e7c44218
MM		 6926 /* The addend is stored without its two least
6927 significant bits (which are always zero.) In a
6928 non-relocateable link, calculate_relocation will do
6929 this shift; here, we must do it ourselves. */
6930 addend <<= 2;
31367b81 6931
4f2860ca
MM		 6932 r_symndx = ELF32_R_SYM (rel->r_info);
6933 sym = local_syms + r_symndx;
6934 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
6935 /* Adjust the addend appropriately. */
6936 addend += local_sections[r_symndx]->output_offset;
be3ccd9c 6937
f1a5f37e
MM		 6938 /* If the relocation is for a R_MIPS_HI16 or R_MIPS_GOT16,
6939 then we only want to write out the high-order 16 bits.
6940 The subsequent R_MIPS_LO16 will handle the low-order bits. */
bb2d6cd7
GK		 6941 if (r_type == R_MIPS_HI16 || r_type == R_MIPS_GOT16
6942 || r_type == R_MIPS_GNU_REL_HI16)
23b255aa 6943 addend = mips_elf_high (addend);
5a44662b
MM		 6944 /* If the relocation is for an R_MIPS_26 relocation, then
6945 the two low-order bits are not stored in the object file;
6946 they are implicitly zero. */
bb2d6cd7
GK		 6947 else if (r_type == R_MIPS_26 || r_type == R_MIPS16_26
6948 || r_type == R_MIPS_GNU_REL16_S2)
5a44662b 6949 addend >>= 2;
f1a5f37e 6950
31367b81
MM		 6951 if (rela_relocation_p)
6952 /* If this is a RELA relocation, just update the addend.
bb2d6cd7 6953 We have to cast away constness for REL. */
31367b81
MM		 6954 rel->r_addend = addend;
6955 else
6956 {
6957 /* Otherwise, we have to write the value back out. Note
6958 that we use the source mask, rather than the
6959 destination mask because the place to which we are
6960 writing will be source of the addend in the final
6961 link. */
6962 addend &= howto->src_mask;
7893e6a2
GK		 6963
6964 if (r_type == R_MIPS_64 && !ABI_64_P (output_bfd))
6965 /* See the comment above about using R_MIPS_64 in the 32-bit
6966 ABI. Here, we need to update the addend. It would be
6967 possible to get away with just using the R_MIPS_32 reloc
6968 but for endianness. */
6969 {
6970 bfd_vma sign_bits;
6971 bfd_vma low_bits;
6972 bfd_vma high_bits;
be3ccd9c 6973
fc633e5b
AM		 6974 if (addend & ((bfd_vma) 1 << 31))
6975 sign_bits = ((bfd_vma) 1 << 32) - 1;
7893e6a2
GK		 6976 else
6977 sign_bits = 0;
be3ccd9c 6978
7893e6a2
GK		 6979 /* If we don't know that we have a 64-bit type,
6980 do two separate stores. */
6981 if (bfd_big_endian (input_bfd))
6982 {
6983 /* Store the sign-bits (which are most significant)
6984 first. */
6985 low_bits = sign_bits;
6986 high_bits = addend;
6987 }
6988 else
6989 {
6990 low_bits = addend;
6991 high_bits = sign_bits;
6992 }
be3ccd9c 6993 bfd_put_32 (input_bfd, low_bits,
7893e6a2 6994 contents + rel->r_offset);
be3ccd9c 6995 bfd_put_32 (input_bfd, high_bits,
7893e6a2
GK		 6996 contents + rel->r_offset + 4);
6997 continue;
6998 }
6999
31367b81 7000 if (!mips_elf_perform_relocation (info, howto, rel, addend,
be3ccd9c 7001 input_bfd, input_section,
31367b81
MM		 7002 contents, false))
7003 return false;
7004 }
7005
7006 /* Go on to the next relocation. */
7007 continue;
7008 }
7009
7403cb63
MM		 7010 /* In the N32 and 64-bit ABIs there may be multiple consecutive
7011 relocations for the same offset. In that case we are
7012 supposed to treat the output of each relocation as the addend
7013 for the next. */
be3ccd9c 7014 if (rel + 1 < relend
103186c6 7015 && rel->r_offset == rel[1].r_offset
b89db8f2 7016 && ELF32_R_TYPE (rel[1].r_info) != R_MIPS_NONE)
7403cb63
MM		 7017 use_saved_addend_p = true;
7018 else
7019 use_saved_addend_p = false;
7020
7021 /* Figure out what value we are supposed to relocate. */
be3ccd9c 7022 switch (mips_elf_calculate_relocation (output_bfd,
7403cb63
MM		 7023 input_bfd,
7024 input_section,
7025 info,
7026 rel,
7027 addend,
7028 howto,
7403cb63
MM		 7029 local_syms,
7030 local_sections,
7031 &value,
197b9ca0
MM		 7032 &name,
7033 &require_jalx))
7403cb63
MM		 7034 {
7035 case bfd_reloc_continue:
7036 /* There's nothing to do. */
7037 continue;
252b5132 7038
7403cb63 7039 case bfd_reloc_undefined:
6387d602 7040 /* mips_elf_calculate_relocation already called the
bb2d6cd7 7041 undefined_symbol callback. There's no real point in
97287574
MM		 7042 trying to perform the relocation at this point, so we
7043 just skip ahead to the next relocation. */
7044 continue;
252b5132 7045
7403cb63 7046 case bfd_reloc_notsupported:
7a65545d
DN		 7047 msg = _("internal error: unsupported relocation error");
7048 info->callbacks->warning
7049 (info, msg, name, input_bfd, input_section, rel->r_offset);
7050 return false;
252b5132 7051
7403cb63
MM		 7052 case bfd_reloc_overflow:
7053 if (use_saved_addend_p)
7054 /* Ignore overflow until we reach the last relocation for
7055 a given location. */
7056 ;
6387d602
ILT		 7057 else
7058 {
7059 BFD_ASSERT (name != NULL);
7060 if (! ((*info->callbacks->reloc_overflow)
7061 (info, name, howto->name, (bfd_vma) 0,
7062 input_bfd, input_section, rel->r_offset)))
7063 return false;
7064 }
7403cb63 7065 break;
252b5132 7066
7403cb63
MM		 7067 case bfd_reloc_ok:
7068 break;
7069
7070 default:
7071 abort ();
7072 break;
252b5132
RH		 7073 }
7074
7403cb63
MM		 7075 /* If we've got another relocation for the address, keep going
7076 until we reach the last one. */
7077 if (use_saved_addend_p)
252b5132 7078 {
7403cb63
MM		 7079 addend = value;
7080 continue;
252b5132 7081 }
7403cb63 7082
31367b81 7083 if (r_type == R_MIPS_64 && !ABI_64_P (output_bfd))
a3c7651d
MM		 7084 /* See the comment above about using R_MIPS_64 in the 32-bit
7085 ABI. Until now, we've been using the HOWTO for R_MIPS_32;
7086 that calculated the right value. Now, however, we
7087 sign-extend the 32-bit result to 64-bits, and store it as a
7088 64-bit value. We are especially generous here in that we
7089 go to extreme lengths to support this usage on systems with
7090 only a 32-bit VMA. */
7091 {
a3c7651d
MM		 7092 bfd_vma sign_bits;
7093 bfd_vma low_bits;
7094 bfd_vma high_bits;
7095
fc633e5b
AM		 7096 if (value & ((bfd_vma) 1 << 31))
7097 sign_bits = ((bfd_vma) 1 << 32) - 1;
a3c7651d
MM		 7098 else
7099 sign_bits = 0;
7100
7893e6a2
GK		 7101 /* If we don't know that we have a 64-bit type,
7102 do two separate stores. */
a3c7651d
MM		 7103 if (bfd_big_endian (input_bfd))
7104 {
0af99795
GK		 7105 /* Undo what we did above. */
7106 rel->r_offset -= 4;
a3c7651d
MM		 7107 /* Store the sign-bits (which are most significant)
7108 first. */
7109 low_bits = sign_bits;
7110 high_bits = value;
7111 }
7112 else
7113 {
7114 low_bits = value;
7115 high_bits = sign_bits;
7116 }
be3ccd9c 7117 bfd_put_32 (input_bfd, low_bits,
a3c7651d 7118 contents + rel->r_offset);
be3ccd9c 7119 bfd_put_32 (input_bfd, high_bits,
a3c7651d
MM		 7120 contents + rel->r_offset + 4);
7121 continue;
a3c7651d
MM		 7122 }
7123
7403cb63 7124 /* Actually perform the relocation. */
be3ccd9c 7125 if (!mips_elf_perform_relocation (info, howto, rel, value, input_bfd,
197b9ca0
MM		 7126 input_section, contents,
7127 require_jalx))
7128 return false;
252b5132
RH		 7129 }
7130
7131 return true;
7132}
7133
7134/* This hook function is called before the linker writes out a global
7135 symbol. We mark symbols as small common if appropriate. This is
7136 also where we undo the increment of the value for a mips16 symbol. */
7137
103186c6
MM		 7138boolean
7139_bfd_mips_elf_link_output_symbol_hook (abfd, info, name, sym, input_sec)
5f771d47
ILT		 7140 bfd *abfd ATTRIBUTE_UNUSED;
7141 struct bfd_link_info *info ATTRIBUTE_UNUSED;
7142 const char *name ATTRIBUTE_UNUSED;
252b5132
RH		 7143 Elf_Internal_Sym *sym;
7144 asection *input_sec;
7145{
7146 /* If we see a common symbol, which implies a relocatable link, then
7147 if a symbol was small common in an input file, mark it as small
7148 common in the output file. */
7149 if (sym->st_shndx == SHN_COMMON
7150 && strcmp (input_sec->name, ".scommon") == 0)
7151 sym->st_shndx = SHN_MIPS_SCOMMON;
7152
7153 if (sym->st_other == STO_MIPS16
7154 && (sym->st_value & 1) != 0)
7155 --sym->st_value;
7156
7157 return true;
7158}
7159\f
7160/* Functions for the dynamic linker. */
7161
7162/* The name of the dynamic interpreter. This is put in the .interp
7163 section. */
7164
103186c6
MM		 7165#define ELF_DYNAMIC_INTERPRETER(abfd) \
7166 (ABI_N32_P (abfd) ? "/usr/lib32/libc.so.1" \
7167 : ABI_64_P (abfd) ? "/usr/lib64/libc.so.1" \
7168 : "/usr/lib/libc.so.1")
252b5132
RH		 7169
7170/* Create dynamic sections when linking against a dynamic object. */
7171
103186c6
MM		 7172boolean
7173_bfd_mips_elf_create_dynamic_sections (abfd, info)
252b5132
RH		 7174 bfd *abfd;
7175 struct bfd_link_info *info;
7176{
7177 struct elf_link_hash_entry *h;
7178 flagword flags;
7179 register asection *s;
7180 const char * const *namep;
7181
7182 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
7183 | SEC_LINKER_CREATED | SEC_READONLY);
7184
7185 /* Mips ABI requests the .dynamic section to be read only. */
7186 s = bfd_get_section_by_name (abfd, ".dynamic");
7187 if (s != NULL)
7188 {
7189 if (! bfd_set_section_flags (abfd, s, flags))
7190 return false;
7191 }
7192
7193 /* We need to create .got section. */
7194 if (! mips_elf_create_got_section (abfd, info))
7195 return false;
7196
c6142e5d
MM		 7197 /* Create the .msym section on IRIX6. It is used by the dynamic
7198 linker to speed up dynamic relocations, and to avoid computing
7199 the ELF hash for symbols. */
7200 if (IRIX_COMPAT (abfd) == ict_irix6
7201 && !mips_elf_create_msym_section (abfd))
7202 return false;
be3ccd9c 7203
252b5132 7204 /* Create .stub section. */
be3ccd9c 7205 if (bfd_get_section_by_name (abfd,
7403cb63 7206 MIPS_ELF_STUB_SECTION_NAME (abfd)) == NULL)
252b5132 7207 {
7403cb63 7208 s = bfd_make_section (abfd, MIPS_ELF_STUB_SECTION_NAME (abfd));
252b5132 7209 if (s == NULL
7403cb63 7210 || ! bfd_set_section_flags (abfd, s, flags | SEC_CODE)
103186c6
MM		 7211 || ! bfd_set_section_alignment (abfd, s,
7212 MIPS_ELF_LOG_FILE_ALIGN (abfd)))
252b5132
RH		 7213 return false;
7214 }
7215
31a9bdd9 7216 if ((IRIX_COMPAT (abfd) == ict_irix5 || IRIX_COMPAT (abfd) == ict_none)
252b5132
RH		 7217 && !info->shared
7218 && bfd_get_section_by_name (abfd, ".rld_map") == NULL)
7219 {
7220 s = bfd_make_section (abfd, ".rld_map");
7221 if (s == NULL
7222 || ! bfd_set_section_flags (abfd, s, flags & ~SEC_READONLY)
103186c6
MM		 7223 || ! bfd_set_section_alignment (abfd, s,
7224 MIPS_ELF_LOG_FILE_ALIGN (abfd)))
252b5132
RH		 7225 return false;
7226 }
7227
303f629d
MM		 7228 /* On IRIX5, we adjust add some additional symbols and change the
7229 alignments of several sections. There is no ABI documentation
7230 indicating that this is necessary on IRIX6, nor any evidence that
7231 the linker takes such action. */
7232 if (IRIX_COMPAT (abfd) == ict_irix5)
252b5132
RH		 7233 {
7234 for (namep = mips_elf_dynsym_rtproc_names; *namep != NULL; namep++)
7235 {
7236 h = NULL;
7237 if (! (_bfd_generic_link_add_one_symbol
7238 (info, abfd, *namep, BSF_GLOBAL, bfd_und_section_ptr,
7239 (bfd_vma) 0, (const char *) NULL, false,
7240 get_elf_backend_data (abfd)->collect,
7241 (struct bfd_link_hash_entry **) &h)))
7242 return false;
be3ccd9c 7243 h->elf_link_hash_flags &= ~ELF_LINK_NON_ELF;
252b5132
RH		 7244 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
7245 h->type = STT_SECTION;
7246
7247 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
7248 return false;
7249 }
7250
7251 /* We need to create a .compact_rel section. */
f7cb7d68 7252 if (SGI_COMPAT (abfd))
be3ccd9c
KH		 7253 {
7254 if (!mips_elf_create_compact_rel_section (abfd, info))
f7cb7d68 7255 return false;
be3ccd9c 7256 }
252b5132
RH		 7257
7258 /* Change aligments of some sections. */
7259 s = bfd_get_section_by_name (abfd, ".hash");
7260 if (s != NULL)
7261 bfd_set_section_alignment (abfd, s, 4);
7262 s = bfd_get_section_by_name (abfd, ".dynsym");
7263 if (s != NULL)
7264 bfd_set_section_alignment (abfd, s, 4);
7265 s = bfd_get_section_by_name (abfd, ".dynstr");
7266 if (s != NULL)
7267 bfd_set_section_alignment (abfd, s, 4);
7268 s = bfd_get_section_by_name (abfd, ".reginfo");
7269 if (s != NULL)
7270 bfd_set_section_alignment (abfd, s, 4);
7271 s = bfd_get_section_by_name (abfd, ".dynamic");
7272 if (s != NULL)
7273 bfd_set_section_alignment (abfd, s, 4);
7274 }
7275
7276 if (!info->shared)
7277 {
7278 h = NULL;
f7cb7d68 7279 if (SGI_COMPAT (abfd))
be3ccd9c
KH		 7280 {
7281 if (!(_bfd_generic_link_add_one_symbol
7282 (info, abfd, "_DYNAMIC_LINK", BSF_GLOBAL, bfd_abs_section_ptr,
7283 (bfd_vma) 0, (const char *) NULL, false,
7284 get_elf_backend_data (abfd)->collect,
7285 (struct bfd_link_hash_entry **) &h)))
f7cb7d68 7286 return false;
be3ccd9c 7287 }
f7cb7d68 7288 else
be3ccd9c
KH		 7289 {
7290 /* For normal mips it is _DYNAMIC_LINKING. */
7291 if (!(_bfd_generic_link_add_one_symbol
7292 (info, abfd, "_DYNAMIC_LINKING", BSF_GLOBAL,
7293 bfd_abs_section_ptr, (bfd_vma) 0, (const char *) NULL, false,
7294 get_elf_backend_data (abfd)->collect,
7295 (struct bfd_link_hash_entry **) &h)))
7296 return false;
7297 }
7298 h->elf_link_hash_flags &= ~ELF_LINK_NON_ELF;
252b5132
RH		 7299 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
7300 h->type = STT_SECTION;
7301
7302 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
7303 return false;
7304
7305 if (! mips_elf_hash_table (info)->use_rld_obj_head)
7306 {
7307 /* __rld_map is a four byte word located in the .data section
7308 and is filled in by the rtld to contain a pointer to
7309 the _r_debug structure. Its symbol value will be set in
7310 mips_elf_finish_dynamic_symbol. */
7311 s = bfd_get_section_by_name (abfd, ".rld_map");
7312 BFD_ASSERT (s != NULL);
7313
7314 h = NULL;
be3ccd9c
KH		 7315 if (SGI_COMPAT (abfd))
7316 {
7317 if (!(_bfd_generic_link_add_one_symbol
7318 (info, abfd, "__rld_map", BSF_GLOBAL, s,
7319 (bfd_vma) 0, (const char *) NULL, false,
7320 get_elf_backend_data (abfd)->collect,
7321 (struct bfd_link_hash_entry **) &h)))
7322 return false;
7323 }
7324 else
7325 {
7326 /* For normal mips the symbol is __RLD_MAP. */
7327 if (!(_bfd_generic_link_add_one_symbol
7328 (info, abfd, "__RLD_MAP", BSF_GLOBAL, s,
7329 (bfd_vma) 0, (const char *) NULL, false,
7330 get_elf_backend_data (abfd)->collect,
7331 (struct bfd_link_hash_entry **) &h)))
7332 return false;
7333 }
7334 h->elf_link_hash_flags &= ~ELF_LINK_NON_ELF;
252b5132
RH		 7335 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
7336 h->type = STT_OBJECT;
7337
7338 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
7339 return false;
7340 }
7341 }
7342
7343 return true;
7344}
7345
7346/* Create the .compact_rel section. */
7347
7348static boolean
7349mips_elf_create_compact_rel_section (abfd, info)
7350 bfd *abfd;
5f771d47 7351 struct bfd_link_info *info ATTRIBUTE_UNUSED;
252b5132
RH		 7352{
7353 flagword flags;
7354 register asection *s;
7355
7356 if (bfd_get_section_by_name (abfd, ".compact_rel") == NULL)
7357 {
7358 flags = (SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED
7359 | SEC_READONLY);
7360
7361 s = bfd_make_section (abfd, ".compact_rel");
7362 if (s == NULL
7363 || ! bfd_set_section_flags (abfd, s, flags)
103186c6
MM		 7364 || ! bfd_set_section_alignment (abfd, s,
7365 MIPS_ELF_LOG_FILE_ALIGN (abfd)))
252b5132
RH		 7366 return false;
7367
7368 s->_raw_size = sizeof (Elf32_External_compact_rel);
7369 }
7370
7371 return true;
7372}
7373
be3ccd9c 7374/* Create the .got section to hold the global offset table. */
252b5132
RH		 7375
7376static boolean
7377mips_elf_create_got_section (abfd, info)
7378 bfd *abfd;
7379 struct bfd_link_info *info;
7380{
7381 flagword flags;
7382 register asection *s;
7383 struct elf_link_hash_entry *h;
7384 struct mips_got_info *g;
7385
7386 /* This function may be called more than once. */
103186c6 7387 if (mips_elf_got_section (abfd))
252b5132
RH		 7388 return true;
7389
7390 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
7391 | SEC_LINKER_CREATED);
7392
7393 s = bfd_make_section (abfd, ".got");
7394 if (s == NULL
7395 || ! bfd_set_section_flags (abfd, s, flags)
7396 || ! bfd_set_section_alignment (abfd, s, 4))
7397 return false;
7398
7399 /* Define the symbol _GLOBAL_OFFSET_TABLE_. We don't do this in the
7400 linker script because we don't want to define the symbol if we
7401 are not creating a global offset table. */
7402 h = NULL;
7403 if (! (_bfd_generic_link_add_one_symbol
7404 (info, abfd, "_GLOBAL_OFFSET_TABLE_", BSF_GLOBAL, s,
7405 (bfd_vma) 0, (const char *) NULL, false,
7406 get_elf_backend_data (abfd)->collect,
7407 (struct bfd_link_hash_entry **) &h)))
7408 return false;
be3ccd9c 7409 h->elf_link_hash_flags &= ~ELF_LINK_NON_ELF;
252b5132
RH		 7410 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
7411 h->type = STT_OBJECT;
7412
7413 if (info->shared
7414 && ! bfd_elf32_link_record_dynamic_symbol (info, h))
7415 return false;
7416
7417 /* The first several global offset table entries are reserved. */
103186c6 7418 s->_raw_size = MIPS_RESERVED_GOTNO * MIPS_ELF_GOT_SIZE (abfd);
252b5132
RH		 7419
7420 g = (struct mips_got_info *) bfd_alloc (abfd,
7421 sizeof (struct mips_got_info));
7422 if (g == NULL)
7423 return false;
7403cb63 7424 g->global_gotsym = NULL;
252b5132
RH		 7425 g->local_gotno = MIPS_RESERVED_GOTNO;
7426 g->assigned_gotno = MIPS_RESERVED_GOTNO;
7427 if (elf_section_data (s) == NULL)
7428 {
7429 s->used_by_bfd =
7430 (PTR) bfd_zalloc (abfd, sizeof (struct bfd_elf_section_data));
7431 if (elf_section_data (s) == NULL)
7432 return false;
7433 }
7434 elf_section_data (s)->tdata = (PTR) g;
be3ccd9c 7435 elf_section_data (s)->this_hdr.sh_flags
7403cb63 7436 |= SHF_ALLOC | SHF_WRITE | SHF_MIPS_GPREL;
252b5132
RH		 7437
7438 return true;
7439}
7440
c6142e5d
MM		 7441/* Returns the .msym section for ABFD, creating it if it does not
7442 already exist. Returns NULL to indicate error. */
7443
7444static asection *
7445mips_elf_create_msym_section (abfd)
7446 bfd *abfd;
7447{
7448 asection *s;
7449
7450 s = bfd_get_section_by_name (abfd, MIPS_ELF_MSYM_SECTION_NAME (abfd));
be3ccd9c 7451 if (!s)
c6142e5d
MM		 7452 {
7453 s = bfd_make_section (abfd, MIPS_ELF_MSYM_SECTION_NAME (abfd));
7454 if (!s
be3ccd9c 7455 || !bfd_set_section_flags (abfd, s,
c6142e5d
MM		 7456 SEC_ALLOC
7457 | SEC_LOAD
7458 | SEC_HAS_CONTENTS
be3ccd9c 7459 | SEC_LINKER_CREATED
c6142e5d 7460 | SEC_READONLY)
103186c6
MM		 7461 || !bfd_set_section_alignment (abfd, s,
7462 MIPS_ELF_LOG_FILE_ALIGN (abfd)))
c6142e5d
MM		 7463 return NULL;
7464 }
7465
7466 return s;
7467}
7468
103186c6
MM		 7469/* Add room for N relocations to the .rel.dyn section in ABFD. */
7470
7471static void
7472mips_elf_allocate_dynamic_relocations (abfd, n)
7473 bfd *abfd;
7474 unsigned int n;
7475{
7476 asection *s;
7477
7478 s = bfd_get_section_by_name (abfd, MIPS_ELF_REL_DYN_SECTION_NAME (abfd));
7479 BFD_ASSERT (s != NULL);
be3ccd9c 7480
103186c6
MM		 7481 if (s->_raw_size == 0)
7482 {
be3ccd9c 7483 /* Make room for a null element. */
103186c6
MM		 7484 s->_raw_size += MIPS_ELF_REL_SIZE (abfd);
7485 ++s->reloc_count;
7486 }
7487 s->_raw_size += n * MIPS_ELF_REL_SIZE (abfd);
7488}
7489
252b5132
RH		 7490/* Look through the relocs for a section during the first phase, and
7491 allocate space in the global offset table. */
7492
103186c6
MM		 7493boolean
7494_bfd_mips_elf_check_relocs (abfd, info, sec, relocs)
252b5132
RH		 7495 bfd *abfd;
7496 struct bfd_link_info *info;
7497 asection *sec;
7498 const Elf_Internal_Rela *relocs;
7499{
7500 const char *name;
7501 bfd *dynobj;
7502 Elf_Internal_Shdr *symtab_hdr;
7503 struct elf_link_hash_entry **sym_hashes;
7504 struct mips_got_info *g;
7505 size_t extsymoff;
7506 const Elf_Internal_Rela *rel;
7507 const Elf_Internal_Rela *rel_end;
7508 asection *sgot;
7509 asection *sreloc;
103186c6 7510 struct elf_backend_data *bed;
252b5132
RH		 7511
7512 if (info->relocateable)
7513 return true;
7514
7515 dynobj = elf_hash_table (info)->dynobj;
7516 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
7517 sym_hashes = elf_sym_hashes (abfd);
7518 extsymoff = (elf_bad_symtab (abfd)) ? 0 : symtab_hdr->sh_info;
7519
7520 /* Check for the mips16 stub sections. */
7521
7522 name = bfd_get_section_name (abfd, sec);
7523 if (strncmp (name, FN_STUB, sizeof FN_STUB - 1) == 0)
7524 {
7525 unsigned long r_symndx;
7526
7527 /* Look at the relocation information to figure out which symbol
7528 this is for. */
7529
7530 r_symndx = ELF32_R_SYM (relocs->r_info);
7531
7532 if (r_symndx < extsymoff
7533 || sym_hashes[r_symndx - extsymoff] == NULL)
7534 {
7535 asection *o;
7536
7537 /* This stub is for a local symbol. This stub will only be
7538 needed if there is some relocation in this BFD, other
7539 than a 16 bit function call, which refers to this symbol. */
7540 for (o = abfd->sections; o != NULL; o = o->next)
7541 {
7542 Elf_Internal_Rela *sec_relocs;
7543 const Elf_Internal_Rela *r, *rend;
7544
7545 /* We can ignore stub sections when looking for relocs. */
7546 if ((o->flags & SEC_RELOC) == 0
7547 || o->reloc_count == 0
7548 || strncmp (bfd_get_section_name (abfd, o), FN_STUB,
7549 sizeof FN_STUB - 1) == 0
7550 || strncmp (bfd_get_section_name (abfd, o), CALL_STUB,
7551 sizeof CALL_STUB - 1) == 0
7552 || strncmp (bfd_get_section_name (abfd, o), CALL_FP_STUB,
7553 sizeof CALL_FP_STUB - 1) == 0)
7554 continue;
7555
7556 sec_relocs = (_bfd_elf32_link_read_relocs
7557 (abfd, o, (PTR) NULL,
7558 (Elf_Internal_Rela *) NULL,
7559 info->keep_memory));
7560 if (sec_relocs == NULL)
7561 return false;
7562
7563 rend = sec_relocs + o->reloc_count;
7564 for (r = sec_relocs; r < rend; r++)
7565 if (ELF32_R_SYM (r->r_info) == r_symndx
7566 && ELF32_R_TYPE (r->r_info) != R_MIPS16_26)
7567 break;
7568
7569 if (! info->keep_memory)
7570 free (sec_relocs);
7571
7572 if (r < rend)
7573 break;
7574 }
7575
7576 if (o == NULL)
7577 {
7578 /* There is no non-call reloc for this stub, so we do
7579 not need it. Since this function is called before
7580 the linker maps input sections to output sections, we
7581 can easily discard it by setting the SEC_EXCLUDE
7582 flag. */
7583 sec->flags |= SEC_EXCLUDE;
7584 return true;
7585 }
7586
7587 /* Record this stub in an array of local symbol stubs for
be3ccd9c 7588 this BFD. */
252b5132
RH		 7589 if (elf_tdata (abfd)->local_stubs == NULL)
7590 {
7591 unsigned long symcount;
7592 asection **n;
7593
7594 if (elf_bad_symtab (abfd))
103186c6 7595 symcount = symtab_hdr->sh_size / symtab_hdr->sh_entsize;
252b5132
RH		 7596 else
7597 symcount = symtab_hdr->sh_info;
7598 n = (asection **) bfd_zalloc (abfd,
7599 symcount * sizeof (asection *));
7600 if (n == NULL)
7601 return false;
7602 elf_tdata (abfd)->local_stubs = n;
7603 }
7604
7605 elf_tdata (abfd)->local_stubs[r_symndx] = sec;
7606
7607 /* We don't need to set mips16_stubs_seen in this case.
7608 That flag is used to see whether we need to look through
7609 the global symbol table for stubs. We don't need to set
7610 it here, because we just have a local stub. */
7611 }
7612 else
7613 {
7614 struct mips_elf_link_hash_entry *h;
7615
7616 h = ((struct mips_elf_link_hash_entry *)
7617 sym_hashes[r_symndx - extsymoff]);
7618
7619 /* H is the symbol this stub is for. */
7620
7621 h->fn_stub = sec;
7622 mips_elf_hash_table (info)->mips16_stubs_seen = true;
7623 }
7624 }
7625 else if (strncmp (name, CALL_STUB, sizeof CALL_STUB - 1) == 0
7626 || strncmp (name, CALL_FP_STUB, sizeof CALL_FP_STUB - 1) == 0)
7627 {
7628 unsigned long r_symndx;
7629 struct mips_elf_link_hash_entry *h;
7630 asection **loc;
7631
7632 /* Look at the relocation information to figure out which symbol
7633 this is for. */
7634
7635 r_symndx = ELF32_R_SYM (relocs->r_info);
7636
7637 if (r_symndx < extsymoff
7638 || sym_hashes[r_symndx - extsymoff] == NULL)
7639 {
7640 /* This stub was actually built for a static symbol defined
7641 in the same file. We assume that all static symbols in
7642 mips16 code are themselves mips16, so we can simply
7643 discard this stub. Since this function is called before
7644 the linker maps input sections to output sections, we can
7645 easily discard it by setting the SEC_EXCLUDE flag. */
7646 sec->flags |= SEC_EXCLUDE;
7647 return true;
7648 }
7649
7650 h = ((struct mips_elf_link_hash_entry *)
7651 sym_hashes[r_symndx - extsymoff]);
7652
7653 /* H is the symbol this stub is for. */
7654
7655 if (strncmp (name, CALL_FP_STUB, sizeof CALL_FP_STUB - 1) == 0)
7656 loc = &h->call_fp_stub;
7657 else
7658 loc = &h->call_stub;
7659
7660 /* If we already have an appropriate stub for this function, we
7661 don't need another one, so we can discard this one. Since
7662 this function is called before the linker maps input sections
7663 to output sections, we can easily discard it by setting the
7664 SEC_EXCLUDE flag. We can also discard this section if we
7665 happen to already know that this is a mips16 function; it is
7666 not necessary to check this here, as it is checked later, but
7667 it is slightly faster to check now. */
7668 if (*loc != NULL || h->root.other == STO_MIPS16)
7669 {
7670 sec->flags |= SEC_EXCLUDE;
7671 return true;
7672 }
7673
7674 *loc = sec;
7675 mips_elf_hash_table (info)->mips16_stubs_seen = true;
7676 }
7677
7678 if (dynobj == NULL)
7679 {
7680 sgot = NULL;
7681 g = NULL;
7682 }
7683 else
7684 {
103186c6 7685 sgot = mips_elf_got_section (dynobj);
252b5132
RH		 7686 if (sgot == NULL)
7687 g = NULL;
7688 else
7689 {
7690 BFD_ASSERT (elf_section_data (sgot) != NULL);
7691 g = (struct mips_got_info *) elf_section_data (sgot)->tdata;
7692 BFD_ASSERT (g != NULL);
7693 }
7694 }
7695
7696 sreloc = NULL;
103186c6
MM		 7697 bed = get_elf_backend_data (abfd);
7698 rel_end = relocs + sec->reloc_count * bed->s->int_rels_per_ext_rel;
7699 for (rel = relocs; rel < rel_end; ++rel)
252b5132
RH		 7700 {
7701 unsigned long r_symndx;
7403cb63 7702 int r_type;
252b5132
RH		 7703 struct elf_link_hash_entry *h;
7704
7705 r_symndx = ELF32_R_SYM (rel->r_info);
7403cb63 7706 r_type = ELF32_R_TYPE (rel->r_info);
252b5132
RH		 7707
7708 if (r_symndx < extsymoff)
7709 h = NULL;
7a3120d9
NC		 7710 else if (r_symndx >= extsymoff + (symtab_hdr->sh_size / symtab_hdr->sh_entsize))
7711 {
7712 (*_bfd_error_handler)
7713 (_("Malformed reloc detected for section %s"), name);
7714 bfd_set_error (bfd_error_bad_value);
7715 return false;
7716 }
252b5132
RH		 7717 else
7718 {
7719 h = sym_hashes[r_symndx - extsymoff];
7720
7721 /* This may be an indirect symbol created because of a version. */
7722 if (h != NULL)
7723 {
7724 while (h->root.type == bfd_link_hash_indirect)
7725 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7726 }
7727 }
7728
7729 /* Some relocs require a global offset table. */
7730 if (dynobj == NULL || sgot == NULL)
7731 {
7403cb63 7732 switch (r_type)
252b5132
RH		 7733 {
7734 case R_MIPS_GOT16:
7735 case R_MIPS_CALL16:
7736 case R_MIPS_CALL_HI16:
7737 case R_MIPS_CALL_LO16:
7738 case R_MIPS_GOT_HI16:
7739 case R_MIPS_GOT_LO16:
435394bf
MM		 7740 case R_MIPS_GOT_PAGE:
7741 case R_MIPS_GOT_OFST:
7742 case R_MIPS_GOT_DISP:
252b5132
RH		 7743 if (dynobj == NULL)
7744 elf_hash_table (info)->dynobj = dynobj = abfd;
7745 if (! mips_elf_create_got_section (dynobj, info))
7746 return false;
7403cb63 7747 g = mips_elf_got_info (dynobj, &sgot);
252b5132
RH		 7748 break;
7749
7750 case R_MIPS_32:
7751 case R_MIPS_REL32:
a3c7651d 7752 case R_MIPS_64:
252b5132
RH		 7753 if (dynobj == NULL
7754 && (info->shared || h != NULL)
7755 && (sec->flags & SEC_ALLOC) != 0)
7756 elf_hash_table (info)->dynobj = dynobj = abfd;
7757 break;
7758
7759 default:
7760 break;
7761 }
7762 }
7763
7403cb63
MM		 7764 if (!h && (r_type == R_MIPS_CALL_LO16
7765 || r_type == R_MIPS_GOT_LO16
9458945f 7766 || r_type == R_MIPS_GOT_DISP))
252b5132 7767 {
7403cb63 7768 /* We may need a local GOT entry for this relocation. We
97287574
MM		 7769 don't count R_MIPS_GOT_PAGE because we can estimate the
7770 maximum number of pages needed by looking at the size of
9117d219
NC		 7771 the segment. Similar comments apply to R_MIPS_GOT16 and
7772 R_MIPS_CALL16. We don't count R_MIPS_GOT_HI16, or
7773 R_MIPS_CALL_HI16 because these are always followed by an
7774 R_MIPS_GOT_LO16 or R_MIPS_CALL_LO16.
7403cb63
MM		 7775
7776 This estimation is very conservative since we can merge
7777 duplicate entries in the GOT. In order to be less
7778 conservative, we could actually build the GOT here,
7779 rather than in relocate_section. */
7780 g->local_gotno++;
a3c7651d 7781 sgot->_raw_size += MIPS_ELF_GOT_SIZE (dynobj);
7403cb63 7782 }
252b5132 7783
7403cb63
MM		 7784 switch (r_type)
7785 {
7786 case R_MIPS_CALL16:
252b5132
RH		 7787 if (h == NULL)
7788 {
7789 (*_bfd_error_handler)
7790 (_("%s: CALL16 reloc at 0x%lx not against global symbol"),
7791 bfd_get_filename (abfd), (unsigned long) rel->r_offset);
7792 bfd_set_error (bfd_error_bad_value);
7793 return false;
7794 }
7403cb63 7795 /* Fall through. */
252b5132 7796
7403cb63
MM		 7797 case R_MIPS_CALL_HI16:
7798 case R_MIPS_CALL_LO16:
5a44662b
MM		 7799 if (h != NULL)
7800 {
7801 /* This symbol requires a global offset table entry. */
7802 if (!mips_elf_record_global_got_symbol (h, info, g))
7803 return false;
252b5132 7804
5a44662b
MM		 7805 /* We need a stub, not a plt entry for the undefined
7806 function. But we record it as if it needs plt. See
7807 elf_adjust_dynamic_symbol in elflink.h. */
7808 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
7809 h->type = STT_FUNC;
7810 }
252b5132
RH		 7811 break;
7812
7813 case R_MIPS_GOT16:
7814 case R_MIPS_GOT_HI16:
7815 case R_MIPS_GOT_LO16:
7403cb63 7816 case R_MIPS_GOT_DISP:
252b5132 7817 /* This symbol requires a global offset table entry. */
7403cb63
MM		 7818 if (h && !mips_elf_record_global_got_symbol (h, info, g))
7819 return false;
252b5132
RH		 7820 break;
7821
7822 case R_MIPS_32:
7823 case R_MIPS_REL32:
a3c7651d 7824 case R_MIPS_64:
252b5132
RH		 7825 if ((info->shared || h != NULL)
7826 && (sec->flags & SEC_ALLOC) != 0)
7827 {
7828 if (sreloc == NULL)
7829 {
103186c6 7830 const char *name = MIPS_ELF_REL_DYN_SECTION_NAME (dynobj);
252b5132
RH		 7831
7832 sreloc = bfd_get_section_by_name (dynobj, name);
7833 if (sreloc == NULL)
7834 {
7835 sreloc = bfd_make_section (dynobj, name);
7836 if (sreloc == NULL
7837 || ! bfd_set_section_flags (dynobj, sreloc,
7838 (SEC_ALLOC
7839 | SEC_LOAD
7840 | SEC_HAS_CONTENTS
7841 | SEC_IN_MEMORY
7842 | SEC_LINKER_CREATED
7843 | SEC_READONLY))
7844 || ! bfd_set_section_alignment (dynobj, sreloc,
7845 4))
7846 return false;
7847 }
7848 }
7849 if (info->shared)
103186c6
MM		 7850 /* When creating a shared object, we must copy these
7851 reloc types into the output file as R_MIPS_REL32
7852 relocs. We make room for this reloc in the
7853 .rel.dyn reloc section. */
7854 mips_elf_allocate_dynamic_relocations (dynobj, 1);
252b5132
RH		 7855 else
7856 {
7857 struct mips_elf_link_hash_entry *hmips;
7858
7859 /* We only need to copy this reloc if the symbol is
7860 defined in a dynamic object. */
7861 hmips = (struct mips_elf_link_hash_entry *) h;
a3c7651d 7862 ++hmips->possibly_dynamic_relocs;
252b5132 7863 }
be3ccd9c 7864
7403cb63
MM		 7865 /* Even though we don't directly need a GOT entry for
7866 this symbol, a symbol must have a dynamic symbol
5499724a 7867 table index greater that DT_MIPS_GOTSYM if there are
7403cb63 7868 dynamic relocations against it. */
7b1f1231
MM		 7869 if (h != NULL
7870 && !mips_elf_record_global_got_symbol (h, info, g))
7403cb63 7871 return false;
252b5132
RH		 7872 }
7873
313ba8d6 7874 if (SGI_COMPAT (abfd))
252b5132
RH		 7875 mips_elf_hash_table (info)->compact_rel_size +=
7876 sizeof (Elf32_External_crinfo);
252b5132
RH		 7877 break;
7878
7879 case R_MIPS_26:
7880 case R_MIPS_GPREL16:
7881 case R_MIPS_LITERAL:
7882 case R_MIPS_GPREL32:
313ba8d6 7883 if (SGI_COMPAT (abfd))
252b5132
RH		 7884 mips_elf_hash_table (info)->compact_rel_size +=
7885 sizeof (Elf32_External_crinfo);
7886 break;
7887
7888 /* This relocation describes the C++ object vtable hierarchy.
7889 Reconstruct it for later use during GC. */
7890 case R_MIPS_GNU_VTINHERIT:
7891 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
7892 return false;
7893 break;
7894
7895 /* This relocation describes which C++ vtable entries are actually
7896 used. Record for later use during GC. */
7897 case R_MIPS_GNU_VTENTRY:
7898 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_offset))
7899 return false;
7900 break;
7901
7902 default:
7903 break;
7904 }
7905
9117d219
NC		 7906 /* We must not create a stub for a symbol that has relocations
7907 related to taking the function's address. */
7908 switch (r_type)
7909 {
7910 default:
7911 if (h != NULL)
7912 {
7913 struct mips_elf_link_hash_entry *mh;
7914
7915 mh = (struct mips_elf_link_hash_entry *) h;
7916 mh->no_fn_stub = true;
7917 }
7918 break;
7919 case R_MIPS_CALL16:
7920 case R_MIPS_CALL_HI16:
7921 case R_MIPS_CALL_LO16:
7922 break;
7923 }
7924
252b5132
RH		 7925 /* If this reloc is not a 16 bit call, and it has a global
7926 symbol, then we will need the fn_stub if there is one.
be3ccd9c 7927 References from a stub section do not count. */
252b5132 7928 if (h != NULL
7403cb63 7929 && r_type != R_MIPS16_26
252b5132
RH		 7930 && strncmp (bfd_get_section_name (abfd, sec), FN_STUB,
7931 sizeof FN_STUB - 1) != 0
7932 && strncmp (bfd_get_section_name (abfd, sec), CALL_STUB,
7933 sizeof CALL_STUB - 1) != 0
7934 && strncmp (bfd_get_section_name (abfd, sec), CALL_FP_STUB,
7935 sizeof CALL_FP_STUB - 1) != 0)
7936 {
7937 struct mips_elf_link_hash_entry *mh;
7938
7939 mh = (struct mips_elf_link_hash_entry *) h;
7940 mh->need_fn_stub = true;
7941 }
7942 }
7943
7944 return true;
7945}
7946
7947/* Return the section that should be marked against GC for a given
7948 relocation. */
7949
103186c6
MM		 7950asection *
7951_bfd_mips_elf_gc_mark_hook (abfd, info, rel, h, sym)
252b5132 7952 bfd *abfd;
5f771d47 7953 struct bfd_link_info *info ATTRIBUTE_UNUSED;
252b5132
RH		 7954 Elf_Internal_Rela *rel;
7955 struct elf_link_hash_entry *h;
7956 Elf_Internal_Sym *sym;
7957{
7958 /* ??? Do mips16 stub sections need to be handled special? */
7959
7960 if (h != NULL)
7961 {
7962 switch (ELF32_R_TYPE (rel->r_info))
7963 {
7964 case R_MIPS_GNU_VTINHERIT:
7965 case R_MIPS_GNU_VTENTRY:
7966 break;
7967
7968 default:
7969 switch (h->root.type)
7970 {
7971 case bfd_link_hash_defined:
7972 case bfd_link_hash_defweak:
7973 return h->root.u.def.section;
7974
7975 case bfd_link_hash_common:
7976 return h->root.u.c.p->section;
7977
7978 default:
7979 break;
7980 }
7981 }
7982 }
7983 else
7984 {
7985 if (!(elf_bad_symtab (abfd)
7986 && ELF_ST_BIND (sym->st_info) != STB_LOCAL)
7987 && ! ((sym->st_shndx <= 0 || sym->st_shndx >= SHN_LORESERVE)
7988 && sym->st_shndx != SHN_COMMON))
7989 {
7990 return bfd_section_from_elf_index (abfd, sym->st_shndx);
7991 }
7992 }
7993
7994 return NULL;
7995}
7996
7997/* Update the got entry reference counts for the section being removed. */
7998
103186c6
MM		 7999boolean
8000_bfd_mips_elf_gc_sweep_hook (abfd, info, sec, relocs)
5f771d47
ILT		 8001 bfd *abfd ATTRIBUTE_UNUSED;
8002 struct bfd_link_info *info ATTRIBUTE_UNUSED;
8003 asection *sec ATTRIBUTE_UNUSED;
8004 const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED;
252b5132
RH		 8005{
8006#if 0
8007 Elf_Internal_Shdr *symtab_hdr;
8008 struct elf_link_hash_entry **sym_hashes;
8009 bfd_signed_vma *local_got_refcounts;
8010 const Elf_Internal_Rela *rel, *relend;
8011 unsigned long r_symndx;
8012 struct elf_link_hash_entry *h;
8013
8014 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
8015 sym_hashes = elf_sym_hashes (abfd);
8016 local_got_refcounts = elf_local_got_refcounts (abfd);
8017
8018 relend = relocs + sec->reloc_count;
8019 for (rel = relocs; rel < relend; rel++)
8020 switch (ELF32_R_TYPE (rel->r_info))
8021 {
8022 case R_MIPS_GOT16:
8023 case R_MIPS_CALL16:
8024 case R_MIPS_CALL_HI16:
8025 case R_MIPS_CALL_LO16:
8026 case R_MIPS_GOT_HI16:
8027 case R_MIPS_GOT_LO16:
8028 /* ??? It would seem that the existing MIPS code does no sort
8029 of reference counting or whatnot on its GOT and PLT entries,
8030 so it is not possible to garbage collect them at this time. */
be3ccd9c 8031 break;
252b5132
RH		 8032
8033 default:
8034 break;
8035 }
8036#endif
8037
8038 return true;
8039}
8040
8a20f077
UC		 8041/* Copy data from a MIPS ELF indirect symbol to its direct symbol,
8042 hiding the old indirect symbol. Process additional relocation
8043 information. */
8044
8045void
8046_bfd_mips_elf_copy_indirect_symbol (dir, ind)
8047 struct elf_link_hash_entry *dir, *ind;
8048{
8049 struct mips_elf_link_hash_entry *dirmips, *indmips;
8050
8051 _bfd_elf_link_hash_copy_indirect (dir, ind);
8052
8053 dirmips = (struct mips_elf_link_hash_entry *) dir;
8054 indmips = (struct mips_elf_link_hash_entry *) ind;
8055 dirmips->possibly_dynamic_relocs += indmips->possibly_dynamic_relocs;
8056 if (dirmips->min_dyn_reloc_index == 0
8057 || (indmips->min_dyn_reloc_index != 0
be3ccd9c 8058 && indmips->min_dyn_reloc_index < dirmips->min_dyn_reloc_index))
8a20f077 8059 dirmips->min_dyn_reloc_index = indmips->min_dyn_reloc_index;
9117d219
NC		 8060 if (indmips->no_fn_stub)
8061 dirmips->no_fn_stub = true;
8a20f077
UC		 8062}
8063
252b5132
RH		 8064/* Adjust a symbol defined by a dynamic object and referenced by a
8065 regular object. The current definition is in some section of the
8066 dynamic object, but we're not including those sections. We have to
8067 change the definition to something the rest of the link can
8068 understand. */
8069
103186c6
MM		 8070boolean
8071_bfd_mips_elf_adjust_dynamic_symbol (info, h)
252b5132
RH		 8072 struct bfd_link_info *info;
8073 struct elf_link_hash_entry *h;
8074{
8075 bfd *dynobj;
8076 struct mips_elf_link_hash_entry *hmips;
8077 asection *s;
8078
8079 dynobj = elf_hash_table (info)->dynobj;
8080
8081 /* Make sure we know what is going on here. */
8082 BFD_ASSERT (dynobj != NULL
8083 && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
8084 || h->weakdef != NULL
8085 || ((h->elf_link_hash_flags
8086 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
8087 && (h->elf_link_hash_flags
8088 & ELF_LINK_HASH_REF_REGULAR) != 0
8089 && (h->elf_link_hash_flags
8090 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
8091
8092 /* If this symbol is defined in a dynamic object, we need to copy
8093 any R_MIPS_32 or R_MIPS_REL32 relocs against it into the output
8094 file. */
8095 hmips = (struct mips_elf_link_hash_entry *) h;
8096 if (! info->relocateable
a3c7651d 8097 && hmips->possibly_dynamic_relocs != 0
252b5132 8098 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
be3ccd9c 8099 mips_elf_allocate_dynamic_relocations (dynobj,
a3c7651d 8100 hmips->possibly_dynamic_relocs);
252b5132 8101
9117d219
NC		 8102 /* For a function, create a stub, if allowed. */
8103 if (! hmips->no_fn_stub
8104 && (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
252b5132
RH		 8105 {
8106 if (! elf_hash_table (info)->dynamic_sections_created)
8107 return true;
8108
8109 /* If this symbol is not defined in a regular file, then set
8110 the symbol to the stub location. This is required to make
8111 function pointers compare as equal between the normal
8112 executable and the shared library. */
8113 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
8114 {
8115 /* We need .stub section. */
be3ccd9c 8116 s = bfd_get_section_by_name (dynobj,
303f629d 8117 MIPS_ELF_STUB_SECTION_NAME (dynobj));
252b5132
RH		 8118 BFD_ASSERT (s != NULL);
8119
8120 h->root.u.def.section = s;
8121 h->root.u.def.value = s->_raw_size;
8122
8123 /* XXX Write this stub address somewhere. */
8124 h->plt.offset = s->_raw_size;
8125
8126 /* Make room for this stub code. */
8127 s->_raw_size += MIPS_FUNCTION_STUB_SIZE;
8128
8129 /* The last half word of the stub will be filled with the index
8130 of this symbol in .dynsym section. */
8131 return true;
8132 }
8133 }
f7cb7d68 8134 else if ((h->type == STT_FUNC)
be3ccd9c 8135 && (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) == 0)
f7cb7d68
UC		 8136 {
8137 /* This will set the entry for this symbol in the GOT to 0, and
be3ccd9c 8138 the dynamic linker will take care of this. */
f7cb7d68
UC		 8139 h->root.u.def.value = 0;
8140 return true;
8141 }
252b5132
RH		 8142
8143 /* If this is a weak symbol, and there is a real definition, the
8144 processor independent code will have arranged for us to see the
8145 real definition first, and we can just use the same value. */
8146 if (h->weakdef != NULL)
8147 {
8148 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
8149 || h->weakdef->root.type == bfd_link_hash_defweak);
8150 h->root.u.def.section = h->weakdef->root.u.def.section;
8151 h->root.u.def.value = h->weakdef->root.u.def.value;
8152 return true;
8153 }
8154
8155 /* This is a reference to a symbol defined by a dynamic object which
8156 is not a function. */
8157
8158 return true;
8159}
8160
8161/* This function is called after all the input files have been read,
8162 and the input sections have been assigned to output sections. We
8163 check for any mips16 stub sections that we can discard. */
8164
8165static boolean mips_elf_check_mips16_stubs
8166 PARAMS ((struct mips_elf_link_hash_entry *, PTR));
8167
103186c6
MM		 8168boolean
8169_bfd_mips_elf_always_size_sections (output_bfd, info)
252b5132
RH		 8170 bfd *output_bfd;
8171 struct bfd_link_info *info;
8172{
8173 asection *ri;
8174
8175 /* The .reginfo section has a fixed size. */
8176 ri = bfd_get_section_by_name (output_bfd, ".reginfo");
8177 if (ri != NULL)
8178 bfd_set_section_size (output_bfd, ri, sizeof (Elf32_External_RegInfo));
8179
8180 if (info->relocateable
8181 || ! mips_elf_hash_table (info)->mips16_stubs_seen)
8182 return true;
8183
8184 mips_elf_link_hash_traverse (mips_elf_hash_table (info),
8185 mips_elf_check_mips16_stubs,
8186 (PTR) NULL);
8187
8188 return true;
8189}
8190
8191/* Check the mips16 stubs for a particular symbol, and see if we can
8192 discard them. */
8193
252b5132
RH		 8194static boolean
8195mips_elf_check_mips16_stubs (h, data)
8196 struct mips_elf_link_hash_entry *h;
5f771d47 8197 PTR data ATTRIBUTE_UNUSED;
252b5132
RH		 8198{
8199 if (h->fn_stub != NULL
8200 && ! h->need_fn_stub)
8201 {
8202 /* We don't need the fn_stub; the only references to this symbol
8203 are 16 bit calls. Clobber the size to 0 to prevent it from
8204 being included in the link. */
8205 h->fn_stub->_raw_size = 0;
8206 h->fn_stub->_cooked_size = 0;
be3ccd9c 8207 h->fn_stub->flags &= ~SEC_RELOC;
252b5132
RH		 8208 h->fn_stub->reloc_count = 0;
8209 h->fn_stub->flags |= SEC_EXCLUDE;
8210 }
8211
8212 if (h->call_stub != NULL
8213 && h->root.other == STO_MIPS16)
8214 {
8215 /* We don't need the call_stub; this is a 16 bit function, so
8216 calls from other 16 bit functions are OK. Clobber the size
8217 to 0 to prevent it from being included in the link. */
8218 h->call_stub->_raw_size = 0;
8219 h->call_stub->_cooked_size = 0;
be3ccd9c 8220 h->call_stub->flags &= ~SEC_RELOC;
252b5132
RH		 8221 h->call_stub->reloc_count = 0;
8222 h->call_stub->flags |= SEC_EXCLUDE;
8223 }
8224
8225 if (h->call_fp_stub != NULL
8226 && h->root.other == STO_MIPS16)
8227 {
8228 /* We don't need the call_stub; this is a 16 bit function, so
8229 calls from other 16 bit functions are OK. Clobber the size
8230 to 0 to prevent it from being included in the link. */
8231 h->call_fp_stub->_raw_size = 0;
8232 h->call_fp_stub->_cooked_size = 0;
be3ccd9c 8233 h->call_fp_stub->flags &= ~SEC_RELOC;
252b5132
RH		 8234 h->call_fp_stub->reloc_count = 0;
8235 h->call_fp_stub->flags |= SEC_EXCLUDE;
8236 }
8237
8238 return true;
8239}
8240
8241/* Set the sizes of the dynamic sections. */
8242
103186c6
MM		 8243boolean
8244_bfd_mips_elf_size_dynamic_sections (output_bfd, info)
252b5132
RH		 8245 bfd *output_bfd;
8246 struct bfd_link_info *info;
8247{
8248 bfd *dynobj;
8249 asection *s;
8250 boolean reltext;
7a12753d 8251 struct mips_got_info *g = NULL;
252b5132
RH		 8252
8253 dynobj = elf_hash_table (info)->dynobj;
8254 BFD_ASSERT (dynobj != NULL);
8255
8256 if (elf_hash_table (info)->dynamic_sections_created)
8257 {
8258 /* Set the contents of the .interp section to the interpreter. */
8259 if (! info->shared)
8260 {
8261 s = bfd_get_section_by_name (dynobj, ".interp");
8262 BFD_ASSERT (s != NULL);
be3ccd9c 8263 s->_raw_size
303f629d 8264 = strlen (ELF_DYNAMIC_INTERPRETER (output_bfd)) + 1;
be3ccd9c 8265 s->contents
7403cb63 8266 = (bfd_byte *) ELF_DYNAMIC_INTERPRETER (output_bfd);
252b5132
RH		 8267 }
8268 }
8269
252b5132
RH		 8270 /* The check_relocs and adjust_dynamic_symbol entry points have
8271 determined the sizes of the various dynamic sections. Allocate
8272 memory for them. */
8273 reltext = false;
8274 for (s = dynobj->sections; s != NULL; s = s->next)
8275 {
8276 const char *name;
8277 boolean strip;
8278
8279 /* It's OK to base decisions on the section name, because none
8280 of the dynobj section names depend upon the input files. */
8281 name = bfd_get_section_name (dynobj, s);
8282
8283 if ((s->flags & SEC_LINKER_CREATED) == 0)
8284 continue;
8285
8286 strip = false;
8287
8288 if (strncmp (name, ".rel", 4) == 0)
8289 {
8290 if (s->_raw_size == 0)
8291 {
8292 /* We only strip the section if the output section name
8293 has the same name. Otherwise, there might be several
8294 input sections for this output section. FIXME: This
8295 code is probably not needed these days anyhow, since
8296 the linker now does not create empty output sections. */
8297 if (s->output_section != NULL
8298 && strcmp (name,
8299 bfd_get_section_name (s->output_section->owner,
8300 s->output_section)) == 0)
8301 strip = true;
8302 }
8303 else
8304 {
8305 const char *outname;
8306 asection *target;
8307
8308 /* If this relocation section applies to a read only
8309 section, then we probably need a DT_TEXTREL entry.
8310 If the relocation section is .rel.dyn, we always
8311 assert a DT_TEXTREL entry rather than testing whether
8312 there exists a relocation to a read only section or
8313 not. */
8314 outname = bfd_get_section_name (output_bfd,
8315 s->output_section);
8316 target = bfd_get_section_by_name (output_bfd, outname + 4);
8317 if ((target != NULL
8318 && (target->flags & SEC_READONLY) != 0
8319 && (target->flags & SEC_ALLOC) != 0)
be3ccd9c 8320 || strcmp (outname,
103186c6 8321 MIPS_ELF_REL_DYN_SECTION_NAME (output_bfd)) == 0)
252b5132
RH		 8322 reltext = true;
8323
8324 /* We use the reloc_count field as a counter if we need
8325 to copy relocs into the output file. */
be3ccd9c 8326 if (strcmp (name,
103186c6 8327 MIPS_ELF_REL_DYN_SECTION_NAME (output_bfd)) != 0)
252b5132
RH		 8328 s->reloc_count = 0;
8329 }
8330 }
8331 else if (strncmp (name, ".got", 4) == 0)
8332 {
8333 int i;
be3ccd9c
KH		 8334 bfd_size_type loadable_size = 0;
8335 bfd_size_type local_gotno;
8336 struct _bfd *sub;
252b5132 8337
be3ccd9c 8338 BFD_ASSERT (elf_section_data (s) != NULL);
252b5132 8339 g = (struct mips_got_info *) elf_section_data (s)->tdata;
be3ccd9c
KH		 8340 BFD_ASSERT (g != NULL);
8341
8342 /* Calculate the total loadable size of the output. That
8343 will give us the maximum number of GOT_PAGE entries
8344 required. */
8345 for (sub = info->input_bfds; sub; sub = sub->link_next)
8346 {
8347 asection *subsection;
8348
8349 for (subsection = sub->sections;
8350 subsection;
8351 subsection = subsection->next)
8352 {
8353 if ((subsection->flags & SEC_ALLOC) == 0)
8354 continue;
8355 loadable_size += (subsection->_raw_size + 0xf) & ~0xf;
8356 }
8357 }
8358 loadable_size += MIPS_FUNCTION_STUB_SIZE;
8359
8360 /* Assume there are two loadable segments consisting of
8361 contiguous sections. Is 5 enough? */
8362 local_gotno = (loadable_size >> 16) + 5;
9458945f
MM		 8363 if (IRIX_COMPAT (output_bfd) == ict_irix6)
8364 /* It's possible we will need GOT_PAGE entries as well as
8365 GOT16 entries. Often, these will be able to share GOT
8366 entries, but not always. */
8367 local_gotno *= 2;
8368
be3ccd9c
KH		 8369 g->local_gotno += local_gotno;
8370 s->_raw_size += local_gotno * MIPS_ELF_GOT_SIZE (dynobj);
7403cb63 8371
be3ccd9c
KH		 8372 /* There has to be a global GOT entry for every symbol with
8373 a dynamic symbol table index of DT_MIPS_GOTSYM or
8374 higher. Therefore, it make sense to put those symbols
8375 that need GOT entries at the end of the symbol table. We
8376 do that here. */
b3be9b46 8377 if (!mips_elf_sort_hash_table (info, 1))
7403cb63
MM		 8378 return false;
8379
8b237a89
MM		 8380 if (g->global_gotsym != NULL)
8381 i = elf_hash_table (info)->dynsymcount - g->global_gotsym->dynindx;
8382 else
8383 /* If there are no global symbols, or none requiring
8384 relocations, then GLOBAL_GOTSYM will be NULL. */
8385 i = 0;
b3be9b46 8386 g->global_gotno = i;
103186c6 8387 s->_raw_size += i * MIPS_ELF_GOT_SIZE (dynobj);
252b5132 8388 }
303f629d 8389 else if (strcmp (name, MIPS_ELF_STUB_SECTION_NAME (output_bfd)) == 0)
252b5132
RH		 8390 {
8391 /* Irix rld assumes that the function stub isn't at the end
8392 of .text section. So put a dummy. XXX */
8393 s->_raw_size += MIPS_FUNCTION_STUB_SIZE;
8394 }
8395 else if (! info->shared
8396 && ! mips_elf_hash_table (info)->use_rld_obj_head
8397 && strncmp (name, ".rld_map", 8) == 0)
8398 {
8399 /* We add a room for __rld_map. It will be filled in by the
8400 rtld to contain a pointer to the _r_debug structure. */
8401 s->_raw_size += 4;
8402 }
8403 else if (SGI_COMPAT (output_bfd)
8404 && strncmp (name, ".compact_rel", 12) == 0)
8405 s->_raw_size += mips_elf_hash_table (info)->compact_rel_size;
c6142e5d
MM		 8406 else if (strcmp (name, MIPS_ELF_MSYM_SECTION_NAME (output_bfd))
8407 == 0)
be3ccd9c 8408 s->_raw_size = (sizeof (Elf32_External_Msym)
c6142e5d
MM		 8409 * (elf_hash_table (info)->dynsymcount
8410 + bfd_count_sections (output_bfd)));
252b5132
RH		 8411 else if (strncmp (name, ".init", 5) != 0)
8412 {
8413 /* It's not one of our sections, so don't allocate space. */
8414 continue;
8415 }
8416
8417 if (strip)
8418 {
7f8d5fc9 8419 _bfd_strip_section_from_output (info, s);
252b5132
RH		 8420 continue;
8421 }
8422
8423 /* Allocate memory for the section contents. */
303f629d 8424 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
252b5132
RH		 8425 if (s->contents == NULL && s->_raw_size != 0)
8426 {
8427 bfd_set_error (bfd_error_no_memory);
8428 return false;
8429 }
252b5132
RH		 8430 }
8431
8432 if (elf_hash_table (info)->dynamic_sections_created)
8433 {
8434 /* Add some entries to the .dynamic section. We fill in the
8435 values later, in elf_mips_finish_dynamic_sections, but we
8436 must add the entries now so that we get the correct size for
8437 the .dynamic section. The DT_DEBUG entry is filled in by the
8438 dynamic linker and used by the debugger. */
8439 if (! info->shared)
8440 {
be3ccd9c
KH		 8441 /* SGI object has the equivalence of DT_DEBUG in the
8442 DT_MIPS_RLD_MAP entry. */
8443 if (!MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_RLD_MAP, 0))
8444 return false;
8445 if (!SGI_COMPAT (output_bfd))
8446 {
8447 if (!MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_DEBUG, 0))
8448 return false;
8449 }
8450 }
f7cb7d68 8451 else
be3ccd9c
KH		 8452 {
8453 /* Shared libraries on traditional mips have DT_DEBUG. */
8454 if (!SGI_COMPAT (output_bfd))
8455 {
8456 if (!MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_DEBUG, 0))
8457 return false;
8458 }
8459 }
8460 if (reltext && SGI_COMPAT (output_bfd))
252b5132 8461 {
103186c6 8462 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_TEXTREL, 0))
252b5132 8463 return false;
d6cf2879 8464 info->flags |= DF_TEXTREL;
252b5132
RH		 8465 }
8466
103186c6 8467 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_PLTGOT, 0))
252b5132
RH		 8468 return false;
8469
103186c6
MM		 8470 if (bfd_get_section_by_name (dynobj,
8471 MIPS_ELF_REL_DYN_SECTION_NAME (dynobj)))
252b5132 8472 {
103186c6 8473 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_REL, 0))
252b5132
RH		 8474 return false;
8475
103186c6 8476 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_RELSZ, 0))
252b5132
RH		 8477 return false;
8478
103186c6 8479 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_RELENT, 0))
252b5132
RH		 8480 return false;
8481 }
8482
f7cb7d68 8483 if (SGI_COMPAT (output_bfd))
be3ccd9c
KH		 8484 {
8485 if (!MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_CONFLICTNO, 0))
f7cb7d68 8486 return false;
be3ccd9c 8487 }
252b5132 8488
f7cb7d68 8489 if (SGI_COMPAT (output_bfd))
be3ccd9c
KH		 8490 {
8491 if (!MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_LIBLISTNO, 0))
f7cb7d68 8492 return false;
be3ccd9c 8493 }
252b5132
RH		 8494
8495 if (bfd_get_section_by_name (dynobj, ".conflict") != NULL)
8496 {
103186c6 8497 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_CONFLICT, 0))
252b5132
RH		 8498 return false;
8499
8500 s = bfd_get_section_by_name (dynobj, ".liblist");
8501 BFD_ASSERT (s != NULL);
8502
103186c6 8503 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_LIBLIST, 0))
252b5132
RH		 8504 return false;
8505 }
8506
103186c6 8507 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_RLD_VERSION, 0))
252b5132
RH		 8508 return false;
8509
103186c6 8510 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_FLAGS, 0))
252b5132
RH		 8511 return false;
8512
8513#if 0
8514 /* Time stamps in executable files are a bad idea. */
103186c6 8515 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_TIME_STAMP, 0))
252b5132
RH		 8516 return false;
8517#endif
8518
8519#if 0 /* FIXME */
103186c6 8520 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_ICHECKSUM, 0))
252b5132
RH		 8521 return false;
8522#endif
8523
8524#if 0 /* FIXME */
103186c6 8525 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_IVERSION, 0))
252b5132
RH		 8526 return false;
8527#endif
8528
103186c6 8529 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_BASE_ADDRESS, 0))
252b5132
RH		 8530 return false;
8531
103186c6 8532 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_LOCAL_GOTNO, 0))
252b5132
RH		 8533 return false;
8534
103186c6 8535 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_SYMTABNO, 0))
252b5132
RH		 8536 return false;
8537
103186c6 8538 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_UNREFEXTNO, 0))
252b5132
RH		 8539 return false;
8540
5499724a 8541 if (! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_GOTSYM, 0))
252b5132
RH		 8542 return false;
8543
7403cb63 8544 if (IRIX_COMPAT (dynobj) == ict_irix5
103186c6 8545 && ! MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_HIPAGENO, 0))
252b5132
RH		 8546 return false;
8547
7403cb63 8548 if (IRIX_COMPAT (dynobj) == ict_irix6
be3ccd9c 8549 && (bfd_get_section_by_name
7403cb63 8550 (dynobj, MIPS_ELF_OPTIONS_SECTION_NAME (dynobj)))
103186c6 8551 && !MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_OPTIONS, 0))
7403cb63 8552 return false;
c6142e5d 8553
be3ccd9c 8554 if (bfd_get_section_by_name (dynobj,
c6142e5d 8555 MIPS_ELF_MSYM_SECTION_NAME (dynobj))
103186c6 8556 && !MIPS_ELF_ADD_DYNAMIC_ENTRY (info, DT_MIPS_MSYM, 0))
c6142e5d 8557 return false;
252b5132
RH		 8558 }
8559
252b5132
RH		 8560 return true;
8561}
8562
7403cb63
MM		 8563/* If NAME is one of the special IRIX6 symbols defined by the linker,
8564 adjust it appropriately now. */
8565
8566static void
8567mips_elf_irix6_finish_dynamic_symbol (abfd, name, sym)
5f771d47 8568 bfd *abfd ATTRIBUTE_UNUSED;
7403cb63
MM		 8569 const char *name;
8570 Elf_Internal_Sym *sym;
8571{
8572 /* The linker script takes care of providing names and values for
8573 these, but we must place them into the right sections. */
8574 static const char* const text_section_symbols[] = {
8575 "_ftext",
8576 "_etext",
8577 "__dso_displacement",
8578 "__elf_header",
8579 "__program_header_table",
8580 NULL
8581 };
8582
8583 static const char* const data_section_symbols[] = {
8584 "_fdata",
8585 "_edata",
8586 "_end",
8587 "_fbss",
8588 NULL
8589 };
8590
8591 const char* const *p;
8592 int i;
8593
8594 for (i = 0; i < 2; ++i)
be3ccd9c 8595 for (p = (i == 0) ? text_section_symbols : data_section_symbols;
7403cb63
MM		 8596 *p;
8597 ++p)
8598 if (strcmp (*p, name) == 0)
8599 {
8600 /* All of these symbols are given type STT_SECTION by the
8601 IRIX6 linker. */
8602 sym->st_info = ELF_ST_INFO (STB_GLOBAL, STT_SECTION);
be3ccd9c 8603
7403cb63
MM		 8604 /* The IRIX linker puts these symbols in special sections. */
8605 if (i == 0)
8606 sym->st_shndx = SHN_MIPS_TEXT;
8607 else
8608 sym->st_shndx = SHN_MIPS_DATA;
be3ccd9c 8609
7403cb63
MM		 8610 break;
8611 }
8612}
8613
252b5132
RH		 8614/* Finish up dynamic symbol handling. We set the contents of various
8615 dynamic sections here. */
8616
103186c6
MM		 8617boolean
8618_bfd_mips_elf_finish_dynamic_symbol (output_bfd, info, h, sym)
252b5132
RH		 8619 bfd *output_bfd;
8620 struct bfd_link_info *info;
8621 struct elf_link_hash_entry *h;
8622 Elf_Internal_Sym *sym;
8623{
8624 bfd *dynobj;
8625 bfd_vma gval;
8626 asection *sgot;
c6142e5d 8627 asection *smsym;
252b5132
RH		 8628 struct mips_got_info *g;
8629 const char *name;
c6142e5d 8630 struct mips_elf_link_hash_entry *mh;
252b5132
RH		 8631
8632 dynobj = elf_hash_table (info)->dynobj;
8633 gval = sym->st_value;
c6142e5d 8634 mh = (struct mips_elf_link_hash_entry *) h;
252b5132
RH		 8635
8636 if (h->plt.offset != (bfd_vma) -1)
8637 {
8638 asection *s;
8639 bfd_byte *p;
8640 bfd_byte stub[MIPS_FUNCTION_STUB_SIZE];
8641
8642 /* This symbol has a stub. Set it up. */
8643
8644 BFD_ASSERT (h->dynindx != -1);
8645
be3ccd9c 8646 s = bfd_get_section_by_name (dynobj,
303f629d 8647 MIPS_ELF_STUB_SECTION_NAME (dynobj));
252b5132
RH		 8648 BFD_ASSERT (s != NULL);
8649
8650 /* Fill the stub. */
8651 p = stub;
be3ccd9c 8652 bfd_put_32 (output_bfd, STUB_LW (output_bfd), p);
252b5132 8653 p += 4;
be3ccd9c 8654 bfd_put_32 (output_bfd, STUB_MOVE (output_bfd), p);
252b5132
RH		 8655 p += 4;
8656
8657 /* FIXME: Can h->dynindex be more than 64K? */
8658 if (h->dynindx & 0xffff0000)
8659 return false;
8660
8661 bfd_put_32 (output_bfd, STUB_JALR, p);
8662 p += 4;
be3ccd9c 8663 bfd_put_32 (output_bfd, STUB_LI16 (output_bfd) + h->dynindx, p);
252b5132
RH		 8664
8665 BFD_ASSERT (h->plt.offset <= s->_raw_size);
8666 memcpy (s->contents + h->plt.offset, stub, MIPS_FUNCTION_STUB_SIZE);
8667
8668 /* Mark the symbol as undefined. plt.offset != -1 occurs
8669 only for the referenced symbol. */
8670 sym->st_shndx = SHN_UNDEF;
8671
8672 /* The run-time linker uses the st_value field of the symbol
8673 to reset the global offset table entry for this external
8674 to its stub address when unlinking a shared object. */
8675 gval = s->output_section->vma + s->output_offset + h->plt.offset;
8676 sym->st_value = gval;
8677 }
8678
b305ef96
UC		 8679 BFD_ASSERT (h->dynindx != -1
8680 || (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0);
252b5132 8681
103186c6 8682 sgot = mips_elf_got_section (dynobj);
252b5132
RH		 8683 BFD_ASSERT (sgot != NULL);
8684 BFD_ASSERT (elf_section_data (sgot) != NULL);
8685 g = (struct mips_got_info *) elf_section_data (sgot)->tdata;
8686 BFD_ASSERT (g != NULL);
8687
7403cb63
MM		 8688 /* Run through the global symbol table, creating GOT entries for all
8689 the symbols that need them. */
8b237a89
MM		 8690 if (g->global_gotsym != NULL
8691 && h->dynindx >= g->global_gotsym->dynindx)
252b5132 8692 {
7403cb63
MM		 8693 bfd_vma offset;
8694 bfd_vma value;
252b5132 8695
7403cb63
MM		 8696 if (sym->st_value)
8697 value = sym->st_value;
8698 else
be3ccd9c
KH		 8699 {
8700 /* For an entity defined in a shared object, this will be
8701 NULL. (For functions in shared objects for
8702 which we have created stubs, ST_VALUE will be non-NULL.
8703 That's because such the functions are now no longer defined
8704 in a shared object.) */
8705
8706 if (info->shared && h->root.type == bfd_link_hash_undefined)
8707 value = 0;
8708 else
8709 value = h->root.u.def.value;
8710 }
7403cb63 8711 offset = mips_elf_global_got_index (dynobj, h);
103186c6 8712 MIPS_ELF_PUT_WORD (output_bfd, value, sgot->contents + offset);
252b5132
RH		 8713 }
8714
c6142e5d 8715 /* Create a .msym entry, if appropriate. */
be3ccd9c 8716 smsym = bfd_get_section_by_name (dynobj,
c6142e5d
MM		 8717 MIPS_ELF_MSYM_SECTION_NAME (dynobj));
8718 if (smsym)
8719 {
8720 Elf32_Internal_Msym msym;
8721
8722 msym.ms_hash_value = bfd_elf_hash (h->root.root.string);
8723 /* It is undocumented what the `1' indicates, but IRIX6 uses
8724 this value. */
8725 msym.ms_info = ELF32_MS_INFO (mh->min_dyn_reloc_index, 1);
be3ccd9c 8726 bfd_mips_elf_swap_msym_out
c6142e5d
MM		 8727 (dynobj, &msym,
8728 ((Elf32_External_Msym *) smsym->contents) + h->dynindx);
8729 }
8730
252b5132
RH		 8731 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
8732 name = h->root.root.string;
8733 if (strcmp (name, "_DYNAMIC") == 0
8734 || strcmp (name, "_GLOBAL_OFFSET_TABLE_") == 0)
8735 sym->st_shndx = SHN_ABS;
f7cb7d68 8736 else if (strcmp (name, "_DYNAMIC_LINK") == 0
be3ccd9c 8737 || strcmp (name, "_DYNAMIC_LINKING") == 0)
252b5132
RH		 8738 {
8739 sym->st_shndx = SHN_ABS;
8740 sym->st_info = ELF_ST_INFO (STB_GLOBAL, STT_SECTION);
8741 sym->st_value = 1;
8742 }
f7cb7d68
UC		 8743 else if (strcmp (name, "_gp_disp") == 0)
8744 {
8745 sym->st_shndx = SHN_ABS;
8746 sym->st_info = ELF_ST_INFO (STB_GLOBAL, STT_SECTION);
8747 sym->st_value = elf_gp (output_bfd);
8748 }
252b5132
RH		 8749 else if (SGI_COMPAT (output_bfd))
8750 {
f7cb7d68 8751 if (strcmp (name, mips_elf_dynsym_rtproc_names[0]) == 0
be3ccd9c 8752 || strcmp (name, mips_elf_dynsym_rtproc_names[1]) == 0)
252b5132
RH		 8753 {
8754 sym->st_info = ELF_ST_INFO (STB_GLOBAL, STT_SECTION);
8755 sym->st_other = STO_PROTECTED;
8756 sym->st_value = 0;
8757 sym->st_shndx = SHN_MIPS_DATA;
8758 }
8759 else if (strcmp (name, mips_elf_dynsym_rtproc_names[2]) == 0)
8760 {
8761 sym->st_info = ELF_ST_INFO (STB_GLOBAL, STT_SECTION);
8762 sym->st_other = STO_PROTECTED;
8763 sym->st_value = mips_elf_hash_table (info)->procedure_count;
8764 sym->st_shndx = SHN_ABS;
8765 }
8766 else if (sym->st_shndx != SHN_UNDEF && sym->st_shndx != SHN_ABS)
8767 {
8768 if (h->type == STT_FUNC)
8769 sym->st_shndx = SHN_MIPS_TEXT;
8770 else if (h->type == STT_OBJECT)
8771 sym->st_shndx = SHN_MIPS_DATA;
8772 }
8773 }
8774
7403cb63
MM		 8775 /* Handle the IRIX6-specific symbols. */
8776 if (IRIX_COMPAT (output_bfd) == ict_irix6)
8777 mips_elf_irix6_finish_dynamic_symbol (output_bfd, name, sym);
8778
f7cb7d68 8779 if (! info->shared)
252b5132
RH		 8780 {
8781 if (! mips_elf_hash_table (info)->use_rld_obj_head
31a9bdd9
UC		 8782 && (strcmp (name, "__rld_map") == 0
8783 || strcmp (name, "__RLD_MAP") == 0))
252b5132
RH		 8784 {
8785 asection *s = bfd_get_section_by_name (dynobj, ".rld_map");
8786 BFD_ASSERT (s != NULL);
8787 sym->st_value = s->output_section->vma + s->output_offset;
8788 bfd_put_32 (output_bfd, (bfd_vma) 0, s->contents);
8789 if (mips_elf_hash_table (info)->rld_value == 0)
8790 mips_elf_hash_table (info)->rld_value = sym->st_value;
8791 }
8792 else if (mips_elf_hash_table (info)->use_rld_obj_head
8793 && strcmp (name, "__rld_obj_head") == 0)
8794 {
303f629d 8795 /* IRIX6 does not use a .rld_map section. */
f7cb7d68
UC		 8796 if (IRIX_COMPAT (output_bfd) == ict_irix5
8797 || IRIX_COMPAT (output_bfd) == ict_none)
be3ccd9c 8798 BFD_ASSERT (bfd_get_section_by_name (dynobj, ".rld_map")
303f629d 8799 != NULL);
252b5132
RH		 8800 mips_elf_hash_table (info)->rld_value = sym->st_value;
8801 }
8802 }
8803
8804 /* If this is a mips16 symbol, force the value to be even. */
8805 if (sym->st_other == STO_MIPS16
8806 && (sym->st_value & 1) != 0)
8807 --sym->st_value;
8808
8809 return true;
8810}
8811
8812/* Finish up the dynamic sections. */
8813
103186c6
MM		 8814boolean
8815_bfd_mips_elf_finish_dynamic_sections (output_bfd, info)
252b5132
RH		 8816 bfd *output_bfd;
8817 struct bfd_link_info *info;
8818{
8819 bfd *dynobj;
8820 asection *sdyn;
8821 asection *sgot;
8822 struct mips_got_info *g;
8823
8824 dynobj = elf_hash_table (info)->dynobj;
8825
8826 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
8827
103186c6 8828 sgot = mips_elf_got_section (dynobj);
252b5132
RH		 8829 if (sgot == NULL)
8830 g = NULL;
8831 else
8832 {
8833 BFD_ASSERT (elf_section_data (sgot) != NULL);
8834 g = (struct mips_got_info *) elf_section_data (sgot)->tdata;
8835 BFD_ASSERT (g != NULL);
8836 }
8837
8838 if (elf_hash_table (info)->dynamic_sections_created)
8839 {
103186c6 8840 bfd_byte *b;
252b5132
RH		 8841
8842 BFD_ASSERT (sdyn != NULL);
8843 BFD_ASSERT (g != NULL);
8844
103186c6
MM		 8845 for (b = sdyn->contents;
8846 b < sdyn->contents + sdyn->_raw_size;
8847 b += MIPS_ELF_DYN_SIZE (dynobj))
252b5132
RH		 8848 {
8849 Elf_Internal_Dyn dyn;
8850 const char *name;
8851 size_t elemsize;
8852 asection *s;
103186c6 8853 boolean swap_out_p;
252b5132 8854
103186c6
MM		 8855 /* Read in the current dynamic entry. */
8856 (*get_elf_backend_data (dynobj)->s->swap_dyn_in) (dynobj, b, &dyn);
be3ccd9c 8857
103186c6
MM		 8858 /* Assume that we're going to modify it and write it out. */
8859 swap_out_p = true;
252b5132
RH		 8860
8861 switch (dyn.d_tag)
8862 {
252b5132 8863 case DT_RELENT:
be3ccd9c 8864 s = (bfd_get_section_by_name
103186c6
MM		 8865 (dynobj,
8866 MIPS_ELF_REL_DYN_SECTION_NAME (dynobj)));
252b5132 8867 BFD_ASSERT (s != NULL);
103186c6 8868 dyn.d_un.d_val = MIPS_ELF_REL_SIZE (dynobj);
252b5132
RH		 8869 break;
8870
8871 case DT_STRSZ:
8872 /* Rewrite DT_STRSZ. */
8873 dyn.d_un.d_val =
8874 _bfd_stringtab_size (elf_hash_table (info)->dynstr);
252b5132
RH		 8875 break;
8876
8877 case DT_PLTGOT:
8878 name = ".got";
8879 goto get_vma;
8880 case DT_MIPS_CONFLICT:
8881 name = ".conflict";
8882 goto get_vma;
8883 case DT_MIPS_LIBLIST:
8884 name = ".liblist";
8885 get_vma:
8886 s = bfd_get_section_by_name (output_bfd, name);
8887 BFD_ASSERT (s != NULL);
8888 dyn.d_un.d_ptr = s->vma;
252b5132
RH		 8889 break;
8890
8891 case DT_MIPS_RLD_VERSION:
8892 dyn.d_un.d_val = 1; /* XXX */
252b5132
RH		 8893 break;
8894
8895 case DT_MIPS_FLAGS:
8896 dyn.d_un.d_val = RHF_NOTPOT; /* XXX */
252b5132
RH		 8897 break;
8898
8899 case DT_MIPS_CONFLICTNO:
8900 name = ".conflict";
8901 elemsize = sizeof (Elf32_Conflict);
8902 goto set_elemno;
8903
8904 case DT_MIPS_LIBLISTNO:
8905 name = ".liblist";
8906 elemsize = sizeof (Elf32_Lib);
8907 set_elemno:
8908 s = bfd_get_section_by_name (output_bfd, name);
8909 if (s != NULL)
8910 {
8911 if (s->_cooked_size != 0)
8912 dyn.d_un.d_val = s->_cooked_size / elemsize;
8913 else
8914 dyn.d_un.d_val = s->_raw_size / elemsize;
8915 }
8916 else
be3ccd9c 8917 dyn.d_un.d_val = 0;
252b5132
RH		 8918 break;
8919
8920 case DT_MIPS_TIME_STAMP:
8921 time ((time_t *) &dyn.d_un.d_val);
252b5132
RH		 8922 break;
8923
8924 case DT_MIPS_ICHECKSUM:
8925 /* XXX FIXME: */
103186c6 8926 swap_out_p = false;
252b5132
RH		 8927 break;
8928
8929 case DT_MIPS_IVERSION:
8930 /* XXX FIXME: */
103186c6 8931 swap_out_p = false;
252b5132
RH		 8932 break;
8933
8934 case DT_MIPS_BASE_ADDRESS:
8935 s = output_bfd->sections;
8936 BFD_ASSERT (s != NULL);
8937 dyn.d_un.d_ptr = s->vma & ~(0xffff);
252b5132
RH		 8938 break;
8939
8940 case DT_MIPS_LOCAL_GOTNO:
8941 dyn.d_un.d_val = g->local_gotno;
252b5132
RH		 8942 break;
8943
5499724a
MM		 8944 case DT_MIPS_UNREFEXTNO:
8945 /* The index into the dynamic symbol table which is the
8946 entry of the first external symbol that is not
8947 referenced within the same object. */
8948 dyn.d_un.d_val = bfd_count_sections (output_bfd) + 1;
8949 break;
8950
8951 case DT_MIPS_GOTSYM:
8952 if (g->global_gotsym)
8953 {
8954 dyn.d_un.d_val = g->global_gotsym->dynindx;
8955 break;
8956 }
8957 /* In case if we don't have global got symbols we default
8958 to setting DT_MIPS_GOTSYM to the same value as
8959 DT_MIPS_SYMTABNO, so we just fall through. */
8960
252b5132
RH		 8961 case DT_MIPS_SYMTABNO:
8962 name = ".dynsym";
103186c6 8963 elemsize = MIPS_ELF_SYM_SIZE (output_bfd);
252b5132
RH		 8964 s = bfd_get_section_by_name (output_bfd, name);
8965 BFD_ASSERT (s != NULL);
8966
8967 if (s->_cooked_size != 0)
8968 dyn.d_un.d_val = s->_cooked_size / elemsize;
8969 else
8970 dyn.d_un.d_val = s->_raw_size / elemsize;
252b5132
RH		 8971 break;
8972
252b5132
RH		 8973 case DT_MIPS_HIPAGENO:
8974 dyn.d_un.d_val = g->local_gotno - MIPS_RESERVED_GOTNO;
252b5132
RH		 8975 break;
8976
8977 case DT_MIPS_RLD_MAP:
8978 dyn.d_un.d_ptr = mips_elf_hash_table (info)->rld_value;
252b5132
RH		 8979 break;
8980
7403cb63 8981 case DT_MIPS_OPTIONS:
be3ccd9c 8982 s = (bfd_get_section_by_name
7403cb63
MM		 8983 (output_bfd, MIPS_ELF_OPTIONS_SECTION_NAME (output_bfd)));
8984 dyn.d_un.d_ptr = s->vma;
7403cb63
MM		 8985 break;
8986
c6142e5d 8987 case DT_MIPS_MSYM:
be3ccd9c 8988 s = (bfd_get_section_by_name
c6142e5d
MM		 8989 (output_bfd, MIPS_ELF_MSYM_SECTION_NAME (output_bfd)));
8990 dyn.d_un.d_ptr = s->vma;
103186c6
MM		 8991 break;
8992
8993 default:
8994 swap_out_p = false;
c6142e5d 8995 break;
252b5132 8996 }
103186c6
MM		 8997
8998 if (swap_out_p)
be3ccd9c 8999 (*get_elf_backend_data (dynobj)->s->swap_dyn_out)
103186c6 9000 (dynobj, &dyn, b);
252b5132
RH		 9001 }
9002 }
9003
9004 /* The first entry of the global offset table will be filled at
9005 runtime. The second entry will be used by some runtime loaders.
be3ccd9c 9006 This isn't the case of Irix rld. */
252b5132
RH		 9007 if (sgot != NULL && sgot->_raw_size > 0)
9008 {
103186c6 9009 MIPS_ELF_PUT_WORD (output_bfd, (bfd_vma) 0, sgot->contents);
be3ccd9c 9010 MIPS_ELF_PUT_WORD (output_bfd, (bfd_vma) 0x80000000,
103186c6 9011 sgot->contents + MIPS_ELF_GOT_SIZE (output_bfd));
252b5132
RH		 9012 }
9013
9014 if (sgot != NULL)
103186c6
MM		 9015 elf_section_data (sgot->output_section)->this_hdr.sh_entsize
9016 = MIPS_ELF_GOT_SIZE (output_bfd);
252b5132
RH		 9017
9018 {
c6142e5d 9019 asection *smsym;
252b5132 9020 asection *s;
252b5132
RH		 9021 Elf32_compact_rel cpt;
9022
30b30c21
RH		 9023 /* ??? The section symbols for the output sections were set up in
9024 _bfd_elf_final_link. SGI sets the STT_NOTYPE attribute for these
9025 symbols. Should we do so? */
252b5132 9026
be3ccd9c 9027 smsym = bfd_get_section_by_name (dynobj,
c6142e5d 9028 MIPS_ELF_MSYM_SECTION_NAME (dynobj));
30b30c21 9029 if (smsym != NULL)
252b5132 9030 {
103186c6 9031 Elf32_Internal_Msym msym;
c6142e5d 9032
103186c6
MM		 9033 msym.ms_hash_value = 0;
9034 msym.ms_info = ELF32_MS_INFO (0, 1);
c6142e5d 9035
103186c6
MM		 9036 for (s = output_bfd->sections; s != NULL; s = s->next)
9037 {
30b30c21 9038 long dynindx = elf_section_data (s)->dynindx;
252b5132 9039
be3ccd9c 9040 bfd_mips_elf_swap_msym_out
30b30c21
RH		 9041 (output_bfd, &msym,
9042 (((Elf32_External_Msym *) smsym->contents)
9043 + dynindx));
9044 }
252b5132
RH		 9045 }
9046
9047 if (SGI_COMPAT (output_bfd))
9048 {
9049 /* Write .compact_rel section out. */
9050 s = bfd_get_section_by_name (dynobj, ".compact_rel");
9051 if (s != NULL)
9052 {
9053 cpt.id1 = 1;
9054 cpt.num = s->reloc_count;
9055 cpt.id2 = 2;
9056 cpt.offset = (s->output_section->filepos
9057 + sizeof (Elf32_External_compact_rel));
9058 cpt.reserved0 = 0;
9059 cpt.reserved1 = 0;
9060 bfd_elf32_swap_compact_rel_out (output_bfd, &cpt,
9061 ((Elf32_External_compact_rel *)
9062 s->contents));
9063
9064 /* Clean up a dummy stub function entry in .text. */
be3ccd9c 9065 s = bfd_get_section_by_name (dynobj,
303f629d 9066 MIPS_ELF_STUB_SECTION_NAME (dynobj));
252b5132
RH		 9067 if (s != NULL)
9068 {
9069 file_ptr dummy_offset;
9070
9071 BFD_ASSERT (s->_raw_size >= MIPS_FUNCTION_STUB_SIZE);
9072 dummy_offset = s->_raw_size - MIPS_FUNCTION_STUB_SIZE;
9073 memset (s->contents + dummy_offset, 0,
9074 MIPS_FUNCTION_STUB_SIZE);
9075 }
9076 }
9077 }
9078
adb76a3e
UC		 9079 /* We need to sort the entries of the dynamic relocation section. */
9080
9081 if (!ABI_64_P (output_bfd))
9082 {
be3ccd9c
KH		 9083 asection *reldyn;
9084
9085 reldyn = bfd_get_section_by_name (dynobj,
9086 MIPS_ELF_REL_DYN_SECTION_NAME (dynobj));
9087 if (reldyn != NULL && reldyn->reloc_count > 2)
9088 {
9089 reldyn_sorting_bfd = output_bfd;
9090 qsort ((Elf32_External_Rel *) reldyn->contents + 1,
9091 (size_t) reldyn->reloc_count - 1,
9092 sizeof (Elf32_External_Rel), sort_dynamic_relocs);
9093 }
adb76a3e
UC		 9094 }
9095
252b5132 9096 /* Clean up a first relocation in .rel.dyn. */
be3ccd9c 9097 s = bfd_get_section_by_name (dynobj,
103186c6 9098 MIPS_ELF_REL_DYN_SECTION_NAME (dynobj));
252b5132 9099 if (s != NULL && s->_raw_size > 0)
103186c6 9100 memset (s->contents, 0, MIPS_ELF_REL_SIZE (dynobj));
252b5132
RH		 9101 }
9102
9103 return true;
9104}
9105\f
9106/* This is almost identical to bfd_generic_get_... except that some
9107 MIPS relocations need to be handled specially. Sigh. */
9108
9109static bfd_byte *
9110elf32_mips_get_relocated_section_contents (abfd, link_info, link_order, data,
9111 relocateable, symbols)
9112 bfd *abfd;
9113 struct bfd_link_info *link_info;
9114 struct bfd_link_order *link_order;
9115 bfd_byte *data;
9116 boolean relocateable;
9117 asymbol **symbols;
9118{
9119 /* Get enough memory to hold the stuff */
9120 bfd *input_bfd = link_order->u.indirect.section->owner;
9121 asection *input_section = link_order->u.indirect.section;
9122
9123 long reloc_size = bfd_get_reloc_upper_bound (input_bfd, input_section);
9124 arelent **reloc_vector = NULL;
9125 long reloc_count;
9126
9127 if (reloc_size < 0)
9128 goto error_return;
9129
9130 reloc_vector = (arelent **) bfd_malloc (reloc_size);
9131 if (reloc_vector == NULL && reloc_size != 0)
9132 goto error_return;
9133
9134 /* read in the section */
9135 if (!bfd_get_section_contents (input_bfd,
9136 input_section,
9137 (PTR) data,
9138 0,
9139 input_section->_raw_size))
9140 goto error_return;
9141
9142 /* We're not relaxing the section, so just copy the size info */
9143 input_section->_cooked_size = input_section->_raw_size;
9144 input_section->reloc_done = true;
9145
9146 reloc_count = bfd_canonicalize_reloc (input_bfd,
9147 input_section,
9148 reloc_vector,
9149 symbols);
9150 if (reloc_count < 0)
9151 goto error_return;
9152
9153 if (reloc_count > 0)
9154 {
9155 arelent **parent;
9156 /* for mips */
9157 int gp_found;
9158 bfd_vma gp = 0x12345678; /* initialize just to shut gcc up */
9159
9160 {
9161 struct bfd_hash_entry *h;
9162 struct bfd_link_hash_entry *lh;
9163 /* Skip all this stuff if we aren't mixing formats. */
9164 if (abfd && input_bfd
9165 && abfd->xvec == input_bfd->xvec)
9166 lh = 0;
9167 else
9168 {
9169 h = bfd_hash_lookup (&link_info->hash->table, "_gp", false, false);
9170 lh = (struct bfd_link_hash_entry *) h;
9171 }
9172 lookup:
9173 if (lh)
9174 {
9175 switch (lh->type)
9176 {
9177 case bfd_link_hash_undefined:
9178 case bfd_link_hash_undefweak:
9179 case bfd_link_hash_common:
9180 gp_found = 0;
9181 break;
9182 case bfd_link_hash_defined:
9183 case bfd_link_hash_defweak:
9184 gp_found = 1;
9185 gp = lh->u.def.value;
9186 break;
9187 case bfd_link_hash_indirect:
9188 case bfd_link_hash_warning:
9189 lh = lh->u.i.link;
9190 /* @@FIXME ignoring warning for now */
9191 goto lookup;
9192 case bfd_link_hash_new:
9193 default:
9194 abort ();
9195 }
9196 }
9197 else
9198 gp_found = 0;
9199 }
9200 /* end mips */
9201 for (parent = reloc_vector; *parent != (arelent *) NULL;
9202 parent++)
9203 {
9204 char *error_message = (char *) NULL;
9205 bfd_reloc_status_type r;
9206
9207 /* Specific to MIPS: Deal with relocation types that require
9208 knowing the gp of the output bfd. */
9209 asymbol *sym = *(*parent)->sym_ptr_ptr;
9210 if (bfd_is_abs_section (sym->section) && abfd)
9211 {
9212 /* The special_function wouldn't get called anyways. */
9213 }
9214 else if (!gp_found)
9215 {
9216 /* The gp isn't there; let the special function code
9217 fall over on its own. */
9218 }
9219 else if ((*parent)->howto->special_function
9220 == _bfd_mips_elf_gprel16_reloc)
9221 {
9222 /* bypass special_function call */
9223 r = gprel16_with_gp (input_bfd, sym, *parent, input_section,
9224 relocateable, (PTR) data, gp);
9225 goto skip_bfd_perform_relocation;
9226 }
9227 /* end mips specific stuff */
9228
9229 r = bfd_perform_relocation (input_bfd,
9230 *parent,
9231 (PTR) data,
9232 input_section,
9233 relocateable ? abfd : (bfd *) NULL,
9234 &error_message);
9235 skip_bfd_perform_relocation:
9236
9237 if (relocateable)
9238 {
9239 asection *os = input_section->output_section;
9240
9241 /* A partial link, so keep the relocs */
9242 os->orelocation[os->reloc_count] = *parent;
9243 os->reloc_count++;
9244 }
9245
9246 if (r != bfd_reloc_ok)
9247 {
9248 switch (r)
9249 {
9250 case bfd_reloc_undefined:
9251 if (!((*link_info->callbacks->undefined_symbol)
9252 (link_info, bfd_asymbol_name (*(*parent)->sym_ptr_ptr),
5cc7c785
L		 9253 input_bfd, input_section, (*parent)->address,
9254 true)))
252b5132
RH		 9255 goto error_return;
9256 break;
9257 case bfd_reloc_dangerous:
9258 BFD_ASSERT (error_message != (char *) NULL);
9259 if (!((*link_info->callbacks->reloc_dangerous)
9260 (link_info, error_message, input_bfd, input_section,
9261 (*parent)->address)))
9262 goto error_return;
9263 break;
9264 case bfd_reloc_overflow:
9265 if (!((*link_info->callbacks->reloc_overflow)
9266 (link_info, bfd_asymbol_name (*(*parent)->sym_ptr_ptr),
9267 (*parent)->howto->name, (*parent)->addend,
9268 input_bfd, input_section, (*parent)->address)))
9269 goto error_return;
9270 break;
9271 case bfd_reloc_outofrange:
9272 default:
9273 abort ();
9274 break;
9275 }
9276
9277 }
9278 }
9279 }
9280 if (reloc_vector != NULL)
9281 free (reloc_vector);
9282 return data;
9283
9284error_return:
9285 if (reloc_vector != NULL)
9286 free (reloc_vector);
9287 return NULL;
9288}
be3ccd9c 9289
252b5132
RH		 9290#define bfd_elf32_bfd_get_relocated_section_contents \
9291 elf32_mips_get_relocated_section_contents
9292\f
9293/* ECOFF swapping routines. These are used when dealing with the
9294 .mdebug section, which is in the ECOFF debugging format. */
be3ccd9c 9295static const struct ecoff_debug_swap mips_elf32_ecoff_debug_swap = {
252b5132
RH		 9296 /* Symbol table magic number. */
9297 magicSym,
9298 /* Alignment of debugging information. E.g., 4. */
9299 4,
9300 /* Sizes of external symbolic information. */
9301 sizeof (struct hdr_ext),
9302 sizeof (struct dnr_ext),
9303 sizeof (struct pdr_ext),
9304 sizeof (struct sym_ext),
9305 sizeof (struct opt_ext),
9306 sizeof (struct fdr_ext),
9307 sizeof (struct rfd_ext),
9308 sizeof (struct ext_ext),
9309 /* Functions to swap in external symbolic data. */
9310 ecoff_swap_hdr_in,
9311 ecoff_swap_dnr_in,
9312 ecoff_swap_pdr_in,
9313 ecoff_swap_sym_in,
9314 ecoff_swap_opt_in,
9315 ecoff_swap_fdr_in,
9316 ecoff_swap_rfd_in,
9317 ecoff_swap_ext_in,
9318 _bfd_ecoff_swap_tir_in,
9319 _bfd_ecoff_swap_rndx_in,
9320 /* Functions to swap out external symbolic data. */
9321 ecoff_swap_hdr_out,
9322 ecoff_swap_dnr_out,
9323 ecoff_swap_pdr_out,
9324 ecoff_swap_sym_out,
9325 ecoff_swap_opt_out,
9326 ecoff_swap_fdr_out,
9327 ecoff_swap_rfd_out,
9328 ecoff_swap_ext_out,
9329 _bfd_ecoff_swap_tir_out,
9330 _bfd_ecoff_swap_rndx_out,
9331 /* Function to read in symbolic data. */
9332 _bfd_mips_elf_read_ecoff_info
9333};
9334\f
9335#define TARGET_LITTLE_SYM bfd_elf32_littlemips_vec
9336#define TARGET_LITTLE_NAME "elf32-littlemips"
9337#define TARGET_BIG_SYM bfd_elf32_bigmips_vec
9338#define TARGET_BIG_NAME "elf32-bigmips"
9339#define ELF_ARCH bfd_arch_mips
9340#define ELF_MACHINE_CODE EM_MIPS
9341
9342/* The SVR4 MIPS ABI says that this should be 0x10000, but Irix 5 uses
9343 a value of 0x1000, and we are compatible. */
9344#define ELF_MAXPAGESIZE 0x1000
9345
9346#define elf_backend_collect true
9347#define elf_backend_type_change_ok true
9348#define elf_backend_can_gc_sections true
86dc0f79 9349#define elf_backend_sign_extend_vma true
3f830999 9350#define elf_info_to_howto mips_info_to_howto_rela
252b5132
RH		 9351#define elf_info_to_howto_rel mips_info_to_howto_rel
9352#define elf_backend_sym_is_global mips_elf_sym_is_global
103186c6
MM		 9353#define elf_backend_object_p _bfd_mips_elf_object_p
9354#define elf_backend_section_from_shdr _bfd_mips_elf_section_from_shdr
252b5132
RH		 9355#define elf_backend_fake_sections _bfd_mips_elf_fake_sections
9356#define elf_backend_section_from_bfd_section \
9357 _bfd_mips_elf_section_from_bfd_section
103186c6 9358#define elf_backend_section_processing _bfd_mips_elf_section_processing
252b5132
RH		 9359#define elf_backend_symbol_processing _bfd_mips_elf_symbol_processing
9360#define elf_backend_additional_program_headers \
103186c6
MM		 9361 _bfd_mips_elf_additional_program_headers
9362#define elf_backend_modify_segment_map _bfd_mips_elf_modify_segment_map
252b5132
RH		 9363#define elf_backend_final_write_processing \
9364 _bfd_mips_elf_final_write_processing
9365#define elf_backend_ecoff_debug_swap &mips_elf32_ecoff_debug_swap
103186c6
MM		 9366#define elf_backend_add_symbol_hook _bfd_mips_elf_add_symbol_hook
9367#define elf_backend_create_dynamic_sections \
9368 _bfd_mips_elf_create_dynamic_sections
9369#define elf_backend_check_relocs _bfd_mips_elf_check_relocs
9370#define elf_backend_adjust_dynamic_symbol \
9371 _bfd_mips_elf_adjust_dynamic_symbol
9372#define elf_backend_always_size_sections \
9373 _bfd_mips_elf_always_size_sections
9374#define elf_backend_size_dynamic_sections \
9375 _bfd_mips_elf_size_dynamic_sections
9376#define elf_backend_relocate_section _bfd_mips_elf_relocate_section
9377#define elf_backend_link_output_symbol_hook \
9378 _bfd_mips_elf_link_output_symbol_hook
9379#define elf_backend_finish_dynamic_symbol \
9380 _bfd_mips_elf_finish_dynamic_symbol
9381#define elf_backend_finish_dynamic_sections \
9382 _bfd_mips_elf_finish_dynamic_sections
9383#define elf_backend_gc_mark_hook _bfd_mips_elf_gc_mark_hook
9384#define elf_backend_gc_sweep_hook _bfd_mips_elf_gc_sweep_hook
9385
9386#define elf_backend_got_header_size (4*MIPS_RESERVED_GOTNO)
9387#define elf_backend_plt_header_size 0
252b5132 9388
8a20f077
UC		 9389#define elf_backend_copy_indirect_symbol \
9390 _bfd_mips_elf_copy_indirect_symbol
9391
b305ef96
UC		 9392#define elf_backend_hide_symbol _bfd_mips_elf_hide_symbol
9393
252b5132
RH		 9394#define bfd_elf32_bfd_is_local_label_name \
9395 mips_elf_is_local_label_name
9396#define bfd_elf32_find_nearest_line _bfd_mips_elf_find_nearest_line
9397#define bfd_elf32_set_section_contents _bfd_mips_elf_set_section_contents
9398#define bfd_elf32_bfd_link_hash_table_create \
103186c6
MM		 9399 _bfd_mips_elf_link_hash_table_create
9400#define bfd_elf32_bfd_final_link _bfd_mips_elf_final_link
252b5132
RH		 9401#define bfd_elf32_bfd_copy_private_bfd_data \
9402 _bfd_mips_elf_copy_private_bfd_data
9403#define bfd_elf32_bfd_merge_private_bfd_data \
9404 _bfd_mips_elf_merge_private_bfd_data
9405#define bfd_elf32_bfd_set_private_flags _bfd_mips_elf_set_private_flags
9406#define bfd_elf32_bfd_print_private_bfd_data \
9407 _bfd_mips_elf_print_private_bfd_data
252b5132 9408#include "elf32-target.h"
e364195d
UC		 9409
9410/* Support for traditional mips targets */
9411
9412#define INCLUDED_TARGET_FILE /* More a type of flag */
9413
9414#undef TARGET_LITTLE_SYM
9415#undef TARGET_LITTLE_NAME
9416#undef TARGET_BIG_SYM
9417#undef TARGET_BIG_NAME
9418
9419#define TARGET_LITTLE_SYM bfd_elf32_tradlittlemips_vec
9420#define TARGET_LITTLE_NAME "elf32-tradlittlemips"
9421#define TARGET_BIG_SYM bfd_elf32_tradbigmips_vec
9422#define TARGET_BIG_NAME "elf32-tradbigmips"
9423
9424/* Include the target file again for this target */
9425#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.566854 seconds and 4 git commands to generate.