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