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 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
= (const char *) 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
= (struct section_stack
*) 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 /* Some older versions of gcc 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, some older versions of gcc 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_EXCLUDE
) ? SEC_EXCLUDE
: 0)
677 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
678 #ifdef md_elf_section_flags
679 flags
= md_elf_section_flags (flags
, attr
, type
);
683 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
689 if (type
== SHT_NULL
)
690 type
= bfd_elf_get_default_section_type (flags
);
691 elf_section_type (sec
) = type
;
692 elf_section_flags (sec
) = attr
;
694 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
695 if (type
== SHT_NOBITS
)
696 seg_info (sec
)->bss
= 1;
698 bfd_set_section_flags (stdoutput
, sec
, flags
);
699 if (flags
& SEC_MERGE
)
700 sec
->entsize
= entsize
;
701 elf_group_name (sec
) = group_name
;
703 /* Add a symbol for this section to the symbol table. */
704 secsym
= symbol_find (name
);
706 symbol_set_bfdsym (secsym
, sec
->symbol
);
708 symbol_table_insert (section_symbol (sec
));
713 && (unsigned) type
!= elf_section_type (old_sec
))
714 as_warn (_("ignoring changed section type for %s"), name
);
718 /* If section attributes are specified the second time we see a
719 particular section, then check that they are the same as we
720 saw the first time. */
721 if (((old_sec
->flags
^ flags
)
722 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
723 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
724 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
725 | SEC_THREAD_LOCAL
)))
726 as_warn (_("ignoring changed section attributes for %s"), name
);
727 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
728 as_warn (_("ignoring changed section entity size for %s"), name
);
732 #ifdef md_elf_section_change_hook
733 md_elf_section_change_hook ();
738 obj_elf_parse_section_letters (char *str
, size_t len
)
756 attr
|= SHF_EXECINSTR
;
772 if (*(str
- 1) == 'a')
775 if (len
> 1 && str
[1] == 's')
784 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
785 #ifdef md_elf_section_letter
786 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
791 as_fatal ("%s", bad_msg
);
802 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
804 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
806 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
808 if (len
== 4 && strncmp (str
, "note", 4) == 0)
810 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
811 return SHT_INIT_ARRAY
;
812 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
813 return SHT_FINI_ARRAY
;
814 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
815 return SHT_PREINIT_ARRAY
;
817 #ifdef md_elf_section_type
819 int md_type
= md_elf_section_type (str
, len
);
826 as_warn (_("unrecognized section type"));
831 obj_elf_section_word (char *str
, size_t len
, int *type
)
835 if (len
== 5 && strncmp (str
, "write", 5) == 0)
837 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
839 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
840 return SHF_EXECINSTR
;
841 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
843 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
846 #ifdef md_elf_section_word
848 bfd_vma md_attr
= md_elf_section_word (str
, len
);
854 ret
= obj_elf_section_type (str
, len
, FALSE
);
858 as_warn (_("unrecognized section attribute"));
863 /* Get name of section. */
865 obj_elf_section_name (void)
870 if (*input_line_pointer
== '"')
874 name
= demand_copy_C_string (&dummy
);
877 ignore_rest_of_line ();
883 char *end
= input_line_pointer
;
885 while (0 == strchr ("\n\t,; ", *end
))
887 if (end
== input_line_pointer
)
889 as_bad (_("missing name"));
890 ignore_rest_of_line ();
894 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
895 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
896 name
[end
- input_line_pointer
] = '\0';
897 #ifdef tc_canonicalize_section_name
898 name
= tc_canonicalize_section_name (name
);
900 input_line_pointer
= end
;
907 obj_elf_section (int push
)
909 char *name
, *group_name
, *beg
;
914 subsegT new_subsection
= -1;
921 #ifdef md_flush_pending_output
922 md_flush_pending_output ();
925 previous_section
= now_seg
;
926 previous_subsection
= now_subseg
;
928 s_mri_sect (&mri_type
);
930 #ifdef md_elf_section_change_hook
931 md_elf_section_change_hook ();
936 #endif /* ! defined (TC_I370) */
938 name
= obj_elf_section_name ();
947 if (*input_line_pointer
== ',')
949 /* Skip the comma. */
950 ++input_line_pointer
;
953 if (push
&& ISDIGIT (*input_line_pointer
))
955 /* .pushsection has an optional subsection. */
956 new_subsection
= (subsegT
) get_absolute_expression ();
960 /* Stop if we don't see a comma. */
961 if (*input_line_pointer
!= ',')
964 /* Skip the comma. */
965 ++input_line_pointer
;
969 if (*input_line_pointer
== '"')
971 beg
= demand_copy_C_string (&dummy
);
974 ignore_rest_of_line ();
977 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
));
980 if (*input_line_pointer
== ',')
983 char *save
= input_line_pointer
;
985 ++input_line_pointer
;
987 c
= *input_line_pointer
;
990 beg
= demand_copy_C_string (&dummy
);
993 ignore_rest_of_line ();
996 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
998 else if (c
== '@' || c
== '%')
1000 beg
= ++input_line_pointer
;
1001 c
= get_symbol_end ();
1002 *input_line_pointer
= c
;
1003 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1006 input_line_pointer
= save
;
1010 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1012 ++input_line_pointer
;
1014 entsize
= get_absolute_expression ();
1018 as_warn (_("invalid merge entity size"));
1023 else if ((attr
& SHF_MERGE
) != 0)
1025 as_warn (_("entity size for SHF_MERGE not specified"));
1029 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1031 ++input_line_pointer
;
1032 group_name
= obj_elf_section_name ();
1033 if (group_name
== NULL
)
1035 else if (strncmp (input_line_pointer
, ",comdat", 7) == 0)
1037 input_line_pointer
+= 7;
1040 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1043 else if ((attr
& SHF_GROUP
) != 0)
1045 as_warn (_("group name for SHF_GROUP not specified"));
1056 if (*input_line_pointer
!= '#')
1058 as_bad (_("character following name is not '#'"));
1059 ignore_rest_of_line ();
1062 beg
= ++input_line_pointer
;
1063 c
= get_symbol_end ();
1064 *input_line_pointer
= c
;
1066 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1070 while (*input_line_pointer
++ == ',');
1071 --input_line_pointer
;
1076 demand_empty_rest_of_line ();
1078 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1080 if (push
&& new_subsection
!= -1)
1081 subseg_set (now_seg
, new_subsection
);
1084 /* Change to the .data section. */
1087 obj_elf_data (int i
)
1089 #ifdef md_flush_pending_output
1090 md_flush_pending_output ();
1093 previous_section
= now_seg
;
1094 previous_subsection
= now_subseg
;
1097 #ifdef md_elf_section_change_hook
1098 md_elf_section_change_hook ();
1102 /* Change to the .text section. */
1105 obj_elf_text (int i
)
1107 #ifdef md_flush_pending_output
1108 md_flush_pending_output ();
1111 previous_section
= now_seg
;
1112 previous_subsection
= now_subseg
;
1115 #ifdef md_elf_section_change_hook
1116 md_elf_section_change_hook ();
1120 /* Change to the *ABS* section. */
1123 obj_elf_struct (int i
)
1125 #ifdef md_flush_pending_output
1126 md_flush_pending_output ();
1129 previous_section
= now_seg
;
1130 previous_subsection
= now_subseg
;
1133 #ifdef md_elf_section_change_hook
1134 md_elf_section_change_hook ();
1139 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1143 #ifdef md_flush_pending_output
1144 md_flush_pending_output ();
1147 previous_section
= now_seg
;
1148 previous_subsection
= now_subseg
;
1150 temp
= get_absolute_expression ();
1151 subseg_set (now_seg
, (subsegT
) temp
);
1152 demand_empty_rest_of_line ();
1154 #ifdef md_elf_section_change_hook
1155 md_elf_section_change_hook ();
1159 /* This can be called from the processor backends if they change
1163 obj_elf_section_change_hook (void)
1165 previous_section
= now_seg
;
1166 previous_subsection
= now_subseg
;
1170 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1175 if (previous_section
== 0)
1177 as_warn (_(".previous without corresponding .section; ignored"));
1181 #ifdef md_flush_pending_output
1182 md_flush_pending_output ();
1185 new_section
= previous_section
;
1186 new_subsection
= previous_subsection
;
1187 previous_section
= now_seg
;
1188 previous_subsection
= now_subseg
;
1189 subseg_set (new_section
, new_subsection
);
1191 #ifdef md_elf_section_change_hook
1192 md_elf_section_change_hook ();
1197 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1199 struct section_stack
*top
= section_stack
;
1203 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1207 #ifdef md_flush_pending_output
1208 md_flush_pending_output ();
1211 section_stack
= top
->next
;
1212 previous_section
= top
->prev_seg
;
1213 previous_subsection
= top
->prev_subseg
;
1214 subseg_set (top
->seg
, top
->subseg
);
1217 #ifdef md_elf_section_change_hook
1218 md_elf_section_change_hook ();
1223 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1225 /* Assume delimiter is part of expression. BSD4.2 as fails with
1226 delightful bug, so we are not being incompatible here. */
1227 new_logical_line (NULL
, get_absolute_expression ());
1228 demand_empty_rest_of_line ();
1231 /* This handles the .symver pseudo-op, which is used to specify a
1232 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1233 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1234 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1235 with the same value as the symbol NAME. */
1238 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1245 name
= input_line_pointer
;
1246 c
= get_symbol_end ();
1248 sym
= symbol_find_or_make (name
);
1250 *input_line_pointer
= c
;
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
)
1386 if (*input_line_pointer
== '#')
1387 ++input_line_pointer
;
1389 name
= input_line_pointer
;
1390 c
= get_symbol_end ();
1391 sym
= symbol_find_or_make (name
);
1392 *input_line_pointer
= c
;
1395 if (*input_line_pointer
!= ',')
1397 as_bad (_("expected comma after name in .vtable_entry"));
1398 ignore_rest_of_line ();
1402 ++input_line_pointer
;
1403 if (*input_line_pointer
== '#')
1404 ++input_line_pointer
;
1406 offset
= get_absolute_expression ();
1408 demand_empty_rest_of_line ();
1410 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1411 BFD_RELOC_VTABLE_ENTRY
);
1415 elf_obj_read_begin_hook (void)
1417 #ifdef NEED_ECOFF_DEBUG
1418 if (ECOFF_DEBUGGING
)
1419 ecoff_read_begin_hook ();
1424 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1426 struct elf_obj_sy
*sy_obj
;
1428 sy_obj
= symbol_get_obj (symbolP
);
1429 sy_obj
->size
= NULL
;
1430 sy_obj
->versioned_name
= NULL
;
1432 #ifdef NEED_ECOFF_DEBUG
1433 if (ECOFF_DEBUGGING
)
1434 ecoff_symbol_new_hook (symbolP
);
1438 /* When setting one symbol equal to another, by default we probably
1439 want them to have the same "size", whatever it means in the current
1443 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1445 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1446 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1449 if (destelf
->size
== NULL
)
1450 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1451 *destelf
->size
= *srcelf
->size
;
1455 if (destelf
->size
!= NULL
)
1456 free (destelf
->size
);
1457 destelf
->size
= NULL
;
1459 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1460 /* Don't copy visibility. */
1461 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1462 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1466 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1471 asection
*seg
= now_seg
;
1472 subsegT subseg
= now_subseg
;
1473 Elf_Internal_Note i_note
;
1474 Elf_External_Note e_note
;
1475 asection
*note_secp
= NULL
;
1478 if (*input_line_pointer
== '\"')
1482 ++input_line_pointer
; /* -> 1st char of string. */
1483 name
= input_line_pointer
;
1485 while (is_a_char (c
= next_char_of_string ()))
1487 c
= *input_line_pointer
;
1488 *input_line_pointer
= '\0';
1489 *(input_line_pointer
- 1) = '\0';
1490 *input_line_pointer
= c
;
1492 /* Create the .note section. */
1493 note_secp
= subseg_new (".note", 0);
1494 bfd_set_section_flags (stdoutput
,
1496 SEC_HAS_CONTENTS
| SEC_READONLY
);
1498 /* Process the version string. */
1499 len
= strlen (name
) + 1;
1501 /* PR 3456: Although the name field is padded out to an 4-byte
1502 boundary, the namesz field should not be adjusted. */
1503 i_note
.namesz
= len
;
1504 i_note
.descsz
= 0; /* No description. */
1505 i_note
.type
= NT_VERSION
;
1506 p
= frag_more (sizeof (e_note
.namesz
));
1507 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1508 p
= frag_more (sizeof (e_note
.descsz
));
1509 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1510 p
= frag_more (sizeof (e_note
.type
));
1511 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1512 p
= frag_more (len
);
1513 memcpy (p
, name
, len
);
1515 frag_align (2, 0, 0);
1517 subseg_set (seg
, subseg
);
1520 as_bad (_("expected quoted string"));
1522 demand_empty_rest_of_line ();
1526 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1528 char *name
= input_line_pointer
;
1529 char c
= get_symbol_end ();
1534 p
= input_line_pointer
;
1537 if (*input_line_pointer
!= ',')
1540 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1542 ignore_rest_of_line ();
1545 input_line_pointer
++;
1547 if (exp
.X_op
== O_absent
)
1549 as_bad (_("missing expression in .size directive"));
1550 exp
.X_op
= O_constant
;
1551 exp
.X_add_number
= 0;
1554 sym
= symbol_find_or_make (name
);
1556 if (exp
.X_op
== O_constant
)
1558 S_SET_SIZE (sym
, exp
.X_add_number
);
1559 if (symbol_get_obj (sym
)->size
)
1561 xfree (symbol_get_obj (sym
)->size
);
1562 symbol_get_obj (sym
)->size
= NULL
;
1567 symbol_get_obj (sym
)->size
=
1568 (expressionS
*) xmalloc (sizeof (expressionS
));
1569 *symbol_get_obj (sym
)->size
= exp
;
1571 demand_empty_rest_of_line ();
1574 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1575 There are six syntaxes:
1577 The first (used on Solaris) is
1579 The second (used on UnixWare) is
1581 The third (reportedly to be used on Irix 6.0) is
1583 The fourth (used on NetBSD/Arm and Linux/ARM) is
1585 The fifth (used on SVR4/860) is
1586 .type SYM,"function"
1587 The sixth (emitted by recent SunPRO under Solaris) is
1589 where the integer is the STT_* value.
1593 obj_elf_type_name (char *cp
)
1597 p
= input_line_pointer
;
1598 if (*input_line_pointer
>= '0'
1599 && *input_line_pointer
<= '9')
1601 while (*input_line_pointer
>= '0'
1602 && *input_line_pointer
<= '9')
1603 ++input_line_pointer
;
1604 *cp
= *input_line_pointer
;
1605 *input_line_pointer
= '\0';
1608 *cp
= get_symbol_end ();
1614 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1619 const char *type_name
;
1621 elf_symbol_type
*elfsym
;
1623 name
= input_line_pointer
;
1624 c
= get_symbol_end ();
1625 sym
= symbol_find_or_make (name
);
1626 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1627 *input_line_pointer
= c
;
1630 if (*input_line_pointer
== ',')
1631 ++input_line_pointer
;
1634 if ( *input_line_pointer
== '#'
1635 || *input_line_pointer
== '@'
1636 || *input_line_pointer
== '"'
1637 || *input_line_pointer
== '%')
1638 ++input_line_pointer
;
1640 type_name
= obj_elf_type_name (& c
);
1643 if (strcmp (type_name
, "function") == 0
1644 || strcmp (type_name
, "2") == 0
1645 || strcmp (type_name
, "STT_FUNC") == 0)
1646 type
= BSF_FUNCTION
;
1647 else if (strcmp (type_name
, "object") == 0
1648 || strcmp (type_name
, "1") == 0
1649 || strcmp (type_name
, "STT_OBJECT") == 0)
1651 else if (strcmp (type_name
, "tls_object") == 0
1652 || strcmp (type_name
, "6") == 0
1653 || strcmp (type_name
, "STT_TLS") == 0)
1654 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1655 else if (strcmp (type_name
, "notype") == 0
1656 || strcmp (type_name
, "0") == 0
1657 || strcmp (type_name
, "STT_NOTYPE") == 0)
1659 else if (strcmp (type_name
, "common") == 0
1660 || strcmp (type_name
, "5") == 0
1661 || strcmp (type_name
, "STT_COMMON") == 0)
1665 if (! S_IS_COMMON (sym
))
1667 if (S_IS_VOLATILE (sym
))
1669 sym
= symbol_clone (sym
, 1);
1670 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1671 S_SET_VALUE (sym
, 0);
1672 S_SET_EXTERNAL (sym
);
1673 symbol_set_frag (sym
, &zero_address_frag
);
1674 S_CLEAR_VOLATILE (sym
);
1676 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1677 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1680 /* FIXME: Is it safe to just change the section ? */
1681 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1682 S_SET_VALUE (sym
, 0);
1683 S_SET_EXTERNAL (sym
);
1687 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1688 || strcmp (type_name
, "10") == 0
1689 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1691 const struct elf_backend_data
*bed
;
1693 bed
= get_elf_backend_data (stdoutput
);
1694 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1695 /* GNU/Linux is still using the default value 0. */
1696 || bed
->elf_osabi
== ELFOSABI_NONE
))
1697 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1699 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1701 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1703 struct elf_backend_data
*bed
;
1705 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1706 if (!(bed
->elf_osabi
== ELFOSABI_LINUX
1707 /* GNU/Linux is still using the default value 0. */
1708 || bed
->elf_osabi
== ELFOSABI_NONE
))
1709 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1711 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1712 /* PR 10549: Always set OSABI field to LINUX for objects containing unique symbols. */
1713 bed
->elf_osabi
= ELFOSABI_LINUX
;
1715 #ifdef md_elf_symbol_type
1716 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1720 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1722 *input_line_pointer
= c
;
1724 if (*input_line_pointer
== '"')
1725 ++input_line_pointer
;
1727 elfsym
->symbol
.flags
|= type
;
1729 demand_empty_rest_of_line ();
1733 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1735 static segT comment_section
;
1736 segT old_section
= now_seg
;
1737 int old_subsection
= now_subseg
;
1739 #ifdef md_flush_pending_output
1740 md_flush_pending_output ();
1743 if (!comment_section
)
1746 comment_section
= subseg_new (".comment", 0);
1747 bfd_set_section_flags (stdoutput
, comment_section
,
1748 SEC_READONLY
| SEC_HAS_CONTENTS
1749 | SEC_MERGE
| SEC_STRINGS
);
1750 comment_section
->entsize
= 1;
1751 #ifdef md_elf_section_change_hook
1752 md_elf_section_change_hook ();
1758 subseg_set (comment_section
, 0);
1760 subseg_set (old_section
, old_subsection
);
1763 #ifdef INIT_STAB_SECTION
1765 /* The first entry in a .stabs section is special. */
1768 obj_elf_init_stab_section (segT seg
)
1773 unsigned int stroff
;
1775 /* Force the section to align to a longword boundary. Without this,
1776 UnixWare ar crashes. */
1777 bfd_set_section_alignment (stdoutput
, seg
, 2);
1779 /* Make space for this first symbol. */
1783 as_where (&file
, NULL
);
1784 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
1785 strcpy (stabstr_name
, segment_name (seg
));
1786 strcat (stabstr_name
, "str");
1787 stroff
= get_stab_string_offset (file
, stabstr_name
);
1789 md_number_to_chars (p
, stroff
, 4);
1790 seg_info (seg
)->stabu
.p
= p
;
1795 /* Fill in the counts in the first entry in a .stabs section. */
1798 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
1805 if (strncmp (".stab", sec
->name
, 5))
1807 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
1810 name
= (char *) alloca (strlen (sec
->name
) + 4);
1811 strcpy (name
, sec
->name
);
1812 strcat (name
, "str");
1813 strsec
= bfd_get_section_by_name (abfd
, name
);
1815 strsz
= bfd_section_size (abfd
, strsec
);
1818 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
1820 p
= seg_info (sec
)->stabu
.p
;
1821 gas_assert (p
!= 0);
1823 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
1824 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
1827 #ifdef NEED_ECOFF_DEBUG
1829 /* This function is called by the ECOFF code. It is supposed to
1830 record the external symbol information so that the backend can
1831 write it out correctly. The ELF backend doesn't actually handle
1832 this at the moment, so we do it ourselves. We save the information
1835 #ifdef OBJ_MAYBE_ELF
1839 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
1841 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
1844 /* This function is called by bfd_ecoff_debug_externals. It is
1845 supposed to *EXT to the external symbol information, and return
1846 whether the symbol should be used at all. */
1849 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
1851 if (sym
->udata
.p
== NULL
)
1853 *ext
= *(EXTR
*) sym
->udata
.p
;
1857 /* This function is called by bfd_ecoff_debug_externals. It has
1858 nothing to do for ELF. */
1861 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
1862 bfd_size_type indx ATTRIBUTE_UNUSED
)
1866 #endif /* NEED_ECOFF_DEBUG */
1869 elf_frob_symbol (symbolS
*symp
, int *puntp
)
1871 struct elf_obj_sy
*sy_obj
;
1873 #ifdef NEED_ECOFF_DEBUG
1874 if (ECOFF_DEBUGGING
)
1875 ecoff_frob_symbol (symp
);
1878 sy_obj
= symbol_get_obj (symp
);
1880 if (sy_obj
->size
!= NULL
)
1882 switch (sy_obj
->size
->X_op
)
1886 (S_GET_VALUE (sy_obj
->size
->X_add_symbol
)
1887 + sy_obj
->size
->X_add_number
1888 - S_GET_VALUE (sy_obj
->size
->X_op_symbol
)));
1892 (S_GET_VALUE (sy_obj
->size
->X_add_symbol
)
1893 + sy_obj
->size
->X_add_number
));
1896 as_bad (_(".size expression too complicated to fix up"));
1899 free (sy_obj
->size
);
1900 sy_obj
->size
= NULL
;
1903 if (sy_obj
->versioned_name
!= NULL
)
1907 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
1910 /* This symbol was given a new name with the .symver directive.
1912 If this is an external reference, just rename the symbol to
1913 include the version string. This will make the relocs be
1914 against the correct versioned symbol.
1916 If this is a definition, add an alias. FIXME: Using an alias
1917 will permit the debugging information to refer to the right
1918 symbol. However, it's not clear whether it is the best
1921 if (! S_IS_DEFINED (symp
))
1923 /* Verify that the name isn't using the @@ syntax--this is
1924 reserved for definitions of the default version to link
1926 if (p
[1] == ELF_VER_CHR
)
1928 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1929 sy_obj
->versioned_name
);
1932 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1936 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
1940 /* The @@@ syntax is a special case. It renames the
1941 symbol name to versioned_name with one `@' removed. */
1942 l
= strlen (&p
[3]) + 1;
1943 memmove (&p
[2], &p
[3], l
);
1944 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1950 /* FIXME: Creating a new symbol here is risky. We're
1951 in the final loop over the symbol table. We can
1952 get away with it only because the symbol goes to
1953 the end of the list, where the loop will still see
1954 it. It would probably be better to do this in
1955 obj_frob_file_before_adjust. */
1957 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
1959 /* Now we act as though we saw symp2 = sym. */
1961 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
1963 /* Subtracting out the frag address here is a hack
1964 because we are in the middle of the final loop. */
1967 - symbol_get_frag (symp
)->fr_address
));
1969 symbol_set_frag (symp2
, symbol_get_frag (symp
));
1971 /* This will copy over the size information. */
1972 copy_symbol_attributes (symp2
, symp
);
1974 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
1976 if (S_IS_WEAK (symp
))
1979 if (S_IS_EXTERNAL (symp
))
1980 S_SET_EXTERNAL (symp2
);
1985 /* Double check weak symbols. */
1986 if (S_IS_WEAK (symp
))
1988 if (S_IS_COMMON (symp
))
1989 as_bad (_("symbol `%s' can not be both weak and common"),
1994 /* The Irix 5 and 6 assemblers set the type of any common symbol and
1995 any undefined non-function symbol to STT_OBJECT. We try to be
1996 compatible, since newer Irix 5 and 6 linkers care. However, we
1997 only set undefined symbols to be STT_OBJECT if we are on Irix,
1998 because that is the only time gcc will generate the necessary
1999 .global directives to mark functions. */
2001 if (S_IS_COMMON (symp
))
2002 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2004 if (strstr (TARGET_OS
, "irix") != NULL
2005 && ! S_IS_DEFINED (symp
)
2006 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2007 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2013 asection
**head
; /* Section lists. */
2014 unsigned int *elt_count
; /* Number of sections in each list. */
2015 unsigned int num_group
; /* Number of lists. */
2016 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2019 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2020 add it to a list of sections belonging to the group. INF is a
2021 pointer to a struct group_list, which is where we store the head of
2025 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2027 struct group_list
*list
= (struct group_list
*) inf
;
2028 const char *group_name
= elf_group_name (sec
);
2030 unsigned int *elem_idx
;
2031 unsigned int *idx_ptr
;
2033 if (group_name
== NULL
)
2036 /* If this group already has a list, add the section to the head of
2038 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2039 if (elem_idx
!= NULL
)
2041 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2042 list
->head
[*elem_idx
] = sec
;
2043 list
->elt_count
[*elem_idx
] += 1;
2047 /* New group. Make the arrays bigger in chunks to minimize calls to
2049 i
= list
->num_group
;
2052 unsigned int newsize
= i
+ 128;
2053 list
->head
= (asection
**) xrealloc (list
->head
,
2054 newsize
* sizeof (*list
->head
));
2055 list
->elt_count
= (unsigned int *)
2056 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2058 list
->head
[i
] = sec
;
2059 list
->elt_count
[i
] = 1;
2060 list
->num_group
+= 1;
2062 /* Add index to hash. */
2063 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2065 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2068 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2070 free ((unsigned int *) val
);
2074 elf_frob_file (void)
2076 struct group_list list
;
2079 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2081 /* Go find section groups. */
2084 list
.elt_count
= NULL
;
2085 list
.indexes
= hash_new ();
2086 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2088 /* Make the SHT_GROUP sections that describe each section group. We
2089 can't set up the section contents here yet, because elf section
2090 indices have yet to be calculated. elf.c:set_group_contents does
2091 the rest of the work. */
2092 for (i
= 0; i
< list
.num_group
; i
++)
2094 const char *group_name
= elf_group_name (list
.head
[i
]);
2095 const char *sec_name
;
2102 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2103 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2104 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2106 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2107 if (s
!= list
.head
[i
])
2109 as_warn (_("assuming all members of group `%s' are COMDAT"),
2115 sec_name
= group_name
;
2116 sy
= symbol_find_exact (group_name
);
2119 && (sy
== symbol_lastP
2120 || (sy
->sy_next
!= NULL
2121 && sy
->sy_next
->sy_previous
== sy
)))
2124 sec_name
= ".group";
2126 s
= subseg_force_new (sec_name
, 0);
2128 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2129 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2131 as_fatal (_("can't create group: %s"),
2132 bfd_errmsg (bfd_get_error ()));
2134 elf_section_type (s
) = SHT_GROUP
;
2136 /* Pass a pointer to the first section in this group. */
2137 elf_next_in_group (s
) = list
.head
[i
];
2139 elf_group_id (s
) = sy
->bsym
;
2141 size
= 4 * (list
.elt_count
[i
] + 1);
2142 bfd_set_section_size (stdoutput
, s
, size
);
2143 s
->contents
= (unsigned char *) frag_more (size
);
2144 frag_now
->fr_fix
= frag_now_fix_octets ();
2145 frag_wane (frag_now
);
2148 #ifdef elf_tc_final_processing
2149 elf_tc_final_processing ();
2153 hash_traverse (list
.indexes
, free_section_idx
);
2154 hash_die (list
.indexes
);
2157 /* It removes any unneeded versioned symbols from the symbol table. */
2160 elf_frob_file_before_adjust (void)
2166 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2167 if (!S_IS_DEFINED (symp
))
2169 if (symbol_get_obj (symp
)->versioned_name
)
2173 /* The @@@ syntax is a special case. If the symbol is
2174 not defined, 2 `@'s will be removed from the
2177 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2180 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2182 size_t l
= strlen (&p
[3]) + 1;
2183 memmove (&p
[1], &p
[3], l
);
2185 if (symbol_used_p (symp
) == 0
2186 && symbol_used_in_reloc_p (symp
) == 0)
2187 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2190 /* If there was .weak foo, but foo was neither defined nor
2191 used anywhere, remove it. */
2193 else if (S_IS_WEAK (symp
)
2194 && symbol_used_p (symp
) == 0
2195 && symbol_used_in_reloc_p (symp
) == 0)
2196 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2201 /* It is required that we let write_relocs have the opportunity to
2202 optimize away fixups before output has begun, since it is possible
2203 to eliminate all fixups for a section and thus we never should
2204 have generated the relocation section. */
2207 elf_frob_file_after_relocs (void)
2209 #ifdef NEED_ECOFF_DEBUG
2210 if (ECOFF_DEBUGGING
)
2211 /* Generate the ECOFF debugging information. */
2213 const struct ecoff_debug_swap
*debug_swap
;
2214 struct ecoff_debug_info debug
;
2219 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2220 know (debug_swap
!= NULL
);
2221 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2223 /* Set up the pointers in debug. */
2224 #define SET(ptr, offset, type) \
2225 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2227 SET (line
, cbLineOffset
, unsigned char *);
2228 SET (external_dnr
, cbDnOffset
, void *);
2229 SET (external_pdr
, cbPdOffset
, void *);
2230 SET (external_sym
, cbSymOffset
, void *);
2231 SET (external_opt
, cbOptOffset
, void *);
2232 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2233 SET (ss
, cbSsOffset
, char *);
2234 SET (external_fdr
, cbFdOffset
, void *);
2235 SET (external_rfd
, cbRfdOffset
, void *);
2236 /* ssext and external_ext are set up just below. */
2240 /* Set up the external symbols. */
2241 debug
.ssext
= debug
.ssext_end
= NULL
;
2242 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2243 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2244 elf_get_extr
, elf_set_index
))
2245 as_fatal (_("failed to set up debugging information: %s"),
2246 bfd_errmsg (bfd_get_error ()));
2248 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2249 gas_assert (sec
!= NULL
);
2251 know (!stdoutput
->output_has_begun
);
2253 /* We set the size of the section, call bfd_set_section_contents
2254 to force the ELF backend to allocate a file position, and then
2255 write out the data. FIXME: Is this really the best way to do
2257 bfd_set_section_size
2258 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2260 /* Pass BUF to bfd_set_section_contents because this will
2261 eventually become a call to fwrite, and ISO C prohibits
2262 passing a NULL pointer to a stdio function even if the
2263 pointer will not be used. */
2264 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2265 as_fatal (_("can't start writing .mdebug section: %s"),
2266 bfd_errmsg (bfd_get_error ()));
2268 know (stdoutput
->output_has_begun
);
2269 know (sec
->filepos
!= 0);
2271 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2273 as_fatal (_("could not write .mdebug section: %s"),
2274 bfd_errmsg (bfd_get_error ()));
2276 #endif /* NEED_ECOFF_DEBUG */
2281 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2282 SCO specific identifier in the .notes section to satisfy the SCO
2285 This looks more complicated than it really is. As opposed to the
2286 "obvious" solution, this should handle the cross dev cases
2287 correctly. (i.e, hosting on a 64 bit big endian processor, but
2288 generating SCO Elf code) Efficiency isn't a concern, as there
2289 should be exactly one of these sections per object module.
2291 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2294 int_32 namesz = 4 ; Name size
2295 int_32 descsz = 12 ; Descriptive information
2297 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2298 int_32 version = (major ver # << 16) | version of tools ;
2299 int_32 source = (tool_id << 16 ) | 1 ;
2300 int_32 info = 0 ; These are set by the SCO tools, but we
2301 don't know enough about the source
2302 environment to set them. SCO ld currently
2303 ignores them, and recommends we set them
2306 #define SCO_MAJOR_VERSION 0x1
2307 #define SCO_MINOR_VERSION 0x1
2317 asection
*seg
= now_seg
;
2318 subsegT subseg
= now_subseg
;
2319 Elf_Internal_Note i_note
;
2320 Elf_External_Note e_note
;
2321 asection
*note_secp
= NULL
;
2324 /* create the .note section */
2326 note_secp
= subseg_new (".note", 0);
2327 bfd_set_section_flags (stdoutput
,
2329 SEC_HAS_CONTENTS
| SEC_READONLY
);
2331 /* process the version string */
2334 i_note
.descsz
= 12; /* 12 descriptive bytes */
2335 i_note
.type
= NT_VERSION
; /* Contains a version string */
2337 p
= frag_more (sizeof (i_note
.namesz
));
2338 md_number_to_chars (p
, i_note
.namesz
, 4);
2340 p
= frag_more (sizeof (i_note
.descsz
));
2341 md_number_to_chars (p
, i_note
.descsz
, 4);
2343 p
= frag_more (sizeof (i_note
.type
));
2344 md_number_to_chars (p
, i_note
.type
, 4);
2349 /* Note: this is the version number of the ELF we're representing */
2351 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2353 /* Here, we pick a magic number for ourselves (yes, I "registered"
2354 it with SCO. The bottom bit shows that we are compat with the
2357 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2359 /* If we knew (or cared) what the source language options were, we'd
2360 fill them in here. SCO has given us permission to ignore these
2361 and just set them to zero. */
2363 md_number_to_chars (p
, 0x0000, 4);
2365 frag_align (2, 0, 0);
2367 /* We probably can't restore the current segment, for there likely
2370 subseg_set (seg
, subseg
);
2374 #endif /* SCO_ELF */
2377 elf_separate_stab_sections (void)
2379 #ifdef NEED_ECOFF_DEBUG
2380 return (!ECOFF_DEBUGGING
);
2387 elf_init_stab_section (segT seg
)
2389 #ifdef NEED_ECOFF_DEBUG
2390 if (!ECOFF_DEBUGGING
)
2392 obj_elf_init_stab_section (seg
);
2395 const struct format_ops elf_format_ops
=
2397 bfd_target_elf_flavour
,
2398 0, /* dfl_leading_underscore */
2399 1, /* emit_section_symbols */
2404 elf_frob_file_before_adjust
,
2405 0, /* obj_frob_file_before_fix */
2406 elf_frob_file_after_relocs
,
2407 elf_s_get_size
, elf_s_set_size
,
2408 elf_s_get_align
, elf_s_set_align
,
2415 elf_copy_symbol_attributes
,
2416 #ifdef NEED_ECOFF_DEBUG
2417 ecoff_generate_asm_lineno
,
2420 0, /* generate_asm_lineno */
2421 0, /* process_stab */
2423 elf_separate_stab_sections
,
2424 elf_init_stab_section
,
2425 elf_sec_sym_ok_for_reloc
,
2427 #ifdef NEED_ECOFF_DEBUG
2430 0, /* ecoff_set_ext */
2432 elf_obj_read_begin_hook
,
2433 elf_obj_symbol_new_hook
,