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 name
= input_line_pointer
;
410 c
= get_symbol_end ();
411 sym
= symbol_find_or_make (name
);
412 *input_line_pointer
= c
;
415 /* There is no symbol name if input_line_pointer has not moved. */
416 if (name
== input_line_pointer
)
417 as_bad (_("Missing symbol name in directive"));
422 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
429 symbolP
= get_sym_from_input_line_and_check ();
430 c
= *input_line_pointer
;
431 S_CLEAR_EXTERNAL (symbolP
);
432 symbol_get_obj (symbolP
)->local
= 1;
435 input_line_pointer
++;
437 if (*input_line_pointer
== '\n')
442 demand_empty_rest_of_line ();
446 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
453 symbolP
= get_sym_from_input_line_and_check ();
454 c
= *input_line_pointer
;
455 S_SET_WEAK (symbolP
);
458 input_line_pointer
++;
460 if (*input_line_pointer
== '\n')
465 demand_empty_rest_of_line ();
469 obj_elf_visibility (int visibility
)
474 elf_symbol_type
*elfsym
;
478 symbolP
= get_sym_from_input_line_and_check ();
480 bfdsym
= symbol_get_bfdsym (symbolP
);
481 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
485 elfsym
->internal_elf_sym
.st_other
&= ~3;
486 elfsym
->internal_elf_sym
.st_other
|= visibility
;
488 c
= *input_line_pointer
;
491 input_line_pointer
++;
495 if (*input_line_pointer
== '\n')
501 demand_empty_rest_of_line ();
504 static segT previous_section
;
505 static int previous_subsection
;
509 struct section_stack
*next
;
511 int subseg
, prev_subseg
;
514 static struct section_stack
*section_stack
;
517 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
519 const char *gname
= (const char *) inf
;
520 const char *group_name
= elf_group_name (sec
);
522 return (group_name
== gname
523 || (group_name
!= NULL
525 && strcmp (group_name
, gname
) == 0));
528 /* Handle the .section pseudo-op. This code supports two different
531 The first is found on Solaris, and looks like
532 .section ".sec1",#alloc,#execinstr,#write
533 Here the names after '#' are the SHF_* flags to turn on for the
534 section. I'm not sure how it determines the SHT_* type (BFD
535 doesn't really give us control over the type, anyhow).
537 The second format is found on UnixWare, and probably most SVR4
538 machines, and looks like
539 .section .sec1,"a",@progbits
540 The quoted string may contain any combination of a, w, x, and
541 represents the SHF_* flags to turn on for the section. The string
542 beginning with '@' can be progbits or nobits. There should be
543 other possibilities, but I don't know what they are. In any case,
544 BFD doesn't really let us set the section type. */
547 obj_elf_change_section (const char *name
,
551 const char *group_name
,
558 const struct elf_backend_data
*bed
;
559 const struct bfd_elf_special_section
*ssect
;
561 #ifdef md_flush_pending_output
562 md_flush_pending_output ();
565 /* Switch to the section, creating it if necessary. */
568 struct section_stack
*elt
;
569 elt
= (struct section_stack
*) xmalloc (sizeof (struct section_stack
));
570 elt
->next
= section_stack
;
572 elt
->prev_seg
= previous_section
;
573 elt
->subseg
= now_subseg
;
574 elt
->prev_subseg
= previous_subsection
;
577 previous_section
= now_seg
;
578 previous_subsection
= now_subseg
;
580 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
581 (void *) group_name
);
588 sec
= subseg_force_new (name
, 0);
590 bed
= get_elf_backend_data (stdoutput
);
591 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
595 bfd_boolean override
= FALSE
;
597 if (type
== SHT_NULL
)
599 else if (type
!= ssect
->type
)
602 /* Some older versions of gcc will emit
604 .section .init_array,"aw",@progbits
606 for __attribute__ ((section (".init_array"))).
607 "@progbits" is incorrect. Also for x86-64 large bss
608 sections, some older versions of gcc will emit
610 .section .lbss,"aw",@progbits
612 "@progbits" is incorrect. */
614 && (bed
->s
->arch_size
!= 64
615 || !(ssect
->attr
& SHF_X86_64_LARGE
))
617 && ssect
->type
!= SHT_INIT_ARRAY
618 && ssect
->type
!= SHT_FINI_ARRAY
619 && ssect
->type
!= SHT_PREINIT_ARRAY
)
621 /* We allow to specify any type for a .note section. */
622 if (ssect
->type
!= SHT_NOTE
)
623 as_warn (_("setting incorrect section type for %s"),
628 as_warn (_("ignoring incorrect section type for %s"),
634 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
636 /* As a GNU extension, we permit a .note section to be
637 allocatable. If the linker sees an allocatable .note
638 section, it will create a PT_NOTE segment in the output
639 file. We also allow "x" for .note.GNU-stack. */
640 if (ssect
->type
== SHT_NOTE
641 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
643 /* Allow different SHF_MERGE and SHF_STRINGS if we have
644 something like .rodata.str. */
645 else if (ssect
->suffix_length
== -2
646 && name
[ssect
->prefix_length
] == '.'
650 & ~SHF_STRINGS
) == 0)
652 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
653 else if (attr
== SHF_ALLOC
654 && (strcmp (name
, ".interp") == 0
655 || strcmp (name
, ".strtab") == 0
656 || strcmp (name
, ".symtab") == 0))
658 /* .note.GNU-stack can have SHF_EXECINSTR. */
659 else if (attr
== SHF_EXECINSTR
660 && strcmp (name
, ".note.GNU-stack") == 0)
663 /* A section on Alpha may have SHF_ALPHA_GPREL. */
664 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
668 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
669 && (ssect
->type
== SHT_INIT_ARRAY
670 || ssect
->type
== SHT_FINI_ARRAY
671 || ssect
->type
== SHT_PREINIT_ARRAY
))
672 /* RX init/fini arrays can and should have the "awx" attributes set. */
677 if (group_name
== NULL
)
678 as_warn (_("setting incorrect section attributes for %s"),
683 if (!override
&& old_sec
== NULL
)
687 /* Convert ELF type and flags to BFD flags. */
689 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
690 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
691 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
692 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
693 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
694 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
695 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
696 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
697 #ifdef md_elf_section_flags
698 flags
= md_elf_section_flags (flags
, attr
, type
);
702 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
708 if (type
== SHT_NULL
)
709 type
= bfd_elf_get_default_section_type (flags
);
710 elf_section_type (sec
) = type
;
711 elf_section_flags (sec
) = attr
;
713 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
714 if (type
== SHT_NOBITS
)
715 seg_info (sec
)->bss
= 1;
717 bfd_set_section_flags (stdoutput
, sec
, flags
);
718 if (flags
& SEC_MERGE
)
719 sec
->entsize
= entsize
;
720 elf_group_name (sec
) = group_name
;
722 /* Add a symbol for this section to the symbol table. */
723 secsym
= symbol_find (name
);
725 symbol_set_bfdsym (secsym
, sec
->symbol
);
727 symbol_table_insert (section_symbol (sec
));
732 && (unsigned) type
!= elf_section_type (old_sec
))
733 as_warn (_("ignoring changed section type for %s"), name
);
737 /* If section attributes are specified the second time we see a
738 particular section, then check that they are the same as we
739 saw the first time. */
740 if (((old_sec
->flags
^ flags
)
741 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
742 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
743 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
744 | SEC_THREAD_LOCAL
)))
745 as_warn (_("ignoring changed section attributes for %s"), name
);
746 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
747 as_warn (_("ignoring changed section entity size for %s"), name
);
751 #ifdef md_elf_section_change_hook
752 md_elf_section_change_hook ();
757 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
776 attr
|= SHF_EXECINSTR
;
795 if (*(str
- 1) == 'a')
798 if (len
> 1 && str
[1] == 's')
807 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
808 #ifdef md_elf_section_letter
809 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
810 if (md_attr
!= (bfd_vma
) -1)
814 as_fatal ("%s", bad_msg
);
825 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
827 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
829 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
831 if (len
== 4 && strncmp (str
, "note", 4) == 0)
833 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
834 return SHT_INIT_ARRAY
;
835 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
836 return SHT_FINI_ARRAY
;
837 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
838 return SHT_PREINIT_ARRAY
;
840 #ifdef md_elf_section_type
842 int md_type
= md_elf_section_type (str
, len
);
849 as_warn (_("unrecognized section type"));
854 obj_elf_section_word (char *str
, size_t len
, int *type
)
858 if (len
== 5 && strncmp (str
, "write", 5) == 0)
860 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
862 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
863 return SHF_EXECINSTR
;
864 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
866 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
869 #ifdef md_elf_section_word
871 bfd_vma md_attr
= md_elf_section_word (str
, len
);
877 ret
= obj_elf_section_type (str
, len
, FALSE
);
881 as_warn (_("unrecognized section attribute"));
886 /* Get name of section. */
888 obj_elf_section_name (void)
893 if (*input_line_pointer
== '"')
897 name
= demand_copy_C_string (&dummy
);
900 ignore_rest_of_line ();
906 char *end
= input_line_pointer
;
908 while (0 == strchr ("\n\t,; ", *end
))
910 if (end
== input_line_pointer
)
912 as_bad (_("missing name"));
913 ignore_rest_of_line ();
917 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
918 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
919 name
[end
- input_line_pointer
] = '\0';
921 while (flag_sectname_subst
)
923 char *subst
= strchr (name
, '%');
924 if (subst
&& subst
[1] == 'S')
926 int oldlen
= strlen (name
);
927 int substlen
= strlen (now_seg
->name
);
928 int newlen
= oldlen
- 2 + substlen
;
929 char *newname
= (char *) xmalloc (newlen
+ 1);
930 int headlen
= subst
- name
;
931 memcpy (newname
, name
, headlen
);
932 strcpy (newname
+ headlen
, now_seg
->name
);
933 strcat (newname
+ headlen
, subst
+ 2);
941 #ifdef tc_canonicalize_section_name
942 name
= tc_canonicalize_section_name (name
);
944 input_line_pointer
= end
;
951 obj_elf_section (int push
)
953 char *name
, *group_name
, *beg
;
958 subsegT new_subsection
= -1;
965 #ifdef md_flush_pending_output
966 md_flush_pending_output ();
969 previous_section
= now_seg
;
970 previous_subsection
= now_subseg
;
972 s_mri_sect (&mri_type
);
974 #ifdef md_elf_section_change_hook
975 md_elf_section_change_hook ();
980 #endif /* ! defined (TC_I370) */
982 name
= obj_elf_section_name ();
991 if (*input_line_pointer
== ',')
993 /* Skip the comma. */
994 ++input_line_pointer
;
997 if (push
&& ISDIGIT (*input_line_pointer
))
999 /* .pushsection has an optional subsection. */
1000 new_subsection
= (subsegT
) get_absolute_expression ();
1004 /* Stop if we don't see a comma. */
1005 if (*input_line_pointer
!= ',')
1008 /* Skip the comma. */
1009 ++input_line_pointer
;
1013 if (*input_line_pointer
== '"')
1015 bfd_boolean is_clone
;
1017 beg
= demand_copy_C_string (&dummy
);
1020 ignore_rest_of_line ();
1023 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
1026 if (*input_line_pointer
== ',')
1029 char *save
= input_line_pointer
;
1031 ++input_line_pointer
;
1033 c
= *input_line_pointer
;
1036 beg
= demand_copy_C_string (&dummy
);
1039 ignore_rest_of_line ();
1042 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1044 else if (c
== '@' || c
== '%')
1046 beg
= ++input_line_pointer
;
1047 c
= get_symbol_end ();
1048 *input_line_pointer
= c
;
1049 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1052 input_line_pointer
= save
;
1056 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1058 ++input_line_pointer
;
1060 entsize
= get_absolute_expression ();
1064 as_warn (_("invalid merge entity size"));
1069 else if ((attr
& SHF_MERGE
) != 0)
1071 as_warn (_("entity size for SHF_MERGE not specified"));
1075 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1077 as_warn (_("? section flag ignored with G present"));
1080 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1082 ++input_line_pointer
;
1083 group_name
= obj_elf_section_name ();
1084 if (group_name
== NULL
)
1086 else if (*input_line_pointer
== ',')
1088 ++input_line_pointer
;
1090 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1092 input_line_pointer
+= 6;
1096 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1099 else if ((attr
& SHF_GROUP
) != 0)
1101 as_warn (_("group name for SHF_GROUP not specified"));
1107 const char *now_group
= elf_group_name (now_seg
);
1108 if (now_group
!= NULL
)
1110 group_name
= xstrdup (now_group
);
1111 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1122 if (*input_line_pointer
!= '#')
1124 as_bad (_("character following name is not '#'"));
1125 ignore_rest_of_line ();
1128 beg
= ++input_line_pointer
;
1129 c
= get_symbol_end ();
1130 *input_line_pointer
= c
;
1132 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1136 while (*input_line_pointer
++ == ',');
1137 --input_line_pointer
;
1142 demand_empty_rest_of_line ();
1144 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1146 if (push
&& new_subsection
!= -1)
1147 subseg_set (now_seg
, new_subsection
);
1150 /* Change to the .data section. */
1153 obj_elf_data (int i
)
1155 #ifdef md_flush_pending_output
1156 md_flush_pending_output ();
1159 previous_section
= now_seg
;
1160 previous_subsection
= now_subseg
;
1163 #ifdef md_elf_section_change_hook
1164 md_elf_section_change_hook ();
1168 /* Change to the .text section. */
1171 obj_elf_text (int i
)
1173 #ifdef md_flush_pending_output
1174 md_flush_pending_output ();
1177 previous_section
= now_seg
;
1178 previous_subsection
= now_subseg
;
1181 #ifdef md_elf_section_change_hook
1182 md_elf_section_change_hook ();
1186 /* Change to the *ABS* section. */
1189 obj_elf_struct (int i
)
1191 #ifdef md_flush_pending_output
1192 md_flush_pending_output ();
1195 previous_section
= now_seg
;
1196 previous_subsection
= now_subseg
;
1199 #ifdef md_elf_section_change_hook
1200 md_elf_section_change_hook ();
1205 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1209 #ifdef md_flush_pending_output
1210 md_flush_pending_output ();
1213 previous_section
= now_seg
;
1214 previous_subsection
= now_subseg
;
1216 temp
= get_absolute_expression ();
1217 subseg_set (now_seg
, (subsegT
) temp
);
1218 demand_empty_rest_of_line ();
1220 #ifdef md_elf_section_change_hook
1221 md_elf_section_change_hook ();
1225 /* This can be called from the processor backends if they change
1229 obj_elf_section_change_hook (void)
1231 previous_section
= now_seg
;
1232 previous_subsection
= now_subseg
;
1236 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1241 if (previous_section
== 0)
1243 as_warn (_(".previous without corresponding .section; ignored"));
1247 #ifdef md_flush_pending_output
1248 md_flush_pending_output ();
1251 new_section
= previous_section
;
1252 new_subsection
= previous_subsection
;
1253 previous_section
= now_seg
;
1254 previous_subsection
= now_subseg
;
1255 subseg_set (new_section
, new_subsection
);
1257 #ifdef md_elf_section_change_hook
1258 md_elf_section_change_hook ();
1263 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1265 struct section_stack
*top
= section_stack
;
1269 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1273 #ifdef md_flush_pending_output
1274 md_flush_pending_output ();
1277 section_stack
= top
->next
;
1278 previous_section
= top
->prev_seg
;
1279 previous_subsection
= top
->prev_subseg
;
1280 subseg_set (top
->seg
, top
->subseg
);
1283 #ifdef md_elf_section_change_hook
1284 md_elf_section_change_hook ();
1289 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1291 /* Assume delimiter is part of expression. BSD4.2 as fails with
1292 delightful bug, so we are not being incompatible here. */
1293 new_logical_line (NULL
, get_absolute_expression ());
1294 demand_empty_rest_of_line ();
1297 /* This handles the .symver pseudo-op, which is used to specify a
1298 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1299 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1300 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1301 with the same value as the symbol NAME. */
1304 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1311 sym
= get_sym_from_input_line_and_check ();
1313 if (*input_line_pointer
!= ',')
1315 as_bad (_("expected comma after name in .symver"));
1316 ignore_rest_of_line ();
1320 ++input_line_pointer
;
1322 name
= input_line_pointer
;
1324 /* Temporarily include '@' in symbol names. */
1325 old_lexat
= lex_type
[(unsigned char) '@'];
1326 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1327 c
= get_symbol_end ();
1328 lex_type
[(unsigned char) '@'] = old_lexat
;
1330 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1332 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1334 *input_line_pointer
= c
;
1336 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1337 ELF_VER_CHR
) == NULL
)
1339 as_bad (_("missing version name in `%s' for symbol `%s'"),
1340 symbol_get_obj (sym
)->versioned_name
,
1342 ignore_rest_of_line ();
1348 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1350 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1351 name
, symbol_get_obj (sym
)->versioned_name
,
1353 ignore_rest_of_line ();
1357 *input_line_pointer
= c
;
1360 demand_empty_rest_of_line ();
1363 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1364 to the linker the hierarchy in which a particular table resides. The
1365 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1368 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1370 char *cname
, *pname
;
1371 symbolS
*csym
, *psym
;
1374 if (*input_line_pointer
== '#')
1375 ++input_line_pointer
;
1377 cname
= input_line_pointer
;
1378 c
= get_symbol_end ();
1379 csym
= symbol_find (cname
);
1381 /* GCFIXME: should check that we don't have two .vtable_inherits for
1382 the same child symbol. Also, we can currently only do this if the
1383 child symbol is already exists and is placed in a fragment. */
1385 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1387 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1392 *input_line_pointer
= c
;
1395 if (*input_line_pointer
!= ',')
1397 as_bad (_("expected comma after name in .vtable_inherit"));
1398 ignore_rest_of_line ();
1402 ++input_line_pointer
;
1405 if (*input_line_pointer
== '#')
1406 ++input_line_pointer
;
1408 if (input_line_pointer
[0] == '0'
1409 && (input_line_pointer
[1] == '\0'
1410 || ISSPACE (input_line_pointer
[1])))
1412 psym
= section_symbol (absolute_section
);
1413 ++input_line_pointer
;
1417 pname
= input_line_pointer
;
1418 c
= get_symbol_end ();
1419 psym
= symbol_find_or_make (pname
);
1420 *input_line_pointer
= c
;
1423 demand_empty_rest_of_line ();
1428 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1429 return fix_new (symbol_get_frag (csym
),
1430 symbol_get_value_expression (csym
)->X_add_number
,
1431 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1434 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1435 to the linker that a vtable slot was used. The syntax is
1436 ".vtable_entry tablename, offset". */
1439 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1444 if (*input_line_pointer
== '#')
1445 ++input_line_pointer
;
1447 sym
= get_sym_from_input_line_and_check ();
1448 if (*input_line_pointer
!= ',')
1450 as_bad (_("expected comma after name in .vtable_entry"));
1451 ignore_rest_of_line ();
1455 ++input_line_pointer
;
1456 if (*input_line_pointer
== '#')
1457 ++input_line_pointer
;
1459 offset
= get_absolute_expression ();
1461 demand_empty_rest_of_line ();
1463 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1464 BFD_RELOC_VTABLE_ENTRY
);
1467 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1470 skip_past_char (char ** str
, char c
)
1480 #define skip_past_comma(str) skip_past_char (str, ',')
1482 /* A list of attributes that have been explicitly set by the assembly code.
1483 VENDOR is the vendor id, BASE is the tag shifted right by the number
1484 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1485 struct recorded_attribute_info
{
1486 struct recorded_attribute_info
*next
;
1491 static struct recorded_attribute_info
*recorded_attributes
;
1493 /* Record that we have seen an explicit specification of attribute TAG
1494 for vendor VENDOR. */
1497 record_attribute (int vendor
, unsigned int tag
)
1501 struct recorded_attribute_info
*rai
;
1503 base
= tag
/ (8 * sizeof (rai
->mask
));
1504 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1505 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1506 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1512 rai
= XNEW (struct recorded_attribute_info
);
1513 rai
->next
= recorded_attributes
;
1514 rai
->vendor
= vendor
;
1517 recorded_attributes
= rai
;
1520 /* Return true if we have seen an explicit specification of attribute TAG
1521 for vendor VENDOR. */
1524 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1528 struct recorded_attribute_info
*rai
;
1530 base
= tag
/ (8 * sizeof (rai
->mask
));
1531 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1532 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1533 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1534 return (rai
->mask
& mask
) != 0;
1538 /* Parse an attribute directive for VENDOR.
1539 Returns the attribute number read, or zero on error. */
1542 obj_elf_vendor_attribute (int vendor
)
1550 /* Read the first number or name. */
1551 skip_whitespace (input_line_pointer
);
1552 s
= input_line_pointer
;
1553 if (ISDIGIT (*input_line_pointer
))
1556 if (exp
.X_op
!= O_constant
)
1558 tag
= exp
.X_add_number
;
1564 /* A name may contain '_', but no other punctuation. */
1565 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1566 ++input_line_pointer
)
1571 name
= (char *) alloca (i
+ 1);
1572 memcpy (name
, s
, i
);
1575 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1576 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1579 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1582 as_bad (_("Attribute name not recognised: %s"), name
);
1583 ignore_rest_of_line ();
1588 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1590 if (skip_past_comma (&input_line_pointer
) == -1)
1595 if (exp
.X_op
!= O_constant
)
1597 as_bad (_("expected numeric constant"));
1598 ignore_rest_of_line ();
1601 i
= exp
.X_add_number
;
1604 && skip_past_comma (&input_line_pointer
) == -1)
1606 as_bad (_("expected comma"));
1607 ignore_rest_of_line ();
1614 skip_whitespace (input_line_pointer
);
1615 if (*input_line_pointer
!= '"')
1617 s
= demand_copy_C_string (&len
);
1620 record_attribute (vendor
, tag
);
1624 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1627 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1630 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1636 demand_empty_rest_of_line ();
1639 as_bad (_("bad string constant"));
1640 ignore_rest_of_line ();
1643 as_bad (_("expected <tag> , <value>"));
1644 ignore_rest_of_line ();
1648 /* Parse a .gnu_attribute directive. */
1651 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1653 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1657 elf_obj_read_begin_hook (void)
1659 #ifdef NEED_ECOFF_DEBUG
1660 if (ECOFF_DEBUGGING
)
1661 ecoff_read_begin_hook ();
1666 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1668 struct elf_obj_sy
*sy_obj
;
1670 sy_obj
= symbol_get_obj (symbolP
);
1671 sy_obj
->size
= NULL
;
1672 sy_obj
->versioned_name
= NULL
;
1674 #ifdef NEED_ECOFF_DEBUG
1675 if (ECOFF_DEBUGGING
)
1676 ecoff_symbol_new_hook (symbolP
);
1680 /* When setting one symbol equal to another, by default we probably
1681 want them to have the same "size", whatever it means in the current
1685 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1687 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1688 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1691 if (destelf
->size
== NULL
)
1692 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1693 *destelf
->size
= *srcelf
->size
;
1697 if (destelf
->size
!= NULL
)
1698 free (destelf
->size
);
1699 destelf
->size
= NULL
;
1701 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1702 /* Don't copy visibility. */
1703 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1704 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1708 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1713 asection
*seg
= now_seg
;
1714 subsegT subseg
= now_subseg
;
1715 Elf_Internal_Note i_note
;
1716 Elf_External_Note e_note
;
1717 asection
*note_secp
= NULL
;
1720 if (*input_line_pointer
== '\"')
1724 ++input_line_pointer
; /* -> 1st char of string. */
1725 name
= input_line_pointer
;
1727 while (is_a_char (c
= next_char_of_string ()))
1729 c
= *input_line_pointer
;
1730 *input_line_pointer
= '\0';
1731 *(input_line_pointer
- 1) = '\0';
1732 *input_line_pointer
= c
;
1734 /* Create the .note section. */
1735 note_secp
= subseg_new (".note", 0);
1736 bfd_set_section_flags (stdoutput
,
1738 SEC_HAS_CONTENTS
| SEC_READONLY
);
1740 /* Process the version string. */
1741 len
= strlen (name
) + 1;
1743 /* PR 3456: Although the name field is padded out to an 4-byte
1744 boundary, the namesz field should not be adjusted. */
1745 i_note
.namesz
= len
;
1746 i_note
.descsz
= 0; /* No description. */
1747 i_note
.type
= NT_VERSION
;
1748 p
= frag_more (sizeof (e_note
.namesz
));
1749 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1750 p
= frag_more (sizeof (e_note
.descsz
));
1751 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1752 p
= frag_more (sizeof (e_note
.type
));
1753 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1754 p
= frag_more (len
);
1755 memcpy (p
, name
, len
);
1757 frag_align (2, 0, 0);
1759 subseg_set (seg
, subseg
);
1762 as_bad (_("expected quoted string"));
1764 demand_empty_rest_of_line ();
1768 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1770 char *name
= input_line_pointer
;
1771 char c
= get_symbol_end ();
1776 p
= input_line_pointer
;
1779 if (*input_line_pointer
!= ',')
1782 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1784 ignore_rest_of_line ();
1787 input_line_pointer
++;
1789 if (exp
.X_op
== O_absent
)
1791 as_bad (_("missing expression in .size directive"));
1792 exp
.X_op
= O_constant
;
1793 exp
.X_add_number
= 0;
1796 sym
= symbol_find_or_make (name
);
1798 if (exp
.X_op
== O_constant
)
1800 S_SET_SIZE (sym
, exp
.X_add_number
);
1801 if (symbol_get_obj (sym
)->size
)
1803 xfree (symbol_get_obj (sym
)->size
);
1804 symbol_get_obj (sym
)->size
= NULL
;
1809 symbol_get_obj (sym
)->size
=
1810 (expressionS
*) xmalloc (sizeof (expressionS
));
1811 *symbol_get_obj (sym
)->size
= exp
;
1813 demand_empty_rest_of_line ();
1816 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1817 There are six syntaxes:
1819 The first (used on Solaris) is
1821 The second (used on UnixWare) is
1823 The third (reportedly to be used on Irix 6.0) is
1825 The fourth (used on NetBSD/Arm and Linux/ARM) is
1827 The fifth (used on SVR4/860) is
1828 .type SYM,"function"
1829 The sixth (emitted by recent SunPRO under Solaris) is
1831 where the integer is the STT_* value.
1835 obj_elf_type_name (char *cp
)
1839 p
= input_line_pointer
;
1840 if (*input_line_pointer
>= '0'
1841 && *input_line_pointer
<= '9')
1843 while (*input_line_pointer
>= '0'
1844 && *input_line_pointer
<= '9')
1845 ++input_line_pointer
;
1846 *cp
= *input_line_pointer
;
1847 *input_line_pointer
= '\0';
1850 *cp
= get_symbol_end ();
1856 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1860 const char *type_name
;
1862 elf_symbol_type
*elfsym
;
1864 sym
= get_sym_from_input_line_and_check ();
1865 c
= *input_line_pointer
;
1866 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1868 if (*input_line_pointer
== ',')
1869 ++input_line_pointer
;
1872 if ( *input_line_pointer
== '#'
1873 || *input_line_pointer
== '@'
1874 || *input_line_pointer
== '"'
1875 || *input_line_pointer
== '%')
1876 ++input_line_pointer
;
1878 type_name
= obj_elf_type_name (& c
);
1881 if (strcmp (type_name
, "function") == 0
1882 || strcmp (type_name
, "2") == 0
1883 || strcmp (type_name
, "STT_FUNC") == 0)
1884 type
= BSF_FUNCTION
;
1885 else if (strcmp (type_name
, "object") == 0
1886 || strcmp (type_name
, "1") == 0
1887 || strcmp (type_name
, "STT_OBJECT") == 0)
1889 else if (strcmp (type_name
, "tls_object") == 0
1890 || strcmp (type_name
, "6") == 0
1891 || strcmp (type_name
, "STT_TLS") == 0)
1892 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1893 else if (strcmp (type_name
, "notype") == 0
1894 || strcmp (type_name
, "0") == 0
1895 || strcmp (type_name
, "STT_NOTYPE") == 0)
1897 else if (strcmp (type_name
, "common") == 0
1898 || strcmp (type_name
, "5") == 0
1899 || strcmp (type_name
, "STT_COMMON") == 0)
1903 if (! S_IS_COMMON (sym
))
1905 if (S_IS_VOLATILE (sym
))
1907 sym
= symbol_clone (sym
, 1);
1908 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1909 S_SET_VALUE (sym
, 0);
1910 S_SET_EXTERNAL (sym
);
1911 symbol_set_frag (sym
, &zero_address_frag
);
1912 S_CLEAR_VOLATILE (sym
);
1914 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1915 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1918 /* FIXME: Is it safe to just change the section ? */
1919 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1920 S_SET_VALUE (sym
, 0);
1921 S_SET_EXTERNAL (sym
);
1925 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1926 || strcmp (type_name
, "10") == 0
1927 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1929 const struct elf_backend_data
*bed
;
1931 bed
= get_elf_backend_data (stdoutput
);
1932 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1933 || bed
->elf_osabi
== ELFOSABI_FREEBSD
1934 /* GNU is still using the default value 0. */
1935 || bed
->elf_osabi
== ELFOSABI_NONE
))
1936 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
1938 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1940 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1942 struct elf_backend_data
*bed
;
1944 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1945 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1946 /* GNU is still using the default value 0. */
1947 || bed
->elf_osabi
== ELFOSABI_NONE
))
1948 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1950 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1951 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
1952 bed
->elf_osabi
= ELFOSABI_GNU
;
1954 #ifdef md_elf_symbol_type
1955 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1959 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1961 *input_line_pointer
= c
;
1963 if (*input_line_pointer
== '"')
1964 ++input_line_pointer
;
1966 elfsym
->symbol
.flags
|= type
;
1968 demand_empty_rest_of_line ();
1972 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1974 static segT comment_section
;
1975 segT old_section
= now_seg
;
1976 int old_subsection
= now_subseg
;
1978 #ifdef md_flush_pending_output
1979 md_flush_pending_output ();
1982 if (!comment_section
)
1985 comment_section
= subseg_new (".comment", 0);
1986 bfd_set_section_flags (stdoutput
, comment_section
,
1987 SEC_READONLY
| SEC_HAS_CONTENTS
1988 | SEC_MERGE
| SEC_STRINGS
);
1989 comment_section
->entsize
= 1;
1990 #ifdef md_elf_section_change_hook
1991 md_elf_section_change_hook ();
1997 subseg_set (comment_section
, 0);
1999 subseg_set (old_section
, old_subsection
);
2002 #ifdef INIT_STAB_SECTION
2004 /* The first entry in a .stabs section is special. */
2007 obj_elf_init_stab_section (segT seg
)
2012 unsigned int stroff
;
2014 /* Force the section to align to a longword boundary. Without this,
2015 UnixWare ar crashes. */
2016 bfd_set_section_alignment (stdoutput
, seg
, 2);
2018 /* Make space for this first symbol. */
2022 as_where (&file
, NULL
);
2023 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
2024 strcpy (stabstr_name
, segment_name (seg
));
2025 strcat (stabstr_name
, "str");
2026 stroff
= get_stab_string_offset (file
, stabstr_name
);
2027 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2028 md_number_to_chars (p
, stroff
, 4);
2029 seg_info (seg
)->stabu
.p
= p
;
2034 /* Fill in the counts in the first entry in a .stabs section. */
2037 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2044 if (strncmp (".stab", sec
->name
, 5))
2046 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2049 name
= (char *) alloca (strlen (sec
->name
) + 4);
2050 strcpy (name
, sec
->name
);
2051 strcat (name
, "str");
2052 strsec
= bfd_get_section_by_name (abfd
, name
);
2054 strsz
= bfd_section_size (abfd
, strsec
);
2057 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
2059 p
= seg_info (sec
)->stabu
.p
;
2060 gas_assert (p
!= 0);
2062 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2063 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2066 #ifdef NEED_ECOFF_DEBUG
2068 /* This function is called by the ECOFF code. It is supposed to
2069 record the external symbol information so that the backend can
2070 write it out correctly. The ELF backend doesn't actually handle
2071 this at the moment, so we do it ourselves. We save the information
2074 #ifdef OBJ_MAYBE_ELF
2078 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2080 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2083 /* This function is called by bfd_ecoff_debug_externals. It is
2084 supposed to *EXT to the external symbol information, and return
2085 whether the symbol should be used at all. */
2088 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2090 if (sym
->udata
.p
== NULL
)
2092 *ext
= *(EXTR
*) sym
->udata
.p
;
2096 /* This function is called by bfd_ecoff_debug_externals. It has
2097 nothing to do for ELF. */
2100 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2101 bfd_size_type indx ATTRIBUTE_UNUSED
)
2105 #endif /* NEED_ECOFF_DEBUG */
2108 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2110 struct elf_obj_sy
*sy_obj
;
2113 #ifdef NEED_ECOFF_DEBUG
2114 if (ECOFF_DEBUGGING
)
2115 ecoff_frob_symbol (symp
);
2118 sy_obj
= symbol_get_obj (symp
);
2120 size
= sy_obj
->size
;
2123 if (resolve_expression (size
)
2124 && size
->X_op
== O_constant
)
2125 S_SET_SIZE (symp
, size
->X_add_number
);
2128 if (flag_size_check
== size_check_error
)
2129 as_bad (_(".size expression for %s "
2130 "does not evaluate to a constant"), S_GET_NAME (symp
));
2132 as_warn (_(".size expression for %s "
2133 "does not evaluate to a constant"), S_GET_NAME (symp
));
2135 free (sy_obj
->size
);
2136 sy_obj
->size
= NULL
;
2139 if (sy_obj
->versioned_name
!= NULL
)
2143 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
2145 /* We will have already reported an error about a missing version. */
2148 /* This symbol was given a new name with the .symver directive.
2150 If this is an external reference, just rename the symbol to
2151 include the version string. This will make the relocs be
2152 against the correct versioned symbol.
2154 If this is a definition, add an alias. FIXME: Using an alias
2155 will permit the debugging information to refer to the right
2156 symbol. However, it's not clear whether it is the best
2159 else if (! S_IS_DEFINED (symp
))
2161 /* Verify that the name isn't using the @@ syntax--this is
2162 reserved for definitions of the default version to link
2164 if (p
[1] == ELF_VER_CHR
)
2166 as_bad (_("invalid attempt to declare external version name"
2167 " as default in symbol `%s'"),
2168 sy_obj
->versioned_name
);
2171 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2175 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2179 /* The @@@ syntax is a special case. It renames the
2180 symbol name to versioned_name with one `@' removed. */
2181 l
= strlen (&p
[3]) + 1;
2182 memmove (&p
[2], &p
[3], l
);
2183 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2189 /* FIXME: Creating a new symbol here is risky. We're
2190 in the final loop over the symbol table. We can
2191 get away with it only because the symbol goes to
2192 the end of the list, where the loop will still see
2193 it. It would probably be better to do this in
2194 obj_frob_file_before_adjust. */
2196 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
2198 /* Now we act as though we saw symp2 = sym. */
2200 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2202 /* Subtracting out the frag address here is a hack
2203 because we are in the middle of the final loop. */
2206 - symbol_get_frag (symp
)->fr_address
));
2208 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2210 /* This will copy over the size information. */
2211 copy_symbol_attributes (symp2
, symp
);
2213 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2215 if (S_IS_WEAK (symp
))
2218 if (S_IS_EXTERNAL (symp
))
2219 S_SET_EXTERNAL (symp2
);
2224 /* Double check weak symbols. */
2225 if (S_IS_WEAK (symp
))
2227 if (S_IS_COMMON (symp
))
2228 as_bad (_("symbol `%s' can not be both weak and common"),
2233 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2234 any undefined non-function symbol to STT_OBJECT. We try to be
2235 compatible, since newer Irix 5 and 6 linkers care. However, we
2236 only set undefined symbols to be STT_OBJECT if we are on Irix,
2237 because that is the only time gcc will generate the necessary
2238 .global directives to mark functions. */
2240 if (S_IS_COMMON (symp
))
2241 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2243 if (strstr (TARGET_OS
, "irix") != NULL
2244 && ! S_IS_DEFINED (symp
)
2245 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2246 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2252 asection
**head
; /* Section lists. */
2253 unsigned int *elt_count
; /* Number of sections in each list. */
2254 unsigned int num_group
; /* Number of lists. */
2255 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2258 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2259 add it to a list of sections belonging to the group. INF is a
2260 pointer to a struct group_list, which is where we store the head of
2264 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2266 struct group_list
*list
= (struct group_list
*) inf
;
2267 const char *group_name
= elf_group_name (sec
);
2269 unsigned int *elem_idx
;
2270 unsigned int *idx_ptr
;
2272 if (group_name
== NULL
)
2275 /* If this group already has a list, add the section to the head of
2277 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2278 if (elem_idx
!= NULL
)
2280 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2281 list
->head
[*elem_idx
] = sec
;
2282 list
->elt_count
[*elem_idx
] += 1;
2286 /* New group. Make the arrays bigger in chunks to minimize calls to
2288 i
= list
->num_group
;
2291 unsigned int newsize
= i
+ 128;
2292 list
->head
= (asection
**) xrealloc (list
->head
,
2293 newsize
* sizeof (*list
->head
));
2294 list
->elt_count
= (unsigned int *)
2295 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2297 list
->head
[i
] = sec
;
2298 list
->elt_count
[i
] = 1;
2299 list
->num_group
+= 1;
2301 /* Add index to hash. */
2302 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2304 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2307 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2309 free ((unsigned int *) val
);
2313 elf_adjust_symtab (void)
2315 struct group_list list
;
2318 /* Go find section groups. */
2321 list
.elt_count
= NULL
;
2322 list
.indexes
= hash_new ();
2323 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2325 /* Make the SHT_GROUP sections that describe each section group. We
2326 can't set up the section contents here yet, because elf section
2327 indices have yet to be calculated. elf.c:set_group_contents does
2328 the rest of the work. */
2329 for (i
= 0; i
< list
.num_group
; i
++)
2331 const char *group_name
= elf_group_name (list
.head
[i
]);
2332 const char *sec_name
;
2338 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2339 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2340 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2342 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2343 if (s
!= list
.head
[i
])
2345 as_warn (_("assuming all members of group `%s' are COMDAT"),
2351 sec_name
= ".group";
2352 s
= subseg_force_new (sec_name
, 0);
2354 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2355 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2357 as_fatal (_("can't create group: %s"),
2358 bfd_errmsg (bfd_get_error ()));
2360 elf_section_type (s
) = SHT_GROUP
;
2362 /* Pass a pointer to the first section in this group. */
2363 elf_next_in_group (s
) = list
.head
[i
];
2364 /* Make sure that the signature symbol for the group has the
2365 name of the group. */
2366 sy
= symbol_find_exact (group_name
);
2368 || (sy
!= symbol_lastP
2369 && (sy
->sy_next
== NULL
2370 || sy
->sy_next
->sy_previous
!= sy
)))
2372 /* Create the symbol now. */
2373 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2375 /* Before Solaris 11 build 154, Sun ld rejects local group
2376 signature symbols, so make them weak hidden instead. */
2377 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2378 S_SET_OTHER (sy
, STV_HIDDEN
);
2380 symbol_get_obj (sy
)->local
= 1;
2382 symbol_table_insert (sy
);
2384 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2386 size
= 4 * (list
.elt_count
[i
] + 1);
2387 bfd_set_section_size (stdoutput
, s
, size
);
2388 s
->contents
= (unsigned char *) frag_more (size
);
2389 frag_now
->fr_fix
= frag_now_fix_octets ();
2390 frag_wane (frag_now
);
2394 hash_traverse (list
.indexes
, free_section_idx
);
2395 hash_die (list
.indexes
);
2399 elf_frob_file (void)
2401 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2403 #ifdef elf_tc_final_processing
2404 elf_tc_final_processing ();
2408 /* It removes any unneeded versioned symbols from the symbol table. */
2411 elf_frob_file_before_adjust (void)
2417 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2418 if (!S_IS_DEFINED (symp
))
2420 if (symbol_get_obj (symp
)->versioned_name
)
2424 /* The @@@ syntax is a special case. If the symbol is
2425 not defined, 2 `@'s will be removed from the
2428 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2430 if (p
!= NULL
&& p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2432 size_t l
= strlen (&p
[3]) + 1;
2433 memmove (&p
[1], &p
[3], l
);
2435 if (symbol_used_p (symp
) == 0
2436 && symbol_used_in_reloc_p (symp
) == 0)
2437 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2440 /* If there was .weak foo, but foo was neither defined nor
2441 used anywhere, remove it. */
2443 else if (S_IS_WEAK (symp
)
2444 && symbol_used_p (symp
) == 0
2445 && symbol_used_in_reloc_p (symp
) == 0)
2446 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2451 /* It is required that we let write_relocs have the opportunity to
2452 optimize away fixups before output has begun, since it is possible
2453 to eliminate all fixups for a section and thus we never should
2454 have generated the relocation section. */
2457 elf_frob_file_after_relocs (void)
2459 #ifdef NEED_ECOFF_DEBUG
2460 if (ECOFF_DEBUGGING
)
2461 /* Generate the ECOFF debugging information. */
2463 const struct ecoff_debug_swap
*debug_swap
;
2464 struct ecoff_debug_info debug
;
2469 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2470 know (debug_swap
!= NULL
);
2471 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2473 /* Set up the pointers in debug. */
2474 #define SET(ptr, offset, type) \
2475 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2477 SET (line
, cbLineOffset
, unsigned char *);
2478 SET (external_dnr
, cbDnOffset
, void *);
2479 SET (external_pdr
, cbPdOffset
, void *);
2480 SET (external_sym
, cbSymOffset
, void *);
2481 SET (external_opt
, cbOptOffset
, void *);
2482 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2483 SET (ss
, cbSsOffset
, char *);
2484 SET (external_fdr
, cbFdOffset
, void *);
2485 SET (external_rfd
, cbRfdOffset
, void *);
2486 /* ssext and external_ext are set up just below. */
2490 /* Set up the external symbols. */
2491 debug
.ssext
= debug
.ssext_end
= NULL
;
2492 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2493 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2494 elf_get_extr
, elf_set_index
))
2495 as_fatal (_("failed to set up debugging information: %s"),
2496 bfd_errmsg (bfd_get_error ()));
2498 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2499 gas_assert (sec
!= NULL
);
2501 know (!stdoutput
->output_has_begun
);
2503 /* We set the size of the section, call bfd_set_section_contents
2504 to force the ELF backend to allocate a file position, and then
2505 write out the data. FIXME: Is this really the best way to do
2507 bfd_set_section_size
2508 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2510 /* Pass BUF to bfd_set_section_contents because this will
2511 eventually become a call to fwrite, and ISO C prohibits
2512 passing a NULL pointer to a stdio function even if the
2513 pointer will not be used. */
2514 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2515 as_fatal (_("can't start writing .mdebug section: %s"),
2516 bfd_errmsg (bfd_get_error ()));
2518 know (stdoutput
->output_has_begun
);
2519 know (sec
->filepos
!= 0);
2521 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2523 as_fatal (_("could not write .mdebug section: %s"),
2524 bfd_errmsg (bfd_get_error ()));
2526 #endif /* NEED_ECOFF_DEBUG */
2531 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2532 SCO specific identifier in the .notes section to satisfy the SCO
2535 This looks more complicated than it really is. As opposed to the
2536 "obvious" solution, this should handle the cross dev cases
2537 correctly. (i.e, hosting on a 64 bit big endian processor, but
2538 generating SCO Elf code) Efficiency isn't a concern, as there
2539 should be exactly one of these sections per object module.
2541 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2544 int_32 namesz = 4 ; Name size
2545 int_32 descsz = 12 ; Descriptive information
2547 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2548 int_32 version = (major ver # << 16) | version of tools ;
2549 int_32 source = (tool_id << 16 ) | 1 ;
2550 int_32 info = 0 ; These are set by the SCO tools, but we
2551 don't know enough about the source
2552 environment to set them. SCO ld currently
2553 ignores them, and recommends we set them
2556 #define SCO_MAJOR_VERSION 0x1
2557 #define SCO_MINOR_VERSION 0x1
2567 asection
*seg
= now_seg
;
2568 subsegT subseg
= now_subseg
;
2569 Elf_Internal_Note i_note
;
2570 Elf_External_Note e_note
;
2571 asection
*note_secp
= NULL
;
2574 /* create the .note section */
2576 note_secp
= subseg_new (".note", 0);
2577 bfd_set_section_flags (stdoutput
,
2579 SEC_HAS_CONTENTS
| SEC_READONLY
);
2581 /* process the version string */
2584 i_note
.descsz
= 12; /* 12 descriptive bytes */
2585 i_note
.type
= NT_VERSION
; /* Contains a version string */
2587 p
= frag_more (sizeof (i_note
.namesz
));
2588 md_number_to_chars (p
, i_note
.namesz
, 4);
2590 p
= frag_more (sizeof (i_note
.descsz
));
2591 md_number_to_chars (p
, i_note
.descsz
, 4);
2593 p
= frag_more (sizeof (i_note
.type
));
2594 md_number_to_chars (p
, i_note
.type
, 4);
2599 /* Note: this is the version number of the ELF we're representing */
2601 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2603 /* Here, we pick a magic number for ourselves (yes, I "registered"
2604 it with SCO. The bottom bit shows that we are compat with the
2607 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2609 /* If we knew (or cared) what the source language options were, we'd
2610 fill them in here. SCO has given us permission to ignore these
2611 and just set them to zero. */
2613 md_number_to_chars (p
, 0x0000, 4);
2615 frag_align (2, 0, 0);
2617 /* We probably can't restore the current segment, for there likely
2620 subseg_set (seg
, subseg
);
2624 #endif /* SCO_ELF */
2627 elf_generate_asm_lineno (void)
2629 #ifdef NEED_ECOFF_DEBUG
2630 if (ECOFF_DEBUGGING
)
2631 ecoff_generate_asm_lineno ();
2636 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2637 int what ATTRIBUTE_UNUSED
,
2638 const char *string ATTRIBUTE_UNUSED
,
2639 int type ATTRIBUTE_UNUSED
,
2640 int other ATTRIBUTE_UNUSED
,
2641 int desc ATTRIBUTE_UNUSED
)
2643 #ifdef NEED_ECOFF_DEBUG
2644 if (ECOFF_DEBUGGING
)
2645 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2650 elf_separate_stab_sections (void)
2652 #ifdef NEED_ECOFF_DEBUG
2653 return (!ECOFF_DEBUGGING
);
2660 elf_init_stab_section (segT seg
)
2662 #ifdef NEED_ECOFF_DEBUG
2663 if (!ECOFF_DEBUGGING
)
2665 obj_elf_init_stab_section (seg
);
2668 const struct format_ops elf_format_ops
=
2670 bfd_target_elf_flavour
,
2671 0, /* dfl_leading_underscore */
2672 1, /* emit_section_symbols */
2677 elf_frob_file_before_adjust
,
2678 0, /* obj_frob_file_before_fix */
2679 elf_frob_file_after_relocs
,
2680 elf_s_get_size
, elf_s_set_size
,
2681 elf_s_get_align
, elf_s_set_align
,
2688 elf_copy_symbol_attributes
,
2689 elf_generate_asm_lineno
,
2691 elf_separate_stab_sections
,
2692 elf_init_stab_section
,
2693 elf_sec_sym_ok_for_reloc
,
2695 #ifdef NEED_ECOFF_DEBUG
2698 0, /* ecoff_set_ext */
2700 elf_obj_read_begin_hook
,
2701 elf_obj_symbol_new_hook
,