1 /* ELF object file format
2 Copyright (C) 1992-2016 Free Software Foundation, Inc.
4 This file is part of GAS, the GNU Assembler.
6 GAS is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as
8 published by the Free Software Foundation; either version 3,
9 or (at your option) any later version.
11 GAS is distributed in the hope that it will be useful, but
12 WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
14 the GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GAS; see the file COPYING. If not, write to the Free
18 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
21 #define OBJ_HEADER "obj-elf.h"
23 #include "safe-ctype.h"
26 #include "struc-symbol.h"
27 #include "dwarf2dbg.h"
29 #ifndef ECOFF_DEBUGGING
30 #define ECOFF_DEBUGGING 0
32 #define NEED_ECOFF_DEBUG
35 #ifdef NEED_ECOFF_DEBUG
40 #include "elf/alpha.h"
56 #include "elf/x86-64.h"
64 #include "elf/nios2.h"
71 static void obj_elf_line (int);
72 static void obj_elf_size (int);
73 static void obj_elf_type (int);
74 static void obj_elf_ident (int);
75 static void obj_elf_weak (int);
76 static void obj_elf_local (int);
77 static void obj_elf_visibility (int);
78 static void obj_elf_symver (int);
79 static void obj_elf_subsection (int);
80 static void obj_elf_popsection (int);
81 static void obj_elf_gnu_attribute (int);
82 static void obj_elf_tls_common (int);
83 static void obj_elf_lcomm (int);
84 static void obj_elf_struct (int);
86 static const pseudo_typeS elf_pseudo_table
[] =
88 {"comm", obj_elf_common
, 0},
89 {"common", obj_elf_common
, 1},
90 {"ident", obj_elf_ident
, 0},
91 {"lcomm", obj_elf_lcomm
, 0},
92 {"local", obj_elf_local
, 0},
93 {"previous", obj_elf_previous
, 0},
94 {"section", obj_elf_section
, 0},
95 {"section.s", obj_elf_section
, 0},
96 {"sect", obj_elf_section
, 0},
97 {"sect.s", obj_elf_section
, 0},
98 {"pushsection", obj_elf_section
, 1},
99 {"popsection", obj_elf_popsection
, 0},
100 {"size", obj_elf_size
, 0},
101 {"type", obj_elf_type
, 0},
102 {"version", obj_elf_version
, 0},
103 {"weak", obj_elf_weak
, 0},
105 /* These define symbol visibility. */
106 {"internal", obj_elf_visibility
, STV_INTERNAL
},
107 {"hidden", obj_elf_visibility
, STV_HIDDEN
},
108 {"protected", obj_elf_visibility
, STV_PROTECTED
},
110 /* These are used for stabs-in-elf configurations. */
111 {"line", obj_elf_line
, 0},
113 /* This is a GNU extension to handle symbol versions. */
114 {"symver", obj_elf_symver
, 0},
116 /* A GNU extension to change subsection only. */
117 {"subsection", obj_elf_subsection
, 0},
119 /* These are GNU extensions to aid in garbage collecting C++ vtables. */
120 {"vtable_inherit", (void (*) (int)) &obj_elf_vtable_inherit
, 0},
121 {"vtable_entry", (void (*) (int)) &obj_elf_vtable_entry
, 0},
123 /* A GNU extension for object attributes. */
124 {"gnu_attribute", obj_elf_gnu_attribute
, 0},
126 /* These are used for dwarf. */
130 /* These are used for dwarf2. */
131 { "file", (void (*) (int)) dwarf2_directive_file
, 0 },
132 { "loc", dwarf2_directive_loc
, 0 },
133 { "loc_mark_labels", dwarf2_directive_loc_mark_labels
, 0 },
135 /* We need to trap the section changing calls to handle .previous. */
136 {"data", obj_elf_data
, 0},
137 {"offset", obj_elf_struct
, 0},
138 {"struct", obj_elf_struct
, 0},
139 {"text", obj_elf_text
, 0},
141 {"tls_common", obj_elf_tls_common
, 0},
147 static const pseudo_typeS ecoff_debug_pseudo_table
[] =
149 #ifdef NEED_ECOFF_DEBUG
150 /* COFF style debugging information for ECOFF. .ln is not used; .loc
152 { "def", ecoff_directive_def
, 0 },
153 { "dim", ecoff_directive_dim
, 0 },
154 { "endef", ecoff_directive_endef
, 0 },
155 { "file", ecoff_directive_file
, 0 },
156 { "scl", ecoff_directive_scl
, 0 },
157 { "tag", ecoff_directive_tag
, 0 },
158 { "val", ecoff_directive_val
, 0 },
160 /* COFF debugging requires pseudo-ops .size and .type, but ELF
161 already has meanings for those. We use .esize and .etype
162 instead. These are only generated by gcc anyhow. */
163 { "esize", ecoff_directive_size
, 0 },
164 { "etype", ecoff_directive_type
, 0 },
166 /* ECOFF specific debugging information. */
167 { "begin", ecoff_directive_begin
, 0 },
168 { "bend", ecoff_directive_bend
, 0 },
169 { "end", ecoff_directive_end
, 0 },
170 { "ent", ecoff_directive_ent
, 0 },
171 { "fmask", ecoff_directive_fmask
, 0 },
172 { "frame", ecoff_directive_frame
, 0 },
173 { "loc", ecoff_directive_loc
, 0 },
174 { "mask", ecoff_directive_mask
, 0 },
176 /* Other ECOFF directives. */
177 { "extern", ecoff_directive_extern
, 0 },
179 /* These are used on Irix. I don't know how to implement them. */
180 { "alias", s_ignore
, 0 },
181 { "bgnb", s_ignore
, 0 },
182 { "endb", s_ignore
, 0 },
183 { "lab", s_ignore
, 0 },
184 { "noalias", s_ignore
, 0 },
185 { "verstamp", s_ignore
, 0 },
186 { "vreg", s_ignore
, 0 },
189 {NULL
, NULL
, 0} /* end sentinel */
193 #include "aout/aout64.h"
195 /* This is called when the assembler starts. */
197 asection
*elf_com_section_ptr
;
204 /* Add symbols for the known sections to the symbol table. */
205 s
= bfd_get_section_by_name (stdoutput
, TEXT_SECTION_NAME
);
206 symbol_table_insert (section_symbol (s
));
207 s
= bfd_get_section_by_name (stdoutput
, DATA_SECTION_NAME
);
208 symbol_table_insert (section_symbol (s
));
209 s
= bfd_get_section_by_name (stdoutput
, BSS_SECTION_NAME
);
210 symbol_table_insert (section_symbol (s
));
211 elf_com_section_ptr
= bfd_com_section_ptr
;
215 elf_pop_insert (void)
217 pop_insert (elf_pseudo_table
);
219 pop_insert (ecoff_debug_pseudo_table
);
223 elf_s_get_size (symbolS
*sym
)
225 return S_GET_SIZE (sym
);
229 elf_s_set_size (symbolS
*sym
, bfd_vma sz
)
231 S_SET_SIZE (sym
, sz
);
235 elf_s_get_align (symbolS
*sym
)
237 return S_GET_ALIGN (sym
);
241 elf_s_set_align (symbolS
*sym
, bfd_vma align
)
243 S_SET_ALIGN (sym
, align
);
247 elf_s_get_other (symbolS
*sym
)
249 return elf_symbol (symbol_get_bfdsym (sym
))->internal_elf_sym
.st_other
;
253 elf_s_set_other (symbolS
*sym
, int other
)
255 S_SET_OTHER (sym
, other
);
259 elf_sec_sym_ok_for_reloc (asection
*sec
)
261 return obj_sec_sym_ok_for_reloc (sec
);
265 elf_file_symbol (const char *s
, int appfile
)
268 || symbol_rootP
== NULL
269 || symbol_rootP
->bsym
== NULL
270 || (symbol_rootP
->bsym
->flags
& BSF_FILE
) == 0)
275 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
276 symbol_set_frag (sym
, &zero_address_frag
);
278 name_length
= strlen (s
);
279 if (name_length
> strlen (S_GET_NAME (sym
)))
281 obstack_grow (¬es
, s
, name_length
+ 1);
282 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
285 strcpy ((char *) S_GET_NAME (sym
), s
);
287 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
289 if (symbol_rootP
!= sym
290 && (symbol_rootP
->bsym
== NULL
291 || !(symbol_rootP
->bsym
->flags
& BSF_FILE
)))
293 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
294 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
298 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
302 #ifdef NEED_ECOFF_DEBUG
303 ecoff_new_file (s
, appfile
);
307 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
308 Parse a possible alignment value. */
311 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
314 int is_local
= symbol_get_obj (symbolP
)->local
;
316 if (*input_line_pointer
== ',')
318 char *save
= input_line_pointer
;
320 input_line_pointer
++;
323 if (*input_line_pointer
== '"')
325 /* For sparc. Accept .common symbol, length, "bss" */
326 input_line_pointer
++;
327 /* Some use the dot, some don't. */
328 if (*input_line_pointer
== '.')
329 input_line_pointer
++;
330 /* Some say data, some say bss. */
331 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
332 input_line_pointer
+= 4;
333 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
334 input_line_pointer
+= 5;
337 char *p
= input_line_pointer
;
342 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
343 if (*input_line_pointer
++ == '"')
345 c
= *input_line_pointer
;
346 *input_line_pointer
= '\0';
347 as_bad (_("bad .common segment %s"), p
);
348 *input_line_pointer
= c
;
349 ignore_rest_of_line ();
352 /* ??? Don't ask me why these are always global. */
357 input_line_pointer
= save
;
358 align
= parse_align (is_local
);
359 if (align
== (addressT
) -1)
366 bss_alloc (symbolP
, size
, align
);
367 S_CLEAR_EXTERNAL (symbolP
);
371 S_SET_VALUE (symbolP
, size
);
372 S_SET_ALIGN (symbolP
, align
);
373 S_SET_EXTERNAL (symbolP
);
374 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
377 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
383 obj_elf_common (int is_common
)
385 if (flag_mri
&& is_common
)
388 s_comm_internal (0, elf_common_parse
);
392 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
394 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
397 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
401 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
403 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
406 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
410 get_sym_from_input_line_and_check (void)
416 c
= get_symbol_name (& name
);
417 sym
= symbol_find_or_make (name
);
418 *input_line_pointer
= c
;
419 SKIP_WHITESPACE_AFTER_NAME ();
421 /* There is no symbol name if input_line_pointer has not moved. */
422 if (name
== input_line_pointer
)
423 as_bad (_("Missing symbol name in directive"));
428 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
435 symbolP
= get_sym_from_input_line_and_check ();
436 c
= *input_line_pointer
;
437 S_CLEAR_EXTERNAL (symbolP
);
438 symbol_get_obj (symbolP
)->local
= 1;
441 input_line_pointer
++;
443 if (*input_line_pointer
== '\n')
448 demand_empty_rest_of_line ();
452 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
459 symbolP
= get_sym_from_input_line_and_check ();
460 c
= *input_line_pointer
;
461 S_SET_WEAK (symbolP
);
464 input_line_pointer
++;
466 if (*input_line_pointer
== '\n')
471 demand_empty_rest_of_line ();
475 obj_elf_visibility (int visibility
)
480 elf_symbol_type
*elfsym
;
484 symbolP
= get_sym_from_input_line_and_check ();
486 bfdsym
= symbol_get_bfdsym (symbolP
);
487 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
491 elfsym
->internal_elf_sym
.st_other
&= ~3;
492 elfsym
->internal_elf_sym
.st_other
|= visibility
;
494 c
= *input_line_pointer
;
497 input_line_pointer
++;
501 if (*input_line_pointer
== '\n')
507 demand_empty_rest_of_line ();
510 static segT previous_section
;
511 static int previous_subsection
;
515 struct section_stack
*next
;
517 int subseg
, prev_subseg
;
520 static struct section_stack
*section_stack
;
523 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
525 const char *gname
= (const char *) inf
;
526 const char *group_name
= elf_group_name (sec
);
528 return (group_name
== gname
529 || (group_name
!= NULL
531 && strcmp (group_name
, gname
) == 0));
534 /* Handle the .section pseudo-op. This code supports two different
537 The first is found on Solaris, and looks like
538 .section ".sec1",#alloc,#execinstr,#write
539 Here the names after '#' are the SHF_* flags to turn on for the
540 section. I'm not sure how it determines the SHT_* type (BFD
541 doesn't really give us control over the type, anyhow).
543 The second format is found on UnixWare, and probably most SVR4
544 machines, and looks like
545 .section .sec1,"a",@progbits
546 The quoted string may contain any combination of a, w, x, and
547 represents the SHF_* flags to turn on for the section. The string
548 beginning with '@' can be progbits or nobits. There should be
549 other possibilities, but I don't know what they are. In any case,
550 BFD doesn't really let us set the section type. */
553 obj_elf_change_section (const char *name
,
557 const char *group_name
,
564 const struct elf_backend_data
*bed
;
565 const struct bfd_elf_special_section
*ssect
;
567 #ifdef md_flush_pending_output
568 md_flush_pending_output ();
571 /* Switch to the section, creating it if necessary. */
574 struct section_stack
*elt
;
575 elt
= (struct section_stack
*) xmalloc (sizeof (struct section_stack
));
576 elt
->next
= section_stack
;
578 elt
->prev_seg
= previous_section
;
579 elt
->subseg
= now_subseg
;
580 elt
->prev_subseg
= previous_subsection
;
583 previous_section
= now_seg
;
584 previous_subsection
= now_subseg
;
586 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
587 (void *) group_name
);
594 sec
= subseg_force_new (name
, 0);
596 bed
= get_elf_backend_data (stdoutput
);
597 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
601 bfd_boolean override
= FALSE
;
603 if (type
== SHT_NULL
)
605 else if (type
!= ssect
->type
)
608 /* Some older versions of gcc will emit
610 .section .init_array,"aw",@progbits
612 for __attribute__ ((section (".init_array"))).
613 "@progbits" is incorrect. Also for x86-64 large bss
614 sections, some older versions of gcc will emit
616 .section .lbss,"aw",@progbits
618 "@progbits" is incorrect. */
620 && (bed
->s
->arch_size
!= 64
621 || !(ssect
->attr
& SHF_X86_64_LARGE
))
623 && ssect
->type
!= SHT_INIT_ARRAY
624 && ssect
->type
!= SHT_FINI_ARRAY
625 && ssect
->type
!= SHT_PREINIT_ARRAY
)
627 /* We allow to specify any type for a .note section. */
628 if (ssect
->type
!= SHT_NOTE
)
629 as_warn (_("setting incorrect section type for %s"),
634 as_warn (_("ignoring incorrect section type for %s"),
640 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
642 /* As a GNU extension, we permit a .note section to be
643 allocatable. If the linker sees an allocatable .note
644 section, it will create a PT_NOTE segment in the output
645 file. We also allow "x" for .note.GNU-stack. */
646 if (ssect
->type
== SHT_NOTE
647 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
649 /* Allow different SHF_MERGE and SHF_STRINGS if we have
650 something like .rodata.str. */
651 else if (ssect
->suffix_length
== -2
652 && name
[ssect
->prefix_length
] == '.'
656 & ~SHF_STRINGS
) == 0)
658 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
659 else if (attr
== SHF_ALLOC
660 && (strcmp (name
, ".interp") == 0
661 || strcmp (name
, ".strtab") == 0
662 || strcmp (name
, ".symtab") == 0))
664 /* .note.GNU-stack can have SHF_EXECINSTR. */
665 else if (attr
== SHF_EXECINSTR
666 && strcmp (name
, ".note.GNU-stack") == 0)
669 /* A section on Alpha may have SHF_ALPHA_GPREL. */
670 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
674 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
675 && (ssect
->type
== SHT_INIT_ARRAY
676 || ssect
->type
== SHT_FINI_ARRAY
677 || ssect
->type
== SHT_PREINIT_ARRAY
))
678 /* RX init/fini arrays can and should have the "awx" attributes set. */
682 else if (attr
== (SHF_EXECINSTR
| SHF_ARM_NOREAD
| SHF_ALLOC
))
683 /* ARM can have code section with SHF_ARM_NOREAD attribute. */
688 if (group_name
== NULL
)
689 as_warn (_("setting incorrect section attributes for %s"),
694 if (!override
&& old_sec
== NULL
)
698 /* Convert ELF type and flags to BFD flags. */
700 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
701 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
702 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
703 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
704 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
705 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
706 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
707 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
708 #ifdef md_elf_section_flags
709 flags
= md_elf_section_flags (flags
, attr
, type
);
713 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
719 if (type
== SHT_NULL
)
720 type
= bfd_elf_get_default_section_type (flags
);
721 elf_section_type (sec
) = type
;
722 elf_section_flags (sec
) = attr
;
724 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
725 if (type
== SHT_NOBITS
)
726 seg_info (sec
)->bss
= 1;
728 bfd_set_section_flags (stdoutput
, sec
, flags
);
729 if (flags
& SEC_MERGE
)
730 sec
->entsize
= entsize
;
731 elf_group_name (sec
) = group_name
;
733 /* Add a symbol for this section to the symbol table. */
734 secsym
= symbol_find (name
);
736 symbol_set_bfdsym (secsym
, sec
->symbol
);
738 symbol_table_insert (section_symbol (sec
));
743 && (unsigned) type
!= elf_section_type (old_sec
))
744 as_warn (_("ignoring changed section type for %s"), name
);
748 /* If section attributes are specified the second time we see a
749 particular section, then check that they are the same as we
750 saw the first time. */
751 if (((old_sec
->flags
^ flags
)
752 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
753 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
754 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
755 | SEC_THREAD_LOCAL
)))
756 as_warn (_("ignoring changed section attributes for %s"), name
);
757 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
758 as_warn (_("ignoring changed section entity size for %s"), name
);
762 #ifdef md_elf_section_change_hook
763 md_elf_section_change_hook ();
768 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
787 attr
|= SHF_EXECINSTR
;
806 if (*(str
- 1) == 'a')
809 if (len
> 1 && str
[1] == 's')
818 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
819 #ifdef md_elf_section_letter
820 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
821 if (md_attr
!= (bfd_vma
) -1)
825 as_fatal ("%s", bad_msg
);
836 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
838 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
840 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
842 if (len
== 4 && strncmp (str
, "note", 4) == 0)
844 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
845 return SHT_INIT_ARRAY
;
846 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
847 return SHT_FINI_ARRAY
;
848 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
849 return SHT_PREINIT_ARRAY
;
851 #ifdef md_elf_section_type
853 int md_type
= md_elf_section_type (str
, len
);
860 as_warn (_("unrecognized section type"));
865 obj_elf_section_word (char *str
, size_t len
, int *type
)
869 if (len
== 5 && strncmp (str
, "write", 5) == 0)
871 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
873 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
874 return SHF_EXECINSTR
;
875 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
877 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
880 #ifdef md_elf_section_word
882 bfd_vma md_attr
= md_elf_section_word (str
, len
);
888 ret
= obj_elf_section_type (str
, len
, FALSE
);
892 as_warn (_("unrecognized section attribute"));
897 /* Get name of section. */
899 obj_elf_section_name (void)
904 if (*input_line_pointer
== '"')
908 name
= demand_copy_C_string (&dummy
);
911 ignore_rest_of_line ();
917 char *end
= input_line_pointer
;
919 while (0 == strchr ("\n\t,; ", *end
))
921 if (end
== input_line_pointer
)
923 as_bad (_("missing name"));
924 ignore_rest_of_line ();
928 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
929 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
930 name
[end
- input_line_pointer
] = '\0';
932 while (flag_sectname_subst
)
934 char *subst
= strchr (name
, '%');
935 if (subst
&& subst
[1] == 'S')
937 int oldlen
= strlen (name
);
938 int substlen
= strlen (now_seg
->name
);
939 int newlen
= oldlen
- 2 + substlen
;
940 char *newname
= (char *) xmalloc (newlen
+ 1);
941 int headlen
= subst
- name
;
942 memcpy (newname
, name
, headlen
);
943 strcpy (newname
+ headlen
, now_seg
->name
);
944 strcat (newname
+ headlen
, subst
+ 2);
952 #ifdef tc_canonicalize_section_name
953 name
= tc_canonicalize_section_name (name
);
955 input_line_pointer
= end
;
962 obj_elf_section (int push
)
964 char *name
, *group_name
, *beg
;
969 subsegT new_subsection
= -1;
976 #ifdef md_flush_pending_output
977 md_flush_pending_output ();
980 previous_section
= now_seg
;
981 previous_subsection
= now_subseg
;
983 s_mri_sect (&mri_type
);
985 #ifdef md_elf_section_change_hook
986 md_elf_section_change_hook ();
991 #endif /* ! defined (TC_I370) */
993 name
= obj_elf_section_name ();
1002 if (*input_line_pointer
== ',')
1004 /* Skip the comma. */
1005 ++input_line_pointer
;
1008 if (push
&& ISDIGIT (*input_line_pointer
))
1010 /* .pushsection has an optional subsection. */
1011 new_subsection
= (subsegT
) get_absolute_expression ();
1015 /* Stop if we don't see a comma. */
1016 if (*input_line_pointer
!= ',')
1019 /* Skip the comma. */
1020 ++input_line_pointer
;
1024 if (*input_line_pointer
== '"')
1026 bfd_boolean is_clone
;
1028 beg
= demand_copy_C_string (&dummy
);
1031 ignore_rest_of_line ();
1034 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
1037 if (*input_line_pointer
== ',')
1040 char *save
= input_line_pointer
;
1042 ++input_line_pointer
;
1044 c
= *input_line_pointer
;
1047 beg
= demand_copy_C_string (&dummy
);
1050 ignore_rest_of_line ();
1053 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1055 else if (c
== '@' || c
== '%')
1057 ++input_line_pointer
;
1058 c
= get_symbol_name (& beg
);
1059 (void) restore_line_pointer (c
);
1060 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1063 input_line_pointer
= save
;
1067 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1069 ++input_line_pointer
;
1071 entsize
= get_absolute_expression ();
1075 as_warn (_("invalid merge entity size"));
1080 else if ((attr
& SHF_MERGE
) != 0)
1082 as_warn (_("entity size for SHF_MERGE not specified"));
1086 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1088 as_warn (_("? section flag ignored with G present"));
1091 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1093 ++input_line_pointer
;
1094 group_name
= obj_elf_section_name ();
1095 if (group_name
== NULL
)
1097 else if (*input_line_pointer
== ',')
1099 ++input_line_pointer
;
1101 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1103 input_line_pointer
+= 6;
1107 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1110 else if ((attr
& SHF_GROUP
) != 0)
1112 as_warn (_("group name for SHF_GROUP not specified"));
1118 const char *now_group
= elf_group_name (now_seg
);
1119 if (now_group
!= NULL
)
1121 group_name
= xstrdup (now_group
);
1122 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1133 if (*input_line_pointer
!= '#')
1135 as_bad (_("character following name is not '#'"));
1136 ignore_rest_of_line ();
1139 ++input_line_pointer
;
1140 c
= get_symbol_name (& beg
);
1141 (void) restore_line_pointer (c
);
1143 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1147 while (*input_line_pointer
++ == ',');
1148 --input_line_pointer
;
1153 demand_empty_rest_of_line ();
1155 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1157 if (push
&& new_subsection
!= -1)
1158 subseg_set (now_seg
, new_subsection
);
1161 /* Change to the .data section. */
1164 obj_elf_data (int i
)
1166 #ifdef md_flush_pending_output
1167 md_flush_pending_output ();
1170 previous_section
= now_seg
;
1171 previous_subsection
= now_subseg
;
1174 #ifdef md_elf_section_change_hook
1175 md_elf_section_change_hook ();
1179 /* Change to the .text section. */
1182 obj_elf_text (int i
)
1184 #ifdef md_flush_pending_output
1185 md_flush_pending_output ();
1188 previous_section
= now_seg
;
1189 previous_subsection
= now_subseg
;
1192 #ifdef md_elf_section_change_hook
1193 md_elf_section_change_hook ();
1197 /* Change to the *ABS* section. */
1200 obj_elf_struct (int i
)
1202 #ifdef md_flush_pending_output
1203 md_flush_pending_output ();
1206 previous_section
= now_seg
;
1207 previous_subsection
= now_subseg
;
1210 #ifdef md_elf_section_change_hook
1211 md_elf_section_change_hook ();
1216 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1220 #ifdef md_flush_pending_output
1221 md_flush_pending_output ();
1224 previous_section
= now_seg
;
1225 previous_subsection
= now_subseg
;
1227 temp
= get_absolute_expression ();
1228 subseg_set (now_seg
, (subsegT
) temp
);
1229 demand_empty_rest_of_line ();
1231 #ifdef md_elf_section_change_hook
1232 md_elf_section_change_hook ();
1236 /* This can be called from the processor backends if they change
1240 obj_elf_section_change_hook (void)
1242 previous_section
= now_seg
;
1243 previous_subsection
= now_subseg
;
1247 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1252 if (previous_section
== 0)
1254 as_warn (_(".previous without corresponding .section; ignored"));
1258 #ifdef md_flush_pending_output
1259 md_flush_pending_output ();
1262 new_section
= previous_section
;
1263 new_subsection
= previous_subsection
;
1264 previous_section
= now_seg
;
1265 previous_subsection
= now_subseg
;
1266 subseg_set (new_section
, new_subsection
);
1268 #ifdef md_elf_section_change_hook
1269 md_elf_section_change_hook ();
1274 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1276 struct section_stack
*top
= section_stack
;
1280 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1284 #ifdef md_flush_pending_output
1285 md_flush_pending_output ();
1288 section_stack
= top
->next
;
1289 previous_section
= top
->prev_seg
;
1290 previous_subsection
= top
->prev_subseg
;
1291 subseg_set (top
->seg
, top
->subseg
);
1294 #ifdef md_elf_section_change_hook
1295 md_elf_section_change_hook ();
1300 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1302 /* Assume delimiter is part of expression. BSD4.2 as fails with
1303 delightful bug, so we are not being incompatible here. */
1304 new_logical_line (NULL
, get_absolute_expression ());
1305 demand_empty_rest_of_line ();
1308 /* This handles the .symver pseudo-op, which is used to specify a
1309 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1310 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1311 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1312 with the same value as the symbol NAME. */
1315 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1322 sym
= get_sym_from_input_line_and_check ();
1324 if (*input_line_pointer
!= ',')
1326 as_bad (_("expected comma after name in .symver"));
1327 ignore_rest_of_line ();
1331 ++input_line_pointer
;
1334 /* Temporarily include '@' in symbol names. */
1335 old_lexat
= lex_type
[(unsigned char) '@'];
1336 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1337 c
= get_symbol_name (& name
);
1338 lex_type
[(unsigned char) '@'] = old_lexat
;
1340 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1342 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1344 (void) restore_line_pointer (c
);
1346 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1347 ELF_VER_CHR
) == NULL
)
1349 as_bad (_("missing version name in `%s' for symbol `%s'"),
1350 symbol_get_obj (sym
)->versioned_name
,
1352 ignore_rest_of_line ();
1358 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1360 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1361 name
, symbol_get_obj (sym
)->versioned_name
,
1363 ignore_rest_of_line ();
1367 (void) restore_line_pointer (c
);
1370 demand_empty_rest_of_line ();
1373 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1374 to the linker the hierarchy in which a particular table resides. The
1375 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1378 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1380 char *cname
, *pname
;
1381 symbolS
*csym
, *psym
;
1384 if (*input_line_pointer
== '#')
1385 ++input_line_pointer
;
1387 c
= get_symbol_name (& cname
);
1388 csym
= symbol_find (cname
);
1390 /* GCFIXME: should check that we don't have two .vtable_inherits for
1391 the same child symbol. Also, we can currently only do this if the
1392 child symbol is already exists and is placed in a fragment. */
1394 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1396 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1401 *input_line_pointer
= c
;
1403 SKIP_WHITESPACE_AFTER_NAME ();
1404 if (*input_line_pointer
!= ',')
1406 as_bad (_("expected comma after name in .vtable_inherit"));
1407 ignore_rest_of_line ();
1411 ++input_line_pointer
;
1414 if (*input_line_pointer
== '#')
1415 ++input_line_pointer
;
1417 if (input_line_pointer
[0] == '0'
1418 && (input_line_pointer
[1] == '\0'
1419 || ISSPACE (input_line_pointer
[1])))
1421 psym
= section_symbol (absolute_section
);
1422 ++input_line_pointer
;
1426 c
= get_symbol_name (& pname
);
1427 psym
= symbol_find_or_make (pname
);
1428 restore_line_pointer (c
);
1431 demand_empty_rest_of_line ();
1436 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1437 return fix_new (symbol_get_frag (csym
),
1438 symbol_get_value_expression (csym
)->X_add_number
,
1439 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1442 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1443 to the linker that a vtable slot was used. The syntax is
1444 ".vtable_entry tablename, offset". */
1447 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1452 if (*input_line_pointer
== '#')
1453 ++input_line_pointer
;
1455 sym
= get_sym_from_input_line_and_check ();
1456 if (*input_line_pointer
!= ',')
1458 as_bad (_("expected comma after name in .vtable_entry"));
1459 ignore_rest_of_line ();
1463 ++input_line_pointer
;
1464 if (*input_line_pointer
== '#')
1465 ++input_line_pointer
;
1467 offset
= get_absolute_expression ();
1469 demand_empty_rest_of_line ();
1471 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1472 BFD_RELOC_VTABLE_ENTRY
);
1475 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1478 skip_past_char (char ** str
, char c
)
1488 #define skip_past_comma(str) skip_past_char (str, ',')
1490 /* A list of attributes that have been explicitly set by the assembly code.
1491 VENDOR is the vendor id, BASE is the tag shifted right by the number
1492 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1493 struct recorded_attribute_info
{
1494 struct recorded_attribute_info
*next
;
1499 static struct recorded_attribute_info
*recorded_attributes
;
1501 /* Record that we have seen an explicit specification of attribute TAG
1502 for vendor VENDOR. */
1505 record_attribute (int vendor
, unsigned int tag
)
1509 struct recorded_attribute_info
*rai
;
1511 base
= tag
/ (8 * sizeof (rai
->mask
));
1512 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1513 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1514 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1520 rai
= XNEW (struct recorded_attribute_info
);
1521 rai
->next
= recorded_attributes
;
1522 rai
->vendor
= vendor
;
1525 recorded_attributes
= rai
;
1528 /* Return true if we have seen an explicit specification of attribute TAG
1529 for vendor VENDOR. */
1532 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1536 struct recorded_attribute_info
*rai
;
1538 base
= tag
/ (8 * sizeof (rai
->mask
));
1539 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1540 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1541 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1542 return (rai
->mask
& mask
) != 0;
1546 /* Parse an attribute directive for VENDOR.
1547 Returns the attribute number read, or zero on error. */
1550 obj_elf_vendor_attribute (int vendor
)
1558 /* Read the first number or name. */
1559 skip_whitespace (input_line_pointer
);
1560 s
= input_line_pointer
;
1561 if (ISDIGIT (*input_line_pointer
))
1564 if (exp
.X_op
!= O_constant
)
1566 tag
= exp
.X_add_number
;
1572 /* A name may contain '_', but no other punctuation. */
1573 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1574 ++input_line_pointer
)
1579 name
= (char *) alloca (i
+ 1);
1580 memcpy (name
, s
, i
);
1583 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1584 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1587 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1590 as_bad (_("Attribute name not recognised: %s"), name
);
1591 ignore_rest_of_line ();
1596 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1598 if (skip_past_comma (&input_line_pointer
) == -1)
1603 if (exp
.X_op
!= O_constant
)
1605 as_bad (_("expected numeric constant"));
1606 ignore_rest_of_line ();
1609 i
= exp
.X_add_number
;
1612 && skip_past_comma (&input_line_pointer
) == -1)
1614 as_bad (_("expected comma"));
1615 ignore_rest_of_line ();
1622 skip_whitespace (input_line_pointer
);
1623 if (*input_line_pointer
!= '"')
1625 s
= demand_copy_C_string (&len
);
1628 record_attribute (vendor
, tag
);
1632 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1635 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1638 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1644 demand_empty_rest_of_line ();
1647 as_bad (_("bad string constant"));
1648 ignore_rest_of_line ();
1651 as_bad (_("expected <tag> , <value>"));
1652 ignore_rest_of_line ();
1656 /* Parse a .gnu_attribute directive. */
1659 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1661 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1665 elf_obj_read_begin_hook (void)
1667 #ifdef NEED_ECOFF_DEBUG
1668 if (ECOFF_DEBUGGING
)
1669 ecoff_read_begin_hook ();
1674 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1676 struct elf_obj_sy
*sy_obj
;
1678 sy_obj
= symbol_get_obj (symbolP
);
1679 sy_obj
->size
= NULL
;
1680 sy_obj
->versioned_name
= NULL
;
1682 #ifdef NEED_ECOFF_DEBUG
1683 if (ECOFF_DEBUGGING
)
1684 ecoff_symbol_new_hook (symbolP
);
1688 /* When setting one symbol equal to another, by default we probably
1689 want them to have the same "size", whatever it means in the current
1693 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1695 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1696 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1699 if (destelf
->size
== NULL
)
1700 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1701 *destelf
->size
= *srcelf
->size
;
1705 if (destelf
->size
!= NULL
)
1706 free (destelf
->size
);
1707 destelf
->size
= NULL
;
1709 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1710 /* Don't copy visibility. */
1711 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1712 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1716 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1721 asection
*seg
= now_seg
;
1722 subsegT subseg
= now_subseg
;
1723 Elf_Internal_Note i_note
;
1724 Elf_External_Note e_note
;
1725 asection
*note_secp
= NULL
;
1728 if (*input_line_pointer
== '\"')
1732 ++input_line_pointer
; /* -> 1st char of string. */
1733 name
= input_line_pointer
;
1735 while (is_a_char (c
= next_char_of_string ()))
1737 c
= *input_line_pointer
;
1738 *input_line_pointer
= '\0';
1739 *(input_line_pointer
- 1) = '\0';
1740 *input_line_pointer
= c
;
1742 /* Create the .note section. */
1743 note_secp
= subseg_new (".note", 0);
1744 bfd_set_section_flags (stdoutput
,
1746 SEC_HAS_CONTENTS
| SEC_READONLY
);
1748 /* Process the version string. */
1749 len
= strlen (name
) + 1;
1751 /* PR 3456: Although the name field is padded out to an 4-byte
1752 boundary, the namesz field should not be adjusted. */
1753 i_note
.namesz
= len
;
1754 i_note
.descsz
= 0; /* No description. */
1755 i_note
.type
= NT_VERSION
;
1756 p
= frag_more (sizeof (e_note
.namesz
));
1757 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1758 p
= frag_more (sizeof (e_note
.descsz
));
1759 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1760 p
= frag_more (sizeof (e_note
.type
));
1761 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1762 p
= frag_more (len
);
1763 memcpy (p
, name
, len
);
1765 frag_align (2, 0, 0);
1767 subseg_set (seg
, subseg
);
1770 as_bad (_("expected quoted string"));
1772 demand_empty_rest_of_line ();
1776 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1779 char c
= get_symbol_name (&name
);
1784 p
= input_line_pointer
;
1786 SKIP_WHITESPACE_AFTER_NAME ();
1787 if (*input_line_pointer
!= ',')
1790 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1792 ignore_rest_of_line ();
1795 input_line_pointer
++;
1797 if (exp
.X_op
== O_absent
)
1799 as_bad (_("missing expression in .size directive"));
1800 exp
.X_op
= O_constant
;
1801 exp
.X_add_number
= 0;
1804 sym
= symbol_find_or_make (name
);
1806 if (exp
.X_op
== O_constant
)
1808 S_SET_SIZE (sym
, exp
.X_add_number
);
1809 if (symbol_get_obj (sym
)->size
)
1811 xfree (symbol_get_obj (sym
)->size
);
1812 symbol_get_obj (sym
)->size
= NULL
;
1817 symbol_get_obj (sym
)->size
=
1818 (expressionS
*) xmalloc (sizeof (expressionS
));
1819 *symbol_get_obj (sym
)->size
= exp
;
1821 demand_empty_rest_of_line ();
1824 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1825 There are six syntaxes:
1827 The first (used on Solaris) is
1829 The second (used on UnixWare) is
1831 The third (reportedly to be used on Irix 6.0) is
1833 The fourth (used on NetBSD/Arm and Linux/ARM) is
1835 The fifth (used on SVR4/860) is
1836 .type SYM,"function"
1837 The sixth (emitted by recent SunPRO under Solaris) is
1839 where the integer is the STT_* value.
1843 obj_elf_type_name (char *cp
)
1847 p
= input_line_pointer
;
1848 if (*input_line_pointer
>= '0'
1849 && *input_line_pointer
<= '9')
1851 while (*input_line_pointer
>= '0'
1852 && *input_line_pointer
<= '9')
1853 ++input_line_pointer
;
1854 *cp
= *input_line_pointer
;
1855 *input_line_pointer
= '\0';
1858 *cp
= get_symbol_name (&p
);
1864 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1868 const char *type_name
;
1870 elf_symbol_type
*elfsym
;
1872 sym
= get_sym_from_input_line_and_check ();
1873 c
= *input_line_pointer
;
1874 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1876 if (*input_line_pointer
== ',')
1877 ++input_line_pointer
;
1880 if ( *input_line_pointer
== '#'
1881 || *input_line_pointer
== '@'
1882 || *input_line_pointer
== '"'
1883 || *input_line_pointer
== '%')
1884 ++input_line_pointer
;
1886 type_name
= obj_elf_type_name (& c
);
1889 if (strcmp (type_name
, "function") == 0
1890 || strcmp (type_name
, "2") == 0
1891 || strcmp (type_name
, "STT_FUNC") == 0)
1892 type
= BSF_FUNCTION
;
1893 else if (strcmp (type_name
, "object") == 0
1894 || strcmp (type_name
, "1") == 0
1895 || strcmp (type_name
, "STT_OBJECT") == 0)
1897 else if (strcmp (type_name
, "tls_object") == 0
1898 || strcmp (type_name
, "6") == 0
1899 || strcmp (type_name
, "STT_TLS") == 0)
1900 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1901 else if (strcmp (type_name
, "notype") == 0
1902 || strcmp (type_name
, "0") == 0
1903 || strcmp (type_name
, "STT_NOTYPE") == 0)
1905 else if (strcmp (type_name
, "common") == 0
1906 || strcmp (type_name
, "5") == 0
1907 || strcmp (type_name
, "STT_COMMON") == 0)
1911 if (! S_IS_COMMON (sym
))
1913 if (S_IS_VOLATILE (sym
))
1915 sym
= symbol_clone (sym
, 1);
1916 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1917 S_SET_VALUE (sym
, 0);
1918 S_SET_EXTERNAL (sym
);
1919 symbol_set_frag (sym
, &zero_address_frag
);
1920 S_CLEAR_VOLATILE (sym
);
1922 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1923 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1926 /* FIXME: Is it safe to just change the section ? */
1927 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1928 S_SET_VALUE (sym
, 0);
1929 S_SET_EXTERNAL (sym
);
1933 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1934 || strcmp (type_name
, "10") == 0
1935 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1937 const struct elf_backend_data
*bed
;
1939 bed
= get_elf_backend_data (stdoutput
);
1940 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1941 || bed
->elf_osabi
== ELFOSABI_FREEBSD
1942 /* GNU is still using the default value 0. */
1943 || bed
->elf_osabi
== ELFOSABI_NONE
))
1944 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
1946 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1948 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1950 struct elf_backend_data
*bed
;
1952 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1953 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1954 /* GNU is still using the default value 0. */
1955 || bed
->elf_osabi
== ELFOSABI_NONE
))
1956 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1958 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1959 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
1960 bed
->elf_osabi
= ELFOSABI_GNU
;
1962 #ifdef md_elf_symbol_type
1963 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1967 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1969 *input_line_pointer
= c
;
1971 if (*input_line_pointer
== '"')
1972 ++input_line_pointer
;
1974 elfsym
->symbol
.flags
|= type
;
1976 demand_empty_rest_of_line ();
1980 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1982 static segT comment_section
;
1983 segT old_section
= now_seg
;
1984 int old_subsection
= now_subseg
;
1986 #ifdef md_flush_pending_output
1987 md_flush_pending_output ();
1990 if (!comment_section
)
1993 comment_section
= subseg_new (".comment", 0);
1994 bfd_set_section_flags (stdoutput
, comment_section
,
1995 SEC_READONLY
| SEC_HAS_CONTENTS
1996 | SEC_MERGE
| SEC_STRINGS
);
1997 comment_section
->entsize
= 1;
1998 #ifdef md_elf_section_change_hook
1999 md_elf_section_change_hook ();
2005 subseg_set (comment_section
, 0);
2007 subseg_set (old_section
, old_subsection
);
2010 #ifdef INIT_STAB_SECTION
2012 /* The first entry in a .stabs section is special. */
2015 obj_elf_init_stab_section (segT seg
)
2020 unsigned int stroff
;
2022 /* Force the section to align to a longword boundary. Without this,
2023 UnixWare ar crashes. */
2024 bfd_set_section_alignment (stdoutput
, seg
, 2);
2026 /* Make space for this first symbol. */
2030 as_where (&file
, NULL
);
2031 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
2032 strcpy (stabstr_name
, segment_name (seg
));
2033 strcat (stabstr_name
, "str");
2034 stroff
= get_stab_string_offset (file
, stabstr_name
);
2035 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2036 md_number_to_chars (p
, stroff
, 4);
2037 seg_info (seg
)->stabu
.p
= p
;
2042 /* Fill in the counts in the first entry in a .stabs section. */
2045 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2052 if (strncmp (".stab", sec
->name
, 5))
2054 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2057 name
= (char *) alloca (strlen (sec
->name
) + 4);
2058 strcpy (name
, sec
->name
);
2059 strcat (name
, "str");
2060 strsec
= bfd_get_section_by_name (abfd
, name
);
2062 strsz
= bfd_section_size (abfd
, strsec
);
2065 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
2067 p
= seg_info (sec
)->stabu
.p
;
2068 gas_assert (p
!= 0);
2070 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2071 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2074 #ifdef NEED_ECOFF_DEBUG
2076 /* This function is called by the ECOFF code. It is supposed to
2077 record the external symbol information so that the backend can
2078 write it out correctly. The ELF backend doesn't actually handle
2079 this at the moment, so we do it ourselves. We save the information
2082 #ifdef OBJ_MAYBE_ELF
2086 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2088 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2091 /* This function is called by bfd_ecoff_debug_externals. It is
2092 supposed to *EXT to the external symbol information, and return
2093 whether the symbol should be used at all. */
2096 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2098 if (sym
->udata
.p
== NULL
)
2100 *ext
= *(EXTR
*) sym
->udata
.p
;
2104 /* This function is called by bfd_ecoff_debug_externals. It has
2105 nothing to do for ELF. */
2108 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2109 bfd_size_type indx ATTRIBUTE_UNUSED
)
2113 #endif /* NEED_ECOFF_DEBUG */
2116 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2118 struct elf_obj_sy
*sy_obj
;
2121 #ifdef NEED_ECOFF_DEBUG
2122 if (ECOFF_DEBUGGING
)
2123 ecoff_frob_symbol (symp
);
2126 sy_obj
= symbol_get_obj (symp
);
2128 size
= sy_obj
->size
;
2131 if (resolve_expression (size
)
2132 && size
->X_op
== O_constant
)
2133 S_SET_SIZE (symp
, size
->X_add_number
);
2136 if (flag_size_check
== size_check_error
)
2137 as_bad (_(".size expression for %s "
2138 "does not evaluate to a constant"), S_GET_NAME (symp
));
2140 as_warn (_(".size expression for %s "
2141 "does not evaluate to a constant"), S_GET_NAME (symp
));
2143 free (sy_obj
->size
);
2144 sy_obj
->size
= NULL
;
2147 if (sy_obj
->versioned_name
!= NULL
)
2151 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
2153 /* We will have already reported an error about a missing version. */
2156 /* This symbol was given a new name with the .symver directive.
2158 If this is an external reference, just rename the symbol to
2159 include the version string. This will make the relocs be
2160 against the correct versioned symbol.
2162 If this is a definition, add an alias. FIXME: Using an alias
2163 will permit the debugging information to refer to the right
2164 symbol. However, it's not clear whether it is the best
2167 else if (! S_IS_DEFINED (symp
))
2169 /* Verify that the name isn't using the @@ syntax--this is
2170 reserved for definitions of the default version to link
2172 if (p
[1] == ELF_VER_CHR
)
2174 as_bad (_("invalid attempt to declare external version name"
2175 " as default in symbol `%s'"),
2176 sy_obj
->versioned_name
);
2179 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2183 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2187 /* The @@@ syntax is a special case. It renames the
2188 symbol name to versioned_name with one `@' removed. */
2189 l
= strlen (&p
[3]) + 1;
2190 memmove (&p
[2], &p
[3], l
);
2191 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2197 /* FIXME: Creating a new symbol here is risky. We're
2198 in the final loop over the symbol table. We can
2199 get away with it only because the symbol goes to
2200 the end of the list, where the loop will still see
2201 it. It would probably be better to do this in
2202 obj_frob_file_before_adjust. */
2204 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
2206 /* Now we act as though we saw symp2 = sym. */
2208 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2210 /* Subtracting out the frag address here is a hack
2211 because we are in the middle of the final loop. */
2214 - symbol_get_frag (symp
)->fr_address
));
2216 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2218 /* This will copy over the size information. */
2219 copy_symbol_attributes (symp2
, symp
);
2221 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2223 if (S_IS_WEAK (symp
))
2226 if (S_IS_EXTERNAL (symp
))
2227 S_SET_EXTERNAL (symp2
);
2232 /* Double check weak symbols. */
2233 if (S_IS_WEAK (symp
))
2235 if (S_IS_COMMON (symp
))
2236 as_bad (_("symbol `%s' can not be both weak and common"),
2241 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2242 any undefined non-function symbol to STT_OBJECT. We try to be
2243 compatible, since newer Irix 5 and 6 linkers care. However, we
2244 only set undefined symbols to be STT_OBJECT if we are on Irix,
2245 because that is the only time gcc will generate the necessary
2246 .global directives to mark functions. */
2248 if (S_IS_COMMON (symp
))
2249 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2251 if (strstr (TARGET_OS
, "irix") != NULL
2252 && ! S_IS_DEFINED (symp
)
2253 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2254 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2260 asection
**head
; /* Section lists. */
2261 unsigned int *elt_count
; /* Number of sections in each list. */
2262 unsigned int num_group
; /* Number of lists. */
2263 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2266 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2267 add it to a list of sections belonging to the group. INF is a
2268 pointer to a struct group_list, which is where we store the head of
2272 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2274 struct group_list
*list
= (struct group_list
*) inf
;
2275 const char *group_name
= elf_group_name (sec
);
2277 unsigned int *elem_idx
;
2278 unsigned int *idx_ptr
;
2280 if (group_name
== NULL
)
2283 /* If this group already has a list, add the section to the head of
2285 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2286 if (elem_idx
!= NULL
)
2288 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2289 list
->head
[*elem_idx
] = sec
;
2290 list
->elt_count
[*elem_idx
] += 1;
2294 /* New group. Make the arrays bigger in chunks to minimize calls to
2296 i
= list
->num_group
;
2299 unsigned int newsize
= i
+ 128;
2300 list
->head
= (asection
**) xrealloc (list
->head
,
2301 newsize
* sizeof (*list
->head
));
2302 list
->elt_count
= (unsigned int *)
2303 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2305 list
->head
[i
] = sec
;
2306 list
->elt_count
[i
] = 1;
2307 list
->num_group
+= 1;
2309 /* Add index to hash. */
2310 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2312 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2315 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2317 free ((unsigned int *) val
);
2321 elf_adjust_symtab (void)
2323 struct group_list list
;
2326 /* Go find section groups. */
2329 list
.elt_count
= NULL
;
2330 list
.indexes
= hash_new ();
2331 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2333 /* Make the SHT_GROUP sections that describe each section group. We
2334 can't set up the section contents here yet, because elf section
2335 indices have yet to be calculated. elf.c:set_group_contents does
2336 the rest of the work. */
2337 for (i
= 0; i
< list
.num_group
; i
++)
2339 const char *group_name
= elf_group_name (list
.head
[i
]);
2340 const char *sec_name
;
2346 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2347 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2348 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2350 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2351 if (s
!= list
.head
[i
])
2353 as_warn (_("assuming all members of group `%s' are COMDAT"),
2359 sec_name
= ".group";
2360 s
= subseg_force_new (sec_name
, 0);
2362 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2363 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2365 as_fatal (_("can't create group: %s"),
2366 bfd_errmsg (bfd_get_error ()));
2368 elf_section_type (s
) = SHT_GROUP
;
2370 /* Pass a pointer to the first section in this group. */
2371 elf_next_in_group (s
) = list
.head
[i
];
2372 /* Make sure that the signature symbol for the group has the
2373 name of the group. */
2374 sy
= symbol_find_exact (group_name
);
2376 || (sy
!= symbol_lastP
2377 && (sy
->sy_next
== NULL
2378 || sy
->sy_next
->sy_previous
!= sy
)))
2380 /* Create the symbol now. */
2381 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2383 /* Before Solaris 11 build 154, Sun ld rejects local group
2384 signature symbols, so make them weak hidden instead. */
2385 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2386 S_SET_OTHER (sy
, STV_HIDDEN
);
2388 symbol_get_obj (sy
)->local
= 1;
2390 symbol_table_insert (sy
);
2392 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2394 size
= 4 * (list
.elt_count
[i
] + 1);
2395 bfd_set_section_size (stdoutput
, s
, size
);
2396 s
->contents
= (unsigned char *) frag_more (size
);
2397 frag_now
->fr_fix
= frag_now_fix_octets ();
2398 frag_wane (frag_now
);
2402 hash_traverse (list
.indexes
, free_section_idx
);
2403 hash_die (list
.indexes
);
2407 elf_frob_file (void)
2409 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2411 #ifdef elf_tc_final_processing
2412 elf_tc_final_processing ();
2416 /* It removes any unneeded versioned symbols from the symbol table. */
2419 elf_frob_file_before_adjust (void)
2425 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2426 if (!S_IS_DEFINED (symp
))
2428 if (symbol_get_obj (symp
)->versioned_name
)
2432 /* The @@@ syntax is a special case. If the symbol is
2433 not defined, 2 `@'s will be removed from the
2436 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2438 if (p
!= NULL
&& p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2440 size_t l
= strlen (&p
[3]) + 1;
2441 memmove (&p
[1], &p
[3], l
);
2443 if (symbol_used_p (symp
) == 0
2444 && symbol_used_in_reloc_p (symp
) == 0)
2445 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2448 /* If there was .weak foo, but foo was neither defined nor
2449 used anywhere, remove it. */
2451 else if (S_IS_WEAK (symp
)
2452 && symbol_used_p (symp
) == 0
2453 && symbol_used_in_reloc_p (symp
) == 0)
2454 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2459 /* It is required that we let write_relocs have the opportunity to
2460 optimize away fixups before output has begun, since it is possible
2461 to eliminate all fixups for a section and thus we never should
2462 have generated the relocation section. */
2465 elf_frob_file_after_relocs (void)
2467 #ifdef NEED_ECOFF_DEBUG
2468 if (ECOFF_DEBUGGING
)
2469 /* Generate the ECOFF debugging information. */
2471 const struct ecoff_debug_swap
*debug_swap
;
2472 struct ecoff_debug_info debug
;
2477 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2478 know (debug_swap
!= NULL
);
2479 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2481 /* Set up the pointers in debug. */
2482 #define SET(ptr, offset, type) \
2483 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2485 SET (line
, cbLineOffset
, unsigned char *);
2486 SET (external_dnr
, cbDnOffset
, void *);
2487 SET (external_pdr
, cbPdOffset
, void *);
2488 SET (external_sym
, cbSymOffset
, void *);
2489 SET (external_opt
, cbOptOffset
, void *);
2490 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2491 SET (ss
, cbSsOffset
, char *);
2492 SET (external_fdr
, cbFdOffset
, void *);
2493 SET (external_rfd
, cbRfdOffset
, void *);
2494 /* ssext and external_ext are set up just below. */
2498 /* Set up the external symbols. */
2499 debug
.ssext
= debug
.ssext_end
= NULL
;
2500 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2501 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2502 elf_get_extr
, elf_set_index
))
2503 as_fatal (_("failed to set up debugging information: %s"),
2504 bfd_errmsg (bfd_get_error ()));
2506 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2507 gas_assert (sec
!= NULL
);
2509 know (!stdoutput
->output_has_begun
);
2511 /* We set the size of the section, call bfd_set_section_contents
2512 to force the ELF backend to allocate a file position, and then
2513 write out the data. FIXME: Is this really the best way to do
2515 bfd_set_section_size
2516 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2518 /* Pass BUF to bfd_set_section_contents because this will
2519 eventually become a call to fwrite, and ISO C prohibits
2520 passing a NULL pointer to a stdio function even if the
2521 pointer will not be used. */
2522 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2523 as_fatal (_("can't start writing .mdebug section: %s"),
2524 bfd_errmsg (bfd_get_error ()));
2526 know (stdoutput
->output_has_begun
);
2527 know (sec
->filepos
!= 0);
2529 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2531 as_fatal (_("could not write .mdebug section: %s"),
2532 bfd_errmsg (bfd_get_error ()));
2534 #endif /* NEED_ECOFF_DEBUG */
2539 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2540 SCO specific identifier in the .notes section to satisfy the SCO
2543 This looks more complicated than it really is. As opposed to the
2544 "obvious" solution, this should handle the cross dev cases
2545 correctly. (i.e, hosting on a 64 bit big endian processor, but
2546 generating SCO Elf code) Efficiency isn't a concern, as there
2547 should be exactly one of these sections per object module.
2549 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2552 int_32 namesz = 4 ; Name size
2553 int_32 descsz = 12 ; Descriptive information
2555 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2556 int_32 version = (major ver # << 16) | version of tools ;
2557 int_32 source = (tool_id << 16 ) | 1 ;
2558 int_32 info = 0 ; These are set by the SCO tools, but we
2559 don't know enough about the source
2560 environment to set them. SCO ld currently
2561 ignores them, and recommends we set them
2564 #define SCO_MAJOR_VERSION 0x1
2565 #define SCO_MINOR_VERSION 0x1
2575 asection
*seg
= now_seg
;
2576 subsegT subseg
= now_subseg
;
2577 Elf_Internal_Note i_note
;
2578 Elf_External_Note e_note
;
2579 asection
*note_secp
= NULL
;
2582 /* create the .note section */
2584 note_secp
= subseg_new (".note", 0);
2585 bfd_set_section_flags (stdoutput
,
2587 SEC_HAS_CONTENTS
| SEC_READONLY
);
2589 /* process the version string */
2592 i_note
.descsz
= 12; /* 12 descriptive bytes */
2593 i_note
.type
= NT_VERSION
; /* Contains a version string */
2595 p
= frag_more (sizeof (i_note
.namesz
));
2596 md_number_to_chars (p
, i_note
.namesz
, 4);
2598 p
= frag_more (sizeof (i_note
.descsz
));
2599 md_number_to_chars (p
, i_note
.descsz
, 4);
2601 p
= frag_more (sizeof (i_note
.type
));
2602 md_number_to_chars (p
, i_note
.type
, 4);
2607 /* Note: this is the version number of the ELF we're representing */
2609 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2611 /* Here, we pick a magic number for ourselves (yes, I "registered"
2612 it with SCO. The bottom bit shows that we are compat with the
2615 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2617 /* If we knew (or cared) what the source language options were, we'd
2618 fill them in here. SCO has given us permission to ignore these
2619 and just set them to zero. */
2621 md_number_to_chars (p
, 0x0000, 4);
2623 frag_align (2, 0, 0);
2625 /* We probably can't restore the current segment, for there likely
2628 subseg_set (seg
, subseg
);
2632 #endif /* SCO_ELF */
2635 elf_generate_asm_lineno (void)
2637 #ifdef NEED_ECOFF_DEBUG
2638 if (ECOFF_DEBUGGING
)
2639 ecoff_generate_asm_lineno ();
2644 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2645 int what ATTRIBUTE_UNUSED
,
2646 const char *string ATTRIBUTE_UNUSED
,
2647 int type ATTRIBUTE_UNUSED
,
2648 int other ATTRIBUTE_UNUSED
,
2649 int desc ATTRIBUTE_UNUSED
)
2651 #ifdef NEED_ECOFF_DEBUG
2652 if (ECOFF_DEBUGGING
)
2653 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2658 elf_separate_stab_sections (void)
2660 #ifdef NEED_ECOFF_DEBUG
2661 return (!ECOFF_DEBUGGING
);
2668 elf_init_stab_section (segT seg
)
2670 #ifdef NEED_ECOFF_DEBUG
2671 if (!ECOFF_DEBUGGING
)
2673 obj_elf_init_stab_section (seg
);
2676 const struct format_ops elf_format_ops
=
2678 bfd_target_elf_flavour
,
2679 0, /* dfl_leading_underscore */
2680 1, /* emit_section_symbols */
2685 elf_frob_file_before_adjust
,
2686 0, /* obj_frob_file_before_fix */
2687 elf_frob_file_after_relocs
,
2688 elf_s_get_size
, elf_s_set_size
,
2689 elf_s_get_align
, elf_s_set_align
,
2696 elf_copy_symbol_attributes
,
2697 elf_generate_asm_lineno
,
2699 elf_separate_stab_sections
,
2700 elf_init_stab_section
,
2701 elf_sec_sym_ok_for_reloc
,
2703 #ifdef NEED_ECOFF_DEBUG
2706 0, /* ecoff_set_ext */
2708 elf_obj_read_begin_hook
,
2709 elf_obj_symbol_new_hook
,