1 /* ELF object file format
2 Copyright (C) 1992-2019 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 "dwarf2dbg.h"
28 #ifndef ECOFF_DEBUGGING
29 #define ECOFF_DEBUGGING 0
31 #define NEED_ECOFF_DEBUG
34 #ifdef NEED_ECOFF_DEBUG
39 #include "elf/alpha.h"
51 #include "elf/x86-64.h"
59 #include "elf/nios2.h"
66 static void obj_elf_line (int);
67 static void obj_elf_size (int);
68 static void obj_elf_type (int);
69 static void obj_elf_ident (int);
70 static void obj_elf_weak (int);
71 static void obj_elf_local (int);
72 static void obj_elf_visibility (int);
73 static void obj_elf_symver (int);
74 static void obj_elf_subsection (int);
75 static void obj_elf_popsection (int);
76 static void obj_elf_gnu_attribute (int);
77 static void obj_elf_tls_common (int);
78 static void obj_elf_lcomm (int);
79 static void obj_elf_struct (int);
81 static const pseudo_typeS elf_pseudo_table
[] =
83 {"comm", obj_elf_common
, 0},
84 {"common", obj_elf_common
, 1},
85 {"ident", obj_elf_ident
, 0},
86 {"lcomm", obj_elf_lcomm
, 0},
87 {"local", obj_elf_local
, 0},
88 {"previous", obj_elf_previous
, 0},
89 {"section", obj_elf_section
, 0},
90 {"section.s", obj_elf_section
, 0},
91 {"sect", obj_elf_section
, 0},
92 {"sect.s", obj_elf_section
, 0},
93 {"pushsection", obj_elf_section
, 1},
94 {"popsection", obj_elf_popsection
, 0},
95 {"size", obj_elf_size
, 0},
96 {"type", obj_elf_type
, 0},
97 {"version", obj_elf_version
, 0},
98 {"weak", obj_elf_weak
, 0},
100 /* These define symbol visibility. */
101 {"internal", obj_elf_visibility
, STV_INTERNAL
},
102 {"hidden", obj_elf_visibility
, STV_HIDDEN
},
103 {"protected", obj_elf_visibility
, STV_PROTECTED
},
105 /* These are used for stabs-in-elf configurations. */
106 {"line", obj_elf_line
, 0},
108 /* This is a GNU extension to handle symbol versions. */
109 {"symver", obj_elf_symver
, 0},
111 /* A GNU extension to change subsection only. */
112 {"subsection", obj_elf_subsection
, 0},
114 /* These are GNU extensions to aid in garbage collecting C++ vtables. */
115 {"vtable_inherit", obj_elf_vtable_inherit
, 0},
116 {"vtable_entry", obj_elf_vtable_entry
, 0},
118 /* A GNU extension for object attributes. */
119 {"gnu_attribute", obj_elf_gnu_attribute
, 0},
121 /* These are used for dwarf. */
125 /* These are used for dwarf2. */
126 { "file", dwarf2_directive_file
, 0 },
127 { "loc", dwarf2_directive_loc
, 0 },
128 { "loc_mark_labels", dwarf2_directive_loc_mark_labels
, 0 },
130 /* We need to trap the section changing calls to handle .previous. */
131 {"data", obj_elf_data
, 0},
132 {"offset", obj_elf_struct
, 0},
133 {"struct", obj_elf_struct
, 0},
134 {"text", obj_elf_text
, 0},
136 {"tls_common", obj_elf_tls_common
, 0},
142 static const pseudo_typeS ecoff_debug_pseudo_table
[] =
144 #ifdef NEED_ECOFF_DEBUG
145 /* COFF style debugging information for ECOFF. .ln is not used; .loc
147 { "def", ecoff_directive_def
, 0 },
148 { "dim", ecoff_directive_dim
, 0 },
149 { "endef", ecoff_directive_endef
, 0 },
150 { "file", ecoff_directive_file
, 0 },
151 { "scl", ecoff_directive_scl
, 0 },
152 { "tag", ecoff_directive_tag
, 0 },
153 { "val", ecoff_directive_val
, 0 },
155 /* COFF debugging requires pseudo-ops .size and .type, but ELF
156 already has meanings for those. We use .esize and .etype
157 instead. These are only generated by gcc anyhow. */
158 { "esize", ecoff_directive_size
, 0 },
159 { "etype", ecoff_directive_type
, 0 },
161 /* ECOFF specific debugging information. */
162 { "aent", ecoff_directive_ent
, 1 },
163 { "begin", ecoff_directive_begin
, 0 },
164 { "bend", ecoff_directive_bend
, 0 },
165 { "end", ecoff_directive_end
, 0 },
166 { "ent", ecoff_directive_ent
, 0 },
167 { "fmask", ecoff_directive_fmask
, 0 },
168 { "frame", ecoff_directive_frame
, 0 },
169 { "loc", ecoff_directive_loc
, 0 },
170 { "mask", ecoff_directive_mask
, 0 },
172 /* Other ECOFF directives. */
173 { "extern", ecoff_directive_extern
, 0 },
175 /* These are used on Irix. I don't know how to implement them. */
176 { "alias", s_ignore
, 0 },
177 { "bgnb", s_ignore
, 0 },
178 { "endb", s_ignore
, 0 },
179 { "lab", s_ignore
, 0 },
180 { "noalias", s_ignore
, 0 },
181 { "verstamp", s_ignore
, 0 },
182 { "vreg", s_ignore
, 0 },
185 {NULL
, NULL
, 0} /* end sentinel */
189 #include "aout/aout64.h"
191 /* This is called when the assembler starts. */
193 asection
*elf_com_section_ptr
;
200 /* Add symbols for the known sections to the symbol table. */
201 s
= bfd_get_section_by_name (stdoutput
, TEXT_SECTION_NAME
);
202 symbol_table_insert (section_symbol (s
));
203 s
= bfd_get_section_by_name (stdoutput
, DATA_SECTION_NAME
);
204 symbol_table_insert (section_symbol (s
));
205 s
= bfd_get_section_by_name (stdoutput
, BSS_SECTION_NAME
);
206 symbol_table_insert (section_symbol (s
));
207 elf_com_section_ptr
= bfd_com_section_ptr
;
211 elf_pop_insert (void)
213 pop_insert (elf_pseudo_table
);
215 pop_insert (ecoff_debug_pseudo_table
);
219 elf_s_get_size (symbolS
*sym
)
221 return S_GET_SIZE (sym
);
225 elf_s_set_size (symbolS
*sym
, bfd_vma sz
)
227 S_SET_SIZE (sym
, sz
);
231 elf_s_get_align (symbolS
*sym
)
233 return S_GET_ALIGN (sym
);
237 elf_s_set_align (symbolS
*sym
, bfd_vma align
)
239 S_SET_ALIGN (sym
, align
);
243 elf_s_get_other (symbolS
*sym
)
245 return elf_symbol (symbol_get_bfdsym (sym
))->internal_elf_sym
.st_other
;
249 elf_s_set_other (symbolS
*sym
, int other
)
251 S_SET_OTHER (sym
, other
);
255 elf_sec_sym_ok_for_reloc (asection
*sec
)
257 return obj_sec_sym_ok_for_reloc (sec
);
261 elf_file_symbol (const char *s
, int appfile
)
266 || symbol_rootP
== NULL
267 || (bsym
= symbol_get_bfdsym (symbol_rootP
)) == NULL
268 || (bsym
->flags
& BSF_FILE
) == 0)
273 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
274 symbol_set_frag (sym
, &zero_address_frag
);
276 name_length
= strlen (s
);
277 if (name_length
> strlen (S_GET_NAME (sym
)))
279 obstack_grow (¬es
, s
, name_length
+ 1);
280 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
283 strcpy ((char *) S_GET_NAME (sym
), s
);
285 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
287 if (symbol_rootP
!= sym
288 && ((bsym
= symbol_get_bfdsym (symbol_rootP
)) == NULL
289 || (bsym
->flags
& BSF_FILE
) == 0))
291 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
292 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
296 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
300 #ifdef NEED_ECOFF_DEBUG
301 ecoff_new_file (s
, appfile
);
305 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
306 Parse a possible alignment value. */
309 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
312 int is_local
= symbol_get_obj (symbolP
)->local
;
314 if (*input_line_pointer
== ',')
316 char *save
= input_line_pointer
;
318 input_line_pointer
++;
321 if (*input_line_pointer
== '"')
323 /* For sparc. Accept .common symbol, length, "bss" */
324 input_line_pointer
++;
325 /* Some use the dot, some don't. */
326 if (*input_line_pointer
== '.')
327 input_line_pointer
++;
328 /* Some say data, some say bss. */
329 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
330 input_line_pointer
+= 4;
331 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
332 input_line_pointer
+= 5;
335 char *p
= input_line_pointer
;
340 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
341 if (*input_line_pointer
++ == '"')
343 c
= *input_line_pointer
;
344 *input_line_pointer
= '\0';
345 as_bad (_("bad .common segment %s"), p
);
346 *input_line_pointer
= c
;
347 ignore_rest_of_line ();
350 /* ??? Don't ask me why these are always global. */
355 input_line_pointer
= save
;
356 align
= parse_align (is_local
);
357 if (align
== (addressT
) -1)
364 bss_alloc (symbolP
, size
, align
);
365 S_CLEAR_EXTERNAL (symbolP
);
369 S_SET_VALUE (symbolP
, size
);
370 S_SET_ALIGN (symbolP
, align
);
371 S_SET_EXTERNAL (symbolP
);
372 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
375 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
381 obj_elf_common (int is_common
)
383 if (flag_mri
&& is_common
)
386 s_comm_internal (0, elf_common_parse
);
390 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
392 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
395 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
399 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
401 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
404 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
408 get_sym_from_input_line_and_check (void)
414 c
= get_symbol_name (& name
);
415 sym
= symbol_find_or_make (name
);
416 *input_line_pointer
= c
;
417 SKIP_WHITESPACE_AFTER_NAME ();
419 /* There is no symbol name if input_line_pointer has not moved. */
420 if (name
== input_line_pointer
)
421 as_bad (_("Missing symbol name in directive"));
426 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
433 symbolP
= get_sym_from_input_line_and_check ();
434 c
= *input_line_pointer
;
435 S_CLEAR_EXTERNAL (symbolP
);
436 symbol_get_obj (symbolP
)->local
= 1;
439 input_line_pointer
++;
441 if (*input_line_pointer
== '\n')
446 demand_empty_rest_of_line ();
450 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
457 symbolP
= get_sym_from_input_line_and_check ();
458 c
= *input_line_pointer
;
459 S_SET_WEAK (symbolP
);
462 input_line_pointer
++;
464 if (*input_line_pointer
== '\n')
469 demand_empty_rest_of_line ();
473 obj_elf_visibility (int visibility
)
478 elf_symbol_type
*elfsym
;
482 symbolP
= get_sym_from_input_line_and_check ();
484 bfdsym
= symbol_get_bfdsym (symbolP
);
485 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
489 elfsym
->internal_elf_sym
.st_other
&= ~3;
490 elfsym
->internal_elf_sym
.st_other
|= visibility
;
492 c
= *input_line_pointer
;
495 input_line_pointer
++;
499 if (*input_line_pointer
== '\n')
505 demand_empty_rest_of_line ();
508 static segT previous_section
;
509 static int previous_subsection
;
513 struct section_stack
*next
;
515 int subseg
, prev_subseg
;
518 static struct section_stack
*section_stack
;
520 /* Match both section group name and the sh_info field. */
523 const char *group_name
;
528 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
530 struct section_match
*match
= (struct section_match
*) inf
;
531 const char *gname
= match
->group_name
;
532 const char *group_name
= elf_group_name (sec
);
533 unsigned int info
= elf_section_data (sec
)->this_hdr
.sh_info
;
535 return (info
== match
->info
536 && (group_name
== gname
537 || (group_name
!= NULL
539 && strcmp (group_name
, gname
) == 0)));
542 /* Handle the .section pseudo-op. This code supports two different
545 The first is found on Solaris, and looks like
546 .section ".sec1",#alloc,#execinstr,#write
547 Here the names after '#' are the SHF_* flags to turn on for the
548 section. I'm not sure how it determines the SHT_* type (BFD
549 doesn't really give us control over the type, anyhow).
551 The second format is found on UnixWare, and probably most SVR4
552 machines, and looks like
553 .section .sec1,"a",@progbits
554 The quoted string may contain any combination of a, w, x, and
555 represents the SHF_* flags to turn on for the section. The string
556 beginning with '@' can be progbits or nobits. There should be
557 other possibilities, but I don't know what they are. In any case,
558 BFD doesn't really let us set the section type. */
561 obj_elf_change_section (const char *name
,
566 const char *group_name
,
573 const struct elf_backend_data
*bed
;
574 const struct bfd_elf_special_section
*ssect
;
575 struct section_match match
;
577 #ifdef md_flush_pending_output
578 md_flush_pending_output ();
581 /* Switch to the section, creating it if necessary. */
584 struct section_stack
*elt
;
585 elt
= XNEW (struct section_stack
);
586 elt
->next
= section_stack
;
588 elt
->prev_seg
= previous_section
;
589 elt
->subseg
= now_subseg
;
590 elt
->prev_subseg
= previous_subsection
;
593 previous_section
= now_seg
;
594 previous_subsection
= now_subseg
;
596 match
.group_name
= group_name
;
598 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
606 sec
= subseg_force_new (name
, 0);
608 bed
= get_elf_backend_data (stdoutput
);
609 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
613 bfd_boolean override
= FALSE
;
615 if (type
== SHT_NULL
)
617 else if (type
!= ssect
->type
)
620 /* Some older versions of gcc will emit
622 .section .init_array,"aw",@progbits
624 for __attribute__ ((section (".init_array"))).
625 "@progbits" is incorrect. Also for x86-64 large bss
626 sections, some older versions of gcc will emit
628 .section .lbss,"aw",@progbits
630 "@progbits" is incorrect. */
632 && (bed
->s
->arch_size
!= 64
633 || !(ssect
->attr
& SHF_X86_64_LARGE
))
635 && ssect
->type
!= SHT_INIT_ARRAY
636 && ssect
->type
!= SHT_FINI_ARRAY
637 && ssect
->type
!= SHT_PREINIT_ARRAY
)
639 /* We allow to specify any type for a .note section. */
640 if (ssect
->type
!= SHT_NOTE
641 /* Processor and application defined types are allowed too. */
642 && type
< SHT_LOPROC
)
643 as_warn (_("setting incorrect section type for %s"),
648 as_warn (_("ignoring incorrect section type for %s"),
654 if (old_sec
== NULL
&& ((attr
& ~(SHF_MASKOS
| SHF_MASKPROC
))
655 & ~ssect
->attr
) != 0)
657 /* As a GNU extension, we permit a .note section to be
658 allocatable. If the linker sees an allocatable .note
659 section, it will create a PT_NOTE segment in the output
660 file. We also allow "x" for .note.GNU-stack. */
661 if (ssect
->type
== SHT_NOTE
662 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
664 /* Allow different SHF_MERGE and SHF_STRINGS if we have
665 something like .rodata.str. */
666 else if (ssect
->suffix_length
== -2
667 && name
[ssect
->prefix_length
] == '.'
671 & ~SHF_STRINGS
) == 0)
673 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
674 else if (attr
== SHF_ALLOC
675 && (strcmp (name
, ".interp") == 0
676 || strcmp (name
, ".strtab") == 0
677 || strcmp (name
, ".symtab") == 0))
679 /* .note.GNU-stack can have SHF_EXECINSTR. */
680 else if (attr
== SHF_EXECINSTR
681 && strcmp (name
, ".note.GNU-stack") == 0)
684 /* A section on Alpha may have SHF_ALPHA_GPREL. */
685 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
689 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
690 && (ssect
->type
== SHT_INIT_ARRAY
691 || ssect
->type
== SHT_FINI_ARRAY
692 || ssect
->type
== SHT_PREINIT_ARRAY
))
693 /* RX init/fini arrays can and should have the "awx" attributes set. */
698 if (group_name
== NULL
)
699 as_warn (_("setting incorrect section attributes for %s"),
705 if (!override
&& old_sec
== NULL
)
709 /* Convert ELF type and flags to BFD flags. */
711 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
712 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
713 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
714 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
715 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
716 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
717 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
718 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
719 #ifdef md_elf_section_flags
720 flags
= md_elf_section_flags (flags
, attr
, type
);
724 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
730 if (type
== SHT_NULL
)
731 type
= bfd_elf_get_default_section_type (flags
);
732 elf_section_type (sec
) = type
;
733 elf_section_flags (sec
) = attr
;
734 elf_section_data (sec
)->this_hdr
.sh_info
= info
;
736 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
737 if (type
== SHT_NOBITS
)
738 seg_info (sec
)->bss
= 1;
740 bfd_set_section_flags (stdoutput
, sec
, flags
);
741 if (flags
& SEC_MERGE
)
742 sec
->entsize
= entsize
;
743 elf_group_name (sec
) = group_name
;
745 /* Add a symbol for this section to the symbol table. */
746 secsym
= symbol_find (name
);
748 symbol_set_bfdsym (secsym
, sec
->symbol
);
750 symbol_table_insert (section_symbol (sec
));
755 && (unsigned) type
!= elf_section_type (old_sec
))
756 as_warn (_("ignoring changed section type for %s"), name
);
760 /* If section attributes are specified the second time we see a
761 particular section, then check that they are the same as we
762 saw the first time. */
763 if (((old_sec
->flags
^ flags
)
764 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
765 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
766 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
767 | SEC_THREAD_LOCAL
)))
768 as_warn (_("ignoring changed section attributes for %s"), name
);
770 /* FIXME: Maybe we should consider removing a previously set
771 processor or application specific attribute as suspicious ? */
772 elf_section_flags (sec
) = attr
;
774 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
775 as_warn (_("ignoring changed section entity size for %s"), name
);
779 #ifdef md_elf_section_change_hook
780 md_elf_section_change_hook ();
785 obj_elf_parse_section_letters (char *str
, size_t len
,
786 bfd_boolean
*is_clone
, bfd_vma
*gnu_attr
)
805 attr
|= SHF_EXECINSTR
;
820 *gnu_attr
|= SHF_GNU_MBIND
;
827 if (*(str
- 1) == 'a')
830 if (len
> 1 && str
[1] == 's')
840 const char *bad_msg
= _("unrecognized .section attribute:"
841 " want a,e,w,x,M,S,G,T or number");
842 #ifdef md_elf_section_letter
843 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
844 if (md_attr
!= (bfd_vma
) -1)
852 attr
|= strtoul (str
, & end
, 0);
853 /* Update str and len, allowing for the fact that
854 we will execute str++ and len-- below. */
860 as_fatal ("%s", bad_msg
);
871 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
873 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
875 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
877 if (len
== 4 && strncmp (str
, "note", 4) == 0)
879 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
880 return SHT_INIT_ARRAY
;
881 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
882 return SHT_FINI_ARRAY
;
883 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
884 return SHT_PREINIT_ARRAY
;
886 #ifdef md_elf_section_type
888 int md_type
= md_elf_section_type (str
, len
);
897 int type
= strtoul (str
, & end
, 0);
899 if (warn
&& (size_t) (end
- str
) != len
)
900 as_warn (_("extraneous characters at end of numeric section type"));
906 as_warn (_("unrecognized section type"));
911 obj_elf_section_word (char *str
, size_t len
, int *type
)
915 if (len
== 5 && strncmp (str
, "write", 5) == 0)
917 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
919 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
920 return SHF_EXECINSTR
;
921 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
923 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
926 #ifdef md_elf_section_word
928 bfd_vma md_attr
= md_elf_section_word (str
, len
);
934 ret
= obj_elf_section_type (str
, len
, FALSE
);
938 as_warn (_("unrecognized section attribute"));
943 /* Get name of section. */
945 obj_elf_section_name (void)
950 if (*input_line_pointer
== '"')
954 name
= demand_copy_C_string (&dummy
);
957 ignore_rest_of_line ();
963 char *end
= input_line_pointer
;
965 while (0 == strchr ("\n\t,; ", *end
))
967 if (end
== input_line_pointer
)
969 as_bad (_("missing name"));
970 ignore_rest_of_line ();
974 name
= xmemdup0 (input_line_pointer
, end
- input_line_pointer
);
976 while (flag_sectname_subst
)
978 char *subst
= strchr (name
, '%');
979 if (subst
&& subst
[1] == 'S')
981 int oldlen
= strlen (name
);
982 int substlen
= strlen (now_seg
->name
);
983 int newlen
= oldlen
- 2 + substlen
;
984 char *newname
= XNEWVEC (char, newlen
+ 1);
985 int headlen
= subst
- name
;
986 memcpy (newname
, name
, headlen
);
987 strcpy (newname
+ headlen
, now_seg
->name
);
988 strcat (newname
+ headlen
, subst
+ 2);
996 #ifdef tc_canonicalize_section_name
997 name
= tc_canonicalize_section_name (name
);
999 input_line_pointer
= end
;
1006 obj_elf_section (int push
)
1008 const char *name
, *group_name
;
1015 subsegT new_subsection
= -1;
1016 unsigned int info
= 0;
1022 #ifdef md_flush_pending_output
1023 md_flush_pending_output ();
1026 previous_section
= now_seg
;
1027 previous_subsection
= now_subseg
;
1029 s_mri_sect (&mri_type
);
1031 #ifdef md_elf_section_change_hook
1032 md_elf_section_change_hook ();
1038 name
= obj_elf_section_name ();
1048 if (*input_line_pointer
== ',')
1050 /* Skip the comma. */
1051 ++input_line_pointer
;
1054 if (push
&& ISDIGIT (*input_line_pointer
))
1056 /* .pushsection has an optional subsection. */
1057 new_subsection
= (subsegT
) get_absolute_expression ();
1061 /* Stop if we don't see a comma. */
1062 if (*input_line_pointer
!= ',')
1065 /* Skip the comma. */
1066 ++input_line_pointer
;
1070 if (*input_line_pointer
== '"')
1072 bfd_boolean is_clone
;
1074 beg
= demand_copy_C_string (&dummy
);
1077 ignore_rest_of_line ();
1080 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
),
1081 &is_clone
, &gnu_attr
);
1084 if (*input_line_pointer
== ',')
1087 char *save
= input_line_pointer
;
1089 ++input_line_pointer
;
1091 c
= *input_line_pointer
;
1094 beg
= demand_copy_C_string (&dummy
);
1097 ignore_rest_of_line ();
1100 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1102 else if (c
== '@' || c
== '%')
1104 ++input_line_pointer
;
1106 if (ISDIGIT (* input_line_pointer
))
1107 type
= strtoul (input_line_pointer
, &input_line_pointer
, 0);
1110 c
= get_symbol_name (& beg
);
1111 (void) restore_line_pointer (c
);
1112 type
= obj_elf_section_type (beg
,
1113 input_line_pointer
- beg
,
1118 input_line_pointer
= save
;
1122 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1124 ++input_line_pointer
;
1126 entsize
= get_absolute_expression ();
1130 as_warn (_("invalid merge entity size"));
1135 else if ((attr
& SHF_MERGE
) != 0)
1137 as_warn (_("entity size for SHF_MERGE not specified"));
1141 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1143 as_warn (_("? section flag ignored with G present"));
1146 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1148 ++input_line_pointer
;
1149 group_name
= obj_elf_section_name ();
1150 if (group_name
== NULL
)
1152 else if (*input_line_pointer
== ',')
1154 ++input_line_pointer
;
1156 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1158 input_line_pointer
+= 6;
1162 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1165 else if ((attr
& SHF_GROUP
) != 0)
1167 as_warn (_("group name for SHF_GROUP not specified"));
1173 const char *now_group
= elf_group_name (now_seg
);
1174 if (now_group
!= NULL
)
1176 group_name
= xstrdup (now_group
);
1177 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1181 if ((gnu_attr
& SHF_GNU_MBIND
) != 0 && *input_line_pointer
== ',')
1183 ++input_line_pointer
;
1185 if (ISDIGIT (* input_line_pointer
))
1187 char *t
= input_line_pointer
;
1188 info
= strtoul (input_line_pointer
,
1189 &input_line_pointer
, 0);
1190 if (info
== (unsigned int) -1)
1192 as_warn (_("unsupported mbind section info: %s"), t
);
1205 if (*input_line_pointer
!= '#')
1207 as_bad (_("character following name is not '#'"));
1208 ignore_rest_of_line ();
1211 ++input_line_pointer
;
1212 c
= get_symbol_name (& beg
);
1213 (void) restore_line_pointer (c
);
1215 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
,
1220 while (*input_line_pointer
++ == ',');
1221 --input_line_pointer
;
1226 demand_empty_rest_of_line ();
1228 obj_elf_change_section (name
, type
, info
, attr
, entsize
, group_name
,
1231 if ((gnu_attr
& SHF_GNU_MBIND
) != 0)
1233 struct elf_backend_data
*bed
;
1235 if ((attr
& SHF_ALLOC
) == 0)
1236 as_bad (_("SHF_ALLOC isn't set for GNU_MBIND section: %s"), name
);
1238 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1239 if (bed
->elf_osabi
== ELFOSABI_NONE
)
1240 bed
->elf_osabi
= ELFOSABI_GNU
;
1241 else if (bed
->elf_osabi
!= ELFOSABI_GNU
1242 && bed
->elf_osabi
!= ELFOSABI_FREEBSD
)
1243 as_bad (_("GNU_MBIND section is supported only by GNU "
1244 "and FreeBSD targets"));
1245 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_mbind
;
1247 elf_section_flags (now_seg
) |= gnu_attr
;
1249 if (push
&& new_subsection
!= -1)
1250 subseg_set (now_seg
, new_subsection
);
1253 /* Change to the .data section. */
1256 obj_elf_data (int i
)
1258 #ifdef md_flush_pending_output
1259 md_flush_pending_output ();
1262 previous_section
= now_seg
;
1263 previous_subsection
= now_subseg
;
1266 #ifdef md_elf_section_change_hook
1267 md_elf_section_change_hook ();
1271 /* Change to the .text section. */
1274 obj_elf_text (int i
)
1276 #ifdef md_flush_pending_output
1277 md_flush_pending_output ();
1280 previous_section
= now_seg
;
1281 previous_subsection
= now_subseg
;
1284 #ifdef md_elf_section_change_hook
1285 md_elf_section_change_hook ();
1289 /* Change to the *ABS* section. */
1292 obj_elf_struct (int i
)
1294 #ifdef md_flush_pending_output
1295 md_flush_pending_output ();
1298 previous_section
= now_seg
;
1299 previous_subsection
= now_subseg
;
1302 #ifdef md_elf_section_change_hook
1303 md_elf_section_change_hook ();
1308 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1312 #ifdef md_flush_pending_output
1313 md_flush_pending_output ();
1316 previous_section
= now_seg
;
1317 previous_subsection
= now_subseg
;
1319 temp
= get_absolute_expression ();
1320 subseg_set (now_seg
, (subsegT
) temp
);
1321 demand_empty_rest_of_line ();
1323 #ifdef md_elf_section_change_hook
1324 md_elf_section_change_hook ();
1328 /* This can be called from the processor backends if they change
1332 obj_elf_section_change_hook (void)
1334 previous_section
= now_seg
;
1335 previous_subsection
= now_subseg
;
1339 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1344 if (previous_section
== 0)
1346 as_warn (_(".previous without corresponding .section; ignored"));
1350 #ifdef md_flush_pending_output
1351 md_flush_pending_output ();
1354 new_section
= previous_section
;
1355 new_subsection
= previous_subsection
;
1356 previous_section
= now_seg
;
1357 previous_subsection
= now_subseg
;
1358 subseg_set (new_section
, new_subsection
);
1360 #ifdef md_elf_section_change_hook
1361 md_elf_section_change_hook ();
1366 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1368 struct section_stack
*top
= section_stack
;
1372 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1376 #ifdef md_flush_pending_output
1377 md_flush_pending_output ();
1380 section_stack
= top
->next
;
1381 previous_section
= top
->prev_seg
;
1382 previous_subsection
= top
->prev_subseg
;
1383 subseg_set (top
->seg
, top
->subseg
);
1386 #ifdef md_elf_section_change_hook
1387 md_elf_section_change_hook ();
1392 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1394 /* Assume delimiter is part of expression. BSD4.2 as fails with
1395 delightful bug, so we are not being incompatible here. */
1396 new_logical_line (NULL
, get_absolute_expression ());
1397 demand_empty_rest_of_line ();
1400 /* This handles the .symver pseudo-op, which is used to specify a
1401 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1402 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1403 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1404 with the same value as the symbol NAME. */
1407 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1414 sym
= get_sym_from_input_line_and_check ();
1416 if (*input_line_pointer
!= ',')
1418 as_bad (_("expected comma after name in .symver"));
1419 ignore_rest_of_line ();
1423 ++input_line_pointer
;
1426 /* Temporarily include '@' in symbol names. */
1427 old_lexat
= lex_type
[(unsigned char) '@'];
1428 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1429 c
= get_symbol_name (& name
);
1430 lex_type
[(unsigned char) '@'] = old_lexat
;
1432 if (S_IS_COMMON (sym
))
1434 as_bad (_("`%s' can't be versioned to common symbol '%s'"),
1435 name
, S_GET_NAME (sym
));
1436 ignore_rest_of_line ();
1440 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1442 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1444 (void) restore_line_pointer (c
);
1446 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1447 ELF_VER_CHR
) == NULL
)
1449 as_bad (_("missing version name in `%s' for symbol `%s'"),
1450 symbol_get_obj (sym
)->versioned_name
,
1452 ignore_rest_of_line ();
1458 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1460 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1461 name
, symbol_get_obj (sym
)->versioned_name
,
1463 ignore_rest_of_line ();
1467 (void) restore_line_pointer (c
);
1470 demand_empty_rest_of_line ();
1473 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1474 to the linker the hierarchy in which a particular table resides. The
1475 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1478 obj_elf_get_vtable_inherit (void)
1480 char *cname
, *pname
;
1481 symbolS
*csym
, *psym
;
1484 if (*input_line_pointer
== '#')
1485 ++input_line_pointer
;
1487 c
= get_symbol_name (& cname
);
1488 csym
= symbol_find (cname
);
1490 /* GCFIXME: should check that we don't have two .vtable_inherits for
1491 the same child symbol. Also, we can currently only do this if the
1492 child symbol is already exists and is placed in a fragment. */
1494 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1496 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1501 *input_line_pointer
= c
;
1503 SKIP_WHITESPACE_AFTER_NAME ();
1504 if (*input_line_pointer
!= ',')
1506 as_bad (_("expected comma after name in .vtable_inherit"));
1507 ignore_rest_of_line ();
1511 ++input_line_pointer
;
1514 if (*input_line_pointer
== '#')
1515 ++input_line_pointer
;
1517 if (input_line_pointer
[0] == '0'
1518 && (input_line_pointer
[1] == '\0'
1519 || ISSPACE (input_line_pointer
[1])))
1521 psym
= section_symbol (absolute_section
);
1522 ++input_line_pointer
;
1526 c
= get_symbol_name (& pname
);
1527 psym
= symbol_find_or_make (pname
);
1528 restore_line_pointer (c
);
1531 demand_empty_rest_of_line ();
1536 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1537 return fix_new (symbol_get_frag (csym
),
1538 symbol_get_value_expression (csym
)->X_add_number
,
1539 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1542 /* This is a version of obj_elf_get_vtable_inherit() that is
1543 suitable for use in struct _pseudo_type tables. */
1546 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1548 (void) obj_elf_get_vtable_inherit ();
1551 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1552 to the linker that a vtable slot was used. The syntax is
1553 ".vtable_entry tablename, offset". */
1556 obj_elf_get_vtable_entry (void)
1561 if (*input_line_pointer
== '#')
1562 ++input_line_pointer
;
1564 sym
= get_sym_from_input_line_and_check ();
1565 if (*input_line_pointer
!= ',')
1567 as_bad (_("expected comma after name in .vtable_entry"));
1568 ignore_rest_of_line ();
1572 ++input_line_pointer
;
1573 if (*input_line_pointer
== '#')
1574 ++input_line_pointer
;
1576 offset
= get_absolute_expression ();
1578 demand_empty_rest_of_line ();
1580 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1581 BFD_RELOC_VTABLE_ENTRY
);
1584 /* This is a version of obj_elf_get_vtable_entry() that is
1585 suitable for use in struct _pseudo_type tables. */
1588 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1590 (void) obj_elf_get_vtable_entry ();
1593 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1596 skip_past_char (char ** str
, char c
)
1606 #define skip_past_comma(str) skip_past_char (str, ',')
1608 /* A list of attributes that have been explicitly set by the assembly code.
1609 VENDOR is the vendor id, BASE is the tag shifted right by the number
1610 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1611 struct recorded_attribute_info
{
1612 struct recorded_attribute_info
*next
;
1617 static struct recorded_attribute_info
*recorded_attributes
;
1619 /* Record that we have seen an explicit specification of attribute TAG
1620 for vendor VENDOR. */
1623 record_attribute (int vendor
, unsigned int tag
)
1627 struct recorded_attribute_info
*rai
;
1629 base
= tag
/ (8 * sizeof (rai
->mask
));
1630 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1631 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1632 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1638 rai
= XNEW (struct recorded_attribute_info
);
1639 rai
->next
= recorded_attributes
;
1640 rai
->vendor
= vendor
;
1643 recorded_attributes
= rai
;
1646 /* Return true if we have seen an explicit specification of attribute TAG
1647 for vendor VENDOR. */
1650 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1654 struct recorded_attribute_info
*rai
;
1656 base
= tag
/ (8 * sizeof (rai
->mask
));
1657 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1658 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1659 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1660 return (rai
->mask
& mask
) != 0;
1664 /* Parse an attribute directive for VENDOR.
1665 Returns the attribute number read, or zero on error. */
1668 obj_elf_vendor_attribute (int vendor
)
1676 /* Read the first number or name. */
1677 skip_whitespace (input_line_pointer
);
1678 s
= input_line_pointer
;
1679 if (ISDIGIT (*input_line_pointer
))
1682 if (exp
.X_op
!= O_constant
)
1684 tag
= exp
.X_add_number
;
1690 /* A name may contain '_', but no other punctuation. */
1691 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1692 ++input_line_pointer
)
1697 name
= xstrndup (s
, i
);
1699 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1700 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1703 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1706 as_bad (_("Attribute name not recognised: %s"), name
);
1707 ignore_rest_of_line ();
1714 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1716 if (skip_past_comma (&input_line_pointer
) == -1)
1721 if (exp
.X_op
!= O_constant
)
1723 as_bad (_("expected numeric constant"));
1724 ignore_rest_of_line ();
1727 i
= exp
.X_add_number
;
1730 && skip_past_comma (&input_line_pointer
) == -1)
1732 as_bad (_("expected comma"));
1733 ignore_rest_of_line ();
1740 skip_whitespace (input_line_pointer
);
1741 if (*input_line_pointer
!= '"')
1743 s
= demand_copy_C_string (&len
);
1746 record_attribute (vendor
, tag
);
1750 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1753 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1756 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1762 demand_empty_rest_of_line ();
1765 as_bad (_("bad string constant"));
1766 ignore_rest_of_line ();
1769 as_bad (_("expected <tag> , <value>"));
1770 ignore_rest_of_line ();
1774 /* Parse a .gnu_attribute directive. */
1777 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1779 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1783 elf_obj_read_begin_hook (void)
1785 #ifdef NEED_ECOFF_DEBUG
1786 if (ECOFF_DEBUGGING
)
1787 ecoff_read_begin_hook ();
1792 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1794 struct elf_obj_sy
*sy_obj
;
1796 sy_obj
= symbol_get_obj (symbolP
);
1797 sy_obj
->size
= NULL
;
1798 sy_obj
->versioned_name
= NULL
;
1800 #ifdef NEED_ECOFF_DEBUG
1801 if (ECOFF_DEBUGGING
)
1802 ecoff_symbol_new_hook (symbolP
);
1806 /* When setting one symbol equal to another, by default we probably
1807 want them to have the same "size", whatever it means in the current
1811 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1813 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1814 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1817 if (destelf
->size
== NULL
)
1818 destelf
->size
= XNEW (expressionS
);
1819 *destelf
->size
= *srcelf
->size
;
1823 if (destelf
->size
!= NULL
)
1824 free (destelf
->size
);
1825 destelf
->size
= NULL
;
1827 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1828 /* Don't copy visibility. */
1829 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1830 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1834 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1839 asection
*seg
= now_seg
;
1840 subsegT subseg
= now_subseg
;
1841 Elf_Internal_Note i_note
;
1842 Elf_External_Note e_note
;
1843 asection
*note_secp
= NULL
;
1846 if (*input_line_pointer
== '\"')
1850 ++input_line_pointer
; /* -> 1st char of string. */
1851 name
= input_line_pointer
;
1853 while (is_a_char (c
= next_char_of_string ()))
1855 c
= *input_line_pointer
;
1856 *input_line_pointer
= '\0';
1857 *(input_line_pointer
- 1) = '\0';
1858 *input_line_pointer
= c
;
1860 /* Create the .note section. */
1861 note_secp
= subseg_new (".note", 0);
1862 bfd_set_section_flags (stdoutput
,
1864 SEC_HAS_CONTENTS
| SEC_READONLY
);
1865 record_alignment (note_secp
, 2);
1867 /* Process the version string. */
1868 len
= strlen (name
) + 1;
1870 /* PR 3456: Although the name field is padded out to an 4-byte
1871 boundary, the namesz field should not be adjusted. */
1872 i_note
.namesz
= len
;
1873 i_note
.descsz
= 0; /* No description. */
1874 i_note
.type
= NT_VERSION
;
1875 p
= frag_more (sizeof (e_note
.namesz
));
1876 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1877 p
= frag_more (sizeof (e_note
.descsz
));
1878 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1879 p
= frag_more (sizeof (e_note
.type
));
1880 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1881 p
= frag_more (len
);
1882 memcpy (p
, name
, len
);
1884 frag_align (2, 0, 0);
1886 subseg_set (seg
, subseg
);
1889 as_bad (_("expected quoted string"));
1891 demand_empty_rest_of_line ();
1895 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1898 char c
= get_symbol_name (&name
);
1903 p
= input_line_pointer
;
1905 SKIP_WHITESPACE_AFTER_NAME ();
1906 if (*input_line_pointer
!= ',')
1909 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1911 ignore_rest_of_line ();
1914 input_line_pointer
++;
1916 if (exp
.X_op
== O_absent
)
1918 as_bad (_("missing expression in .size directive"));
1919 exp
.X_op
= O_constant
;
1920 exp
.X_add_number
= 0;
1923 sym
= symbol_find_or_make (name
);
1925 if (exp
.X_op
== O_constant
)
1927 S_SET_SIZE (sym
, exp
.X_add_number
);
1928 if (symbol_get_obj (sym
)->size
)
1930 xfree (symbol_get_obj (sym
)->size
);
1931 symbol_get_obj (sym
)->size
= NULL
;
1936 symbol_get_obj (sym
)->size
= XNEW (expressionS
);
1937 *symbol_get_obj (sym
)->size
= exp
;
1939 demand_empty_rest_of_line ();
1942 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1943 There are six syntaxes:
1945 The first (used on Solaris) is
1947 The second (used on UnixWare) is
1949 The third (reportedly to be used on Irix 6.0) is
1951 The fourth (used on NetBSD/Arm and Linux/ARM) is
1953 The fifth (used on SVR4/860) is
1954 .type SYM,"function"
1955 The sixth (emitted by recent SunPRO under Solaris) is
1957 where the integer is the STT_* value.
1961 obj_elf_type_name (char *cp
)
1965 p
= input_line_pointer
;
1966 if (*input_line_pointer
>= '0'
1967 && *input_line_pointer
<= '9')
1969 while (*input_line_pointer
>= '0'
1970 && *input_line_pointer
<= '9')
1971 ++input_line_pointer
;
1972 *cp
= *input_line_pointer
;
1973 *input_line_pointer
= '\0';
1976 *cp
= get_symbol_name (&p
);
1982 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1986 const char *type_name
;
1988 elf_symbol_type
*elfsym
;
1990 sym
= get_sym_from_input_line_and_check ();
1991 c
= *input_line_pointer
;
1992 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1994 if (*input_line_pointer
== ',')
1995 ++input_line_pointer
;
1998 if ( *input_line_pointer
== '#'
1999 || *input_line_pointer
== '@'
2000 || *input_line_pointer
== '"'
2001 || *input_line_pointer
== '%')
2002 ++input_line_pointer
;
2004 type_name
= obj_elf_type_name (& c
);
2007 if (strcmp (type_name
, "function") == 0
2008 || strcmp (type_name
, "2") == 0
2009 || strcmp (type_name
, "STT_FUNC") == 0)
2010 type
= BSF_FUNCTION
;
2011 else if (strcmp (type_name
, "object") == 0
2012 || strcmp (type_name
, "1") == 0
2013 || strcmp (type_name
, "STT_OBJECT") == 0)
2015 else if (strcmp (type_name
, "tls_object") == 0
2016 || strcmp (type_name
, "6") == 0
2017 || strcmp (type_name
, "STT_TLS") == 0)
2018 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
2019 else if (strcmp (type_name
, "notype") == 0
2020 || strcmp (type_name
, "0") == 0
2021 || strcmp (type_name
, "STT_NOTYPE") == 0)
2023 else if (strcmp (type_name
, "common") == 0
2024 || strcmp (type_name
, "5") == 0
2025 || strcmp (type_name
, "STT_COMMON") == 0)
2029 if (! S_IS_COMMON (sym
))
2031 if (S_IS_VOLATILE (sym
))
2033 sym
= symbol_clone (sym
, 1);
2034 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2035 S_SET_VALUE (sym
, 0);
2036 S_SET_EXTERNAL (sym
);
2037 symbol_set_frag (sym
, &zero_address_frag
);
2038 S_CLEAR_VOLATILE (sym
);
2040 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
2041 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
2044 /* FIXME: Is it safe to just change the section ? */
2045 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2046 S_SET_VALUE (sym
, 0);
2047 S_SET_EXTERNAL (sym
);
2051 else if (strcmp (type_name
, "gnu_indirect_function") == 0
2052 || strcmp (type_name
, "10") == 0
2053 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
2055 struct elf_backend_data
*bed
;
2057 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2058 if (bed
->elf_osabi
== ELFOSABI_NONE
)
2059 bed
->elf_osabi
= ELFOSABI_GNU
;
2060 else if (bed
->elf_osabi
!= ELFOSABI_GNU
2061 && bed
->elf_osabi
!= ELFOSABI_FREEBSD
)
2062 as_bad (_("symbol type \"%s\" is supported only by GNU "
2063 "and FreeBSD targets"), type_name
);
2064 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_ifunc
;
2065 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
2067 else if (strcmp (type_name
, "gnu_unique_object") == 0)
2069 struct elf_backend_data
*bed
;
2071 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2072 if (bed
->elf_osabi
== ELFOSABI_NONE
)
2073 bed
->elf_osabi
= ELFOSABI_GNU
;
2074 else if (bed
->elf_osabi
!= ELFOSABI_GNU
)
2075 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
2077 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_unique
;
2078 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
2080 #ifdef md_elf_symbol_type
2081 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
2085 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
2087 *input_line_pointer
= c
;
2089 if (*input_line_pointer
== '"')
2090 ++input_line_pointer
;
2092 #ifdef md_elf_symbol_type_change
2093 if (!md_elf_symbol_type_change (sym
, elfsym
, type
))
2096 flagword mask
= BSF_FUNCTION
| BSF_OBJECT
;
2098 if (type
!= BSF_FUNCTION
)
2099 mask
|= BSF_GNU_INDIRECT_FUNCTION
;
2100 if (type
!= BSF_OBJECT
)
2102 mask
|= BSF_GNU_UNIQUE
| BSF_THREAD_LOCAL
;
2104 if (S_IS_COMMON (sym
))
2106 as_bad (_("cannot change type of common symbol '%s'"),
2112 /* Don't warn when changing to STT_NOTYPE. */
2115 flagword
new = (elfsym
->symbol
.flags
& ~mask
) | type
;
2117 if (new != (elfsym
->symbol
.flags
| type
))
2118 as_warn (_("symbol '%s' already has its type set"), S_GET_NAME (sym
));
2119 elfsym
->symbol
.flags
= new;
2122 elfsym
->symbol
.flags
&= ~mask
;
2125 demand_empty_rest_of_line ();
2129 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
2131 static segT comment_section
;
2132 segT old_section
= now_seg
;
2133 int old_subsection
= now_subseg
;
2135 #ifdef md_flush_pending_output
2136 md_flush_pending_output ();
2139 if (!comment_section
)
2142 comment_section
= subseg_new (".comment", 0);
2143 bfd_set_section_flags (stdoutput
, comment_section
,
2144 SEC_READONLY
| SEC_HAS_CONTENTS
2145 | SEC_MERGE
| SEC_STRINGS
);
2146 comment_section
->entsize
= 1;
2147 #ifdef md_elf_section_change_hook
2148 md_elf_section_change_hook ();
2154 subseg_set (comment_section
, 0);
2156 subseg_set (old_section
, old_subsection
);
2159 #ifdef INIT_STAB_SECTION
2161 /* The first entry in a .stabs section is special. */
2164 obj_elf_init_stab_section (segT seg
)
2169 unsigned int stroff
;
2171 /* Force the section to align to a longword boundary. Without this,
2172 UnixWare ar crashes. */
2173 bfd_set_section_alignment (stdoutput
, seg
, 2);
2175 /* Make space for this first symbol. */
2179 file
= as_where (NULL
);
2180 stabstr_name
= concat (segment_name (seg
), "str", (char *) NULL
);
2181 stroff
= get_stab_string_offset (file
, stabstr_name
, TRUE
);
2182 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2183 md_number_to_chars (p
, stroff
, 4);
2184 seg_info (seg
)->stabu
.p
= p
;
2189 /* Fill in the counts in the first entry in a .stabs section. */
2192 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2199 if (strncmp (".stab", sec
->name
, 5))
2201 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2204 name
= concat (sec
->name
, "str", NULL
);
2205 strsec
= bfd_get_section_by_name (abfd
, name
);
2207 strsz
= bfd_section_size (abfd
, strsec
);
2210 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
2212 p
= seg_info (sec
)->stabu
.p
;
2213 gas_assert (p
!= 0);
2215 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2216 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2220 #ifdef NEED_ECOFF_DEBUG
2222 /* This function is called by the ECOFF code. It is supposed to
2223 record the external symbol information so that the backend can
2224 write it out correctly. The ELF backend doesn't actually handle
2225 this at the moment, so we do it ourselves. We save the information
2228 #ifdef OBJ_MAYBE_ELF
2232 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2234 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2237 /* This function is called by bfd_ecoff_debug_externals. It is
2238 supposed to *EXT to the external symbol information, and return
2239 whether the symbol should be used at all. */
2242 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2244 if (sym
->udata
.p
== NULL
)
2246 *ext
= *(EXTR
*) sym
->udata
.p
;
2250 /* This function is called by bfd_ecoff_debug_externals. It has
2251 nothing to do for ELF. */
2254 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2255 bfd_size_type indx ATTRIBUTE_UNUSED
)
2259 #endif /* NEED_ECOFF_DEBUG */
2262 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2264 struct elf_obj_sy
*sy_obj
;
2267 #ifdef NEED_ECOFF_DEBUG
2268 if (ECOFF_DEBUGGING
)
2269 ecoff_frob_symbol (symp
);
2272 sy_obj
= symbol_get_obj (symp
);
2274 size
= sy_obj
->size
;
2277 if (resolve_expression (size
)
2278 && size
->X_op
== O_constant
)
2279 S_SET_SIZE (symp
, size
->X_add_number
);
2282 if (!flag_allow_nonconst_size
)
2283 as_bad (_(".size expression for %s "
2284 "does not evaluate to a constant"), S_GET_NAME (symp
));
2286 as_warn (_(".size expression for %s "
2287 "does not evaluate to a constant"), S_GET_NAME (symp
));
2289 free (sy_obj
->size
);
2290 sy_obj
->size
= NULL
;
2293 if (sy_obj
->versioned_name
!= NULL
)
2297 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
2299 /* We will have already reported an error about a missing version. */
2302 /* This symbol was given a new name with the .symver directive.
2304 If this is an external reference, just rename the symbol to
2305 include the version string. This will make the relocs be
2306 against the correct versioned symbol.
2308 If this is a definition, add an alias. FIXME: Using an alias
2309 will permit the debugging information to refer to the right
2310 symbol. However, it's not clear whether it is the best
2313 else if (! S_IS_DEFINED (symp
))
2315 /* Verify that the name isn't using the @@ syntax--this is
2316 reserved for definitions of the default version to link
2318 if (p
[1] == ELF_VER_CHR
)
2320 as_bad (_("invalid attempt to declare external version name"
2321 " as default in symbol `%s'"),
2322 sy_obj
->versioned_name
);
2325 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2329 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2333 /* The @@@ syntax is a special case. It renames the
2334 symbol name to versioned_name with one `@' removed. */
2335 l
= strlen (&p
[3]) + 1;
2336 memmove (&p
[2], &p
[3], l
);
2337 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2343 /* FIXME: Creating a new symbol here is risky. We're
2344 in the final loop over the symbol table. We can
2345 get away with it only because the symbol goes to
2346 the end of the list, where the loop will still see
2347 it. It would probably be better to do this in
2348 obj_frob_file_before_adjust. */
2350 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
2352 /* Now we act as though we saw symp2 = sym. */
2353 if (S_IS_COMMON (symp
))
2355 as_bad (_("`%s' can't be versioned to common symbol '%s'"),
2356 sy_obj
->versioned_name
, S_GET_NAME (symp
));
2361 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2363 /* Subtracting out the frag address here is a hack
2364 because we are in the middle of the final loop. */
2367 - symbol_get_frag (symp
)->fr_address
));
2369 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2371 /* This will copy over the size information. */
2372 copy_symbol_attributes (symp2
, symp
);
2374 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2376 if (S_IS_WEAK (symp
))
2379 if (S_IS_EXTERNAL (symp
))
2380 S_SET_EXTERNAL (symp2
);
2385 /* Double check weak symbols. */
2386 if (S_IS_WEAK (symp
))
2388 if (S_IS_COMMON (symp
))
2389 as_bad (_("symbol `%s' can not be both weak and common"),
2396 asection
**head
; /* Section lists. */
2397 unsigned int num_group
; /* Number of lists. */
2398 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2401 static struct group_list groups
;
2403 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2404 add it to a list of sections belonging to the group. INF is a
2405 pointer to a struct group_list, which is where we store the head of
2409 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2411 struct group_list
*list
= (struct group_list
*) inf
;
2412 const char *group_name
= elf_group_name (sec
);
2414 unsigned int *elem_idx
;
2415 unsigned int *idx_ptr
;
2417 if (group_name
== NULL
)
2420 /* If this group already has a list, add the section to the head of
2422 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2423 if (elem_idx
!= NULL
)
2425 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2426 list
->head
[*elem_idx
] = sec
;
2430 /* New group. Make the arrays bigger in chunks to minimize calls to
2432 i
= list
->num_group
;
2435 unsigned int newsize
= i
+ 128;
2436 list
->head
= XRESIZEVEC (asection
*, list
->head
, newsize
);
2438 list
->head
[i
] = sec
;
2439 list
->num_group
+= 1;
2441 /* Add index to hash. */
2442 idx_ptr
= XNEW (unsigned int);
2444 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2447 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2449 free ((unsigned int *) val
);
2452 /* Create symbols for group signature. */
2455 elf_adjust_symtab (void)
2459 /* Go find section groups. */
2460 groups
.num_group
= 0;
2462 groups
.indexes
= hash_new ();
2463 bfd_map_over_sections (stdoutput
, build_group_lists
, &groups
);
2465 /* Make the SHT_GROUP sections that describe each section group. We
2466 can't set up the section contents here yet, because elf section
2467 indices have yet to be calculated. elf.c:set_group_contents does
2468 the rest of the work. */
2469 for (i
= 0; i
< groups
.num_group
; i
++)
2471 const char *group_name
= elf_group_name (groups
.head
[i
]);
2472 const char *sec_name
;
2477 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2478 for (s
= groups
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2479 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2481 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2482 if (s
!= groups
.head
[i
])
2484 as_warn (_("assuming all members of group `%s' are COMDAT"),
2490 sec_name
= ".group";
2491 s
= subseg_force_new (sec_name
, 0);
2493 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2494 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2496 as_fatal (_("can't create group: %s"),
2497 bfd_errmsg (bfd_get_error ()));
2499 elf_section_type (s
) = SHT_GROUP
;
2501 /* Pass a pointer to the first section in this group. */
2502 elf_next_in_group (s
) = groups
.head
[i
];
2503 elf_sec_group (groups
.head
[i
]) = s
;
2504 /* Make sure that the signature symbol for the group has the
2505 name of the group. */
2506 sy
= symbol_find_exact (group_name
);
2507 if (!sy
|| !symbol_on_chain (sy
, symbol_rootP
, symbol_lastP
))
2509 /* Create the symbol now. */
2510 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2512 /* Before Solaris 11 build 154, Sun ld rejects local group
2513 signature symbols, so make them weak hidden instead. */
2514 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2515 S_SET_OTHER (sy
, STV_HIDDEN
);
2517 symbol_get_obj (sy
)->local
= 1;
2519 symbol_table_insert (sy
);
2521 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2526 elf_frob_file (void)
2528 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2530 #ifdef elf_tc_final_processing
2531 elf_tc_final_processing ();
2535 /* It removes any unneeded versioned symbols from the symbol table. */
2538 elf_frob_file_before_adjust (void)
2544 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2545 if (!S_IS_DEFINED (symp
))
2547 if (symbol_get_obj (symp
)->versioned_name
)
2551 /* The @@@ syntax is a special case. If the symbol is
2552 not defined, 2 `@'s will be removed from the
2555 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2557 if (p
!= NULL
&& p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2559 size_t l
= strlen (&p
[3]) + 1;
2560 memmove (&p
[1], &p
[3], l
);
2562 if (symbol_used_p (symp
) == 0
2563 && symbol_used_in_reloc_p (symp
) == 0)
2564 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2567 /* If there was .weak foo, but foo was neither defined nor
2568 used anywhere, remove it. */
2570 else if (S_IS_WEAK (symp
)
2571 && symbol_used_p (symp
) == 0
2572 && symbol_used_in_reloc_p (symp
) == 0)
2573 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2578 /* It is required that we let write_relocs have the opportunity to
2579 optimize away fixups before output has begun, since it is possible
2580 to eliminate all fixups for a section and thus we never should
2581 have generated the relocation section. */
2584 elf_frob_file_after_relocs (void)
2588 /* Set SHT_GROUP section size. */
2589 for (i
= 0; i
< groups
.num_group
; i
++)
2591 asection
*s
, *head
, *group
;
2594 head
= groups
.head
[i
];
2596 for (s
= head
; s
!= NULL
; s
= elf_next_in_group (s
))
2597 size
+= (s
->flags
& SEC_RELOC
) != 0 ? 8 : 4;
2599 group
= elf_sec_group (head
);
2600 subseg_set (group
, 0);
2601 bfd_set_section_size (stdoutput
, group
, size
);
2602 group
->contents
= (unsigned char *) frag_more (size
);
2603 frag_now
->fr_fix
= frag_now_fix_octets ();
2604 frag_wane (frag_now
);
2608 hash_traverse (groups
.indexes
, free_section_idx
);
2609 hash_die (groups
.indexes
);
2611 #ifdef NEED_ECOFF_DEBUG
2612 if (ECOFF_DEBUGGING
)
2613 /* Generate the ECOFF debugging information. */
2615 const struct ecoff_debug_swap
*debug_swap
;
2616 struct ecoff_debug_info debug
;
2621 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2622 know (debug_swap
!= NULL
);
2623 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2625 /* Set up the pointers in debug. */
2626 #define SET(ptr, offset, type) \
2627 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2629 SET (line
, cbLineOffset
, unsigned char *);
2630 SET (external_dnr
, cbDnOffset
, void *);
2631 SET (external_pdr
, cbPdOffset
, void *);
2632 SET (external_sym
, cbSymOffset
, void *);
2633 SET (external_opt
, cbOptOffset
, void *);
2634 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2635 SET (ss
, cbSsOffset
, char *);
2636 SET (external_fdr
, cbFdOffset
, void *);
2637 SET (external_rfd
, cbRfdOffset
, void *);
2638 /* ssext and external_ext are set up just below. */
2642 /* Set up the external symbols. */
2643 debug
.ssext
= debug
.ssext_end
= NULL
;
2644 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2645 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2646 elf_get_extr
, elf_set_index
))
2647 as_fatal (_("failed to set up debugging information: %s"),
2648 bfd_errmsg (bfd_get_error ()));
2650 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2651 gas_assert (sec
!= NULL
);
2653 know (!stdoutput
->output_has_begun
);
2655 /* We set the size of the section, call bfd_set_section_contents
2656 to force the ELF backend to allocate a file position, and then
2657 write out the data. FIXME: Is this really the best way to do
2659 bfd_set_section_size
2660 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2662 /* Pass BUF to bfd_set_section_contents because this will
2663 eventually become a call to fwrite, and ISO C prohibits
2664 passing a NULL pointer to a stdio function even if the
2665 pointer will not be used. */
2666 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2667 as_fatal (_("can't start writing .mdebug section: %s"),
2668 bfd_errmsg (bfd_get_error ()));
2670 know (stdoutput
->output_has_begun
);
2671 know (sec
->filepos
!= 0);
2673 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2675 as_fatal (_("could not write .mdebug section: %s"),
2676 bfd_errmsg (bfd_get_error ()));
2678 #endif /* NEED_ECOFF_DEBUG */
2682 elf_generate_asm_lineno (void)
2684 #ifdef NEED_ECOFF_DEBUG
2685 if (ECOFF_DEBUGGING
)
2686 ecoff_generate_asm_lineno ();
2691 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2692 int what ATTRIBUTE_UNUSED
,
2693 const char *string ATTRIBUTE_UNUSED
,
2694 int type ATTRIBUTE_UNUSED
,
2695 int other ATTRIBUTE_UNUSED
,
2696 int desc ATTRIBUTE_UNUSED
)
2698 #ifdef NEED_ECOFF_DEBUG
2699 if (ECOFF_DEBUGGING
)
2700 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2705 elf_separate_stab_sections (void)
2707 #ifdef NEED_ECOFF_DEBUG
2708 return (!ECOFF_DEBUGGING
);
2715 elf_init_stab_section (segT seg
)
2717 #ifdef NEED_ECOFF_DEBUG
2718 if (!ECOFF_DEBUGGING
)
2720 obj_elf_init_stab_section (seg
);
2723 const struct format_ops elf_format_ops
=
2725 bfd_target_elf_flavour
,
2726 0, /* dfl_leading_underscore */
2727 1, /* emit_section_symbols */
2732 elf_frob_file_before_adjust
,
2733 0, /* obj_frob_file_before_fix */
2734 elf_frob_file_after_relocs
,
2735 elf_s_get_size
, elf_s_set_size
,
2736 elf_s_get_align
, elf_s_set_align
,
2743 elf_copy_symbol_attributes
,
2744 elf_generate_asm_lineno
,
2746 elf_separate_stab_sections
,
2747 elf_init_stab_section
,
2748 elf_sec_sym_ok_for_reloc
,
2750 #ifdef NEED_ECOFF_DEBUG
2753 0, /* ecoff_set_ext */
2755 elf_obj_read_begin_hook
,
2756 elf_obj_symbol_new_hook
,