1 /* ELF object file format
2 Copyright (C) 1992-2015 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"
67 static void obj_elf_line (int);
68 static void obj_elf_size (int);
69 static void obj_elf_type (int);
70 static void obj_elf_ident (int);
71 static void obj_elf_weak (int);
72 static void obj_elf_local (int);
73 static void obj_elf_visibility (int);
74 static void obj_elf_symver (int);
75 static void obj_elf_subsection (int);
76 static void obj_elf_popsection (int);
77 static void obj_elf_gnu_attribute (int);
78 static void obj_elf_tls_common (int);
79 static void obj_elf_lcomm (int);
80 static void obj_elf_struct (int);
82 static const pseudo_typeS elf_pseudo_table
[] =
84 {"comm", obj_elf_common
, 0},
85 {"common", obj_elf_common
, 1},
86 {"ident", obj_elf_ident
, 0},
87 {"lcomm", obj_elf_lcomm
, 0},
88 {"local", obj_elf_local
, 0},
89 {"previous", obj_elf_previous
, 0},
90 {"section", obj_elf_section
, 0},
91 {"section.s", obj_elf_section
, 0},
92 {"sect", obj_elf_section
, 0},
93 {"sect.s", obj_elf_section
, 0},
94 {"pushsection", obj_elf_section
, 1},
95 {"popsection", obj_elf_popsection
, 0},
96 {"size", obj_elf_size
, 0},
97 {"type", obj_elf_type
, 0},
98 {"version", obj_elf_version
, 0},
99 {"weak", obj_elf_weak
, 0},
101 /* These define symbol visibility. */
102 {"internal", obj_elf_visibility
, STV_INTERNAL
},
103 {"hidden", obj_elf_visibility
, STV_HIDDEN
},
104 {"protected", obj_elf_visibility
, STV_PROTECTED
},
106 /* These are used for stabs-in-elf configurations. */
107 {"line", obj_elf_line
, 0},
109 /* This is a GNU extension to handle symbol versions. */
110 {"symver", obj_elf_symver
, 0},
112 /* A GNU extension to change subsection only. */
113 {"subsection", obj_elf_subsection
, 0},
115 /* These are GNU extensions to aid in garbage collecting C++ vtables. */
116 {"vtable_inherit", (void (*) (int)) &obj_elf_vtable_inherit
, 0},
117 {"vtable_entry", (void (*) (int)) &obj_elf_vtable_entry
, 0},
119 /* A GNU extension for object attributes. */
120 {"gnu_attribute", obj_elf_gnu_attribute
, 0},
122 /* These are used for dwarf. */
126 /* These are used for dwarf2. */
127 { "file", (void (*) (int)) dwarf2_directive_file
, 0 },
128 { "loc", dwarf2_directive_loc
, 0 },
129 { "loc_mark_labels", dwarf2_directive_loc_mark_labels
, 0 },
131 /* We need to trap the section changing calls to handle .previous. */
132 {"data", obj_elf_data
, 0},
133 {"offset", obj_elf_struct
, 0},
134 {"struct", obj_elf_struct
, 0},
135 {"text", obj_elf_text
, 0},
137 {"tls_common", obj_elf_tls_common
, 0},
143 static const pseudo_typeS ecoff_debug_pseudo_table
[] =
145 #ifdef NEED_ECOFF_DEBUG
146 /* COFF style debugging information for ECOFF. .ln is not used; .loc
148 { "def", ecoff_directive_def
, 0 },
149 { "dim", ecoff_directive_dim
, 0 },
150 { "endef", ecoff_directive_endef
, 0 },
151 { "file", ecoff_directive_file
, 0 },
152 { "scl", ecoff_directive_scl
, 0 },
153 { "tag", ecoff_directive_tag
, 0 },
154 { "val", ecoff_directive_val
, 0 },
156 /* COFF debugging requires pseudo-ops .size and .type, but ELF
157 already has meanings for those. We use .esize and .etype
158 instead. These are only generated by gcc anyhow. */
159 { "esize", ecoff_directive_size
, 0 },
160 { "etype", ecoff_directive_type
, 0 },
162 /* ECOFF specific debugging information. */
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
)
264 || symbol_rootP
== NULL
265 || symbol_rootP
->bsym
== NULL
266 || (symbol_rootP
->bsym
->flags
& BSF_FILE
) == 0)
271 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
272 symbol_set_frag (sym
, &zero_address_frag
);
274 name_length
= strlen (s
);
275 if (name_length
> strlen (S_GET_NAME (sym
)))
277 obstack_grow (¬es
, s
, name_length
+ 1);
278 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
281 strcpy ((char *) S_GET_NAME (sym
), s
);
283 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
285 if (symbol_rootP
!= sym
)
287 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
288 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
290 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
295 #ifdef NEED_ECOFF_DEBUG
296 ecoff_new_file (s
, appfile
);
300 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
301 Parse a possible alignment value. */
304 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
307 int is_local
= symbol_get_obj (symbolP
)->local
;
309 if (*input_line_pointer
== ',')
311 char *save
= input_line_pointer
;
313 input_line_pointer
++;
316 if (*input_line_pointer
== '"')
318 /* For sparc. Accept .common symbol, length, "bss" */
319 input_line_pointer
++;
320 /* Some use the dot, some don't. */
321 if (*input_line_pointer
== '.')
322 input_line_pointer
++;
323 /* Some say data, some say bss. */
324 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
325 input_line_pointer
+= 4;
326 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
327 input_line_pointer
+= 5;
330 char *p
= input_line_pointer
;
335 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
336 if (*input_line_pointer
++ == '"')
338 c
= *input_line_pointer
;
339 *input_line_pointer
= '\0';
340 as_bad (_("bad .common segment %s"), p
);
341 *input_line_pointer
= c
;
342 ignore_rest_of_line ();
345 /* ??? Don't ask me why these are always global. */
350 input_line_pointer
= save
;
351 align
= parse_align (is_local
);
352 if (align
== (addressT
) -1)
359 bss_alloc (symbolP
, size
, align
);
360 S_CLEAR_EXTERNAL (symbolP
);
364 S_SET_VALUE (symbolP
, size
);
365 S_SET_ALIGN (symbolP
, align
);
366 S_SET_EXTERNAL (symbolP
);
367 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
370 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
376 obj_elf_common (int is_common
)
378 if (flag_mri
&& is_common
)
381 s_comm_internal (0, elf_common_parse
);
385 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
387 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
390 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
394 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
396 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
399 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
403 get_sym_from_input_line_and_check (void)
409 c
= get_symbol_name (& name
);
410 sym
= symbol_find_or_make (name
);
411 *input_line_pointer
= c
;
412 SKIP_WHITESPACE_AFTER_NAME ();
414 /* There is no symbol name if input_line_pointer has not moved. */
415 if (name
== input_line_pointer
)
416 as_bad (_("Missing symbol name in directive"));
421 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
428 symbolP
= get_sym_from_input_line_and_check ();
429 c
= *input_line_pointer
;
430 S_CLEAR_EXTERNAL (symbolP
);
431 symbol_get_obj (symbolP
)->local
= 1;
434 input_line_pointer
++;
436 if (*input_line_pointer
== '\n')
441 demand_empty_rest_of_line ();
445 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
452 symbolP
= get_sym_from_input_line_and_check ();
453 c
= *input_line_pointer
;
454 S_SET_WEAK (symbolP
);
457 input_line_pointer
++;
459 if (*input_line_pointer
== '\n')
464 demand_empty_rest_of_line ();
468 obj_elf_visibility (int visibility
)
473 elf_symbol_type
*elfsym
;
477 symbolP
= get_sym_from_input_line_and_check ();
479 bfdsym
= symbol_get_bfdsym (symbolP
);
480 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
484 elfsym
->internal_elf_sym
.st_other
&= ~3;
485 elfsym
->internal_elf_sym
.st_other
|= visibility
;
487 c
= *input_line_pointer
;
490 input_line_pointer
++;
494 if (*input_line_pointer
== '\n')
500 demand_empty_rest_of_line ();
503 static segT previous_section
;
504 static int previous_subsection
;
508 struct section_stack
*next
;
510 int subseg
, prev_subseg
;
513 static struct section_stack
*section_stack
;
516 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
518 const char *gname
= (const char *) inf
;
519 const char *group_name
= elf_group_name (sec
);
521 return (group_name
== gname
522 || (group_name
!= NULL
524 && strcmp (group_name
, gname
) == 0));
527 /* Handle the .section pseudo-op. This code supports two different
530 The first is found on Solaris, and looks like
531 .section ".sec1",#alloc,#execinstr,#write
532 Here the names after '#' are the SHF_* flags to turn on for the
533 section. I'm not sure how it determines the SHT_* type (BFD
534 doesn't really give us control over the type, anyhow).
536 The second format is found on UnixWare, and probably most SVR4
537 machines, and looks like
538 .section .sec1,"a",@progbits
539 The quoted string may contain any combination of a, w, x, and
540 represents the SHF_* flags to turn on for the section. The string
541 beginning with '@' can be progbits or nobits. There should be
542 other possibilities, but I don't know what they are. In any case,
543 BFD doesn't really let us set the section type. */
546 obj_elf_change_section (const char *name
,
550 const char *group_name
,
557 const struct elf_backend_data
*bed
;
558 const struct bfd_elf_special_section
*ssect
;
560 #ifdef md_flush_pending_output
561 md_flush_pending_output ();
564 /* Switch to the section, creating it if necessary. */
567 struct section_stack
*elt
;
568 elt
= (struct section_stack
*) xmalloc (sizeof (struct section_stack
));
569 elt
->next
= section_stack
;
571 elt
->prev_seg
= previous_section
;
572 elt
->subseg
= now_subseg
;
573 elt
->prev_subseg
= previous_subsection
;
576 previous_section
= now_seg
;
577 previous_subsection
= now_subseg
;
579 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
580 (void *) group_name
);
587 sec
= subseg_force_new (name
, 0);
589 bed
= get_elf_backend_data (stdoutput
);
590 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
594 bfd_boolean override
= FALSE
;
596 if (type
== SHT_NULL
)
598 else if (type
!= ssect
->type
)
601 /* Some older versions of gcc will emit
603 .section .init_array,"aw",@progbits
605 for __attribute__ ((section (".init_array"))).
606 "@progbits" is incorrect. Also for x86-64 large bss
607 sections, some older versions of gcc will emit
609 .section .lbss,"aw",@progbits
611 "@progbits" is incorrect. */
613 && (bed
->s
->arch_size
!= 64
614 || !(ssect
->attr
& SHF_X86_64_LARGE
))
616 && ssect
->type
!= SHT_INIT_ARRAY
617 && ssect
->type
!= SHT_FINI_ARRAY
618 && ssect
->type
!= SHT_PREINIT_ARRAY
)
620 /* We allow to specify any type for a .note section. */
621 if (ssect
->type
!= SHT_NOTE
)
622 as_warn (_("setting incorrect section type for %s"),
627 as_warn (_("ignoring incorrect section type for %s"),
633 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
635 /* As a GNU extension, we permit a .note section to be
636 allocatable. If the linker sees an allocatable .note
637 section, it will create a PT_NOTE segment in the output
638 file. We also allow "x" for .note.GNU-stack. */
639 if (ssect
->type
== SHT_NOTE
640 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
642 /* Allow different SHF_MERGE and SHF_STRINGS if we have
643 something like .rodata.str. */
644 else if (ssect
->suffix_length
== -2
645 && name
[ssect
->prefix_length
] == '.'
649 & ~SHF_STRINGS
) == 0)
651 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
652 else if (attr
== SHF_ALLOC
653 && (strcmp (name
, ".interp") == 0
654 || strcmp (name
, ".strtab") == 0
655 || strcmp (name
, ".symtab") == 0))
657 /* .note.GNU-stack can have SHF_EXECINSTR. */
658 else if (attr
== SHF_EXECINSTR
659 && strcmp (name
, ".note.GNU-stack") == 0)
662 /* A section on Alpha may have SHF_ALPHA_GPREL. */
663 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
667 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
668 && (ssect
->type
== SHT_INIT_ARRAY
669 || ssect
->type
== SHT_FINI_ARRAY
670 || ssect
->type
== SHT_PREINIT_ARRAY
))
671 /* RX init/fini arrays can and should have the "awx" attributes set. */
676 if (group_name
== NULL
)
677 as_warn (_("setting incorrect section attributes for %s"),
682 if (!override
&& old_sec
== NULL
)
686 /* Convert ELF type and flags to BFD flags. */
688 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
689 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
690 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
691 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
692 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
693 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
694 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
695 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
696 #ifdef md_elf_section_flags
697 flags
= md_elf_section_flags (flags
, attr
, type
);
701 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
707 if (type
== SHT_NULL
)
708 type
= bfd_elf_get_default_section_type (flags
);
709 elf_section_type (sec
) = type
;
710 elf_section_flags (sec
) = attr
;
712 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
713 if (type
== SHT_NOBITS
)
714 seg_info (sec
)->bss
= 1;
716 bfd_set_section_flags (stdoutput
, sec
, flags
);
717 if (flags
& SEC_MERGE
)
718 sec
->entsize
= entsize
;
719 elf_group_name (sec
) = group_name
;
721 /* Add a symbol for this section to the symbol table. */
722 secsym
= symbol_find (name
);
724 symbol_set_bfdsym (secsym
, sec
->symbol
);
726 symbol_table_insert (section_symbol (sec
));
731 && (unsigned) type
!= elf_section_type (old_sec
))
732 as_warn (_("ignoring changed section type for %s"), name
);
736 /* If section attributes are specified the second time we see a
737 particular section, then check that they are the same as we
738 saw the first time. */
739 if (((old_sec
->flags
^ flags
)
740 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
741 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
742 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
743 | SEC_THREAD_LOCAL
)))
744 as_warn (_("ignoring changed section attributes for %s"), name
);
745 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
746 as_warn (_("ignoring changed section entity size for %s"), name
);
750 #ifdef md_elf_section_change_hook
751 md_elf_section_change_hook ();
756 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
775 attr
|= SHF_EXECINSTR
;
794 if (*(str
- 1) == 'a')
797 if (len
> 1 && str
[1] == 's')
806 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
807 #ifdef md_elf_section_letter
808 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
809 if (md_attr
!= (bfd_vma
) -1)
813 as_fatal ("%s", bad_msg
);
824 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
826 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
828 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
830 if (len
== 4 && strncmp (str
, "note", 4) == 0)
832 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
833 return SHT_INIT_ARRAY
;
834 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
835 return SHT_FINI_ARRAY
;
836 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
837 return SHT_PREINIT_ARRAY
;
839 #ifdef md_elf_section_type
841 int md_type
= md_elf_section_type (str
, len
);
848 as_warn (_("unrecognized section type"));
853 obj_elf_section_word (char *str
, size_t len
, int *type
)
857 if (len
== 5 && strncmp (str
, "write", 5) == 0)
859 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
861 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
862 return SHF_EXECINSTR
;
863 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
865 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
868 #ifdef md_elf_section_word
870 bfd_vma md_attr
= md_elf_section_word (str
, len
);
876 ret
= obj_elf_section_type (str
, len
, FALSE
);
880 as_warn (_("unrecognized section attribute"));
885 /* Get name of section. */
887 obj_elf_section_name (void)
892 if (*input_line_pointer
== '"')
896 name
= demand_copy_C_string (&dummy
);
899 ignore_rest_of_line ();
905 char *end
= input_line_pointer
;
907 while (0 == strchr ("\n\t,; ", *end
))
909 if (end
== input_line_pointer
)
911 as_bad (_("missing name"));
912 ignore_rest_of_line ();
916 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
917 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
918 name
[end
- input_line_pointer
] = '\0';
920 while (flag_sectname_subst
)
922 char *subst
= strchr (name
, '%');
923 if (subst
&& subst
[1] == 'S')
925 int oldlen
= strlen (name
);
926 int substlen
= strlen (now_seg
->name
);
927 int newlen
= oldlen
- 2 + substlen
;
928 char *newname
= (char *) xmalloc (newlen
+ 1);
929 int headlen
= subst
- name
;
930 memcpy (newname
, name
, headlen
);
931 strcpy (newname
+ headlen
, now_seg
->name
);
932 strcat (newname
+ headlen
, subst
+ 2);
940 #ifdef tc_canonicalize_section_name
941 name
= tc_canonicalize_section_name (name
);
943 input_line_pointer
= end
;
950 obj_elf_section (int push
)
952 char *name
, *group_name
, *beg
;
957 subsegT new_subsection
= -1;
964 #ifdef md_flush_pending_output
965 md_flush_pending_output ();
968 previous_section
= now_seg
;
969 previous_subsection
= now_subseg
;
971 s_mri_sect (&mri_type
);
973 #ifdef md_elf_section_change_hook
974 md_elf_section_change_hook ();
979 #endif /* ! defined (TC_I370) */
981 name
= obj_elf_section_name ();
990 if (*input_line_pointer
== ',')
992 /* Skip the comma. */
993 ++input_line_pointer
;
996 if (push
&& ISDIGIT (*input_line_pointer
))
998 /* .pushsection has an optional subsection. */
999 new_subsection
= (subsegT
) get_absolute_expression ();
1003 /* Stop if we don't see a comma. */
1004 if (*input_line_pointer
!= ',')
1007 /* Skip the comma. */
1008 ++input_line_pointer
;
1012 if (*input_line_pointer
== '"')
1014 bfd_boolean is_clone
;
1016 beg
= demand_copy_C_string (&dummy
);
1019 ignore_rest_of_line ();
1022 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
1025 if (*input_line_pointer
== ',')
1028 char *save
= input_line_pointer
;
1030 ++input_line_pointer
;
1032 c
= *input_line_pointer
;
1035 beg
= demand_copy_C_string (&dummy
);
1038 ignore_rest_of_line ();
1041 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1043 else if (c
== '@' || c
== '%')
1045 ++input_line_pointer
;
1046 c
= get_symbol_name (& beg
);
1047 (void) restore_line_pointer (c
);
1048 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1051 input_line_pointer
= save
;
1055 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1057 ++input_line_pointer
;
1059 entsize
= get_absolute_expression ();
1063 as_warn (_("invalid merge entity size"));
1068 else if ((attr
& SHF_MERGE
) != 0)
1070 as_warn (_("entity size for SHF_MERGE not specified"));
1074 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1076 as_warn (_("? section flag ignored with G present"));
1079 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1081 ++input_line_pointer
;
1082 group_name
= obj_elf_section_name ();
1083 if (group_name
== NULL
)
1085 else if (*input_line_pointer
== ',')
1087 ++input_line_pointer
;
1089 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1091 input_line_pointer
+= 6;
1095 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1098 else if ((attr
& SHF_GROUP
) != 0)
1100 as_warn (_("group name for SHF_GROUP not specified"));
1106 const char *now_group
= elf_group_name (now_seg
);
1107 if (now_group
!= NULL
)
1109 group_name
= xstrdup (now_group
);
1110 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1121 if (*input_line_pointer
!= '#')
1123 as_bad (_("character following name is not '#'"));
1124 ignore_rest_of_line ();
1127 ++input_line_pointer
;
1128 c
= get_symbol_name (& beg
);
1129 (void) restore_line_pointer (c
);
1131 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1135 while (*input_line_pointer
++ == ',');
1136 --input_line_pointer
;
1141 demand_empty_rest_of_line ();
1143 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1145 if (push
&& new_subsection
!= -1)
1146 subseg_set (now_seg
, new_subsection
);
1149 /* Change to the .data section. */
1152 obj_elf_data (int i
)
1154 #ifdef md_flush_pending_output
1155 md_flush_pending_output ();
1158 previous_section
= now_seg
;
1159 previous_subsection
= now_subseg
;
1162 #ifdef md_elf_section_change_hook
1163 md_elf_section_change_hook ();
1167 /* Change to the .text section. */
1170 obj_elf_text (int i
)
1172 #ifdef md_flush_pending_output
1173 md_flush_pending_output ();
1176 previous_section
= now_seg
;
1177 previous_subsection
= now_subseg
;
1180 #ifdef md_elf_section_change_hook
1181 md_elf_section_change_hook ();
1185 /* Change to the *ABS* section. */
1188 obj_elf_struct (int i
)
1190 #ifdef md_flush_pending_output
1191 md_flush_pending_output ();
1194 previous_section
= now_seg
;
1195 previous_subsection
= now_subseg
;
1198 #ifdef md_elf_section_change_hook
1199 md_elf_section_change_hook ();
1204 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1208 #ifdef md_flush_pending_output
1209 md_flush_pending_output ();
1212 previous_section
= now_seg
;
1213 previous_subsection
= now_subseg
;
1215 temp
= get_absolute_expression ();
1216 subseg_set (now_seg
, (subsegT
) temp
);
1217 demand_empty_rest_of_line ();
1219 #ifdef md_elf_section_change_hook
1220 md_elf_section_change_hook ();
1224 /* This can be called from the processor backends if they change
1228 obj_elf_section_change_hook (void)
1230 previous_section
= now_seg
;
1231 previous_subsection
= now_subseg
;
1235 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1240 if (previous_section
== 0)
1242 as_warn (_(".previous without corresponding .section; ignored"));
1246 #ifdef md_flush_pending_output
1247 md_flush_pending_output ();
1250 new_section
= previous_section
;
1251 new_subsection
= previous_subsection
;
1252 previous_section
= now_seg
;
1253 previous_subsection
= now_subseg
;
1254 subseg_set (new_section
, new_subsection
);
1256 #ifdef md_elf_section_change_hook
1257 md_elf_section_change_hook ();
1262 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1264 struct section_stack
*top
= section_stack
;
1268 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1272 #ifdef md_flush_pending_output
1273 md_flush_pending_output ();
1276 section_stack
= top
->next
;
1277 previous_section
= top
->prev_seg
;
1278 previous_subsection
= top
->prev_subseg
;
1279 subseg_set (top
->seg
, top
->subseg
);
1282 #ifdef md_elf_section_change_hook
1283 md_elf_section_change_hook ();
1288 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1290 /* Assume delimiter is part of expression. BSD4.2 as fails with
1291 delightful bug, so we are not being incompatible here. */
1292 new_logical_line (NULL
, get_absolute_expression ());
1293 demand_empty_rest_of_line ();
1296 /* This handles the .symver pseudo-op, which is used to specify a
1297 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1298 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1299 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1300 with the same value as the symbol NAME. */
1303 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1310 sym
= get_sym_from_input_line_and_check ();
1312 if (*input_line_pointer
!= ',')
1314 as_bad (_("expected comma after name in .symver"));
1315 ignore_rest_of_line ();
1319 ++input_line_pointer
;
1322 /* Temporarily include '@' in symbol names. */
1323 old_lexat
= lex_type
[(unsigned char) '@'];
1324 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1325 c
= get_symbol_name (& name
);
1326 lex_type
[(unsigned char) '@'] = old_lexat
;
1328 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1330 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1332 (void) restore_line_pointer (c
);
1334 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1335 ELF_VER_CHR
) == NULL
)
1337 as_bad (_("missing version name in `%s' for symbol `%s'"),
1338 symbol_get_obj (sym
)->versioned_name
,
1340 ignore_rest_of_line ();
1346 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1348 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1349 name
, symbol_get_obj (sym
)->versioned_name
,
1351 ignore_rest_of_line ();
1355 (void) restore_line_pointer (c
);
1358 demand_empty_rest_of_line ();
1361 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1362 to the linker the hierarchy in which a particular table resides. The
1363 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1366 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1368 char *cname
, *pname
;
1369 symbolS
*csym
, *psym
;
1372 if (*input_line_pointer
== '#')
1373 ++input_line_pointer
;
1375 c
= get_symbol_name (& cname
);
1376 csym
= symbol_find (cname
);
1378 /* GCFIXME: should check that we don't have two .vtable_inherits for
1379 the same child symbol. Also, we can currently only do this if the
1380 child symbol is already exists and is placed in a fragment. */
1382 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1384 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1389 *input_line_pointer
= c
;
1391 SKIP_WHITESPACE_AFTER_NAME ();
1392 if (*input_line_pointer
!= ',')
1394 as_bad (_("expected comma after name in .vtable_inherit"));
1395 ignore_rest_of_line ();
1399 ++input_line_pointer
;
1402 if (*input_line_pointer
== '#')
1403 ++input_line_pointer
;
1405 if (input_line_pointer
[0] == '0'
1406 && (input_line_pointer
[1] == '\0'
1407 || ISSPACE (input_line_pointer
[1])))
1409 psym
= section_symbol (absolute_section
);
1410 ++input_line_pointer
;
1414 c
= get_symbol_name (& pname
);
1415 psym
= symbol_find_or_make (pname
);
1416 restore_line_pointer (c
);
1419 demand_empty_rest_of_line ();
1424 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1425 return fix_new (symbol_get_frag (csym
),
1426 symbol_get_value_expression (csym
)->X_add_number
,
1427 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1430 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1431 to the linker that a vtable slot was used. The syntax is
1432 ".vtable_entry tablename, offset". */
1435 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1440 if (*input_line_pointer
== '#')
1441 ++input_line_pointer
;
1443 sym
= get_sym_from_input_line_and_check ();
1444 if (*input_line_pointer
!= ',')
1446 as_bad (_("expected comma after name in .vtable_entry"));
1447 ignore_rest_of_line ();
1451 ++input_line_pointer
;
1452 if (*input_line_pointer
== '#')
1453 ++input_line_pointer
;
1455 offset
= get_absolute_expression ();
1457 demand_empty_rest_of_line ();
1459 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1460 BFD_RELOC_VTABLE_ENTRY
);
1463 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1466 skip_past_char (char ** str
, char c
)
1476 #define skip_past_comma(str) skip_past_char (str, ',')
1478 /* A list of attributes that have been explicitly set by the assembly code.
1479 VENDOR is the vendor id, BASE is the tag shifted right by the number
1480 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1481 struct recorded_attribute_info
{
1482 struct recorded_attribute_info
*next
;
1487 static struct recorded_attribute_info
*recorded_attributes
;
1489 /* Record that we have seen an explicit specification of attribute TAG
1490 for vendor VENDOR. */
1493 record_attribute (int vendor
, unsigned int tag
)
1497 struct recorded_attribute_info
*rai
;
1499 base
= tag
/ (8 * sizeof (rai
->mask
));
1500 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1501 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1502 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1508 rai
= XNEW (struct recorded_attribute_info
);
1509 rai
->next
= recorded_attributes
;
1510 rai
->vendor
= vendor
;
1513 recorded_attributes
= rai
;
1516 /* Return true if we have seen an explicit specification of attribute TAG
1517 for vendor VENDOR. */
1520 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1524 struct recorded_attribute_info
*rai
;
1526 base
= tag
/ (8 * sizeof (rai
->mask
));
1527 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1528 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1529 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1530 return (rai
->mask
& mask
) != 0;
1534 /* Parse an attribute directive for VENDOR.
1535 Returns the attribute number read, or zero on error. */
1538 obj_elf_vendor_attribute (int vendor
)
1546 /* Read the first number or name. */
1547 skip_whitespace (input_line_pointer
);
1548 s
= input_line_pointer
;
1549 if (ISDIGIT (*input_line_pointer
))
1552 if (exp
.X_op
!= O_constant
)
1554 tag
= exp
.X_add_number
;
1560 /* A name may contain '_', but no other punctuation. */
1561 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1562 ++input_line_pointer
)
1567 name
= (char *) alloca (i
+ 1);
1568 memcpy (name
, s
, i
);
1571 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1572 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1575 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1578 as_bad (_("Attribute name not recognised: %s"), name
);
1579 ignore_rest_of_line ();
1584 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1586 if (skip_past_comma (&input_line_pointer
) == -1)
1591 if (exp
.X_op
!= O_constant
)
1593 as_bad (_("expected numeric constant"));
1594 ignore_rest_of_line ();
1597 i
= exp
.X_add_number
;
1600 && skip_past_comma (&input_line_pointer
) == -1)
1602 as_bad (_("expected comma"));
1603 ignore_rest_of_line ();
1610 skip_whitespace (input_line_pointer
);
1611 if (*input_line_pointer
!= '"')
1613 s
= demand_copy_C_string (&len
);
1616 record_attribute (vendor
, tag
);
1620 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1623 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1626 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1632 demand_empty_rest_of_line ();
1635 as_bad (_("bad string constant"));
1636 ignore_rest_of_line ();
1639 as_bad (_("expected <tag> , <value>"));
1640 ignore_rest_of_line ();
1644 /* Parse a .gnu_attribute directive. */
1647 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1649 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1653 elf_obj_read_begin_hook (void)
1655 #ifdef NEED_ECOFF_DEBUG
1656 if (ECOFF_DEBUGGING
)
1657 ecoff_read_begin_hook ();
1662 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1664 struct elf_obj_sy
*sy_obj
;
1666 sy_obj
= symbol_get_obj (symbolP
);
1667 sy_obj
->size
= NULL
;
1668 sy_obj
->versioned_name
= NULL
;
1670 #ifdef NEED_ECOFF_DEBUG
1671 if (ECOFF_DEBUGGING
)
1672 ecoff_symbol_new_hook (symbolP
);
1676 /* When setting one symbol equal to another, by default we probably
1677 want them to have the same "size", whatever it means in the current
1681 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1683 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1684 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1687 if (destelf
->size
== NULL
)
1688 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1689 *destelf
->size
= *srcelf
->size
;
1693 if (destelf
->size
!= NULL
)
1694 free (destelf
->size
);
1695 destelf
->size
= NULL
;
1697 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1698 /* Don't copy visibility. */
1699 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1700 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1704 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1709 asection
*seg
= now_seg
;
1710 subsegT subseg
= now_subseg
;
1711 Elf_Internal_Note i_note
;
1712 Elf_External_Note e_note
;
1713 asection
*note_secp
= NULL
;
1716 if (*input_line_pointer
== '\"')
1720 ++input_line_pointer
; /* -> 1st char of string. */
1721 name
= input_line_pointer
;
1723 while (is_a_char (c
= next_char_of_string ()))
1725 c
= *input_line_pointer
;
1726 *input_line_pointer
= '\0';
1727 *(input_line_pointer
- 1) = '\0';
1728 *input_line_pointer
= c
;
1730 /* Create the .note section. */
1731 note_secp
= subseg_new (".note", 0);
1732 bfd_set_section_flags (stdoutput
,
1734 SEC_HAS_CONTENTS
| SEC_READONLY
);
1736 /* Process the version string. */
1737 len
= strlen (name
) + 1;
1739 /* PR 3456: Although the name field is padded out to an 4-byte
1740 boundary, the namesz field should not be adjusted. */
1741 i_note
.namesz
= len
;
1742 i_note
.descsz
= 0; /* No description. */
1743 i_note
.type
= NT_VERSION
;
1744 p
= frag_more (sizeof (e_note
.namesz
));
1745 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1746 p
= frag_more (sizeof (e_note
.descsz
));
1747 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1748 p
= frag_more (sizeof (e_note
.type
));
1749 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1750 p
= frag_more (len
);
1751 memcpy (p
, name
, len
);
1753 frag_align (2, 0, 0);
1755 subseg_set (seg
, subseg
);
1758 as_bad (_("expected quoted string"));
1760 demand_empty_rest_of_line ();
1764 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1767 char c
= get_symbol_name (&name
);
1772 p
= input_line_pointer
;
1774 SKIP_WHITESPACE_AFTER_NAME ();
1775 if (*input_line_pointer
!= ',')
1778 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1780 ignore_rest_of_line ();
1783 input_line_pointer
++;
1785 if (exp
.X_op
== O_absent
)
1787 as_bad (_("missing expression in .size directive"));
1788 exp
.X_op
= O_constant
;
1789 exp
.X_add_number
= 0;
1792 sym
= symbol_find_or_make (name
);
1794 if (exp
.X_op
== O_constant
)
1796 S_SET_SIZE (sym
, exp
.X_add_number
);
1797 if (symbol_get_obj (sym
)->size
)
1799 xfree (symbol_get_obj (sym
)->size
);
1800 symbol_get_obj (sym
)->size
= NULL
;
1805 symbol_get_obj (sym
)->size
=
1806 (expressionS
*) xmalloc (sizeof (expressionS
));
1807 *symbol_get_obj (sym
)->size
= exp
;
1809 demand_empty_rest_of_line ();
1812 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1813 There are six syntaxes:
1815 The first (used on Solaris) is
1817 The second (used on UnixWare) is
1819 The third (reportedly to be used on Irix 6.0) is
1821 The fourth (used on NetBSD/Arm and Linux/ARM) is
1823 The fifth (used on SVR4/860) is
1824 .type SYM,"function"
1825 The sixth (emitted by recent SunPRO under Solaris) is
1827 where the integer is the STT_* value.
1831 obj_elf_type_name (char *cp
)
1835 p
= input_line_pointer
;
1836 if (*input_line_pointer
>= '0'
1837 && *input_line_pointer
<= '9')
1839 while (*input_line_pointer
>= '0'
1840 && *input_line_pointer
<= '9')
1841 ++input_line_pointer
;
1842 *cp
= *input_line_pointer
;
1843 *input_line_pointer
= '\0';
1846 *cp
= get_symbol_name (&p
);
1852 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1856 const char *type_name
;
1858 elf_symbol_type
*elfsym
;
1860 sym
= get_sym_from_input_line_and_check ();
1861 c
= *input_line_pointer
;
1862 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1864 if (*input_line_pointer
== ',')
1865 ++input_line_pointer
;
1868 if ( *input_line_pointer
== '#'
1869 || *input_line_pointer
== '@'
1870 || *input_line_pointer
== '"'
1871 || *input_line_pointer
== '%')
1872 ++input_line_pointer
;
1874 type_name
= obj_elf_type_name (& c
);
1877 if (strcmp (type_name
, "function") == 0
1878 || strcmp (type_name
, "2") == 0
1879 || strcmp (type_name
, "STT_FUNC") == 0)
1880 type
= BSF_FUNCTION
;
1881 else if (strcmp (type_name
, "object") == 0
1882 || strcmp (type_name
, "1") == 0
1883 || strcmp (type_name
, "STT_OBJECT") == 0)
1885 else if (strcmp (type_name
, "tls_object") == 0
1886 || strcmp (type_name
, "6") == 0
1887 || strcmp (type_name
, "STT_TLS") == 0)
1888 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1889 else if (strcmp (type_name
, "notype") == 0
1890 || strcmp (type_name
, "0") == 0
1891 || strcmp (type_name
, "STT_NOTYPE") == 0)
1893 else if (strcmp (type_name
, "common") == 0
1894 || strcmp (type_name
, "5") == 0
1895 || strcmp (type_name
, "STT_COMMON") == 0)
1899 if (! S_IS_COMMON (sym
))
1901 if (S_IS_VOLATILE (sym
))
1903 sym
= symbol_clone (sym
, 1);
1904 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1905 S_SET_VALUE (sym
, 0);
1906 S_SET_EXTERNAL (sym
);
1907 symbol_set_frag (sym
, &zero_address_frag
);
1908 S_CLEAR_VOLATILE (sym
);
1910 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1911 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1914 /* FIXME: Is it safe to just change the section ? */
1915 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1916 S_SET_VALUE (sym
, 0);
1917 S_SET_EXTERNAL (sym
);
1921 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1922 || strcmp (type_name
, "10") == 0
1923 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1925 const struct elf_backend_data
*bed
;
1927 bed
= get_elf_backend_data (stdoutput
);
1928 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1929 || bed
->elf_osabi
== ELFOSABI_FREEBSD
1930 /* GNU is still using the default value 0. */
1931 || bed
->elf_osabi
== ELFOSABI_NONE
))
1932 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
1934 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1936 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1938 struct elf_backend_data
*bed
;
1940 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1941 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1942 /* GNU is still using the default value 0. */
1943 || bed
->elf_osabi
== ELFOSABI_NONE
))
1944 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1946 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1947 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
1948 bed
->elf_osabi
= ELFOSABI_GNU
;
1950 #ifdef md_elf_symbol_type
1951 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1955 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1957 *input_line_pointer
= c
;
1959 if (*input_line_pointer
== '"')
1960 ++input_line_pointer
;
1962 elfsym
->symbol
.flags
|= type
;
1964 demand_empty_rest_of_line ();
1968 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1970 static segT comment_section
;
1971 segT old_section
= now_seg
;
1972 int old_subsection
= now_subseg
;
1974 #ifdef md_flush_pending_output
1975 md_flush_pending_output ();
1978 if (!comment_section
)
1981 comment_section
= subseg_new (".comment", 0);
1982 bfd_set_section_flags (stdoutput
, comment_section
,
1983 SEC_READONLY
| SEC_HAS_CONTENTS
1984 | SEC_MERGE
| SEC_STRINGS
);
1985 comment_section
->entsize
= 1;
1986 #ifdef md_elf_section_change_hook
1987 md_elf_section_change_hook ();
1993 subseg_set (comment_section
, 0);
1995 subseg_set (old_section
, old_subsection
);
1998 #ifdef INIT_STAB_SECTION
2000 /* The first entry in a .stabs section is special. */
2003 obj_elf_init_stab_section (segT seg
)
2008 unsigned int stroff
;
2010 /* Force the section to align to a longword boundary. Without this,
2011 UnixWare ar crashes. */
2012 bfd_set_section_alignment (stdoutput
, seg
, 2);
2014 /* Make space for this first symbol. */
2018 as_where (&file
, NULL
);
2019 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
2020 strcpy (stabstr_name
, segment_name (seg
));
2021 strcat (stabstr_name
, "str");
2022 stroff
= get_stab_string_offset (file
, stabstr_name
);
2023 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2024 md_number_to_chars (p
, stroff
, 4);
2025 seg_info (seg
)->stabu
.p
= p
;
2030 /* Fill in the counts in the first entry in a .stabs section. */
2033 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2040 if (strncmp (".stab", sec
->name
, 5))
2042 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2045 name
= (char *) alloca (strlen (sec
->name
) + 4);
2046 strcpy (name
, sec
->name
);
2047 strcat (name
, "str");
2048 strsec
= bfd_get_section_by_name (abfd
, name
);
2050 strsz
= bfd_section_size (abfd
, strsec
);
2053 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
2055 p
= seg_info (sec
)->stabu
.p
;
2056 gas_assert (p
!= 0);
2058 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2059 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2062 #ifdef NEED_ECOFF_DEBUG
2064 /* This function is called by the ECOFF code. It is supposed to
2065 record the external symbol information so that the backend can
2066 write it out correctly. The ELF backend doesn't actually handle
2067 this at the moment, so we do it ourselves. We save the information
2070 #ifdef OBJ_MAYBE_ELF
2074 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2076 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2079 /* This function is called by bfd_ecoff_debug_externals. It is
2080 supposed to *EXT to the external symbol information, and return
2081 whether the symbol should be used at all. */
2084 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2086 if (sym
->udata
.p
== NULL
)
2088 *ext
= *(EXTR
*) sym
->udata
.p
;
2092 /* This function is called by bfd_ecoff_debug_externals. It has
2093 nothing to do for ELF. */
2096 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2097 bfd_size_type indx ATTRIBUTE_UNUSED
)
2101 #endif /* NEED_ECOFF_DEBUG */
2104 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2106 struct elf_obj_sy
*sy_obj
;
2109 #ifdef NEED_ECOFF_DEBUG
2110 if (ECOFF_DEBUGGING
)
2111 ecoff_frob_symbol (symp
);
2114 sy_obj
= symbol_get_obj (symp
);
2116 size
= sy_obj
->size
;
2119 if (resolve_expression (size
)
2120 && size
->X_op
== O_constant
)
2121 S_SET_SIZE (symp
, size
->X_add_number
);
2124 if (flag_size_check
== size_check_error
)
2125 as_bad (_(".size expression for %s "
2126 "does not evaluate to a constant"), S_GET_NAME (symp
));
2128 as_warn (_(".size expression for %s "
2129 "does not evaluate to a constant"), S_GET_NAME (symp
));
2131 free (sy_obj
->size
);
2132 sy_obj
->size
= NULL
;
2135 if (sy_obj
->versioned_name
!= NULL
)
2139 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
2141 /* We will have already reported an error about a missing version. */
2144 /* This symbol was given a new name with the .symver directive.
2146 If this is an external reference, just rename the symbol to
2147 include the version string. This will make the relocs be
2148 against the correct versioned symbol.
2150 If this is a definition, add an alias. FIXME: Using an alias
2151 will permit the debugging information to refer to the right
2152 symbol. However, it's not clear whether it is the best
2155 else if (! S_IS_DEFINED (symp
))
2157 /* Verify that the name isn't using the @@ syntax--this is
2158 reserved for definitions of the default version to link
2160 if (p
[1] == ELF_VER_CHR
)
2162 as_bad (_("invalid attempt to declare external version name"
2163 " as default in symbol `%s'"),
2164 sy_obj
->versioned_name
);
2167 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2171 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2175 /* The @@@ syntax is a special case. It renames the
2176 symbol name to versioned_name with one `@' removed. */
2177 l
= strlen (&p
[3]) + 1;
2178 memmove (&p
[2], &p
[3], l
);
2179 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2185 /* FIXME: Creating a new symbol here is risky. We're
2186 in the final loop over the symbol table. We can
2187 get away with it only because the symbol goes to
2188 the end of the list, where the loop will still see
2189 it. It would probably be better to do this in
2190 obj_frob_file_before_adjust. */
2192 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
2194 /* Now we act as though we saw symp2 = sym. */
2196 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2198 /* Subtracting out the frag address here is a hack
2199 because we are in the middle of the final loop. */
2202 - symbol_get_frag (symp
)->fr_address
));
2204 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2206 /* This will copy over the size information. */
2207 copy_symbol_attributes (symp2
, symp
);
2209 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2211 if (S_IS_WEAK (symp
))
2214 if (S_IS_EXTERNAL (symp
))
2215 S_SET_EXTERNAL (symp2
);
2220 /* Double check weak symbols. */
2221 if (S_IS_WEAK (symp
))
2223 if (S_IS_COMMON (symp
))
2224 as_bad (_("symbol `%s' can not be both weak and common"),
2229 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2230 any undefined non-function symbol to STT_OBJECT. We try to be
2231 compatible, since newer Irix 5 and 6 linkers care. However, we
2232 only set undefined symbols to be STT_OBJECT if we are on Irix,
2233 because that is the only time gcc will generate the necessary
2234 .global directives to mark functions. */
2236 if (S_IS_COMMON (symp
))
2237 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2239 if (strstr (TARGET_OS
, "irix") != NULL
2240 && ! S_IS_DEFINED (symp
)
2241 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2242 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2248 asection
**head
; /* Section lists. */
2249 unsigned int *elt_count
; /* Number of sections in each list. */
2250 unsigned int num_group
; /* Number of lists. */
2251 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2254 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2255 add it to a list of sections belonging to the group. INF is a
2256 pointer to a struct group_list, which is where we store the head of
2260 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2262 struct group_list
*list
= (struct group_list
*) inf
;
2263 const char *group_name
= elf_group_name (sec
);
2265 unsigned int *elem_idx
;
2266 unsigned int *idx_ptr
;
2268 if (group_name
== NULL
)
2271 /* If this group already has a list, add the section to the head of
2273 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2274 if (elem_idx
!= NULL
)
2276 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2277 list
->head
[*elem_idx
] = sec
;
2278 list
->elt_count
[*elem_idx
] += 1;
2282 /* New group. Make the arrays bigger in chunks to minimize calls to
2284 i
= list
->num_group
;
2287 unsigned int newsize
= i
+ 128;
2288 list
->head
= (asection
**) xrealloc (list
->head
,
2289 newsize
* sizeof (*list
->head
));
2290 list
->elt_count
= (unsigned int *)
2291 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2293 list
->head
[i
] = sec
;
2294 list
->elt_count
[i
] = 1;
2295 list
->num_group
+= 1;
2297 /* Add index to hash. */
2298 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2300 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2303 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2305 free ((unsigned int *) val
);
2309 elf_adjust_symtab (void)
2311 struct group_list list
;
2314 /* Go find section groups. */
2317 list
.elt_count
= NULL
;
2318 list
.indexes
= hash_new ();
2319 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2321 /* Make the SHT_GROUP sections that describe each section group. We
2322 can't set up the section contents here yet, because elf section
2323 indices have yet to be calculated. elf.c:set_group_contents does
2324 the rest of the work. */
2325 for (i
= 0; i
< list
.num_group
; i
++)
2327 const char *group_name
= elf_group_name (list
.head
[i
]);
2328 const char *sec_name
;
2334 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2335 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2336 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2338 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2339 if (s
!= list
.head
[i
])
2341 as_warn (_("assuming all members of group `%s' are COMDAT"),
2347 sec_name
= ".group";
2348 s
= subseg_force_new (sec_name
, 0);
2350 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2351 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2353 as_fatal (_("can't create group: %s"),
2354 bfd_errmsg (bfd_get_error ()));
2356 elf_section_type (s
) = SHT_GROUP
;
2358 /* Pass a pointer to the first section in this group. */
2359 elf_next_in_group (s
) = list
.head
[i
];
2360 /* Make sure that the signature symbol for the group has the
2361 name of the group. */
2362 sy
= symbol_find_exact (group_name
);
2364 || (sy
!= symbol_lastP
2365 && (sy
->sy_next
== NULL
2366 || sy
->sy_next
->sy_previous
!= sy
)))
2368 /* Create the symbol now. */
2369 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2371 /* Before Solaris 11 build 154, Sun ld rejects local group
2372 signature symbols, so make them weak hidden instead. */
2373 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2374 S_SET_OTHER (sy
, STV_HIDDEN
);
2376 symbol_get_obj (sy
)->local
= 1;
2378 symbol_table_insert (sy
);
2380 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2382 size
= 4 * (list
.elt_count
[i
] + 1);
2383 bfd_set_section_size (stdoutput
, s
, size
);
2384 s
->contents
= (unsigned char *) frag_more (size
);
2385 frag_now
->fr_fix
= frag_now_fix_octets ();
2386 frag_wane (frag_now
);
2390 hash_traverse (list
.indexes
, free_section_idx
);
2391 hash_die (list
.indexes
);
2395 elf_frob_file (void)
2397 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2399 #ifdef elf_tc_final_processing
2400 elf_tc_final_processing ();
2404 /* It removes any unneeded versioned symbols from the symbol table. */
2407 elf_frob_file_before_adjust (void)
2413 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2414 if (!S_IS_DEFINED (symp
))
2416 if (symbol_get_obj (symp
)->versioned_name
)
2420 /* The @@@ syntax is a special case. If the symbol is
2421 not defined, 2 `@'s will be removed from the
2424 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2426 if (p
!= NULL
&& p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2428 size_t l
= strlen (&p
[3]) + 1;
2429 memmove (&p
[1], &p
[3], l
);
2431 if (symbol_used_p (symp
) == 0
2432 && symbol_used_in_reloc_p (symp
) == 0)
2433 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2436 /* If there was .weak foo, but foo was neither defined nor
2437 used anywhere, remove it. */
2439 else if (S_IS_WEAK (symp
)
2440 && symbol_used_p (symp
) == 0
2441 && symbol_used_in_reloc_p (symp
) == 0)
2442 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2447 /* It is required that we let write_relocs have the opportunity to
2448 optimize away fixups before output has begun, since it is possible
2449 to eliminate all fixups for a section and thus we never should
2450 have generated the relocation section. */
2453 elf_frob_file_after_relocs (void)
2455 #ifdef NEED_ECOFF_DEBUG
2456 if (ECOFF_DEBUGGING
)
2457 /* Generate the ECOFF debugging information. */
2459 const struct ecoff_debug_swap
*debug_swap
;
2460 struct ecoff_debug_info debug
;
2465 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2466 know (debug_swap
!= NULL
);
2467 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2469 /* Set up the pointers in debug. */
2470 #define SET(ptr, offset, type) \
2471 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2473 SET (line
, cbLineOffset
, unsigned char *);
2474 SET (external_dnr
, cbDnOffset
, void *);
2475 SET (external_pdr
, cbPdOffset
, void *);
2476 SET (external_sym
, cbSymOffset
, void *);
2477 SET (external_opt
, cbOptOffset
, void *);
2478 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2479 SET (ss
, cbSsOffset
, char *);
2480 SET (external_fdr
, cbFdOffset
, void *);
2481 SET (external_rfd
, cbRfdOffset
, void *);
2482 /* ssext and external_ext are set up just below. */
2486 /* Set up the external symbols. */
2487 debug
.ssext
= debug
.ssext_end
= NULL
;
2488 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2489 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2490 elf_get_extr
, elf_set_index
))
2491 as_fatal (_("failed to set up debugging information: %s"),
2492 bfd_errmsg (bfd_get_error ()));
2494 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2495 gas_assert (sec
!= NULL
);
2497 know (!stdoutput
->output_has_begun
);
2499 /* We set the size of the section, call bfd_set_section_contents
2500 to force the ELF backend to allocate a file position, and then
2501 write out the data. FIXME: Is this really the best way to do
2503 bfd_set_section_size
2504 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2506 /* Pass BUF to bfd_set_section_contents because this will
2507 eventually become a call to fwrite, and ISO C prohibits
2508 passing a NULL pointer to a stdio function even if the
2509 pointer will not be used. */
2510 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2511 as_fatal (_("can't start writing .mdebug section: %s"),
2512 bfd_errmsg (bfd_get_error ()));
2514 know (stdoutput
->output_has_begun
);
2515 know (sec
->filepos
!= 0);
2517 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2519 as_fatal (_("could not write .mdebug section: %s"),
2520 bfd_errmsg (bfd_get_error ()));
2522 #endif /* NEED_ECOFF_DEBUG */
2527 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2528 SCO specific identifier in the .notes section to satisfy the SCO
2531 This looks more complicated than it really is. As opposed to the
2532 "obvious" solution, this should handle the cross dev cases
2533 correctly. (i.e, hosting on a 64 bit big endian processor, but
2534 generating SCO Elf code) Efficiency isn't a concern, as there
2535 should be exactly one of these sections per object module.
2537 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2540 int_32 namesz = 4 ; Name size
2541 int_32 descsz = 12 ; Descriptive information
2543 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2544 int_32 version = (major ver # << 16) | version of tools ;
2545 int_32 source = (tool_id << 16 ) | 1 ;
2546 int_32 info = 0 ; These are set by the SCO tools, but we
2547 don't know enough about the source
2548 environment to set them. SCO ld currently
2549 ignores them, and recommends we set them
2552 #define SCO_MAJOR_VERSION 0x1
2553 #define SCO_MINOR_VERSION 0x1
2563 asection
*seg
= now_seg
;
2564 subsegT subseg
= now_subseg
;
2565 Elf_Internal_Note i_note
;
2566 Elf_External_Note e_note
;
2567 asection
*note_secp
= NULL
;
2570 /* create the .note section */
2572 note_secp
= subseg_new (".note", 0);
2573 bfd_set_section_flags (stdoutput
,
2575 SEC_HAS_CONTENTS
| SEC_READONLY
);
2577 /* process the version string */
2580 i_note
.descsz
= 12; /* 12 descriptive bytes */
2581 i_note
.type
= NT_VERSION
; /* Contains a version string */
2583 p
= frag_more (sizeof (i_note
.namesz
));
2584 md_number_to_chars (p
, i_note
.namesz
, 4);
2586 p
= frag_more (sizeof (i_note
.descsz
));
2587 md_number_to_chars (p
, i_note
.descsz
, 4);
2589 p
= frag_more (sizeof (i_note
.type
));
2590 md_number_to_chars (p
, i_note
.type
, 4);
2595 /* Note: this is the version number of the ELF we're representing */
2597 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2599 /* Here, we pick a magic number for ourselves (yes, I "registered"
2600 it with SCO. The bottom bit shows that we are compat with the
2603 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2605 /* If we knew (or cared) what the source language options were, we'd
2606 fill them in here. SCO has given us permission to ignore these
2607 and just set them to zero. */
2609 md_number_to_chars (p
, 0x0000, 4);
2611 frag_align (2, 0, 0);
2613 /* We probably can't restore the current segment, for there likely
2616 subseg_set (seg
, subseg
);
2620 #endif /* SCO_ELF */
2623 elf_generate_asm_lineno (void)
2625 #ifdef NEED_ECOFF_DEBUG
2626 if (ECOFF_DEBUGGING
)
2627 ecoff_generate_asm_lineno ();
2632 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2633 int what ATTRIBUTE_UNUSED
,
2634 const char *string ATTRIBUTE_UNUSED
,
2635 int type ATTRIBUTE_UNUSED
,
2636 int other ATTRIBUTE_UNUSED
,
2637 int desc ATTRIBUTE_UNUSED
)
2639 #ifdef NEED_ECOFF_DEBUG
2640 if (ECOFF_DEBUGGING
)
2641 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2646 elf_separate_stab_sections (void)
2648 #ifdef NEED_ECOFF_DEBUG
2649 return (!ECOFF_DEBUGGING
);
2656 elf_init_stab_section (segT seg
)
2658 #ifdef NEED_ECOFF_DEBUG
2659 if (!ECOFF_DEBUGGING
)
2661 obj_elf_init_stab_section (seg
);
2664 const struct format_ops elf_format_ops
=
2666 bfd_target_elf_flavour
,
2667 0, /* dfl_leading_underscore */
2668 1, /* emit_section_symbols */
2673 elf_frob_file_before_adjust
,
2674 0, /* obj_frob_file_before_fix */
2675 elf_frob_file_after_relocs
,
2676 elf_s_get_size
, elf_s_set_size
,
2677 elf_s_get_align
, elf_s_set_align
,
2684 elf_copy_symbol_attributes
,
2685 elf_generate_asm_lineno
,
2687 elf_separate_stab_sections
,
2688 elf_init_stab_section
,
2689 elf_sec_sym_ok_for_reloc
,
2691 #ifdef NEED_ECOFF_DEBUG
2694 0, /* ecoff_set_ext */
2696 elf_obj_read_begin_hook
,
2697 elf_obj_symbol_new_hook
,