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
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
)
762 attr
|= SHF_EXECINSTR
;
778 if (*(str
- 1) == 'a')
781 if (len
> 1 && str
[1] == 's')
790 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
791 #ifdef md_elf_section_letter
792 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
797 as_fatal ("%s", bad_msg
);
808 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
810 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
812 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
814 if (len
== 4 && strncmp (str
, "note", 4) == 0)
816 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
817 return SHT_INIT_ARRAY
;
818 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
819 return SHT_FINI_ARRAY
;
820 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
821 return SHT_PREINIT_ARRAY
;
823 #ifdef md_elf_section_type
825 int md_type
= md_elf_section_type (str
, len
);
832 as_warn (_("unrecognized section type"));
837 obj_elf_section_word (char *str
, size_t len
, int *type
)
841 if (len
== 5 && strncmp (str
, "write", 5) == 0)
843 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
845 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
846 return SHF_EXECINSTR
;
847 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
849 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
852 #ifdef md_elf_section_word
854 bfd_vma md_attr
= md_elf_section_word (str
, len
);
860 ret
= obj_elf_section_type (str
, len
, FALSE
);
864 as_warn (_("unrecognized section attribute"));
869 /* Get name of section. */
871 obj_elf_section_name (void)
876 if (*input_line_pointer
== '"')
880 name
= demand_copy_C_string (&dummy
);
883 ignore_rest_of_line ();
889 char *end
= input_line_pointer
;
891 while (0 == strchr ("\n\t,; ", *end
))
893 if (end
== input_line_pointer
)
895 as_bad (_("missing name"));
896 ignore_rest_of_line ();
900 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
901 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
902 name
[end
- input_line_pointer
] = '\0';
903 #ifdef tc_canonicalize_section_name
904 name
= tc_canonicalize_section_name (name
);
906 input_line_pointer
= end
;
913 obj_elf_section (int push
)
915 char *name
, *group_name
, *beg
;
920 subsegT new_subsection
= -1;
927 #ifdef md_flush_pending_output
928 md_flush_pending_output ();
931 previous_section
= now_seg
;
932 previous_subsection
= now_subseg
;
934 s_mri_sect (&mri_type
);
936 #ifdef md_elf_section_change_hook
937 md_elf_section_change_hook ();
942 #endif /* ! defined (TC_I370) */
944 name
= obj_elf_section_name ();
953 if (*input_line_pointer
== ',')
955 /* Skip the comma. */
956 ++input_line_pointer
;
959 if (push
&& ISDIGIT (*input_line_pointer
))
961 /* .pushsection has an optional subsection. */
962 new_subsection
= (subsegT
) get_absolute_expression ();
966 /* Stop if we don't see a comma. */
967 if (*input_line_pointer
!= ',')
970 /* Skip the comma. */
971 ++input_line_pointer
;
975 if (*input_line_pointer
== '"')
977 beg
= demand_copy_C_string (&dummy
);
980 ignore_rest_of_line ();
983 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
));
986 if (*input_line_pointer
== ',')
989 char *save
= input_line_pointer
;
991 ++input_line_pointer
;
993 c
= *input_line_pointer
;
996 beg
= demand_copy_C_string (&dummy
);
999 ignore_rest_of_line ();
1002 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1004 else if (c
== '@' || c
== '%')
1006 beg
= ++input_line_pointer
;
1007 c
= get_symbol_end ();
1008 *input_line_pointer
= c
;
1009 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1012 input_line_pointer
= save
;
1016 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1018 ++input_line_pointer
;
1020 entsize
= get_absolute_expression ();
1024 as_warn (_("invalid merge entity size"));
1029 else if ((attr
& SHF_MERGE
) != 0)
1031 as_warn (_("entity size for SHF_MERGE not specified"));
1035 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1037 ++input_line_pointer
;
1038 group_name
= obj_elf_section_name ();
1039 if (group_name
== NULL
)
1041 else if (strncmp (input_line_pointer
, ",comdat", 7) == 0)
1043 input_line_pointer
+= 7;
1046 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1049 else if ((attr
& SHF_GROUP
) != 0)
1051 as_warn (_("group name for SHF_GROUP not specified"));
1062 if (*input_line_pointer
!= '#')
1064 as_bad (_("character following name is not '#'"));
1065 ignore_rest_of_line ();
1068 beg
= ++input_line_pointer
;
1069 c
= get_symbol_end ();
1070 *input_line_pointer
= c
;
1072 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1076 while (*input_line_pointer
++ == ',');
1077 --input_line_pointer
;
1082 demand_empty_rest_of_line ();
1084 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1086 if (push
&& new_subsection
!= -1)
1087 subseg_set (now_seg
, new_subsection
);
1090 /* Change to the .data section. */
1093 obj_elf_data (int i
)
1095 #ifdef md_flush_pending_output
1096 md_flush_pending_output ();
1099 previous_section
= now_seg
;
1100 previous_subsection
= now_subseg
;
1103 #ifdef md_elf_section_change_hook
1104 md_elf_section_change_hook ();
1108 /* Change to the .text section. */
1111 obj_elf_text (int i
)
1113 #ifdef md_flush_pending_output
1114 md_flush_pending_output ();
1117 previous_section
= now_seg
;
1118 previous_subsection
= now_subseg
;
1121 #ifdef md_elf_section_change_hook
1122 md_elf_section_change_hook ();
1126 /* Change to the *ABS* section. */
1129 obj_elf_struct (int i
)
1131 #ifdef md_flush_pending_output
1132 md_flush_pending_output ();
1135 previous_section
= now_seg
;
1136 previous_subsection
= now_subseg
;
1139 #ifdef md_elf_section_change_hook
1140 md_elf_section_change_hook ();
1145 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1149 #ifdef md_flush_pending_output
1150 md_flush_pending_output ();
1153 previous_section
= now_seg
;
1154 previous_subsection
= now_subseg
;
1156 temp
= get_absolute_expression ();
1157 subseg_set (now_seg
, (subsegT
) temp
);
1158 demand_empty_rest_of_line ();
1160 #ifdef md_elf_section_change_hook
1161 md_elf_section_change_hook ();
1165 /* This can be called from the processor backends if they change
1169 obj_elf_section_change_hook (void)
1171 previous_section
= now_seg
;
1172 previous_subsection
= now_subseg
;
1176 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1181 if (previous_section
== 0)
1183 as_warn (_(".previous without corresponding .section; ignored"));
1187 #ifdef md_flush_pending_output
1188 md_flush_pending_output ();
1191 new_section
= previous_section
;
1192 new_subsection
= previous_subsection
;
1193 previous_section
= now_seg
;
1194 previous_subsection
= now_subseg
;
1195 subseg_set (new_section
, new_subsection
);
1197 #ifdef md_elf_section_change_hook
1198 md_elf_section_change_hook ();
1203 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1205 struct section_stack
*top
= section_stack
;
1209 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1213 #ifdef md_flush_pending_output
1214 md_flush_pending_output ();
1217 section_stack
= top
->next
;
1218 previous_section
= top
->prev_seg
;
1219 previous_subsection
= top
->prev_subseg
;
1220 subseg_set (top
->seg
, top
->subseg
);
1223 #ifdef md_elf_section_change_hook
1224 md_elf_section_change_hook ();
1229 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1231 /* Assume delimiter is part of expression. BSD4.2 as fails with
1232 delightful bug, so we are not being incompatible here. */
1233 new_logical_line (NULL
, get_absolute_expression ());
1234 demand_empty_rest_of_line ();
1237 /* This handles the .symver pseudo-op, which is used to specify a
1238 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1239 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1240 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1241 with the same value as the symbol NAME. */
1244 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1251 sym
= get_sym_from_input_line_and_check ();
1253 if (*input_line_pointer
!= ',')
1255 as_bad (_("expected comma after name in .symver"));
1256 ignore_rest_of_line ();
1260 ++input_line_pointer
;
1262 name
= input_line_pointer
;
1264 /* Temporarily include '@' in symbol names. */
1265 old_lexat
= lex_type
[(unsigned char) '@'];
1266 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1267 c
= get_symbol_end ();
1268 lex_type
[(unsigned char) '@'] = old_lexat
;
1270 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1272 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1274 *input_line_pointer
= c
;
1276 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1277 ELF_VER_CHR
) == NULL
)
1279 as_bad (_("missing version name in `%s' for symbol `%s'"),
1280 symbol_get_obj (sym
)->versioned_name
,
1282 ignore_rest_of_line ();
1288 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1290 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1291 name
, symbol_get_obj (sym
)->versioned_name
,
1293 ignore_rest_of_line ();
1297 *input_line_pointer
= c
;
1300 demand_empty_rest_of_line ();
1303 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1304 to the linker the hierarchy in which a particular table resides. The
1305 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1308 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1310 char *cname
, *pname
;
1311 symbolS
*csym
, *psym
;
1314 if (*input_line_pointer
== '#')
1315 ++input_line_pointer
;
1317 cname
= input_line_pointer
;
1318 c
= get_symbol_end ();
1319 csym
= symbol_find (cname
);
1321 /* GCFIXME: should check that we don't have two .vtable_inherits for
1322 the same child symbol. Also, we can currently only do this if the
1323 child symbol is already exists and is placed in a fragment. */
1325 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1327 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1332 *input_line_pointer
= c
;
1335 if (*input_line_pointer
!= ',')
1337 as_bad (_("expected comma after name in .vtable_inherit"));
1338 ignore_rest_of_line ();
1342 ++input_line_pointer
;
1345 if (*input_line_pointer
== '#')
1346 ++input_line_pointer
;
1348 if (input_line_pointer
[0] == '0'
1349 && (input_line_pointer
[1] == '\0'
1350 || ISSPACE (input_line_pointer
[1])))
1352 psym
= section_symbol (absolute_section
);
1353 ++input_line_pointer
;
1357 pname
= input_line_pointer
;
1358 c
= get_symbol_end ();
1359 psym
= symbol_find_or_make (pname
);
1360 *input_line_pointer
= c
;
1363 demand_empty_rest_of_line ();
1368 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1369 return fix_new (symbol_get_frag (csym
),
1370 symbol_get_value_expression (csym
)->X_add_number
,
1371 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1374 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1375 to the linker that a vtable slot was used. The syntax is
1376 ".vtable_entry tablename, offset". */
1379 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1384 if (*input_line_pointer
== '#')
1385 ++input_line_pointer
;
1387 sym
= get_sym_from_input_line_and_check ();
1388 if (*input_line_pointer
!= ',')
1390 as_bad (_("expected comma after name in .vtable_entry"));
1391 ignore_rest_of_line ();
1395 ++input_line_pointer
;
1396 if (*input_line_pointer
== '#')
1397 ++input_line_pointer
;
1399 offset
= get_absolute_expression ();
1401 demand_empty_rest_of_line ();
1403 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1404 BFD_RELOC_VTABLE_ENTRY
);
1408 elf_obj_read_begin_hook (void)
1410 #ifdef NEED_ECOFF_DEBUG
1411 if (ECOFF_DEBUGGING
)
1412 ecoff_read_begin_hook ();
1417 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1419 struct elf_obj_sy
*sy_obj
;
1421 sy_obj
= symbol_get_obj (symbolP
);
1422 sy_obj
->size
= NULL
;
1423 sy_obj
->versioned_name
= NULL
;
1425 #ifdef NEED_ECOFF_DEBUG
1426 if (ECOFF_DEBUGGING
)
1427 ecoff_symbol_new_hook (symbolP
);
1431 /* When setting one symbol equal to another, by default we probably
1432 want them to have the same "size", whatever it means in the current
1436 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1438 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1439 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1442 if (destelf
->size
== NULL
)
1443 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1444 *destelf
->size
= *srcelf
->size
;
1448 if (destelf
->size
!= NULL
)
1449 free (destelf
->size
);
1450 destelf
->size
= NULL
;
1452 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1453 /* Don't copy visibility. */
1454 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1455 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1459 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1464 asection
*seg
= now_seg
;
1465 subsegT subseg
= now_subseg
;
1466 Elf_Internal_Note i_note
;
1467 Elf_External_Note e_note
;
1468 asection
*note_secp
= NULL
;
1471 if (*input_line_pointer
== '\"')
1475 ++input_line_pointer
; /* -> 1st char of string. */
1476 name
= input_line_pointer
;
1478 while (is_a_char (c
= next_char_of_string ()))
1480 c
= *input_line_pointer
;
1481 *input_line_pointer
= '\0';
1482 *(input_line_pointer
- 1) = '\0';
1483 *input_line_pointer
= c
;
1485 /* Create the .note section. */
1486 note_secp
= subseg_new (".note", 0);
1487 bfd_set_section_flags (stdoutput
,
1489 SEC_HAS_CONTENTS
| SEC_READONLY
);
1491 /* Process the version string. */
1492 len
= strlen (name
) + 1;
1494 /* PR 3456: Although the name field is padded out to an 4-byte
1495 boundary, the namesz field should not be adjusted. */
1496 i_note
.namesz
= len
;
1497 i_note
.descsz
= 0; /* No description. */
1498 i_note
.type
= NT_VERSION
;
1499 p
= frag_more (sizeof (e_note
.namesz
));
1500 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1501 p
= frag_more (sizeof (e_note
.descsz
));
1502 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1503 p
= frag_more (sizeof (e_note
.type
));
1504 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1505 p
= frag_more (len
);
1506 memcpy (p
, name
, len
);
1508 frag_align (2, 0, 0);
1510 subseg_set (seg
, subseg
);
1513 as_bad (_("expected quoted string"));
1515 demand_empty_rest_of_line ();
1519 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1521 char *name
= input_line_pointer
;
1522 char c
= get_symbol_end ();
1527 p
= input_line_pointer
;
1530 if (*input_line_pointer
!= ',')
1533 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1535 ignore_rest_of_line ();
1538 input_line_pointer
++;
1540 if (exp
.X_op
== O_absent
)
1542 as_bad (_("missing expression in .size directive"));
1543 exp
.X_op
= O_constant
;
1544 exp
.X_add_number
= 0;
1547 sym
= symbol_find_or_make (name
);
1549 if (exp
.X_op
== O_constant
)
1551 S_SET_SIZE (sym
, exp
.X_add_number
);
1552 if (symbol_get_obj (sym
)->size
)
1554 xfree (symbol_get_obj (sym
)->size
);
1555 symbol_get_obj (sym
)->size
= NULL
;
1560 symbol_get_obj (sym
)->size
=
1561 (expressionS
*) xmalloc (sizeof (expressionS
));
1562 *symbol_get_obj (sym
)->size
= exp
;
1564 demand_empty_rest_of_line ();
1567 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1568 There are six syntaxes:
1570 The first (used on Solaris) is
1572 The second (used on UnixWare) is
1574 The third (reportedly to be used on Irix 6.0) is
1576 The fourth (used on NetBSD/Arm and Linux/ARM) is
1578 The fifth (used on SVR4/860) is
1579 .type SYM,"function"
1580 The sixth (emitted by recent SunPRO under Solaris) is
1582 where the integer is the STT_* value.
1586 obj_elf_type_name (char *cp
)
1590 p
= input_line_pointer
;
1591 if (*input_line_pointer
>= '0'
1592 && *input_line_pointer
<= '9')
1594 while (*input_line_pointer
>= '0'
1595 && *input_line_pointer
<= '9')
1596 ++input_line_pointer
;
1597 *cp
= *input_line_pointer
;
1598 *input_line_pointer
= '\0';
1601 *cp
= get_symbol_end ();
1607 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1611 const char *type_name
;
1613 elf_symbol_type
*elfsym
;
1615 sym
= get_sym_from_input_line_and_check ();
1616 c
= *input_line_pointer
;
1617 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1619 if (*input_line_pointer
== ',')
1620 ++input_line_pointer
;
1623 if ( *input_line_pointer
== '#'
1624 || *input_line_pointer
== '@'
1625 || *input_line_pointer
== '"'
1626 || *input_line_pointer
== '%')
1627 ++input_line_pointer
;
1629 type_name
= obj_elf_type_name (& c
);
1632 if (strcmp (type_name
, "function") == 0
1633 || strcmp (type_name
, "2") == 0
1634 || strcmp (type_name
, "STT_FUNC") == 0)
1635 type
= BSF_FUNCTION
;
1636 else if (strcmp (type_name
, "object") == 0
1637 || strcmp (type_name
, "1") == 0
1638 || strcmp (type_name
, "STT_OBJECT") == 0)
1640 else if (strcmp (type_name
, "tls_object") == 0
1641 || strcmp (type_name
, "6") == 0
1642 || strcmp (type_name
, "STT_TLS") == 0)
1643 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1644 else if (strcmp (type_name
, "notype") == 0
1645 || strcmp (type_name
, "0") == 0
1646 || strcmp (type_name
, "STT_NOTYPE") == 0)
1648 else if (strcmp (type_name
, "common") == 0
1649 || strcmp (type_name
, "5") == 0
1650 || strcmp (type_name
, "STT_COMMON") == 0)
1654 if (! S_IS_COMMON (sym
))
1656 if (S_IS_VOLATILE (sym
))
1658 sym
= symbol_clone (sym
, 1);
1659 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1660 S_SET_VALUE (sym
, 0);
1661 S_SET_EXTERNAL (sym
);
1662 symbol_set_frag (sym
, &zero_address_frag
);
1663 S_CLEAR_VOLATILE (sym
);
1665 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1666 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1669 /* FIXME: Is it safe to just change the section ? */
1670 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1671 S_SET_VALUE (sym
, 0);
1672 S_SET_EXTERNAL (sym
);
1676 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1677 || strcmp (type_name
, "10") == 0
1678 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1680 const struct elf_backend_data
*bed
;
1682 bed
= get_elf_backend_data (stdoutput
);
1683 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1684 /* GNU/Linux is still using the default value 0. */
1685 || bed
->elf_osabi
== ELFOSABI_NONE
))
1686 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1688 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1690 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1692 struct elf_backend_data
*bed
;
1694 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1695 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1696 /* GNU/Linux is still using the default value 0. */
1697 || bed
->elf_osabi
== ELFOSABI_NONE
))
1698 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1700 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1701 /* PR 10549: Always set OSABI field to LINUX for objects containing unique symbols. */
1702 bed
->elf_osabi
= ELFOSABI_LINUX
;
1704 #ifdef md_elf_symbol_type
1705 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1709 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1711 *input_line_pointer
= c
;
1713 if (*input_line_pointer
== '"')
1714 ++input_line_pointer
;
1716 elfsym
->symbol
.flags
|= type
;
1718 demand_empty_rest_of_line ();
1722 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1724 static segT comment_section
;
1725 segT old_section
= now_seg
;
1726 int old_subsection
= now_subseg
;
1728 #ifdef md_flush_pending_output
1729 md_flush_pending_output ();
1732 if (!comment_section
)
1735 comment_section
= subseg_new (".comment", 0);
1736 bfd_set_section_flags (stdoutput
, comment_section
,
1737 SEC_READONLY
| SEC_HAS_CONTENTS
1738 | SEC_MERGE
| SEC_STRINGS
);
1739 comment_section
->entsize
= 1;
1740 #ifdef md_elf_section_change_hook
1741 md_elf_section_change_hook ();
1747 subseg_set (comment_section
, 0);
1749 subseg_set (old_section
, old_subsection
);
1752 #ifdef INIT_STAB_SECTION
1754 /* The first entry in a .stabs section is special. */
1757 obj_elf_init_stab_section (segT seg
)
1762 unsigned int stroff
;
1764 /* Force the section to align to a longword boundary. Without this,
1765 UnixWare ar crashes. */
1766 bfd_set_section_alignment (stdoutput
, seg
, 2);
1768 /* Make space for this first symbol. */
1772 as_where (&file
, NULL
);
1773 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
1774 strcpy (stabstr_name
, segment_name (seg
));
1775 strcat (stabstr_name
, "str");
1776 stroff
= get_stab_string_offset (file
, stabstr_name
);
1778 md_number_to_chars (p
, stroff
, 4);
1779 seg_info (seg
)->stabu
.p
= p
;
1784 /* Fill in the counts in the first entry in a .stabs section. */
1787 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
1794 if (strncmp (".stab", sec
->name
, 5))
1796 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
1799 name
= (char *) alloca (strlen (sec
->name
) + 4);
1800 strcpy (name
, sec
->name
);
1801 strcat (name
, "str");
1802 strsec
= bfd_get_section_by_name (abfd
, name
);
1804 strsz
= bfd_section_size (abfd
, strsec
);
1807 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
1809 p
= seg_info (sec
)->stabu
.p
;
1810 gas_assert (p
!= 0);
1812 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
1813 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
1816 #ifdef NEED_ECOFF_DEBUG
1818 /* This function is called by the ECOFF code. It is supposed to
1819 record the external symbol information so that the backend can
1820 write it out correctly. The ELF backend doesn't actually handle
1821 this at the moment, so we do it ourselves. We save the information
1824 #ifdef OBJ_MAYBE_ELF
1828 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
1830 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
1833 /* This function is called by bfd_ecoff_debug_externals. It is
1834 supposed to *EXT to the external symbol information, and return
1835 whether the symbol should be used at all. */
1838 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
1840 if (sym
->udata
.p
== NULL
)
1842 *ext
= *(EXTR
*) sym
->udata
.p
;
1846 /* This function is called by bfd_ecoff_debug_externals. It has
1847 nothing to do for ELF. */
1850 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
1851 bfd_size_type indx ATTRIBUTE_UNUSED
)
1855 #endif /* NEED_ECOFF_DEBUG */
1858 elf_frob_symbol (symbolS
*symp
, int *puntp
)
1860 struct elf_obj_sy
*sy_obj
;
1862 #ifdef NEED_ECOFF_DEBUG
1863 if (ECOFF_DEBUGGING
)
1864 ecoff_frob_symbol (symp
);
1867 sy_obj
= symbol_get_obj (symp
);
1869 if (sy_obj
->size
!= NULL
)
1871 switch (sy_obj
->size
->X_op
)
1875 (S_GET_VALUE (sy_obj
->size
->X_add_symbol
)
1876 + sy_obj
->size
->X_add_number
1877 - S_GET_VALUE (sy_obj
->size
->X_op_symbol
)));
1881 (S_GET_VALUE (sy_obj
->size
->X_add_symbol
)
1882 + sy_obj
->size
->X_add_number
));
1885 as_bad (_(".size expression too complicated to fix up"));
1888 free (sy_obj
->size
);
1889 sy_obj
->size
= NULL
;
1892 if (sy_obj
->versioned_name
!= NULL
)
1896 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
1899 /* This symbol was given a new name with the .symver directive.
1901 If this is an external reference, just rename the symbol to
1902 include the version string. This will make the relocs be
1903 against the correct versioned symbol.
1905 If this is a definition, add an alias. FIXME: Using an alias
1906 will permit the debugging information to refer to the right
1907 symbol. However, it's not clear whether it is the best
1910 if (! S_IS_DEFINED (symp
))
1912 /* Verify that the name isn't using the @@ syntax--this is
1913 reserved for definitions of the default version to link
1915 if (p
[1] == ELF_VER_CHR
)
1917 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1918 sy_obj
->versioned_name
);
1921 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1925 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
1929 /* The @@@ syntax is a special case. It renames the
1930 symbol name to versioned_name with one `@' removed. */
1931 l
= strlen (&p
[3]) + 1;
1932 memmove (&p
[2], &p
[3], l
);
1933 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1939 /* FIXME: Creating a new symbol here is risky. We're
1940 in the final loop over the symbol table. We can
1941 get away with it only because the symbol goes to
1942 the end of the list, where the loop will still see
1943 it. It would probably be better to do this in
1944 obj_frob_file_before_adjust. */
1946 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
1948 /* Now we act as though we saw symp2 = sym. */
1950 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
1952 /* Subtracting out the frag address here is a hack
1953 because we are in the middle of the final loop. */
1956 - symbol_get_frag (symp
)->fr_address
));
1958 symbol_set_frag (symp2
, symbol_get_frag (symp
));
1960 /* This will copy over the size information. */
1961 copy_symbol_attributes (symp2
, symp
);
1963 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
1965 if (S_IS_WEAK (symp
))
1968 if (S_IS_EXTERNAL (symp
))
1969 S_SET_EXTERNAL (symp2
);
1974 /* Double check weak symbols. */
1975 if (S_IS_WEAK (symp
))
1977 if (S_IS_COMMON (symp
))
1978 as_bad (_("symbol `%s' can not be both weak and common"),
1983 /* The Irix 5 and 6 assemblers set the type of any common symbol and
1984 any undefined non-function symbol to STT_OBJECT. We try to be
1985 compatible, since newer Irix 5 and 6 linkers care. However, we
1986 only set undefined symbols to be STT_OBJECT if we are on Irix,
1987 because that is the only time gcc will generate the necessary
1988 .global directives to mark functions. */
1990 if (S_IS_COMMON (symp
))
1991 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
1993 if (strstr (TARGET_OS
, "irix") != NULL
1994 && ! S_IS_DEFINED (symp
)
1995 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
1996 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2002 asection
**head
; /* Section lists. */
2003 unsigned int *elt_count
; /* Number of sections in each list. */
2004 unsigned int num_group
; /* Number of lists. */
2005 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2008 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2009 add it to a list of sections belonging to the group. INF is a
2010 pointer to a struct group_list, which is where we store the head of
2014 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2016 struct group_list
*list
= (struct group_list
*) inf
;
2017 const char *group_name
= elf_group_name (sec
);
2019 unsigned int *elem_idx
;
2020 unsigned int *idx_ptr
;
2022 if (group_name
== NULL
)
2025 /* If this group already has a list, add the section to the head of
2027 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2028 if (elem_idx
!= NULL
)
2030 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2031 list
->head
[*elem_idx
] = sec
;
2032 list
->elt_count
[*elem_idx
] += 1;
2036 /* New group. Make the arrays bigger in chunks to minimize calls to
2038 i
= list
->num_group
;
2041 unsigned int newsize
= i
+ 128;
2042 list
->head
= (asection
**) xrealloc (list
->head
,
2043 newsize
* sizeof (*list
->head
));
2044 list
->elt_count
= (unsigned int *)
2045 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2047 list
->head
[i
] = sec
;
2048 list
->elt_count
[i
] = 1;
2049 list
->num_group
+= 1;
2051 /* Add index to hash. */
2052 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2054 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2057 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2059 free ((unsigned int *) val
);
2063 elf_frob_file (void)
2065 struct group_list list
;
2068 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2070 /* Go find section groups. */
2073 list
.elt_count
= NULL
;
2074 list
.indexes
= hash_new ();
2075 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2077 /* Make the SHT_GROUP sections that describe each section group. We
2078 can't set up the section contents here yet, because elf section
2079 indices have yet to be calculated. elf.c:set_group_contents does
2080 the rest of the work. */
2081 for (i
= 0; i
< list
.num_group
; i
++)
2083 const char *group_name
= elf_group_name (list
.head
[i
]);
2084 const char *sec_name
;
2091 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2092 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2093 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2095 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2096 if (s
!= list
.head
[i
])
2098 as_warn (_("assuming all members of group `%s' are COMDAT"),
2104 sec_name
= group_name
;
2105 sy
= symbol_find_exact (group_name
);
2108 && (sy
== symbol_lastP
2109 || (sy
->sy_next
!= NULL
2110 && sy
->sy_next
->sy_previous
== sy
)))
2113 sec_name
= ".group";
2115 s
= subseg_force_new (sec_name
, 0);
2117 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2118 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2120 as_fatal (_("can't create group: %s"),
2121 bfd_errmsg (bfd_get_error ()));
2123 elf_section_type (s
) = SHT_GROUP
;
2125 /* Pass a pointer to the first section in this group. */
2126 elf_next_in_group (s
) = list
.head
[i
];
2128 elf_group_id (s
) = sy
->bsym
;
2130 size
= 4 * (list
.elt_count
[i
] + 1);
2131 bfd_set_section_size (stdoutput
, s
, size
);
2132 s
->contents
= (unsigned char *) frag_more (size
);
2133 frag_now
->fr_fix
= frag_now_fix_octets ();
2134 frag_wane (frag_now
);
2137 #ifdef elf_tc_final_processing
2138 elf_tc_final_processing ();
2142 hash_traverse (list
.indexes
, free_section_idx
);
2143 hash_die (list
.indexes
);
2146 /* It removes any unneeded versioned symbols from the symbol table. */
2149 elf_frob_file_before_adjust (void)
2155 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2156 if (!S_IS_DEFINED (symp
))
2158 if (symbol_get_obj (symp
)->versioned_name
)
2162 /* The @@@ syntax is a special case. If the symbol is
2163 not defined, 2 `@'s will be removed from the
2166 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2169 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2171 size_t l
= strlen (&p
[3]) + 1;
2172 memmove (&p
[1], &p
[3], l
);
2174 if (symbol_used_p (symp
) == 0
2175 && symbol_used_in_reloc_p (symp
) == 0)
2176 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2179 /* If there was .weak foo, but foo was neither defined nor
2180 used anywhere, remove it. */
2182 else if (S_IS_WEAK (symp
)
2183 && symbol_used_p (symp
) == 0
2184 && symbol_used_in_reloc_p (symp
) == 0)
2185 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2190 /* It is required that we let write_relocs have the opportunity to
2191 optimize away fixups before output has begun, since it is possible
2192 to eliminate all fixups for a section and thus we never should
2193 have generated the relocation section. */
2196 elf_frob_file_after_relocs (void)
2198 #ifdef NEED_ECOFF_DEBUG
2199 if (ECOFF_DEBUGGING
)
2200 /* Generate the ECOFF debugging information. */
2202 const struct ecoff_debug_swap
*debug_swap
;
2203 struct ecoff_debug_info debug
;
2208 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2209 know (debug_swap
!= NULL
);
2210 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2212 /* Set up the pointers in debug. */
2213 #define SET(ptr, offset, type) \
2214 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2216 SET (line
, cbLineOffset
, unsigned char *);
2217 SET (external_dnr
, cbDnOffset
, void *);
2218 SET (external_pdr
, cbPdOffset
, void *);
2219 SET (external_sym
, cbSymOffset
, void *);
2220 SET (external_opt
, cbOptOffset
, void *);
2221 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2222 SET (ss
, cbSsOffset
, char *);
2223 SET (external_fdr
, cbFdOffset
, void *);
2224 SET (external_rfd
, cbRfdOffset
, void *);
2225 /* ssext and external_ext are set up just below. */
2229 /* Set up the external symbols. */
2230 debug
.ssext
= debug
.ssext_end
= NULL
;
2231 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2232 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2233 elf_get_extr
, elf_set_index
))
2234 as_fatal (_("failed to set up debugging information: %s"),
2235 bfd_errmsg (bfd_get_error ()));
2237 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2238 gas_assert (sec
!= NULL
);
2240 know (!stdoutput
->output_has_begun
);
2242 /* We set the size of the section, call bfd_set_section_contents
2243 to force the ELF backend to allocate a file position, and then
2244 write out the data. FIXME: Is this really the best way to do
2246 bfd_set_section_size
2247 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2249 /* Pass BUF to bfd_set_section_contents because this will
2250 eventually become a call to fwrite, and ISO C prohibits
2251 passing a NULL pointer to a stdio function even if the
2252 pointer will not be used. */
2253 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2254 as_fatal (_("can't start writing .mdebug section: %s"),
2255 bfd_errmsg (bfd_get_error ()));
2257 know (stdoutput
->output_has_begun
);
2258 know (sec
->filepos
!= 0);
2260 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2262 as_fatal (_("could not write .mdebug section: %s"),
2263 bfd_errmsg (bfd_get_error ()));
2265 #endif /* NEED_ECOFF_DEBUG */
2270 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2271 SCO specific identifier in the .notes section to satisfy the SCO
2274 This looks more complicated than it really is. As opposed to the
2275 "obvious" solution, this should handle the cross dev cases
2276 correctly. (i.e, hosting on a 64 bit big endian processor, but
2277 generating SCO Elf code) Efficiency isn't a concern, as there
2278 should be exactly one of these sections per object module.
2280 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2283 int_32 namesz = 4 ; Name size
2284 int_32 descsz = 12 ; Descriptive information
2286 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2287 int_32 version = (major ver # << 16) | version of tools ;
2288 int_32 source = (tool_id << 16 ) | 1 ;
2289 int_32 info = 0 ; These are set by the SCO tools, but we
2290 don't know enough about the source
2291 environment to set them. SCO ld currently
2292 ignores them, and recommends we set them
2295 #define SCO_MAJOR_VERSION 0x1
2296 #define SCO_MINOR_VERSION 0x1
2306 asection
*seg
= now_seg
;
2307 subsegT subseg
= now_subseg
;
2308 Elf_Internal_Note i_note
;
2309 Elf_External_Note e_note
;
2310 asection
*note_secp
= NULL
;
2313 /* create the .note section */
2315 note_secp
= subseg_new (".note", 0);
2316 bfd_set_section_flags (stdoutput
,
2318 SEC_HAS_CONTENTS
| SEC_READONLY
);
2320 /* process the version string */
2323 i_note
.descsz
= 12; /* 12 descriptive bytes */
2324 i_note
.type
= NT_VERSION
; /* Contains a version string */
2326 p
= frag_more (sizeof (i_note
.namesz
));
2327 md_number_to_chars (p
, i_note
.namesz
, 4);
2329 p
= frag_more (sizeof (i_note
.descsz
));
2330 md_number_to_chars (p
, i_note
.descsz
, 4);
2332 p
= frag_more (sizeof (i_note
.type
));
2333 md_number_to_chars (p
, i_note
.type
, 4);
2338 /* Note: this is the version number of the ELF we're representing */
2340 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2342 /* Here, we pick a magic number for ourselves (yes, I "registered"
2343 it with SCO. The bottom bit shows that we are compat with the
2346 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2348 /* If we knew (or cared) what the source language options were, we'd
2349 fill them in here. SCO has given us permission to ignore these
2350 and just set them to zero. */
2352 md_number_to_chars (p
, 0x0000, 4);
2354 frag_align (2, 0, 0);
2356 /* We probably can't restore the current segment, for there likely
2359 subseg_set (seg
, subseg
);
2363 #endif /* SCO_ELF */
2366 elf_separate_stab_sections (void)
2368 #ifdef NEED_ECOFF_DEBUG
2369 return (!ECOFF_DEBUGGING
);
2376 elf_init_stab_section (segT seg
)
2378 #ifdef NEED_ECOFF_DEBUG
2379 if (!ECOFF_DEBUGGING
)
2381 obj_elf_init_stab_section (seg
);
2384 const struct format_ops elf_format_ops
=
2386 bfd_target_elf_flavour
,
2387 0, /* dfl_leading_underscore */
2388 1, /* emit_section_symbols */
2393 elf_frob_file_before_adjust
,
2394 0, /* obj_frob_file_before_fix */
2395 elf_frob_file_after_relocs
,
2396 elf_s_get_size
, elf_s_set_size
,
2397 elf_s_get_align
, elf_s_set_align
,
2404 elf_copy_symbol_attributes
,
2405 #ifdef NEED_ECOFF_DEBUG
2406 ecoff_generate_asm_lineno
,
2409 0, /* generate_asm_lineno */
2410 0, /* process_stab */
2412 elf_separate_stab_sections
,
2413 elf_init_stab_section
,
2414 elf_sec_sym_ok_for_reloc
,
2416 #ifdef NEED_ECOFF_DEBUG
2419 0, /* ecoff_set_ext */
2421 elf_obj_read_begin_hook
,
2422 elf_obj_symbol_new_hook
,