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
= XNEW (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 /* Processor and application defined types are allowed too. */
630 && type
< SHT_LOPROC
)
631 as_warn (_("setting incorrect section type for %s"),
636 as_warn (_("ignoring incorrect section type for %s"),
642 if (old_sec
== NULL
&& ((attr
& ~(SHF_MASKOS
| SHF_MASKPROC
))
643 & ~ssect
->attr
) != 0)
645 /* As a GNU extension, we permit a .note section to be
646 allocatable. If the linker sees an allocatable .note
647 section, it will create a PT_NOTE segment in the output
648 file. We also allow "x" for .note.GNU-stack. */
649 if (ssect
->type
== SHT_NOTE
650 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
652 /* Allow different SHF_MERGE and SHF_STRINGS if we have
653 something like .rodata.str. */
654 else if (ssect
->suffix_length
== -2
655 && name
[ssect
->prefix_length
] == '.'
659 & ~SHF_STRINGS
) == 0)
661 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
662 else if (attr
== SHF_ALLOC
663 && (strcmp (name
, ".interp") == 0
664 || strcmp (name
, ".strtab") == 0
665 || strcmp (name
, ".symtab") == 0))
667 /* .note.GNU-stack can have SHF_EXECINSTR. */
668 else if (attr
== SHF_EXECINSTR
669 && strcmp (name
, ".note.GNU-stack") == 0)
672 /* A section on Alpha may have SHF_ALPHA_GPREL. */
673 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
677 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
678 && (ssect
->type
== SHT_INIT_ARRAY
679 || ssect
->type
== SHT_FINI_ARRAY
680 || ssect
->type
== SHT_PREINIT_ARRAY
))
681 /* RX init/fini arrays can and should have the "awx" attributes set. */
686 if (group_name
== NULL
)
687 as_warn (_("setting incorrect section attributes for %s"),
693 if (!override
&& old_sec
== NULL
)
697 /* Convert ELF type and flags to BFD flags. */
699 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
700 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
701 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
702 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
703 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
704 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
705 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
706 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
707 #ifdef md_elf_section_flags
708 flags
= md_elf_section_flags (flags
, attr
, type
);
712 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
718 if (type
== SHT_NULL
)
719 type
= bfd_elf_get_default_section_type (flags
);
720 elf_section_type (sec
) = type
;
721 elf_section_flags (sec
) = attr
;
723 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
724 if (type
== SHT_NOBITS
)
725 seg_info (sec
)->bss
= 1;
727 bfd_set_section_flags (stdoutput
, sec
, flags
);
728 if (flags
& SEC_MERGE
)
729 sec
->entsize
= entsize
;
730 elf_group_name (sec
) = group_name
;
732 /* Add a symbol for this section to the symbol table. */
733 secsym
= symbol_find (name
);
735 symbol_set_bfdsym (secsym
, sec
->symbol
);
737 symbol_table_insert (section_symbol (sec
));
742 && (unsigned) type
!= elf_section_type (old_sec
))
743 as_warn (_("ignoring changed section type for %s"), name
);
747 /* If section attributes are specified the second time we see a
748 particular section, then check that they are the same as we
749 saw the first time. */
750 if (((old_sec
->flags
^ flags
)
751 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
752 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
753 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
754 | SEC_THREAD_LOCAL
)))
755 as_warn (_("ignoring changed section attributes for %s"), name
);
757 /* FIXME: Maybe we should consider removing a previously set
758 processor or application specific attribute as suspicious ? */
759 elf_section_flags (sec
) = attr
;
761 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
762 as_warn (_("ignoring changed section entity size for %s"), name
);
766 #ifdef md_elf_section_change_hook
767 md_elf_section_change_hook ();
772 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
791 attr
|= SHF_EXECINSTR
;
810 if (*(str
- 1) == 'a')
813 if (len
> 1 && str
[1] == 's')
823 const char *bad_msg
= _("unrecognized .section attribute:"
824 " want a,e,w,x,M,S,G,T or number");
825 #ifdef md_elf_section_letter
826 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
827 if (md_attr
!= (bfd_vma
) -1)
835 attr
|= strtoul (str
, & end
, 0);
836 /* Update str and len, allowing for the fact that
837 we will execute str++ and len-- below. */
843 as_fatal ("%s", bad_msg
);
854 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
856 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
858 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
860 if (len
== 4 && strncmp (str
, "note", 4) == 0)
862 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
863 return SHT_INIT_ARRAY
;
864 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
865 return SHT_FINI_ARRAY
;
866 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
867 return SHT_PREINIT_ARRAY
;
869 #ifdef md_elf_section_type
871 int md_type
= md_elf_section_type (str
, len
);
880 int type
= strtoul (str
, & end
, 0);
882 if (warn
&& (size_t) (end
- str
) != len
)
883 as_warn (_("extraneous characters at end of numeric section type"));
889 as_warn (_("unrecognized section type"));
894 obj_elf_section_word (char *str
, size_t len
, int *type
)
898 if (len
== 5 && strncmp (str
, "write", 5) == 0)
900 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
902 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
903 return SHF_EXECINSTR
;
904 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
906 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
909 #ifdef md_elf_section_word
911 bfd_vma md_attr
= md_elf_section_word (str
, len
);
917 ret
= obj_elf_section_type (str
, len
, FALSE
);
921 as_warn (_("unrecognized section attribute"));
926 /* Get name of section. */
928 obj_elf_section_name (void)
933 if (*input_line_pointer
== '"')
937 name
= demand_copy_C_string (&dummy
);
940 ignore_rest_of_line ();
946 char *end
= input_line_pointer
;
948 while (0 == strchr ("\n\t,; ", *end
))
950 if (end
== input_line_pointer
)
952 as_bad (_("missing name"));
953 ignore_rest_of_line ();
957 name
= xmemdup0 (input_line_pointer
, end
- input_line_pointer
);
959 while (flag_sectname_subst
)
961 char *subst
= strchr (name
, '%');
962 if (subst
&& subst
[1] == 'S')
964 int oldlen
= strlen (name
);
965 int substlen
= strlen (now_seg
->name
);
966 int newlen
= oldlen
- 2 + substlen
;
967 char *newname
= XNEWVEC (char, newlen
+ 1);
968 int headlen
= subst
- name
;
969 memcpy (newname
, name
, headlen
);
970 strcpy (newname
+ headlen
, now_seg
->name
);
971 strcat (newname
+ headlen
, subst
+ 2);
979 #ifdef tc_canonicalize_section_name
980 name
= tc_canonicalize_section_name (name
);
982 input_line_pointer
= end
;
989 obj_elf_section (int push
)
991 const char *name
, *group_name
;
997 subsegT new_subsection
= -1;
1004 #ifdef md_flush_pending_output
1005 md_flush_pending_output ();
1008 previous_section
= now_seg
;
1009 previous_subsection
= now_subseg
;
1011 s_mri_sect (&mri_type
);
1013 #ifdef md_elf_section_change_hook
1014 md_elf_section_change_hook ();
1019 #endif /* ! defined (TC_I370) */
1021 name
= obj_elf_section_name ();
1030 if (*input_line_pointer
== ',')
1032 /* Skip the comma. */
1033 ++input_line_pointer
;
1036 if (push
&& ISDIGIT (*input_line_pointer
))
1038 /* .pushsection has an optional subsection. */
1039 new_subsection
= (subsegT
) get_absolute_expression ();
1043 /* Stop if we don't see a comma. */
1044 if (*input_line_pointer
!= ',')
1047 /* Skip the comma. */
1048 ++input_line_pointer
;
1052 if (*input_line_pointer
== '"')
1054 bfd_boolean is_clone
;
1056 beg
= demand_copy_C_string (&dummy
);
1059 ignore_rest_of_line ();
1062 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
1065 if (*input_line_pointer
== ',')
1068 char *save
= input_line_pointer
;
1070 ++input_line_pointer
;
1072 c
= *input_line_pointer
;
1075 beg
= demand_copy_C_string (&dummy
);
1078 ignore_rest_of_line ();
1081 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1083 else if (c
== '@' || c
== '%')
1085 ++input_line_pointer
;
1087 if (ISDIGIT (* input_line_pointer
))
1089 type
= strtoul (input_line_pointer
, & input_line_pointer
, 0);
1093 c
= get_symbol_name (& beg
);
1094 (void) restore_line_pointer (c
);
1095 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1099 input_line_pointer
= save
;
1103 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1105 ++input_line_pointer
;
1107 entsize
= get_absolute_expression ();
1111 as_warn (_("invalid merge entity size"));
1116 else if ((attr
& SHF_MERGE
) != 0)
1118 as_warn (_("entity size for SHF_MERGE not specified"));
1122 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1124 as_warn (_("? section flag ignored with G present"));
1127 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1129 ++input_line_pointer
;
1130 group_name
= obj_elf_section_name ();
1131 if (group_name
== NULL
)
1133 else if (*input_line_pointer
== ',')
1135 ++input_line_pointer
;
1137 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1139 input_line_pointer
+= 6;
1143 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1146 else if ((attr
& SHF_GROUP
) != 0)
1148 as_warn (_("group name for SHF_GROUP not specified"));
1154 const char *now_group
= elf_group_name (now_seg
);
1155 if (now_group
!= NULL
)
1157 group_name
= xstrdup (now_group
);
1158 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1169 if (*input_line_pointer
!= '#')
1171 as_bad (_("character following name is not '#'"));
1172 ignore_rest_of_line ();
1175 ++input_line_pointer
;
1176 c
= get_symbol_name (& beg
);
1177 (void) restore_line_pointer (c
);
1179 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1183 while (*input_line_pointer
++ == ',');
1184 --input_line_pointer
;
1189 demand_empty_rest_of_line ();
1191 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1193 if (push
&& new_subsection
!= -1)
1194 subseg_set (now_seg
, new_subsection
);
1197 /* Change to the .data section. */
1200 obj_elf_data (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 ();
1215 /* Change to the .text section. */
1218 obj_elf_text (int i
)
1220 #ifdef md_flush_pending_output
1221 md_flush_pending_output ();
1224 previous_section
= now_seg
;
1225 previous_subsection
= now_subseg
;
1228 #ifdef md_elf_section_change_hook
1229 md_elf_section_change_hook ();
1233 /* Change to the *ABS* section. */
1236 obj_elf_struct (int i
)
1238 #ifdef md_flush_pending_output
1239 md_flush_pending_output ();
1242 previous_section
= now_seg
;
1243 previous_subsection
= now_subseg
;
1246 #ifdef md_elf_section_change_hook
1247 md_elf_section_change_hook ();
1252 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1256 #ifdef md_flush_pending_output
1257 md_flush_pending_output ();
1260 previous_section
= now_seg
;
1261 previous_subsection
= now_subseg
;
1263 temp
= get_absolute_expression ();
1264 subseg_set (now_seg
, (subsegT
) temp
);
1265 demand_empty_rest_of_line ();
1267 #ifdef md_elf_section_change_hook
1268 md_elf_section_change_hook ();
1272 /* This can be called from the processor backends if they change
1276 obj_elf_section_change_hook (void)
1278 previous_section
= now_seg
;
1279 previous_subsection
= now_subseg
;
1283 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1288 if (previous_section
== 0)
1290 as_warn (_(".previous without corresponding .section; ignored"));
1294 #ifdef md_flush_pending_output
1295 md_flush_pending_output ();
1298 new_section
= previous_section
;
1299 new_subsection
= previous_subsection
;
1300 previous_section
= now_seg
;
1301 previous_subsection
= now_subseg
;
1302 subseg_set (new_section
, new_subsection
);
1304 #ifdef md_elf_section_change_hook
1305 md_elf_section_change_hook ();
1310 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1312 struct section_stack
*top
= section_stack
;
1316 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1320 #ifdef md_flush_pending_output
1321 md_flush_pending_output ();
1324 section_stack
= top
->next
;
1325 previous_section
= top
->prev_seg
;
1326 previous_subsection
= top
->prev_subseg
;
1327 subseg_set (top
->seg
, top
->subseg
);
1330 #ifdef md_elf_section_change_hook
1331 md_elf_section_change_hook ();
1336 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1338 /* Assume delimiter is part of expression. BSD4.2 as fails with
1339 delightful bug, so we are not being incompatible here. */
1340 new_logical_line (NULL
, get_absolute_expression ());
1341 demand_empty_rest_of_line ();
1344 /* This handles the .symver pseudo-op, which is used to specify a
1345 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1346 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1347 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1348 with the same value as the symbol NAME. */
1351 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1358 sym
= get_sym_from_input_line_and_check ();
1360 if (*input_line_pointer
!= ',')
1362 as_bad (_("expected comma after name in .symver"));
1363 ignore_rest_of_line ();
1367 ++input_line_pointer
;
1370 /* Temporarily include '@' in symbol names. */
1371 old_lexat
= lex_type
[(unsigned char) '@'];
1372 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1373 c
= get_symbol_name (& name
);
1374 lex_type
[(unsigned char) '@'] = old_lexat
;
1376 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1378 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1380 (void) restore_line_pointer (c
);
1382 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1383 ELF_VER_CHR
) == NULL
)
1385 as_bad (_("missing version name in `%s' for symbol `%s'"),
1386 symbol_get_obj (sym
)->versioned_name
,
1388 ignore_rest_of_line ();
1394 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1396 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1397 name
, symbol_get_obj (sym
)->versioned_name
,
1399 ignore_rest_of_line ();
1403 (void) restore_line_pointer (c
);
1406 demand_empty_rest_of_line ();
1409 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1410 to the linker the hierarchy in which a particular table resides. The
1411 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1414 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1416 char *cname
, *pname
;
1417 symbolS
*csym
, *psym
;
1420 if (*input_line_pointer
== '#')
1421 ++input_line_pointer
;
1423 c
= get_symbol_name (& cname
);
1424 csym
= symbol_find (cname
);
1426 /* GCFIXME: should check that we don't have two .vtable_inherits for
1427 the same child symbol. Also, we can currently only do this if the
1428 child symbol is already exists and is placed in a fragment. */
1430 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1432 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1437 *input_line_pointer
= c
;
1439 SKIP_WHITESPACE_AFTER_NAME ();
1440 if (*input_line_pointer
!= ',')
1442 as_bad (_("expected comma after name in .vtable_inherit"));
1443 ignore_rest_of_line ();
1447 ++input_line_pointer
;
1450 if (*input_line_pointer
== '#')
1451 ++input_line_pointer
;
1453 if (input_line_pointer
[0] == '0'
1454 && (input_line_pointer
[1] == '\0'
1455 || ISSPACE (input_line_pointer
[1])))
1457 psym
= section_symbol (absolute_section
);
1458 ++input_line_pointer
;
1462 c
= get_symbol_name (& pname
);
1463 psym
= symbol_find_or_make (pname
);
1464 restore_line_pointer (c
);
1467 demand_empty_rest_of_line ();
1472 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1473 return fix_new (symbol_get_frag (csym
),
1474 symbol_get_value_expression (csym
)->X_add_number
,
1475 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1478 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1479 to the linker that a vtable slot was used. The syntax is
1480 ".vtable_entry tablename, offset". */
1483 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1488 if (*input_line_pointer
== '#')
1489 ++input_line_pointer
;
1491 sym
= get_sym_from_input_line_and_check ();
1492 if (*input_line_pointer
!= ',')
1494 as_bad (_("expected comma after name in .vtable_entry"));
1495 ignore_rest_of_line ();
1499 ++input_line_pointer
;
1500 if (*input_line_pointer
== '#')
1501 ++input_line_pointer
;
1503 offset
= get_absolute_expression ();
1505 demand_empty_rest_of_line ();
1507 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1508 BFD_RELOC_VTABLE_ENTRY
);
1511 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1514 skip_past_char (char ** str
, char c
)
1524 #define skip_past_comma(str) skip_past_char (str, ',')
1526 /* A list of attributes that have been explicitly set by the assembly code.
1527 VENDOR is the vendor id, BASE is the tag shifted right by the number
1528 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1529 struct recorded_attribute_info
{
1530 struct recorded_attribute_info
*next
;
1535 static struct recorded_attribute_info
*recorded_attributes
;
1537 /* Record that we have seen an explicit specification of attribute TAG
1538 for vendor VENDOR. */
1541 record_attribute (int vendor
, unsigned int tag
)
1545 struct recorded_attribute_info
*rai
;
1547 base
= tag
/ (8 * sizeof (rai
->mask
));
1548 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1549 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1550 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1556 rai
= XNEW (struct recorded_attribute_info
);
1557 rai
->next
= recorded_attributes
;
1558 rai
->vendor
= vendor
;
1561 recorded_attributes
= rai
;
1564 /* Return true if we have seen an explicit specification of attribute TAG
1565 for vendor VENDOR. */
1568 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1572 struct recorded_attribute_info
*rai
;
1574 base
= tag
/ (8 * sizeof (rai
->mask
));
1575 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1576 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1577 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1578 return (rai
->mask
& mask
) != 0;
1582 /* Parse an attribute directive for VENDOR.
1583 Returns the attribute number read, or zero on error. */
1586 obj_elf_vendor_attribute (int vendor
)
1594 /* Read the first number or name. */
1595 skip_whitespace (input_line_pointer
);
1596 s
= input_line_pointer
;
1597 if (ISDIGIT (*input_line_pointer
))
1600 if (exp
.X_op
!= O_constant
)
1602 tag
= exp
.X_add_number
;
1608 /* A name may contain '_', but no other punctuation. */
1609 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1610 ++input_line_pointer
)
1615 name
= xstrndup (s
, i
);
1617 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1618 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1621 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1624 as_bad (_("Attribute name not recognised: %s"), name
);
1625 ignore_rest_of_line ();
1632 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1634 if (skip_past_comma (&input_line_pointer
) == -1)
1639 if (exp
.X_op
!= O_constant
)
1641 as_bad (_("expected numeric constant"));
1642 ignore_rest_of_line ();
1645 i
= exp
.X_add_number
;
1648 && skip_past_comma (&input_line_pointer
) == -1)
1650 as_bad (_("expected comma"));
1651 ignore_rest_of_line ();
1658 skip_whitespace (input_line_pointer
);
1659 if (*input_line_pointer
!= '"')
1661 s
= demand_copy_C_string (&len
);
1664 record_attribute (vendor
, tag
);
1668 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1671 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1674 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1680 demand_empty_rest_of_line ();
1683 as_bad (_("bad string constant"));
1684 ignore_rest_of_line ();
1687 as_bad (_("expected <tag> , <value>"));
1688 ignore_rest_of_line ();
1692 /* Parse a .gnu_attribute directive. */
1695 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1697 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1701 elf_obj_read_begin_hook (void)
1703 #ifdef NEED_ECOFF_DEBUG
1704 if (ECOFF_DEBUGGING
)
1705 ecoff_read_begin_hook ();
1710 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1712 struct elf_obj_sy
*sy_obj
;
1714 sy_obj
= symbol_get_obj (symbolP
);
1715 sy_obj
->size
= NULL
;
1716 sy_obj
->versioned_name
= NULL
;
1718 #ifdef NEED_ECOFF_DEBUG
1719 if (ECOFF_DEBUGGING
)
1720 ecoff_symbol_new_hook (symbolP
);
1724 /* When setting one symbol equal to another, by default we probably
1725 want them to have the same "size", whatever it means in the current
1729 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1731 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1732 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1735 if (destelf
->size
== NULL
)
1736 destelf
->size
= XNEW (expressionS
);
1737 *destelf
->size
= *srcelf
->size
;
1741 if (destelf
->size
!= NULL
)
1742 free (destelf
->size
);
1743 destelf
->size
= NULL
;
1745 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1746 /* Don't copy visibility. */
1747 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1748 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1752 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1757 asection
*seg
= now_seg
;
1758 subsegT subseg
= now_subseg
;
1759 Elf_Internal_Note i_note
;
1760 Elf_External_Note e_note
;
1761 asection
*note_secp
= NULL
;
1764 if (*input_line_pointer
== '\"')
1768 ++input_line_pointer
; /* -> 1st char of string. */
1769 name
= input_line_pointer
;
1771 while (is_a_char (c
= next_char_of_string ()))
1773 c
= *input_line_pointer
;
1774 *input_line_pointer
= '\0';
1775 *(input_line_pointer
- 1) = '\0';
1776 *input_line_pointer
= c
;
1778 /* Create the .note section. */
1779 note_secp
= subseg_new (".note", 0);
1780 bfd_set_section_flags (stdoutput
,
1782 SEC_HAS_CONTENTS
| SEC_READONLY
);
1784 /* Process the version string. */
1785 len
= strlen (name
) + 1;
1787 /* PR 3456: Although the name field is padded out to an 4-byte
1788 boundary, the namesz field should not be adjusted. */
1789 i_note
.namesz
= len
;
1790 i_note
.descsz
= 0; /* No description. */
1791 i_note
.type
= NT_VERSION
;
1792 p
= frag_more (sizeof (e_note
.namesz
));
1793 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1794 p
= frag_more (sizeof (e_note
.descsz
));
1795 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1796 p
= frag_more (sizeof (e_note
.type
));
1797 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1798 p
= frag_more (len
);
1799 memcpy (p
, name
, len
);
1801 frag_align (2, 0, 0);
1803 subseg_set (seg
, subseg
);
1806 as_bad (_("expected quoted string"));
1808 demand_empty_rest_of_line ();
1812 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1815 char c
= get_symbol_name (&name
);
1820 p
= input_line_pointer
;
1822 SKIP_WHITESPACE_AFTER_NAME ();
1823 if (*input_line_pointer
!= ',')
1826 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1828 ignore_rest_of_line ();
1831 input_line_pointer
++;
1833 if (exp
.X_op
== O_absent
)
1835 as_bad (_("missing expression in .size directive"));
1836 exp
.X_op
= O_constant
;
1837 exp
.X_add_number
= 0;
1840 sym
= symbol_find_or_make (name
);
1842 if (exp
.X_op
== O_constant
)
1844 S_SET_SIZE (sym
, exp
.X_add_number
);
1845 if (symbol_get_obj (sym
)->size
)
1847 xfree (symbol_get_obj (sym
)->size
);
1848 symbol_get_obj (sym
)->size
= NULL
;
1853 symbol_get_obj (sym
)->size
= XNEW (expressionS
);
1854 *symbol_get_obj (sym
)->size
= exp
;
1856 demand_empty_rest_of_line ();
1859 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1860 There are six syntaxes:
1862 The first (used on Solaris) is
1864 The second (used on UnixWare) is
1866 The third (reportedly to be used on Irix 6.0) is
1868 The fourth (used on NetBSD/Arm and Linux/ARM) is
1870 The fifth (used on SVR4/860) is
1871 .type SYM,"function"
1872 The sixth (emitted by recent SunPRO under Solaris) is
1874 where the integer is the STT_* value.
1878 obj_elf_type_name (char *cp
)
1882 p
= input_line_pointer
;
1883 if (*input_line_pointer
>= '0'
1884 && *input_line_pointer
<= '9')
1886 while (*input_line_pointer
>= '0'
1887 && *input_line_pointer
<= '9')
1888 ++input_line_pointer
;
1889 *cp
= *input_line_pointer
;
1890 *input_line_pointer
= '\0';
1893 *cp
= get_symbol_name (&p
);
1899 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1903 const char *type_name
;
1905 elf_symbol_type
*elfsym
;
1907 sym
= get_sym_from_input_line_and_check ();
1908 c
= *input_line_pointer
;
1909 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1911 if (*input_line_pointer
== ',')
1912 ++input_line_pointer
;
1915 if ( *input_line_pointer
== '#'
1916 || *input_line_pointer
== '@'
1917 || *input_line_pointer
== '"'
1918 || *input_line_pointer
== '%')
1919 ++input_line_pointer
;
1921 type_name
= obj_elf_type_name (& c
);
1924 if (strcmp (type_name
, "function") == 0
1925 || strcmp (type_name
, "2") == 0
1926 || strcmp (type_name
, "STT_FUNC") == 0)
1927 type
= BSF_FUNCTION
;
1928 else if (strcmp (type_name
, "object") == 0
1929 || strcmp (type_name
, "1") == 0
1930 || strcmp (type_name
, "STT_OBJECT") == 0)
1932 else if (strcmp (type_name
, "tls_object") == 0
1933 || strcmp (type_name
, "6") == 0
1934 || strcmp (type_name
, "STT_TLS") == 0)
1935 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1936 else if (strcmp (type_name
, "notype") == 0
1937 || strcmp (type_name
, "0") == 0
1938 || strcmp (type_name
, "STT_NOTYPE") == 0)
1940 else if (strcmp (type_name
, "common") == 0
1941 || strcmp (type_name
, "5") == 0
1942 || strcmp (type_name
, "STT_COMMON") == 0)
1946 if (! S_IS_COMMON (sym
))
1948 if (S_IS_VOLATILE (sym
))
1950 sym
= symbol_clone (sym
, 1);
1951 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1952 S_SET_VALUE (sym
, 0);
1953 S_SET_EXTERNAL (sym
);
1954 symbol_set_frag (sym
, &zero_address_frag
);
1955 S_CLEAR_VOLATILE (sym
);
1957 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1958 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1961 /* FIXME: Is it safe to just change the section ? */
1962 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1963 S_SET_VALUE (sym
, 0);
1964 S_SET_EXTERNAL (sym
);
1968 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1969 || strcmp (type_name
, "10") == 0
1970 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1972 const struct elf_backend_data
*bed
;
1974 bed
= get_elf_backend_data (stdoutput
);
1975 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1976 || bed
->elf_osabi
== ELFOSABI_FREEBSD
1977 /* GNU is still using the default value 0. */
1978 || bed
->elf_osabi
== ELFOSABI_NONE
))
1979 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
1981 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1983 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1985 struct elf_backend_data
*bed
;
1987 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1988 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1989 /* GNU is still using the default value 0. */
1990 || bed
->elf_osabi
== ELFOSABI_NONE
))
1991 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1993 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1994 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
1995 bed
->elf_osabi
= ELFOSABI_GNU
;
1997 #ifdef md_elf_symbol_type
1998 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
2002 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
2004 *input_line_pointer
= c
;
2006 if (*input_line_pointer
== '"')
2007 ++input_line_pointer
;
2009 elfsym
->symbol
.flags
|= type
;
2011 demand_empty_rest_of_line ();
2015 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
2017 static segT comment_section
;
2018 segT old_section
= now_seg
;
2019 int old_subsection
= now_subseg
;
2021 #ifdef md_flush_pending_output
2022 md_flush_pending_output ();
2025 if (!comment_section
)
2028 comment_section
= subseg_new (".comment", 0);
2029 bfd_set_section_flags (stdoutput
, comment_section
,
2030 SEC_READONLY
| SEC_HAS_CONTENTS
2031 | SEC_MERGE
| SEC_STRINGS
);
2032 comment_section
->entsize
= 1;
2033 #ifdef md_elf_section_change_hook
2034 md_elf_section_change_hook ();
2040 subseg_set (comment_section
, 0);
2042 subseg_set (old_section
, old_subsection
);
2045 #ifdef INIT_STAB_SECTION
2047 /* The first entry in a .stabs section is special. */
2050 obj_elf_init_stab_section (segT seg
)
2055 unsigned int stroff
;
2057 /* Force the section to align to a longword boundary. Without this,
2058 UnixWare ar crashes. */
2059 bfd_set_section_alignment (stdoutput
, seg
, 2);
2061 /* Make space for this first symbol. */
2065 file
= as_where (NULL
);
2066 stabstr_name
= concat (segment_name (seg
), "str", (char *) NULL
);
2067 stroff
= get_stab_string_offset (file
, stabstr_name
);
2068 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2069 md_number_to_chars (p
, stroff
, 4);
2070 seg_info (seg
)->stabu
.p
= p
;
2075 /* Fill in the counts in the first entry in a .stabs section. */
2078 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2085 if (strncmp (".stab", sec
->name
, 5))
2087 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2090 name
= concat (sec
->name
, "str", NULL
);
2091 strsec
= bfd_get_section_by_name (abfd
, name
);
2093 strsz
= bfd_section_size (abfd
, strsec
);
2096 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
2098 p
= seg_info (sec
)->stabu
.p
;
2099 gas_assert (p
!= 0);
2101 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2102 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2106 #ifdef NEED_ECOFF_DEBUG
2108 /* This function is called by the ECOFF code. It is supposed to
2109 record the external symbol information so that the backend can
2110 write it out correctly. The ELF backend doesn't actually handle
2111 this at the moment, so we do it ourselves. We save the information
2114 #ifdef OBJ_MAYBE_ELF
2118 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2120 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2123 /* This function is called by bfd_ecoff_debug_externals. It is
2124 supposed to *EXT to the external symbol information, and return
2125 whether the symbol should be used at all. */
2128 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2130 if (sym
->udata
.p
== NULL
)
2132 *ext
= *(EXTR
*) sym
->udata
.p
;
2136 /* This function is called by bfd_ecoff_debug_externals. It has
2137 nothing to do for ELF. */
2140 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2141 bfd_size_type indx ATTRIBUTE_UNUSED
)
2145 #endif /* NEED_ECOFF_DEBUG */
2148 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2150 struct elf_obj_sy
*sy_obj
;
2153 #ifdef NEED_ECOFF_DEBUG
2154 if (ECOFF_DEBUGGING
)
2155 ecoff_frob_symbol (symp
);
2158 sy_obj
= symbol_get_obj (symp
);
2160 size
= sy_obj
->size
;
2163 if (resolve_expression (size
)
2164 && size
->X_op
== O_constant
)
2165 S_SET_SIZE (symp
, size
->X_add_number
);
2168 if (!flag_allow_nonconst_size
)
2169 as_bad (_(".size expression for %s "
2170 "does not evaluate to a constant"), S_GET_NAME (symp
));
2172 as_warn (_(".size expression for %s "
2173 "does not evaluate to a constant"), S_GET_NAME (symp
));
2175 free (sy_obj
->size
);
2176 sy_obj
->size
= NULL
;
2179 if (sy_obj
->versioned_name
!= NULL
)
2183 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
2185 /* We will have already reported an error about a missing version. */
2188 /* This symbol was given a new name with the .symver directive.
2190 If this is an external reference, just rename the symbol to
2191 include the version string. This will make the relocs be
2192 against the correct versioned symbol.
2194 If this is a definition, add an alias. FIXME: Using an alias
2195 will permit the debugging information to refer to the right
2196 symbol. However, it's not clear whether it is the best
2199 else if (! S_IS_DEFINED (symp
))
2201 /* Verify that the name isn't using the @@ syntax--this is
2202 reserved for definitions of the default version to link
2204 if (p
[1] == ELF_VER_CHR
)
2206 as_bad (_("invalid attempt to declare external version name"
2207 " as default in symbol `%s'"),
2208 sy_obj
->versioned_name
);
2211 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2215 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2219 /* The @@@ syntax is a special case. It renames the
2220 symbol name to versioned_name with one `@' removed. */
2221 l
= strlen (&p
[3]) + 1;
2222 memmove (&p
[2], &p
[3], l
);
2223 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2229 /* FIXME: Creating a new symbol here is risky. We're
2230 in the final loop over the symbol table. We can
2231 get away with it only because the symbol goes to
2232 the end of the list, where the loop will still see
2233 it. It would probably be better to do this in
2234 obj_frob_file_before_adjust. */
2236 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
2238 /* Now we act as though we saw symp2 = sym. */
2240 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2242 /* Subtracting out the frag address here is a hack
2243 because we are in the middle of the final loop. */
2246 - symbol_get_frag (symp
)->fr_address
));
2248 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2250 /* This will copy over the size information. */
2251 copy_symbol_attributes (symp2
, symp
);
2253 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2255 if (S_IS_WEAK (symp
))
2258 if (S_IS_EXTERNAL (symp
))
2259 S_SET_EXTERNAL (symp2
);
2264 /* Double check weak symbols. */
2265 if (S_IS_WEAK (symp
))
2267 if (S_IS_COMMON (symp
))
2268 as_bad (_("symbol `%s' can not be both weak and common"),
2273 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2274 any undefined non-function symbol to STT_OBJECT. We try to be
2275 compatible, since newer Irix 5 and 6 linkers care. However, we
2276 only set undefined symbols to be STT_OBJECT if we are on Irix,
2277 because that is the only time gcc will generate the necessary
2278 .global directives to mark functions. */
2280 if (S_IS_COMMON (symp
))
2281 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2283 if (strstr (TARGET_OS
, "irix") != NULL
2284 && ! S_IS_DEFINED (symp
)
2285 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2286 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2292 asection
**head
; /* Section lists. */
2293 unsigned int *elt_count
; /* Number of sections in each list. */
2294 unsigned int num_group
; /* Number of lists. */
2295 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2298 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2299 add it to a list of sections belonging to the group. INF is a
2300 pointer to a struct group_list, which is where we store the head of
2304 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2306 struct group_list
*list
= (struct group_list
*) inf
;
2307 const char *group_name
= elf_group_name (sec
);
2309 unsigned int *elem_idx
;
2310 unsigned int *idx_ptr
;
2312 if (group_name
== NULL
)
2315 /* If this group already has a list, add the section to the head of
2317 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2318 if (elem_idx
!= NULL
)
2320 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2321 list
->head
[*elem_idx
] = sec
;
2322 list
->elt_count
[*elem_idx
] += 1;
2326 /* New group. Make the arrays bigger in chunks to minimize calls to
2328 i
= list
->num_group
;
2331 unsigned int newsize
= i
+ 128;
2332 list
->head
= XRESIZEVEC (asection
*, list
->head
, newsize
);
2333 list
->elt_count
= XRESIZEVEC (unsigned int, list
->elt_count
, newsize
);
2335 list
->head
[i
] = sec
;
2336 list
->elt_count
[i
] = 1;
2337 list
->num_group
+= 1;
2339 /* Add index to hash. */
2340 idx_ptr
= XNEW (unsigned int);
2342 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2345 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2347 free ((unsigned int *) val
);
2351 elf_adjust_symtab (void)
2353 struct group_list list
;
2356 /* Go find section groups. */
2359 list
.elt_count
= NULL
;
2360 list
.indexes
= hash_new ();
2361 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2363 /* Make the SHT_GROUP sections that describe each section group. We
2364 can't set up the section contents here yet, because elf section
2365 indices have yet to be calculated. elf.c:set_group_contents does
2366 the rest of the work. */
2367 for (i
= 0; i
< list
.num_group
; i
++)
2369 const char *group_name
= elf_group_name (list
.head
[i
]);
2370 const char *sec_name
;
2376 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2377 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2378 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2380 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2381 if (s
!= list
.head
[i
])
2383 as_warn (_("assuming all members of group `%s' are COMDAT"),
2389 sec_name
= ".group";
2390 s
= subseg_force_new (sec_name
, 0);
2392 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2393 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2395 as_fatal (_("can't create group: %s"),
2396 bfd_errmsg (bfd_get_error ()));
2398 elf_section_type (s
) = SHT_GROUP
;
2400 /* Pass a pointer to the first section in this group. */
2401 elf_next_in_group (s
) = list
.head
[i
];
2402 /* Make sure that the signature symbol for the group has the
2403 name of the group. */
2404 sy
= symbol_find_exact (group_name
);
2406 || (sy
!= symbol_lastP
2407 && (sy
->sy_next
== NULL
2408 || sy
->sy_next
->sy_previous
!= sy
)))
2410 /* Create the symbol now. */
2411 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2413 /* Before Solaris 11 build 154, Sun ld rejects local group
2414 signature symbols, so make them weak hidden instead. */
2415 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2416 S_SET_OTHER (sy
, STV_HIDDEN
);
2418 symbol_get_obj (sy
)->local
= 1;
2420 symbol_table_insert (sy
);
2422 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2424 size
= 4 * (list
.elt_count
[i
] + 1);
2425 bfd_set_section_size (stdoutput
, s
, size
);
2426 s
->contents
= (unsigned char *) frag_more (size
);
2427 frag_now
->fr_fix
= frag_now_fix_octets ();
2428 frag_wane (frag_now
);
2432 hash_traverse (list
.indexes
, free_section_idx
);
2433 hash_die (list
.indexes
);
2437 elf_frob_file (void)
2439 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2441 #ifdef elf_tc_final_processing
2442 elf_tc_final_processing ();
2446 /* It removes any unneeded versioned symbols from the symbol table. */
2449 elf_frob_file_before_adjust (void)
2455 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2456 if (!S_IS_DEFINED (symp
))
2458 if (symbol_get_obj (symp
)->versioned_name
)
2462 /* The @@@ syntax is a special case. If the symbol is
2463 not defined, 2 `@'s will be removed from the
2466 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2468 if (p
!= NULL
&& p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2470 size_t l
= strlen (&p
[3]) + 1;
2471 memmove (&p
[1], &p
[3], l
);
2473 if (symbol_used_p (symp
) == 0
2474 && symbol_used_in_reloc_p (symp
) == 0)
2475 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2478 /* If there was .weak foo, but foo was neither defined nor
2479 used anywhere, remove it. */
2481 else if (S_IS_WEAK (symp
)
2482 && symbol_used_p (symp
) == 0
2483 && symbol_used_in_reloc_p (symp
) == 0)
2484 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2489 /* It is required that we let write_relocs have the opportunity to
2490 optimize away fixups before output has begun, since it is possible
2491 to eliminate all fixups for a section and thus we never should
2492 have generated the relocation section. */
2495 elf_frob_file_after_relocs (void)
2497 #ifdef NEED_ECOFF_DEBUG
2498 if (ECOFF_DEBUGGING
)
2499 /* Generate the ECOFF debugging information. */
2501 const struct ecoff_debug_swap
*debug_swap
;
2502 struct ecoff_debug_info debug
;
2507 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2508 know (debug_swap
!= NULL
);
2509 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2511 /* Set up the pointers in debug. */
2512 #define SET(ptr, offset, type) \
2513 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2515 SET (line
, cbLineOffset
, unsigned char *);
2516 SET (external_dnr
, cbDnOffset
, void *);
2517 SET (external_pdr
, cbPdOffset
, void *);
2518 SET (external_sym
, cbSymOffset
, void *);
2519 SET (external_opt
, cbOptOffset
, void *);
2520 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2521 SET (ss
, cbSsOffset
, char *);
2522 SET (external_fdr
, cbFdOffset
, void *);
2523 SET (external_rfd
, cbRfdOffset
, void *);
2524 /* ssext and external_ext are set up just below. */
2528 /* Set up the external symbols. */
2529 debug
.ssext
= debug
.ssext_end
= NULL
;
2530 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2531 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2532 elf_get_extr
, elf_set_index
))
2533 as_fatal (_("failed to set up debugging information: %s"),
2534 bfd_errmsg (bfd_get_error ()));
2536 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2537 gas_assert (sec
!= NULL
);
2539 know (!stdoutput
->output_has_begun
);
2541 /* We set the size of the section, call bfd_set_section_contents
2542 to force the ELF backend to allocate a file position, and then
2543 write out the data. FIXME: Is this really the best way to do
2545 bfd_set_section_size
2546 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2548 /* Pass BUF to bfd_set_section_contents because this will
2549 eventually become a call to fwrite, and ISO C prohibits
2550 passing a NULL pointer to a stdio function even if the
2551 pointer will not be used. */
2552 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2553 as_fatal (_("can't start writing .mdebug section: %s"),
2554 bfd_errmsg (bfd_get_error ()));
2556 know (stdoutput
->output_has_begun
);
2557 know (sec
->filepos
!= 0);
2559 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2561 as_fatal (_("could not write .mdebug section: %s"),
2562 bfd_errmsg (bfd_get_error ()));
2564 #endif /* NEED_ECOFF_DEBUG */
2569 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2570 SCO specific identifier in the .notes section to satisfy the SCO
2573 This looks more complicated than it really is. As opposed to the
2574 "obvious" solution, this should handle the cross dev cases
2575 correctly. (i.e, hosting on a 64 bit big endian processor, but
2576 generating SCO Elf code) Efficiency isn't a concern, as there
2577 should be exactly one of these sections per object module.
2579 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2582 int_32 namesz = 4 ; Name size
2583 int_32 descsz = 12 ; Descriptive information
2585 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2586 int_32 version = (major ver # << 16) | version of tools ;
2587 int_32 source = (tool_id << 16 ) | 1 ;
2588 int_32 info = 0 ; These are set by the SCO tools, but we
2589 don't know enough about the source
2590 environment to set them. SCO ld currently
2591 ignores them, and recommends we set them
2594 #define SCO_MAJOR_VERSION 0x1
2595 #define SCO_MINOR_VERSION 0x1
2605 asection
*seg
= now_seg
;
2606 subsegT subseg
= now_subseg
;
2607 Elf_Internal_Note i_note
;
2608 Elf_External_Note e_note
;
2609 asection
*note_secp
= NULL
;
2612 /* create the .note section */
2614 note_secp
= subseg_new (".note", 0);
2615 bfd_set_section_flags (stdoutput
,
2617 SEC_HAS_CONTENTS
| SEC_READONLY
);
2619 /* process the version string */
2622 i_note
.descsz
= 12; /* 12 descriptive bytes */
2623 i_note
.type
= NT_VERSION
; /* Contains a version string */
2625 p
= frag_more (sizeof (i_note
.namesz
));
2626 md_number_to_chars (p
, i_note
.namesz
, 4);
2628 p
= frag_more (sizeof (i_note
.descsz
));
2629 md_number_to_chars (p
, i_note
.descsz
, 4);
2631 p
= frag_more (sizeof (i_note
.type
));
2632 md_number_to_chars (p
, i_note
.type
, 4);
2637 /* Note: this is the version number of the ELF we're representing */
2639 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2641 /* Here, we pick a magic number for ourselves (yes, I "registered"
2642 it with SCO. The bottom bit shows that we are compat with the
2645 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2647 /* If we knew (or cared) what the source language options were, we'd
2648 fill them in here. SCO has given us permission to ignore these
2649 and just set them to zero. */
2651 md_number_to_chars (p
, 0x0000, 4);
2653 frag_align (2, 0, 0);
2655 /* We probably can't restore the current segment, for there likely
2658 subseg_set (seg
, subseg
);
2662 #endif /* SCO_ELF */
2665 elf_generate_asm_lineno (void)
2667 #ifdef NEED_ECOFF_DEBUG
2668 if (ECOFF_DEBUGGING
)
2669 ecoff_generate_asm_lineno ();
2674 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2675 int what ATTRIBUTE_UNUSED
,
2676 const char *string ATTRIBUTE_UNUSED
,
2677 int type ATTRIBUTE_UNUSED
,
2678 int other ATTRIBUTE_UNUSED
,
2679 int desc ATTRIBUTE_UNUSED
)
2681 #ifdef NEED_ECOFF_DEBUG
2682 if (ECOFF_DEBUGGING
)
2683 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2688 elf_separate_stab_sections (void)
2690 #ifdef NEED_ECOFF_DEBUG
2691 return (!ECOFF_DEBUGGING
);
2698 elf_init_stab_section (segT seg
)
2700 #ifdef NEED_ECOFF_DEBUG
2701 if (!ECOFF_DEBUGGING
)
2703 obj_elf_init_stab_section (seg
);
2706 const struct format_ops elf_format_ops
=
2708 bfd_target_elf_flavour
,
2709 0, /* dfl_leading_underscore */
2710 1, /* emit_section_symbols */
2715 elf_frob_file_before_adjust
,
2716 0, /* obj_frob_file_before_fix */
2717 elf_frob_file_after_relocs
,
2718 elf_s_get_size
, elf_s_set_size
,
2719 elf_s_get_align
, elf_s_set_align
,
2726 elf_copy_symbol_attributes
,
2727 elf_generate_asm_lineno
,
2729 elf_separate_stab_sections
,
2730 elf_init_stab_section
,
2731 elf_sec_sym_ok_for_reloc
,
2733 #ifdef NEED_ECOFF_DEBUG
2736 0, /* ecoff_set_ext */
2738 elf_obj_read_begin_hook
,
2739 elf_obj_symbol_new_hook
,