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
);
763 /* We could be repurposing an undefined symbol here: make sure we
764 reset sy_value to look like other section symbols in order to avoid
765 trying to incorrectly resolve this section symbol later on. */
766 static const expressionS expr
= { .X_op
= O_constant
};
767 symbol_set_value_expression (secsym
, &expr
);
768 symbol_set_bfdsym (secsym
, sec
->symbol
);
771 symbol_table_insert (section_symbol (sec
));
776 && (unsigned) type
!= elf_section_type (old_sec
))
779 /* This is a special section with known type. User
780 assembly might get the section type wrong; Even high
781 profile projects like glibc have done so in the past.
782 So don't error in this case. */
783 as_warn (_("ignoring changed section type for %s"), name
);
785 /* Do error when assembly isn't self-consistent. */
786 as_bad (_("changed section type for %s"), name
);
791 /* If section attributes are specified the second time we see a
792 particular section, then check that they are the same as we
793 saw the first time. */
794 if (((old_sec
->flags
^ flags
)
795 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
796 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
797 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
798 | SEC_THREAD_LOCAL
)))
801 as_warn (_("ignoring changed section attributes for %s"), name
);
803 as_bad (_("changed section attributes for %s"), name
);
806 /* FIXME: Maybe we should consider removing a previously set
807 processor or application specific attribute as suspicious ? */
808 elf_section_flags (sec
) = attr
;
810 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
811 as_bad (_("changed section entity size for %s"), name
);
815 #ifdef md_elf_section_change_hook
816 md_elf_section_change_hook ();
821 obj_elf_parse_section_letters (char *str
, size_t len
,
822 bfd_boolean
*is_clone
, bfd_vma
*gnu_attr
)
838 attr
|= SHF_LINK_ORDER
;
844 attr
|= SHF_EXECINSTR
;
859 *gnu_attr
|= SHF_GNU_MBIND
;
866 if (*(str
- 1) == 'a')
869 if (len
> 1 && str
[1] == 's')
879 const char *bad_msg
= _("unrecognized .section attribute:"
880 " want a,e,o,w,x,M,S,G,T or number");
881 #ifdef md_elf_section_letter
882 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
883 if (md_attr
!= (bfd_vma
) -1)
891 attr
|= strtoul (str
, & end
, 0);
892 /* Update str and len, allowing for the fact that
893 we will execute str++ and len-- below. */
899 as_fatal ("%s", bad_msg
);
910 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
912 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
914 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
916 if (len
== 4 && strncmp (str
, "note", 4) == 0)
918 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
919 return SHT_INIT_ARRAY
;
920 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
921 return SHT_FINI_ARRAY
;
922 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
923 return SHT_PREINIT_ARRAY
;
925 #ifdef md_elf_section_type
927 int md_type
= md_elf_section_type (str
, len
);
936 int type
= strtoul (str
, & end
, 0);
938 if (warn
&& (size_t) (end
- str
) != len
)
939 as_warn (_("extraneous characters at end of numeric section type"));
945 as_warn (_("unrecognized section type"));
950 obj_elf_section_word (char *str
, size_t len
, int *type
)
954 if (len
== 5 && strncmp (str
, "write", 5) == 0)
956 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
958 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
959 return SHF_EXECINSTR
;
960 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
962 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
965 #ifdef md_elf_section_word
967 bfd_vma md_attr
= md_elf_section_word (str
, len
);
973 ret
= obj_elf_section_type (str
, len
, FALSE
);
977 as_warn (_("unrecognized section attribute"));
982 /* Get name of section. */
984 obj_elf_section_name (void)
989 if (*input_line_pointer
== '"')
993 name
= demand_copy_C_string (&dummy
);
996 ignore_rest_of_line ();
1002 char *end
= input_line_pointer
;
1004 while (0 == strchr ("\n\t,; ", *end
))
1006 if (end
== input_line_pointer
)
1008 as_bad (_("missing name"));
1009 ignore_rest_of_line ();
1013 name
= xmemdup0 (input_line_pointer
, end
- input_line_pointer
);
1015 while (flag_sectname_subst
)
1017 char *subst
= strchr (name
, '%');
1018 if (subst
&& subst
[1] == 'S')
1020 int oldlen
= strlen (name
);
1021 int substlen
= strlen (now_seg
->name
);
1022 int newlen
= oldlen
- 2 + substlen
;
1023 char *newname
= XNEWVEC (char, newlen
+ 1);
1024 int headlen
= subst
- name
;
1025 memcpy (newname
, name
, headlen
);
1026 strcpy (newname
+ headlen
, now_seg
->name
);
1027 strcat (newname
+ headlen
, subst
+ 2);
1035 #ifdef tc_canonicalize_section_name
1036 name
= tc_canonicalize_section_name (name
);
1038 input_line_pointer
= end
;
1045 obj_elf_section (int push
)
1054 subsegT new_subsection
= -1;
1055 struct elf_section_match match
;
1061 #ifdef md_flush_pending_output
1062 md_flush_pending_output ();
1065 previous_section
= now_seg
;
1066 previous_subsection
= now_subseg
;
1068 s_mri_sect (&mri_type
);
1070 #ifdef md_elf_section_change_hook
1071 md_elf_section_change_hook ();
1077 name
= obj_elf_section_name ();
1081 memset (&match
, 0, sizeof (match
));
1084 if ((sym
= symbol_find (name
)) != NULL
1085 && ! symbol_section_p (sym
)
1086 && S_IS_DEFINED (sym
)
1087 && ! S_IS_VOLATILE (sym
)
1088 && ! S_CAN_BE_REDEFINED (sym
))
1090 as_bad (_("section name '%s' already defined as another symbol"), name
);
1091 ignore_rest_of_line ();
1100 if (*input_line_pointer
== ',')
1102 /* Skip the comma. */
1103 ++input_line_pointer
;
1106 if (push
&& ISDIGIT (*input_line_pointer
))
1108 /* .pushsection has an optional subsection. */
1109 new_subsection
= (subsegT
) get_absolute_expression ();
1113 /* Stop if we don't see a comma. */
1114 if (*input_line_pointer
!= ',')
1117 /* Skip the comma. */
1118 ++input_line_pointer
;
1122 if (*input_line_pointer
== '"')
1124 bfd_boolean is_clone
;
1126 beg
= demand_copy_C_string (&dummy
);
1129 ignore_rest_of_line ();
1132 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
),
1133 &is_clone
, &gnu_attr
);
1136 if (*input_line_pointer
== ',')
1139 char *save
= input_line_pointer
;
1141 ++input_line_pointer
;
1143 c
= *input_line_pointer
;
1146 beg
= demand_copy_C_string (&dummy
);
1149 ignore_rest_of_line ();
1152 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1154 else if (c
== '@' || c
== '%')
1156 ++input_line_pointer
;
1158 if (ISDIGIT (* input_line_pointer
))
1159 type
= strtoul (input_line_pointer
, &input_line_pointer
, 0);
1162 c
= get_symbol_name (& beg
);
1163 (void) restore_line_pointer (c
);
1164 type
= obj_elf_section_type (beg
,
1165 input_line_pointer
- beg
,
1170 input_line_pointer
= save
;
1174 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1176 ++input_line_pointer
;
1178 entsize
= get_absolute_expression ();
1182 as_warn (_("invalid merge entity size"));
1187 else if ((attr
& SHF_MERGE
) != 0)
1189 as_warn (_("entity size for SHF_MERGE not specified"));
1193 if ((attr
& SHF_LINK_ORDER
) != 0 && *input_line_pointer
== ',')
1196 unsigned int length
;
1197 ++input_line_pointer
;
1199 c
= get_symbol_name (& beg
);
1200 (void) restore_line_pointer (c
);
1201 length
= input_line_pointer
- beg
;
1203 match
.linked_to_symbol_name
= xmemdup0 (beg
, length
);
1206 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1208 as_warn (_("? section flag ignored with G present"));
1211 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1213 ++input_line_pointer
;
1214 match
.group_name
= obj_elf_section_name ();
1215 if (match
.group_name
== NULL
)
1217 else if (*input_line_pointer
== ',')
1219 ++input_line_pointer
;
1221 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1223 input_line_pointer
+= 6;
1227 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1230 else if ((attr
& SHF_GROUP
) != 0)
1232 as_warn (_("group name for SHF_GROUP not specified"));
1238 const char *now_group
= elf_group_name (now_seg
);
1239 if (now_group
!= NULL
)
1241 match
.group_name
= xstrdup (now_group
);
1242 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1246 if ((gnu_attr
& SHF_GNU_MBIND
) != 0 && *input_line_pointer
== ',')
1248 char *save
= input_line_pointer
;
1249 ++input_line_pointer
;
1251 if (ISDIGIT (* input_line_pointer
))
1253 char *t
= input_line_pointer
;
1254 match
.info
= strtoul (input_line_pointer
,
1255 &input_line_pointer
, 0);
1256 if (match
.info
== (unsigned int) -1)
1258 as_warn (_("unsupported mbind section info: %s"), t
);
1263 input_line_pointer
= save
;
1266 if (*input_line_pointer
== ',')
1268 char *save
= input_line_pointer
;
1269 ++input_line_pointer
;
1271 if (strncmp (input_line_pointer
, "unique", 6) == 0)
1273 input_line_pointer
+= 6;
1275 if (*input_line_pointer
== ',')
1277 ++input_line_pointer
;
1279 if (ISDIGIT (* input_line_pointer
))
1282 bfd_boolean overflow
;
1283 char *t
= input_line_pointer
;
1284 if (sizeof (bfd_vma
) <= sizeof (unsigned long))
1287 id
= strtoul (input_line_pointer
,
1288 &input_line_pointer
, 0);
1289 overflow
= (id
== (unsigned long) -1
1290 && errno
== ERANGE
);
1295 (input_line_pointer
,
1296 (const char **) &input_line_pointer
, 0);
1297 overflow
= id
== ~(bfd_vma
) 0;
1299 if (overflow
|| id
> (unsigned int) -1)
1301 char *linefeed
, saved_char
= 0;
1302 if ((linefeed
= strchr (t
, '\n')) != NULL
)
1304 saved_char
= *linefeed
;
1307 as_bad (_("unsupported section id: %s"), t
);
1309 *linefeed
= saved_char
;
1313 match
.section_id
= id
;
1314 match
.flags
|= SEC_ASSEMBLER_SECTION_ID
;
1320 input_line_pointer
= save
;
1330 if (*input_line_pointer
!= '#')
1332 as_bad (_("character following name is not '#'"));
1333 ignore_rest_of_line ();
1336 ++input_line_pointer
;
1337 c
= get_symbol_name (& beg
);
1338 (void) restore_line_pointer (c
);
1340 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
,
1345 while (*input_line_pointer
++ == ',');
1346 --input_line_pointer
;
1351 demand_empty_rest_of_line ();
1353 obj_elf_change_section (name
, type
, attr
, entsize
, &match
, linkonce
,
1356 if ((gnu_attr
& SHF_GNU_MBIND
) != 0)
1358 struct elf_backend_data
*bed
;
1360 if ((attr
& SHF_ALLOC
) == 0)
1361 as_bad (_("SHF_ALLOC isn't set for GNU_MBIND section: %s"), name
);
1363 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1364 if (bed
->elf_osabi
== ELFOSABI_NONE
)
1365 bed
->elf_osabi
= ELFOSABI_GNU
;
1366 else if (bed
->elf_osabi
!= ELFOSABI_GNU
1367 && bed
->elf_osabi
!= ELFOSABI_FREEBSD
)
1368 as_bad (_("GNU_MBIND section is supported only by GNU "
1369 "and FreeBSD targets"));
1370 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_mbind
;
1372 elf_section_flags (now_seg
) |= gnu_attr
;
1374 if (push
&& new_subsection
!= -1)
1375 subseg_set (now_seg
, new_subsection
);
1378 /* Change to the .data section. */
1381 obj_elf_data (int i
)
1383 #ifdef md_flush_pending_output
1384 md_flush_pending_output ();
1387 previous_section
= now_seg
;
1388 previous_subsection
= now_subseg
;
1391 #ifdef md_elf_section_change_hook
1392 md_elf_section_change_hook ();
1396 /* Change to the .text section. */
1399 obj_elf_text (int i
)
1401 #ifdef md_flush_pending_output
1402 md_flush_pending_output ();
1405 previous_section
= now_seg
;
1406 previous_subsection
= now_subseg
;
1409 #ifdef md_elf_section_change_hook
1410 md_elf_section_change_hook ();
1414 /* Change to the *ABS* section. */
1417 obj_elf_struct (int i
)
1419 #ifdef md_flush_pending_output
1420 md_flush_pending_output ();
1423 previous_section
= now_seg
;
1424 previous_subsection
= now_subseg
;
1427 #ifdef md_elf_section_change_hook
1428 md_elf_section_change_hook ();
1433 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1437 #ifdef md_flush_pending_output
1438 md_flush_pending_output ();
1441 previous_section
= now_seg
;
1442 previous_subsection
= now_subseg
;
1444 temp
= get_absolute_expression ();
1445 subseg_set (now_seg
, (subsegT
) temp
);
1446 demand_empty_rest_of_line ();
1448 #ifdef md_elf_section_change_hook
1449 md_elf_section_change_hook ();
1453 /* This can be called from the processor backends if they change
1457 obj_elf_section_change_hook (void)
1459 previous_section
= now_seg
;
1460 previous_subsection
= now_subseg
;
1464 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1469 if (previous_section
== 0)
1471 as_warn (_(".previous without corresponding .section; ignored"));
1475 #ifdef md_flush_pending_output
1476 md_flush_pending_output ();
1479 new_section
= previous_section
;
1480 new_subsection
= previous_subsection
;
1481 previous_section
= now_seg
;
1482 previous_subsection
= now_subseg
;
1483 subseg_set (new_section
, new_subsection
);
1485 #ifdef md_elf_section_change_hook
1486 md_elf_section_change_hook ();
1491 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1493 struct section_stack
*top
= section_stack
;
1497 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1501 #ifdef md_flush_pending_output
1502 md_flush_pending_output ();
1505 section_stack
= top
->next
;
1506 previous_section
= top
->prev_seg
;
1507 previous_subsection
= top
->prev_subseg
;
1508 subseg_set (top
->seg
, top
->subseg
);
1511 #ifdef md_elf_section_change_hook
1512 md_elf_section_change_hook ();
1517 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1519 /* Assume delimiter is part of expression. BSD4.2 as fails with
1520 delightful bug, so we are not being incompatible here. */
1521 new_logical_line (NULL
, get_absolute_expression ());
1522 demand_empty_rest_of_line ();
1525 static struct elf_versioned_name_list
*
1526 obj_elf_find_and_add_versioned_name (const char *version_name
,
1527 const char *sym_name
,
1529 struct elf_obj_sy
*sy_obj
)
1531 struct elf_versioned_name_list
*versioned_name
;
1534 for (p
= ver
+ 1; *p
== ELF_VER_CHR
; p
++)
1537 /* NB: Since some tests in ld/testsuite/ld-elfvers have no version
1538 names, we have to disable this. */
1539 if (0 && *p
== '\0')
1541 as_bad (_("missing version name in `%s' for symbol `%s'"),
1542 version_name
, sym_name
);
1546 versioned_name
= sy_obj
->versioned_name
;
1556 if (strcmp (versioned_name
->name
, version_name
) == 0)
1557 return versioned_name
;
1560 as_bad (_("only one version name with `@@@' is allowed "
1561 "for symbol `%s'"), sym_name
);
1565 sy_obj
->rename
= TRUE
;
1568 as_bad (_("invalid version name '%s' for symbol `%s'"),
1569 version_name
, sym_name
);
1574 versioned_name
!= NULL
;
1575 versioned_name
= versioned_name
->next
)
1576 if (strcmp (versioned_name
->name
, version_name
) == 0)
1577 return versioned_name
;
1579 /* Add this versioned name to the head of the list, */
1580 versioned_name
= (struct elf_versioned_name_list
*)
1581 xmalloc (sizeof (*versioned_name
));
1582 versioned_name
->name
= xstrdup (version_name
);
1583 versioned_name
->next
= sy_obj
->versioned_name
;
1584 sy_obj
->versioned_name
= versioned_name
;
1586 return versioned_name
;
1589 /* This handles the .symver pseudo-op, which is used to specify a
1590 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1591 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1592 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1593 with the same value as the symbol NAME. */
1596 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1599 const char *sym_name
;
1603 struct elf_obj_sy
*sy_obj
;
1606 sym
= get_sym_from_input_line_and_check ();
1608 if (*input_line_pointer
!= ',')
1610 as_bad (_("expected comma after name in .symver"));
1611 ignore_rest_of_line ();
1615 ++input_line_pointer
;
1618 /* Temporarily include '@' in symbol names. */
1619 old_lexat
= lex_type
[(unsigned char) '@'];
1620 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1621 c
= get_symbol_name (& name
);
1622 lex_type
[(unsigned char) '@'] = old_lexat
;
1623 sym_name
= S_GET_NAME (sym
);
1625 if (S_IS_COMMON (sym
))
1627 as_bad (_("`%s' can't be versioned to common symbol '%s'"),
1629 ignore_rest_of_line ();
1633 p
= strchr (name
, ELF_VER_CHR
);
1636 as_bad (_("missing version name in `%s' for symbol `%s'"),
1638 ignore_rest_of_line ();
1642 sy_obj
= symbol_get_obj (sym
);
1643 if (obj_elf_find_and_add_versioned_name (name
, sym_name
,
1646 sy_obj
->bad_version
= TRUE
;
1647 ignore_rest_of_line ();
1651 (void) restore_line_pointer (c
);
1653 if (*input_line_pointer
== ',')
1655 char *save
= input_line_pointer
;
1657 ++input_line_pointer
;
1659 if (strncmp (input_line_pointer
, "local", 5) == 0)
1661 input_line_pointer
+= 5;
1662 sy_obj
->visibility
= visibility_local
;
1664 else if (strncmp (input_line_pointer
, "hidden", 6) == 0)
1666 input_line_pointer
+= 6;
1667 sy_obj
->visibility
= visibility_hidden
;
1669 else if (strncmp (input_line_pointer
, "remove", 6) == 0)
1671 input_line_pointer
+= 6;
1672 sy_obj
->visibility
= visibility_remove
;
1675 input_line_pointer
= save
;
1678 demand_empty_rest_of_line ();
1681 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1682 to the linker the hierarchy in which a particular table resides. The
1683 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1686 obj_elf_get_vtable_inherit (void)
1688 char *cname
, *pname
;
1689 symbolS
*csym
, *psym
;
1692 if (*input_line_pointer
== '#')
1693 ++input_line_pointer
;
1695 c
= get_symbol_name (& cname
);
1696 csym
= symbol_find (cname
);
1698 /* GCFIXME: should check that we don't have two .vtable_inherits for
1699 the same child symbol. Also, we can currently only do this if the
1700 child symbol is already exists and is placed in a fragment. */
1702 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1704 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1709 *input_line_pointer
= c
;
1711 SKIP_WHITESPACE_AFTER_NAME ();
1712 if (*input_line_pointer
!= ',')
1714 as_bad (_("expected comma after name in .vtable_inherit"));
1715 ignore_rest_of_line ();
1719 ++input_line_pointer
;
1722 if (*input_line_pointer
== '#')
1723 ++input_line_pointer
;
1725 if (input_line_pointer
[0] == '0'
1726 && (input_line_pointer
[1] == '\0'
1727 || ISSPACE (input_line_pointer
[1])))
1729 psym
= section_symbol (absolute_section
);
1730 ++input_line_pointer
;
1734 c
= get_symbol_name (& pname
);
1735 psym
= symbol_find_or_make (pname
);
1736 restore_line_pointer (c
);
1739 demand_empty_rest_of_line ();
1744 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1745 return fix_new (symbol_get_frag (csym
),
1746 symbol_get_value_expression (csym
)->X_add_number
,
1747 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1750 /* This is a version of obj_elf_get_vtable_inherit() that is
1751 suitable for use in struct _pseudo_type tables. */
1754 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1756 (void) obj_elf_get_vtable_inherit ();
1759 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1760 to the linker that a vtable slot was used. The syntax is
1761 ".vtable_entry tablename, offset". */
1764 obj_elf_get_vtable_entry (void)
1769 if (*input_line_pointer
== '#')
1770 ++input_line_pointer
;
1772 sym
= get_sym_from_input_line_and_check ();
1773 if (*input_line_pointer
!= ',')
1775 as_bad (_("expected comma after name in .vtable_entry"));
1776 ignore_rest_of_line ();
1780 ++input_line_pointer
;
1781 if (*input_line_pointer
== '#')
1782 ++input_line_pointer
;
1784 offset
= get_absolute_expression ();
1786 demand_empty_rest_of_line ();
1788 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1789 BFD_RELOC_VTABLE_ENTRY
);
1792 /* This is a version of obj_elf_get_vtable_entry() that is
1793 suitable for use in struct _pseudo_type tables. */
1796 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1798 (void) obj_elf_get_vtable_entry ();
1801 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1804 skip_past_char (char ** str
, char c
)
1814 #define skip_past_comma(str) skip_past_char (str, ',')
1816 /* A list of attributes that have been explicitly set by the assembly code.
1817 VENDOR is the vendor id, BASE is the tag shifted right by the number
1818 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1819 struct recorded_attribute_info
{
1820 struct recorded_attribute_info
*next
;
1825 static struct recorded_attribute_info
*recorded_attributes
;
1827 /* Record that we have seen an explicit specification of attribute TAG
1828 for vendor VENDOR. */
1831 record_attribute (int vendor
, unsigned int tag
)
1835 struct recorded_attribute_info
*rai
;
1837 base
= tag
/ (8 * sizeof (rai
->mask
));
1838 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1839 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1840 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1846 rai
= XNEW (struct recorded_attribute_info
);
1847 rai
->next
= recorded_attributes
;
1848 rai
->vendor
= vendor
;
1851 recorded_attributes
= rai
;
1854 /* Return true if we have seen an explicit specification of attribute TAG
1855 for vendor VENDOR. */
1858 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1862 struct recorded_attribute_info
*rai
;
1864 base
= tag
/ (8 * sizeof (rai
->mask
));
1865 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1866 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1867 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1868 return (rai
->mask
& mask
) != 0;
1872 /* Parse an attribute directive for VENDOR.
1873 Returns the attribute number read, or zero on error. */
1876 obj_elf_vendor_attribute (int vendor
)
1884 /* Read the first number or name. */
1885 skip_whitespace (input_line_pointer
);
1886 s
= input_line_pointer
;
1887 if (ISDIGIT (*input_line_pointer
))
1890 if (exp
.X_op
!= O_constant
)
1892 tag
= exp
.X_add_number
;
1898 /* A name may contain '_', but no other punctuation. */
1899 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1900 ++input_line_pointer
)
1905 name
= xstrndup (s
, i
);
1907 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1908 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1911 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1914 as_bad (_("Attribute name not recognised: %s"), name
);
1915 ignore_rest_of_line ();
1922 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1924 if (skip_past_comma (&input_line_pointer
) == -1)
1929 if (exp
.X_op
!= O_constant
)
1931 as_bad (_("expected numeric constant"));
1932 ignore_rest_of_line ();
1935 i
= exp
.X_add_number
;
1938 && skip_past_comma (&input_line_pointer
) == -1)
1940 as_bad (_("expected comma"));
1941 ignore_rest_of_line ();
1948 skip_whitespace (input_line_pointer
);
1949 if (*input_line_pointer
!= '"')
1951 s
= demand_copy_C_string (&len
);
1954 record_attribute (vendor
, tag
);
1958 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1961 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1964 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1970 demand_empty_rest_of_line ();
1973 as_bad (_("bad string constant"));
1974 ignore_rest_of_line ();
1977 as_bad (_("expected <tag> , <value>"));
1978 ignore_rest_of_line ();
1982 /* Parse a .gnu_attribute directive. */
1985 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1987 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1991 elf_obj_read_begin_hook (void)
1993 #ifdef NEED_ECOFF_DEBUG
1994 if (ECOFF_DEBUGGING
)
1995 ecoff_read_begin_hook ();
2000 elf_obj_symbol_new_hook (symbolS
*symbolP
)
2002 struct elf_obj_sy
*sy_obj
;
2004 sy_obj
= symbol_get_obj (symbolP
);
2005 sy_obj
->size
= NULL
;
2006 sy_obj
->versioned_name
= NULL
;
2008 #ifdef NEED_ECOFF_DEBUG
2009 if (ECOFF_DEBUGGING
)
2010 ecoff_symbol_new_hook (symbolP
);
2014 /* When setting one symbol equal to another, by default we probably
2015 want them to have the same "size", whatever it means in the current
2019 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
2021 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
2022 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
2025 if (destelf
->size
== NULL
)
2026 destelf
->size
= XNEW (expressionS
);
2027 *destelf
->size
= *srcelf
->size
;
2031 free (destelf
->size
);
2032 destelf
->size
= NULL
;
2034 S_SET_SIZE (dest
, S_GET_SIZE (src
));
2035 /* Don't copy visibility. */
2036 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
2037 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
2041 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
2046 asection
*seg
= now_seg
;
2047 subsegT subseg
= now_subseg
;
2048 Elf_Internal_Note i_note
;
2049 Elf_External_Note e_note
;
2050 asection
*note_secp
= NULL
;
2053 if (*input_line_pointer
== '\"')
2057 ++input_line_pointer
; /* -> 1st char of string. */
2058 name
= input_line_pointer
;
2060 while (is_a_char (c
= next_char_of_string ()))
2062 c
= *input_line_pointer
;
2063 *input_line_pointer
= '\0';
2064 *(input_line_pointer
- 1) = '\0';
2065 *input_line_pointer
= c
;
2067 /* Create the .note section. */
2068 note_secp
= subseg_new (".note", 0);
2069 bfd_set_section_flags (note_secp
, SEC_HAS_CONTENTS
| SEC_READONLY
);
2070 record_alignment (note_secp
, 2);
2072 /* Process the version string. */
2073 len
= strlen (name
) + 1;
2075 /* PR 3456: Although the name field is padded out to an 4-byte
2076 boundary, the namesz field should not be adjusted. */
2077 i_note
.namesz
= len
;
2078 i_note
.descsz
= 0; /* No description. */
2079 i_note
.type
= NT_VERSION
;
2080 p
= frag_more (sizeof (e_note
.namesz
));
2081 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
2082 p
= frag_more (sizeof (e_note
.descsz
));
2083 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
2084 p
= frag_more (sizeof (e_note
.type
));
2085 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
2086 p
= frag_more (len
);
2087 memcpy (p
, name
, len
);
2089 frag_align (2, 0, 0);
2091 subseg_set (seg
, subseg
);
2094 as_bad (_("expected quoted string"));
2096 demand_empty_rest_of_line ();
2100 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
2103 char c
= get_symbol_name (&name
);
2108 p
= input_line_pointer
;
2110 SKIP_WHITESPACE_AFTER_NAME ();
2111 if (*input_line_pointer
!= ',')
2114 as_bad (_("expected comma after name `%s' in .size directive"), name
);
2116 ignore_rest_of_line ();
2119 input_line_pointer
++;
2121 if (exp
.X_op
== O_absent
)
2123 as_bad (_("missing expression in .size directive"));
2124 exp
.X_op
= O_constant
;
2125 exp
.X_add_number
= 0;
2128 sym
= symbol_find_or_make (name
);
2130 if (exp
.X_op
== O_constant
)
2132 S_SET_SIZE (sym
, exp
.X_add_number
);
2133 xfree (symbol_get_obj (sym
)->size
);
2134 symbol_get_obj (sym
)->size
= NULL
;
2138 symbol_get_obj (sym
)->size
= XNEW (expressionS
);
2139 *symbol_get_obj (sym
)->size
= exp
;
2141 demand_empty_rest_of_line ();
2144 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
2145 There are six syntaxes:
2147 The first (used on Solaris) is
2149 The second (used on UnixWare) is
2151 The third (reportedly to be used on Irix 6.0) is
2153 The fourth (used on NetBSD/Arm and Linux/ARM) is
2155 The fifth (used on SVR4/860) is
2156 .type SYM,"function"
2157 The sixth (emitted by recent SunPRO under Solaris) is
2159 where the integer is the STT_* value.
2163 obj_elf_type_name (char *cp
)
2167 p
= input_line_pointer
;
2168 if (*input_line_pointer
>= '0'
2169 && *input_line_pointer
<= '9')
2171 while (*input_line_pointer
>= '0'
2172 && *input_line_pointer
<= '9')
2173 ++input_line_pointer
;
2174 *cp
= *input_line_pointer
;
2175 *input_line_pointer
= '\0';
2178 *cp
= get_symbol_name (&p
);
2184 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
2188 const char *type_name
;
2190 elf_symbol_type
*elfsym
;
2192 sym
= get_sym_from_input_line_and_check ();
2193 c
= *input_line_pointer
;
2194 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
2196 if (*input_line_pointer
== ',')
2197 ++input_line_pointer
;
2200 if ( *input_line_pointer
== '#'
2201 || *input_line_pointer
== '@'
2202 || *input_line_pointer
== '"'
2203 || *input_line_pointer
== '%')
2204 ++input_line_pointer
;
2206 type_name
= obj_elf_type_name (& c
);
2209 if (strcmp (type_name
, "function") == 0
2210 || strcmp (type_name
, "2") == 0
2211 || strcmp (type_name
, "STT_FUNC") == 0)
2212 type
= BSF_FUNCTION
;
2213 else if (strcmp (type_name
, "object") == 0
2214 || strcmp (type_name
, "1") == 0
2215 || strcmp (type_name
, "STT_OBJECT") == 0)
2217 else if (strcmp (type_name
, "tls_object") == 0
2218 || strcmp (type_name
, "6") == 0
2219 || strcmp (type_name
, "STT_TLS") == 0)
2220 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
2221 else if (strcmp (type_name
, "notype") == 0
2222 || strcmp (type_name
, "0") == 0
2223 || strcmp (type_name
, "STT_NOTYPE") == 0)
2225 else if (strcmp (type_name
, "common") == 0
2226 || strcmp (type_name
, "5") == 0
2227 || strcmp (type_name
, "STT_COMMON") == 0)
2231 if (! S_IS_COMMON (sym
))
2233 if (S_IS_VOLATILE (sym
))
2235 sym
= symbol_clone (sym
, 1);
2236 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2237 S_SET_VALUE (sym
, 0);
2238 S_SET_EXTERNAL (sym
);
2239 symbol_set_frag (sym
, &zero_address_frag
);
2240 S_CLEAR_VOLATILE (sym
);
2242 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
2243 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
2246 /* FIXME: Is it safe to just change the section ? */
2247 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2248 S_SET_VALUE (sym
, 0);
2249 S_SET_EXTERNAL (sym
);
2253 else if (strcmp (type_name
, "gnu_indirect_function") == 0
2254 || strcmp (type_name
, "10") == 0
2255 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
2257 struct elf_backend_data
*bed
;
2259 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2260 if (bed
->elf_osabi
== ELFOSABI_NONE
)
2261 bed
->elf_osabi
= ELFOSABI_GNU
;
2262 else if (bed
->elf_osabi
!= ELFOSABI_GNU
2263 && bed
->elf_osabi
!= ELFOSABI_FREEBSD
)
2264 as_bad (_("symbol type \"%s\" is supported only by GNU "
2265 "and FreeBSD targets"), type_name
);
2266 /* MIPS targets do not support IFUNCS. */
2267 else if (bed
->target_id
== MIPS_ELF_DATA
)
2268 as_bad (_("symbol type \"%s\" is not supported by "
2269 "MIPS targets"), type_name
);
2270 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_ifunc
;
2271 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
2273 else if (strcmp (type_name
, "gnu_unique_object") == 0)
2275 struct elf_backend_data
*bed
;
2277 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2278 if (bed
->elf_osabi
== ELFOSABI_NONE
)
2279 bed
->elf_osabi
= ELFOSABI_GNU
;
2280 else if (bed
->elf_osabi
!= ELFOSABI_GNU
)
2281 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
2283 elf_tdata (stdoutput
)->has_gnu_osabi
|= elf_gnu_osabi_unique
;
2284 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
2286 #ifdef md_elf_symbol_type
2287 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
2291 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
2293 *input_line_pointer
= c
;
2295 if (*input_line_pointer
== '"')
2296 ++input_line_pointer
;
2298 #ifdef md_elf_symbol_type_change
2299 if (!md_elf_symbol_type_change (sym
, elfsym
, type
))
2302 flagword mask
= BSF_FUNCTION
| BSF_OBJECT
;
2304 if (type
!= BSF_FUNCTION
)
2305 mask
|= BSF_GNU_INDIRECT_FUNCTION
;
2306 if (type
!= BSF_OBJECT
)
2308 mask
|= BSF_GNU_UNIQUE
| BSF_THREAD_LOCAL
;
2310 if (S_IS_COMMON (sym
))
2312 as_bad (_("cannot change type of common symbol '%s'"),
2318 /* Don't warn when changing to STT_NOTYPE. */
2321 flagword
new = (elfsym
->symbol
.flags
& ~mask
) | type
;
2323 if (new != (elfsym
->symbol
.flags
| type
))
2324 as_warn (_("symbol '%s' already has its type set"), S_GET_NAME (sym
));
2325 elfsym
->symbol
.flags
= new;
2328 elfsym
->symbol
.flags
&= ~mask
;
2331 demand_empty_rest_of_line ();
2335 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
2337 static segT comment_section
;
2338 segT old_section
= now_seg
;
2339 int old_subsection
= now_subseg
;
2341 #ifdef md_flush_pending_output
2342 md_flush_pending_output ();
2345 if (!comment_section
)
2348 comment_section
= subseg_new (".comment", 0);
2349 bfd_set_section_flags (comment_section
, (SEC_READONLY
| SEC_HAS_CONTENTS
2350 | SEC_MERGE
| SEC_STRINGS
));
2351 comment_section
->entsize
= 1;
2352 #ifdef md_elf_section_change_hook
2353 md_elf_section_change_hook ();
2359 subseg_set (comment_section
, 0);
2361 subseg_set (old_section
, old_subsection
);
2364 #ifdef INIT_STAB_SECTION
2366 /* The first entry in a .stabs section is special. */
2369 obj_elf_init_stab_section (segT seg
)
2374 unsigned int stroff
;
2376 /* Force the section to align to a longword boundary. Without this,
2377 UnixWare ar crashes. */
2378 bfd_set_section_alignment (seg
, 2);
2380 /* Make space for this first symbol. */
2384 file
= as_where (NULL
);
2385 stabstr_name
= concat (segment_name (seg
), "str", (char *) NULL
);
2386 stroff
= get_stab_string_offset (file
, stabstr_name
, TRUE
);
2387 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2388 md_number_to_chars (p
, stroff
, 4);
2389 seg_info (seg
)->stabu
.p
= p
;
2394 /* Fill in the counts in the first entry in a .stabs section. */
2397 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2404 if (strncmp (".stab", sec
->name
, 5))
2406 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2409 name
= concat (sec
->name
, "str", NULL
);
2410 strsec
= bfd_get_section_by_name (abfd
, name
);
2412 strsz
= bfd_section_size (strsec
);
2415 nsyms
= bfd_section_size (sec
) / 12 - 1;
2417 p
= seg_info (sec
)->stabu
.p
;
2418 gas_assert (p
!= 0);
2420 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2421 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2425 #ifdef NEED_ECOFF_DEBUG
2427 /* This function is called by the ECOFF code. It is supposed to
2428 record the external symbol information so that the backend can
2429 write it out correctly. The ELF backend doesn't actually handle
2430 this at the moment, so we do it ourselves. We save the information
2433 #ifdef OBJ_MAYBE_ELF
2437 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2439 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2442 /* This function is called by bfd_ecoff_debug_externals. It is
2443 supposed to *EXT to the external symbol information, and return
2444 whether the symbol should be used at all. */
2447 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2449 if (sym
->udata
.p
== NULL
)
2451 *ext
= *(EXTR
*) sym
->udata
.p
;
2455 /* This function is called by bfd_ecoff_debug_externals. It has
2456 nothing to do for ELF. */
2459 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2460 bfd_size_type indx ATTRIBUTE_UNUSED
)
2464 #endif /* NEED_ECOFF_DEBUG */
2467 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2469 struct elf_obj_sy
*sy_obj
;
2471 struct elf_versioned_name_list
*versioned_name
;
2473 #ifdef NEED_ECOFF_DEBUG
2474 if (ECOFF_DEBUGGING
)
2475 ecoff_frob_symbol (symp
);
2478 sy_obj
= symbol_get_obj (symp
);
2480 size
= sy_obj
->size
;
2483 if (resolve_expression (size
)
2484 && size
->X_op
== O_constant
)
2485 S_SET_SIZE (symp
, size
->X_add_number
);
2488 if (!flag_allow_nonconst_size
)
2489 as_bad (_(".size expression for %s "
2490 "does not evaluate to a constant"), S_GET_NAME (symp
));
2492 as_warn (_(".size expression for %s "
2493 "does not evaluate to a constant"), S_GET_NAME (symp
));
2495 free (sy_obj
->size
);
2496 sy_obj
->size
= NULL
;
2499 versioned_name
= sy_obj
->versioned_name
;
2502 /* This symbol was given a new name with the .symver directive.
2503 If this is an external reference, just rename the symbol to
2504 include the version string. This will make the relocs be
2505 against the correct versioned symbol. */
2507 /* We will have already reported an version error. */
2508 if (sy_obj
->bad_version
)
2510 /* elf_frob_file_before_adjust only allows one version symbol for
2512 else if (sy_obj
->rename
)
2513 S_SET_NAME (symp
, versioned_name
->name
);
2514 else if (S_IS_COMMON (symp
))
2516 as_bad (_("`%s' can't be versioned to common symbol '%s'"),
2517 versioned_name
->name
, S_GET_NAME (symp
));
2523 elf_symbol_type
*elfsym
;
2525 /* This is a definition. Add an alias for each version.
2526 FIXME: Using an alias will permit the debugging information
2527 to refer to the right symbol. However, it's not clear
2528 whether it is the best approach. */
2530 /* FIXME: Creating a new symbol here is risky. We're
2531 in the final loop over the symbol table. We can
2532 get away with it only because the symbol goes to
2533 the end of the list, where the loop will still see
2534 it. It would probably be better to do this in
2535 obj_frob_file_before_adjust. */
2536 for (; versioned_name
!= NULL
;
2537 versioned_name
= versioned_name
->next
)
2539 symbolS
*symp2
= symbol_find_or_make (versioned_name
->name
);
2541 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2543 /* Subtracting out the frag address here is a hack
2544 because we are in the middle of the final loop. */
2547 - symbol_get_frag (symp
)->fr_address
));
2549 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2551 /* This will copy over the size information. */
2552 copy_symbol_attributes (symp2
, symp
);
2554 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2556 if (S_IS_WEAK (symp
))
2559 if (S_IS_EXTERNAL (symp
))
2560 S_SET_EXTERNAL (symp2
);
2563 switch (symbol_get_obj (symp
)->visibility
)
2565 case visibility_unchanged
:
2567 case visibility_hidden
:
2568 bfdsym
= symbol_get_bfdsym (symp
);
2569 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
),
2571 elfsym
->internal_elf_sym
.st_other
&= ~3;
2572 elfsym
->internal_elf_sym
.st_other
|= STV_HIDDEN
;
2574 case visibility_remove
:
2575 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2577 case visibility_local
:
2578 S_CLEAR_EXTERNAL (symp
);
2584 /* Double check weak symbols. */
2585 if (S_IS_WEAK (symp
))
2587 if (S_IS_COMMON (symp
))
2588 as_bad (_("symbol `%s' can not be both weak and common"),
2595 asection
**head
; /* Section lists. */
2596 unsigned int num_group
; /* Number of lists. */
2597 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2600 static struct group_list groups
;
2602 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2603 add it to a list of sections belonging to the group. INF is a
2604 pointer to a struct group_list, which is where we store the head of
2605 each list. If its link_to_symbol_name isn't NULL, set up its
2606 linked-to section. */
2609 build_additional_section_info (bfd
*abfd ATTRIBUTE_UNUSED
,
2610 asection
*sec
, void *inf
)
2612 struct group_list
*list
= (struct group_list
*) inf
;
2613 const char *group_name
= elf_group_name (sec
);
2615 unsigned int *elem_idx
;
2616 unsigned int *idx_ptr
;
2618 if (sec
->map_head
.linked_to_symbol_name
)
2620 symbolS
*linked_to_sym
;
2621 linked_to_sym
= symbol_find (sec
->map_head
.linked_to_symbol_name
);
2622 if (!linked_to_sym
|| !S_IS_DEFINED (linked_to_sym
))
2623 as_bad (_("undefined linked-to symbol `%s' on section `%s'"),
2624 sec
->map_head
.linked_to_symbol_name
,
2625 bfd_section_name (sec
));
2627 elf_linked_to_section (sec
) = S_GET_SEGMENT (linked_to_sym
);
2630 if (group_name
== NULL
)
2633 /* If this group already has a list, add the section to the head of
2635 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2636 if (elem_idx
!= NULL
)
2638 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2639 list
->head
[*elem_idx
] = sec
;
2643 /* New group. Make the arrays bigger in chunks to minimize calls to
2645 i
= list
->num_group
;
2648 unsigned int newsize
= i
+ 128;
2649 list
->head
= XRESIZEVEC (asection
*, list
->head
, newsize
);
2651 list
->head
[i
] = sec
;
2652 list
->num_group
+= 1;
2654 /* Add index to hash. */
2655 idx_ptr
= XNEW (unsigned int);
2657 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2660 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2662 free ((unsigned int *) val
);
2665 /* Create symbols for group signature. */
2668 elf_adjust_symtab (void)
2672 /* Go find section groups. */
2673 groups
.num_group
= 0;
2675 groups
.indexes
= hash_new ();
2676 bfd_map_over_sections (stdoutput
, build_additional_section_info
,
2679 /* Make the SHT_GROUP sections that describe each section group. We
2680 can't set up the section contents here yet, because elf section
2681 indices have yet to be calculated. elf.c:set_group_contents does
2682 the rest of the work. */
2683 for (i
= 0; i
< groups
.num_group
; i
++)
2685 const char *group_name
= elf_group_name (groups
.head
[i
]);
2686 const char *sec_name
;
2691 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2692 for (s
= groups
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2693 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2695 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2696 if (s
!= groups
.head
[i
])
2698 as_warn (_("assuming all members of group `%s' are COMDAT"),
2704 sec_name
= ".group";
2705 s
= subseg_force_new (sec_name
, 0);
2707 || !bfd_set_section_flags (s
, flags
)
2708 || !bfd_set_section_alignment (s
, 2))
2710 as_fatal (_("can't create group: %s"),
2711 bfd_errmsg (bfd_get_error ()));
2713 elf_section_type (s
) = SHT_GROUP
;
2715 /* Pass a pointer to the first section in this group. */
2716 elf_next_in_group (s
) = groups
.head
[i
];
2717 elf_sec_group (groups
.head
[i
]) = s
;
2718 /* Make sure that the signature symbol for the group has the
2719 name of the group. */
2720 sy
= symbol_find_exact (group_name
);
2721 if (!sy
|| !symbol_on_chain (sy
, symbol_rootP
, symbol_lastP
))
2723 /* Create the symbol now. */
2724 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2726 /* Before Solaris 11 build 154, Sun ld rejects local group
2727 signature symbols, so make them weak hidden instead. */
2728 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2729 S_SET_OTHER (sy
, STV_HIDDEN
);
2731 symbol_get_obj (sy
)->local
= 1;
2733 symbol_table_insert (sy
);
2735 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2740 elf_frob_file (void)
2742 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2744 #ifdef elf_tc_final_processing
2745 elf_tc_final_processing ();
2749 /* It removes any unneeded versioned symbols from the symbol table. */
2752 elf_frob_file_before_adjust (void)
2758 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2760 struct elf_obj_sy
*sy_obj
= symbol_get_obj (symp
);
2761 int is_defined
= !!S_IS_DEFINED (symp
);
2763 if (sy_obj
->versioned_name
)
2765 char *p
= strchr (sy_obj
->versioned_name
->name
,
2770 /* The @@@ syntax is a special case. If the symbol is
2771 not defined, 2 `@'s will be removed from the
2772 versioned_name. Otherwise, 1 `@' will be removed. */
2773 size_t l
= strlen (&p
[3]) + 1;
2774 memmove (&p
[1 + is_defined
], &p
[3], l
);
2779 /* Verify that the name isn't using the @@ syntax--this
2780 is reserved for definitions of the default version
2782 if (!sy_obj
->rename
&& p
[1] == ELF_VER_CHR
)
2784 as_bad (_("invalid attempt to declare external "
2785 "version name as default in symbol `%s'"),
2786 sy_obj
->versioned_name
->name
);
2790 /* Only one version symbol is allowed for undefined
2792 if (sy_obj
->versioned_name
->next
)
2794 as_bad (_("multiple versions [`%s'|`%s'] for "
2796 sy_obj
->versioned_name
->name
,
2797 sy_obj
->versioned_name
->next
->name
,
2802 sy_obj
->rename
= TRUE
;
2806 /* If there was .symver or .weak, but symbol was neither
2807 defined nor used anywhere, remove it. */
2809 && (sy_obj
->versioned_name
|| S_IS_WEAK (symp
))
2810 && symbol_used_p (symp
) == 0
2811 && symbol_used_in_reloc_p (symp
) == 0)
2812 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2817 /* It is required that we let write_relocs have the opportunity to
2818 optimize away fixups before output has begun, since it is possible
2819 to eliminate all fixups for a section and thus we never should
2820 have generated the relocation section. */
2823 elf_frob_file_after_relocs (void)
2827 /* Set SHT_GROUP section size. */
2828 for (i
= 0; i
< groups
.num_group
; i
++)
2830 asection
*s
, *head
, *group
;
2833 head
= groups
.head
[i
];
2835 for (s
= head
; s
!= NULL
; s
= elf_next_in_group (s
))
2836 size
+= (s
->flags
& SEC_RELOC
) != 0 ? 8 : 4;
2838 group
= elf_sec_group (head
);
2839 subseg_set (group
, 0);
2840 bfd_set_section_size (group
, size
);
2841 group
->contents
= (unsigned char *) frag_more (size
);
2842 frag_now
->fr_fix
= frag_now_fix_octets ();
2843 frag_wane (frag_now
);
2847 hash_traverse (groups
.indexes
, free_section_idx
);
2848 hash_die (groups
.indexes
);
2850 #ifdef NEED_ECOFF_DEBUG
2851 if (ECOFF_DEBUGGING
)
2852 /* Generate the ECOFF debugging information. */
2854 const struct ecoff_debug_swap
*debug_swap
;
2855 struct ecoff_debug_info debug
;
2860 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2861 know (debug_swap
!= NULL
);
2862 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2864 /* Set up the pointers in debug. */
2865 #define SET(ptr, offset, type) \
2866 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2868 SET (line
, cbLineOffset
, unsigned char *);
2869 SET (external_dnr
, cbDnOffset
, void *);
2870 SET (external_pdr
, cbPdOffset
, void *);
2871 SET (external_sym
, cbSymOffset
, void *);
2872 SET (external_opt
, cbOptOffset
, void *);
2873 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2874 SET (ss
, cbSsOffset
, char *);
2875 SET (external_fdr
, cbFdOffset
, void *);
2876 SET (external_rfd
, cbRfdOffset
, void *);
2877 /* ssext and external_ext are set up just below. */
2881 /* Set up the external symbols. */
2882 debug
.ssext
= debug
.ssext_end
= NULL
;
2883 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2884 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2885 elf_get_extr
, elf_set_index
))
2886 as_fatal (_("failed to set up debugging information: %s"),
2887 bfd_errmsg (bfd_get_error ()));
2889 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2890 gas_assert (sec
!= NULL
);
2892 know (!stdoutput
->output_has_begun
);
2894 /* We set the size of the section, call bfd_set_section_contents
2895 to force the ELF backend to allocate a file position, and then
2896 write out the data. FIXME: Is this really the best way to do
2898 bfd_set_section_size (sec
, bfd_ecoff_debug_size (stdoutput
, &debug
,
2901 /* Pass BUF to bfd_set_section_contents because this will
2902 eventually become a call to fwrite, and ISO C prohibits
2903 passing a NULL pointer to a stdio function even if the
2904 pointer will not be used. */
2905 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2906 as_fatal (_("can't start writing .mdebug section: %s"),
2907 bfd_errmsg (bfd_get_error ()));
2909 know (stdoutput
->output_has_begun
);
2910 know (sec
->filepos
!= 0);
2912 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2914 as_fatal (_("could not write .mdebug section: %s"),
2915 bfd_errmsg (bfd_get_error ()));
2917 #endif /* NEED_ECOFF_DEBUG */
2921 elf_generate_asm_lineno (void)
2923 #ifdef NEED_ECOFF_DEBUG
2924 if (ECOFF_DEBUGGING
)
2925 ecoff_generate_asm_lineno ();
2930 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2931 int what ATTRIBUTE_UNUSED
,
2932 const char *string ATTRIBUTE_UNUSED
,
2933 int type ATTRIBUTE_UNUSED
,
2934 int other ATTRIBUTE_UNUSED
,
2935 int desc ATTRIBUTE_UNUSED
)
2937 #ifdef NEED_ECOFF_DEBUG
2938 if (ECOFF_DEBUGGING
)
2939 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2944 elf_separate_stab_sections (void)
2946 #ifdef NEED_ECOFF_DEBUG
2947 return (!ECOFF_DEBUGGING
);
2954 elf_init_stab_section (segT seg
)
2956 #ifdef NEED_ECOFF_DEBUG
2957 if (!ECOFF_DEBUGGING
)
2959 obj_elf_init_stab_section (seg
);
2962 const struct format_ops elf_format_ops
=
2964 bfd_target_elf_flavour
,
2965 0, /* dfl_leading_underscore */
2966 1, /* emit_section_symbols */
2971 elf_frob_file_before_adjust
,
2972 0, /* obj_frob_file_before_fix */
2973 elf_frob_file_after_relocs
,
2974 elf_s_get_size
, elf_s_set_size
,
2975 elf_s_get_align
, elf_s_set_align
,
2982 elf_copy_symbol_attributes
,
2983 elf_generate_asm_lineno
,
2985 elf_separate_stab_sections
,
2986 elf_init_stab_section
,
2987 elf_sec_sym_ok_for_reloc
,
2989 #ifdef NEED_ECOFF_DEBUG
2992 0, /* ecoff_set_ext */
2994 elf_obj_read_begin_hook
,
2995 elf_obj_symbol_new_hook
,