1 /* ELF object file format
2 Copyright (C) 1992-2017 Free Software Foundation, Inc.
4 This file is part of GAS, the GNU Assembler.
6 GAS is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as
8 published by the Free Software Foundation; either version 3,
9 or (at your option) any later version.
11 GAS is distributed in the hope that it will be useful, but
12 WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
14 the GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GAS; see the file COPYING. If not, write to the Free
18 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
21 #define OBJ_HEADER "obj-elf.h"
23 #include "safe-ctype.h"
26 #include "struc-symbol.h"
27 #include "dwarf2dbg.h"
29 #ifndef ECOFF_DEBUGGING
30 #define ECOFF_DEBUGGING 0
32 #define NEED_ECOFF_DEBUG
35 #ifdef NEED_ECOFF_DEBUG
40 #include "elf/alpha.h"
56 #include "elf/x86-64.h"
64 #include "elf/nios2.h"
71 static void obj_elf_line (int);
72 static void obj_elf_size (int);
73 static void obj_elf_type (int);
74 static void obj_elf_ident (int);
75 static void obj_elf_weak (int);
76 static void obj_elf_local (int);
77 static void obj_elf_visibility (int);
78 static void obj_elf_symver (int);
79 static void obj_elf_subsection (int);
80 static void obj_elf_popsection (int);
81 static void obj_elf_gnu_attribute (int);
82 static void obj_elf_tls_common (int);
83 static void obj_elf_lcomm (int);
84 static void obj_elf_struct (int);
86 static const pseudo_typeS elf_pseudo_table
[] =
88 {"comm", obj_elf_common
, 0},
89 {"common", obj_elf_common
, 1},
90 {"ident", obj_elf_ident
, 0},
91 {"lcomm", obj_elf_lcomm
, 0},
92 {"local", obj_elf_local
, 0},
93 {"previous", obj_elf_previous
, 0},
94 {"section", obj_elf_section
, 0},
95 {"section.s", obj_elf_section
, 0},
96 {"sect", obj_elf_section
, 0},
97 {"sect.s", obj_elf_section
, 0},
98 {"pushsection", obj_elf_section
, 1},
99 {"popsection", obj_elf_popsection
, 0},
100 {"size", obj_elf_size
, 0},
101 {"type", obj_elf_type
, 0},
102 {"version", obj_elf_version
, 0},
103 {"weak", obj_elf_weak
, 0},
105 /* These define symbol visibility. */
106 {"internal", obj_elf_visibility
, STV_INTERNAL
},
107 {"hidden", obj_elf_visibility
, STV_HIDDEN
},
108 {"protected", obj_elf_visibility
, STV_PROTECTED
},
110 /* These are used for stabs-in-elf configurations. */
111 {"line", obj_elf_line
, 0},
113 /* This is a GNU extension to handle symbol versions. */
114 {"symver", obj_elf_symver
, 0},
116 /* A GNU extension to change subsection only. */
117 {"subsection", obj_elf_subsection
, 0},
119 /* These are GNU extensions to aid in garbage collecting C++ vtables. */
120 {"vtable_inherit", (void (*) (int)) &obj_elf_vtable_inherit
, 0},
121 {"vtable_entry", (void (*) (int)) &obj_elf_vtable_entry
, 0},
123 /* A GNU extension for object attributes. */
124 {"gnu_attribute", obj_elf_gnu_attribute
, 0},
126 /* These are used for dwarf. */
130 /* These are used for dwarf2. */
131 { "file", (void (*) (int)) dwarf2_directive_file
, 0 },
132 { "loc", dwarf2_directive_loc
, 0 },
133 { "loc_mark_labels", dwarf2_directive_loc_mark_labels
, 0 },
135 /* We need to trap the section changing calls to handle .previous. */
136 {"data", obj_elf_data
, 0},
137 {"offset", obj_elf_struct
, 0},
138 {"struct", obj_elf_struct
, 0},
139 {"text", obj_elf_text
, 0},
141 {"tls_common", obj_elf_tls_common
, 0},
147 static const pseudo_typeS ecoff_debug_pseudo_table
[] =
149 #ifdef NEED_ECOFF_DEBUG
150 /* COFF style debugging information for ECOFF. .ln is not used; .loc
152 { "def", ecoff_directive_def
, 0 },
153 { "dim", ecoff_directive_dim
, 0 },
154 { "endef", ecoff_directive_endef
, 0 },
155 { "file", ecoff_directive_file
, 0 },
156 { "scl", ecoff_directive_scl
, 0 },
157 { "tag", ecoff_directive_tag
, 0 },
158 { "val", ecoff_directive_val
, 0 },
160 /* COFF debugging requires pseudo-ops .size and .type, but ELF
161 already has meanings for those. We use .esize and .etype
162 instead. These are only generated by gcc anyhow. */
163 { "esize", ecoff_directive_size
, 0 },
164 { "etype", ecoff_directive_type
, 0 },
166 /* ECOFF specific debugging information. */
167 { "aent", ecoff_directive_ent
, 1 },
168 { "begin", ecoff_directive_begin
, 0 },
169 { "bend", ecoff_directive_bend
, 0 },
170 { "end", ecoff_directive_end
, 0 },
171 { "ent", ecoff_directive_ent
, 0 },
172 { "fmask", ecoff_directive_fmask
, 0 },
173 { "frame", ecoff_directive_frame
, 0 },
174 { "loc", ecoff_directive_loc
, 0 },
175 { "mask", ecoff_directive_mask
, 0 },
177 /* Other ECOFF directives. */
178 { "extern", ecoff_directive_extern
, 0 },
180 /* These are used on Irix. I don't know how to implement them. */
181 { "alias", s_ignore
, 0 },
182 { "bgnb", s_ignore
, 0 },
183 { "endb", s_ignore
, 0 },
184 { "lab", s_ignore
, 0 },
185 { "noalias", s_ignore
, 0 },
186 { "verstamp", s_ignore
, 0 },
187 { "vreg", s_ignore
, 0 },
190 {NULL
, NULL
, 0} /* end sentinel */
194 #include "aout/aout64.h"
196 /* This is called when the assembler starts. */
198 asection
*elf_com_section_ptr
;
205 /* Add symbols for the known sections to the symbol table. */
206 s
= bfd_get_section_by_name (stdoutput
, TEXT_SECTION_NAME
);
207 symbol_table_insert (section_symbol (s
));
208 s
= bfd_get_section_by_name (stdoutput
, DATA_SECTION_NAME
);
209 symbol_table_insert (section_symbol (s
));
210 s
= bfd_get_section_by_name (stdoutput
, BSS_SECTION_NAME
);
211 symbol_table_insert (section_symbol (s
));
212 elf_com_section_ptr
= bfd_com_section_ptr
;
216 elf_pop_insert (void)
218 pop_insert (elf_pseudo_table
);
220 pop_insert (ecoff_debug_pseudo_table
);
224 elf_s_get_size (symbolS
*sym
)
226 return S_GET_SIZE (sym
);
230 elf_s_set_size (symbolS
*sym
, bfd_vma sz
)
232 S_SET_SIZE (sym
, sz
);
236 elf_s_get_align (symbolS
*sym
)
238 return S_GET_ALIGN (sym
);
242 elf_s_set_align (symbolS
*sym
, bfd_vma align
)
244 S_SET_ALIGN (sym
, align
);
248 elf_s_get_other (symbolS
*sym
)
250 return elf_symbol (symbol_get_bfdsym (sym
))->internal_elf_sym
.st_other
;
254 elf_s_set_other (symbolS
*sym
, int other
)
256 S_SET_OTHER (sym
, other
);
260 elf_sec_sym_ok_for_reloc (asection
*sec
)
262 return obj_sec_sym_ok_for_reloc (sec
);
266 elf_file_symbol (const char *s
, int appfile
)
269 || symbol_rootP
== NULL
270 || symbol_rootP
->bsym
== NULL
271 || (symbol_rootP
->bsym
->flags
& BSF_FILE
) == 0)
276 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
277 symbol_set_frag (sym
, &zero_address_frag
);
279 name_length
= strlen (s
);
280 if (name_length
> strlen (S_GET_NAME (sym
)))
282 obstack_grow (¬es
, s
, name_length
+ 1);
283 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
286 strcpy ((char *) S_GET_NAME (sym
), s
);
288 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
290 if (symbol_rootP
!= sym
291 && (symbol_rootP
->bsym
== NULL
292 || !(symbol_rootP
->bsym
->flags
& BSF_FILE
)))
294 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
295 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
299 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
303 #ifdef NEED_ECOFF_DEBUG
304 ecoff_new_file (s
, appfile
);
308 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
309 Parse a possible alignment value. */
312 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
315 int is_local
= symbol_get_obj (symbolP
)->local
;
317 if (*input_line_pointer
== ',')
319 char *save
= input_line_pointer
;
321 input_line_pointer
++;
324 if (*input_line_pointer
== '"')
326 /* For sparc. Accept .common symbol, length, "bss" */
327 input_line_pointer
++;
328 /* Some use the dot, some don't. */
329 if (*input_line_pointer
== '.')
330 input_line_pointer
++;
331 /* Some say data, some say bss. */
332 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
333 input_line_pointer
+= 4;
334 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
335 input_line_pointer
+= 5;
338 char *p
= input_line_pointer
;
343 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
344 if (*input_line_pointer
++ == '"')
346 c
= *input_line_pointer
;
347 *input_line_pointer
= '\0';
348 as_bad (_("bad .common segment %s"), p
);
349 *input_line_pointer
= c
;
350 ignore_rest_of_line ();
353 /* ??? Don't ask me why these are always global. */
358 input_line_pointer
= save
;
359 align
= parse_align (is_local
);
360 if (align
== (addressT
) -1)
367 bss_alloc (symbolP
, size
, align
);
368 S_CLEAR_EXTERNAL (symbolP
);
372 S_SET_VALUE (symbolP
, size
);
373 S_SET_ALIGN (symbolP
, align
);
374 S_SET_EXTERNAL (symbolP
);
375 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
378 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
384 obj_elf_common (int is_common
)
386 if (flag_mri
&& is_common
)
389 s_comm_internal (0, elf_common_parse
);
393 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
395 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
398 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
402 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
404 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
407 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
411 get_sym_from_input_line_and_check (void)
417 c
= get_symbol_name (& name
);
418 sym
= symbol_find_or_make (name
);
419 *input_line_pointer
= c
;
420 SKIP_WHITESPACE_AFTER_NAME ();
422 /* There is no symbol name if input_line_pointer has not moved. */
423 if (name
== input_line_pointer
)
424 as_bad (_("Missing symbol name in directive"));
429 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
436 symbolP
= get_sym_from_input_line_and_check ();
437 c
= *input_line_pointer
;
438 S_CLEAR_EXTERNAL (symbolP
);
439 symbol_get_obj (symbolP
)->local
= 1;
442 input_line_pointer
++;
444 if (*input_line_pointer
== '\n')
449 demand_empty_rest_of_line ();
453 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
460 symbolP
= get_sym_from_input_line_and_check ();
461 c
= *input_line_pointer
;
462 S_SET_WEAK (symbolP
);
465 input_line_pointer
++;
467 if (*input_line_pointer
== '\n')
472 demand_empty_rest_of_line ();
476 obj_elf_visibility (int visibility
)
481 elf_symbol_type
*elfsym
;
485 symbolP
= get_sym_from_input_line_and_check ();
487 bfdsym
= symbol_get_bfdsym (symbolP
);
488 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
492 elfsym
->internal_elf_sym
.st_other
&= ~3;
493 elfsym
->internal_elf_sym
.st_other
|= visibility
;
495 c
= *input_line_pointer
;
498 input_line_pointer
++;
502 if (*input_line_pointer
== '\n')
508 demand_empty_rest_of_line ();
511 static segT previous_section
;
512 static int previous_subsection
;
516 struct section_stack
*next
;
518 int subseg
, prev_subseg
;
521 static struct section_stack
*section_stack
;
523 /* Match both section group name and the sh_info field. */
526 const char *group_name
;
531 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
533 struct section_match
*match
= (struct section_match
*) inf
;
534 const char *gname
= match
->group_name
;
535 const char *group_name
= elf_group_name (sec
);
536 unsigned int info
= elf_section_data (sec
)->this_hdr
.sh_info
;
538 return (info
== match
->info
539 && (group_name
== gname
540 || (group_name
!= NULL
542 && strcmp (group_name
, gname
) == 0)));
545 /* Handle the .section pseudo-op. This code supports two different
548 The first is found on Solaris, and looks like
549 .section ".sec1",#alloc,#execinstr,#write
550 Here the names after '#' are the SHF_* flags to turn on for the
551 section. I'm not sure how it determines the SHT_* type (BFD
552 doesn't really give us control over the type, anyhow).
554 The second format is found on UnixWare, and probably most SVR4
555 machines, and looks like
556 .section .sec1,"a",@progbits
557 The quoted string may contain any combination of a, w, x, and
558 represents the SHF_* flags to turn on for the section. The string
559 beginning with '@' can be progbits or nobits. There should be
560 other possibilities, but I don't know what they are. In any case,
561 BFD doesn't really let us set the section type. */
564 obj_elf_change_section (const char *name
,
569 const char *group_name
,
576 const struct elf_backend_data
*bed
;
577 const struct bfd_elf_special_section
*ssect
;
578 struct section_match match
;
580 #ifdef md_flush_pending_output
581 md_flush_pending_output ();
584 /* Switch to the section, creating it if necessary. */
587 struct section_stack
*elt
;
588 elt
= XNEW (struct section_stack
);
589 elt
->next
= section_stack
;
591 elt
->prev_seg
= previous_section
;
592 elt
->subseg
= now_subseg
;
593 elt
->prev_subseg
= previous_subsection
;
596 previous_section
= now_seg
;
597 previous_subsection
= now_subseg
;
599 match
.group_name
= group_name
;
601 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
609 sec
= subseg_force_new (name
, 0);
611 bed
= get_elf_backend_data (stdoutput
);
612 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
616 bfd_boolean override
= FALSE
;
618 if (type
== SHT_NULL
)
620 else if (type
!= ssect
->type
)
623 /* Some older versions of gcc will emit
625 .section .init_array,"aw",@progbits
627 for __attribute__ ((section (".init_array"))).
628 "@progbits" is incorrect. Also for x86-64 large bss
629 sections, some older versions of gcc will emit
631 .section .lbss,"aw",@progbits
633 "@progbits" is incorrect. */
635 && (bed
->s
->arch_size
!= 64
636 || !(ssect
->attr
& SHF_X86_64_LARGE
))
638 && ssect
->type
!= SHT_INIT_ARRAY
639 && ssect
->type
!= SHT_FINI_ARRAY
640 && ssect
->type
!= SHT_PREINIT_ARRAY
)
642 /* We allow to specify any type for a .note section. */
643 if (ssect
->type
!= SHT_NOTE
644 /* Processor and application defined types are allowed too. */
645 && type
< SHT_LOPROC
)
646 as_warn (_("setting incorrect section type for %s"),
651 as_warn (_("ignoring incorrect section type for %s"),
657 if (old_sec
== NULL
&& ((attr
& ~(SHF_MASKOS
| SHF_MASKPROC
))
658 & ~ssect
->attr
) != 0)
660 /* As a GNU extension, we permit a .note section to be
661 allocatable. If the linker sees an allocatable .note
662 section, it will create a PT_NOTE segment in the output
663 file. We also allow "x" for .note.GNU-stack. */
664 if (ssect
->type
== SHT_NOTE
665 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
667 /* Allow different SHF_MERGE and SHF_STRINGS if we have
668 something like .rodata.str. */
669 else if (ssect
->suffix_length
== -2
670 && name
[ssect
->prefix_length
] == '.'
674 & ~SHF_STRINGS
) == 0)
676 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
677 else if (attr
== SHF_ALLOC
678 && (strcmp (name
, ".interp") == 0
679 || strcmp (name
, ".strtab") == 0
680 || strcmp (name
, ".symtab") == 0))
682 /* .note.GNU-stack can have SHF_EXECINSTR. */
683 else if (attr
== SHF_EXECINSTR
684 && strcmp (name
, ".note.GNU-stack") == 0)
687 /* A section on Alpha may have SHF_ALPHA_GPREL. */
688 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
692 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
693 && (ssect
->type
== SHT_INIT_ARRAY
694 || ssect
->type
== SHT_FINI_ARRAY
695 || ssect
->type
== SHT_PREINIT_ARRAY
))
696 /* RX init/fini arrays can and should have the "awx" attributes set. */
701 if (group_name
== NULL
)
702 as_warn (_("setting incorrect section attributes for %s"),
708 if (!override
&& old_sec
== NULL
)
712 if ((attr
& (SHF_ALLOC
| SHF_GNU_MBIND
)) == SHF_GNU_MBIND
)
713 as_fatal (_("SHF_ALLOC isn't set for GNU_MBIND section: %s"), name
);
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
= info
;
742 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
743 if (type
== SHT_NOBITS
)
744 seg_info (sec
)->bss
= 1;
746 bfd_set_section_flags (stdoutput
, sec
, flags
);
747 if (flags
& SEC_MERGE
)
748 sec
->entsize
= entsize
;
749 elf_group_name (sec
) = group_name
;
751 /* Add a symbol for this section to the symbol table. */
752 secsym
= symbol_find (name
);
754 symbol_set_bfdsym (secsym
, sec
->symbol
);
756 symbol_table_insert (section_symbol (sec
));
761 && (unsigned) type
!= elf_section_type (old_sec
))
762 as_warn (_("ignoring changed section type for %s"), name
);
766 /* If section attributes are specified the second time we see a
767 particular section, then check that they are the same as we
768 saw the first time. */
769 if (((old_sec
->flags
^ flags
)
770 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
771 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
772 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
773 | SEC_THREAD_LOCAL
)))
774 as_warn (_("ignoring changed section attributes for %s"), name
);
776 /* FIXME: Maybe we should consider removing a previously set
777 processor or application specific attribute as suspicious ? */
778 elf_section_flags (sec
) = attr
;
780 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
781 as_warn (_("ignoring changed section entity size for %s"), name
);
785 #ifdef md_elf_section_change_hook
786 md_elf_section_change_hook ();
791 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
810 attr
|= SHF_EXECINSTR
;
825 attr
|= SHF_GNU_MBIND
;
832 if (*(str
- 1) == 'a')
835 if (len
> 1 && str
[1] == 's')
845 const char *bad_msg
= _("unrecognized .section attribute:"
846 " want a,e,w,x,M,S,G,T or number");
847 #ifdef md_elf_section_letter
848 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
849 if (md_attr
!= (bfd_vma
) -1)
857 attr
|= strtoul (str
, & end
, 0);
858 /* Update str and len, allowing for the fact that
859 we will execute str++ and len-- below. */
865 as_fatal ("%s", bad_msg
);
876 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
878 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
880 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
882 if (len
== 4 && strncmp (str
, "note", 4) == 0)
884 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
885 return SHT_INIT_ARRAY
;
886 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
887 return SHT_FINI_ARRAY
;
888 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
889 return SHT_PREINIT_ARRAY
;
891 #ifdef md_elf_section_type
893 int md_type
= md_elf_section_type (str
, len
);
902 int type
= strtoul (str
, & end
, 0);
904 if (warn
&& (size_t) (end
- str
) != len
)
905 as_warn (_("extraneous characters at end of numeric section type"));
911 as_warn (_("unrecognized section type"));
916 obj_elf_section_word (char *str
, size_t len
, int *type
)
920 if (len
== 5 && strncmp (str
, "write", 5) == 0)
922 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
924 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
925 return SHF_EXECINSTR
;
926 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
928 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
931 #ifdef md_elf_section_word
933 bfd_vma md_attr
= md_elf_section_word (str
, len
);
939 ret
= obj_elf_section_type (str
, len
, FALSE
);
943 as_warn (_("unrecognized section attribute"));
948 /* Get name of section. */
950 obj_elf_section_name (void)
955 if (*input_line_pointer
== '"')
959 name
= demand_copy_C_string (&dummy
);
962 ignore_rest_of_line ();
968 char *end
= input_line_pointer
;
970 while (0 == strchr ("\n\t,; ", *end
))
972 if (end
== input_line_pointer
)
974 as_bad (_("missing name"));
975 ignore_rest_of_line ();
979 name
= xmemdup0 (input_line_pointer
, end
- input_line_pointer
);
981 while (flag_sectname_subst
)
983 char *subst
= strchr (name
, '%');
984 if (subst
&& subst
[1] == 'S')
986 int oldlen
= strlen (name
);
987 int substlen
= strlen (now_seg
->name
);
988 int newlen
= oldlen
- 2 + substlen
;
989 char *newname
= XNEWVEC (char, newlen
+ 1);
990 int headlen
= subst
- name
;
991 memcpy (newname
, name
, headlen
);
992 strcpy (newname
+ headlen
, now_seg
->name
);
993 strcat (newname
+ headlen
, subst
+ 2);
1001 #ifdef tc_canonicalize_section_name
1002 name
= tc_canonicalize_section_name (name
);
1004 input_line_pointer
= end
;
1011 obj_elf_section (int push
)
1013 const char *name
, *group_name
;
1019 subsegT new_subsection
= -1;
1020 unsigned int info
= 0;
1027 #ifdef md_flush_pending_output
1028 md_flush_pending_output ();
1031 previous_section
= now_seg
;
1032 previous_subsection
= now_subseg
;
1034 s_mri_sect (&mri_type
);
1036 #ifdef md_elf_section_change_hook
1037 md_elf_section_change_hook ();
1042 #endif /* ! defined (TC_I370) */
1044 name
= obj_elf_section_name ();
1053 if (*input_line_pointer
== ',')
1055 /* Skip the comma. */
1056 ++input_line_pointer
;
1059 if (push
&& ISDIGIT (*input_line_pointer
))
1061 /* .pushsection has an optional subsection. */
1062 new_subsection
= (subsegT
) get_absolute_expression ();
1066 /* Stop if we don't see a comma. */
1067 if (*input_line_pointer
!= ',')
1070 /* Skip the comma. */
1071 ++input_line_pointer
;
1075 if (*input_line_pointer
== '"')
1077 bfd_boolean is_clone
;
1079 beg
= demand_copy_C_string (&dummy
);
1082 ignore_rest_of_line ();
1085 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
1088 if (*input_line_pointer
== ',')
1091 char *save
= input_line_pointer
;
1093 ++input_line_pointer
;
1095 c
= *input_line_pointer
;
1098 beg
= demand_copy_C_string (&dummy
);
1101 ignore_rest_of_line ();
1104 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1106 else if (c
== '@' || c
== '%')
1108 ++input_line_pointer
;
1110 if (ISDIGIT (* input_line_pointer
))
1112 type
= strtoul (input_line_pointer
, & input_line_pointer
, 0);
1116 c
= get_symbol_name (& beg
);
1117 (void) restore_line_pointer (c
);
1118 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1122 input_line_pointer
= save
;
1126 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1128 ++input_line_pointer
;
1130 entsize
= get_absolute_expression ();
1134 as_warn (_("invalid merge entity size"));
1139 else if ((attr
& SHF_MERGE
) != 0)
1141 as_warn (_("entity size for SHF_MERGE not specified"));
1145 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1147 as_warn (_("? section flag ignored with G present"));
1150 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1152 ++input_line_pointer
;
1153 group_name
= obj_elf_section_name ();
1154 if (group_name
== NULL
)
1156 else if (*input_line_pointer
== ',')
1158 ++input_line_pointer
;
1160 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1162 input_line_pointer
+= 6;
1166 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1169 else if ((attr
& SHF_GROUP
) != 0)
1171 as_warn (_("group name for SHF_GROUP not specified"));
1177 const char *now_group
= elf_group_name (now_seg
);
1178 if (now_group
!= NULL
)
1180 group_name
= xstrdup (now_group
);
1181 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1185 if ((attr
& SHF_GNU_MBIND
) != 0 && *input_line_pointer
== ',')
1187 ++input_line_pointer
;
1189 if (ISDIGIT (* input_line_pointer
))
1191 char *t
= input_line_pointer
;
1192 info
= strtoul (input_line_pointer
,
1193 &input_line_pointer
, 0);
1194 if (info
== (unsigned int) -1)
1196 as_warn (_("unsupported mbind section info: %s"), t
);
1209 if (*input_line_pointer
!= '#')
1211 as_bad (_("character following name is not '#'"));
1212 ignore_rest_of_line ();
1215 ++input_line_pointer
;
1216 c
= get_symbol_name (& beg
);
1217 (void) restore_line_pointer (c
);
1219 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1223 while (*input_line_pointer
++ == ',');
1224 --input_line_pointer
;
1229 demand_empty_rest_of_line ();
1231 obj_elf_change_section (name
, type
, info
, attr
, entsize
, group_name
,
1234 if (push
&& new_subsection
!= -1)
1235 subseg_set (now_seg
, new_subsection
);
1238 /* Change to the .data section. */
1241 obj_elf_data (int i
)
1243 #ifdef md_flush_pending_output
1244 md_flush_pending_output ();
1247 previous_section
= now_seg
;
1248 previous_subsection
= now_subseg
;
1251 #ifdef md_elf_section_change_hook
1252 md_elf_section_change_hook ();
1256 /* Change to the .text section. */
1259 obj_elf_text (int i
)
1261 #ifdef md_flush_pending_output
1262 md_flush_pending_output ();
1265 previous_section
= now_seg
;
1266 previous_subsection
= now_subseg
;
1269 #ifdef md_elf_section_change_hook
1270 md_elf_section_change_hook ();
1274 /* Change to the *ABS* section. */
1277 obj_elf_struct (int i
)
1279 #ifdef md_flush_pending_output
1280 md_flush_pending_output ();
1283 previous_section
= now_seg
;
1284 previous_subsection
= now_subseg
;
1287 #ifdef md_elf_section_change_hook
1288 md_elf_section_change_hook ();
1293 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1297 #ifdef md_flush_pending_output
1298 md_flush_pending_output ();
1301 previous_section
= now_seg
;
1302 previous_subsection
= now_subseg
;
1304 temp
= get_absolute_expression ();
1305 subseg_set (now_seg
, (subsegT
) temp
);
1306 demand_empty_rest_of_line ();
1308 #ifdef md_elf_section_change_hook
1309 md_elf_section_change_hook ();
1313 /* This can be called from the processor backends if they change
1317 obj_elf_section_change_hook (void)
1319 previous_section
= now_seg
;
1320 previous_subsection
= now_subseg
;
1324 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1329 if (previous_section
== 0)
1331 as_warn (_(".previous without corresponding .section; ignored"));
1335 #ifdef md_flush_pending_output
1336 md_flush_pending_output ();
1339 new_section
= previous_section
;
1340 new_subsection
= previous_subsection
;
1341 previous_section
= now_seg
;
1342 previous_subsection
= now_subseg
;
1343 subseg_set (new_section
, new_subsection
);
1345 #ifdef md_elf_section_change_hook
1346 md_elf_section_change_hook ();
1351 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1353 struct section_stack
*top
= section_stack
;
1357 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1361 #ifdef md_flush_pending_output
1362 md_flush_pending_output ();
1365 section_stack
= top
->next
;
1366 previous_section
= top
->prev_seg
;
1367 previous_subsection
= top
->prev_subseg
;
1368 subseg_set (top
->seg
, top
->subseg
);
1371 #ifdef md_elf_section_change_hook
1372 md_elf_section_change_hook ();
1377 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1379 /* Assume delimiter is part of expression. BSD4.2 as fails with
1380 delightful bug, so we are not being incompatible here. */
1381 new_logical_line (NULL
, get_absolute_expression ());
1382 demand_empty_rest_of_line ();
1385 /* This handles the .symver pseudo-op, which is used to specify a
1386 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1387 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1388 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1389 with the same value as the symbol NAME. */
1392 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1399 sym
= get_sym_from_input_line_and_check ();
1401 if (*input_line_pointer
!= ',')
1403 as_bad (_("expected comma after name in .symver"));
1404 ignore_rest_of_line ();
1408 ++input_line_pointer
;
1411 /* Temporarily include '@' in symbol names. */
1412 old_lexat
= lex_type
[(unsigned char) '@'];
1413 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1414 c
= get_symbol_name (& name
);
1415 lex_type
[(unsigned char) '@'] = old_lexat
;
1417 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1419 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1421 (void) restore_line_pointer (c
);
1423 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1424 ELF_VER_CHR
) == NULL
)
1426 as_bad (_("missing version name in `%s' for symbol `%s'"),
1427 symbol_get_obj (sym
)->versioned_name
,
1429 ignore_rest_of_line ();
1435 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1437 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1438 name
, symbol_get_obj (sym
)->versioned_name
,
1440 ignore_rest_of_line ();
1444 (void) restore_line_pointer (c
);
1447 demand_empty_rest_of_line ();
1450 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1451 to the linker the hierarchy in which a particular table resides. The
1452 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1455 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1457 char *cname
, *pname
;
1458 symbolS
*csym
, *psym
;
1461 if (*input_line_pointer
== '#')
1462 ++input_line_pointer
;
1464 c
= get_symbol_name (& cname
);
1465 csym
= symbol_find (cname
);
1467 /* GCFIXME: should check that we don't have two .vtable_inherits for
1468 the same child symbol. Also, we can currently only do this if the
1469 child symbol is already exists and is placed in a fragment. */
1471 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1473 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1478 *input_line_pointer
= c
;
1480 SKIP_WHITESPACE_AFTER_NAME ();
1481 if (*input_line_pointer
!= ',')
1483 as_bad (_("expected comma after name in .vtable_inherit"));
1484 ignore_rest_of_line ();
1488 ++input_line_pointer
;
1491 if (*input_line_pointer
== '#')
1492 ++input_line_pointer
;
1494 if (input_line_pointer
[0] == '0'
1495 && (input_line_pointer
[1] == '\0'
1496 || ISSPACE (input_line_pointer
[1])))
1498 psym
= section_symbol (absolute_section
);
1499 ++input_line_pointer
;
1503 c
= get_symbol_name (& pname
);
1504 psym
= symbol_find_or_make (pname
);
1505 restore_line_pointer (c
);
1508 demand_empty_rest_of_line ();
1513 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1514 return fix_new (symbol_get_frag (csym
),
1515 symbol_get_value_expression (csym
)->X_add_number
,
1516 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1519 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1520 to the linker that a vtable slot was used. The syntax is
1521 ".vtable_entry tablename, offset". */
1524 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1529 if (*input_line_pointer
== '#')
1530 ++input_line_pointer
;
1532 sym
= get_sym_from_input_line_and_check ();
1533 if (*input_line_pointer
!= ',')
1535 as_bad (_("expected comma after name in .vtable_entry"));
1536 ignore_rest_of_line ();
1540 ++input_line_pointer
;
1541 if (*input_line_pointer
== '#')
1542 ++input_line_pointer
;
1544 offset
= get_absolute_expression ();
1546 demand_empty_rest_of_line ();
1548 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1549 BFD_RELOC_VTABLE_ENTRY
);
1552 #define skip_whitespace(str) do { if (*(str) == ' ') ++(str); } while (0)
1555 skip_past_char (char ** str
, char c
)
1565 #define skip_past_comma(str) skip_past_char (str, ',')
1567 /* A list of attributes that have been explicitly set by the assembly code.
1568 VENDOR is the vendor id, BASE is the tag shifted right by the number
1569 of bits in MASK, and bit N of MASK is set if tag BASE+N has been set. */
1570 struct recorded_attribute_info
{
1571 struct recorded_attribute_info
*next
;
1576 static struct recorded_attribute_info
*recorded_attributes
;
1578 /* Record that we have seen an explicit specification of attribute TAG
1579 for vendor VENDOR. */
1582 record_attribute (int vendor
, unsigned int tag
)
1586 struct recorded_attribute_info
*rai
;
1588 base
= tag
/ (8 * sizeof (rai
->mask
));
1589 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1590 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1591 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1597 rai
= XNEW (struct recorded_attribute_info
);
1598 rai
->next
= recorded_attributes
;
1599 rai
->vendor
= vendor
;
1602 recorded_attributes
= rai
;
1605 /* Return true if we have seen an explicit specification of attribute TAG
1606 for vendor VENDOR. */
1609 obj_elf_seen_attribute (int vendor
, unsigned int tag
)
1613 struct recorded_attribute_info
*rai
;
1615 base
= tag
/ (8 * sizeof (rai
->mask
));
1616 mask
= 1UL << (tag
% (8 * sizeof (rai
->mask
)));
1617 for (rai
= recorded_attributes
; rai
; rai
= rai
->next
)
1618 if (rai
->vendor
== vendor
&& rai
->base
== base
)
1619 return (rai
->mask
& mask
) != 0;
1623 /* Parse an attribute directive for VENDOR.
1624 Returns the attribute number read, or zero on error. */
1627 obj_elf_vendor_attribute (int vendor
)
1635 /* Read the first number or name. */
1636 skip_whitespace (input_line_pointer
);
1637 s
= input_line_pointer
;
1638 if (ISDIGIT (*input_line_pointer
))
1641 if (exp
.X_op
!= O_constant
)
1643 tag
= exp
.X_add_number
;
1649 /* A name may contain '_', but no other punctuation. */
1650 for (; ISALNUM (*input_line_pointer
) || *input_line_pointer
== '_';
1651 ++input_line_pointer
)
1656 name
= xstrndup (s
, i
);
1658 #ifndef CONVERT_SYMBOLIC_ATTRIBUTE
1659 #define CONVERT_SYMBOLIC_ATTRIBUTE(a) -1
1662 tag
= CONVERT_SYMBOLIC_ATTRIBUTE (name
);
1665 as_bad (_("Attribute name not recognised: %s"), name
);
1666 ignore_rest_of_line ();
1673 type
= _bfd_elf_obj_attrs_arg_type (stdoutput
, vendor
, tag
);
1675 if (skip_past_comma (&input_line_pointer
) == -1)
1680 if (exp
.X_op
!= O_constant
)
1682 as_bad (_("expected numeric constant"));
1683 ignore_rest_of_line ();
1686 i
= exp
.X_add_number
;
1689 && skip_past_comma (&input_line_pointer
) == -1)
1691 as_bad (_("expected comma"));
1692 ignore_rest_of_line ();
1699 skip_whitespace (input_line_pointer
);
1700 if (*input_line_pointer
!= '"')
1702 s
= demand_copy_C_string (&len
);
1705 record_attribute (vendor
, tag
);
1709 bfd_elf_add_obj_attr_int_string (stdoutput
, vendor
, tag
, i
, s
);
1712 bfd_elf_add_obj_attr_string (stdoutput
, vendor
, tag
, s
);
1715 bfd_elf_add_obj_attr_int (stdoutput
, vendor
, tag
, i
);
1721 demand_empty_rest_of_line ();
1724 as_bad (_("bad string constant"));
1725 ignore_rest_of_line ();
1728 as_bad (_("expected <tag> , <value>"));
1729 ignore_rest_of_line ();
1733 /* Parse a .gnu_attribute directive. */
1736 obj_elf_gnu_attribute (int ignored ATTRIBUTE_UNUSED
)
1738 obj_elf_vendor_attribute (OBJ_ATTR_GNU
);
1742 elf_obj_read_begin_hook (void)
1744 #ifdef NEED_ECOFF_DEBUG
1745 if (ECOFF_DEBUGGING
)
1746 ecoff_read_begin_hook ();
1751 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1753 struct elf_obj_sy
*sy_obj
;
1755 sy_obj
= symbol_get_obj (symbolP
);
1756 sy_obj
->size
= NULL
;
1757 sy_obj
->versioned_name
= NULL
;
1759 #ifdef NEED_ECOFF_DEBUG
1760 if (ECOFF_DEBUGGING
)
1761 ecoff_symbol_new_hook (symbolP
);
1765 /* When setting one symbol equal to another, by default we probably
1766 want them to have the same "size", whatever it means in the current
1770 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1772 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1773 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1776 if (destelf
->size
== NULL
)
1777 destelf
->size
= XNEW (expressionS
);
1778 *destelf
->size
= *srcelf
->size
;
1782 if (destelf
->size
!= NULL
)
1783 free (destelf
->size
);
1784 destelf
->size
= NULL
;
1786 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1787 /* Don't copy visibility. */
1788 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1789 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1793 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1798 asection
*seg
= now_seg
;
1799 subsegT subseg
= now_subseg
;
1800 Elf_Internal_Note i_note
;
1801 Elf_External_Note e_note
;
1802 asection
*note_secp
= NULL
;
1805 if (*input_line_pointer
== '\"')
1809 ++input_line_pointer
; /* -> 1st char of string. */
1810 name
= input_line_pointer
;
1812 while (is_a_char (c
= next_char_of_string ()))
1814 c
= *input_line_pointer
;
1815 *input_line_pointer
= '\0';
1816 *(input_line_pointer
- 1) = '\0';
1817 *input_line_pointer
= c
;
1819 /* Create the .note section. */
1820 note_secp
= subseg_new (".note", 0);
1821 bfd_set_section_flags (stdoutput
,
1823 SEC_HAS_CONTENTS
| SEC_READONLY
);
1825 /* Process the version string. */
1826 len
= strlen (name
) + 1;
1828 /* PR 3456: Although the name field is padded out to an 4-byte
1829 boundary, the namesz field should not be adjusted. */
1830 i_note
.namesz
= len
;
1831 i_note
.descsz
= 0; /* No description. */
1832 i_note
.type
= NT_VERSION
;
1833 p
= frag_more (sizeof (e_note
.namesz
));
1834 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1835 p
= frag_more (sizeof (e_note
.descsz
));
1836 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1837 p
= frag_more (sizeof (e_note
.type
));
1838 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1839 p
= frag_more (len
);
1840 memcpy (p
, name
, len
);
1842 frag_align (2, 0, 0);
1844 subseg_set (seg
, subseg
);
1847 as_bad (_("expected quoted string"));
1849 demand_empty_rest_of_line ();
1853 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1856 char c
= get_symbol_name (&name
);
1861 p
= input_line_pointer
;
1863 SKIP_WHITESPACE_AFTER_NAME ();
1864 if (*input_line_pointer
!= ',')
1867 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1869 ignore_rest_of_line ();
1872 input_line_pointer
++;
1874 if (exp
.X_op
== O_absent
)
1876 as_bad (_("missing expression in .size directive"));
1877 exp
.X_op
= O_constant
;
1878 exp
.X_add_number
= 0;
1881 sym
= symbol_find_or_make (name
);
1883 if (exp
.X_op
== O_constant
)
1885 S_SET_SIZE (sym
, exp
.X_add_number
);
1886 if (symbol_get_obj (sym
)->size
)
1888 xfree (symbol_get_obj (sym
)->size
);
1889 symbol_get_obj (sym
)->size
= NULL
;
1894 symbol_get_obj (sym
)->size
= XNEW (expressionS
);
1895 *symbol_get_obj (sym
)->size
= exp
;
1897 demand_empty_rest_of_line ();
1900 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1901 There are six syntaxes:
1903 The first (used on Solaris) is
1905 The second (used on UnixWare) is
1907 The third (reportedly to be used on Irix 6.0) is
1909 The fourth (used on NetBSD/Arm and Linux/ARM) is
1911 The fifth (used on SVR4/860) is
1912 .type SYM,"function"
1913 The sixth (emitted by recent SunPRO under Solaris) is
1915 where the integer is the STT_* value.
1919 obj_elf_type_name (char *cp
)
1923 p
= input_line_pointer
;
1924 if (*input_line_pointer
>= '0'
1925 && *input_line_pointer
<= '9')
1927 while (*input_line_pointer
>= '0'
1928 && *input_line_pointer
<= '9')
1929 ++input_line_pointer
;
1930 *cp
= *input_line_pointer
;
1931 *input_line_pointer
= '\0';
1934 *cp
= get_symbol_name (&p
);
1940 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1944 const char *type_name
;
1946 elf_symbol_type
*elfsym
;
1948 sym
= get_sym_from_input_line_and_check ();
1949 c
= *input_line_pointer
;
1950 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1952 if (*input_line_pointer
== ',')
1953 ++input_line_pointer
;
1956 if ( *input_line_pointer
== '#'
1957 || *input_line_pointer
== '@'
1958 || *input_line_pointer
== '"'
1959 || *input_line_pointer
== '%')
1960 ++input_line_pointer
;
1962 type_name
= obj_elf_type_name (& c
);
1965 if (strcmp (type_name
, "function") == 0
1966 || strcmp (type_name
, "2") == 0
1967 || strcmp (type_name
, "STT_FUNC") == 0)
1968 type
= BSF_FUNCTION
;
1969 else if (strcmp (type_name
, "object") == 0
1970 || strcmp (type_name
, "1") == 0
1971 || strcmp (type_name
, "STT_OBJECT") == 0)
1973 else if (strcmp (type_name
, "tls_object") == 0
1974 || strcmp (type_name
, "6") == 0
1975 || strcmp (type_name
, "STT_TLS") == 0)
1976 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1977 else if (strcmp (type_name
, "notype") == 0
1978 || strcmp (type_name
, "0") == 0
1979 || strcmp (type_name
, "STT_NOTYPE") == 0)
1981 else if (strcmp (type_name
, "common") == 0
1982 || strcmp (type_name
, "5") == 0
1983 || strcmp (type_name
, "STT_COMMON") == 0)
1987 if (! S_IS_COMMON (sym
))
1989 if (S_IS_VOLATILE (sym
))
1991 sym
= symbol_clone (sym
, 1);
1992 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1993 S_SET_VALUE (sym
, 0);
1994 S_SET_EXTERNAL (sym
);
1995 symbol_set_frag (sym
, &zero_address_frag
);
1996 S_CLEAR_VOLATILE (sym
);
1998 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1999 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
2002 /* FIXME: Is it safe to just change the section ? */
2003 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
2004 S_SET_VALUE (sym
, 0);
2005 S_SET_EXTERNAL (sym
);
2009 else if (strcmp (type_name
, "gnu_indirect_function") == 0
2010 || strcmp (type_name
, "10") == 0
2011 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
2013 const struct elf_backend_data
*bed
;
2015 bed
= get_elf_backend_data (stdoutput
);
2016 if (!(bed
->elf_osabi
== ELFOSABI_GNU
2017 || bed
->elf_osabi
== ELFOSABI_FREEBSD
2018 /* GNU is still using the default value 0. */
2019 || bed
->elf_osabi
== ELFOSABI_NONE
))
2020 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
2022 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
2024 else if (strcmp (type_name
, "gnu_unique_object") == 0)
2026 struct elf_backend_data
*bed
;
2028 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
2029 if (!(bed
->elf_osabi
== ELFOSABI_GNU
2030 /* GNU is still using the default value 0. */
2031 || bed
->elf_osabi
== ELFOSABI_NONE
))
2032 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
2034 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
2035 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
2036 bed
->elf_osabi
= ELFOSABI_GNU
;
2038 #ifdef md_elf_symbol_type
2039 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
2043 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
2045 *input_line_pointer
= c
;
2047 if (*input_line_pointer
== '"')
2048 ++input_line_pointer
;
2050 elfsym
->symbol
.flags
|= type
;
2052 demand_empty_rest_of_line ();
2056 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
2058 static segT comment_section
;
2059 segT old_section
= now_seg
;
2060 int old_subsection
= now_subseg
;
2062 #ifdef md_flush_pending_output
2063 md_flush_pending_output ();
2066 if (!comment_section
)
2069 comment_section
= subseg_new (".comment", 0);
2070 bfd_set_section_flags (stdoutput
, comment_section
,
2071 SEC_READONLY
| SEC_HAS_CONTENTS
2072 | SEC_MERGE
| SEC_STRINGS
);
2073 comment_section
->entsize
= 1;
2074 #ifdef md_elf_section_change_hook
2075 md_elf_section_change_hook ();
2081 subseg_set (comment_section
, 0);
2083 subseg_set (old_section
, old_subsection
);
2086 #ifdef INIT_STAB_SECTION
2088 /* The first entry in a .stabs section is special. */
2091 obj_elf_init_stab_section (segT seg
)
2096 unsigned int stroff
;
2098 /* Force the section to align to a longword boundary. Without this,
2099 UnixWare ar crashes. */
2100 bfd_set_section_alignment (stdoutput
, seg
, 2);
2102 /* Make space for this first symbol. */
2106 file
= as_where (NULL
);
2107 stabstr_name
= concat (segment_name (seg
), "str", (char *) NULL
);
2108 stroff
= get_stab_string_offset (file
, stabstr_name
);
2109 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
2110 md_number_to_chars (p
, stroff
, 4);
2111 seg_info (seg
)->stabu
.p
= p
;
2116 /* Fill in the counts in the first entry in a .stabs section. */
2119 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
2126 if (strncmp (".stab", sec
->name
, 5))
2128 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
2131 name
= concat (sec
->name
, "str", NULL
);
2132 strsec
= bfd_get_section_by_name (abfd
, name
);
2134 strsz
= bfd_section_size (abfd
, strsec
);
2137 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
2139 p
= seg_info (sec
)->stabu
.p
;
2140 gas_assert (p
!= 0);
2142 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
2143 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
2147 #ifdef NEED_ECOFF_DEBUG
2149 /* This function is called by the ECOFF code. It is supposed to
2150 record the external symbol information so that the backend can
2151 write it out correctly. The ELF backend doesn't actually handle
2152 this at the moment, so we do it ourselves. We save the information
2155 #ifdef OBJ_MAYBE_ELF
2159 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
2161 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
2164 /* This function is called by bfd_ecoff_debug_externals. It is
2165 supposed to *EXT to the external symbol information, and return
2166 whether the symbol should be used at all. */
2169 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
2171 if (sym
->udata
.p
== NULL
)
2173 *ext
= *(EXTR
*) sym
->udata
.p
;
2177 /* This function is called by bfd_ecoff_debug_externals. It has
2178 nothing to do for ELF. */
2181 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
2182 bfd_size_type indx ATTRIBUTE_UNUSED
)
2186 #endif /* NEED_ECOFF_DEBUG */
2189 elf_frob_symbol (symbolS
*symp
, int *puntp
)
2191 struct elf_obj_sy
*sy_obj
;
2194 #ifdef NEED_ECOFF_DEBUG
2195 if (ECOFF_DEBUGGING
)
2196 ecoff_frob_symbol (symp
);
2199 sy_obj
= symbol_get_obj (symp
);
2201 size
= sy_obj
->size
;
2204 if (resolve_expression (size
)
2205 && size
->X_op
== O_constant
)
2206 S_SET_SIZE (symp
, size
->X_add_number
);
2209 if (!flag_allow_nonconst_size
)
2210 as_bad (_(".size expression for %s "
2211 "does not evaluate to a constant"), S_GET_NAME (symp
));
2213 as_warn (_(".size expression for %s "
2214 "does not evaluate to a constant"), S_GET_NAME (symp
));
2216 free (sy_obj
->size
);
2217 sy_obj
->size
= NULL
;
2220 if (sy_obj
->versioned_name
!= NULL
)
2224 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
2226 /* We will have already reported an error about a missing version. */
2229 /* This symbol was given a new name with the .symver directive.
2231 If this is an external reference, just rename the symbol to
2232 include the version string. This will make the relocs be
2233 against the correct versioned symbol.
2235 If this is a definition, add an alias. FIXME: Using an alias
2236 will permit the debugging information to refer to the right
2237 symbol. However, it's not clear whether it is the best
2240 else if (! S_IS_DEFINED (symp
))
2242 /* Verify that the name isn't using the @@ syntax--this is
2243 reserved for definitions of the default version to link
2245 if (p
[1] == ELF_VER_CHR
)
2247 as_bad (_("invalid attempt to declare external version name"
2248 " as default in symbol `%s'"),
2249 sy_obj
->versioned_name
);
2252 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2256 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2260 /* The @@@ syntax is a special case. It renames the
2261 symbol name to versioned_name with one `@' removed. */
2262 l
= strlen (&p
[3]) + 1;
2263 memmove (&p
[2], &p
[3], l
);
2264 S_SET_NAME (symp
, sy_obj
->versioned_name
);
2270 /* FIXME: Creating a new symbol here is risky. We're
2271 in the final loop over the symbol table. We can
2272 get away with it only because the symbol goes to
2273 the end of the list, where the loop will still see
2274 it. It would probably be better to do this in
2275 obj_frob_file_before_adjust. */
2277 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
2279 /* Now we act as though we saw symp2 = sym. */
2281 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
2283 /* Subtracting out the frag address here is a hack
2284 because we are in the middle of the final loop. */
2287 - symbol_get_frag (symp
)->fr_address
));
2289 symbol_set_frag (symp2
, symbol_get_frag (symp
));
2291 /* This will copy over the size information. */
2292 copy_symbol_attributes (symp2
, symp
);
2294 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
2296 if (S_IS_WEAK (symp
))
2299 if (S_IS_EXTERNAL (symp
))
2300 S_SET_EXTERNAL (symp2
);
2305 /* Double check weak symbols. */
2306 if (S_IS_WEAK (symp
))
2308 if (S_IS_COMMON (symp
))
2309 as_bad (_("symbol `%s' can not be both weak and common"),
2314 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2315 any undefined non-function symbol to STT_OBJECT. We try to be
2316 compatible, since newer Irix 5 and 6 linkers care. However, we
2317 only set undefined symbols to be STT_OBJECT if we are on Irix,
2318 because that is the only time gcc will generate the necessary
2319 .global directives to mark functions. */
2321 if (S_IS_COMMON (symp
))
2322 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2324 if (strstr (TARGET_OS
, "irix") != NULL
2325 && ! S_IS_DEFINED (symp
)
2326 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2327 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2333 asection
**head
; /* Section lists. */
2334 unsigned int *elt_count
; /* Number of sections in each list. */
2335 unsigned int num_group
; /* Number of lists. */
2336 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2339 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2340 add it to a list of sections belonging to the group. INF is a
2341 pointer to a struct group_list, which is where we store the head of
2345 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2347 struct group_list
*list
= (struct group_list
*) inf
;
2348 const char *group_name
= elf_group_name (sec
);
2350 unsigned int *elem_idx
;
2351 unsigned int *idx_ptr
;
2353 if (group_name
== NULL
)
2356 /* If this group already has a list, add the section to the head of
2358 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2359 if (elem_idx
!= NULL
)
2361 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2362 list
->head
[*elem_idx
] = sec
;
2363 list
->elt_count
[*elem_idx
] += 1;
2367 /* New group. Make the arrays bigger in chunks to minimize calls to
2369 i
= list
->num_group
;
2372 unsigned int newsize
= i
+ 128;
2373 list
->head
= XRESIZEVEC (asection
*, list
->head
, newsize
);
2374 list
->elt_count
= XRESIZEVEC (unsigned int, list
->elt_count
, newsize
);
2376 list
->head
[i
] = sec
;
2377 list
->elt_count
[i
] = 1;
2378 list
->num_group
+= 1;
2380 /* Add index to hash. */
2381 idx_ptr
= XNEW (unsigned int);
2383 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2386 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2388 free ((unsigned int *) val
);
2392 elf_adjust_symtab (void)
2394 struct group_list list
;
2397 /* Go find section groups. */
2400 list
.elt_count
= NULL
;
2401 list
.indexes
= hash_new ();
2402 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2404 /* Make the SHT_GROUP sections that describe each section group. We
2405 can't set up the section contents here yet, because elf section
2406 indices have yet to be calculated. elf.c:set_group_contents does
2407 the rest of the work. */
2408 for (i
= 0; i
< list
.num_group
; i
++)
2410 const char *group_name
= elf_group_name (list
.head
[i
]);
2411 const char *sec_name
;
2417 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2418 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2419 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2421 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2422 if (s
!= list
.head
[i
])
2424 as_warn (_("assuming all members of group `%s' are COMDAT"),
2430 sec_name
= ".group";
2431 s
= subseg_force_new (sec_name
, 0);
2433 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2434 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2436 as_fatal (_("can't create group: %s"),
2437 bfd_errmsg (bfd_get_error ()));
2439 elf_section_type (s
) = SHT_GROUP
;
2441 /* Pass a pointer to the first section in this group. */
2442 elf_next_in_group (s
) = list
.head
[i
];
2443 /* Make sure that the signature symbol for the group has the
2444 name of the group. */
2445 sy
= symbol_find_exact (group_name
);
2447 || (sy
!= symbol_lastP
2448 && (sy
->sy_next
== NULL
2449 || sy
->sy_next
->sy_previous
!= sy
)))
2451 /* Create the symbol now. */
2452 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2454 /* Before Solaris 11 build 154, Sun ld rejects local group
2455 signature symbols, so make them weak hidden instead. */
2456 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2457 S_SET_OTHER (sy
, STV_HIDDEN
);
2459 symbol_get_obj (sy
)->local
= 1;
2461 symbol_table_insert (sy
);
2463 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2465 size
= 4 * (list
.elt_count
[i
] + 1);
2466 bfd_set_section_size (stdoutput
, s
, size
);
2467 s
->contents
= (unsigned char *) frag_more (size
);
2468 frag_now
->fr_fix
= frag_now_fix_octets ();
2469 frag_wane (frag_now
);
2473 hash_traverse (list
.indexes
, free_section_idx
);
2474 hash_die (list
.indexes
);
2478 elf_frob_file (void)
2480 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2482 #ifdef elf_tc_final_processing
2483 elf_tc_final_processing ();
2487 /* It removes any unneeded versioned symbols from the symbol table. */
2490 elf_frob_file_before_adjust (void)
2496 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2497 if (!S_IS_DEFINED (symp
))
2499 if (symbol_get_obj (symp
)->versioned_name
)
2503 /* The @@@ syntax is a special case. If the symbol is
2504 not defined, 2 `@'s will be removed from the
2507 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2509 if (p
!= NULL
&& p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2511 size_t l
= strlen (&p
[3]) + 1;
2512 memmove (&p
[1], &p
[3], l
);
2514 if (symbol_used_p (symp
) == 0
2515 && symbol_used_in_reloc_p (symp
) == 0)
2516 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2519 /* If there was .weak foo, but foo was neither defined nor
2520 used anywhere, remove it. */
2522 else if (S_IS_WEAK (symp
)
2523 && symbol_used_p (symp
) == 0
2524 && symbol_used_in_reloc_p (symp
) == 0)
2525 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2530 /* It is required that we let write_relocs have the opportunity to
2531 optimize away fixups before output has begun, since it is possible
2532 to eliminate all fixups for a section and thus we never should
2533 have generated the relocation section. */
2536 elf_frob_file_after_relocs (void)
2538 #ifdef NEED_ECOFF_DEBUG
2539 if (ECOFF_DEBUGGING
)
2540 /* Generate the ECOFF debugging information. */
2542 const struct ecoff_debug_swap
*debug_swap
;
2543 struct ecoff_debug_info debug
;
2548 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2549 know (debug_swap
!= NULL
);
2550 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2552 /* Set up the pointers in debug. */
2553 #define SET(ptr, offset, type) \
2554 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2556 SET (line
, cbLineOffset
, unsigned char *);
2557 SET (external_dnr
, cbDnOffset
, void *);
2558 SET (external_pdr
, cbPdOffset
, void *);
2559 SET (external_sym
, cbSymOffset
, void *);
2560 SET (external_opt
, cbOptOffset
, void *);
2561 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2562 SET (ss
, cbSsOffset
, char *);
2563 SET (external_fdr
, cbFdOffset
, void *);
2564 SET (external_rfd
, cbRfdOffset
, void *);
2565 /* ssext and external_ext are set up just below. */
2569 /* Set up the external symbols. */
2570 debug
.ssext
= debug
.ssext_end
= NULL
;
2571 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2572 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2573 elf_get_extr
, elf_set_index
))
2574 as_fatal (_("failed to set up debugging information: %s"),
2575 bfd_errmsg (bfd_get_error ()));
2577 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2578 gas_assert (sec
!= NULL
);
2580 know (!stdoutput
->output_has_begun
);
2582 /* We set the size of the section, call bfd_set_section_contents
2583 to force the ELF backend to allocate a file position, and then
2584 write out the data. FIXME: Is this really the best way to do
2586 bfd_set_section_size
2587 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2589 /* Pass BUF to bfd_set_section_contents because this will
2590 eventually become a call to fwrite, and ISO C prohibits
2591 passing a NULL pointer to a stdio function even if the
2592 pointer will not be used. */
2593 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2594 as_fatal (_("can't start writing .mdebug section: %s"),
2595 bfd_errmsg (bfd_get_error ()));
2597 know (stdoutput
->output_has_begun
);
2598 know (sec
->filepos
!= 0);
2600 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2602 as_fatal (_("could not write .mdebug section: %s"),
2603 bfd_errmsg (bfd_get_error ()));
2605 #endif /* NEED_ECOFF_DEBUG */
2610 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2611 SCO specific identifier in the .notes section to satisfy the SCO
2614 This looks more complicated than it really is. As opposed to the
2615 "obvious" solution, this should handle the cross dev cases
2616 correctly. (i.e, hosting on a 64 bit big endian processor, but
2617 generating SCO Elf code) Efficiency isn't a concern, as there
2618 should be exactly one of these sections per object module.
2620 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2623 int_32 namesz = 4 ; Name size
2624 int_32 descsz = 12 ; Descriptive information
2626 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2627 int_32 version = (major ver # << 16) | version of tools ;
2628 int_32 source = (tool_id << 16 ) | 1 ;
2629 int_32 info = 0 ; These are set by the SCO tools, but we
2630 don't know enough about the source
2631 environment to set them. SCO ld currently
2632 ignores them, and recommends we set them
2635 #define SCO_MAJOR_VERSION 0x1
2636 #define SCO_MINOR_VERSION 0x1
2646 asection
*seg
= now_seg
;
2647 subsegT subseg
= now_subseg
;
2648 Elf_Internal_Note i_note
;
2649 Elf_External_Note e_note
;
2650 asection
*note_secp
= NULL
;
2653 /* create the .note section */
2655 note_secp
= subseg_new (".note", 0);
2656 bfd_set_section_flags (stdoutput
,
2658 SEC_HAS_CONTENTS
| SEC_READONLY
);
2660 /* process the version string */
2663 i_note
.descsz
= 12; /* 12 descriptive bytes */
2664 i_note
.type
= NT_VERSION
; /* Contains a version string */
2666 p
= frag_more (sizeof (i_note
.namesz
));
2667 md_number_to_chars (p
, i_note
.namesz
, 4);
2669 p
= frag_more (sizeof (i_note
.descsz
));
2670 md_number_to_chars (p
, i_note
.descsz
, 4);
2672 p
= frag_more (sizeof (i_note
.type
));
2673 md_number_to_chars (p
, i_note
.type
, 4);
2678 /* Note: this is the version number of the ELF we're representing */
2680 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2682 /* Here, we pick a magic number for ourselves (yes, I "registered"
2683 it with SCO. The bottom bit shows that we are compat with the
2686 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2688 /* If we knew (or cared) what the source language options were, we'd
2689 fill them in here. SCO has given us permission to ignore these
2690 and just set them to zero. */
2692 md_number_to_chars (p
, 0x0000, 4);
2694 frag_align (2, 0, 0);
2696 /* We probably can't restore the current segment, for there likely
2699 subseg_set (seg
, subseg
);
2703 #endif /* SCO_ELF */
2706 elf_generate_asm_lineno (void)
2708 #ifdef NEED_ECOFF_DEBUG
2709 if (ECOFF_DEBUGGING
)
2710 ecoff_generate_asm_lineno ();
2715 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2716 int what ATTRIBUTE_UNUSED
,
2717 const char *string ATTRIBUTE_UNUSED
,
2718 int type ATTRIBUTE_UNUSED
,
2719 int other ATTRIBUTE_UNUSED
,
2720 int desc ATTRIBUTE_UNUSED
)
2722 #ifdef NEED_ECOFF_DEBUG
2723 if (ECOFF_DEBUGGING
)
2724 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2729 elf_separate_stab_sections (void)
2731 #ifdef NEED_ECOFF_DEBUG
2732 return (!ECOFF_DEBUGGING
);
2739 elf_init_stab_section (segT seg
)
2741 #ifdef NEED_ECOFF_DEBUG
2742 if (!ECOFF_DEBUGGING
)
2744 obj_elf_init_stab_section (seg
);
2747 const struct format_ops elf_format_ops
=
2749 bfd_target_elf_flavour
,
2750 0, /* dfl_leading_underscore */
2751 1, /* emit_section_symbols */
2756 elf_frob_file_before_adjust
,
2757 0, /* obj_frob_file_before_fix */
2758 elf_frob_file_after_relocs
,
2759 elf_s_get_size
, elf_s_set_size
,
2760 elf_s_get_align
, elf_s_set_align
,
2767 elf_copy_symbol_attributes
,
2768 elf_generate_asm_lineno
,
2770 elf_separate_stab_sections
,
2771 elf_init_stab_section
,
2772 elf_sec_sym_ok_for_reloc
,
2774 #ifdef NEED_ECOFF_DEBUG
2777 0, /* ecoff_set_ext */
2779 elf_obj_read_begin_hook
,
2780 elf_obj_symbol_new_hook
,