1 /* ELF object file format
2 Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009
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)
264 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
265 symbol_set_frag (sym
, &zero_address_frag
);
266 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
268 if (symbol_rootP
!= sym
)
270 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
271 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
273 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
278 #ifdef NEED_ECOFF_DEBUG
279 ecoff_new_file (s
, appfile
);
283 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
284 Parse a possible alignment value. */
287 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
290 int is_local
= symbol_get_obj (symbolP
)->local
;
292 if (*input_line_pointer
== ',')
294 char *save
= input_line_pointer
;
296 input_line_pointer
++;
299 if (*input_line_pointer
== '"')
301 /* For sparc. Accept .common symbol, length, "bss" */
302 input_line_pointer
++;
303 /* Some use the dot, some don't. */
304 if (*input_line_pointer
== '.')
305 input_line_pointer
++;
306 /* Some say data, some say bss. */
307 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
308 input_line_pointer
+= 4;
309 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
310 input_line_pointer
+= 5;
313 char *p
= input_line_pointer
;
318 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
319 if (*input_line_pointer
++ == '"')
321 c
= *input_line_pointer
;
322 *input_line_pointer
= '\0';
323 as_bad (_("bad .common segment %s"), p
);
324 *input_line_pointer
= c
;
325 ignore_rest_of_line ();
328 /* ??? Don't ask me why these are always global. */
333 input_line_pointer
= save
;
334 align
= parse_align (is_local
);
335 if (align
== (addressT
) -1)
342 bss_alloc (symbolP
, size
, align
);
343 S_CLEAR_EXTERNAL (symbolP
);
347 S_SET_VALUE (symbolP
, size
);
348 S_SET_ALIGN (symbolP
, align
);
349 S_SET_EXTERNAL (symbolP
);
350 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
353 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
359 obj_elf_common (int is_common
)
361 if (flag_mri
&& is_common
)
364 s_comm_internal (0, elf_common_parse
);
368 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
370 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
373 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
377 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
379 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
382 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
386 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
394 name
= input_line_pointer
;
395 c
= get_symbol_end ();
396 symbolP
= symbol_find_or_make (name
);
397 *input_line_pointer
= c
;
399 S_CLEAR_EXTERNAL (symbolP
);
400 symbol_get_obj (symbolP
)->local
= 1;
403 input_line_pointer
++;
405 if (*input_line_pointer
== '\n')
410 demand_empty_rest_of_line ();
414 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
422 name
= input_line_pointer
;
423 c
= get_symbol_end ();
424 symbolP
= symbol_find_or_make (name
);
425 *input_line_pointer
= c
;
427 S_SET_WEAK (symbolP
);
428 symbol_get_obj (symbolP
)->local
= 1;
431 input_line_pointer
++;
433 if (*input_line_pointer
== '\n')
438 demand_empty_rest_of_line ();
442 obj_elf_visibility (int visibility
)
448 elf_symbol_type
*elfsym
;
452 name
= input_line_pointer
;
453 c
= get_symbol_end ();
454 symbolP
= symbol_find_or_make (name
);
455 *input_line_pointer
= c
;
459 bfdsym
= symbol_get_bfdsym (symbolP
);
460 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
464 elfsym
->internal_elf_sym
.st_other
&= ~3;
465 elfsym
->internal_elf_sym
.st_other
|= visibility
;
469 input_line_pointer
++;
473 if (*input_line_pointer
== '\n')
479 demand_empty_rest_of_line ();
482 static segT previous_section
;
483 static int previous_subsection
;
487 struct section_stack
*next
;
489 int subseg
, prev_subseg
;
492 static struct section_stack
*section_stack
;
495 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
497 const char *gname
= inf
;
498 const char *group_name
= elf_group_name (sec
);
500 return (group_name
== gname
501 || (group_name
!= NULL
503 && strcmp (group_name
, gname
) == 0));
506 /* Handle the .section pseudo-op. This code supports two different
509 The first is found on Solaris, and looks like
510 .section ".sec1",#alloc,#execinstr,#write
511 Here the names after '#' are the SHF_* flags to turn on for the
512 section. I'm not sure how it determines the SHT_* type (BFD
513 doesn't really give us control over the type, anyhow).
515 The second format is found on UnixWare, and probably most SVR4
516 machines, and looks like
517 .section .sec1,"a",@progbits
518 The quoted string may contain any combination of a, w, x, and
519 represents the SHF_* flags to turn on for the section. The string
520 beginning with '@' can be progbits or nobits. There should be
521 other possibilities, but I don't know what they are. In any case,
522 BFD doesn't really let us set the section type. */
525 obj_elf_change_section (const char *name
,
529 const char *group_name
,
536 const struct elf_backend_data
*bed
;
537 const struct bfd_elf_special_section
*ssect
;
539 #ifdef md_flush_pending_output
540 md_flush_pending_output ();
543 /* Switch to the section, creating it if necessary. */
546 struct section_stack
*elt
;
547 elt
= xmalloc (sizeof (struct section_stack
));
548 elt
->next
= section_stack
;
550 elt
->prev_seg
= previous_section
;
551 elt
->subseg
= now_subseg
;
552 elt
->prev_subseg
= previous_subsection
;
555 previous_section
= now_seg
;
556 previous_subsection
= now_subseg
;
558 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
559 (void *) group_name
);
566 sec
= subseg_force_new (name
, 0);
568 bed
= get_elf_backend_data (stdoutput
);
569 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
573 bfd_boolean override
= FALSE
;
575 if (type
== SHT_NULL
)
577 else if (type
!= ssect
->type
)
580 /* FIXME: gcc, as of 2002-10-22, will emit
582 .section .init_array,"aw",@progbits
584 for __attribute__ ((section (".init_array"))).
585 "@progbits" is incorrect. Also for x86-64 large bss
586 sections, gcc, as of 2005-07-06, will emit
588 .section .lbss,"aw",@progbits
590 "@progbits" is incorrect. */
592 && (bed
->s
->arch_size
!= 64
593 || !(ssect
->attr
& SHF_X86_64_LARGE
))
595 && ssect
->type
!= SHT_INIT_ARRAY
596 && ssect
->type
!= SHT_FINI_ARRAY
597 && ssect
->type
!= SHT_PREINIT_ARRAY
)
599 /* We allow to specify any type for a .note section. */
600 if (ssect
->type
!= SHT_NOTE
)
601 as_warn (_("setting incorrect section type for %s"),
606 as_warn (_("ignoring incorrect section type for %s"),
612 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
614 /* As a GNU extension, we permit a .note section to be
615 allocatable. If the linker sees an allocatable .note
616 section, it will create a PT_NOTE segment in the output
617 file. We also allow "x" for .note.GNU-stack. */
618 if (ssect
->type
== SHT_NOTE
619 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
621 /* Allow different SHF_MERGE and SHF_STRINGS if we have
622 something like .rodata.str. */
623 else if (ssect
->suffix_length
== -2
624 && name
[ssect
->prefix_length
] == '.'
628 & ~SHF_STRINGS
) == 0)
630 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
631 else if (attr
== SHF_ALLOC
632 && (strcmp (name
, ".interp") == 0
633 || strcmp (name
, ".strtab") == 0
634 || strcmp (name
, ".symtab") == 0))
636 /* .note.GNU-stack can have SHF_EXECINSTR. */
637 else if (attr
== SHF_EXECINSTR
638 && strcmp (name
, ".note.GNU-stack") == 0)
641 /* A section on Alpha may have SHF_ALPHA_GPREL. */
642 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
647 if (group_name
== NULL
)
648 as_warn (_("setting incorrect section attributes for %s"),
653 if (!override
&& old_sec
== NULL
)
657 /* Convert ELF type and flags to BFD flags. */
659 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
660 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
661 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
662 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
663 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
664 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
665 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
666 #ifdef md_elf_section_flags
667 flags
= md_elf_section_flags (flags
, attr
, type
);
671 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
677 elf_section_type (sec
) = type
;
678 elf_section_flags (sec
) = attr
;
680 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
681 if (type
== SHT_NOBITS
)
682 seg_info (sec
)->bss
= 1;
684 bfd_set_section_flags (stdoutput
, sec
, flags
);
685 if (flags
& SEC_MERGE
)
686 sec
->entsize
= entsize
;
687 elf_group_name (sec
) = group_name
;
689 /* Add a symbol for this section to the symbol table. */
690 secsym
= symbol_find (name
);
692 symbol_set_bfdsym (secsym
, sec
->symbol
);
694 symbol_table_insert (section_symbol (sec
));
699 && (unsigned) type
!= elf_section_type (old_sec
))
700 as_warn (_("ignoring changed section type for %s"), name
);
704 /* If section attributes are specified the second time we see a
705 particular section, then check that they are the same as we
706 saw the first time. */
707 if (((old_sec
->flags
^ flags
)
708 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
709 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
710 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
711 | SEC_THREAD_LOCAL
)))
712 as_warn (_("ignoring changed section attributes for %s"), name
);
713 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
714 as_warn (_("ignoring changed section entity size for %s"), name
);
718 #ifdef md_elf_section_change_hook
719 md_elf_section_change_hook ();
724 obj_elf_parse_section_letters (char *str
, size_t len
)
739 attr
|= SHF_EXECINSTR
;
755 if (*(str
- 1) == 'a')
758 if (len
> 1 && str
[1] == 's')
767 char *bad_msg
= _("unrecognized .section attribute: want a,w,x,M,S,G,T");
768 #ifdef md_elf_section_letter
769 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
774 as_fatal ("%s", bad_msg
);
785 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
787 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
789 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
791 if (len
== 4 && strncmp (str
, "note", 4) == 0)
793 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
794 return SHT_INIT_ARRAY
;
795 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
796 return SHT_FINI_ARRAY
;
797 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
798 return SHT_PREINIT_ARRAY
;
800 #ifdef md_elf_section_type
802 int md_type
= md_elf_section_type (str
, len
);
809 as_warn (_("unrecognized section type"));
814 obj_elf_section_word (char *str
, size_t len
, int *type
)
818 if (len
== 5 && strncmp (str
, "write", 5) == 0)
820 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
822 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
823 return SHF_EXECINSTR
;
824 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
827 #ifdef md_elf_section_word
829 bfd_vma md_attr
= md_elf_section_word (str
, len
);
835 ret
= obj_elf_section_type (str
, len
, FALSE
);
839 as_warn (_("unrecognized section attribute"));
844 /* Get name of section. */
846 obj_elf_section_name (void)
851 if (*input_line_pointer
== '"')
855 name
= demand_copy_C_string (&dummy
);
858 ignore_rest_of_line ();
864 char *end
= input_line_pointer
;
866 while (0 == strchr ("\n\t,; ", *end
))
868 if (end
== input_line_pointer
)
870 as_bad (_("missing name"));
871 ignore_rest_of_line ();
875 name
= xmalloc (end
- input_line_pointer
+ 1);
876 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
877 name
[end
- input_line_pointer
] = '\0';
878 #ifdef tc_canonicalize_section_name
879 name
= tc_canonicalize_section_name (name
);
881 input_line_pointer
= end
;
888 obj_elf_section (int push
)
890 char *name
, *group_name
, *beg
;
895 subsegT new_subsection
= -1;
902 #ifdef md_flush_pending_output
903 md_flush_pending_output ();
906 previous_section
= now_seg
;
907 previous_subsection
= now_subseg
;
909 s_mri_sect (&mri_type
);
911 #ifdef md_elf_section_change_hook
912 md_elf_section_change_hook ();
917 #endif /* ! defined (TC_I370) */
919 name
= obj_elf_section_name ();
928 if (*input_line_pointer
== ',')
930 /* Skip the comma. */
931 ++input_line_pointer
;
934 if (push
&& ISDIGIT (*input_line_pointer
))
936 /* .pushsection has an optional subsection. */
937 new_subsection
= (subsegT
) get_absolute_expression ();
941 /* Stop if we don't see a comma. */
942 if (*input_line_pointer
!= ',')
945 /* Skip the comma. */
946 ++input_line_pointer
;
950 if (*input_line_pointer
== '"')
952 beg
= demand_copy_C_string (&dummy
);
955 ignore_rest_of_line ();
958 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
));
961 if (*input_line_pointer
== ',')
964 char *save
= input_line_pointer
;
966 ++input_line_pointer
;
968 c
= *input_line_pointer
;
971 beg
= demand_copy_C_string (&dummy
);
974 ignore_rest_of_line ();
977 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
979 else if (c
== '@' || c
== '%')
981 beg
= ++input_line_pointer
;
982 c
= get_symbol_end ();
983 *input_line_pointer
= c
;
984 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
987 input_line_pointer
= save
;
991 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
993 ++input_line_pointer
;
995 entsize
= get_absolute_expression ();
999 as_warn (_("invalid merge entity size"));
1004 else if ((attr
& SHF_MERGE
) != 0)
1006 as_warn (_("entity size for SHF_MERGE not specified"));
1010 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1012 ++input_line_pointer
;
1013 group_name
= obj_elf_section_name ();
1014 if (group_name
== NULL
)
1016 else if (strncmp (input_line_pointer
, ",comdat", 7) == 0)
1018 input_line_pointer
+= 7;
1021 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1024 else if ((attr
& SHF_GROUP
) != 0)
1026 as_warn (_("group name for SHF_GROUP not specified"));
1037 if (*input_line_pointer
!= '#')
1039 as_bad (_("character following name is not '#'"));
1040 ignore_rest_of_line ();
1043 beg
= ++input_line_pointer
;
1044 c
= get_symbol_end ();
1045 *input_line_pointer
= c
;
1047 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1051 while (*input_line_pointer
++ == ',');
1052 --input_line_pointer
;
1057 demand_empty_rest_of_line ();
1059 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1061 if (push
&& new_subsection
!= -1)
1062 subseg_set (now_seg
, new_subsection
);
1065 /* Change to the .data section. */
1068 obj_elf_data (int i
)
1070 #ifdef md_flush_pending_output
1071 md_flush_pending_output ();
1074 previous_section
= now_seg
;
1075 previous_subsection
= now_subseg
;
1078 #ifdef md_elf_section_change_hook
1079 md_elf_section_change_hook ();
1083 /* Change to the .text section. */
1086 obj_elf_text (int i
)
1088 #ifdef md_flush_pending_output
1089 md_flush_pending_output ();
1092 previous_section
= now_seg
;
1093 previous_subsection
= now_subseg
;
1096 #ifdef md_elf_section_change_hook
1097 md_elf_section_change_hook ();
1101 /* Change to the *ABS* section. */
1104 obj_elf_struct (int i
)
1106 #ifdef md_flush_pending_output
1107 md_flush_pending_output ();
1110 previous_section
= now_seg
;
1111 previous_subsection
= now_subseg
;
1114 #ifdef md_elf_section_change_hook
1115 md_elf_section_change_hook ();
1120 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1124 #ifdef md_flush_pending_output
1125 md_flush_pending_output ();
1128 previous_section
= now_seg
;
1129 previous_subsection
= now_subseg
;
1131 temp
= get_absolute_expression ();
1132 subseg_set (now_seg
, (subsegT
) temp
);
1133 demand_empty_rest_of_line ();
1135 #ifdef md_elf_section_change_hook
1136 md_elf_section_change_hook ();
1140 /* This can be called from the processor backends if they change
1144 obj_elf_section_change_hook (void)
1146 previous_section
= now_seg
;
1147 previous_subsection
= now_subseg
;
1151 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1156 if (previous_section
== 0)
1158 as_warn (_(".previous without corresponding .section; ignored"));
1162 #ifdef md_flush_pending_output
1163 md_flush_pending_output ();
1166 new_section
= previous_section
;
1167 new_subsection
= previous_subsection
;
1168 previous_section
= now_seg
;
1169 previous_subsection
= now_subseg
;
1170 subseg_set (new_section
, new_subsection
);
1172 #ifdef md_elf_section_change_hook
1173 md_elf_section_change_hook ();
1178 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1180 struct section_stack
*top
= section_stack
;
1184 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1188 #ifdef md_flush_pending_output
1189 md_flush_pending_output ();
1192 section_stack
= top
->next
;
1193 previous_section
= top
->prev_seg
;
1194 previous_subsection
= top
->prev_subseg
;
1195 subseg_set (top
->seg
, top
->subseg
);
1198 #ifdef md_elf_section_change_hook
1199 md_elf_section_change_hook ();
1204 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1206 /* Assume delimiter is part of expression. BSD4.2 as fails with
1207 delightful bug, so we are not being incompatible here. */
1208 new_logical_line (NULL
, get_absolute_expression ());
1209 demand_empty_rest_of_line ();
1212 /* This handles the .symver pseudo-op, which is used to specify a
1213 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1214 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1215 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1216 with the same value as the symbol NAME. */
1219 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1226 name
= input_line_pointer
;
1227 c
= get_symbol_end ();
1229 sym
= symbol_find_or_make (name
);
1231 *input_line_pointer
= c
;
1234 if (*input_line_pointer
!= ',')
1236 as_bad (_("expected comma after name in .symver"));
1237 ignore_rest_of_line ();
1241 ++input_line_pointer
;
1243 name
= input_line_pointer
;
1245 /* Temporarily include '@' in symbol names. */
1246 old_lexat
= lex_type
[(unsigned char) '@'];
1247 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1248 c
= get_symbol_end ();
1249 lex_type
[(unsigned char) '@'] = old_lexat
;
1251 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1253 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1255 *input_line_pointer
= c
;
1257 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1258 ELF_VER_CHR
) == NULL
)
1260 as_bad (_("missing version name in `%s' for symbol `%s'"),
1261 symbol_get_obj (sym
)->versioned_name
,
1263 ignore_rest_of_line ();
1269 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1271 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1272 name
, symbol_get_obj (sym
)->versioned_name
,
1274 ignore_rest_of_line ();
1278 *input_line_pointer
= c
;
1281 demand_empty_rest_of_line ();
1284 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1285 to the linker the hierarchy in which a particular table resides. The
1286 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1289 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1291 char *cname
, *pname
;
1292 symbolS
*csym
, *psym
;
1295 if (*input_line_pointer
== '#')
1296 ++input_line_pointer
;
1298 cname
= input_line_pointer
;
1299 c
= get_symbol_end ();
1300 csym
= symbol_find (cname
);
1302 /* GCFIXME: should check that we don't have two .vtable_inherits for
1303 the same child symbol. Also, we can currently only do this if the
1304 child symbol is already exists and is placed in a fragment. */
1306 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1308 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1313 *input_line_pointer
= c
;
1316 if (*input_line_pointer
!= ',')
1318 as_bad (_("expected comma after name in .vtable_inherit"));
1319 ignore_rest_of_line ();
1323 ++input_line_pointer
;
1326 if (*input_line_pointer
== '#')
1327 ++input_line_pointer
;
1329 if (input_line_pointer
[0] == '0'
1330 && (input_line_pointer
[1] == '\0'
1331 || ISSPACE (input_line_pointer
[1])))
1333 psym
= section_symbol (absolute_section
);
1334 ++input_line_pointer
;
1338 pname
= input_line_pointer
;
1339 c
= get_symbol_end ();
1340 psym
= symbol_find_or_make (pname
);
1341 *input_line_pointer
= c
;
1344 demand_empty_rest_of_line ();
1349 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1350 return fix_new (symbol_get_frag (csym
),
1351 symbol_get_value_expression (csym
)->X_add_number
,
1352 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1355 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1356 to the linker that a vtable slot was used. The syntax is
1357 ".vtable_entry tablename, offset". */
1360 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1367 if (*input_line_pointer
== '#')
1368 ++input_line_pointer
;
1370 name
= input_line_pointer
;
1371 c
= get_symbol_end ();
1372 sym
= symbol_find_or_make (name
);
1373 *input_line_pointer
= c
;
1376 if (*input_line_pointer
!= ',')
1378 as_bad (_("expected comma after name in .vtable_entry"));
1379 ignore_rest_of_line ();
1383 ++input_line_pointer
;
1384 if (*input_line_pointer
== '#')
1385 ++input_line_pointer
;
1387 offset
= get_absolute_expression ();
1389 demand_empty_rest_of_line ();
1391 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1392 BFD_RELOC_VTABLE_ENTRY
);
1396 elf_obj_read_begin_hook (void)
1398 #ifdef NEED_ECOFF_DEBUG
1399 if (ECOFF_DEBUGGING
)
1400 ecoff_read_begin_hook ();
1405 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1407 struct elf_obj_sy
*sy_obj
;
1409 sy_obj
= symbol_get_obj (symbolP
);
1410 sy_obj
->size
= NULL
;
1411 sy_obj
->versioned_name
= NULL
;
1413 #ifdef NEED_ECOFF_DEBUG
1414 if (ECOFF_DEBUGGING
)
1415 ecoff_symbol_new_hook (symbolP
);
1419 /* When setting one symbol equal to another, by default we probably
1420 want them to have the same "size", whatever it means in the current
1424 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1426 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1427 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1430 if (destelf
->size
== NULL
)
1431 destelf
->size
= xmalloc (sizeof (expressionS
));
1432 *destelf
->size
= *srcelf
->size
;
1436 if (destelf
->size
!= NULL
)
1437 free (destelf
->size
);
1438 destelf
->size
= NULL
;
1440 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1441 /* Don't copy visibility. */
1442 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1443 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1447 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1452 asection
*seg
= now_seg
;
1453 subsegT subseg
= now_subseg
;
1454 Elf_Internal_Note i_note
;
1455 Elf_External_Note e_note
;
1456 asection
*note_secp
= NULL
;
1459 if (*input_line_pointer
== '\"')
1463 ++input_line_pointer
; /* -> 1st char of string. */
1464 name
= input_line_pointer
;
1466 while (is_a_char (c
= next_char_of_string ()))
1468 c
= *input_line_pointer
;
1469 *input_line_pointer
= '\0';
1470 *(input_line_pointer
- 1) = '\0';
1471 *input_line_pointer
= c
;
1473 /* Create the .note section. */
1474 note_secp
= subseg_new (".note", 0);
1475 bfd_set_section_flags (stdoutput
,
1477 SEC_HAS_CONTENTS
| SEC_READONLY
);
1479 /* Process the version string. */
1480 len
= strlen (name
) + 1;
1482 /* PR 3456: Although the name field is padded out to an 4-byte
1483 boundary, the namesz field should not be adjusted. */
1484 i_note
.namesz
= len
;
1485 i_note
.descsz
= 0; /* No description. */
1486 i_note
.type
= NT_VERSION
;
1487 p
= frag_more (sizeof (e_note
.namesz
));
1488 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1489 p
= frag_more (sizeof (e_note
.descsz
));
1490 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1491 p
= frag_more (sizeof (e_note
.type
));
1492 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1493 p
= frag_more (len
);
1494 memcpy (p
, name
, len
);
1496 frag_align (2, 0, 0);
1498 subseg_set (seg
, subseg
);
1501 as_bad (_("expected quoted string"));
1503 demand_empty_rest_of_line ();
1507 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1509 char *name
= input_line_pointer
;
1510 char c
= get_symbol_end ();
1515 p
= input_line_pointer
;
1518 if (*input_line_pointer
!= ',')
1521 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1523 ignore_rest_of_line ();
1526 input_line_pointer
++;
1528 if (exp
.X_op
== O_absent
)
1530 as_bad (_("missing expression in .size directive"));
1531 exp
.X_op
= O_constant
;
1532 exp
.X_add_number
= 0;
1535 sym
= symbol_find_or_make (name
);
1537 if (exp
.X_op
== O_constant
)
1539 S_SET_SIZE (sym
, exp
.X_add_number
);
1540 if (symbol_get_obj (sym
)->size
)
1542 xfree (symbol_get_obj (sym
)->size
);
1543 symbol_get_obj (sym
)->size
= NULL
;
1548 symbol_get_obj (sym
)->size
= xmalloc (sizeof (expressionS
));
1549 *symbol_get_obj (sym
)->size
= exp
;
1551 demand_empty_rest_of_line ();
1554 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1555 There are six syntaxes:
1557 The first (used on Solaris) is
1559 The second (used on UnixWare) is
1561 The third (reportedly to be used on Irix 6.0) is
1563 The fourth (used on NetBSD/Arm and Linux/ARM) is
1565 The fifth (used on SVR4/860) is
1566 .type SYM,"function"
1567 The sixth (emitted by recent SunPRO under Solaris) is
1569 where the integer is the STT_* value.
1573 obj_elf_type_name (char *cp
)
1577 p
= input_line_pointer
;
1578 if (*input_line_pointer
>= '0'
1579 && *input_line_pointer
<= '9')
1581 while (*input_line_pointer
>= '0'
1582 && *input_line_pointer
<= '9')
1583 ++input_line_pointer
;
1584 *cp
= *input_line_pointer
;
1585 *input_line_pointer
= '\0';
1588 *cp
= get_symbol_end ();
1594 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1599 const char *typename
;
1601 elf_symbol_type
*elfsym
;
1603 name
= input_line_pointer
;
1604 c
= get_symbol_end ();
1605 sym
= symbol_find_or_make (name
);
1606 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1607 *input_line_pointer
= c
;
1610 if (*input_line_pointer
== ',')
1611 ++input_line_pointer
;
1614 if ( *input_line_pointer
== '#'
1615 || *input_line_pointer
== '@'
1616 || *input_line_pointer
== '"'
1617 || *input_line_pointer
== '%')
1618 ++input_line_pointer
;
1620 typename
= obj_elf_type_name (& c
);
1623 if (strcmp (typename
, "function") == 0
1624 || strcmp (typename
, "2") == 0
1625 || strcmp (typename
, "STT_FUNC") == 0)
1626 type
= BSF_FUNCTION
;
1627 else if (strcmp (typename
, "object") == 0
1628 || strcmp (typename
, "1") == 0
1629 || strcmp (typename
, "STT_OBJECT") == 0)
1631 else if (strcmp (typename
, "tls_object") == 0
1632 || strcmp (typename
, "6") == 0
1633 || strcmp (typename
, "STT_TLS") == 0)
1634 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1635 else if (strcmp (typename
, "notype") == 0
1636 || strcmp (typename
, "0") == 0
1637 || strcmp (typename
, "STT_NOTYPE") == 0)
1639 else if (strcmp (typename
, "common") == 0
1640 || strcmp (typename
, "5") == 0
1641 || strcmp (typename
, "STT_COMMON") == 0)
1645 if (! S_IS_COMMON (sym
))
1647 if (S_IS_VOLATILE (sym
))
1649 sym
= symbol_clone (sym
, 1);
1650 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1651 S_SET_VALUE (sym
, 0);
1652 S_SET_EXTERNAL (sym
);
1653 symbol_set_frag (sym
, &zero_address_frag
);
1654 S_CLEAR_VOLATILE (sym
);
1656 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1657 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1660 /* FIXME: Is it safe to just change the section ? */
1661 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1662 S_SET_VALUE (sym
, 0);
1663 S_SET_EXTERNAL (sym
);
1667 else if (strcmp (typename
, "gnu_indirect_function") == 0
1668 || strcmp (typename
, "10") == 0
1669 || strcmp (typename
, "STT_GNU_IFUNC") == 0)
1671 const struct elf_backend_data
*bed
;
1673 bed
= get_elf_backend_data (stdoutput
);
1674 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1675 /* GNU/Linux is still using the default value 0. */
1676 || bed
->elf_osabi
== ELFOSABI_NONE
))
1677 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1679 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1681 else if (strcmp (typename
, "gnu_unique_object") == 0)
1683 const struct elf_backend_data
*bed
;
1685 bed
= get_elf_backend_data (stdoutput
);
1686 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1687 /* GNU/Linux is still using the default value 0. */
1688 || bed
->elf_osabi
== ELFOSABI_NONE
))
1689 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1691 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1693 #ifdef md_elf_symbol_type
1694 else if ((type
= md_elf_symbol_type (typename
, sym
, elfsym
)) != -1)
1698 as_bad (_("unrecognized symbol type \"%s\""), typename
);
1700 *input_line_pointer
= c
;
1702 if (*input_line_pointer
== '"')
1703 ++input_line_pointer
;
1705 elfsym
->symbol
.flags
|= type
;
1707 demand_empty_rest_of_line ();
1711 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1713 static segT comment_section
;
1714 segT old_section
= now_seg
;
1715 int old_subsection
= now_subseg
;
1717 #ifdef md_flush_pending_output
1718 md_flush_pending_output ();
1721 if (!comment_section
)
1724 comment_section
= subseg_new (".comment", 0);
1725 bfd_set_section_flags (stdoutput
, comment_section
,
1726 SEC_READONLY
| SEC_HAS_CONTENTS
1727 | SEC_MERGE
| SEC_STRINGS
);
1728 comment_section
->entsize
= 1;
1733 subseg_set (comment_section
, 0);
1735 subseg_set (old_section
, old_subsection
);
1738 #ifdef INIT_STAB_SECTION
1740 /* The first entry in a .stabs section is special. */
1743 obj_elf_init_stab_section (segT seg
)
1748 unsigned int stroff
;
1750 /* Force the section to align to a longword boundary. Without this,
1751 UnixWare ar crashes. */
1752 bfd_set_section_alignment (stdoutput
, seg
, 2);
1754 /* Make space for this first symbol. */
1758 as_where (&file
, NULL
);
1759 stabstr_name
= xmalloc (strlen (segment_name (seg
)) + 4);
1760 strcpy (stabstr_name
, segment_name (seg
));
1761 strcat (stabstr_name
, "str");
1762 stroff
= get_stab_string_offset (file
, stabstr_name
);
1764 md_number_to_chars (p
, stroff
, 4);
1765 seg_info (seg
)->stabu
.p
= p
;
1770 /* Fill in the counts in the first entry in a .stabs section. */
1773 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
1780 if (strncmp (".stab", sec
->name
, 5))
1782 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
1785 name
= alloca (strlen (sec
->name
) + 4);
1786 strcpy (name
, sec
->name
);
1787 strcat (name
, "str");
1788 strsec
= bfd_get_section_by_name (abfd
, name
);
1790 strsz
= bfd_section_size (abfd
, strsec
);
1793 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
1795 p
= seg_info (sec
)->stabu
.p
;
1796 gas_assert (p
!= 0);
1798 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
1799 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
1802 #ifdef NEED_ECOFF_DEBUG
1804 /* This function is called by the ECOFF code. It is supposed to
1805 record the external symbol information so that the backend can
1806 write it out correctly. The ELF backend doesn't actually handle
1807 this at the moment, so we do it ourselves. We save the information
1810 #ifdef OBJ_MAYBE_ELF
1814 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
1816 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
1819 /* This function is called by bfd_ecoff_debug_externals. It is
1820 supposed to *EXT to the external symbol information, and return
1821 whether the symbol should be used at all. */
1824 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
1826 if (sym
->udata
.p
== NULL
)
1828 *ext
= *(EXTR
*) sym
->udata
.p
;
1832 /* This function is called by bfd_ecoff_debug_externals. It has
1833 nothing to do for ELF. */
1836 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
1837 bfd_size_type indx ATTRIBUTE_UNUSED
)
1841 #endif /* NEED_ECOFF_DEBUG */
1844 elf_frob_symbol (symbolS
*symp
, int *puntp
)
1846 struct elf_obj_sy
*sy_obj
;
1848 #ifdef NEED_ECOFF_DEBUG
1849 if (ECOFF_DEBUGGING
)
1850 ecoff_frob_symbol (symp
);
1853 sy_obj
= symbol_get_obj (symp
);
1855 if (sy_obj
->size
!= NULL
)
1857 switch (sy_obj
->size
->X_op
)
1861 (S_GET_VALUE (sy_obj
->size
->X_add_symbol
)
1862 + sy_obj
->size
->X_add_number
1863 - S_GET_VALUE (sy_obj
->size
->X_op_symbol
)));
1867 (S_GET_VALUE (sy_obj
->size
->X_add_symbol
)
1868 + sy_obj
->size
->X_add_number
));
1871 as_bad (_(".size expression too complicated to fix up"));
1874 free (sy_obj
->size
);
1875 sy_obj
->size
= NULL
;
1878 if (sy_obj
->versioned_name
!= NULL
)
1882 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
1885 /* This symbol was given a new name with the .symver directive.
1887 If this is an external reference, just rename the symbol to
1888 include the version string. This will make the relocs be
1889 against the correct versioned symbol.
1891 If this is a definition, add an alias. FIXME: Using an alias
1892 will permit the debugging information to refer to the right
1893 symbol. However, it's not clear whether it is the best
1896 if (! S_IS_DEFINED (symp
))
1898 /* Verify that the name isn't using the @@ syntax--this is
1899 reserved for definitions of the default version to link
1901 if (p
[1] == ELF_VER_CHR
)
1903 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1904 sy_obj
->versioned_name
);
1907 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1911 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
1915 /* The @@@ syntax is a special case. It renames the
1916 symbol name to versioned_name with one `@' removed. */
1917 l
= strlen (&p
[3]) + 1;
1918 memmove (&p
[2], &p
[3], l
);
1919 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1925 /* FIXME: Creating a new symbol here is risky. We're
1926 in the final loop over the symbol table. We can
1927 get away with it only because the symbol goes to
1928 the end of the list, where the loop will still see
1929 it. It would probably be better to do this in
1930 obj_frob_file_before_adjust. */
1932 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
1934 /* Now we act as though we saw symp2 = sym. */
1936 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
1938 /* Subtracting out the frag address here is a hack
1939 because we are in the middle of the final loop. */
1942 - symbol_get_frag (symp
)->fr_address
));
1944 symbol_set_frag (symp2
, symbol_get_frag (symp
));
1946 /* This will copy over the size information. */
1947 copy_symbol_attributes (symp2
, symp
);
1949 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
1951 if (S_IS_WEAK (symp
))
1954 if (S_IS_EXTERNAL (symp
))
1955 S_SET_EXTERNAL (symp2
);
1960 /* Double check weak symbols. */
1961 if (S_IS_WEAK (symp
))
1963 if (S_IS_COMMON (symp
))
1964 as_bad (_("symbol `%s' can not be both weak and common"),
1969 /* The Irix 5 and 6 assemblers set the type of any common symbol and
1970 any undefined non-function symbol to STT_OBJECT. We try to be
1971 compatible, since newer Irix 5 and 6 linkers care. However, we
1972 only set undefined symbols to be STT_OBJECT if we are on Irix,
1973 because that is the only time gcc will generate the necessary
1974 .global directives to mark functions. */
1976 if (S_IS_COMMON (symp
))
1977 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
1979 if (strstr (TARGET_OS
, "irix") != NULL
1980 && ! S_IS_DEFINED (symp
)
1981 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
1982 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
1988 asection
**head
; /* Section lists. */
1989 unsigned int *elt_count
; /* Number of sections in each list. */
1990 unsigned int num_group
; /* Number of lists. */
1993 /* Called via bfd_map_over_sections. If SEC is a member of a group,
1994 add it to a list of sections belonging to the group. INF is a
1995 pointer to a struct group_list, which is where we store the head of
1999 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2001 struct group_list
*list
= inf
;
2002 const char *group_name
= elf_group_name (sec
);
2005 if (group_name
== NULL
)
2008 /* If this group already has a list, add the section to the head of
2010 for (i
= 0; i
< list
->num_group
; i
++)
2012 if (strcmp (group_name
, elf_group_name (list
->head
[i
])) == 0)
2014 elf_next_in_group (sec
) = list
->head
[i
];
2015 list
->head
[i
] = sec
;
2016 list
->elt_count
[i
] += 1;
2021 /* New group. Make the arrays bigger in chunks to minimize calls to
2023 i
= list
->num_group
;
2026 unsigned int newsize
= i
+ 128;
2027 list
->head
= xrealloc (list
->head
, newsize
* sizeof (*list
->head
));
2028 list
->elt_count
= xrealloc (list
->elt_count
,
2029 newsize
* sizeof (*list
->elt_count
));
2031 list
->head
[i
] = sec
;
2032 list
->elt_count
[i
] = 1;
2033 list
->num_group
+= 1;
2037 elf_frob_file (void)
2039 struct group_list list
;
2042 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2044 /* Go find section groups. */
2047 list
.elt_count
= NULL
;
2048 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2050 /* Make the SHT_GROUP sections that describe each section group. We
2051 can't set up the section contents here yet, because elf section
2052 indices have yet to be calculated. elf.c:set_group_contents does
2053 the rest of the work. */
2054 for (i
= 0; i
< list
.num_group
; i
++)
2056 const char *group_name
= elf_group_name (list
.head
[i
]);
2057 const char *sec_name
;
2064 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2065 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2066 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2068 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2069 if (s
!= list
.head
[i
])
2071 as_warn (_("assuming all members of group `%s' are COMDAT"),
2077 sec_name
= group_name
;
2078 sy
= symbol_find_exact (group_name
);
2081 && (sy
== symbol_lastP
2082 || (sy
->sy_next
!= NULL
2083 && sy
->sy_next
->sy_previous
== sy
)))
2086 sec_name
= ".group";
2088 s
= subseg_force_new (sec_name
, 0);
2090 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2091 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2093 as_fatal (_("can't create group: %s"),
2094 bfd_errmsg (bfd_get_error ()));
2096 elf_section_type (s
) = SHT_GROUP
;
2098 /* Pass a pointer to the first section in this group. */
2099 elf_next_in_group (s
) = list
.head
[i
];
2101 elf_group_id (s
) = sy
->bsym
;
2103 size
= 4 * (list
.elt_count
[i
] + 1);
2104 bfd_set_section_size (stdoutput
, s
, size
);
2105 s
->contents
= (unsigned char *) frag_more (size
);
2106 frag_now
->fr_fix
= frag_now_fix_octets ();
2107 frag_wane (frag_now
);
2110 #ifdef elf_tc_final_processing
2111 elf_tc_final_processing ();
2115 /* It removes any unneeded versioned symbols from the symbol table. */
2118 elf_frob_file_before_adjust (void)
2124 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2125 if (!S_IS_DEFINED (symp
))
2127 if (symbol_get_obj (symp
)->versioned_name
)
2131 /* The @@@ syntax is a special case. If the symbol is
2132 not defined, 2 `@'s will be removed from the
2135 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2138 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2140 size_t l
= strlen (&p
[3]) + 1;
2141 memmove (&p
[1], &p
[3], l
);
2143 if (symbol_used_p (symp
) == 0
2144 && symbol_used_in_reloc_p (symp
) == 0)
2145 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2148 /* If there was .weak foo, but foo was neither defined nor
2149 used anywhere, remove it. */
2151 else if (S_IS_WEAK (symp
)
2152 && symbol_used_p (symp
) == 0
2153 && symbol_used_in_reloc_p (symp
) == 0)
2154 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2159 /* It is required that we let write_relocs have the opportunity to
2160 optimize away fixups before output has begun, since it is possible
2161 to eliminate all fixups for a section and thus we never should
2162 have generated the relocation section. */
2165 elf_frob_file_after_relocs (void)
2167 #ifdef NEED_ECOFF_DEBUG
2168 if (ECOFF_DEBUGGING
)
2169 /* Generate the ECOFF debugging information. */
2171 const struct ecoff_debug_swap
*debug_swap
;
2172 struct ecoff_debug_info debug
;
2177 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2178 know (debug_swap
!= NULL
);
2179 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2181 /* Set up the pointers in debug. */
2182 #define SET(ptr, offset, type) \
2183 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2185 SET (line
, cbLineOffset
, unsigned char *);
2186 SET (external_dnr
, cbDnOffset
, void *);
2187 SET (external_pdr
, cbPdOffset
, void *);
2188 SET (external_sym
, cbSymOffset
, void *);
2189 SET (external_opt
, cbOptOffset
, void *);
2190 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2191 SET (ss
, cbSsOffset
, char *);
2192 SET (external_fdr
, cbFdOffset
, void *);
2193 SET (external_rfd
, cbRfdOffset
, void *);
2194 /* ssext and external_ext are set up just below. */
2198 /* Set up the external symbols. */
2199 debug
.ssext
= debug
.ssext_end
= NULL
;
2200 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2201 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2202 elf_get_extr
, elf_set_index
))
2203 as_fatal (_("failed to set up debugging information: %s"),
2204 bfd_errmsg (bfd_get_error ()));
2206 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2207 gas_assert (sec
!= NULL
);
2209 know (!stdoutput
->output_has_begun
);
2211 /* We set the size of the section, call bfd_set_section_contents
2212 to force the ELF backend to allocate a file position, and then
2213 write out the data. FIXME: Is this really the best way to do
2215 bfd_set_section_size
2216 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2218 /* Pass BUF to bfd_set_section_contents because this will
2219 eventually become a call to fwrite, and ISO C prohibits
2220 passing a NULL pointer to a stdio function even if the
2221 pointer will not be used. */
2222 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2223 as_fatal (_("can't start writing .mdebug section: %s"),
2224 bfd_errmsg (bfd_get_error ()));
2226 know (stdoutput
->output_has_begun
);
2227 know (sec
->filepos
!= 0);
2229 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2231 as_fatal (_("could not write .mdebug section: %s"),
2232 bfd_errmsg (bfd_get_error ()));
2234 #endif /* NEED_ECOFF_DEBUG */
2239 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2240 SCO specific identifier in the .notes section to satisfy the SCO
2243 This looks more complicated than it really is. As opposed to the
2244 "obvious" solution, this should handle the cross dev cases
2245 correctly. (i.e, hosting on a 64 bit big endian processor, but
2246 generating SCO Elf code) Efficiency isn't a concern, as there
2247 should be exactly one of these sections per object module.
2249 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2252 int_32 namesz = 4 ; Name size
2253 int_32 descsz = 12 ; Descriptive information
2255 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2256 int_32 version = (major ver # << 16) | version of tools ;
2257 int_32 source = (tool_id << 16 ) | 1 ;
2258 int_32 info = 0 ; These are set by the SCO tools, but we
2259 don't know enough about the source
2260 environment to set them. SCO ld currently
2261 ignores them, and recommends we set them
2264 #define SCO_MAJOR_VERSION 0x1
2265 #define SCO_MINOR_VERSION 0x1
2275 asection
*seg
= now_seg
;
2276 subsegT subseg
= now_subseg
;
2277 Elf_Internal_Note i_note
;
2278 Elf_External_Note e_note
;
2279 asection
*note_secp
= NULL
;
2282 /* create the .note section */
2284 note_secp
= subseg_new (".note", 0);
2285 bfd_set_section_flags (stdoutput
,
2287 SEC_HAS_CONTENTS
| SEC_READONLY
);
2289 /* process the version string */
2292 i_note
.descsz
= 12; /* 12 descriptive bytes */
2293 i_note
.type
= NT_VERSION
; /* Contains a version string */
2295 p
= frag_more (sizeof (i_note
.namesz
));
2296 md_number_to_chars (p
, i_note
.namesz
, 4);
2298 p
= frag_more (sizeof (i_note
.descsz
));
2299 md_number_to_chars (p
, i_note
.descsz
, 4);
2301 p
= frag_more (sizeof (i_note
.type
));
2302 md_number_to_chars (p
, i_note
.type
, 4);
2307 /* Note: this is the version number of the ELF we're representing */
2309 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2311 /* Here, we pick a magic number for ourselves (yes, I "registered"
2312 it with SCO. The bottom bit shows that we are compat with the
2315 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2317 /* If we knew (or cared) what the source language options were, we'd
2318 fill them in here. SCO has given us permission to ignore these
2319 and just set them to zero. */
2321 md_number_to_chars (p
, 0x0000, 4);
2323 frag_align (2, 0, 0);
2325 /* We probably can't restore the current segment, for there likely
2328 subseg_set (seg
, subseg
);
2332 #endif /* SCO_ELF */
2335 elf_separate_stab_sections (void)
2337 #ifdef NEED_ECOFF_DEBUG
2338 return (!ECOFF_DEBUGGING
);
2345 elf_init_stab_section (segT seg
)
2347 #ifdef NEED_ECOFF_DEBUG
2348 if (!ECOFF_DEBUGGING
)
2350 obj_elf_init_stab_section (seg
);
2353 const struct format_ops elf_format_ops
=
2355 bfd_target_elf_flavour
,
2356 0, /* dfl_leading_underscore */
2357 1, /* emit_section_symbols */
2362 elf_frob_file_before_adjust
,
2363 0, /* obj_frob_file_before_fix */
2364 elf_frob_file_after_relocs
,
2365 elf_s_get_size
, elf_s_set_size
,
2366 elf_s_get_align
, elf_s_set_align
,
2373 elf_copy_symbol_attributes
,
2374 #ifdef NEED_ECOFF_DEBUG
2375 ecoff_generate_asm_lineno
,
2378 0, /* generate_asm_lineno */
2379 0, /* process_stab */
2381 elf_separate_stab_sections
,
2382 elf_init_stab_section
,
2383 elf_sec_sym_ok_for_reloc
,
2385 #ifdef NEED_ECOFF_DEBUG
2388 0, /* ecoff_set_ext */
2390 elf_obj_read_begin_hook
,
2391 elf_obj_symbol_new_hook