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
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
);
450 symbol_get_obj (symbolP
)->local
= 1;
453 input_line_pointer
++;
455 if (*input_line_pointer
== '\n')
460 demand_empty_rest_of_line ();
464 obj_elf_visibility (int visibility
)
469 elf_symbol_type
*elfsym
;
473 symbolP
= get_sym_from_input_line_and_check ();
475 bfdsym
= symbol_get_bfdsym (symbolP
);
476 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
480 elfsym
->internal_elf_sym
.st_other
&= ~3;
481 elfsym
->internal_elf_sym
.st_other
|= visibility
;
483 c
= *input_line_pointer
;
486 input_line_pointer
++;
490 if (*input_line_pointer
== '\n')
496 demand_empty_rest_of_line ();
499 static segT previous_section
;
500 static int previous_subsection
;
504 struct section_stack
*next
;
506 int subseg
, prev_subseg
;
509 static struct section_stack
*section_stack
;
512 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
514 const char *gname
= (const char *) inf
;
515 const char *group_name
= elf_group_name (sec
);
517 return (group_name
== gname
518 || (group_name
!= NULL
520 && strcmp (group_name
, gname
) == 0));
523 /* Handle the .section pseudo-op. This code supports two different
526 The first is found on Solaris, and looks like
527 .section ".sec1",#alloc,#execinstr,#write
528 Here the names after '#' are the SHF_* flags to turn on for the
529 section. I'm not sure how it determines the SHT_* type (BFD
530 doesn't really give us control over the type, anyhow).
532 The second format is found on UnixWare, and probably most SVR4
533 machines, and looks like
534 .section .sec1,"a",@progbits
535 The quoted string may contain any combination of a, w, x, and
536 represents the SHF_* flags to turn on for the section. The string
537 beginning with '@' can be progbits or nobits. There should be
538 other possibilities, but I don't know what they are. In any case,
539 BFD doesn't really let us set the section type. */
542 obj_elf_change_section (const char *name
,
546 const char *group_name
,
553 const struct elf_backend_data
*bed
;
554 const struct bfd_elf_special_section
*ssect
;
556 #ifdef md_flush_pending_output
557 md_flush_pending_output ();
560 /* Switch to the section, creating it if necessary. */
563 struct section_stack
*elt
;
564 elt
= (struct section_stack
*) xmalloc (sizeof (struct section_stack
));
565 elt
->next
= section_stack
;
567 elt
->prev_seg
= previous_section
;
568 elt
->subseg
= now_subseg
;
569 elt
->prev_subseg
= previous_subsection
;
572 previous_section
= now_seg
;
573 previous_subsection
= now_subseg
;
575 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
576 (void *) group_name
);
583 sec
= subseg_force_new (name
, 0);
585 bed
= get_elf_backend_data (stdoutput
);
586 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
590 bfd_boolean override
= FALSE
;
592 if (type
== SHT_NULL
)
594 else if (type
!= ssect
->type
)
597 /* Some older versions of gcc will emit
599 .section .init_array,"aw",@progbits
601 for __attribute__ ((section (".init_array"))).
602 "@progbits" is incorrect. Also for x86-64 large bss
603 sections, some older versions of gcc will emit
605 .section .lbss,"aw",@progbits
607 "@progbits" is incorrect. */
609 && (bed
->s
->arch_size
!= 64
610 || !(ssect
->attr
& SHF_X86_64_LARGE
))
612 && ssect
->type
!= SHT_INIT_ARRAY
613 && ssect
->type
!= SHT_FINI_ARRAY
614 && ssect
->type
!= SHT_PREINIT_ARRAY
)
616 /* We allow to specify any type for a .note section. */
617 if (ssect
->type
!= SHT_NOTE
)
618 as_warn (_("setting incorrect section type for %s"),
623 as_warn (_("ignoring incorrect section type for %s"),
629 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
631 /* As a GNU extension, we permit a .note section to be
632 allocatable. If the linker sees an allocatable .note
633 section, it will create a PT_NOTE segment in the output
634 file. We also allow "x" for .note.GNU-stack. */
635 if (ssect
->type
== SHT_NOTE
636 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
638 /* Allow different SHF_MERGE and SHF_STRINGS if we have
639 something like .rodata.str. */
640 else if (ssect
->suffix_length
== -2
641 && name
[ssect
->prefix_length
] == '.'
645 & ~SHF_STRINGS
) == 0)
647 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
648 else if (attr
== SHF_ALLOC
649 && (strcmp (name
, ".interp") == 0
650 || strcmp (name
, ".strtab") == 0
651 || strcmp (name
, ".symtab") == 0))
653 /* .note.GNU-stack can have SHF_EXECINSTR. */
654 else if (attr
== SHF_EXECINSTR
655 && strcmp (name
, ".note.GNU-stack") == 0)
658 /* A section on Alpha may have SHF_ALPHA_GPREL. */
659 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
664 if (group_name
== NULL
)
665 as_warn (_("setting incorrect section attributes for %s"),
670 if (!override
&& old_sec
== NULL
)
674 /* Convert ELF type and flags to BFD flags. */
676 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
677 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
678 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
679 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
680 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
681 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
682 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
683 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
684 #ifdef md_elf_section_flags
685 flags
= md_elf_section_flags (flags
, attr
, type
);
689 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
695 if (type
== SHT_NULL
)
696 type
= bfd_elf_get_default_section_type (flags
);
697 elf_section_type (sec
) = type
;
698 elf_section_flags (sec
) = attr
;
700 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
701 if (type
== SHT_NOBITS
)
702 seg_info (sec
)->bss
= 1;
704 bfd_set_section_flags (stdoutput
, sec
, flags
);
705 if (flags
& SEC_MERGE
)
706 sec
->entsize
= entsize
;
707 elf_group_name (sec
) = group_name
;
709 /* Add a symbol for this section to the symbol table. */
710 secsym
= symbol_find (name
);
712 symbol_set_bfdsym (secsym
, sec
->symbol
);
714 symbol_table_insert (section_symbol (sec
));
719 && (unsigned) type
!= elf_section_type (old_sec
))
720 as_warn (_("ignoring changed section type for %s"), name
);
724 /* If section attributes are specified the second time we see a
725 particular section, then check that they are the same as we
726 saw the first time. */
727 if (((old_sec
->flags
^ flags
)
728 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
729 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
730 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
731 | SEC_THREAD_LOCAL
)))
732 as_warn (_("ignoring changed section attributes for %s"), name
);
733 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
734 as_warn (_("ignoring changed section entity size for %s"), name
);
738 #ifdef md_elf_section_change_hook
739 md_elf_section_change_hook ();
744 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*clone
)
763 attr
|= SHF_EXECINSTR
;
782 if (*(str
- 1) == 'a')
785 if (len
> 1 && str
[1] == 's')
794 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
795 #ifdef md_elf_section_letter
796 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
797 if (md_attr
!= (bfd_vma
) -1)
801 as_fatal ("%s", bad_msg
);
812 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
814 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
816 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
818 if (len
== 4 && strncmp (str
, "note", 4) == 0)
820 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
821 return SHT_INIT_ARRAY
;
822 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
823 return SHT_FINI_ARRAY
;
824 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
825 return SHT_PREINIT_ARRAY
;
827 #ifdef md_elf_section_type
829 int md_type
= md_elf_section_type (str
, len
);
836 as_warn (_("unrecognized section type"));
841 obj_elf_section_word (char *str
, size_t len
, int *type
)
845 if (len
== 5 && strncmp (str
, "write", 5) == 0)
847 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
849 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
850 return SHF_EXECINSTR
;
851 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
853 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
856 #ifdef md_elf_section_word
858 bfd_vma md_attr
= md_elf_section_word (str
, len
);
864 ret
= obj_elf_section_type (str
, len
, FALSE
);
868 as_warn (_("unrecognized section attribute"));
873 /* Get name of section. */
875 obj_elf_section_name (void)
880 if (*input_line_pointer
== '"')
884 name
= demand_copy_C_string (&dummy
);
887 ignore_rest_of_line ();
893 char *end
= input_line_pointer
;
895 while (0 == strchr ("\n\t,; ", *end
))
897 if (end
== input_line_pointer
)
899 as_bad (_("missing name"));
900 ignore_rest_of_line ();
904 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
905 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
906 name
[end
- input_line_pointer
] = '\0';
907 #ifdef tc_canonicalize_section_name
908 name
= tc_canonicalize_section_name (name
);
910 input_line_pointer
= end
;
917 obj_elf_section (int push
)
919 char *name
, *group_name
, *beg
;
924 subsegT new_subsection
= -1;
931 #ifdef md_flush_pending_output
932 md_flush_pending_output ();
935 previous_section
= now_seg
;
936 previous_subsection
= now_subseg
;
938 s_mri_sect (&mri_type
);
940 #ifdef md_elf_section_change_hook
941 md_elf_section_change_hook ();
946 #endif /* ! defined (TC_I370) */
948 name
= obj_elf_section_name ();
957 if (*input_line_pointer
== ',')
959 /* Skip the comma. */
960 ++input_line_pointer
;
963 if (push
&& ISDIGIT (*input_line_pointer
))
965 /* .pushsection has an optional subsection. */
966 new_subsection
= (subsegT
) get_absolute_expression ();
970 /* Stop if we don't see a comma. */
971 if (*input_line_pointer
!= ',')
974 /* Skip the comma. */
975 ++input_line_pointer
;
979 if (*input_line_pointer
== '"')
983 beg
= demand_copy_C_string (&dummy
);
986 ignore_rest_of_line ();
990 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &clone
);
993 if (*input_line_pointer
== ',')
996 char *save
= input_line_pointer
;
998 ++input_line_pointer
;
1000 c
= *input_line_pointer
;
1003 beg
= demand_copy_C_string (&dummy
);
1006 ignore_rest_of_line ();
1010 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1012 else if (c
== '@' || c
== '%')
1014 beg
= ++input_line_pointer
;
1015 c
= get_symbol_end ();
1016 *input_line_pointer
= c
;
1017 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1020 input_line_pointer
= save
;
1024 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1026 ++input_line_pointer
;
1028 entsize
= get_absolute_expression ();
1032 as_warn (_("invalid merge entity size"));
1037 else if ((attr
& SHF_MERGE
) != 0)
1039 as_warn (_("entity size for SHF_MERGE not specified"));
1043 if ((attr
& SHF_GROUP
) != 0 && clone
)
1045 as_warn (_("? section flag ignored with G present"));
1048 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1050 ++input_line_pointer
;
1051 group_name
= obj_elf_section_name ();
1052 if (group_name
== NULL
)
1054 else if (strncmp (input_line_pointer
, ",comdat", 7) == 0)
1056 input_line_pointer
+= 7;
1059 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1062 else if ((attr
& SHF_GROUP
) != 0)
1064 as_warn (_("group name for SHF_GROUP not specified"));
1070 const char *now_group
= elf_group_name (now_seg
);
1071 if (now_group
!= NULL
)
1073 group_name
= xstrdup (now_group
);
1074 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1085 if (*input_line_pointer
!= '#')
1087 as_bad (_("character following name is not '#'"));
1088 ignore_rest_of_line ();
1092 beg
= ++input_line_pointer
;
1093 c
= get_symbol_end ();
1094 *input_line_pointer
= c
;
1096 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1100 while (*input_line_pointer
++ == ',');
1101 --input_line_pointer
;
1106 demand_empty_rest_of_line ();
1108 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1110 if (push
&& new_subsection
!= -1)
1111 subseg_set (now_seg
, new_subsection
);
1114 /* Change to the .data section. */
1117 obj_elf_data (int i
)
1119 #ifdef md_flush_pending_output
1120 md_flush_pending_output ();
1123 previous_section
= now_seg
;
1124 previous_subsection
= now_subseg
;
1127 #ifdef md_elf_section_change_hook
1128 md_elf_section_change_hook ();
1132 /* Change to the .text section. */
1135 obj_elf_text (int i
)
1137 #ifdef md_flush_pending_output
1138 md_flush_pending_output ();
1141 previous_section
= now_seg
;
1142 previous_subsection
= now_subseg
;
1145 #ifdef md_elf_section_change_hook
1146 md_elf_section_change_hook ();
1150 /* Change to the *ABS* section. */
1153 obj_elf_struct (int i
)
1155 #ifdef md_flush_pending_output
1156 md_flush_pending_output ();
1159 previous_section
= now_seg
;
1160 previous_subsection
= now_subseg
;
1163 #ifdef md_elf_section_change_hook
1164 md_elf_section_change_hook ();
1169 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1173 #ifdef md_flush_pending_output
1174 md_flush_pending_output ();
1177 previous_section
= now_seg
;
1178 previous_subsection
= now_subseg
;
1180 temp
= get_absolute_expression ();
1181 subseg_set (now_seg
, (subsegT
) temp
);
1182 demand_empty_rest_of_line ();
1184 #ifdef md_elf_section_change_hook
1185 md_elf_section_change_hook ();
1189 /* This can be called from the processor backends if they change
1193 obj_elf_section_change_hook (void)
1195 previous_section
= now_seg
;
1196 previous_subsection
= now_subseg
;
1200 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1205 if (previous_section
== 0)
1207 as_warn (_(".previous without corresponding .section; ignored"));
1211 #ifdef md_flush_pending_output
1212 md_flush_pending_output ();
1215 new_section
= previous_section
;
1216 new_subsection
= previous_subsection
;
1217 previous_section
= now_seg
;
1218 previous_subsection
= now_subseg
;
1219 subseg_set (new_section
, new_subsection
);
1221 #ifdef md_elf_section_change_hook
1222 md_elf_section_change_hook ();
1227 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1229 struct section_stack
*top
= section_stack
;
1233 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1237 #ifdef md_flush_pending_output
1238 md_flush_pending_output ();
1241 section_stack
= top
->next
;
1242 previous_section
= top
->prev_seg
;
1243 previous_subsection
= top
->prev_subseg
;
1244 subseg_set (top
->seg
, top
->subseg
);
1247 #ifdef md_elf_section_change_hook
1248 md_elf_section_change_hook ();
1253 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1255 /* Assume delimiter is part of expression. BSD4.2 as fails with
1256 delightful bug, so we are not being incompatible here. */
1257 new_logical_line (NULL
, get_absolute_expression ());
1258 demand_empty_rest_of_line ();
1261 /* This handles the .symver pseudo-op, which is used to specify a
1262 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1263 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1264 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1265 with the same value as the symbol NAME. */
1268 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1275 sym
= get_sym_from_input_line_and_check ();
1277 if (*input_line_pointer
!= ',')
1279 as_bad (_("expected comma after name in .symver"));
1280 ignore_rest_of_line ();
1284 ++input_line_pointer
;
1286 name
= input_line_pointer
;
1288 /* Temporarily include '@' in symbol names. */
1289 old_lexat
= lex_type
[(unsigned char) '@'];
1290 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1291 c
= get_symbol_end ();
1292 lex_type
[(unsigned char) '@'] = old_lexat
;
1294 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1296 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1298 *input_line_pointer
= c
;
1300 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1301 ELF_VER_CHR
) == NULL
)
1303 as_bad (_("missing version name in `%s' for symbol `%s'"),
1304 symbol_get_obj (sym
)->versioned_name
,
1306 ignore_rest_of_line ();
1312 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1314 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1315 name
, symbol_get_obj (sym
)->versioned_name
,
1317 ignore_rest_of_line ();
1321 *input_line_pointer
= c
;
1324 demand_empty_rest_of_line ();
1327 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1328 to the linker the hierarchy in which a particular table resides. The
1329 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1332 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1334 char *cname
, *pname
;
1335 symbolS
*csym
, *psym
;
1338 if (*input_line_pointer
== '#')
1339 ++input_line_pointer
;
1341 cname
= input_line_pointer
;
1342 c
= get_symbol_end ();
1343 csym
= symbol_find (cname
);
1345 /* GCFIXME: should check that we don't have two .vtable_inherits for
1346 the same child symbol. Also, we can currently only do this if the
1347 child symbol is already exists and is placed in a fragment. */
1349 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1351 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1356 *input_line_pointer
= c
;
1359 if (*input_line_pointer
!= ',')
1361 as_bad (_("expected comma after name in .vtable_inherit"));
1362 ignore_rest_of_line ();
1366 ++input_line_pointer
;
1369 if (*input_line_pointer
== '#')
1370 ++input_line_pointer
;
1372 if (input_line_pointer
[0] == '0'
1373 && (input_line_pointer
[1] == '\0'
1374 || ISSPACE (input_line_pointer
[1])))
1376 psym
= section_symbol (absolute_section
);
1377 ++input_line_pointer
;
1381 pname
= input_line_pointer
;
1382 c
= get_symbol_end ();
1383 psym
= symbol_find_or_make (pname
);
1384 *input_line_pointer
= c
;
1387 demand_empty_rest_of_line ();
1392 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1393 return fix_new (symbol_get_frag (csym
),
1394 symbol_get_value_expression (csym
)->X_add_number
,
1395 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1398 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1399 to the linker that a vtable slot was used. The syntax is
1400 ".vtable_entry tablename, offset". */
1403 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1408 if (*input_line_pointer
== '#')
1409 ++input_line_pointer
;
1411 sym
= get_sym_from_input_line_and_check ();
1412 if (*input_line_pointer
!= ',')
1414 as_bad (_("expected comma after name in .vtable_entry"));
1415 ignore_rest_of_line ();
1419 ++input_line_pointer
;
1420 if (*input_line_pointer
== '#')
1421 ++input_line_pointer
;
1423 offset
= get_absolute_expression ();
1425 demand_empty_rest_of_line ();
1427 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1428 BFD_RELOC_VTABLE_ENTRY
);
1432 elf_obj_read_begin_hook (void)
1434 #ifdef NEED_ECOFF_DEBUG
1435 if (ECOFF_DEBUGGING
)
1436 ecoff_read_begin_hook ();
1441 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1443 struct elf_obj_sy
*sy_obj
;
1445 sy_obj
= symbol_get_obj (symbolP
);
1446 sy_obj
->size
= NULL
;
1447 sy_obj
->versioned_name
= NULL
;
1449 #ifdef NEED_ECOFF_DEBUG
1450 if (ECOFF_DEBUGGING
)
1451 ecoff_symbol_new_hook (symbolP
);
1455 /* When setting one symbol equal to another, by default we probably
1456 want them to have the same "size", whatever it means in the current
1460 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1462 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1463 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1466 if (destelf
->size
== NULL
)
1467 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1468 *destelf
->size
= *srcelf
->size
;
1472 if (destelf
->size
!= NULL
)
1473 free (destelf
->size
);
1474 destelf
->size
= NULL
;
1476 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1477 /* Don't copy visibility. */
1478 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1479 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1483 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1488 asection
*seg
= now_seg
;
1489 subsegT subseg
= now_subseg
;
1490 Elf_Internal_Note i_note
;
1491 Elf_External_Note e_note
;
1492 asection
*note_secp
= NULL
;
1495 if (*input_line_pointer
== '\"')
1499 ++input_line_pointer
; /* -> 1st char of string. */
1500 name
= input_line_pointer
;
1502 while (is_a_char (c
= next_char_of_string ()))
1504 c
= *input_line_pointer
;
1505 *input_line_pointer
= '\0';
1506 *(input_line_pointer
- 1) = '\0';
1507 *input_line_pointer
= c
;
1509 /* Create the .note section. */
1510 note_secp
= subseg_new (".note", 0);
1511 bfd_set_section_flags (stdoutput
,
1513 SEC_HAS_CONTENTS
| SEC_READONLY
);
1515 /* Process the version string. */
1516 len
= strlen (name
) + 1;
1518 /* PR 3456: Although the name field is padded out to an 4-byte
1519 boundary, the namesz field should not be adjusted. */
1520 i_note
.namesz
= len
;
1521 i_note
.descsz
= 0; /* No description. */
1522 i_note
.type
= NT_VERSION
;
1523 p
= frag_more (sizeof (e_note
.namesz
));
1524 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1525 p
= frag_more (sizeof (e_note
.descsz
));
1526 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1527 p
= frag_more (sizeof (e_note
.type
));
1528 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1529 p
= frag_more (len
);
1530 memcpy (p
, name
, len
);
1532 frag_align (2, 0, 0);
1534 subseg_set (seg
, subseg
);
1537 as_bad (_("expected quoted string"));
1539 demand_empty_rest_of_line ();
1543 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1545 char *name
= input_line_pointer
;
1546 char c
= get_symbol_end ();
1551 p
= input_line_pointer
;
1554 if (*input_line_pointer
!= ',')
1557 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1559 ignore_rest_of_line ();
1562 input_line_pointer
++;
1564 if (exp
.X_op
== O_absent
)
1566 as_bad (_("missing expression in .size directive"));
1567 exp
.X_op
= O_constant
;
1568 exp
.X_add_number
= 0;
1571 sym
= symbol_find_or_make (name
);
1573 if (exp
.X_op
== O_constant
)
1575 S_SET_SIZE (sym
, exp
.X_add_number
);
1576 if (symbol_get_obj (sym
)->size
)
1578 xfree (symbol_get_obj (sym
)->size
);
1579 symbol_get_obj (sym
)->size
= NULL
;
1584 symbol_get_obj (sym
)->size
=
1585 (expressionS
*) xmalloc (sizeof (expressionS
));
1586 *symbol_get_obj (sym
)->size
= exp
;
1588 demand_empty_rest_of_line ();
1591 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1592 There are six syntaxes:
1594 The first (used on Solaris) is
1596 The second (used on UnixWare) is
1598 The third (reportedly to be used on Irix 6.0) is
1600 The fourth (used on NetBSD/Arm and Linux/ARM) is
1602 The fifth (used on SVR4/860) is
1603 .type SYM,"function"
1604 The sixth (emitted by recent SunPRO under Solaris) is
1606 where the integer is the STT_* value.
1610 obj_elf_type_name (char *cp
)
1614 p
= input_line_pointer
;
1615 if (*input_line_pointer
>= '0'
1616 && *input_line_pointer
<= '9')
1618 while (*input_line_pointer
>= '0'
1619 && *input_line_pointer
<= '9')
1620 ++input_line_pointer
;
1621 *cp
= *input_line_pointer
;
1622 *input_line_pointer
= '\0';
1625 *cp
= get_symbol_end ();
1631 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1635 const char *type_name
;
1637 elf_symbol_type
*elfsym
;
1639 sym
= get_sym_from_input_line_and_check ();
1640 c
= *input_line_pointer
;
1641 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1643 if (*input_line_pointer
== ',')
1644 ++input_line_pointer
;
1647 if ( *input_line_pointer
== '#'
1648 || *input_line_pointer
== '@'
1649 || *input_line_pointer
== '"'
1650 || *input_line_pointer
== '%')
1651 ++input_line_pointer
;
1653 type_name
= obj_elf_type_name (& c
);
1656 if (strcmp (type_name
, "function") == 0
1657 || strcmp (type_name
, "2") == 0
1658 || strcmp (type_name
, "STT_FUNC") == 0)
1659 type
= BSF_FUNCTION
;
1660 else if (strcmp (type_name
, "object") == 0
1661 || strcmp (type_name
, "1") == 0
1662 || strcmp (type_name
, "STT_OBJECT") == 0)
1664 else if (strcmp (type_name
, "tls_object") == 0
1665 || strcmp (type_name
, "6") == 0
1666 || strcmp (type_name
, "STT_TLS") == 0)
1667 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1668 else if (strcmp (type_name
, "notype") == 0
1669 || strcmp (type_name
, "0") == 0
1670 || strcmp (type_name
, "STT_NOTYPE") == 0)
1672 else if (strcmp (type_name
, "common") == 0
1673 || strcmp (type_name
, "5") == 0
1674 || strcmp (type_name
, "STT_COMMON") == 0)
1678 if (! S_IS_COMMON (sym
))
1680 if (S_IS_VOLATILE (sym
))
1682 sym
= symbol_clone (sym
, 1);
1683 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1684 S_SET_VALUE (sym
, 0);
1685 S_SET_EXTERNAL (sym
);
1686 symbol_set_frag (sym
, &zero_address_frag
);
1687 S_CLEAR_VOLATILE (sym
);
1689 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1690 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1693 /* FIXME: Is it safe to just change the section ? */
1694 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1695 S_SET_VALUE (sym
, 0);
1696 S_SET_EXTERNAL (sym
);
1700 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1701 || strcmp (type_name
, "10") == 0
1702 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1704 const struct elf_backend_data
*bed
;
1706 bed
= get_elf_backend_data (stdoutput
);
1707 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1708 /* GNU/Linux is still using the default value 0. */
1709 || bed
->elf_osabi
== ELFOSABI_NONE
))
1710 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1712 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1714 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1716 struct elf_backend_data
*bed
;
1718 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1719 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1720 /* GNU/Linux is still using the default value 0. */
1721 || bed
->elf_osabi
== ELFOSABI_NONE
))
1722 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1724 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1725 /* PR 10549: Always set OSABI field to LINUX for objects containing unique symbols. */
1726 bed
->elf_osabi
= ELFOSABI_LINUX
;
1728 #ifdef md_elf_symbol_type
1729 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1733 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1735 *input_line_pointer
= c
;
1737 if (*input_line_pointer
== '"')
1738 ++input_line_pointer
;
1740 elfsym
->symbol
.flags
|= type
;
1742 demand_empty_rest_of_line ();
1746 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1748 static segT comment_section
;
1749 segT old_section
= now_seg
;
1750 int old_subsection
= now_subseg
;
1752 #ifdef md_flush_pending_output
1753 md_flush_pending_output ();
1756 if (!comment_section
)
1759 comment_section
= subseg_new (".comment", 0);
1760 bfd_set_section_flags (stdoutput
, comment_section
,
1761 SEC_READONLY
| SEC_HAS_CONTENTS
1762 | SEC_MERGE
| SEC_STRINGS
);
1763 comment_section
->entsize
= 1;
1764 #ifdef md_elf_section_change_hook
1765 md_elf_section_change_hook ();
1771 subseg_set (comment_section
, 0);
1773 subseg_set (old_section
, old_subsection
);
1776 #ifdef INIT_STAB_SECTION
1778 /* The first entry in a .stabs section is special. */
1781 obj_elf_init_stab_section (segT seg
)
1786 unsigned int stroff
;
1788 /* Force the section to align to a longword boundary. Without this,
1789 UnixWare ar crashes. */
1790 bfd_set_section_alignment (stdoutput
, seg
, 2);
1792 /* Make space for this first symbol. */
1796 as_where (&file
, NULL
);
1797 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
1798 strcpy (stabstr_name
, segment_name (seg
));
1799 strcat (stabstr_name
, "str");
1800 stroff
= get_stab_string_offset (file
, stabstr_name
);
1801 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
1802 md_number_to_chars (p
, stroff
, 4);
1803 seg_info (seg
)->stabu
.p
= p
;
1808 /* Fill in the counts in the first entry in a .stabs section. */
1811 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
1818 if (strncmp (".stab", sec
->name
, 5))
1820 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
1823 name
= (char *) alloca (strlen (sec
->name
) + 4);
1824 strcpy (name
, sec
->name
);
1825 strcat (name
, "str");
1826 strsec
= bfd_get_section_by_name (abfd
, name
);
1828 strsz
= bfd_section_size (abfd
, strsec
);
1831 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
1833 p
= seg_info (sec
)->stabu
.p
;
1834 gas_assert (p
!= 0);
1836 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
1837 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
1840 #ifdef NEED_ECOFF_DEBUG
1842 /* This function is called by the ECOFF code. It is supposed to
1843 record the external symbol information so that the backend can
1844 write it out correctly. The ELF backend doesn't actually handle
1845 this at the moment, so we do it ourselves. We save the information
1848 #ifdef OBJ_MAYBE_ELF
1852 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
1854 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
1857 /* This function is called by bfd_ecoff_debug_externals. It is
1858 supposed to *EXT to the external symbol information, and return
1859 whether the symbol should be used at all. */
1862 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
1864 if (sym
->udata
.p
== NULL
)
1866 *ext
= *(EXTR
*) sym
->udata
.p
;
1870 /* This function is called by bfd_ecoff_debug_externals. It has
1871 nothing to do for ELF. */
1874 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
1875 bfd_size_type indx ATTRIBUTE_UNUSED
)
1879 #endif /* NEED_ECOFF_DEBUG */
1882 elf_frob_symbol (symbolS
*symp
, int *puntp
)
1884 struct elf_obj_sy
*sy_obj
;
1887 #ifdef NEED_ECOFF_DEBUG
1888 if (ECOFF_DEBUGGING
)
1889 ecoff_frob_symbol (symp
);
1892 sy_obj
= symbol_get_obj (symp
);
1894 size
= sy_obj
->size
;
1897 if (resolve_expression (size
)
1898 && size
->X_op
== O_constant
)
1899 S_SET_SIZE (symp
, size
->X_add_number
);
1902 if (flag_size_check
== size_check_error
)
1903 as_bad (_(".size expression for %s "
1904 "does not evaluate to a constant"), S_GET_NAME (symp
));
1906 as_warn (_(".size expression for %s "
1907 "does not evaluate to a constant"), S_GET_NAME (symp
));
1909 free (sy_obj
->size
);
1910 sy_obj
->size
= NULL
;
1913 if (sy_obj
->versioned_name
!= NULL
)
1917 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
1920 /* This symbol was given a new name with the .symver directive.
1922 If this is an external reference, just rename the symbol to
1923 include the version string. This will make the relocs be
1924 against the correct versioned symbol.
1926 If this is a definition, add an alias. FIXME: Using an alias
1927 will permit the debugging information to refer to the right
1928 symbol. However, it's not clear whether it is the best
1931 if (! S_IS_DEFINED (symp
))
1933 /* Verify that the name isn't using the @@ syntax--this is
1934 reserved for definitions of the default version to link
1936 if (p
[1] == ELF_VER_CHR
)
1938 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1939 sy_obj
->versioned_name
);
1942 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1946 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
1950 /* The @@@ syntax is a special case. It renames the
1951 symbol name to versioned_name with one `@' removed. */
1952 l
= strlen (&p
[3]) + 1;
1953 memmove (&p
[2], &p
[3], l
);
1954 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1960 /* FIXME: Creating a new symbol here is risky. We're
1961 in the final loop over the symbol table. We can
1962 get away with it only because the symbol goes to
1963 the end of the list, where the loop will still see
1964 it. It would probably be better to do this in
1965 obj_frob_file_before_adjust. */
1967 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
1969 /* Now we act as though we saw symp2 = sym. */
1971 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
1973 /* Subtracting out the frag address here is a hack
1974 because we are in the middle of the final loop. */
1977 - symbol_get_frag (symp
)->fr_address
));
1979 symbol_set_frag (symp2
, symbol_get_frag (symp
));
1981 /* This will copy over the size information. */
1982 copy_symbol_attributes (symp2
, symp
);
1984 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
1986 if (S_IS_WEAK (symp
))
1989 if (S_IS_EXTERNAL (symp
))
1990 S_SET_EXTERNAL (symp2
);
1995 /* Double check weak symbols. */
1996 if (S_IS_WEAK (symp
))
1998 if (S_IS_COMMON (symp
))
1999 as_bad (_("symbol `%s' can not be both weak and common"),
2004 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2005 any undefined non-function symbol to STT_OBJECT. We try to be
2006 compatible, since newer Irix 5 and 6 linkers care. However, we
2007 only set undefined symbols to be STT_OBJECT if we are on Irix,
2008 because that is the only time gcc will generate the necessary
2009 .global directives to mark functions. */
2011 if (S_IS_COMMON (symp
))
2012 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2014 if (strstr (TARGET_OS
, "irix") != NULL
2015 && ! S_IS_DEFINED (symp
)
2016 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2017 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2023 asection
**head
; /* Section lists. */
2024 unsigned int *elt_count
; /* Number of sections in each list. */
2025 unsigned int num_group
; /* Number of lists. */
2026 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2029 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2030 add it to a list of sections belonging to the group. INF is a
2031 pointer to a struct group_list, which is where we store the head of
2035 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2037 struct group_list
*list
= (struct group_list
*) inf
;
2038 const char *group_name
= elf_group_name (sec
);
2040 unsigned int *elem_idx
;
2041 unsigned int *idx_ptr
;
2043 if (group_name
== NULL
)
2046 /* If this group already has a list, add the section to the head of
2048 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2049 if (elem_idx
!= NULL
)
2051 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2052 list
->head
[*elem_idx
] = sec
;
2053 list
->elt_count
[*elem_idx
] += 1;
2057 /* New group. Make the arrays bigger in chunks to minimize calls to
2059 i
= list
->num_group
;
2062 unsigned int newsize
= i
+ 128;
2063 list
->head
= (asection
**) xrealloc (list
->head
,
2064 newsize
* sizeof (*list
->head
));
2065 list
->elt_count
= (unsigned int *)
2066 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2068 list
->head
[i
] = sec
;
2069 list
->elt_count
[i
] = 1;
2070 list
->num_group
+= 1;
2072 /* Add index to hash. */
2073 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2075 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2078 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2080 free ((unsigned int *) val
);
2084 elf_adjust_symtab (void)
2086 struct group_list list
;
2089 /* Go find section groups. */
2092 list
.elt_count
= NULL
;
2093 list
.indexes
= hash_new ();
2094 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2096 /* Make the SHT_GROUP sections that describe each section group. We
2097 can't set up the section contents here yet, because elf section
2098 indices have yet to be calculated. elf.c:set_group_contents does
2099 the rest of the work. */
2100 for (i
= 0; i
< list
.num_group
; i
++)
2102 const char *group_name
= elf_group_name (list
.head
[i
]);
2103 const char *sec_name
;
2109 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2110 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2111 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2113 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2114 if (s
!= list
.head
[i
])
2116 as_warn (_("assuming all members of group `%s' are COMDAT"),
2122 sec_name
= ".group";
2123 s
= subseg_force_new (sec_name
, 0);
2125 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2126 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2128 as_fatal (_("can't create group: %s"),
2129 bfd_errmsg (bfd_get_error ()));
2131 elf_section_type (s
) = SHT_GROUP
;
2133 /* Pass a pointer to the first section in this group. */
2134 elf_next_in_group (s
) = list
.head
[i
];
2135 /* Make sure that the signature symbol for the group has the
2136 name of the group. */
2137 sy
= symbol_find_exact (group_name
);
2139 || (sy
!= symbol_lastP
2140 && (sy
->sy_next
== NULL
2141 || sy
->sy_next
->sy_previous
!= sy
)))
2143 /* Create the symbol now. */
2144 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2146 /* Before Solaris 11 build 154, Sun ld rejects local group
2147 signature symbols, so make them weak hidden instead. */
2148 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2149 S_SET_OTHER (sy
, STV_HIDDEN
);
2151 symbol_get_obj (sy
)->local
= 1;
2153 symbol_table_insert (sy
);
2155 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2157 size
= 4 * (list
.elt_count
[i
] + 1);
2158 bfd_set_section_size (stdoutput
, s
, size
);
2159 s
->contents
= (unsigned char *) frag_more (size
);
2160 frag_now
->fr_fix
= frag_now_fix_octets ();
2161 frag_wane (frag_now
);
2165 hash_traverse (list
.indexes
, free_section_idx
);
2166 hash_die (list
.indexes
);
2170 elf_frob_file (void)
2172 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2174 #ifdef elf_tc_final_processing
2175 elf_tc_final_processing ();
2179 /* It removes any unneeded versioned symbols from the symbol table. */
2182 elf_frob_file_before_adjust (void)
2188 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2189 if (!S_IS_DEFINED (symp
))
2191 if (symbol_get_obj (symp
)->versioned_name
)
2195 /* The @@@ syntax is a special case. If the symbol is
2196 not defined, 2 `@'s will be removed from the
2199 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2202 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2204 size_t l
= strlen (&p
[3]) + 1;
2205 memmove (&p
[1], &p
[3], l
);
2207 if (symbol_used_p (symp
) == 0
2208 && symbol_used_in_reloc_p (symp
) == 0)
2209 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2212 /* If there was .weak foo, but foo was neither defined nor
2213 used anywhere, remove it. */
2215 else if (S_IS_WEAK (symp
)
2216 && symbol_used_p (symp
) == 0
2217 && symbol_used_in_reloc_p (symp
) == 0)
2218 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2223 /* It is required that we let write_relocs have the opportunity to
2224 optimize away fixups before output has begun, since it is possible
2225 to eliminate all fixups for a section and thus we never should
2226 have generated the relocation section. */
2229 elf_frob_file_after_relocs (void)
2231 #ifdef NEED_ECOFF_DEBUG
2232 if (ECOFF_DEBUGGING
)
2233 /* Generate the ECOFF debugging information. */
2235 const struct ecoff_debug_swap
*debug_swap
;
2236 struct ecoff_debug_info debug
;
2241 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2242 know (debug_swap
!= NULL
);
2243 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2245 /* Set up the pointers in debug. */
2246 #define SET(ptr, offset, type) \
2247 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2249 SET (line
, cbLineOffset
, unsigned char *);
2250 SET (external_dnr
, cbDnOffset
, void *);
2251 SET (external_pdr
, cbPdOffset
, void *);
2252 SET (external_sym
, cbSymOffset
, void *);
2253 SET (external_opt
, cbOptOffset
, void *);
2254 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2255 SET (ss
, cbSsOffset
, char *);
2256 SET (external_fdr
, cbFdOffset
, void *);
2257 SET (external_rfd
, cbRfdOffset
, void *);
2258 /* ssext and external_ext are set up just below. */
2262 /* Set up the external symbols. */
2263 debug
.ssext
= debug
.ssext_end
= NULL
;
2264 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2265 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2266 elf_get_extr
, elf_set_index
))
2267 as_fatal (_("failed to set up debugging information: %s"),
2268 bfd_errmsg (bfd_get_error ()));
2270 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2271 gas_assert (sec
!= NULL
);
2273 know (!stdoutput
->output_has_begun
);
2275 /* We set the size of the section, call bfd_set_section_contents
2276 to force the ELF backend to allocate a file position, and then
2277 write out the data. FIXME: Is this really the best way to do
2279 bfd_set_section_size
2280 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2282 /* Pass BUF to bfd_set_section_contents because this will
2283 eventually become a call to fwrite, and ISO C prohibits
2284 passing a NULL pointer to a stdio function even if the
2285 pointer will not be used. */
2286 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2287 as_fatal (_("can't start writing .mdebug section: %s"),
2288 bfd_errmsg (bfd_get_error ()));
2290 know (stdoutput
->output_has_begun
);
2291 know (sec
->filepos
!= 0);
2293 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2295 as_fatal (_("could not write .mdebug section: %s"),
2296 bfd_errmsg (bfd_get_error ()));
2298 #endif /* NEED_ECOFF_DEBUG */
2303 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2304 SCO specific identifier in the .notes section to satisfy the SCO
2307 This looks more complicated than it really is. As opposed to the
2308 "obvious" solution, this should handle the cross dev cases
2309 correctly. (i.e, hosting on a 64 bit big endian processor, but
2310 generating SCO Elf code) Efficiency isn't a concern, as there
2311 should be exactly one of these sections per object module.
2313 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2316 int_32 namesz = 4 ; Name size
2317 int_32 descsz = 12 ; Descriptive information
2319 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2320 int_32 version = (major ver # << 16) | version of tools ;
2321 int_32 source = (tool_id << 16 ) | 1 ;
2322 int_32 info = 0 ; These are set by the SCO tools, but we
2323 don't know enough about the source
2324 environment to set them. SCO ld currently
2325 ignores them, and recommends we set them
2328 #define SCO_MAJOR_VERSION 0x1
2329 #define SCO_MINOR_VERSION 0x1
2339 asection
*seg
= now_seg
;
2340 subsegT subseg
= now_subseg
;
2341 Elf_Internal_Note i_note
;
2342 Elf_External_Note e_note
;
2343 asection
*note_secp
= NULL
;
2346 /* create the .note section */
2348 note_secp
= subseg_new (".note", 0);
2349 bfd_set_section_flags (stdoutput
,
2351 SEC_HAS_CONTENTS
| SEC_READONLY
);
2353 /* process the version string */
2356 i_note
.descsz
= 12; /* 12 descriptive bytes */
2357 i_note
.type
= NT_VERSION
; /* Contains a version string */
2359 p
= frag_more (sizeof (i_note
.namesz
));
2360 md_number_to_chars (p
, i_note
.namesz
, 4);
2362 p
= frag_more (sizeof (i_note
.descsz
));
2363 md_number_to_chars (p
, i_note
.descsz
, 4);
2365 p
= frag_more (sizeof (i_note
.type
));
2366 md_number_to_chars (p
, i_note
.type
, 4);
2371 /* Note: this is the version number of the ELF we're representing */
2373 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2375 /* Here, we pick a magic number for ourselves (yes, I "registered"
2376 it with SCO. The bottom bit shows that we are compat with the
2379 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2381 /* If we knew (or cared) what the source language options were, we'd
2382 fill them in here. SCO has given us permission to ignore these
2383 and just set them to zero. */
2385 md_number_to_chars (p
, 0x0000, 4);
2387 frag_align (2, 0, 0);
2389 /* We probably can't restore the current segment, for there likely
2392 subseg_set (seg
, subseg
);
2396 #endif /* SCO_ELF */
2399 elf_generate_asm_lineno (void)
2401 #ifdef NEED_ECOFF_DEBUG
2402 if (ECOFF_DEBUGGING
)
2403 ecoff_generate_asm_lineno ();
2408 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2409 int what ATTRIBUTE_UNUSED
,
2410 const char *string ATTRIBUTE_UNUSED
,
2411 int type ATTRIBUTE_UNUSED
,
2412 int other ATTRIBUTE_UNUSED
,
2413 int desc ATTRIBUTE_UNUSED
)
2415 #ifdef NEED_ECOFF_DEBUG
2416 if (ECOFF_DEBUGGING
)
2417 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2422 elf_separate_stab_sections (void)
2424 #ifdef NEED_ECOFF_DEBUG
2425 return (!ECOFF_DEBUGGING
);
2432 elf_init_stab_section (segT seg
)
2434 #ifdef NEED_ECOFF_DEBUG
2435 if (!ECOFF_DEBUGGING
)
2437 obj_elf_init_stab_section (seg
);
2440 const struct format_ops elf_format_ops
=
2442 bfd_target_elf_flavour
,
2443 0, /* dfl_leading_underscore */
2444 1, /* emit_section_symbols */
2449 elf_frob_file_before_adjust
,
2450 0, /* obj_frob_file_before_fix */
2451 elf_frob_file_after_relocs
,
2452 elf_s_get_size
, elf_s_set_size
,
2453 elf_s_get_align
, elf_s_set_align
,
2460 elf_copy_symbol_attributes
,
2461 elf_generate_asm_lineno
,
2463 elf_separate_stab_sections
,
2464 elf_init_stab_section
,
2465 elf_sec_sym_ok_for_reloc
,
2467 #ifdef NEED_ECOFF_DEBUG
2470 0, /* ecoff_set_ext */
2472 elf_obj_read_begin_hook
,
2473 elf_obj_symbol_new_hook
,