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)
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
, 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 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
405 name
= input_line_pointer
;
406 c
= get_symbol_end ();
407 symbolP
= symbol_find_or_make (name
);
408 *input_line_pointer
= c
;
410 S_CLEAR_EXTERNAL (symbolP
);
411 symbol_get_obj (symbolP
)->local
= 1;
414 input_line_pointer
++;
416 if (*input_line_pointer
== '\n')
421 demand_empty_rest_of_line ();
425 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
433 name
= input_line_pointer
;
434 c
= get_symbol_end ();
435 symbolP
= symbol_find_or_make (name
);
436 *input_line_pointer
= c
;
438 S_SET_WEAK (symbolP
);
439 symbol_get_obj (symbolP
)->local
= 1;
442 input_line_pointer
++;
444 if (*input_line_pointer
== '\n')
449 demand_empty_rest_of_line ();
453 obj_elf_visibility (int visibility
)
459 elf_symbol_type
*elfsym
;
463 name
= input_line_pointer
;
464 c
= get_symbol_end ();
465 symbolP
= symbol_find_or_make (name
);
466 *input_line_pointer
= c
;
470 bfdsym
= symbol_get_bfdsym (symbolP
);
471 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
475 elfsym
->internal_elf_sym
.st_other
&= ~3;
476 elfsym
->internal_elf_sym
.st_other
|= visibility
;
480 input_line_pointer
++;
484 if (*input_line_pointer
== '\n')
490 demand_empty_rest_of_line ();
493 static segT previous_section
;
494 static int previous_subsection
;
498 struct section_stack
*next
;
500 int subseg
, prev_subseg
;
503 static struct section_stack
*section_stack
;
506 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
508 const char *gname
= inf
;
509 const char *group_name
= elf_group_name (sec
);
511 return (group_name
== gname
512 || (group_name
!= NULL
514 && strcmp (group_name
, gname
) == 0));
517 /* Handle the .section pseudo-op. This code supports two different
520 The first is found on Solaris, and looks like
521 .section ".sec1",#alloc,#execinstr,#write
522 Here the names after '#' are the SHF_* flags to turn on for the
523 section. I'm not sure how it determines the SHT_* type (BFD
524 doesn't really give us control over the type, anyhow).
526 The second format is found on UnixWare, and probably most SVR4
527 machines, and looks like
528 .section .sec1,"a",@progbits
529 The quoted string may contain any combination of a, w, x, and
530 represents the SHF_* flags to turn on for the section. The string
531 beginning with '@' can be progbits or nobits. There should be
532 other possibilities, but I don't know what they are. In any case,
533 BFD doesn't really let us set the section type. */
536 obj_elf_change_section (const char *name
,
540 const char *group_name
,
547 const struct elf_backend_data
*bed
;
548 const struct bfd_elf_special_section
*ssect
;
550 #ifdef md_flush_pending_output
551 md_flush_pending_output ();
554 /* Switch to the section, creating it if necessary. */
557 struct section_stack
*elt
;
558 elt
= xmalloc (sizeof (struct section_stack
));
559 elt
->next
= section_stack
;
561 elt
->prev_seg
= previous_section
;
562 elt
->subseg
= now_subseg
;
563 elt
->prev_subseg
= previous_subsection
;
566 previous_section
= now_seg
;
567 previous_subsection
= now_subseg
;
569 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
570 (void *) group_name
);
577 sec
= subseg_force_new (name
, 0);
579 bed
= get_elf_backend_data (stdoutput
);
580 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
584 bfd_boolean override
= FALSE
;
586 if (type
== SHT_NULL
)
588 else if (type
!= ssect
->type
)
591 /* FIXME: gcc, as of 2002-10-22, will emit
593 .section .init_array,"aw",@progbits
595 for __attribute__ ((section (".init_array"))).
596 "@progbits" is incorrect. Also for x86-64 large bss
597 sections, gcc, as of 2005-07-06, will emit
599 .section .lbss,"aw",@progbits
601 "@progbits" is incorrect. */
603 && (bed
->s
->arch_size
!= 64
604 || !(ssect
->attr
& SHF_X86_64_LARGE
))
606 && ssect
->type
!= SHT_INIT_ARRAY
607 && ssect
->type
!= SHT_FINI_ARRAY
608 && ssect
->type
!= SHT_PREINIT_ARRAY
)
610 /* We allow to specify any type for a .note section. */
611 if (ssect
->type
!= SHT_NOTE
)
612 as_warn (_("setting incorrect section type for %s"),
617 as_warn (_("ignoring incorrect section type for %s"),
623 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
625 /* As a GNU extension, we permit a .note section to be
626 allocatable. If the linker sees an allocatable .note
627 section, it will create a PT_NOTE segment in the output
628 file. We also allow "x" for .note.GNU-stack. */
629 if (ssect
->type
== SHT_NOTE
630 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
632 /* Allow different SHF_MERGE and SHF_STRINGS if we have
633 something like .rodata.str. */
634 else if (ssect
->suffix_length
== -2
635 && name
[ssect
->prefix_length
] == '.'
639 & ~SHF_STRINGS
) == 0)
641 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
642 else if (attr
== SHF_ALLOC
643 && (strcmp (name
, ".interp") == 0
644 || strcmp (name
, ".strtab") == 0
645 || strcmp (name
, ".symtab") == 0))
647 /* .note.GNU-stack can have SHF_EXECINSTR. */
648 else if (attr
== SHF_EXECINSTR
649 && strcmp (name
, ".note.GNU-stack") == 0)
652 /* A section on Alpha may have SHF_ALPHA_GPREL. */
653 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
658 if (group_name
== NULL
)
659 as_warn (_("setting incorrect section attributes for %s"),
664 if (!override
&& old_sec
== NULL
)
668 /* Convert ELF type and flags to BFD flags. */
670 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
671 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
672 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
673 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
674 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
675 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
676 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
677 #ifdef md_elf_section_flags
678 flags
= md_elf_section_flags (flags
, attr
, type
);
682 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
688 elf_section_type (sec
) = type
;
689 elf_section_flags (sec
) = attr
;
691 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
692 if (type
== SHT_NOBITS
)
693 seg_info (sec
)->bss
= 1;
695 bfd_set_section_flags (stdoutput
, sec
, flags
);
696 if (flags
& SEC_MERGE
)
697 sec
->entsize
= entsize
;
698 elf_group_name (sec
) = group_name
;
700 /* Add a symbol for this section to the symbol table. */
701 secsym
= symbol_find (name
);
703 symbol_set_bfdsym (secsym
, sec
->symbol
);
705 symbol_table_insert (section_symbol (sec
));
710 && (unsigned) type
!= elf_section_type (old_sec
))
711 as_warn (_("ignoring changed section type for %s"), name
);
715 /* If section attributes are specified the second time we see a
716 particular section, then check that they are the same as we
717 saw the first time. */
718 if (((old_sec
->flags
^ flags
)
719 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
720 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
721 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
722 | SEC_THREAD_LOCAL
)))
723 as_warn (_("ignoring changed section attributes for %s"), name
);
724 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
725 as_warn (_("ignoring changed section entity size for %s"), name
);
729 #ifdef md_elf_section_change_hook
730 md_elf_section_change_hook ();
735 obj_elf_parse_section_letters (char *str
, size_t len
)
750 attr
|= SHF_EXECINSTR
;
766 if (*(str
- 1) == 'a')
769 if (len
> 1 && str
[1] == 's')
778 char *bad_msg
= _("unrecognized .section attribute: want a,w,x,M,S,G,T");
779 #ifdef md_elf_section_letter
780 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
785 as_fatal ("%s", bad_msg
);
796 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
798 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
800 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
802 if (len
== 4 && strncmp (str
, "note", 4) == 0)
804 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
805 return SHT_INIT_ARRAY
;
806 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
807 return SHT_FINI_ARRAY
;
808 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
809 return SHT_PREINIT_ARRAY
;
811 #ifdef md_elf_section_type
813 int md_type
= md_elf_section_type (str
, len
);
820 as_warn (_("unrecognized section type"));
825 obj_elf_section_word (char *str
, size_t len
, int *type
)
829 if (len
== 5 && strncmp (str
, "write", 5) == 0)
831 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
833 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
834 return SHF_EXECINSTR
;
835 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
838 #ifdef md_elf_section_word
840 bfd_vma md_attr
= md_elf_section_word (str
, len
);
846 ret
= obj_elf_section_type (str
, len
, FALSE
);
850 as_warn (_("unrecognized section attribute"));
855 /* Get name of section. */
857 obj_elf_section_name (void)
862 if (*input_line_pointer
== '"')
866 name
= demand_copy_C_string (&dummy
);
869 ignore_rest_of_line ();
875 char *end
= input_line_pointer
;
877 while (0 == strchr ("\n\t,; ", *end
))
879 if (end
== input_line_pointer
)
881 as_bad (_("missing name"));
882 ignore_rest_of_line ();
886 name
= xmalloc (end
- input_line_pointer
+ 1);
887 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
888 name
[end
- input_line_pointer
] = '\0';
889 #ifdef tc_canonicalize_section_name
890 name
= tc_canonicalize_section_name (name
);
892 input_line_pointer
= end
;
899 obj_elf_section (int push
)
901 char *name
, *group_name
, *beg
;
906 subsegT new_subsection
= -1;
913 #ifdef md_flush_pending_output
914 md_flush_pending_output ();
917 previous_section
= now_seg
;
918 previous_subsection
= now_subseg
;
920 s_mri_sect (&mri_type
);
922 #ifdef md_elf_section_change_hook
923 md_elf_section_change_hook ();
928 #endif /* ! defined (TC_I370) */
930 name
= obj_elf_section_name ();
939 if (*input_line_pointer
== ',')
941 /* Skip the comma. */
942 ++input_line_pointer
;
945 if (push
&& ISDIGIT (*input_line_pointer
))
947 /* .pushsection has an optional subsection. */
948 new_subsection
= (subsegT
) get_absolute_expression ();
952 /* Stop if we don't see a comma. */
953 if (*input_line_pointer
!= ',')
956 /* Skip the comma. */
957 ++input_line_pointer
;
961 if (*input_line_pointer
== '"')
963 beg
= demand_copy_C_string (&dummy
);
966 ignore_rest_of_line ();
969 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
));
972 if (*input_line_pointer
== ',')
975 char *save
= input_line_pointer
;
977 ++input_line_pointer
;
979 c
= *input_line_pointer
;
982 beg
= demand_copy_C_string (&dummy
);
985 ignore_rest_of_line ();
988 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
990 else if (c
== '@' || c
== '%')
992 beg
= ++input_line_pointer
;
993 c
= get_symbol_end ();
994 *input_line_pointer
= c
;
995 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
998 input_line_pointer
= save
;
1002 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1004 ++input_line_pointer
;
1006 entsize
= get_absolute_expression ();
1010 as_warn (_("invalid merge entity size"));
1015 else if ((attr
& SHF_MERGE
) != 0)
1017 as_warn (_("entity size for SHF_MERGE not specified"));
1021 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1023 ++input_line_pointer
;
1024 group_name
= obj_elf_section_name ();
1025 if (group_name
== NULL
)
1027 else if (strncmp (input_line_pointer
, ",comdat", 7) == 0)
1029 input_line_pointer
+= 7;
1032 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1035 else if ((attr
& SHF_GROUP
) != 0)
1037 as_warn (_("group name for SHF_GROUP not specified"));
1048 if (*input_line_pointer
!= '#')
1050 as_bad (_("character following name is not '#'"));
1051 ignore_rest_of_line ();
1054 beg
= ++input_line_pointer
;
1055 c
= get_symbol_end ();
1056 *input_line_pointer
= c
;
1058 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1062 while (*input_line_pointer
++ == ',');
1063 --input_line_pointer
;
1068 demand_empty_rest_of_line ();
1070 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1072 if (push
&& new_subsection
!= -1)
1073 subseg_set (now_seg
, new_subsection
);
1076 /* Change to the .data section. */
1079 obj_elf_data (int i
)
1081 #ifdef md_flush_pending_output
1082 md_flush_pending_output ();
1085 previous_section
= now_seg
;
1086 previous_subsection
= now_subseg
;
1089 #ifdef md_elf_section_change_hook
1090 md_elf_section_change_hook ();
1094 /* Change to the .text section. */
1097 obj_elf_text (int i
)
1099 #ifdef md_flush_pending_output
1100 md_flush_pending_output ();
1103 previous_section
= now_seg
;
1104 previous_subsection
= now_subseg
;
1107 #ifdef md_elf_section_change_hook
1108 md_elf_section_change_hook ();
1112 /* Change to the *ABS* section. */
1115 obj_elf_struct (int i
)
1117 #ifdef md_flush_pending_output
1118 md_flush_pending_output ();
1121 previous_section
= now_seg
;
1122 previous_subsection
= now_subseg
;
1125 #ifdef md_elf_section_change_hook
1126 md_elf_section_change_hook ();
1131 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1135 #ifdef md_flush_pending_output
1136 md_flush_pending_output ();
1139 previous_section
= now_seg
;
1140 previous_subsection
= now_subseg
;
1142 temp
= get_absolute_expression ();
1143 subseg_set (now_seg
, (subsegT
) temp
);
1144 demand_empty_rest_of_line ();
1146 #ifdef md_elf_section_change_hook
1147 md_elf_section_change_hook ();
1151 /* This can be called from the processor backends if they change
1155 obj_elf_section_change_hook (void)
1157 previous_section
= now_seg
;
1158 previous_subsection
= now_subseg
;
1162 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1167 if (previous_section
== 0)
1169 as_warn (_(".previous without corresponding .section; ignored"));
1173 #ifdef md_flush_pending_output
1174 md_flush_pending_output ();
1177 new_section
= previous_section
;
1178 new_subsection
= previous_subsection
;
1179 previous_section
= now_seg
;
1180 previous_subsection
= now_subseg
;
1181 subseg_set (new_section
, new_subsection
);
1183 #ifdef md_elf_section_change_hook
1184 md_elf_section_change_hook ();
1189 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1191 struct section_stack
*top
= section_stack
;
1195 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1199 #ifdef md_flush_pending_output
1200 md_flush_pending_output ();
1203 section_stack
= top
->next
;
1204 previous_section
= top
->prev_seg
;
1205 previous_subsection
= top
->prev_subseg
;
1206 subseg_set (top
->seg
, top
->subseg
);
1209 #ifdef md_elf_section_change_hook
1210 md_elf_section_change_hook ();
1215 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1217 /* Assume delimiter is part of expression. BSD4.2 as fails with
1218 delightful bug, so we are not being incompatible here. */
1219 new_logical_line (NULL
, get_absolute_expression ());
1220 demand_empty_rest_of_line ();
1223 /* This handles the .symver pseudo-op, which is used to specify a
1224 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1225 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1226 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1227 with the same value as the symbol NAME. */
1230 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1237 name
= input_line_pointer
;
1238 c
= get_symbol_end ();
1240 sym
= symbol_find_or_make (name
);
1242 *input_line_pointer
= c
;
1245 if (*input_line_pointer
!= ',')
1247 as_bad (_("expected comma after name in .symver"));
1248 ignore_rest_of_line ();
1252 ++input_line_pointer
;
1254 name
= input_line_pointer
;
1256 /* Temporarily include '@' in symbol names. */
1257 old_lexat
= lex_type
[(unsigned char) '@'];
1258 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1259 c
= get_symbol_end ();
1260 lex_type
[(unsigned char) '@'] = old_lexat
;
1262 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1264 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1266 *input_line_pointer
= c
;
1268 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1269 ELF_VER_CHR
) == NULL
)
1271 as_bad (_("missing version name in `%s' for symbol `%s'"),
1272 symbol_get_obj (sym
)->versioned_name
,
1274 ignore_rest_of_line ();
1280 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1282 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1283 name
, symbol_get_obj (sym
)->versioned_name
,
1285 ignore_rest_of_line ();
1289 *input_line_pointer
= c
;
1292 demand_empty_rest_of_line ();
1295 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1296 to the linker the hierarchy in which a particular table resides. The
1297 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1300 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1302 char *cname
, *pname
;
1303 symbolS
*csym
, *psym
;
1306 if (*input_line_pointer
== '#')
1307 ++input_line_pointer
;
1309 cname
= input_line_pointer
;
1310 c
= get_symbol_end ();
1311 csym
= symbol_find (cname
);
1313 /* GCFIXME: should check that we don't have two .vtable_inherits for
1314 the same child symbol. Also, we can currently only do this if the
1315 child symbol is already exists and is placed in a fragment. */
1317 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1319 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1324 *input_line_pointer
= c
;
1327 if (*input_line_pointer
!= ',')
1329 as_bad (_("expected comma after name in .vtable_inherit"));
1330 ignore_rest_of_line ();
1334 ++input_line_pointer
;
1337 if (*input_line_pointer
== '#')
1338 ++input_line_pointer
;
1340 if (input_line_pointer
[0] == '0'
1341 && (input_line_pointer
[1] == '\0'
1342 || ISSPACE (input_line_pointer
[1])))
1344 psym
= section_symbol (absolute_section
);
1345 ++input_line_pointer
;
1349 pname
= input_line_pointer
;
1350 c
= get_symbol_end ();
1351 psym
= symbol_find_or_make (pname
);
1352 *input_line_pointer
= c
;
1355 demand_empty_rest_of_line ();
1360 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1361 return fix_new (symbol_get_frag (csym
),
1362 symbol_get_value_expression (csym
)->X_add_number
,
1363 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1366 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1367 to the linker that a vtable slot was used. The syntax is
1368 ".vtable_entry tablename, offset". */
1371 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1378 if (*input_line_pointer
== '#')
1379 ++input_line_pointer
;
1381 name
= input_line_pointer
;
1382 c
= get_symbol_end ();
1383 sym
= symbol_find_or_make (name
);
1384 *input_line_pointer
= c
;
1387 if (*input_line_pointer
!= ',')
1389 as_bad (_("expected comma after name in .vtable_entry"));
1390 ignore_rest_of_line ();
1394 ++input_line_pointer
;
1395 if (*input_line_pointer
== '#')
1396 ++input_line_pointer
;
1398 offset
= get_absolute_expression ();
1400 demand_empty_rest_of_line ();
1402 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1403 BFD_RELOC_VTABLE_ENTRY
);
1407 elf_obj_read_begin_hook (void)
1409 #ifdef NEED_ECOFF_DEBUG
1410 if (ECOFF_DEBUGGING
)
1411 ecoff_read_begin_hook ();
1416 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1418 struct elf_obj_sy
*sy_obj
;
1420 sy_obj
= symbol_get_obj (symbolP
);
1421 sy_obj
->size
= NULL
;
1422 sy_obj
->versioned_name
= NULL
;
1424 #ifdef NEED_ECOFF_DEBUG
1425 if (ECOFF_DEBUGGING
)
1426 ecoff_symbol_new_hook (symbolP
);
1430 /* When setting one symbol equal to another, by default we probably
1431 want them to have the same "size", whatever it means in the current
1435 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1437 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1438 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1441 if (destelf
->size
== NULL
)
1442 destelf
->size
= xmalloc (sizeof (expressionS
));
1443 *destelf
->size
= *srcelf
->size
;
1447 if (destelf
->size
!= NULL
)
1448 free (destelf
->size
);
1449 destelf
->size
= NULL
;
1451 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1452 /* Don't copy visibility. */
1453 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1454 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1458 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1463 asection
*seg
= now_seg
;
1464 subsegT subseg
= now_subseg
;
1465 Elf_Internal_Note i_note
;
1466 Elf_External_Note e_note
;
1467 asection
*note_secp
= NULL
;
1470 if (*input_line_pointer
== '\"')
1474 ++input_line_pointer
; /* -> 1st char of string. */
1475 name
= input_line_pointer
;
1477 while (is_a_char (c
= next_char_of_string ()))
1479 c
= *input_line_pointer
;
1480 *input_line_pointer
= '\0';
1481 *(input_line_pointer
- 1) = '\0';
1482 *input_line_pointer
= c
;
1484 /* Create the .note section. */
1485 note_secp
= subseg_new (".note", 0);
1486 bfd_set_section_flags (stdoutput
,
1488 SEC_HAS_CONTENTS
| SEC_READONLY
);
1490 /* Process the version string. */
1491 len
= strlen (name
) + 1;
1493 /* PR 3456: Although the name field is padded out to an 4-byte
1494 boundary, the namesz field should not be adjusted. */
1495 i_note
.namesz
= len
;
1496 i_note
.descsz
= 0; /* No description. */
1497 i_note
.type
= NT_VERSION
;
1498 p
= frag_more (sizeof (e_note
.namesz
));
1499 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1500 p
= frag_more (sizeof (e_note
.descsz
));
1501 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1502 p
= frag_more (sizeof (e_note
.type
));
1503 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1504 p
= frag_more (len
);
1505 memcpy (p
, name
, len
);
1507 frag_align (2, 0, 0);
1509 subseg_set (seg
, subseg
);
1512 as_bad (_("expected quoted string"));
1514 demand_empty_rest_of_line ();
1518 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1520 char *name
= input_line_pointer
;
1521 char c
= get_symbol_end ();
1526 p
= input_line_pointer
;
1529 if (*input_line_pointer
!= ',')
1532 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1534 ignore_rest_of_line ();
1537 input_line_pointer
++;
1539 if (exp
.X_op
== O_absent
)
1541 as_bad (_("missing expression in .size directive"));
1542 exp
.X_op
= O_constant
;
1543 exp
.X_add_number
= 0;
1546 sym
= symbol_find_or_make (name
);
1548 if (exp
.X_op
== O_constant
)
1550 S_SET_SIZE (sym
, exp
.X_add_number
);
1551 if (symbol_get_obj (sym
)->size
)
1553 xfree (symbol_get_obj (sym
)->size
);
1554 symbol_get_obj (sym
)->size
= NULL
;
1559 symbol_get_obj (sym
)->size
= xmalloc (sizeof (expressionS
));
1560 *symbol_get_obj (sym
)->size
= exp
;
1562 demand_empty_rest_of_line ();
1565 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1566 There are six syntaxes:
1568 The first (used on Solaris) is
1570 The second (used on UnixWare) is
1572 The third (reportedly to be used on Irix 6.0) is
1574 The fourth (used on NetBSD/Arm and Linux/ARM) is
1576 The fifth (used on SVR4/860) is
1577 .type SYM,"function"
1578 The sixth (emitted by recent SunPRO under Solaris) is
1580 where the integer is the STT_* value.
1584 obj_elf_type_name (char *cp
)
1588 p
= input_line_pointer
;
1589 if (*input_line_pointer
>= '0'
1590 && *input_line_pointer
<= '9')
1592 while (*input_line_pointer
>= '0'
1593 && *input_line_pointer
<= '9')
1594 ++input_line_pointer
;
1595 *cp
= *input_line_pointer
;
1596 *input_line_pointer
= '\0';
1599 *cp
= get_symbol_end ();
1605 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1610 const char *typename
;
1612 elf_symbol_type
*elfsym
;
1614 name
= input_line_pointer
;
1615 c
= get_symbol_end ();
1616 sym
= symbol_find_or_make (name
);
1617 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1618 *input_line_pointer
= c
;
1621 if (*input_line_pointer
== ',')
1622 ++input_line_pointer
;
1625 if ( *input_line_pointer
== '#'
1626 || *input_line_pointer
== '@'
1627 || *input_line_pointer
== '"'
1628 || *input_line_pointer
== '%')
1629 ++input_line_pointer
;
1631 typename
= obj_elf_type_name (& c
);
1634 if (strcmp (typename
, "function") == 0
1635 || strcmp (typename
, "2") == 0
1636 || strcmp (typename
, "STT_FUNC") == 0)
1637 type
= BSF_FUNCTION
;
1638 else if (strcmp (typename
, "object") == 0
1639 || strcmp (typename
, "1") == 0
1640 || strcmp (typename
, "STT_OBJECT") == 0)
1642 else if (strcmp (typename
, "tls_object") == 0
1643 || strcmp (typename
, "6") == 0
1644 || strcmp (typename
, "STT_TLS") == 0)
1645 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1646 else if (strcmp (typename
, "notype") == 0
1647 || strcmp (typename
, "0") == 0
1648 || strcmp (typename
, "STT_NOTYPE") == 0)
1650 else if (strcmp (typename
, "common") == 0
1651 || strcmp (typename
, "5") == 0
1652 || strcmp (typename
, "STT_COMMON") == 0)
1656 if (! S_IS_COMMON (sym
))
1658 if (S_IS_VOLATILE (sym
))
1660 sym
= symbol_clone (sym
, 1);
1661 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1662 S_SET_VALUE (sym
, 0);
1663 S_SET_EXTERNAL (sym
);
1664 symbol_set_frag (sym
, &zero_address_frag
);
1665 S_CLEAR_VOLATILE (sym
);
1667 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1668 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1671 /* FIXME: Is it safe to just change the section ? */
1672 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1673 S_SET_VALUE (sym
, 0);
1674 S_SET_EXTERNAL (sym
);
1678 else if (strcmp (typename
, "gnu_indirect_function") == 0
1679 || strcmp (typename
, "10") == 0
1680 || strcmp (typename
, "STT_GNU_IFUNC") == 0)
1682 const struct elf_backend_data
*bed
;
1684 bed
= get_elf_backend_data (stdoutput
);
1685 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1686 /* GNU/Linux is still using the default value 0. */
1687 || bed
->elf_osabi
== ELFOSABI_NONE
))
1688 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1690 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1692 else if (strcmp (typename
, "gnu_unique_object") == 0)
1694 const struct elf_backend_data
*bed
;
1696 bed
= get_elf_backend_data (stdoutput
);
1697 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1698 /* GNU/Linux is still using the default value 0. */
1699 || bed
->elf_osabi
== ELFOSABI_NONE
))
1700 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1702 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1704 #ifdef md_elf_symbol_type
1705 else if ((type
= md_elf_symbol_type (typename
, sym
, elfsym
)) != -1)
1709 as_bad (_("unrecognized symbol type \"%s\""), typename
);
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
= 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
= 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. */
2007 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2008 add it to a list of sections belonging to the group. INF is a
2009 pointer to a struct group_list, which is where we store the head of
2013 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2015 struct group_list
*list
= inf
;
2016 const char *group_name
= elf_group_name (sec
);
2019 if (group_name
== NULL
)
2022 /* If this group already has a list, add the section to the head of
2024 for (i
= 0; i
< list
->num_group
; i
++)
2026 if (strcmp (group_name
, elf_group_name (list
->head
[i
])) == 0)
2028 elf_next_in_group (sec
) = list
->head
[i
];
2029 list
->head
[i
] = sec
;
2030 list
->elt_count
[i
] += 1;
2035 /* New group. Make the arrays bigger in chunks to minimize calls to
2037 i
= list
->num_group
;
2040 unsigned int newsize
= i
+ 128;
2041 list
->head
= xrealloc (list
->head
, newsize
* sizeof (*list
->head
));
2042 list
->elt_count
= xrealloc (list
->elt_count
,
2043 newsize
* sizeof (*list
->elt_count
));
2045 list
->head
[i
] = sec
;
2046 list
->elt_count
[i
] = 1;
2047 list
->num_group
+= 1;
2051 elf_frob_file (void)
2053 struct group_list list
;
2056 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2058 /* Go find section groups. */
2061 list
.elt_count
= NULL
;
2062 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2064 /* Make the SHT_GROUP sections that describe each section group. We
2065 can't set up the section contents here yet, because elf section
2066 indices have yet to be calculated. elf.c:set_group_contents does
2067 the rest of the work. */
2068 for (i
= 0; i
< list
.num_group
; i
++)
2070 const char *group_name
= elf_group_name (list
.head
[i
]);
2071 const char *sec_name
;
2078 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2079 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2080 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2082 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2083 if (s
!= list
.head
[i
])
2085 as_warn (_("assuming all members of group `%s' are COMDAT"),
2091 sec_name
= group_name
;
2092 sy
= symbol_find_exact (group_name
);
2095 && (sy
== symbol_lastP
2096 || (sy
->sy_next
!= NULL
2097 && sy
->sy_next
->sy_previous
== sy
)))
2100 sec_name
= ".group";
2102 s
= subseg_force_new (sec_name
, 0);
2104 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2105 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2107 as_fatal (_("can't create group: %s"),
2108 bfd_errmsg (bfd_get_error ()));
2110 elf_section_type (s
) = SHT_GROUP
;
2112 /* Pass a pointer to the first section in this group. */
2113 elf_next_in_group (s
) = list
.head
[i
];
2115 elf_group_id (s
) = sy
->bsym
;
2117 size
= 4 * (list
.elt_count
[i
] + 1);
2118 bfd_set_section_size (stdoutput
, s
, size
);
2119 s
->contents
= (unsigned char *) frag_more (size
);
2120 frag_now
->fr_fix
= frag_now_fix_octets ();
2121 frag_wane (frag_now
);
2124 #ifdef elf_tc_final_processing
2125 elf_tc_final_processing ();
2129 /* It removes any unneeded versioned symbols from the symbol table. */
2132 elf_frob_file_before_adjust (void)
2138 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2139 if (!S_IS_DEFINED (symp
))
2141 if (symbol_get_obj (symp
)->versioned_name
)
2145 /* The @@@ syntax is a special case. If the symbol is
2146 not defined, 2 `@'s will be removed from the
2149 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2152 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2154 size_t l
= strlen (&p
[3]) + 1;
2155 memmove (&p
[1], &p
[3], l
);
2157 if (symbol_used_p (symp
) == 0
2158 && symbol_used_in_reloc_p (symp
) == 0)
2159 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2162 /* If there was .weak foo, but foo was neither defined nor
2163 used anywhere, remove it. */
2165 else if (S_IS_WEAK (symp
)
2166 && symbol_used_p (symp
) == 0
2167 && symbol_used_in_reloc_p (symp
) == 0)
2168 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2173 /* It is required that we let write_relocs have the opportunity to
2174 optimize away fixups before output has begun, since it is possible
2175 to eliminate all fixups for a section and thus we never should
2176 have generated the relocation section. */
2179 elf_frob_file_after_relocs (void)
2181 #ifdef NEED_ECOFF_DEBUG
2182 if (ECOFF_DEBUGGING
)
2183 /* Generate the ECOFF debugging information. */
2185 const struct ecoff_debug_swap
*debug_swap
;
2186 struct ecoff_debug_info debug
;
2191 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2192 know (debug_swap
!= NULL
);
2193 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2195 /* Set up the pointers in debug. */
2196 #define SET(ptr, offset, type) \
2197 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2199 SET (line
, cbLineOffset
, unsigned char *);
2200 SET (external_dnr
, cbDnOffset
, void *);
2201 SET (external_pdr
, cbPdOffset
, void *);
2202 SET (external_sym
, cbSymOffset
, void *);
2203 SET (external_opt
, cbOptOffset
, void *);
2204 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2205 SET (ss
, cbSsOffset
, char *);
2206 SET (external_fdr
, cbFdOffset
, void *);
2207 SET (external_rfd
, cbRfdOffset
, void *);
2208 /* ssext and external_ext are set up just below. */
2212 /* Set up the external symbols. */
2213 debug
.ssext
= debug
.ssext_end
= NULL
;
2214 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2215 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2216 elf_get_extr
, elf_set_index
))
2217 as_fatal (_("failed to set up debugging information: %s"),
2218 bfd_errmsg (bfd_get_error ()));
2220 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2221 gas_assert (sec
!= NULL
);
2223 know (!stdoutput
->output_has_begun
);
2225 /* We set the size of the section, call bfd_set_section_contents
2226 to force the ELF backend to allocate a file position, and then
2227 write out the data. FIXME: Is this really the best way to do
2229 bfd_set_section_size
2230 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2232 /* Pass BUF to bfd_set_section_contents because this will
2233 eventually become a call to fwrite, and ISO C prohibits
2234 passing a NULL pointer to a stdio function even if the
2235 pointer will not be used. */
2236 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2237 as_fatal (_("can't start writing .mdebug section: %s"),
2238 bfd_errmsg (bfd_get_error ()));
2240 know (stdoutput
->output_has_begun
);
2241 know (sec
->filepos
!= 0);
2243 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2245 as_fatal (_("could not write .mdebug section: %s"),
2246 bfd_errmsg (bfd_get_error ()));
2248 #endif /* NEED_ECOFF_DEBUG */
2253 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2254 SCO specific identifier in the .notes section to satisfy the SCO
2257 This looks more complicated than it really is. As opposed to the
2258 "obvious" solution, this should handle the cross dev cases
2259 correctly. (i.e, hosting on a 64 bit big endian processor, but
2260 generating SCO Elf code) Efficiency isn't a concern, as there
2261 should be exactly one of these sections per object module.
2263 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2266 int_32 namesz = 4 ; Name size
2267 int_32 descsz = 12 ; Descriptive information
2269 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2270 int_32 version = (major ver # << 16) | version of tools ;
2271 int_32 source = (tool_id << 16 ) | 1 ;
2272 int_32 info = 0 ; These are set by the SCO tools, but we
2273 don't know enough about the source
2274 environment to set them. SCO ld currently
2275 ignores them, and recommends we set them
2278 #define SCO_MAJOR_VERSION 0x1
2279 #define SCO_MINOR_VERSION 0x1
2289 asection
*seg
= now_seg
;
2290 subsegT subseg
= now_subseg
;
2291 Elf_Internal_Note i_note
;
2292 Elf_External_Note e_note
;
2293 asection
*note_secp
= NULL
;
2296 /* create the .note section */
2298 note_secp
= subseg_new (".note", 0);
2299 bfd_set_section_flags (stdoutput
,
2301 SEC_HAS_CONTENTS
| SEC_READONLY
);
2303 /* process the version string */
2306 i_note
.descsz
= 12; /* 12 descriptive bytes */
2307 i_note
.type
= NT_VERSION
; /* Contains a version string */
2309 p
= frag_more (sizeof (i_note
.namesz
));
2310 md_number_to_chars (p
, i_note
.namesz
, 4);
2312 p
= frag_more (sizeof (i_note
.descsz
));
2313 md_number_to_chars (p
, i_note
.descsz
, 4);
2315 p
= frag_more (sizeof (i_note
.type
));
2316 md_number_to_chars (p
, i_note
.type
, 4);
2321 /* Note: this is the version number of the ELF we're representing */
2323 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2325 /* Here, we pick a magic number for ourselves (yes, I "registered"
2326 it with SCO. The bottom bit shows that we are compat with the
2329 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2331 /* If we knew (or cared) what the source language options were, we'd
2332 fill them in here. SCO has given us permission to ignore these
2333 and just set them to zero. */
2335 md_number_to_chars (p
, 0x0000, 4);
2337 frag_align (2, 0, 0);
2339 /* We probably can't restore the current segment, for there likely
2342 subseg_set (seg
, subseg
);
2346 #endif /* SCO_ELF */
2349 elf_separate_stab_sections (void)
2351 #ifdef NEED_ECOFF_DEBUG
2352 return (!ECOFF_DEBUGGING
);
2359 elf_init_stab_section (segT seg
)
2361 #ifdef NEED_ECOFF_DEBUG
2362 if (!ECOFF_DEBUGGING
)
2364 obj_elf_init_stab_section (seg
);
2367 const struct format_ops elf_format_ops
=
2369 bfd_target_elf_flavour
,
2370 0, /* dfl_leading_underscore */
2371 1, /* emit_section_symbols */
2376 elf_frob_file_before_adjust
,
2377 0, /* obj_frob_file_before_fix */
2378 elf_frob_file_after_relocs
,
2379 elf_s_get_size
, elf_s_set_size
,
2380 elf_s_get_align
, elf_s_set_align
,
2387 elf_copy_symbol_attributes
,
2388 #ifdef NEED_ECOFF_DEBUG
2389 ecoff_generate_asm_lineno
,
2392 0, /* generate_asm_lineno */
2393 0, /* process_stab */
2395 elf_separate_stab_sections
,
2396 elf_init_stab_section
,
2397 elf_sec_sym_ok_for_reloc
,
2399 #ifdef NEED_ECOFF_DEBUG
2402 0, /* ecoff_set_ext */
2404 elf_obj_read_begin_hook
,
2405 elf_obj_symbol_new_hook