1 /* ELF object file format
2 Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
4 Free Software Foundation, Inc.
6 This file is part of GAS, the GNU Assembler.
8 GAS is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as
10 published by the Free Software Foundation; either version 3,
11 or (at your option) any later version.
13 GAS is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
16 the GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GAS; see the file COPYING. If not, write to the Free
20 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
23 #define OBJ_HEADER "obj-elf.h"
25 #include "safe-ctype.h"
28 #include "struc-symbol.h"
29 #include "dwarf2dbg.h"
31 #ifndef ECOFF_DEBUGGING
32 #define ECOFF_DEBUGGING 0
34 #define NEED_ECOFF_DEBUG
37 #ifdef NEED_ECOFF_DEBUG
42 #include "elf/alpha.h"
58 #include "elf/x86-64.h"
65 static void obj_elf_line (int);
66 static void obj_elf_size (int);
67 static void obj_elf_type (int);
68 static void obj_elf_ident (int);
69 static void obj_elf_weak (int);
70 static void obj_elf_local (int);
71 static void obj_elf_visibility (int);
72 static void obj_elf_symver (int);
73 static void obj_elf_subsection (int);
74 static void obj_elf_popsection (int);
75 static void obj_elf_tls_common (int);
76 static void obj_elf_lcomm (int);
77 static void obj_elf_struct (int);
79 static const pseudo_typeS elf_pseudo_table
[] =
81 {"comm", obj_elf_common
, 0},
82 {"common", obj_elf_common
, 1},
83 {"ident", obj_elf_ident
, 0},
84 {"lcomm", obj_elf_lcomm
, 0},
85 {"local", obj_elf_local
, 0},
86 {"previous", obj_elf_previous
, 0},
87 {"section", obj_elf_section
, 0},
88 {"section.s", obj_elf_section
, 0},
89 {"sect", obj_elf_section
, 0},
90 {"sect.s", obj_elf_section
, 0},
91 {"pushsection", obj_elf_section
, 1},
92 {"popsection", obj_elf_popsection
, 0},
93 {"size", obj_elf_size
, 0},
94 {"type", obj_elf_type
, 0},
95 {"version", obj_elf_version
, 0},
96 {"weak", obj_elf_weak
, 0},
98 /* These define symbol visibility. */
99 {"internal", obj_elf_visibility
, STV_INTERNAL
},
100 {"hidden", obj_elf_visibility
, STV_HIDDEN
},
101 {"protected", obj_elf_visibility
, STV_PROTECTED
},
103 /* These are used for stabs-in-elf configurations. */
104 {"line", obj_elf_line
, 0},
106 /* This is a GNU extension to handle symbol versions. */
107 {"symver", obj_elf_symver
, 0},
109 /* A GNU extension to change subsection only. */
110 {"subsection", obj_elf_subsection
, 0},
112 /* These are GNU extensions to aid in garbage collecting C++ vtables. */
113 {"vtable_inherit", (void (*) (int)) &obj_elf_vtable_inherit
, 0},
114 {"vtable_entry", (void (*) (int)) &obj_elf_vtable_entry
, 0},
116 /* These are used for dwarf. */
120 /* These are used for dwarf2. */
121 { "file", (void (*) (int)) dwarf2_directive_file
, 0 },
122 { "loc", dwarf2_directive_loc
, 0 },
123 { "loc_mark_labels", dwarf2_directive_loc_mark_labels
, 0 },
125 /* We need to trap the section changing calls to handle .previous. */
126 {"data", obj_elf_data
, 0},
127 {"offset", obj_elf_struct
, 0},
128 {"struct", obj_elf_struct
, 0},
129 {"text", obj_elf_text
, 0},
131 {"tls_common", obj_elf_tls_common
, 0},
137 static const pseudo_typeS ecoff_debug_pseudo_table
[] =
139 #ifdef NEED_ECOFF_DEBUG
140 /* COFF style debugging information for ECOFF. .ln is not used; .loc
142 { "def", ecoff_directive_def
, 0 },
143 { "dim", ecoff_directive_dim
, 0 },
144 { "endef", ecoff_directive_endef
, 0 },
145 { "file", ecoff_directive_file
, 0 },
146 { "scl", ecoff_directive_scl
, 0 },
147 { "tag", ecoff_directive_tag
, 0 },
148 { "val", ecoff_directive_val
, 0 },
150 /* COFF debugging requires pseudo-ops .size and .type, but ELF
151 already has meanings for those. We use .esize and .etype
152 instead. These are only generated by gcc anyhow. */
153 { "esize", ecoff_directive_size
, 0 },
154 { "etype", ecoff_directive_type
, 0 },
156 /* ECOFF specific debugging information. */
157 { "begin", ecoff_directive_begin
, 0 },
158 { "bend", ecoff_directive_bend
, 0 },
159 { "end", ecoff_directive_end
, 0 },
160 { "ent", ecoff_directive_ent
, 0 },
161 { "fmask", ecoff_directive_fmask
, 0 },
162 { "frame", ecoff_directive_frame
, 0 },
163 { "loc", ecoff_directive_loc
, 0 },
164 { "mask", ecoff_directive_mask
, 0 },
166 /* Other ECOFF directives. */
167 { "extern", ecoff_directive_extern
, 0 },
169 /* These are used on Irix. I don't know how to implement them. */
170 { "alias", s_ignore
, 0 },
171 { "bgnb", s_ignore
, 0 },
172 { "endb", s_ignore
, 0 },
173 { "lab", s_ignore
, 0 },
174 { "noalias", s_ignore
, 0 },
175 { "verstamp", s_ignore
, 0 },
176 { "vreg", s_ignore
, 0 },
179 {NULL
, NULL
, 0} /* end sentinel */
183 #include "aout/aout64.h"
185 /* This is called when the assembler starts. */
187 asection
*elf_com_section_ptr
;
194 /* Add symbols for the known sections to the symbol table. */
195 s
= bfd_get_section_by_name (stdoutput
, TEXT_SECTION_NAME
);
196 symbol_table_insert (section_symbol (s
));
197 s
= bfd_get_section_by_name (stdoutput
, DATA_SECTION_NAME
);
198 symbol_table_insert (section_symbol (s
));
199 s
= bfd_get_section_by_name (stdoutput
, BSS_SECTION_NAME
);
200 symbol_table_insert (section_symbol (s
));
201 elf_com_section_ptr
= bfd_com_section_ptr
;
205 elf_pop_insert (void)
207 pop_insert (elf_pseudo_table
);
209 pop_insert (ecoff_debug_pseudo_table
);
213 elf_s_get_size (symbolS
*sym
)
215 return S_GET_SIZE (sym
);
219 elf_s_set_size (symbolS
*sym
, bfd_vma sz
)
221 S_SET_SIZE (sym
, sz
);
225 elf_s_get_align (symbolS
*sym
)
227 return S_GET_ALIGN (sym
);
231 elf_s_set_align (symbolS
*sym
, bfd_vma align
)
233 S_SET_ALIGN (sym
, align
);
237 elf_s_get_other (symbolS
*sym
)
239 return elf_symbol (symbol_get_bfdsym (sym
))->internal_elf_sym
.st_other
;
243 elf_s_set_other (symbolS
*sym
, int other
)
245 S_SET_OTHER (sym
, other
);
249 elf_sec_sym_ok_for_reloc (asection
*sec
)
251 return obj_sec_sym_ok_for_reloc (sec
);
255 elf_file_symbol (const char *s
, int appfile
)
258 || symbol_rootP
== NULL
259 || symbol_rootP
->bsym
== NULL
260 || (symbol_rootP
->bsym
->flags
& BSF_FILE
) == 0)
263 unsigned int name_length
;
265 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
266 symbol_set_frag (sym
, &zero_address_frag
);
268 name_length
= strlen (s
);
269 if (name_length
> strlen (S_GET_NAME (sym
)))
271 obstack_grow (¬es
, s
, name_length
+ 1);
272 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
275 strcpy ((char *) S_GET_NAME (sym
), s
);
277 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
279 if (symbol_rootP
!= sym
)
281 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
282 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
284 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
289 #ifdef NEED_ECOFF_DEBUG
290 ecoff_new_file (s
, appfile
);
294 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
295 Parse a possible alignment value. */
298 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
301 int is_local
= symbol_get_obj (symbolP
)->local
;
303 if (*input_line_pointer
== ',')
305 char *save
= input_line_pointer
;
307 input_line_pointer
++;
310 if (*input_line_pointer
== '"')
312 /* For sparc. Accept .common symbol, length, "bss" */
313 input_line_pointer
++;
314 /* Some use the dot, some don't. */
315 if (*input_line_pointer
== '.')
316 input_line_pointer
++;
317 /* Some say data, some say bss. */
318 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
319 input_line_pointer
+= 4;
320 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
321 input_line_pointer
+= 5;
324 char *p
= input_line_pointer
;
329 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
330 if (*input_line_pointer
++ == '"')
332 c
= *input_line_pointer
;
333 *input_line_pointer
= '\0';
334 as_bad (_("bad .common segment %s"), p
);
335 *input_line_pointer
= c
;
336 ignore_rest_of_line ();
339 /* ??? Don't ask me why these are always global. */
344 input_line_pointer
= save
;
345 align
= parse_align (is_local
);
346 if (align
== (addressT
) -1)
353 bss_alloc (symbolP
, size
, align
);
354 S_CLEAR_EXTERNAL (symbolP
);
358 S_SET_VALUE (symbolP
, size
);
359 S_SET_ALIGN (symbolP
, align
);
360 S_SET_EXTERNAL (symbolP
);
361 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
364 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
370 obj_elf_common (int is_common
)
372 if (flag_mri
&& is_common
)
375 s_comm_internal (0, elf_common_parse
);
379 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
381 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
384 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
388 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
390 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
393 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
397 get_sym_from_input_line_and_check (void)
403 name
= input_line_pointer
;
404 c
= get_symbol_end ();
405 sym
= symbol_find_or_make (name
);
406 *input_line_pointer
= c
;
409 /* There is no symbol name if input_line_pointer has not moved. */
410 if (name
== input_line_pointer
)
411 as_bad (_("Missing symbol name in directive"));
416 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
423 symbolP
= get_sym_from_input_line_and_check ();
424 c
= *input_line_pointer
;
425 S_CLEAR_EXTERNAL (symbolP
);
426 symbol_get_obj (symbolP
)->local
= 1;
429 input_line_pointer
++;
431 if (*input_line_pointer
== '\n')
436 demand_empty_rest_of_line ();
440 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
447 symbolP
= get_sym_from_input_line_and_check ();
448 c
= *input_line_pointer
;
449 S_SET_WEAK (symbolP
);
452 input_line_pointer
++;
454 if (*input_line_pointer
== '\n')
459 demand_empty_rest_of_line ();
463 obj_elf_visibility (int visibility
)
468 elf_symbol_type
*elfsym
;
472 symbolP
= get_sym_from_input_line_and_check ();
474 bfdsym
= symbol_get_bfdsym (symbolP
);
475 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
479 elfsym
->internal_elf_sym
.st_other
&= ~3;
480 elfsym
->internal_elf_sym
.st_other
|= visibility
;
482 c
= *input_line_pointer
;
485 input_line_pointer
++;
489 if (*input_line_pointer
== '\n')
495 demand_empty_rest_of_line ();
498 static segT previous_section
;
499 static int previous_subsection
;
503 struct section_stack
*next
;
505 int subseg
, prev_subseg
;
508 static struct section_stack
*section_stack
;
511 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
513 const char *gname
= (const char *) inf
;
514 const char *group_name
= elf_group_name (sec
);
516 return (group_name
== gname
517 || (group_name
!= NULL
519 && strcmp (group_name
, gname
) == 0));
522 /* Handle the .section pseudo-op. This code supports two different
525 The first is found on Solaris, and looks like
526 .section ".sec1",#alloc,#execinstr,#write
527 Here the names after '#' are the SHF_* flags to turn on for the
528 section. I'm not sure how it determines the SHT_* type (BFD
529 doesn't really give us control over the type, anyhow).
531 The second format is found on UnixWare, and probably most SVR4
532 machines, and looks like
533 .section .sec1,"a",@progbits
534 The quoted string may contain any combination of a, w, x, and
535 represents the SHF_* flags to turn on for the section. The string
536 beginning with '@' can be progbits or nobits. There should be
537 other possibilities, but I don't know what they are. In any case,
538 BFD doesn't really let us set the section type. */
541 obj_elf_change_section (const char *name
,
545 const char *group_name
,
552 const struct elf_backend_data
*bed
;
553 const struct bfd_elf_special_section
*ssect
;
555 #ifdef md_flush_pending_output
556 md_flush_pending_output ();
559 /* Switch to the section, creating it if necessary. */
562 struct section_stack
*elt
;
563 elt
= (struct section_stack
*) xmalloc (sizeof (struct section_stack
));
564 elt
->next
= section_stack
;
566 elt
->prev_seg
= previous_section
;
567 elt
->subseg
= now_subseg
;
568 elt
->prev_subseg
= previous_subsection
;
571 previous_section
= now_seg
;
572 previous_subsection
= now_subseg
;
574 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
575 (void *) group_name
);
582 sec
= subseg_force_new (name
, 0);
584 bed
= get_elf_backend_data (stdoutput
);
585 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
589 bfd_boolean override
= FALSE
;
591 if (type
== SHT_NULL
)
593 else if (type
!= ssect
->type
)
596 /* Some older versions of gcc will emit
598 .section .init_array,"aw",@progbits
600 for __attribute__ ((section (".init_array"))).
601 "@progbits" is incorrect. Also for x86-64 large bss
602 sections, some older versions of gcc will emit
604 .section .lbss,"aw",@progbits
606 "@progbits" is incorrect. */
608 && (bed
->s
->arch_size
!= 64
609 || !(ssect
->attr
& SHF_X86_64_LARGE
))
611 && ssect
->type
!= SHT_INIT_ARRAY
612 && ssect
->type
!= SHT_FINI_ARRAY
613 && ssect
->type
!= SHT_PREINIT_ARRAY
)
615 /* We allow to specify any type for a .note section. */
616 if (ssect
->type
!= SHT_NOTE
)
617 as_warn (_("setting incorrect section type for %s"),
622 as_warn (_("ignoring incorrect section type for %s"),
628 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
630 /* As a GNU extension, we permit a .note section to be
631 allocatable. If the linker sees an allocatable .note
632 section, it will create a PT_NOTE segment in the output
633 file. We also allow "x" for .note.GNU-stack. */
634 if (ssect
->type
== SHT_NOTE
635 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
637 /* Allow different SHF_MERGE and SHF_STRINGS if we have
638 something like .rodata.str. */
639 else if (ssect
->suffix_length
== -2
640 && name
[ssect
->prefix_length
] == '.'
644 & ~SHF_STRINGS
) == 0)
646 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
647 else if (attr
== SHF_ALLOC
648 && (strcmp (name
, ".interp") == 0
649 || strcmp (name
, ".strtab") == 0
650 || strcmp (name
, ".symtab") == 0))
652 /* .note.GNU-stack can have SHF_EXECINSTR. */
653 else if (attr
== SHF_EXECINSTR
654 && strcmp (name
, ".note.GNU-stack") == 0)
657 /* A section on Alpha may have SHF_ALPHA_GPREL. */
658 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
662 else if (attr
== (SHF_EXECINSTR
| SHF_WRITE
| SHF_ALLOC
)
663 && (ssect
->type
== SHT_INIT_ARRAY
664 || ssect
->type
== SHT_FINI_ARRAY
665 || ssect
->type
== SHT_PREINIT_ARRAY
))
666 /* RX init/fini arrays can and should have the "awx" attributes set. */
671 if (group_name
== NULL
)
672 as_warn (_("setting incorrect section attributes for %s"),
677 if (!override
&& old_sec
== NULL
)
681 /* Convert ELF type and flags to BFD flags. */
683 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
684 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
685 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
686 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
687 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
688 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
689 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
690 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
691 #ifdef md_elf_section_flags
692 flags
= md_elf_section_flags (flags
, attr
, type
);
696 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
702 if (type
== SHT_NULL
)
703 type
= bfd_elf_get_default_section_type (flags
);
704 elf_section_type (sec
) = type
;
705 elf_section_flags (sec
) = attr
;
707 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
708 if (type
== SHT_NOBITS
)
709 seg_info (sec
)->bss
= 1;
711 bfd_set_section_flags (stdoutput
, sec
, flags
);
712 if (flags
& SEC_MERGE
)
713 sec
->entsize
= entsize
;
714 elf_group_name (sec
) = group_name
;
716 /* Add a symbol for this section to the symbol table. */
717 secsym
= symbol_find (name
);
719 symbol_set_bfdsym (secsym
, sec
->symbol
);
721 symbol_table_insert (section_symbol (sec
));
726 && (unsigned) type
!= elf_section_type (old_sec
))
727 as_warn (_("ignoring changed section type for %s"), name
);
731 /* If section attributes are specified the second time we see a
732 particular section, then check that they are the same as we
733 saw the first time. */
734 if (((old_sec
->flags
^ flags
)
735 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
736 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
737 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
738 | SEC_THREAD_LOCAL
)))
739 as_warn (_("ignoring changed section attributes for %s"), name
);
740 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
741 as_warn (_("ignoring changed section entity size for %s"), name
);
745 #ifdef md_elf_section_change_hook
746 md_elf_section_change_hook ();
751 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
770 attr
|= SHF_EXECINSTR
;
789 if (*(str
- 1) == 'a')
792 if (len
> 1 && str
[1] == 's')
801 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
802 #ifdef md_elf_section_letter
803 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
804 if (md_attr
!= (bfd_vma
) -1)
808 as_fatal ("%s", bad_msg
);
819 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
821 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
823 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
825 if (len
== 4 && strncmp (str
, "note", 4) == 0)
827 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
828 return SHT_INIT_ARRAY
;
829 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
830 return SHT_FINI_ARRAY
;
831 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
832 return SHT_PREINIT_ARRAY
;
834 #ifdef md_elf_section_type
836 int md_type
= md_elf_section_type (str
, len
);
843 as_warn (_("unrecognized section type"));
848 obj_elf_section_word (char *str
, size_t len
, int *type
)
852 if (len
== 5 && strncmp (str
, "write", 5) == 0)
854 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
856 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
857 return SHF_EXECINSTR
;
858 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
860 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
863 #ifdef md_elf_section_word
865 bfd_vma md_attr
= md_elf_section_word (str
, len
);
871 ret
= obj_elf_section_type (str
, len
, FALSE
);
875 as_warn (_("unrecognized section attribute"));
880 /* Get name of section. */
882 obj_elf_section_name (void)
887 if (*input_line_pointer
== '"')
891 name
= demand_copy_C_string (&dummy
);
894 ignore_rest_of_line ();
900 char *end
= input_line_pointer
;
902 while (0 == strchr ("\n\t,; ", *end
))
904 if (end
== input_line_pointer
)
906 as_bad (_("missing name"));
907 ignore_rest_of_line ();
911 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
912 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
913 name
[end
- input_line_pointer
] = '\0';
914 #ifdef tc_canonicalize_section_name
915 name
= tc_canonicalize_section_name (name
);
917 input_line_pointer
= end
;
924 obj_elf_section (int push
)
926 char *name
, *group_name
, *beg
;
931 subsegT new_subsection
= -1;
938 #ifdef md_flush_pending_output
939 md_flush_pending_output ();
942 previous_section
= now_seg
;
943 previous_subsection
= now_subseg
;
945 s_mri_sect (&mri_type
);
947 #ifdef md_elf_section_change_hook
948 md_elf_section_change_hook ();
953 #endif /* ! defined (TC_I370) */
955 name
= obj_elf_section_name ();
964 if (*input_line_pointer
== ',')
966 /* Skip the comma. */
967 ++input_line_pointer
;
970 if (push
&& ISDIGIT (*input_line_pointer
))
972 /* .pushsection has an optional subsection. */
973 new_subsection
= (subsegT
) get_absolute_expression ();
977 /* Stop if we don't see a comma. */
978 if (*input_line_pointer
!= ',')
981 /* Skip the comma. */
982 ++input_line_pointer
;
986 if (*input_line_pointer
== '"')
988 bfd_boolean is_clone
;
990 beg
= demand_copy_C_string (&dummy
);
993 ignore_rest_of_line ();
996 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
999 if (*input_line_pointer
== ',')
1002 char *save
= input_line_pointer
;
1004 ++input_line_pointer
;
1006 c
= *input_line_pointer
;
1009 beg
= demand_copy_C_string (&dummy
);
1012 ignore_rest_of_line ();
1015 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1017 else if (c
== '@' || c
== '%')
1019 beg
= ++input_line_pointer
;
1020 c
= get_symbol_end ();
1021 *input_line_pointer
= c
;
1022 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1025 input_line_pointer
= save
;
1029 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1031 ++input_line_pointer
;
1033 entsize
= get_absolute_expression ();
1037 as_warn (_("invalid merge entity size"));
1042 else if ((attr
& SHF_MERGE
) != 0)
1044 as_warn (_("entity size for SHF_MERGE not specified"));
1048 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1050 as_warn (_("? section flag ignored with G present"));
1053 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1055 ++input_line_pointer
;
1056 group_name
= obj_elf_section_name ();
1057 if (group_name
== NULL
)
1059 else if (*input_line_pointer
== ',')
1061 ++input_line_pointer
;
1063 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1065 input_line_pointer
+= 6;
1069 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1072 else if ((attr
& SHF_GROUP
) != 0)
1074 as_warn (_("group name for SHF_GROUP not specified"));
1080 const char *now_group
= elf_group_name (now_seg
);
1081 if (now_group
!= NULL
)
1083 group_name
= xstrdup (now_group
);
1084 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1095 if (*input_line_pointer
!= '#')
1097 as_bad (_("character following name is not '#'"));
1098 ignore_rest_of_line ();
1101 beg
= ++input_line_pointer
;
1102 c
= get_symbol_end ();
1103 *input_line_pointer
= c
;
1105 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1109 while (*input_line_pointer
++ == ',');
1110 --input_line_pointer
;
1115 demand_empty_rest_of_line ();
1117 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1119 if (push
&& new_subsection
!= -1)
1120 subseg_set (now_seg
, new_subsection
);
1123 /* Change to the .data section. */
1126 obj_elf_data (int i
)
1128 #ifdef md_flush_pending_output
1129 md_flush_pending_output ();
1132 previous_section
= now_seg
;
1133 previous_subsection
= now_subseg
;
1136 #ifdef md_elf_section_change_hook
1137 md_elf_section_change_hook ();
1141 /* Change to the .text section. */
1144 obj_elf_text (int i
)
1146 #ifdef md_flush_pending_output
1147 md_flush_pending_output ();
1150 previous_section
= now_seg
;
1151 previous_subsection
= now_subseg
;
1154 #ifdef md_elf_section_change_hook
1155 md_elf_section_change_hook ();
1159 /* Change to the *ABS* section. */
1162 obj_elf_struct (int i
)
1164 #ifdef md_flush_pending_output
1165 md_flush_pending_output ();
1168 previous_section
= now_seg
;
1169 previous_subsection
= now_subseg
;
1172 #ifdef md_elf_section_change_hook
1173 md_elf_section_change_hook ();
1178 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1182 #ifdef md_flush_pending_output
1183 md_flush_pending_output ();
1186 previous_section
= now_seg
;
1187 previous_subsection
= now_subseg
;
1189 temp
= get_absolute_expression ();
1190 subseg_set (now_seg
, (subsegT
) temp
);
1191 demand_empty_rest_of_line ();
1193 #ifdef md_elf_section_change_hook
1194 md_elf_section_change_hook ();
1198 /* This can be called from the processor backends if they change
1202 obj_elf_section_change_hook (void)
1204 previous_section
= now_seg
;
1205 previous_subsection
= now_subseg
;
1209 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1214 if (previous_section
== 0)
1216 as_warn (_(".previous without corresponding .section; ignored"));
1220 #ifdef md_flush_pending_output
1221 md_flush_pending_output ();
1224 new_section
= previous_section
;
1225 new_subsection
= previous_subsection
;
1226 previous_section
= now_seg
;
1227 previous_subsection
= now_subseg
;
1228 subseg_set (new_section
, new_subsection
);
1230 #ifdef md_elf_section_change_hook
1231 md_elf_section_change_hook ();
1236 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1238 struct section_stack
*top
= section_stack
;
1242 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1246 #ifdef md_flush_pending_output
1247 md_flush_pending_output ();
1250 section_stack
= top
->next
;
1251 previous_section
= top
->prev_seg
;
1252 previous_subsection
= top
->prev_subseg
;
1253 subseg_set (top
->seg
, top
->subseg
);
1256 #ifdef md_elf_section_change_hook
1257 md_elf_section_change_hook ();
1262 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1264 /* Assume delimiter is part of expression. BSD4.2 as fails with
1265 delightful bug, so we are not being incompatible here. */
1266 new_logical_line (NULL
, get_absolute_expression ());
1267 demand_empty_rest_of_line ();
1270 /* This handles the .symver pseudo-op, which is used to specify a
1271 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1272 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1273 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1274 with the same value as the symbol NAME. */
1277 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1284 sym
= get_sym_from_input_line_and_check ();
1286 if (*input_line_pointer
!= ',')
1288 as_bad (_("expected comma after name in .symver"));
1289 ignore_rest_of_line ();
1293 ++input_line_pointer
;
1295 name
= input_line_pointer
;
1297 /* Temporarily include '@' in symbol names. */
1298 old_lexat
= lex_type
[(unsigned char) '@'];
1299 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1300 c
= get_symbol_end ();
1301 lex_type
[(unsigned char) '@'] = old_lexat
;
1303 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1305 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1307 *input_line_pointer
= c
;
1309 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1310 ELF_VER_CHR
) == NULL
)
1312 as_bad (_("missing version name in `%s' for symbol `%s'"),
1313 symbol_get_obj (sym
)->versioned_name
,
1315 ignore_rest_of_line ();
1321 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1323 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1324 name
, symbol_get_obj (sym
)->versioned_name
,
1326 ignore_rest_of_line ();
1330 *input_line_pointer
= c
;
1333 demand_empty_rest_of_line ();
1336 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1337 to the linker the hierarchy in which a particular table resides. The
1338 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1341 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1343 char *cname
, *pname
;
1344 symbolS
*csym
, *psym
;
1347 if (*input_line_pointer
== '#')
1348 ++input_line_pointer
;
1350 cname
= input_line_pointer
;
1351 c
= get_symbol_end ();
1352 csym
= symbol_find (cname
);
1354 /* GCFIXME: should check that we don't have two .vtable_inherits for
1355 the same child symbol. Also, we can currently only do this if the
1356 child symbol is already exists and is placed in a fragment. */
1358 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1360 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1365 *input_line_pointer
= c
;
1368 if (*input_line_pointer
!= ',')
1370 as_bad (_("expected comma after name in .vtable_inherit"));
1371 ignore_rest_of_line ();
1375 ++input_line_pointer
;
1378 if (*input_line_pointer
== '#')
1379 ++input_line_pointer
;
1381 if (input_line_pointer
[0] == '0'
1382 && (input_line_pointer
[1] == '\0'
1383 || ISSPACE (input_line_pointer
[1])))
1385 psym
= section_symbol (absolute_section
);
1386 ++input_line_pointer
;
1390 pname
= input_line_pointer
;
1391 c
= get_symbol_end ();
1392 psym
= symbol_find_or_make (pname
);
1393 *input_line_pointer
= c
;
1396 demand_empty_rest_of_line ();
1401 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1402 return fix_new (symbol_get_frag (csym
),
1403 symbol_get_value_expression (csym
)->X_add_number
,
1404 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1407 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1408 to the linker that a vtable slot was used. The syntax is
1409 ".vtable_entry tablename, offset". */
1412 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1417 if (*input_line_pointer
== '#')
1418 ++input_line_pointer
;
1420 sym
= get_sym_from_input_line_and_check ();
1421 if (*input_line_pointer
!= ',')
1423 as_bad (_("expected comma after name in .vtable_entry"));
1424 ignore_rest_of_line ();
1428 ++input_line_pointer
;
1429 if (*input_line_pointer
== '#')
1430 ++input_line_pointer
;
1432 offset
= get_absolute_expression ();
1434 demand_empty_rest_of_line ();
1436 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1437 BFD_RELOC_VTABLE_ENTRY
);
1441 elf_obj_read_begin_hook (void)
1443 #ifdef NEED_ECOFF_DEBUG
1444 if (ECOFF_DEBUGGING
)
1445 ecoff_read_begin_hook ();
1450 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1452 struct elf_obj_sy
*sy_obj
;
1454 sy_obj
= symbol_get_obj (symbolP
);
1455 sy_obj
->size
= NULL
;
1456 sy_obj
->versioned_name
= NULL
;
1458 #ifdef NEED_ECOFF_DEBUG
1459 if (ECOFF_DEBUGGING
)
1460 ecoff_symbol_new_hook (symbolP
);
1464 /* When setting one symbol equal to another, by default we probably
1465 want them to have the same "size", whatever it means in the current
1469 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1471 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1472 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1475 if (destelf
->size
== NULL
)
1476 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1477 *destelf
->size
= *srcelf
->size
;
1481 if (destelf
->size
!= NULL
)
1482 free (destelf
->size
);
1483 destelf
->size
= NULL
;
1485 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1486 /* Don't copy visibility. */
1487 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1488 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1492 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1497 asection
*seg
= now_seg
;
1498 subsegT subseg
= now_subseg
;
1499 Elf_Internal_Note i_note
;
1500 Elf_External_Note e_note
;
1501 asection
*note_secp
= NULL
;
1504 if (*input_line_pointer
== '\"')
1508 ++input_line_pointer
; /* -> 1st char of string. */
1509 name
= input_line_pointer
;
1511 while (is_a_char (c
= next_char_of_string ()))
1513 c
= *input_line_pointer
;
1514 *input_line_pointer
= '\0';
1515 *(input_line_pointer
- 1) = '\0';
1516 *input_line_pointer
= c
;
1518 /* Create the .note section. */
1519 note_secp
= subseg_new (".note", 0);
1520 bfd_set_section_flags (stdoutput
,
1522 SEC_HAS_CONTENTS
| SEC_READONLY
);
1524 /* Process the version string. */
1525 len
= strlen (name
) + 1;
1527 /* PR 3456: Although the name field is padded out to an 4-byte
1528 boundary, the namesz field should not be adjusted. */
1529 i_note
.namesz
= len
;
1530 i_note
.descsz
= 0; /* No description. */
1531 i_note
.type
= NT_VERSION
;
1532 p
= frag_more (sizeof (e_note
.namesz
));
1533 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1534 p
= frag_more (sizeof (e_note
.descsz
));
1535 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1536 p
= frag_more (sizeof (e_note
.type
));
1537 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1538 p
= frag_more (len
);
1539 memcpy (p
, name
, len
);
1541 frag_align (2, 0, 0);
1543 subseg_set (seg
, subseg
);
1546 as_bad (_("expected quoted string"));
1548 demand_empty_rest_of_line ();
1552 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1554 char *name
= input_line_pointer
;
1555 char c
= get_symbol_end ();
1560 p
= input_line_pointer
;
1563 if (*input_line_pointer
!= ',')
1566 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1568 ignore_rest_of_line ();
1571 input_line_pointer
++;
1573 if (exp
.X_op
== O_absent
)
1575 as_bad (_("missing expression in .size directive"));
1576 exp
.X_op
= O_constant
;
1577 exp
.X_add_number
= 0;
1580 sym
= symbol_find_or_make (name
);
1582 if (exp
.X_op
== O_constant
)
1584 S_SET_SIZE (sym
, exp
.X_add_number
);
1585 if (symbol_get_obj (sym
)->size
)
1587 xfree (symbol_get_obj (sym
)->size
);
1588 symbol_get_obj (sym
)->size
= NULL
;
1593 symbol_get_obj (sym
)->size
=
1594 (expressionS
*) xmalloc (sizeof (expressionS
));
1595 *symbol_get_obj (sym
)->size
= exp
;
1597 demand_empty_rest_of_line ();
1600 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1601 There are six syntaxes:
1603 The first (used on Solaris) is
1605 The second (used on UnixWare) is
1607 The third (reportedly to be used on Irix 6.0) is
1609 The fourth (used on NetBSD/Arm and Linux/ARM) is
1611 The fifth (used on SVR4/860) is
1612 .type SYM,"function"
1613 The sixth (emitted by recent SunPRO under Solaris) is
1615 where the integer is the STT_* value.
1619 obj_elf_type_name (char *cp
)
1623 p
= input_line_pointer
;
1624 if (*input_line_pointer
>= '0'
1625 && *input_line_pointer
<= '9')
1627 while (*input_line_pointer
>= '0'
1628 && *input_line_pointer
<= '9')
1629 ++input_line_pointer
;
1630 *cp
= *input_line_pointer
;
1631 *input_line_pointer
= '\0';
1634 *cp
= get_symbol_end ();
1640 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1644 const char *type_name
;
1646 elf_symbol_type
*elfsym
;
1648 sym
= get_sym_from_input_line_and_check ();
1649 c
= *input_line_pointer
;
1650 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1652 if (*input_line_pointer
== ',')
1653 ++input_line_pointer
;
1656 if ( *input_line_pointer
== '#'
1657 || *input_line_pointer
== '@'
1658 || *input_line_pointer
== '"'
1659 || *input_line_pointer
== '%')
1660 ++input_line_pointer
;
1662 type_name
= obj_elf_type_name (& c
);
1665 if (strcmp (type_name
, "function") == 0
1666 || strcmp (type_name
, "2") == 0
1667 || strcmp (type_name
, "STT_FUNC") == 0)
1668 type
= BSF_FUNCTION
;
1669 else if (strcmp (type_name
, "object") == 0
1670 || strcmp (type_name
, "1") == 0
1671 || strcmp (type_name
, "STT_OBJECT") == 0)
1673 else if (strcmp (type_name
, "tls_object") == 0
1674 || strcmp (type_name
, "6") == 0
1675 || strcmp (type_name
, "STT_TLS") == 0)
1676 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1677 else if (strcmp (type_name
, "notype") == 0
1678 || strcmp (type_name
, "0") == 0
1679 || strcmp (type_name
, "STT_NOTYPE") == 0)
1681 else if (strcmp (type_name
, "common") == 0
1682 || strcmp (type_name
, "5") == 0
1683 || strcmp (type_name
, "STT_COMMON") == 0)
1687 if (! S_IS_COMMON (sym
))
1689 if (S_IS_VOLATILE (sym
))
1691 sym
= symbol_clone (sym
, 1);
1692 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1693 S_SET_VALUE (sym
, 0);
1694 S_SET_EXTERNAL (sym
);
1695 symbol_set_frag (sym
, &zero_address_frag
);
1696 S_CLEAR_VOLATILE (sym
);
1698 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1699 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1702 /* FIXME: Is it safe to just change the section ? */
1703 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1704 S_SET_VALUE (sym
, 0);
1705 S_SET_EXTERNAL (sym
);
1709 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1710 || strcmp (type_name
, "10") == 0
1711 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1713 const struct elf_backend_data
*bed
;
1715 bed
= get_elf_backend_data (stdoutput
);
1716 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1717 || bed
->elf_osabi
== ELFOSABI_FREEBSD
1718 /* GNU is still using the default value 0. */
1719 || bed
->elf_osabi
== ELFOSABI_NONE
))
1720 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
1722 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1724 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1726 struct elf_backend_data
*bed
;
1728 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1729 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1730 /* GNU is still using the default value 0. */
1731 || bed
->elf_osabi
== ELFOSABI_NONE
))
1732 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1734 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1735 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
1736 bed
->elf_osabi
= ELFOSABI_GNU
;
1738 #ifdef md_elf_symbol_type
1739 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1743 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1745 *input_line_pointer
= c
;
1747 if (*input_line_pointer
== '"')
1748 ++input_line_pointer
;
1750 elfsym
->symbol
.flags
|= type
;
1752 demand_empty_rest_of_line ();
1756 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1758 static segT comment_section
;
1759 segT old_section
= now_seg
;
1760 int old_subsection
= now_subseg
;
1762 #ifdef md_flush_pending_output
1763 md_flush_pending_output ();
1766 if (!comment_section
)
1769 comment_section
= subseg_new (".comment", 0);
1770 bfd_set_section_flags (stdoutput
, comment_section
,
1771 SEC_READONLY
| SEC_HAS_CONTENTS
1772 | SEC_MERGE
| SEC_STRINGS
);
1773 comment_section
->entsize
= 1;
1774 #ifdef md_elf_section_change_hook
1775 md_elf_section_change_hook ();
1781 subseg_set (comment_section
, 0);
1783 subseg_set (old_section
, old_subsection
);
1786 #ifdef INIT_STAB_SECTION
1788 /* The first entry in a .stabs section is special. */
1791 obj_elf_init_stab_section (segT seg
)
1796 unsigned int stroff
;
1798 /* Force the section to align to a longword boundary. Without this,
1799 UnixWare ar crashes. */
1800 bfd_set_section_alignment (stdoutput
, seg
, 2);
1802 /* Make space for this first symbol. */
1806 as_where (&file
, NULL
);
1807 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
1808 strcpy (stabstr_name
, segment_name (seg
));
1809 strcat (stabstr_name
, "str");
1810 stroff
= get_stab_string_offset (file
, stabstr_name
);
1811 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
1812 md_number_to_chars (p
, stroff
, 4);
1813 seg_info (seg
)->stabu
.p
= p
;
1818 /* Fill in the counts in the first entry in a .stabs section. */
1821 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
1828 if (strncmp (".stab", sec
->name
, 5))
1830 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
1833 name
= (char *) alloca (strlen (sec
->name
) + 4);
1834 strcpy (name
, sec
->name
);
1835 strcat (name
, "str");
1836 strsec
= bfd_get_section_by_name (abfd
, name
);
1838 strsz
= bfd_section_size (abfd
, strsec
);
1841 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
1843 p
= seg_info (sec
)->stabu
.p
;
1844 gas_assert (p
!= 0);
1846 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
1847 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
1850 #ifdef NEED_ECOFF_DEBUG
1852 /* This function is called by the ECOFF code. It is supposed to
1853 record the external symbol information so that the backend can
1854 write it out correctly. The ELF backend doesn't actually handle
1855 this at the moment, so we do it ourselves. We save the information
1858 #ifdef OBJ_MAYBE_ELF
1862 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
1864 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
1867 /* This function is called by bfd_ecoff_debug_externals. It is
1868 supposed to *EXT to the external symbol information, and return
1869 whether the symbol should be used at all. */
1872 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
1874 if (sym
->udata
.p
== NULL
)
1876 *ext
= *(EXTR
*) sym
->udata
.p
;
1880 /* This function is called by bfd_ecoff_debug_externals. It has
1881 nothing to do for ELF. */
1884 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
1885 bfd_size_type indx ATTRIBUTE_UNUSED
)
1889 #endif /* NEED_ECOFF_DEBUG */
1892 elf_frob_symbol (symbolS
*symp
, int *puntp
)
1894 struct elf_obj_sy
*sy_obj
;
1897 #ifdef NEED_ECOFF_DEBUG
1898 if (ECOFF_DEBUGGING
)
1899 ecoff_frob_symbol (symp
);
1902 sy_obj
= symbol_get_obj (symp
);
1904 size
= sy_obj
->size
;
1907 if (resolve_expression (size
)
1908 && size
->X_op
== O_constant
)
1909 S_SET_SIZE (symp
, size
->X_add_number
);
1912 if (flag_size_check
== size_check_error
)
1913 as_bad (_(".size expression for %s "
1914 "does not evaluate to a constant"), S_GET_NAME (symp
));
1916 as_warn (_(".size expression for %s "
1917 "does not evaluate to a constant"), S_GET_NAME (symp
));
1919 free (sy_obj
->size
);
1920 sy_obj
->size
= NULL
;
1923 if (sy_obj
->versioned_name
!= NULL
)
1927 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
1930 /* This symbol was given a new name with the .symver directive.
1932 If this is an external reference, just rename the symbol to
1933 include the version string. This will make the relocs be
1934 against the correct versioned symbol.
1936 If this is a definition, add an alias. FIXME: Using an alias
1937 will permit the debugging information to refer to the right
1938 symbol. However, it's not clear whether it is the best
1941 if (! S_IS_DEFINED (symp
))
1943 /* Verify that the name isn't using the @@ syntax--this is
1944 reserved for definitions of the default version to link
1946 if (p
[1] == ELF_VER_CHR
)
1948 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1949 sy_obj
->versioned_name
);
1952 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1956 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
1960 /* The @@@ syntax is a special case. It renames the
1961 symbol name to versioned_name with one `@' removed. */
1962 l
= strlen (&p
[3]) + 1;
1963 memmove (&p
[2], &p
[3], l
);
1964 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1970 /* FIXME: Creating a new symbol here is risky. We're
1971 in the final loop over the symbol table. We can
1972 get away with it only because the symbol goes to
1973 the end of the list, where the loop will still see
1974 it. It would probably be better to do this in
1975 obj_frob_file_before_adjust. */
1977 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
1979 /* Now we act as though we saw symp2 = sym. */
1981 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
1983 /* Subtracting out the frag address here is a hack
1984 because we are in the middle of the final loop. */
1987 - symbol_get_frag (symp
)->fr_address
));
1989 symbol_set_frag (symp2
, symbol_get_frag (symp
));
1991 /* This will copy over the size information. */
1992 copy_symbol_attributes (symp2
, symp
);
1994 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
1996 if (S_IS_WEAK (symp
))
1999 if (S_IS_EXTERNAL (symp
))
2000 S_SET_EXTERNAL (symp2
);
2005 /* Double check weak symbols. */
2006 if (S_IS_WEAK (symp
))
2008 if (S_IS_COMMON (symp
))
2009 as_bad (_("symbol `%s' can not be both weak and common"),
2014 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2015 any undefined non-function symbol to STT_OBJECT. We try to be
2016 compatible, since newer Irix 5 and 6 linkers care. However, we
2017 only set undefined symbols to be STT_OBJECT if we are on Irix,
2018 because that is the only time gcc will generate the necessary
2019 .global directives to mark functions. */
2021 if (S_IS_COMMON (symp
))
2022 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2024 if (strstr (TARGET_OS
, "irix") != NULL
2025 && ! S_IS_DEFINED (symp
)
2026 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2027 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2033 asection
**head
; /* Section lists. */
2034 unsigned int *elt_count
; /* Number of sections in each list. */
2035 unsigned int num_group
; /* Number of lists. */
2036 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2039 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2040 add it to a list of sections belonging to the group. INF is a
2041 pointer to a struct group_list, which is where we store the head of
2045 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2047 struct group_list
*list
= (struct group_list
*) inf
;
2048 const char *group_name
= elf_group_name (sec
);
2050 unsigned int *elem_idx
;
2051 unsigned int *idx_ptr
;
2053 if (group_name
== NULL
)
2056 /* If this group already has a list, add the section to the head of
2058 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2059 if (elem_idx
!= NULL
)
2061 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2062 list
->head
[*elem_idx
] = sec
;
2063 list
->elt_count
[*elem_idx
] += 1;
2067 /* New group. Make the arrays bigger in chunks to minimize calls to
2069 i
= list
->num_group
;
2072 unsigned int newsize
= i
+ 128;
2073 list
->head
= (asection
**) xrealloc (list
->head
,
2074 newsize
* sizeof (*list
->head
));
2075 list
->elt_count
= (unsigned int *)
2076 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2078 list
->head
[i
] = sec
;
2079 list
->elt_count
[i
] = 1;
2080 list
->num_group
+= 1;
2082 /* Add index to hash. */
2083 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2085 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2088 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2090 free ((unsigned int *) val
);
2094 elf_adjust_symtab (void)
2096 struct group_list list
;
2099 /* Go find section groups. */
2102 list
.elt_count
= NULL
;
2103 list
.indexes
= hash_new ();
2104 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2106 /* Make the SHT_GROUP sections that describe each section group. We
2107 can't set up the section contents here yet, because elf section
2108 indices have yet to be calculated. elf.c:set_group_contents does
2109 the rest of the work. */
2110 for (i
= 0; i
< list
.num_group
; i
++)
2112 const char *group_name
= elf_group_name (list
.head
[i
]);
2113 const char *sec_name
;
2119 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2120 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2121 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2123 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2124 if (s
!= list
.head
[i
])
2126 as_warn (_("assuming all members of group `%s' are COMDAT"),
2132 sec_name
= ".group";
2133 s
= subseg_force_new (sec_name
, 0);
2135 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2136 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2138 as_fatal (_("can't create group: %s"),
2139 bfd_errmsg (bfd_get_error ()));
2141 elf_section_type (s
) = SHT_GROUP
;
2143 /* Pass a pointer to the first section in this group. */
2144 elf_next_in_group (s
) = list
.head
[i
];
2145 /* Make sure that the signature symbol for the group has the
2146 name of the group. */
2147 sy
= symbol_find_exact (group_name
);
2149 || (sy
!= symbol_lastP
2150 && (sy
->sy_next
== NULL
2151 || sy
->sy_next
->sy_previous
!= sy
)))
2153 /* Create the symbol now. */
2154 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2156 /* Before Solaris 11 build 154, Sun ld rejects local group
2157 signature symbols, so make them weak hidden instead. */
2158 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2159 S_SET_OTHER (sy
, STV_HIDDEN
);
2161 symbol_get_obj (sy
)->local
= 1;
2163 symbol_table_insert (sy
);
2165 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2167 size
= 4 * (list
.elt_count
[i
] + 1);
2168 bfd_set_section_size (stdoutput
, s
, size
);
2169 s
->contents
= (unsigned char *) frag_more (size
);
2170 frag_now
->fr_fix
= frag_now_fix_octets ();
2171 frag_wane (frag_now
);
2175 hash_traverse (list
.indexes
, free_section_idx
);
2176 hash_die (list
.indexes
);
2180 elf_frob_file (void)
2182 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2184 #ifdef elf_tc_final_processing
2185 elf_tc_final_processing ();
2189 /* It removes any unneeded versioned symbols from the symbol table. */
2192 elf_frob_file_before_adjust (void)
2198 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2199 if (!S_IS_DEFINED (symp
))
2201 if (symbol_get_obj (symp
)->versioned_name
)
2205 /* The @@@ syntax is a special case. If the symbol is
2206 not defined, 2 `@'s will be removed from the
2209 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2212 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2214 size_t l
= strlen (&p
[3]) + 1;
2215 memmove (&p
[1], &p
[3], l
);
2217 if (symbol_used_p (symp
) == 0
2218 && symbol_used_in_reloc_p (symp
) == 0)
2219 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2222 /* If there was .weak foo, but foo was neither defined nor
2223 used anywhere, remove it. */
2225 else if (S_IS_WEAK (symp
)
2226 && symbol_used_p (symp
) == 0
2227 && symbol_used_in_reloc_p (symp
) == 0)
2228 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2233 /* It is required that we let write_relocs have the opportunity to
2234 optimize away fixups before output has begun, since it is possible
2235 to eliminate all fixups for a section and thus we never should
2236 have generated the relocation section. */
2239 elf_frob_file_after_relocs (void)
2241 #ifdef NEED_ECOFF_DEBUG
2242 if (ECOFF_DEBUGGING
)
2243 /* Generate the ECOFF debugging information. */
2245 const struct ecoff_debug_swap
*debug_swap
;
2246 struct ecoff_debug_info debug
;
2251 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2252 know (debug_swap
!= NULL
);
2253 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2255 /* Set up the pointers in debug. */
2256 #define SET(ptr, offset, type) \
2257 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2259 SET (line
, cbLineOffset
, unsigned char *);
2260 SET (external_dnr
, cbDnOffset
, void *);
2261 SET (external_pdr
, cbPdOffset
, void *);
2262 SET (external_sym
, cbSymOffset
, void *);
2263 SET (external_opt
, cbOptOffset
, void *);
2264 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2265 SET (ss
, cbSsOffset
, char *);
2266 SET (external_fdr
, cbFdOffset
, void *);
2267 SET (external_rfd
, cbRfdOffset
, void *);
2268 /* ssext and external_ext are set up just below. */
2272 /* Set up the external symbols. */
2273 debug
.ssext
= debug
.ssext_end
= NULL
;
2274 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2275 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2276 elf_get_extr
, elf_set_index
))
2277 as_fatal (_("failed to set up debugging information: %s"),
2278 bfd_errmsg (bfd_get_error ()));
2280 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2281 gas_assert (sec
!= NULL
);
2283 know (!stdoutput
->output_has_begun
);
2285 /* We set the size of the section, call bfd_set_section_contents
2286 to force the ELF backend to allocate a file position, and then
2287 write out the data. FIXME: Is this really the best way to do
2289 bfd_set_section_size
2290 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2292 /* Pass BUF to bfd_set_section_contents because this will
2293 eventually become a call to fwrite, and ISO C prohibits
2294 passing a NULL pointer to a stdio function even if the
2295 pointer will not be used. */
2296 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2297 as_fatal (_("can't start writing .mdebug section: %s"),
2298 bfd_errmsg (bfd_get_error ()));
2300 know (stdoutput
->output_has_begun
);
2301 know (sec
->filepos
!= 0);
2303 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2305 as_fatal (_("could not write .mdebug section: %s"),
2306 bfd_errmsg (bfd_get_error ()));
2308 #endif /* NEED_ECOFF_DEBUG */
2313 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2314 SCO specific identifier in the .notes section to satisfy the SCO
2317 This looks more complicated than it really is. As opposed to the
2318 "obvious" solution, this should handle the cross dev cases
2319 correctly. (i.e, hosting on a 64 bit big endian processor, but
2320 generating SCO Elf code) Efficiency isn't a concern, as there
2321 should be exactly one of these sections per object module.
2323 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2326 int_32 namesz = 4 ; Name size
2327 int_32 descsz = 12 ; Descriptive information
2329 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2330 int_32 version = (major ver # << 16) | version of tools ;
2331 int_32 source = (tool_id << 16 ) | 1 ;
2332 int_32 info = 0 ; These are set by the SCO tools, but we
2333 don't know enough about the source
2334 environment to set them. SCO ld currently
2335 ignores them, and recommends we set them
2338 #define SCO_MAJOR_VERSION 0x1
2339 #define SCO_MINOR_VERSION 0x1
2349 asection
*seg
= now_seg
;
2350 subsegT subseg
= now_subseg
;
2351 Elf_Internal_Note i_note
;
2352 Elf_External_Note e_note
;
2353 asection
*note_secp
= NULL
;
2356 /* create the .note section */
2358 note_secp
= subseg_new (".note", 0);
2359 bfd_set_section_flags (stdoutput
,
2361 SEC_HAS_CONTENTS
| SEC_READONLY
);
2363 /* process the version string */
2366 i_note
.descsz
= 12; /* 12 descriptive bytes */
2367 i_note
.type
= NT_VERSION
; /* Contains a version string */
2369 p
= frag_more (sizeof (i_note
.namesz
));
2370 md_number_to_chars (p
, i_note
.namesz
, 4);
2372 p
= frag_more (sizeof (i_note
.descsz
));
2373 md_number_to_chars (p
, i_note
.descsz
, 4);
2375 p
= frag_more (sizeof (i_note
.type
));
2376 md_number_to_chars (p
, i_note
.type
, 4);
2381 /* Note: this is the version number of the ELF we're representing */
2383 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2385 /* Here, we pick a magic number for ourselves (yes, I "registered"
2386 it with SCO. The bottom bit shows that we are compat with the
2389 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2391 /* If we knew (or cared) what the source language options were, we'd
2392 fill them in here. SCO has given us permission to ignore these
2393 and just set them to zero. */
2395 md_number_to_chars (p
, 0x0000, 4);
2397 frag_align (2, 0, 0);
2399 /* We probably can't restore the current segment, for there likely
2402 subseg_set (seg
, subseg
);
2406 #endif /* SCO_ELF */
2409 elf_generate_asm_lineno (void)
2411 #ifdef NEED_ECOFF_DEBUG
2412 if (ECOFF_DEBUGGING
)
2413 ecoff_generate_asm_lineno ();
2418 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2419 int what ATTRIBUTE_UNUSED
,
2420 const char *string ATTRIBUTE_UNUSED
,
2421 int type ATTRIBUTE_UNUSED
,
2422 int other ATTRIBUTE_UNUSED
,
2423 int desc ATTRIBUTE_UNUSED
)
2425 #ifdef NEED_ECOFF_DEBUG
2426 if (ECOFF_DEBUGGING
)
2427 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2432 elf_separate_stab_sections (void)
2434 #ifdef NEED_ECOFF_DEBUG
2435 return (!ECOFF_DEBUGGING
);
2442 elf_init_stab_section (segT seg
)
2444 #ifdef NEED_ECOFF_DEBUG
2445 if (!ECOFF_DEBUGGING
)
2447 obj_elf_init_stab_section (seg
);
2450 const struct format_ops elf_format_ops
=
2452 bfd_target_elf_flavour
,
2453 0, /* dfl_leading_underscore */
2454 1, /* emit_section_symbols */
2459 elf_frob_file_before_adjust
,
2460 0, /* obj_frob_file_before_fix */
2461 elf_frob_file_after_relocs
,
2462 elf_s_get_size
, elf_s_set_size
,
2463 elf_s_get_align
, elf_s_set_align
,
2470 elf_copy_symbol_attributes
,
2471 elf_generate_asm_lineno
,
2473 elf_separate_stab_sections
,
2474 elf_init_stab_section
,
2475 elf_sec_sym_ok_for_reloc
,
2477 #ifdef NEED_ECOFF_DEBUG
2480 0, /* ecoff_set_ext */
2482 elf_obj_read_begin_hook
,
2483 elf_obj_symbol_new_hook
,