1 /* ELF object file format
2 Copyright (C) 1992-2020 Free Software Foundation, Inc.
4 This file is part of GAS, the GNU Assembler.
6 GAS is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as
8 published by the Free Software Foundation; either version 3,
9 or (at your option) any later version.
11 GAS is distributed in the hope that it will be useful, but
12 WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
14 the GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GAS; see the file COPYING. If not, write to the Free
18 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
21 #define OBJ_HEADER "obj-elf.h"
23 #include "safe-ctype.h"
26 #include "dwarf2dbg.h"
28 #ifndef ECOFF_DEBUGGING
29 #define ECOFF_DEBUGGING 0
31 #define NEED_ECOFF_DEBUG
34 #ifdef NEED_ECOFF_DEBUG
36 #include "bfd/ecoff-bfd.h"
40 #include "elf/alpha.h"
52 #include "elf/x86-64.h"
60 #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", obj_elf_vtable_inherit
, 0},
117 {"vtable_entry", 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", 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 { "aent", ecoff_directive_ent
, 1 },
164 { "begin", ecoff_directive_begin
, 0 },
165 { "bend", ecoff_directive_bend
, 0 },
166 { "end", ecoff_directive_end
, 0 },
167 { "ent", ecoff_directive_ent
, 0 },
168 { "fmask", ecoff_directive_fmask
, 0 },
169 { "frame", ecoff_directive_frame
, 0 },
170 { "loc", ecoff_directive_loc
, 0 },
171 { "mask", ecoff_directive_mask
, 0 },
173 /* Other ECOFF directives. */
174 { "extern", ecoff_directive_extern
, 0 },
176 /* These are used on Irix. I don't know how to implement them. */
177 { "alias", s_ignore
, 0 },
178 { "bgnb", s_ignore
, 0 },
179 { "endb", s_ignore
, 0 },
180 { "lab", s_ignore
, 0 },
181 { "noalias", s_ignore
, 0 },
182 { "verstamp", s_ignore
, 0 },
183 { "vreg", s_ignore
, 0 },
186 {NULL
, NULL
, 0} /* end sentinel */
190 #include "aout/aout64.h"
192 /* This is called when the assembler starts. */
194 asection
*elf_com_section_ptr
;
201 /* Add symbols for the known sections to the symbol table. */
202 s
= bfd_get_section_by_name (stdoutput
, TEXT_SECTION_NAME
);
203 symbol_table_insert (section_symbol (s
));
204 s
= bfd_get_section_by_name (stdoutput
, DATA_SECTION_NAME
);
205 symbol_table_insert (section_symbol (s
));
206 s
= bfd_get_section_by_name (stdoutput
, BSS_SECTION_NAME
);
207 symbol_table_insert (section_symbol (s
));
208 elf_com_section_ptr
= bfd_com_section_ptr
;
212 elf_pop_insert (void)
214 pop_insert (elf_pseudo_table
);
216 pop_insert (ecoff_debug_pseudo_table
);
220 elf_s_get_size (symbolS
*sym
)
222 return S_GET_SIZE (sym
);
226 elf_s_set_size (symbolS
*sym
, bfd_vma sz
)
228 S_SET_SIZE (sym
, sz
);
232 elf_s_get_align (symbolS
*sym
)
234 return S_GET_ALIGN (sym
);
238 elf_s_set_align (symbolS
*sym
, bfd_vma align
)
240 S_SET_ALIGN (sym
, align
);
244 elf_s_get_other (symbolS
*sym
)
246 return elf_symbol (symbol_get_bfdsym (sym
))->internal_elf_sym
.st_other
;
250 elf_s_set_other (symbolS
*sym
, int other
)
252 S_SET_OTHER (sym
, other
);
256 elf_sec_sym_ok_for_reloc (asection
*sec
)
258 return obj_sec_sym_ok_for_reloc (sec
);
262 elf_file_symbol (const char *s
, int appfile
)
267 || symbol_rootP
== NULL
268 || (bsym
= symbol_get_bfdsym (symbol_rootP
)) == NULL
269 || (bsym
->flags
& BSF_FILE
) == 0)
274 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
275 symbol_set_frag (sym
, &zero_address_frag
);
277 name_length
= strlen (s
);
278 if (name_length
> strlen (S_GET_NAME (sym
)))
280 obstack_grow (¬es
, s
, name_length
+ 1);
281 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
284 strcpy ((char *) S_GET_NAME (sym
), s
);
286 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
288 if (symbol_rootP
!= sym
289 && ((bsym
= symbol_get_bfdsym (symbol_rootP
)) == NULL
290 || (bsym
->flags
& BSF_FILE
) == 0))
292 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
293 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
297 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
301 #ifdef NEED_ECOFF_DEBUG
302 ecoff_new_file (s
, appfile
);
306 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
307 Parse a possible alignment value. */
310 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
313 int is_local
= symbol_get_obj (symbolP
)->local
;
315 if (*input_line_pointer
== ',')
317 char *save
= input_line_pointer
;
319 input_line_pointer
++;
322 if (*input_line_pointer
== '"')
324 /* For sparc. Accept .common symbol, length, "bss" */
325 input_line_pointer
++;
326 /* Some use the dot, some don't. */
327 if (*input_line_pointer
== '.')
328 input_line_pointer
++;
329 /* Some say data, some say bss. */
330 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
331 input_line_pointer
+= 4;
332 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
333 input_line_pointer
+= 5;
336 char *p
= input_line_pointer
;
341 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
342 if (*input_line_pointer
++ == '"')
344 c
= *input_line_pointer
;
345 *input_line_pointer
= '\0';
346 as_bad (_("bad .common segment %s"), p
);
347 *input_line_pointer
= c
;
348 ignore_rest_of_line ();
351 /* ??? Don't ask me why these are always global. */
356 input_line_pointer
= save
;
357 align
= parse_align (is_local
);
358 if (align
== (addressT
) -1)
365 bss_alloc (symbolP
, size
, align
);
366 S_CLEAR_EXTERNAL (symbolP
);
370 S_SET_VALUE (symbolP
, size
);
371 S_SET_ALIGN (symbolP
, align
);
372 S_SET_EXTERNAL (symbolP
);
373 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
376 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
382 obj_elf_common (int is_common
)
384 if (flag_mri
&& is_common
)
387 s_comm_internal (0, elf_common_parse
);
391 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
393 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
396 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
400 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
402 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
405 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
409 get_sym_from_input_line_and_check (void)
415 c
= get_symbol_name (& name
);
416 sym
= symbol_find_or_make (name
);
417 *input_line_pointer
= c
;
418 SKIP_WHITESPACE_AFTER_NAME ();
420 /* There is no symbol name if input_line_pointer has not moved. */
421 if (name
== input_line_pointer
)
422 as_bad (_("Missing symbol name in directive"));
427 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
434 symbolP
= get_sym_from_input_line_and_check ();
435 c
= *input_line_pointer
;
436 S_CLEAR_EXTERNAL (symbolP
);
437 symbol_get_obj (symbolP
)->local
= 1;
440 input_line_pointer
++;
442 if (*input_line_pointer
== '\n')
447 demand_empty_rest_of_line ();
451 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
458 symbolP
= get_sym_from_input_line_and_check ();
459 c
= *input_line_pointer
;
460 S_SET_WEAK (symbolP
);
463 input_line_pointer
++;
465 if (*input_line_pointer
== '\n')
470 demand_empty_rest_of_line ();
474 obj_elf_visibility (int visibility
)
479 elf_symbol_type
*elfsym
;
483 symbolP
= get_sym_from_input_line_and_check ();
485 bfdsym
= symbol_get_bfdsym (symbolP
);
486 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
490 elfsym
->internal_elf_sym
.st_other
&= ~3;
491 elfsym
->internal_elf_sym
.st_other
|= visibility
;
493 c
= *input_line_pointer
;
496 input_line_pointer
++;
500 if (*input_line_pointer
== '\n')
506 demand_empty_rest_of_line ();
509 static segT previous_section
;
510 static int previous_subsection
;
514 struct section_stack
*next
;
516 int subseg
, prev_subseg
;
519 static struct section_stack
*section_stack
;
522 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
524 struct elf_section_match
*match
= (struct elf_section_match
*) inf
;
525 const char *gname
= match
->group_name
;
526 const char *group_name
= elf_group_name (sec
);
527 const char *linked_to_symbol_name
528 = sec
->map_head
.linked_to_symbol_name
;
529 unsigned int info
= elf_section_data (sec
)->this_hdr
.sh_info
;
531 return (info
== match
->info
532 && ((bfd_section_flags (sec
) & SEC_ASSEMBLER_SECTION_ID
)
533 == (match
->flags
& SEC_ASSEMBLER_SECTION_ID
))
534 && sec
->section_id
== match
->section_id
535 && (group_name
== gname
536 || (group_name
!= NULL
538 && strcmp (group_name
, gname
) == 0))
539 && (linked_to_symbol_name
== match
->linked_to_symbol_name
540 || (linked_to_symbol_name
!= NULL
541 && match
->linked_to_symbol_name
!= NULL
542 && strcmp (linked_to_symbol_name
,
543 match
->linked_to_symbol_name
) == 0)));
546 /* Handle the .section pseudo-op. This code supports two different
549 The first is found on Solaris, and looks like
550 .section ".sec1",#alloc,#execinstr,#write
551 Here the names after '#' are the SHF_* flags to turn on for the
552 section. I'm not sure how it determines the SHT_* type (BFD
553 doesn't really give us control over the type, anyhow).
555 The second format is found on UnixWare, and probably most SVR4
556 machines, and looks like
557 .section .sec1,"a",@progbits
558 The quoted string may contain any combination of a, w, x, and
559 represents the SHF_* flags to turn on for the section. The string
560 beginning with '@' can be progbits or nobits. There should be
561 other possibilities, but I don't know what they are. In any case,
562 BFD doesn't really let us set the section type. */
565 obj_elf_change_section (const char *name
,
569 struct elf_section_match
*match_p
,
576 const struct elf_backend_data
*bed
;
577 const struct bfd_elf_special_section
*ssect
;
581 static struct elf_section_match unused_match
;
582 match_p
= &unused_match
;
585 #ifdef md_flush_pending_output
586 md_flush_pending_output ();
589 /* Switch to the section, creating it if necessary. */
592 struct section_stack
*elt
;
593 elt
= XNEW (struct section_stack
);
594 elt
->next
= section_stack
;
596 elt
->prev_seg
= previous_section
;
597 elt
->subseg
= now_subseg
;
598 elt
->prev_subseg
= previous_subsection
;
601 previous_section
= now_seg
;
602 previous_subsection
= now_subseg
;
604 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
612 sec
= subseg_force_new (name
, 0);
614 bed
= get_elf_backend_data (stdoutput
);
615 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
619 bfd_boolean override
= FALSE
;
621 if (type
== SHT_NULL
)
623 else if (type
!= ssect
->type
)
626 /* Some older versions of gcc will emit
628 .section .init_array,"aw",@progbits
630 for __attribute__ ((section (".init_array"))).
631 "@progbits" is incorrect. Also for x86-64 large bss
632 sections, some older versions of gcc will emit
634 .section .lbss,"aw",@progbits
636 "@progbits" is incorrect. */
638 && (bed
->s
->arch_size
!= 64
639 || !(ssect
->attr
& SHF_X86_64_LARGE
))
641 && ssect
->type
!= SHT_INIT_ARRAY
642 && ssect
->type
!= SHT_FINI_ARRAY
643 && ssect
->type
!= SHT_PREINIT_ARRAY
)
645 /* We allow to specify any type for a .note section. */
646 if (ssect
->type
!= SHT_NOTE
647 /* Processor and application defined types are allowed too. */
648 && type
< SHT_LOPROC
)
649 as_warn (_("setting incorrect section type for %s"),
654 as_warn (_("ignoring incorrect section type for %s"),
660 if (old_sec
== NULL
&& ((attr
& ~(SHF_MASKOS
| SHF_MASKPROC
))
661 & ~ssect
->attr
) != 0)
663 /* As a GNU extension, we permit a .note section to be
664 allocatable. If the linker sees an allocatable .note
665 section, it will create a PT_NOTE segment in the output
666 file. We also allow "x" for .note.GNU-stack. */
667 if (ssect
->type
== SHT_NOTE
668 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
670 /* Allow different SHF_MERGE and SHF_STRINGS if we have
671 something like .rodata.str. */
672 else if (ssect
->suffix_length
== -2
673 && name
[ssect
->prefix_length
] == '.'
677 & ~SHF_STRINGS
) == 0)
679 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
680 else if (attr
== SHF_ALLOC
681 && (strcmp (name
, ".interp") == 0
682 || strcmp (name
, ".strtab") == 0
683 || strcmp (name
, ".symtab") == 0))
685 /* .note.GNU-stack can have SHF_EXECINSTR. */
686 else if (attr
== SHF_EXECINSTR
687 && strcmp (name
, ".note.GNU-stack") == 0)
690 /* A section on Alpha may have SHF_ALPHA_GPREL. */
691 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
695 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
696 && (ssect
->type
== SHT_INIT_ARRAY
697 || ssect
->type
== SHT_FINI_ARRAY
698 || ssect
->type
== SHT_PREINIT_ARRAY
))
699 /* RX init/fini arrays can and should have the "awx" attributes set. */
704 if (match_p
->group_name
== NULL
)
705 as_warn (_("setting incorrect section attributes for %s"),
711 if (!override
&& old_sec
== NULL
)
715 /* Convert ELF type and flags to BFD flags. */
717 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
718 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
719 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
720 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
721 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
722 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
723 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
724 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
725 #ifdef md_elf_section_flags
726 flags
= md_elf_section_flags (flags
, attr
, type
);
730 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
736 if (type
== SHT_NULL
)
737 type
= bfd_elf_get_default_section_type (flags
);
738 elf_section_type (sec
) = type
;
739 elf_section_flags (sec
) = attr
;
740 elf_section_data (sec
)->this_hdr
.sh_info
= match_p
->info
;
742 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
743 if (type
== SHT_NOBITS
)
744 seg_info (sec
)->bss
= 1;
746 /* Set the section ID and flags. */
747 sec
->section_id
= match_p
->section_id
;
748 flags
|= match_p
->flags
;
750 /* Set the linked-to symbol name. */
751 sec
->map_head
.linked_to_symbol_name
752 = match_p
->linked_to_symbol_name
;
754 bfd_set_section_flags (sec
, flags
);
755 if (flags
& SEC_MERGE
)
756 sec
->entsize
= entsize
;
757 elf_group_name (sec
) = match_p
->group_name
;
759 /* Add a symbol for this section to the symbol table. */
760 secsym
= symbol_find (name
);
762 symbol_set_bfdsym (secsym
, sec
->symbol
);
764 symbol_table_insert (section_symbol (sec
));
769 && (unsigned) type
!= elf_section_type (old_sec
))
772 /* This is a special section with known type. User
773 assembly might get the section type wrong; Even high
774 profile projects like glibc have done so in the past.
775 So don't error in this case. */
776 as_warn (_("ignoring changed section type for %s"), name
);
778 /* Do error when assembly isn't self-consistent. */
779 as_bad (_("changed section type for %s"), name
);
784 /* If section attributes are specified the second time we see a
785 particular section, then check that they are the same as we
786 saw the first time. */
787 if (((old_sec
->flags
^ flags
)
788 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
789 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
790 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
791 | SEC_THREAD_LOCAL
)))
794 as_warn (_("ignoring changed section attributes for %s"), name
);
796 as_bad (_("changed section attributes for %s"), name
);
799 /* FIXME: Maybe we should consider removing a previously set
800 processor or application specific attribute as suspicious ? */
801 elf_section_flags (sec
) = attr
;
803 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
804 as_bad (_("changed section entity size for %s"), name
);
808 #ifdef md_elf_section_change_hook
809 md_elf_section_change_hook ();
814 obj_elf_parse_section_letters (char *str
, size_t len
,
815 bfd_boolean
*is_clone
, bfd_vma
*gnu_attr
)
831 attr
|= SHF_LINK_ORDER
;
837 attr
|= SHF_EXECINSTR
;
852 *gnu_attr
|= SHF_GNU_MBIND
;
859 if (*(str
- 1) == 'a')
862 if (len
> 1 && str
[1] == 's')
872 const char *bad_msg
= _("unrecognized .section attribute:"
873 " want a,e,o,w,x,M,S,G,T or number");
874 #ifdef md_elf_section_letter
875 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
876 if (md_attr
!= (bfd_vma
) -1)
884 attr
|= strtoul (str
, & end
, 0);
885 /* Update str and len, allowing for the fact that
886 we will execute str++ and len-- below. */
892 as_fatal ("%s", bad_msg
);
903 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
905 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
907 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
909 if (len
== 4 && strncmp (str
, "note", 4) == 0)
911 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
912 return SHT_INIT_ARRAY
;
913 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
914 return SHT_FINI_ARRAY
;
915 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
916 return SHT_PREINIT_ARRAY
;
918 #ifdef md_elf_section_type
920 int md_type
= md_elf_section_type (str
, len
);
929 int type
= strtoul (str
, & end
, 0);
931 if (warn
&& (size_t) (end
- str
) != len
)
932 as_warn (_("extraneous characters at end of numeric section type"));
938 as_warn (_("unrecognized section type"));
943 obj_elf_section_word (char *str
, size_t len
, int *type
)
947 if (len
== 5 && strncmp (str
, "write", 5) == 0)
949 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
951 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
952 return SHF_EXECINSTR
;
953 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
955 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
958 #ifdef md_elf_section_word
960 bfd_vma md_attr
= md_elf_section_word (str
, len
);
966 ret
= obj_elf_section_type (str
, len
, FALSE
);
970 as_warn (_("unrecognized section attribute"));
975 /* Get name of section. */
977 obj_elf_section_name (void)
982 if (*input_line_pointer
== '"')
986 name
= demand_copy_C_string (&dummy
);
989 ignore_rest_of_line ();
995 char *end
= input_line_pointer
;
997 while (0 == strchr ("\n\t,; ", *end
))
999 if (end
== input_line_pointer
)
1001 as_bad (_("missing name"));
1002 ignore_rest_of_line ();
1006 name
= xmemdup0 (input_line_pointer
, end
- input_line_pointer
);
1008 while (flag_sectname_subst
)
1010 char *subst
= strchr (name
, '%');
1011 if (subst
&& subst
[1] == 'S')
1013 int oldlen
= strlen (name
);
1014 int substlen
= strlen (now_seg
->name
);
1015 int newlen
= oldlen
- 2 + substlen
;
1016 char *newname
= XNEWVEC (char, newlen
+ 1);
1017 int headlen
= subst
- name
;
1018 memcpy (newname
, name
, headlen
);
1019 strcpy (newname
+ headlen
, now_seg
->name
);
1020 strcat (newname
+ headlen
, subst
+ 2);
1028 #ifdef tc_canonicalize_section_name
1029 name
= tc_canonicalize_section_name (name
);
1031 input_line_pointer
= end
;
1038 obj_elf_section (int push
)
1047 subsegT new_subsection
= -1;
1048 struct elf_section_match match
;
1054 #ifdef md_flush_pending_output
1055 md_flush_pending_output ();
1058 previous_section
= now_seg
;
1059 previous_subsection
= now_subseg
;
1061 s_mri_sect (&mri_type
);
1063 #ifdef md_elf_section_change_hook
1064 md_elf_section_change_hook ();
1070 name
= obj_elf_section_name ();
1074 memset (&match
, 0, sizeof (match
));
1077 if ((sym
= symbol_find (name
)) != NULL
1078 && ! symbol_section_p (sym
)
1079 && S_IS_DEFINED (sym
)
1080 && ! S_IS_VOLATILE (sym
)
1081 && ! S_CAN_BE_REDEFINED (sym
))
1083 as_bad (_("section name '%s' already defined as another symbol"), name
);
1084 ignore_rest_of_line ();
1093 if (*input_line_pointer
== ',')
1095 /* Skip the comma. */
1096 ++input_line_pointer
;
1099 if (push
&& ISDIGIT (*input_line_pointer
))
1101 /* .pushsection has an optional subsection. */
1102 new_subsection
= (subsegT
) get_absolute_expression ();
1106 /* Stop if we don't see a comma. */
1107 if (*input_line_pointer
!= ',')
1110 /* Skip the comma. */
1111 ++input_line_pointer
;
1115 if (*input_line_pointer
== '"')
1117 bfd_boolean is_clone
;
1119 beg
= demand_copy_C_string (&dummy
);
1122 ignore_rest_of_line ();
1125 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
),
1126 &is_clone
, &gnu_attr
);
1129 if (*input_line_pointer
== ',')
1132 char *save
= input_line_pointer
;
1134 ++input_line_pointer
;
1136 c
= *input_line_pointer
;
1139 beg
= demand_copy_C_string (&dummy
);
1142 ignore_rest_of_line ();
1145 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1147 else if (c
== '@' || c
== '%')
1149 ++input_line_pointer
;
1151 if (ISDIGIT (* input_line_pointer
))
1152 type
= strtoul (input_line_pointer
, &input_line_pointer
, 0);
1155 c
= get_symbol_name (& beg
);
1156 (void) restore_line_pointer (c
);
1157 type
= obj_elf_section_type (beg
,
1158 input_line_pointer
- beg
,
1163 input_line_pointer
= save
;
1167 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1169 ++input_line_pointer
;
1171 entsize
= get_absolute_expression ();
1175 as_warn (_("invalid merge entity size"));
1180 else if ((attr
& SHF_MERGE
) != 0)
1182 as_warn (_("entity size for SHF_MERGE not specified"));
1186 if ((attr
& SHF_LINK_ORDER
) != 0 && *input_line_pointer
== ',')
1189 unsigned int length
;
1190 ++input_line_pointer
;
1192 c
= get_symbol_name (& beg
);
1193 (void) restore_line_pointer (c
);
1194 length
= input_line_pointer
- beg
;
1196 match
.linked_to_symbol_name
= xmemdup0 (beg
, length
);
1199 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1201 as_warn (_("? section flag ignored with G present"));
1204 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1206 ++input_line_pointer
;
1207 match
.group_name
= obj_elf_section_name ();
1208 if (match
.group_name
== NULL
)
1210 else if (*input_line_pointer
== ',')
1212 ++input_line_pointer
;
1214 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1216 input_line_pointer
+= 6;
1220 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1223 else if ((attr
& SHF_GROUP
) != 0)
1225 as_warn (_("group name for SHF_GROUP not specified"));
1231 const char *now_group
= elf_group_name (now_seg
);
1232 if (now_group
!= NULL
)
1234 match
.group_name
= xstrdup (now_group
);
1235 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1239 if ((gnu_attr
& SHF_GNU_MBIND
) != 0 && *input_line_pointer
== ',')
1241 char *save
= input_line_pointer
;
1242 ++input_line_pointer
;
1244 if (ISDIGIT (* input_line_pointer
))
1246 char *t
= input_line_pointer
;
1247 match
.info
= strtoul (input_line_pointer
,
1248 &input_line_pointer
, 0);
1249 if (match
.info
== (unsigned int) -1)
1251 as_warn (_("unsupported mbind section info: %s"), t
);
1256 input_line_pointer
= save
;
1259 if (*input_line_pointer
== ',')
1261 char *save
= input_line_pointer
;
1262 ++input_line_pointer
;
1264 if (strncmp (input_line_pointer
, "unique", 6) == 0)
1266 input_line_pointer
+= 6;
1268 if (*input_line_pointer
== ',')
1270 ++input_line_pointer
;
1272 if (ISDIGIT (* input_line_pointer
))
1275 bfd_boolean overflow
;
1276 char *t
= input_line_pointer
;
1277 if (sizeof (bfd_vma
) <= sizeof (unsigned long))
1280 id
= strtoul (input_line_pointer
,
1281 &input_line_pointer
, 0);
1282 overflow
= (id
== (unsigned long) -1
1283 && errno
== ERANGE
);
1288 (input_line_pointer
,
1289 (const char **) &input_line_pointer
, 0);
1290 overflow
= id
== ~(bfd_vma
) 0;
1292 if (overflow
|| id
> (unsigned int) -1)
1294 char *linefeed
, saved_char
= 0;
1295 if ((linefeed
= strchr (t
, '\n')) != NULL
)
1297 saved_char
= *linefeed
;
1300 as_bad (_("unsupported section id: %s"), t
);
1302 *linefeed
= saved_char
;
1306 match
.section_id
= id
;
1307 match
.flags
|= SEC_ASSEMBLER_SECTION_ID
;
1313 input_line_pointer
= save
;
1323 if (*input_line_pointer
!= '#')
1325 as_bad (_("character following name is not '#'"));
1326 ignore_rest_of_line ();
1329 ++input_line_pointer
;
1330 c
= get_symbol_name (& beg
);
1331 (void) restore_line_pointer (c
);
1333 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
,
1338 while (*input_line_pointer
++ == ',');
1339 --input_line_pointer
;
1344 demand_empty_rest_of_line ();
1346 obj_elf_change_section (name
, type
, attr
, entsize
, &match
, linkonce
,
1349 if ((gnu_attr
& SHF_GNU_MBIND
) != 0)
1351 struct elf_backend_data
*bed
;
1353 if ((attr
& SHF_ALLOC
) == 0)
1354 as_bad (_("SHF_ALLOC isn't set for GNU_MBIND section: %s"), name
);
1356 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1357 if (bed
->elf_osabi
== ELFOSABI_NONE
)
1358 bed
->elf_osabi
= ELFOSABI_GNU
;
1359 else if (bed
->elf_osabi
!= ELFOSABI_GNU
1360 && bed
->elf_osabi
!= ELFOSABI_FREEBSD
)
1361 as_bad (_("GNU_MBIND section is supported only by GNU "
1362 "and FreeBSD targets"));
1363 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_mbind
;
1365 elf_section_flags (now_seg
) |= gnu_attr
;
1367 if (push
&& new_subsection
!= -1)
1368 subseg_set (now_seg
, new_subsection
);
1371 /* Change to the .data section. */
1374 obj_elf_data (int i
)
1376 #ifdef md_flush_pending_output
1377 md_flush_pending_output ();
1380 previous_section
= now_seg
;
1381 previous_subsection
= now_subseg
;
1384 #ifdef md_elf_section_change_hook
1385 md_elf_section_change_hook ();
1389 /* Change to the .text section. */
1392 obj_elf_text (int i
)
1394 #ifdef md_flush_pending_output
1395 md_flush_pending_output ();
1398 previous_section
= now_seg
;
1399 previous_subsection
= now_subseg
;
1402 #ifdef md_elf_section_change_hook
1403 md_elf_section_change_hook ();
1407 /* Change to the *ABS* section. */
1410 obj_elf_struct (int i
)
1412 #ifdef md_flush_pending_output
1413 md_flush_pending_output ();
1416 previous_section
= now_seg
;
1417 previous_subsection
= now_subseg
;
1420 #ifdef md_elf_section_change_hook
1421 md_elf_section_change_hook ();
1426 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1430 #ifdef md_flush_pending_output
1431 md_flush_pending_output ();
1434 previous_section
= now_seg
;
1435 previous_subsection
= now_subseg
;
1437 temp
= get_absolute_expression ();
1438 subseg_set (now_seg
, (subsegT
) temp
);
1439 demand_empty_rest_of_line ();
1441 #ifdef md_elf_section_change_hook
1442 md_elf_section_change_hook ();
1446 /* This can be called from the processor backends if they change
1450 obj_elf_section_change_hook (void)
1452 previous_section
= now_seg
;
1453 previous_subsection
= now_subseg
;
1457 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1462 if (previous_section
== 0)
1464 as_warn (_(".previous without corresponding .section; ignored"));
1468 #ifdef md_flush_pending_output
1469 md_flush_pending_output ();
1472 new_section
= previous_section
;
1473 new_subsection
= previous_subsection
;
1474 previous_section
= now_seg
;
1475 previous_subsection
= now_subseg
;
1476 subseg_set (new_section
, new_subsection
);
1478 #ifdef md_elf_section_change_hook
1479 md_elf_section_change_hook ();
1484 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1486 struct section_stack
*top
= section_stack
;
1490 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1494 #ifdef md_flush_pending_output
1495 md_flush_pending_output ();
1498 section_stack
= top
->next
;
1499 previous_section
= top
->prev_seg
;
1500 previous_subsection
= top
->prev_subseg
;
1501 subseg_set (top
->seg
, top
->subseg
);
1504 #ifdef md_elf_section_change_hook
1505 md_elf_section_change_hook ();
1510 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1512 /* Assume delimiter is part of expression. BSD4.2 as fails with
1513 delightful bug, so we are not being incompatible here. */
1514 new_logical_line (NULL
, get_absolute_expression ());
1515 demand_empty_rest_of_line ();
1518 static struct elf_versioned_name_list
*
1519 obj_elf_find_and_add_versioned_name (const char *version_name
,
1520 const char *sym_name
,
1522 struct elf_obj_sy
*sy_obj
)
1524 struct elf_versioned_name_list
*versioned_name
;
1527 for (p
= ver
+ 1; *p
== ELF_VER_CHR
; p
++)
1530 /* NB: Since some tests in ld/testsuite/ld-elfvers have no version
1531 names, we have to disable this. */
1532 if (0 && *p
== '\0')
1534 as_bad (_("missing version name in `%s' for symbol `%s'"),
1535 version_name
, sym_name
);
1539 versioned_name
= sy_obj
->versioned_name
;
1549 if (strcmp (versioned_name
->name
, version_name
) == 0)
1550 return versioned_name
;
1553 as_bad (_("only one version name with `@@@' is allowed "
1554 "for symbol `%s'"), sym_name
);
1558 sy_obj
->rename
= TRUE
;
1561 as_bad (_("invalid version name '%s' for symbol `%s'"),
1562 version_name
, sym_name
);
1567 versioned_name
!= NULL
;
1568 versioned_name
= versioned_name
->next
)
1569 if (strcmp (versioned_name
->name
, version_name
) == 0)
1570 return versioned_name
;
1572 /* Add this versioned name to the head of the list, */
1573 versioned_name
= (struct elf_versioned_name_list
*)
1574 xmalloc (sizeof (*versioned_name
));
1575 versioned_name
->name
= xstrdup (version_name
);
1576 versioned_name
->next
= sy_obj
->versioned_name
;
1577 sy_obj
->versioned_name
= versioned_name
;
1579 return versioned_name
;
1582 /* This handles the .symver pseudo-op, which is used to specify a
1583 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1584 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1585 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1586 with the same value as the symbol NAME. */
1589 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1592 const char *sym_name
;
1596 struct elf_obj_sy
*sy_obj
;
1599 sym
= get_sym_from_input_line_and_check ();
1601 if (*input_line_pointer
!= ',')
1603 as_bad (_("expected comma after name in .symver"));
1604 ignore_rest_of_line ();
1608 ++input_line_pointer
;
1611 /* Temporarily include '@' in symbol names. */
1612 old_lexat
= lex_type
[(unsigned char) '@'];
1613 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1614 c
= get_symbol_name (& name
);
1615 lex_type
[(unsigned char) '@'] = old_lexat
;
1616 sym_name
= S_GET_NAME (sym
);
1618 if (S_IS_COMMON (sym
))
1620 as_bad (_("`%s' can't be versioned to common symbol '%s'"),
1622 ignore_rest_of_line ();
1626 p
= strchr (name
, ELF_VER_CHR
);
1629 as_bad (_("missing version name in `%s' for symbol `%s'"),
1631 ignore_rest_of_line ();
1635 sy_obj
= symbol_get_obj (sym
);
1636 if (obj_elf_find_and_add_versioned_name (name
, sym_name
,
1639 sy_obj
->bad_version
= TRUE
;
1640 ignore_rest_of_line ();
1644 (void) restore_line_pointer (c
);
1646 if (*input_line_pointer
== ',')
1648 char *save
= input_line_pointer
;
1650 ++input_line_pointer
;
1652 if (strncmp (input_line_pointer
, "local", 5) == 0)
1654 input_line_pointer
+= 5;
1655 sy_obj
->visibility
= visibility_local
;
1657 else if (strncmp (input_line_pointer
, "hidden", 6) == 0)
1659 input_line_pointer
+= 6;
1660 sy_obj
->visibility
= visibility_hidden
;
1662 else if (strncmp (input_line_pointer
, "remove", 6) == 0)
1664 input_line_pointer
+= 6;
1665 sy_obj
->visibility
= visibility_remove
;
1668 input_line_pointer
= save
;
1671 demand_empty_rest_of_line ();
1674 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1675 to the linker the hierarchy in which a particular table resides. The
1676 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1679 obj_elf_get_vtable_inherit (void)
1681 char *cname
, *pname
;
1682 symbolS
*csym
, *psym
;
1685 if (*input_line_pointer
== '#')
1686 ++input_line_pointer
;
1688 c
= get_symbol_name (& cname
);
1689 csym
= symbol_find (cname
);
1691 /* GCFIXME: should check that we don't have two .vtable_inherits for
1692 the same child symbol. Also, we can currently only do this if the
1693 child symbol is already exists and is placed in a fragment. */
1695 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1697 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1702 *input_line_pointer
= c
;
1704 SKIP_WHITESPACE_AFTER_NAME ();
1705 if (*input_line_pointer
!= ',')
1707 as_bad (_("expected comma after name in .vtable_inherit"));
1708 ignore_rest_of_line ();
1712 ++input_line_pointer
;
1715 if (*input_line_pointer
== '#')
1716 ++input_line_pointer
;
1718 if (input_line_pointer
[0] == '0'
1719 && (input_line_pointer
[1] == '\0'
1720 || ISSPACE (input_line_pointer
[1])))
1722 psym
= section_symbol (absolute_section
);
1723 ++input_line_pointer
;
1727 c
= get_symbol_name (& pname
);
1728 psym
= symbol_find_or_make (pname
);
1729 restore_line_pointer (c
);
1732 demand_empty_rest_of_line ();
1737 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1738 return fix_new (symbol_get_frag (csym
),
1739 symbol_get_value_expression (csym
)->X_add_number
,
1740 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1743 /* This is a version of obj_elf_get_vtable_inherit() that is
1744 suitable for use in struct _pseudo_type tables. */
1747 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1749 (void) obj_elf_get_vtable_inherit ();
1752 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1753 to the linker that a vtable slot was used. The syntax is
1754 ".vtable_entry tablename, offset". */
1757 obj_elf_get_vtable_entry (void)
1762 if (*input_line_pointer
== '#')
1763 ++input_line_pointer
;
1765 sym
= get_sym_from_input_line_and_check ();
1766 if (*input_line_pointer
!= ',')
1768 as_bad (_("expected comma after name in .vtable_entry"));
1769 ignore_rest_of_line ();
1773 ++input_line_pointer
;
1774 if (*input_line_pointer
== '#')
1775 ++input_line_pointer
;
1777 offset
= get_absolute_expression ();
1779 demand_empty_rest_of_line ();
1781 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1782 BFD_RELOC_VTABLE_ENTRY
);
1785 /* This is a version of obj_elf_get_vtable_entry() that is
1786 suitable for use in struct _pseudo_type tables. */
1789 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1791 (void) obj_elf_get_vtable_entry ();
1794 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1797 skip_past_char (char ** str
, char c
)
1807 #define skip_past_comma(str) skip_past_char (str, ',')
1809 /* A list of attributes that have been explicitly set by the assembly code.
1810 VENDOR is the vendor id, BASE is the tag shifted right by the number
1811 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1812 struct recorded_attribute_info
{
1813 struct recorded_attribute_info
*next
;
1818 static struct recorded_attribute_info
*recorded_attributes
;
1820 /* Record that we have seen an explicit specification of attribute TAG
1821 for vendor VENDOR. */
1824 record_attribute (int vendor
, unsigned int tag
)
1828 struct recorded_attribute_info
*rai
;
1830 base
= tag
/ (8 * sizeof (rai
->mask
));
1831 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1832 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1833 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1839 rai
= XNEW (struct recorded_attribute_info
);
1840 rai
->next
= recorded_attributes
;
1841 rai
->vendor
= vendor
;
1844 recorded_attributes
= rai
;
1847 /* Return true if we have seen an explicit specification of attribute TAG
1848 for vendor VENDOR. */
1851 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1855 struct recorded_attribute_info
*rai
;
1857 base
= tag
/ (8 * sizeof (rai
->mask
));
1858 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1859 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1860 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1861 return (rai
->mask
& mask
) != 0;
1865 /* Parse an attribute directive for VENDOR.
1866 Returns the attribute number read, or zero on error. */
1869 obj_elf_vendor_attribute (int vendor
)
1877 /* Read the first number or name. */
1878 skip_whitespace (input_line_pointer
);
1879 s
= input_line_pointer
;
1880 if (ISDIGIT (*input_line_pointer
))
1883 if (exp
.X_op
!= O_constant
)
1885 tag
= exp
.X_add_number
;
1891 /* A name may contain '_', but no other punctuation. */
1892 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1893 ++input_line_pointer
)
1898 name
= xstrndup (s
, i
);
1900 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1901 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1904 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1907 as_bad (_("Attribute name not recognised: %s"), name
);
1908 ignore_rest_of_line ();
1915 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1917 if (skip_past_comma (&input_line_pointer
) == -1)
1922 if (exp
.X_op
!= O_constant
)
1924 as_bad (_("expected numeric constant"));
1925 ignore_rest_of_line ();
1928 i
= exp
.X_add_number
;
1931 && skip_past_comma (&input_line_pointer
) == -1)
1933 as_bad (_("expected comma"));
1934 ignore_rest_of_line ();
1941 skip_whitespace (input_line_pointer
);
1942 if (*input_line_pointer
!= '"')
1944 s
= demand_copy_C_string (&len
);
1947 record_attribute (vendor
, tag
);
1951 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1954 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1957 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1963 demand_empty_rest_of_line ();
1966 as_bad (_("bad string constant"));
1967 ignore_rest_of_line ();
1970 as_bad (_("expected <tag> , <value>"));
1971 ignore_rest_of_line ();
1975 /* Parse a .gnu_attribute directive. */
1978 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1980 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1984 elf_obj_read_begin_hook (void)
1986 #ifdef NEED_ECOFF_DEBUG
1987 if (ECOFF_DEBUGGING
)
1988 ecoff_read_begin_hook ();
1993 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1995 struct elf_obj_sy
*sy_obj
;
1997 sy_obj
= symbol_get_obj (symbolP
);
1998 sy_obj
->size
= NULL
;
1999 sy_obj
->versioned_name
= NULL
;
2001 #ifdef NEED_ECOFF_DEBUG
2002 if (ECOFF_DEBUGGING
)
2003 ecoff_symbol_new_hook (symbolP
);
2007 /* When setting one symbol equal to another, by default we probably
2008 want them to have the same "size", whatever it means in the current
2012 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
2014 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
2015 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
2018 if (destelf
->size
== NULL
)
2019 destelf
->size
= XNEW (expressionS
);
2020 *destelf
->size
= *srcelf
->size
;
2024 free (destelf
->size
);
2025 destelf
->size
= NULL
;
2027 S_SET_SIZE (dest
, S_GET_SIZE (src
));
2028 /* Don't copy visibility. */
2029 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
2030 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
2034 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
2039 asection
*seg
= now_seg
;
2040 subsegT subseg
= now_subseg
;
2041 Elf_Internal_Note i_note
;
2042 Elf_External_Note e_note
;
2043 asection
*note_secp
= NULL
;
2046 if (*input_line_pointer
== '\"')
2050 ++input_line_pointer
; /* -> 1st char of string. */
2051 name
= input_line_pointer
;
2053 while (is_a_char (c
= next_char_of_string ()))
2055 c
= *input_line_pointer
;
2056 *input_line_pointer
= '\0';
2057 *(input_line_pointer
- 1) = '\0';
2058 *input_line_pointer
= c
;
2060 /* Create the .note section. */
2061 note_secp
= subseg_new (".note", 0);
2062 bfd_set_section_flags (note_secp
, SEC_HAS_CONTENTS
| SEC_READONLY
);
2063 record_alignment (note_secp
, 2);
2065 /* Process the version string. */
2066 len
= strlen (name
) + 1;
2068 /* PR 3456: Although the name field is padded out to an 4-byte
2069 boundary, the namesz field should not be adjusted. */
2070 i_note
.namesz
= len
;
2071 i_note
.descsz
= 0; /* No description. */
2072 i_note
.type
= NT_VERSION
;
2073 p
= frag_more (sizeof (e_note
.namesz
));
2074 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
2075 p
= frag_more (sizeof (e_note
.descsz
));
2076 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
2077 p
= frag_more (sizeof (e_note
.type
));
2078 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
2079 p
= frag_more (len
);
2080 memcpy (p
, name
, len
);
2082 frag_align (2, 0, 0);
2084 subseg_set (seg
, subseg
);
2087 as_bad (_("expected quoted string"));
2089 demand_empty_rest_of_line ();
2093 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
2096 char c
= get_symbol_name (&name
);
2101 p
= input_line_pointer
;
2103 SKIP_WHITESPACE_AFTER_NAME ();
2104 if (*input_line_pointer
!= ',')
2107 as_bad (_("expected comma after name `%s' in .size directive"), name
);
2109 ignore_rest_of_line ();
2112 input_line_pointer
++;
2114 if (exp
.X_op
== O_absent
)
2116 as_bad (_("missing expression in .size directive"));
2117 exp
.X_op
= O_constant
;
2118 exp
.X_add_number
= 0;
2121 sym
= symbol_find_or_make (name
);
2123 if (exp
.X_op
== O_constant
)
2125 S_SET_SIZE (sym
, exp
.X_add_number
);
2126 xfree (symbol_get_obj (sym
)->size
);
2127 symbol_get_obj (sym
)->size
= NULL
;
2131 symbol_get_obj (sym
)->size
= XNEW (expressionS
);
2132 *symbol_get_obj (sym
)->size
= exp
;
2134 demand_empty_rest_of_line ();
2137 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
2138 There are six syntaxes:
2140 The first (used on Solaris) is
2142 The second (used on UnixWare) is
2144 The third (reportedly to be used on Irix 6.0) is
2146 The fourth (used on NetBSD/Arm and Linux/ARM) is
2148 The fifth (used on SVR4/860) is
2149 .type SYM,"function"
2150 The sixth (emitted by recent SunPRO under Solaris) is
2152 where the integer is the STT_* value.
2156 obj_elf_type_name (char *cp
)
2160 p
= input_line_pointer
;
2161 if (*input_line_pointer
>= '0'
2162 && *input_line_pointer
<= '9')
2164 while (*input_line_pointer
>= '0'
2165 && *input_line_pointer
<= '9')
2166 ++input_line_pointer
;
2167 *cp
= *input_line_pointer
;
2168 *input_line_pointer
= '\0';
2171 *cp
= get_symbol_name (&p
);
2177 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
2181 const char *type_name
;
2183 elf_symbol_type
*elfsym
;
2185 sym
= get_sym_from_input_line_and_check ();
2186 c
= *input_line_pointer
;
2187 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
2189 if (*input_line_pointer
== ',')
2190 ++input_line_pointer
;
2193 if ( *input_line_pointer
== '#'
2194 || *input_line_pointer
== '@'
2195 || *input_line_pointer
== '"'
2196 || *input_line_pointer
== '%')
2197 ++input_line_pointer
;
2199 type_name
= obj_elf_type_name (& c
);
2202 if (strcmp (type_name
, "function") == 0
2203 || strcmp (type_name
, "2") == 0
2204 || strcmp (type_name
, "STT_FUNC") == 0)
2205 type
= BSF_FUNCTION
;
2206 else if (strcmp (type_name
, "object") == 0
2207 || strcmp (type_name
, "1") == 0
2208 || strcmp (type_name
, "STT_OBJECT") == 0)
2210 else if (strcmp (type_name
, "tls_object") == 0
2211 || strcmp (type_name
, "6") == 0
2212 || strcmp (type_name
, "STT_TLS") == 0)
2213 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
2214 else if (strcmp (type_name
, "notype") == 0
2215 || strcmp (type_name
, "0") == 0
2216 || strcmp (type_name
, "STT_NOTYPE") == 0)
2218 else if (strcmp (type_name
, "common") == 0
2219 || strcmp (type_name
, "5") == 0
2220 || strcmp (type_name
, "STT_COMMON") == 0)
2224 if (! S_IS_COMMON (sym
))
2226 if (S_IS_VOLATILE (sym
))
2228 sym
= symbol_clone (sym
, 1);
2229 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2230 S_SET_VALUE (sym
, 0);
2231 S_SET_EXTERNAL (sym
);
2232 symbol_set_frag (sym
, &zero_address_frag
);
2233 S_CLEAR_VOLATILE (sym
);
2235 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
2236 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
2239 /* FIXME: Is it safe to just change the section ? */
2240 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2241 S_SET_VALUE (sym
, 0);
2242 S_SET_EXTERNAL (sym
);
2246 else if (strcmp (type_name
, "gnu_indirect_function") == 0
2247 || strcmp (type_name
, "10") == 0
2248 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
2250 struct elf_backend_data
*bed
;
2252 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2253 if (bed
->elf_osabi
== ELFOSABI_NONE
)
2254 bed
->elf_osabi
= ELFOSABI_GNU
;
2255 else if (bed
->elf_osabi
!= ELFOSABI_GNU
2256 && bed
->elf_osabi
!= ELFOSABI_FREEBSD
)
2257 as_bad (_("symbol type \"%s\" is supported only by GNU "
2258 "and FreeBSD targets"), type_name
);
2259 /* MIPS targets do not support IFUNCS. */
2260 else if (bed
->target_id
== MIPS_ELF_DATA
)
2261 as_bad (_("symbol type \"%s\" is not supported by "
2262 "MIPS targets"), type_name
);
2263 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_ifunc
;
2264 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
2266 else if (strcmp (type_name
, "gnu_unique_object") == 0)
2268 struct elf_backend_data
*bed
;
2270 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2271 if (bed
->elf_osabi
== ELFOSABI_NONE
)
2272 bed
->elf_osabi
= ELFOSABI_GNU
;
2273 else if (bed
->elf_osabi
!= ELFOSABI_GNU
)
2274 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
2276 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_unique
;
2277 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
2279 #ifdef md_elf_symbol_type
2280 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
2284 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
2286 *input_line_pointer
= c
;
2288 if (*input_line_pointer
== '"')
2289 ++input_line_pointer
;
2291 #ifdef md_elf_symbol_type_change
2292 if (!md_elf_symbol_type_change (sym
, elfsym
, type
))
2295 flagword mask
= BSF_FUNCTION
| BSF_OBJECT
;
2297 if (type
!= BSF_FUNCTION
)
2298 mask
|= BSF_GNU_INDIRECT_FUNCTION
;
2299 if (type
!= BSF_OBJECT
)
2301 mask
|= BSF_GNU_UNIQUE
| BSF_THREAD_LOCAL
;
2303 if (S_IS_COMMON (sym
))
2305 as_bad (_("cannot change type of common symbol '%s'"),
2311 /* Don't warn when changing to STT_NOTYPE. */
2314 flagword
new = (elfsym
->symbol
.flags
& ~mask
) | type
;
2316 if (new != (elfsym
->symbol
.flags
| type
))
2317 as_warn (_("symbol '%s' already has its type set"), S_GET_NAME (sym
));
2318 elfsym
->symbol
.flags
= new;
2321 elfsym
->symbol
.flags
&= ~mask
;
2324 demand_empty_rest_of_line ();
2328 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
2330 static segT comment_section
;
2331 segT old_section
= now_seg
;
2332 int old_subsection
= now_subseg
;
2334 #ifdef md_flush_pending_output
2335 md_flush_pending_output ();
2338 if (!comment_section
)
2341 comment_section
= subseg_new (".comment", 0);
2342 bfd_set_section_flags (comment_section
, (SEC_READONLY
| SEC_HAS_CONTENTS
2343 | SEC_MERGE
| SEC_STRINGS
));
2344 comment_section
->entsize
= 1;
2345 #ifdef md_elf_section_change_hook
2346 md_elf_section_change_hook ();
2352 subseg_set (comment_section
, 0);
2354 subseg_set (old_section
, old_subsection
);
2357 #ifdef INIT_STAB_SECTION
2359 /* The first entry in a .stabs section is special. */
2362 obj_elf_init_stab_section (segT seg
)
2367 unsigned int stroff
;
2369 /* Force the section to align to a longword boundary. Without this,
2370 UnixWare ar crashes. */
2371 bfd_set_section_alignment (seg
, 2);
2373 /* Make space for this first symbol. */
2377 file
= as_where (NULL
);
2378 stabstr_name
= concat (segment_name (seg
), "str", (char *) NULL
);
2379 stroff
= get_stab_string_offset (file
, stabstr_name
, TRUE
);
2380 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2381 md_number_to_chars (p
, stroff
, 4);
2382 seg_info (seg
)->stabu
.p
= p
;
2387 /* Fill in the counts in the first entry in a .stabs section. */
2390 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2397 if (strncmp (".stab", sec
->name
, 5))
2399 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2402 name
= concat (sec
->name
, "str", NULL
);
2403 strsec
= bfd_get_section_by_name (abfd
, name
);
2405 strsz
= bfd_section_size (strsec
);
2408 nsyms
= bfd_section_size (sec
) / 12 - 1;
2410 p
= seg_info (sec
)->stabu
.p
;
2411 gas_assert (p
!= 0);
2413 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2414 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2418 #ifdef NEED_ECOFF_DEBUG
2420 /* This function is called by the ECOFF code. It is supposed to
2421 record the external symbol information so that the backend can
2422 write it out correctly. The ELF backend doesn't actually handle
2423 this at the moment, so we do it ourselves. We save the information
2426 #ifdef OBJ_MAYBE_ELF
2430 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2432 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2435 /* This function is called by bfd_ecoff_debug_externals. It is
2436 supposed to *EXT to the external symbol information, and return
2437 whether the symbol should be used at all. */
2440 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2442 if (sym
->udata
.p
== NULL
)
2444 *ext
= *(EXTR
*) sym
->udata
.p
;
2448 /* This function is called by bfd_ecoff_debug_externals. It has
2449 nothing to do for ELF. */
2452 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2453 bfd_size_type indx ATTRIBUTE_UNUSED
)
2457 #endif /* NEED_ECOFF_DEBUG */
2460 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2462 struct elf_obj_sy
*sy_obj
;
2464 struct elf_versioned_name_list
*versioned_name
;
2466 #ifdef NEED_ECOFF_DEBUG
2467 if (ECOFF_DEBUGGING
)
2468 ecoff_frob_symbol (symp
);
2471 sy_obj
= symbol_get_obj (symp
);
2473 size
= sy_obj
->size
;
2476 if (resolve_expression (size
)
2477 && size
->X_op
== O_constant
)
2478 S_SET_SIZE (symp
, size
->X_add_number
);
2481 if (!flag_allow_nonconst_size
)
2482 as_bad (_(".size expression for %s "
2483 "does not evaluate to a constant"), S_GET_NAME (symp
));
2485 as_warn (_(".size expression for %s "
2486 "does not evaluate to a constant"), S_GET_NAME (symp
));
2488 free (sy_obj
->size
);
2489 sy_obj
->size
= NULL
;
2492 versioned_name
= sy_obj
->versioned_name
;
2495 /* This symbol was given a new name with the .symver directive.
2496 If this is an external reference, just rename the symbol to
2497 include the version string. This will make the relocs be
2498 against the correct versioned symbol. */
2500 /* We will have already reported an version error. */
2501 if (sy_obj
->bad_version
)
2503 /* elf_frob_file_before_adjust only allows one version symbol for
2505 else if (sy_obj
->rename
)
2506 S_SET_NAME (symp
, versioned_name
->name
);
2507 else if (S_IS_COMMON (symp
))
2509 as_bad (_("`%s' can't be versioned to common symbol '%s'"),
2510 versioned_name
->name
, S_GET_NAME (symp
));
2516 elf_symbol_type
*elfsym
;
2518 /* This is a definition. Add an alias for each version.
2519 FIXME: Using an alias will permit the debugging information
2520 to refer to the right symbol. However, it's not clear
2521 whether it is the best approach. */
2523 /* FIXME: Creating a new symbol here is risky. We're
2524 in the final loop over the symbol table. We can
2525 get away with it only because the symbol goes to
2526 the end of the list, where the loop will still see
2527 it. It would probably be better to do this in
2528 obj_frob_file_before_adjust. */
2529 for (; versioned_name
!= NULL
;
2530 versioned_name
= versioned_name
->next
)
2532 symbolS
*symp2
= symbol_find_or_make (versioned_name
->name
);
2534 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2536 /* Subtracting out the frag address here is a hack
2537 because we are in the middle of the final loop. */
2540 - symbol_get_frag (symp
)->fr_address
));
2542 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2544 /* This will copy over the size information. */
2545 copy_symbol_attributes (symp2
, symp
);
2547 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2549 if (S_IS_WEAK (symp
))
2552 if (S_IS_EXTERNAL (symp
))
2553 S_SET_EXTERNAL (symp2
);
2556 switch (symbol_get_obj (symp
)->visibility
)
2558 case visibility_unchanged
:
2560 case visibility_hidden
:
2561 bfdsym
= symbol_get_bfdsym (symp
);
2562 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
),
2564 elfsym
->internal_elf_sym
.st_other
&= ~3;
2565 elfsym
->internal_elf_sym
.st_other
|= STV_HIDDEN
;
2567 case visibility_remove
:
2568 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2570 case visibility_local
:
2571 S_CLEAR_EXTERNAL (symp
);
2577 /* Double check weak symbols. */
2578 if (S_IS_WEAK (symp
))
2580 if (S_IS_COMMON (symp
))
2581 as_bad (_("symbol `%s' can not be both weak and common"),
2588 asection
**head
; /* Section lists. */
2589 unsigned int num_group
; /* Number of lists. */
2590 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2593 static struct group_list groups
;
2595 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2596 add it to a list of sections belonging to the group. INF is a
2597 pointer to a struct group_list, which is where we store the head of
2598 each list. If its link_to_symbol_name isn't NULL, set up its
2599 linked-to section. */
2602 build_additional_section_info (bfd
*abfd ATTRIBUTE_UNUSED
,
2603 asection
*sec
, void *inf
)
2605 struct group_list
*list
= (struct group_list
*) inf
;
2606 const char *group_name
= elf_group_name (sec
);
2608 unsigned int *elem_idx
;
2609 unsigned int *idx_ptr
;
2611 if (sec
->map_head
.linked_to_symbol_name
)
2613 symbolS
*linked_to_sym
;
2614 linked_to_sym
= symbol_find (sec
->map_head
.linked_to_symbol_name
);
2615 if (!linked_to_sym
|| !S_IS_DEFINED (linked_to_sym
))
2616 as_bad (_("undefined linked-to symbol `%s' on section `%s'"),
2617 sec
->map_head
.linked_to_symbol_name
,
2618 bfd_section_name (sec
));
2620 elf_linked_to_section (sec
) = S_GET_SEGMENT (linked_to_sym
);
2623 if (group_name
== NULL
)
2626 /* If this group already has a list, add the section to the head of
2628 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2629 if (elem_idx
!= NULL
)
2631 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2632 list
->head
[*elem_idx
] = sec
;
2636 /* New group. Make the arrays bigger in chunks to minimize calls to
2638 i
= list
->num_group
;
2641 unsigned int newsize
= i
+ 128;
2642 list
->head
= XRESIZEVEC (asection
*, list
->head
, newsize
);
2644 list
->head
[i
] = sec
;
2645 list
->num_group
+= 1;
2647 /* Add index to hash. */
2648 idx_ptr
= XNEW (unsigned int);
2650 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2653 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2655 free ((unsigned int *) val
);
2658 /* Create symbols for group signature. */
2661 elf_adjust_symtab (void)
2665 /* Go find section groups. */
2666 groups
.num_group
= 0;
2668 groups
.indexes
= hash_new ();
2669 bfd_map_over_sections (stdoutput
, build_additional_section_info
,
2672 /* Make the SHT_GROUP sections that describe each section group. We
2673 can't set up the section contents here yet, because elf section
2674 indices have yet to be calculated. elf.c:set_group_contents does
2675 the rest of the work. */
2676 for (i
= 0; i
< groups
.num_group
; i
++)
2678 const char *group_name
= elf_group_name (groups
.head
[i
]);
2679 const char *sec_name
;
2684 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2685 for (s
= groups
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2686 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2688 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2689 if (s
!= groups
.head
[i
])
2691 as_warn (_("assuming all members of group `%s' are COMDAT"),
2697 sec_name
= ".group";
2698 s
= subseg_force_new (sec_name
, 0);
2700 || !bfd_set_section_flags (s
, flags
)
2701 || !bfd_set_section_alignment (s
, 2))
2703 as_fatal (_("can't create group: %s"),
2704 bfd_errmsg (bfd_get_error ()));
2706 elf_section_type (s
) = SHT_GROUP
;
2708 /* Pass a pointer to the first section in this group. */
2709 elf_next_in_group (s
) = groups
.head
[i
];
2710 elf_sec_group (groups
.head
[i
]) = s
;
2711 /* Make sure that the signature symbol for the group has the
2712 name of the group. */
2713 sy
= symbol_find_exact (group_name
);
2714 if (!sy
|| !symbol_on_chain (sy
, symbol_rootP
, symbol_lastP
))
2716 /* Create the symbol now. */
2717 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2719 /* Before Solaris 11 build 154, Sun ld rejects local group
2720 signature symbols, so make them weak hidden instead. */
2721 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2722 S_SET_OTHER (sy
, STV_HIDDEN
);
2724 symbol_get_obj (sy
)->local
= 1;
2726 symbol_table_insert (sy
);
2728 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2733 elf_frob_file (void)
2735 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2737 #ifdef elf_tc_final_processing
2738 elf_tc_final_processing ();
2742 /* It removes any unneeded versioned symbols from the symbol table. */
2745 elf_frob_file_before_adjust (void)
2751 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2753 struct elf_obj_sy
*sy_obj
= symbol_get_obj (symp
);
2754 int is_defined
= !!S_IS_DEFINED (symp
);
2756 if (sy_obj
->versioned_name
)
2758 char *p
= strchr (sy_obj
->versioned_name
->name
,
2763 /* The @@@ syntax is a special case. If the symbol is
2764 not defined, 2 `@'s will be removed from the
2765 versioned_name. Otherwise, 1 `@' will be removed. */
2766 size_t l
= strlen (&p
[3]) + 1;
2767 memmove (&p
[1 + is_defined
], &p
[3], l
);
2772 /* Verify that the name isn't using the @@ syntax--this
2773 is reserved for definitions of the default version
2775 if (!sy_obj
->rename
&& p
[1] == ELF_VER_CHR
)
2777 as_bad (_("invalid attempt to declare external "
2778 "version name as default in symbol `%s'"),
2779 sy_obj
->versioned_name
->name
);
2783 /* Only one version symbol is allowed for undefined
2785 if (sy_obj
->versioned_name
->next
)
2787 as_bad (_("multiple versions [`%s'|`%s'] for "
2789 sy_obj
->versioned_name
->name
,
2790 sy_obj
->versioned_name
->next
->name
,
2795 sy_obj
->rename
= TRUE
;
2799 /* If there was .symver or .weak, but symbol was neither
2800 defined nor used anywhere, remove it. */
2802 && (sy_obj
->versioned_name
|| S_IS_WEAK (symp
))
2803 && symbol_used_p (symp
) == 0
2804 && symbol_used_in_reloc_p (symp
) == 0)
2805 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2810 /* It is required that we let write_relocs have the opportunity to
2811 optimize away fixups before output has begun, since it is possible
2812 to eliminate all fixups for a section and thus we never should
2813 have generated the relocation section. */
2816 elf_frob_file_after_relocs (void)
2820 /* Set SHT_GROUP section size. */
2821 for (i
= 0; i
< groups
.num_group
; i
++)
2823 asection
*s
, *head
, *group
;
2826 head
= groups
.head
[i
];
2828 for (s
= head
; s
!= NULL
; s
= elf_next_in_group (s
))
2829 size
+= (s
->flags
& SEC_RELOC
) != 0 ? 8 : 4;
2831 group
= elf_sec_group (head
);
2832 subseg_set (group
, 0);
2833 bfd_set_section_size (group
, size
);
2834 group
->contents
= (unsigned char *) frag_more (size
);
2835 frag_now
->fr_fix
= frag_now_fix_octets ();
2836 frag_wane (frag_now
);
2840 hash_traverse (groups
.indexes
, free_section_idx
);
2841 hash_die (groups
.indexes
);
2843 #ifdef NEED_ECOFF_DEBUG
2844 if (ECOFF_DEBUGGING
)
2845 /* Generate the ECOFF debugging information. */
2847 const struct ecoff_debug_swap
*debug_swap
;
2848 struct ecoff_debug_info debug
;
2853 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2854 know (debug_swap
!= NULL
);
2855 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2857 /* Set up the pointers in debug. */
2858 #define SET(ptr, offset, type) \
2859 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2861 SET (line
, cbLineOffset
, unsigned char *);
2862 SET (external_dnr
, cbDnOffset
, void *);
2863 SET (external_pdr
, cbPdOffset
, void *);
2864 SET (external_sym
, cbSymOffset
, void *);
2865 SET (external_opt
, cbOptOffset
, void *);
2866 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2867 SET (ss
, cbSsOffset
, char *);
2868 SET (external_fdr
, cbFdOffset
, void *);
2869 SET (external_rfd
, cbRfdOffset
, void *);
2870 /* ssext and external_ext are set up just below. */
2874 /* Set up the external symbols. */
2875 debug
.ssext
= debug
.ssext_end
= NULL
;
2876 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2877 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2878 elf_get_extr
, elf_set_index
))
2879 as_fatal (_("failed to set up debugging information: %s"),
2880 bfd_errmsg (bfd_get_error ()));
2882 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2883 gas_assert (sec
!= NULL
);
2885 know (!stdoutput
->output_has_begun
);
2887 /* We set the size of the section, call bfd_set_section_contents
2888 to force the ELF backend to allocate a file position, and then
2889 write out the data. FIXME: Is this really the best way to do
2891 bfd_set_section_size (sec
, bfd_ecoff_debug_size (stdoutput
, &debug
,
2894 /* Pass BUF to bfd_set_section_contents because this will
2895 eventually become a call to fwrite, and ISO C prohibits
2896 passing a NULL pointer to a stdio function even if the
2897 pointer will not be used. */
2898 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2899 as_fatal (_("can't start writing .mdebug section: %s"),
2900 bfd_errmsg (bfd_get_error ()));
2902 know (stdoutput
->output_has_begun
);
2903 know (sec
->filepos
!= 0);
2905 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2907 as_fatal (_("could not write .mdebug section: %s"),
2908 bfd_errmsg (bfd_get_error ()));
2910 #endif /* NEED_ECOFF_DEBUG */
2914 elf_generate_asm_lineno (void)
2916 #ifdef NEED_ECOFF_DEBUG
2917 if (ECOFF_DEBUGGING
)
2918 ecoff_generate_asm_lineno ();
2923 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2924 int what ATTRIBUTE_UNUSED
,
2925 const char *string ATTRIBUTE_UNUSED
,
2926 int type ATTRIBUTE_UNUSED
,
2927 int other ATTRIBUTE_UNUSED
,
2928 int desc ATTRIBUTE_UNUSED
)
2930 #ifdef NEED_ECOFF_DEBUG
2931 if (ECOFF_DEBUGGING
)
2932 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2937 elf_separate_stab_sections (void)
2939 #ifdef NEED_ECOFF_DEBUG
2940 return (!ECOFF_DEBUGGING
);
2947 elf_init_stab_section (segT seg
)
2949 #ifdef NEED_ECOFF_DEBUG
2950 if (!ECOFF_DEBUGGING
)
2952 obj_elf_init_stab_section (seg
);
2955 const struct format_ops elf_format_ops
=
2957 bfd_target_elf_flavour
,
2958 0, /* dfl_leading_underscore */
2959 1, /* emit_section_symbols */
2964 elf_frob_file_before_adjust
,
2965 0, /* obj_frob_file_before_fix */
2966 elf_frob_file_after_relocs
,
2967 elf_s_get_size
, elf_s_set_size
,
2968 elf_s_get_align
, elf_s_set_align
,
2975 elf_copy_symbol_attributes
,
2976 elf_generate_asm_lineno
,
2978 elf_separate_stab_sections
,
2979 elf_init_stab_section
,
2980 elf_sec_sym_ok_for_reloc
,
2982 #ifdef NEED_ECOFF_DEBUG
2985 0, /* ecoff_set_ext */
2987 elf_obj_read_begin_hook
,
2988 elf_obj_symbol_new_hook
,