1 /* ELF object file format
2 Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
4 Free Software Foundation, Inc.
6 This file is part of GAS, the GNU Assembler.
8 GAS is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as
10 published by the Free Software Foundation; either version 3,
11 or (at your option) any later version.
13 GAS is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
16 the GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GAS; see the file COPYING. If not, write to the Free
20 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
23 #define OBJ_HEADER "obj-elf.h"
25 #include "safe-ctype.h"
28 #include "struc-symbol.h"
29 #include "dwarf2dbg.h"
31 #ifndef ECOFF_DEBUGGING
32 #define ECOFF_DEBUGGING 0
34 #define NEED_ECOFF_DEBUG
37 #ifdef NEED_ECOFF_DEBUG
42 #include "elf/alpha.h"
58 #include "elf/x86-64.h"
65 static void obj_elf_line (int);
66 static void obj_elf_size (int);
67 static void obj_elf_type (int);
68 static void obj_elf_ident (int);
69 static void obj_elf_weak (int);
70 static void obj_elf_local (int);
71 static void obj_elf_visibility (int);
72 static void obj_elf_symver (int);
73 static void obj_elf_subsection (int);
74 static void obj_elf_popsection (int);
75 static void obj_elf_tls_common (int);
76 static void obj_elf_lcomm (int);
77 static void obj_elf_struct (int);
79 static const pseudo_typeS elf_pseudo_table
[] =
81 {"comm", obj_elf_common
, 0},
82 {"common", obj_elf_common
, 1},
83 {"ident", obj_elf_ident
, 0},
84 {"lcomm", obj_elf_lcomm
, 0},
85 {"local", obj_elf_local
, 0},
86 {"previous", obj_elf_previous
, 0},
87 {"section", obj_elf_section
, 0},
88 {"section.s", obj_elf_section
, 0},
89 {"sect", obj_elf_section
, 0},
90 {"sect.s", obj_elf_section
, 0},
91 {"pushsection", obj_elf_section
, 1},
92 {"popsection", obj_elf_popsection
, 0},
93 {"size", obj_elf_size
, 0},
94 {"type", obj_elf_type
, 0},
95 {"version", obj_elf_version
, 0},
96 {"weak", obj_elf_weak
, 0},
98 /* These define symbol visibility. */
99 {"internal", obj_elf_visibility
, STV_INTERNAL
},
100 {"hidden", obj_elf_visibility
, STV_HIDDEN
},
101 {"protected", obj_elf_visibility
, STV_PROTECTED
},
103 /* These are used for stabs-in-elf configurations. */
104 {"line", obj_elf_line
, 0},
106 /* This is a GNU extension to handle symbol versions. */
107 {"symver", obj_elf_symver
, 0},
109 /* A GNU extension to change subsection only. */
110 {"subsection", obj_elf_subsection
, 0},
112 /* These are GNU extensions to aid in garbage collecting C++ vtables. */
113 {"vtable_inherit", (void (*) (int)) &obj_elf_vtable_inherit
, 0},
114 {"vtable_entry", (void (*) (int)) &obj_elf_vtable_entry
, 0},
116 /* These are used for dwarf. */
120 /* These are used for dwarf2. */
121 { "file", (void (*) (int)) dwarf2_directive_file
, 0 },
122 { "loc", dwarf2_directive_loc
, 0 },
123 { "loc_mark_labels", dwarf2_directive_loc_mark_labels
, 0 },
125 /* We need to trap the section changing calls to handle .previous. */
126 {"data", obj_elf_data
, 0},
127 {"offset", obj_elf_struct
, 0},
128 {"struct", obj_elf_struct
, 0},
129 {"text", obj_elf_text
, 0},
131 {"tls_common", obj_elf_tls_common
, 0},
137 static const pseudo_typeS ecoff_debug_pseudo_table
[] =
139 #ifdef NEED_ECOFF_DEBUG
140 /* COFF style debugging information for ECOFF. .ln is not used; .loc
142 { "def", ecoff_directive_def
, 0 },
143 { "dim", ecoff_directive_dim
, 0 },
144 { "endef", ecoff_directive_endef
, 0 },
145 { "file", ecoff_directive_file
, 0 },
146 { "scl", ecoff_directive_scl
, 0 },
147 { "tag", ecoff_directive_tag
, 0 },
148 { "val", ecoff_directive_val
, 0 },
150 /* COFF debugging requires pseudo-ops .size and .type, but ELF
151 already has meanings for those. We use .esize and .etype
152 instead. These are only generated by gcc anyhow. */
153 { "esize", ecoff_directive_size
, 0 },
154 { "etype", ecoff_directive_type
, 0 },
156 /* ECOFF specific debugging information. */
157 { "begin", ecoff_directive_begin
, 0 },
158 { "bend", ecoff_directive_bend
, 0 },
159 { "end", ecoff_directive_end
, 0 },
160 { "ent", ecoff_directive_ent
, 0 },
161 { "fmask", ecoff_directive_fmask
, 0 },
162 { "frame", ecoff_directive_frame
, 0 },
163 { "loc", ecoff_directive_loc
, 0 },
164 { "mask", ecoff_directive_mask
, 0 },
166 /* Other ECOFF directives. */
167 { "extern", ecoff_directive_extern
, 0 },
169 /* These are used on Irix. I don't know how to implement them. */
170 { "alias", s_ignore
, 0 },
171 { "bgnb", s_ignore
, 0 },
172 { "endb", s_ignore
, 0 },
173 { "lab", s_ignore
, 0 },
174 { "noalias", s_ignore
, 0 },
175 { "verstamp", s_ignore
, 0 },
176 { "vreg", s_ignore
, 0 },
179 {NULL
, NULL
, 0} /* end sentinel */
183 #include "aout/aout64.h"
185 /* This is called when the assembler starts. */
187 asection
*elf_com_section_ptr
;
194 /* Add symbols for the known sections to the symbol table. */
195 s
= bfd_get_section_by_name (stdoutput
, TEXT_SECTION_NAME
);
196 symbol_table_insert (section_symbol (s
));
197 s
= bfd_get_section_by_name (stdoutput
, DATA_SECTION_NAME
);
198 symbol_table_insert (section_symbol (s
));
199 s
= bfd_get_section_by_name (stdoutput
, BSS_SECTION_NAME
);
200 symbol_table_insert (section_symbol (s
));
201 elf_com_section_ptr
= bfd_com_section_ptr
;
205 elf_pop_insert (void)
207 pop_insert (elf_pseudo_table
);
209 pop_insert (ecoff_debug_pseudo_table
);
213 elf_s_get_size (symbolS
*sym
)
215 return S_GET_SIZE (sym
);
219 elf_s_set_size (symbolS
*sym
, bfd_vma sz
)
221 S_SET_SIZE (sym
, sz
);
225 elf_s_get_align (symbolS
*sym
)
227 return S_GET_ALIGN (sym
);
231 elf_s_set_align (symbolS
*sym
, bfd_vma align
)
233 S_SET_ALIGN (sym
, align
);
237 elf_s_get_other (symbolS
*sym
)
239 return elf_symbol (symbol_get_bfdsym (sym
))->internal_elf_sym
.st_other
;
243 elf_s_set_other (symbolS
*sym
, int other
)
245 S_SET_OTHER (sym
, other
);
249 elf_sec_sym_ok_for_reloc (asection
*sec
)
251 return obj_sec_sym_ok_for_reloc (sec
);
255 elf_file_symbol (const char *s
, int appfile
)
258 || symbol_rootP
== NULL
259 || symbol_rootP
->bsym
== NULL
260 || (symbol_rootP
->bsym
->flags
& BSF_FILE
) == 0)
263 unsigned int name_length
;
265 sym
= symbol_new (s
, absolute_section
, 0, NULL
);
266 symbol_set_frag (sym
, &zero_address_frag
);
268 name_length
= strlen (s
);
269 if (name_length
> strlen (S_GET_NAME (sym
)))
271 obstack_grow (¬es
, s
, name_length
+ 1);
272 S_SET_NAME (sym
, (const char *) obstack_finish (¬es
));
275 strcpy ((char *) S_GET_NAME (sym
), s
);
277 symbol_get_bfdsym (sym
)->flags
|= BSF_FILE
;
279 if (symbol_rootP
!= sym
)
281 symbol_remove (sym
, &symbol_rootP
, &symbol_lastP
);
282 symbol_insert (sym
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
284 verify_symbol_chain (symbol_rootP
, symbol_lastP
);
289 #ifdef NEED_ECOFF_DEBUG
290 ecoff_new_file (s
, appfile
);
294 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
295 Parse a possible alignment value. */
298 elf_common_parse (int ignore ATTRIBUTE_UNUSED
, symbolS
*symbolP
, addressT size
)
301 int is_local
= symbol_get_obj (symbolP
)->local
;
303 if (*input_line_pointer
== ',')
305 char *save
= input_line_pointer
;
307 input_line_pointer
++;
310 if (*input_line_pointer
== '"')
312 /* For sparc. Accept .common symbol, length, "bss" */
313 input_line_pointer
++;
314 /* Some use the dot, some don't. */
315 if (*input_line_pointer
== '.')
316 input_line_pointer
++;
317 /* Some say data, some say bss. */
318 if (strncmp (input_line_pointer
, "bss\"", 4) == 0)
319 input_line_pointer
+= 4;
320 else if (strncmp (input_line_pointer
, "data\"", 5) == 0)
321 input_line_pointer
+= 5;
324 char *p
= input_line_pointer
;
329 while (!is_end_of_line
[(unsigned char) *input_line_pointer
])
330 if (*input_line_pointer
++ == '"')
332 c
= *input_line_pointer
;
333 *input_line_pointer
= '\0';
334 as_bad (_("bad .common segment %s"), p
);
335 *input_line_pointer
= c
;
336 ignore_rest_of_line ();
339 /* ??? Don't ask me why these are always global. */
344 input_line_pointer
= save
;
345 align
= parse_align (is_local
);
346 if (align
== (addressT
) -1)
353 bss_alloc (symbolP
, size
, align
);
354 S_CLEAR_EXTERNAL (symbolP
);
358 S_SET_VALUE (symbolP
, size
);
359 S_SET_ALIGN (symbolP
, align
);
360 S_SET_EXTERNAL (symbolP
);
361 S_SET_SEGMENT (symbolP
, elf_com_section_ptr
);
364 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
370 obj_elf_common (int is_common
)
372 if (flag_mri
&& is_common
)
375 s_comm_internal (0, elf_common_parse
);
379 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED
)
381 symbolS
*symbolP
= s_comm_internal (0, elf_common_parse
);
384 symbol_get_bfdsym (symbolP
)->flags
|= BSF_THREAD_LOCAL
;
388 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED
)
390 symbolS
*symbolP
= s_comm_internal (0, s_lcomm_internal
);
393 symbol_get_bfdsym (symbolP
)->flags
|= BSF_OBJECT
;
397 get_sym_from_input_line_and_check (void)
403 name
= input_line_pointer
;
404 c
= get_symbol_end ();
405 sym
= symbol_find_or_make (name
);
406 *input_line_pointer
= c
;
409 /* There is no symbol name if input_line_pointer has not moved. */
410 if (name
== input_line_pointer
)
411 as_bad (_("Missing symbol name in directive"));
416 obj_elf_local (int ignore ATTRIBUTE_UNUSED
)
423 symbolP
= get_sym_from_input_line_and_check ();
424 c
= *input_line_pointer
;
425 S_CLEAR_EXTERNAL (symbolP
);
426 symbol_get_obj (symbolP
)->local
= 1;
429 input_line_pointer
++;
431 if (*input_line_pointer
== '\n')
436 demand_empty_rest_of_line ();
440 obj_elf_weak (int ignore ATTRIBUTE_UNUSED
)
447 symbolP
= get_sym_from_input_line_and_check ();
448 c
= *input_line_pointer
;
449 S_SET_WEAK (symbolP
);
452 input_line_pointer
++;
454 if (*input_line_pointer
== '\n')
459 demand_empty_rest_of_line ();
463 obj_elf_visibility (int visibility
)
468 elf_symbol_type
*elfsym
;
472 symbolP
= get_sym_from_input_line_and_check ();
474 bfdsym
= symbol_get_bfdsym (symbolP
);
475 elfsym
= elf_symbol_from (bfd_asymbol_bfd (bfdsym
), bfdsym
);
479 elfsym
->internal_elf_sym
.st_other
&= ~3;
480 elfsym
->internal_elf_sym
.st_other
|= visibility
;
482 c
= *input_line_pointer
;
485 input_line_pointer
++;
489 if (*input_line_pointer
== '\n')
495 demand_empty_rest_of_line ();
498 static segT previous_section
;
499 static int previous_subsection
;
503 struct section_stack
*next
;
505 int subseg
, prev_subseg
;
508 static struct section_stack
*section_stack
;
511 get_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
513 const char *gname
= (const char *) inf
;
514 const char *group_name
= elf_group_name (sec
);
516 return (group_name
== gname
517 || (group_name
!= NULL
519 && strcmp (group_name
, gname
) == 0));
522 /* Handle the .section pseudo-op. This code supports two different
525 The first is found on Solaris, and looks like
526 .section ".sec1",#alloc,#execinstr,#write
527 Here the names after '#' are the SHF_* flags to turn on for the
528 section. I'm not sure how it determines the SHT_* type (BFD
529 doesn't really give us control over the type, anyhow).
531 The second format is found on UnixWare, and probably most SVR4
532 machines, and looks like
533 .section .sec1,"a",@progbits
534 The quoted string may contain any combination of a, w, x, and
535 represents the SHF_* flags to turn on for the section. The string
536 beginning with '@' can be progbits or nobits. There should be
537 other possibilities, but I don't know what they are. In any case,
538 BFD doesn't really let us set the section type. */
541 obj_elf_change_section (const char *name
,
545 const char *group_name
,
552 const struct elf_backend_data
*bed
;
553 const struct bfd_elf_special_section
*ssect
;
555 #ifdef md_flush_pending_output
556 md_flush_pending_output ();
559 /* Switch to the section, creating it if necessary. */
562 struct section_stack
*elt
;
563 elt
= (struct section_stack
*) xmalloc (sizeof (struct section_stack
));
564 elt
->next
= section_stack
;
566 elt
->prev_seg
= previous_section
;
567 elt
->subseg
= now_subseg
;
568 elt
->prev_subseg
= previous_subsection
;
571 previous_section
= now_seg
;
572 previous_subsection
= now_subseg
;
574 old_sec
= bfd_get_section_by_name_if (stdoutput
, name
, get_section
,
575 (void *) group_name
);
582 sec
= subseg_force_new (name
, 0);
584 bed
= get_elf_backend_data (stdoutput
);
585 ssect
= (*bed
->get_sec_type_attr
) (stdoutput
, sec
);
589 bfd_boolean override
= FALSE
;
591 if (type
== SHT_NULL
)
593 else if (type
!= ssect
->type
)
596 /* Some older versions of gcc will emit
598 .section .init_array,"aw",@progbits
600 for __attribute__ ((section (".init_array"))).
601 "@progbits" is incorrect. Also for x86-64 large bss
602 sections, some older versions of gcc will emit
604 .section .lbss,"aw",@progbits
606 "@progbits" is incorrect. */
608 && (bed
->s
->arch_size
!= 64
609 || !(ssect
->attr
& SHF_X86_64_LARGE
))
611 && ssect
->type
!= SHT_INIT_ARRAY
612 && ssect
->type
!= SHT_FINI_ARRAY
613 && ssect
->type
!= SHT_PREINIT_ARRAY
)
615 /* We allow to specify any type for a .note section. */
616 if (ssect
->type
!= SHT_NOTE
)
617 as_warn (_("setting incorrect section type for %s"),
622 as_warn (_("ignoring incorrect section type for %s"),
628 if (old_sec
== NULL
&& (attr
& ~ssect
->attr
) != 0)
630 /* As a GNU extension, we permit a .note section to be
631 allocatable. If the linker sees an allocatable .note
632 section, it will create a PT_NOTE segment in the output
633 file. We also allow "x" for .note.GNU-stack. */
634 if (ssect
->type
== SHT_NOTE
635 && (attr
== SHF_ALLOC
|| attr
== SHF_EXECINSTR
))
637 /* Allow different SHF_MERGE and SHF_STRINGS if we have
638 something like .rodata.str. */
639 else if (ssect
->suffix_length
== -2
640 && name
[ssect
->prefix_length
] == '.'
644 & ~SHF_STRINGS
) == 0)
646 /* .interp, .strtab and .symtab can have SHF_ALLOC. */
647 else if (attr
== SHF_ALLOC
648 && (strcmp (name
, ".interp") == 0
649 || strcmp (name
, ".strtab") == 0
650 || strcmp (name
, ".symtab") == 0))
652 /* .note.GNU-stack can have SHF_EXECINSTR. */
653 else if (attr
== SHF_EXECINSTR
654 && strcmp (name
, ".note.GNU-stack") == 0)
657 /* A section on Alpha may have SHF_ALPHA_GPREL. */
658 else if ((attr
& ~ssect
->attr
) == SHF_ALPHA_GPREL
)
663 if (group_name
== NULL
)
664 as_warn (_("setting incorrect section attributes for %s"),
669 if (!override
&& old_sec
== NULL
)
673 /* Convert ELF type and flags to BFD flags. */
675 | ((attr
& SHF_WRITE
) ? 0 : SEC_READONLY
)
676 | ((attr
& SHF_ALLOC
) ? SEC_ALLOC
: 0)
677 | (((attr
& SHF_ALLOC
) && type
!= SHT_NOBITS
) ? SEC_LOAD
: 0)
678 | ((attr
& SHF_EXECINSTR
) ? SEC_CODE
: 0)
679 | ((attr
& SHF_MERGE
) ? SEC_MERGE
: 0)
680 | ((attr
& SHF_STRINGS
) ? SEC_STRINGS
: 0)
681 | ((attr
& SHF_EXCLUDE
) ? SEC_EXCLUDE
: 0)
682 | ((attr
& SHF_TLS
) ? SEC_THREAD_LOCAL
: 0));
683 #ifdef md_elf_section_flags
684 flags
= md_elf_section_flags (flags
, attr
, type
);
688 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
694 if (type
== SHT_NULL
)
695 type
= bfd_elf_get_default_section_type (flags
);
696 elf_section_type (sec
) = type
;
697 elf_section_flags (sec
) = attr
;
699 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
700 if (type
== SHT_NOBITS
)
701 seg_info (sec
)->bss
= 1;
703 bfd_set_section_flags (stdoutput
, sec
, flags
);
704 if (flags
& SEC_MERGE
)
705 sec
->entsize
= entsize
;
706 elf_group_name (sec
) = group_name
;
708 /* Add a symbol for this section to the symbol table. */
709 secsym
= symbol_find (name
);
711 symbol_set_bfdsym (secsym
, sec
->symbol
);
713 symbol_table_insert (section_symbol (sec
));
718 && (unsigned) type
!= elf_section_type (old_sec
))
719 as_warn (_("ignoring changed section type for %s"), name
);
723 /* If section attributes are specified the second time we see a
724 particular section, then check that they are the same as we
725 saw the first time. */
726 if (((old_sec
->flags
^ flags
)
727 & (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
728 | SEC_EXCLUDE
| SEC_SORT_ENTRIES
| SEC_MERGE
| SEC_STRINGS
729 | SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
730 | SEC_THREAD_LOCAL
)))
731 as_warn (_("ignoring changed section attributes for %s"), name
);
732 if ((flags
& SEC_MERGE
) && old_sec
->entsize
!= (unsigned) entsize
)
733 as_warn (_("ignoring changed section entity size for %s"), name
);
737 #ifdef md_elf_section_change_hook
738 md_elf_section_change_hook ();
743 obj_elf_parse_section_letters (char *str
, size_t len
, bfd_boolean
*is_clone
)
762 attr
|= SHF_EXECINSTR
;
781 if (*(str
- 1) == 'a')
784 if (len
> 1 && str
[1] == 's')
793 char *bad_msg
= _("unrecognized .section attribute: want a,e,w,x,M,S,G,T");
794 #ifdef md_elf_section_letter
795 bfd_vma md_attr
= md_elf_section_letter (*str
, &bad_msg
);
796 if (md_attr
!= (bfd_vma
) -1)
800 as_fatal ("%s", bad_msg
);
811 obj_elf_section_type (char *str
, size_t len
, bfd_boolean warn
)
813 if (len
== 8 && strncmp (str
, "progbits", 8) == 0)
815 if (len
== 6 && strncmp (str
, "nobits", 6) == 0)
817 if (len
== 4 && strncmp (str
, "note", 4) == 0)
819 if (len
== 10 && strncmp (str
, "init_array", 10) == 0)
820 return SHT_INIT_ARRAY
;
821 if (len
== 10 && strncmp (str
, "fini_array", 10) == 0)
822 return SHT_FINI_ARRAY
;
823 if (len
== 13 && strncmp (str
, "preinit_array", 13) == 0)
824 return SHT_PREINIT_ARRAY
;
826 #ifdef md_elf_section_type
828 int md_type
= md_elf_section_type (str
, len
);
835 as_warn (_("unrecognized section type"));
840 obj_elf_section_word (char *str
, size_t len
, int *type
)
844 if (len
== 5 && strncmp (str
, "write", 5) == 0)
846 if (len
== 5 && strncmp (str
, "alloc", 5) == 0)
848 if (len
== 9 && strncmp (str
, "execinstr", 9) == 0)
849 return SHF_EXECINSTR
;
850 if (len
== 7 && strncmp (str
, "exclude", 7) == 0)
852 if (len
== 3 && strncmp (str
, "tls", 3) == 0)
855 #ifdef md_elf_section_word
857 bfd_vma md_attr
= md_elf_section_word (str
, len
);
863 ret
= obj_elf_section_type (str
, len
, FALSE
);
867 as_warn (_("unrecognized section attribute"));
872 /* Get name of section. */
874 obj_elf_section_name (void)
879 if (*input_line_pointer
== '"')
883 name
= demand_copy_C_string (&dummy
);
886 ignore_rest_of_line ();
892 char *end
= input_line_pointer
;
894 while (0 == strchr ("\n\t,; ", *end
))
896 if (end
== input_line_pointer
)
898 as_bad (_("missing name"));
899 ignore_rest_of_line ();
903 name
= (char *) xmalloc (end
- input_line_pointer
+ 1);
904 memcpy (name
, input_line_pointer
, end
- input_line_pointer
);
905 name
[end
- input_line_pointer
] = '\0';
906 #ifdef tc_canonicalize_section_name
907 name
= tc_canonicalize_section_name (name
);
909 input_line_pointer
= end
;
916 obj_elf_section (int push
)
918 char *name
, *group_name
, *beg
;
923 subsegT new_subsection
= -1;
930 #ifdef md_flush_pending_output
931 md_flush_pending_output ();
934 previous_section
= now_seg
;
935 previous_subsection
= now_subseg
;
937 s_mri_sect (&mri_type
);
939 #ifdef md_elf_section_change_hook
940 md_elf_section_change_hook ();
945 #endif /* ! defined (TC_I370) */
947 name
= obj_elf_section_name ();
956 if (*input_line_pointer
== ',')
958 /* Skip the comma. */
959 ++input_line_pointer
;
962 if (push
&& ISDIGIT (*input_line_pointer
))
964 /* .pushsection has an optional subsection. */
965 new_subsection
= (subsegT
) get_absolute_expression ();
969 /* Stop if we don't see a comma. */
970 if (*input_line_pointer
!= ',')
973 /* Skip the comma. */
974 ++input_line_pointer
;
978 if (*input_line_pointer
== '"')
980 bfd_boolean is_clone
;
982 beg
= demand_copy_C_string (&dummy
);
985 ignore_rest_of_line ();
988 attr
|= obj_elf_parse_section_letters (beg
, strlen (beg
), &is_clone
);
991 if (*input_line_pointer
== ',')
994 char *save
= input_line_pointer
;
996 ++input_line_pointer
;
998 c
= *input_line_pointer
;
1001 beg
= demand_copy_C_string (&dummy
);
1004 ignore_rest_of_line ();
1007 type
= obj_elf_section_type (beg
, strlen (beg
), TRUE
);
1009 else if (c
== '@' || c
== '%')
1011 beg
= ++input_line_pointer
;
1012 c
= get_symbol_end ();
1013 *input_line_pointer
= c
;
1014 type
= obj_elf_section_type (beg
, input_line_pointer
- beg
, TRUE
);
1017 input_line_pointer
= save
;
1021 if ((attr
& SHF_MERGE
) != 0 && *input_line_pointer
== ',')
1023 ++input_line_pointer
;
1025 entsize
= get_absolute_expression ();
1029 as_warn (_("invalid merge entity size"));
1034 else if ((attr
& SHF_MERGE
) != 0)
1036 as_warn (_("entity size for SHF_MERGE not specified"));
1040 if ((attr
& SHF_GROUP
) != 0 && is_clone
)
1042 as_warn (_("? section flag ignored with G present"));
1045 if ((attr
& SHF_GROUP
) != 0 && *input_line_pointer
== ',')
1047 ++input_line_pointer
;
1048 group_name
= obj_elf_section_name ();
1049 if (group_name
== NULL
)
1051 else if (*input_line_pointer
== ',')
1053 ++input_line_pointer
;
1055 if (strncmp (input_line_pointer
, "comdat", 6) == 0)
1057 input_line_pointer
+= 6;
1061 else if (strncmp (name
, ".gnu.linkonce", 13) == 0)
1064 else if ((attr
& SHF_GROUP
) != 0)
1066 as_warn (_("group name for SHF_GROUP not specified"));
1072 const char *now_group
= elf_group_name (now_seg
);
1073 if (now_group
!= NULL
)
1075 group_name
= xstrdup (now_group
);
1076 linkonce
= (now_seg
->flags
& SEC_LINK_ONCE
) != 0;
1087 if (*input_line_pointer
!= '#')
1089 as_bad (_("character following name is not '#'"));
1090 ignore_rest_of_line ();
1093 beg
= ++input_line_pointer
;
1094 c
= get_symbol_end ();
1095 *input_line_pointer
= c
;
1097 attr
|= obj_elf_section_word (beg
, input_line_pointer
- beg
, & type
);
1101 while (*input_line_pointer
++ == ',');
1102 --input_line_pointer
;
1107 demand_empty_rest_of_line ();
1109 obj_elf_change_section (name
, type
, attr
, entsize
, group_name
, linkonce
, push
);
1111 if (push
&& new_subsection
!= -1)
1112 subseg_set (now_seg
, new_subsection
);
1115 /* Change to the .data section. */
1118 obj_elf_data (int i
)
1120 #ifdef md_flush_pending_output
1121 md_flush_pending_output ();
1124 previous_section
= now_seg
;
1125 previous_subsection
= now_subseg
;
1128 #ifdef md_elf_section_change_hook
1129 md_elf_section_change_hook ();
1133 /* Change to the .text section. */
1136 obj_elf_text (int i
)
1138 #ifdef md_flush_pending_output
1139 md_flush_pending_output ();
1142 previous_section
= now_seg
;
1143 previous_subsection
= now_subseg
;
1146 #ifdef md_elf_section_change_hook
1147 md_elf_section_change_hook ();
1151 /* Change to the *ABS* section. */
1154 obj_elf_struct (int i
)
1156 #ifdef md_flush_pending_output
1157 md_flush_pending_output ();
1160 previous_section
= now_seg
;
1161 previous_subsection
= now_subseg
;
1164 #ifdef md_elf_section_change_hook
1165 md_elf_section_change_hook ();
1170 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED
)
1174 #ifdef md_flush_pending_output
1175 md_flush_pending_output ();
1178 previous_section
= now_seg
;
1179 previous_subsection
= now_subseg
;
1181 temp
= get_absolute_expression ();
1182 subseg_set (now_seg
, (subsegT
) temp
);
1183 demand_empty_rest_of_line ();
1185 #ifdef md_elf_section_change_hook
1186 md_elf_section_change_hook ();
1190 /* This can be called from the processor backends if they change
1194 obj_elf_section_change_hook (void)
1196 previous_section
= now_seg
;
1197 previous_subsection
= now_subseg
;
1201 obj_elf_previous (int ignore ATTRIBUTE_UNUSED
)
1206 if (previous_section
== 0)
1208 as_warn (_(".previous without corresponding .section; ignored"));
1212 #ifdef md_flush_pending_output
1213 md_flush_pending_output ();
1216 new_section
= previous_section
;
1217 new_subsection
= previous_subsection
;
1218 previous_section
= now_seg
;
1219 previous_subsection
= now_subseg
;
1220 subseg_set (new_section
, new_subsection
);
1222 #ifdef md_elf_section_change_hook
1223 md_elf_section_change_hook ();
1228 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED
)
1230 struct section_stack
*top
= section_stack
;
1234 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1238 #ifdef md_flush_pending_output
1239 md_flush_pending_output ();
1242 section_stack
= top
->next
;
1243 previous_section
= top
->prev_seg
;
1244 previous_subsection
= top
->prev_subseg
;
1245 subseg_set (top
->seg
, top
->subseg
);
1248 #ifdef md_elf_section_change_hook
1249 md_elf_section_change_hook ();
1254 obj_elf_line (int ignore ATTRIBUTE_UNUSED
)
1256 /* Assume delimiter is part of expression. BSD4.2 as fails with
1257 delightful bug, so we are not being incompatible here. */
1258 new_logical_line (NULL
, get_absolute_expression ());
1259 demand_empty_rest_of_line ();
1262 /* This handles the .symver pseudo-op, which is used to specify a
1263 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1264 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1265 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1266 with the same value as the symbol NAME. */
1269 obj_elf_symver (int ignore ATTRIBUTE_UNUSED
)
1276 sym
= get_sym_from_input_line_and_check ();
1278 if (*input_line_pointer
!= ',')
1280 as_bad (_("expected comma after name in .symver"));
1281 ignore_rest_of_line ();
1285 ++input_line_pointer
;
1287 name
= input_line_pointer
;
1289 /* Temporarily include '@' in symbol names. */
1290 old_lexat
= lex_type
[(unsigned char) '@'];
1291 lex_type
[(unsigned char) '@'] |= LEX_NAME
;
1292 c
= get_symbol_end ();
1293 lex_type
[(unsigned char) '@'] = old_lexat
;
1295 if (symbol_get_obj (sym
)->versioned_name
== NULL
)
1297 symbol_get_obj (sym
)->versioned_name
= xstrdup (name
);
1299 *input_line_pointer
= c
;
1301 if (strchr (symbol_get_obj (sym
)->versioned_name
,
1302 ELF_VER_CHR
) == NULL
)
1304 as_bad (_("missing version name in `%s' for symbol `%s'"),
1305 symbol_get_obj (sym
)->versioned_name
,
1307 ignore_rest_of_line ();
1313 if (strcmp (symbol_get_obj (sym
)->versioned_name
, name
))
1315 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1316 name
, symbol_get_obj (sym
)->versioned_name
,
1318 ignore_rest_of_line ();
1322 *input_line_pointer
= c
;
1325 demand_empty_rest_of_line ();
1328 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1329 to the linker the hierarchy in which a particular table resides. The
1330 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1333 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED
)
1335 char *cname
, *pname
;
1336 symbolS
*csym
, *psym
;
1339 if (*input_line_pointer
== '#')
1340 ++input_line_pointer
;
1342 cname
= input_line_pointer
;
1343 c
= get_symbol_end ();
1344 csym
= symbol_find (cname
);
1346 /* GCFIXME: should check that we don't have two .vtable_inherits for
1347 the same child symbol. Also, we can currently only do this if the
1348 child symbol is already exists and is placed in a fragment. */
1350 if (csym
== NULL
|| symbol_get_frag (csym
) == NULL
)
1352 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1357 *input_line_pointer
= c
;
1360 if (*input_line_pointer
!= ',')
1362 as_bad (_("expected comma after name in .vtable_inherit"));
1363 ignore_rest_of_line ();
1367 ++input_line_pointer
;
1370 if (*input_line_pointer
== '#')
1371 ++input_line_pointer
;
1373 if (input_line_pointer
[0] == '0'
1374 && (input_line_pointer
[1] == '\0'
1375 || ISSPACE (input_line_pointer
[1])))
1377 psym
= section_symbol (absolute_section
);
1378 ++input_line_pointer
;
1382 pname
= input_line_pointer
;
1383 c
= get_symbol_end ();
1384 psym
= symbol_find_or_make (pname
);
1385 *input_line_pointer
= c
;
1388 demand_empty_rest_of_line ();
1393 gas_assert (symbol_get_value_expression (csym
)->X_op
== O_constant
);
1394 return fix_new (symbol_get_frag (csym
),
1395 symbol_get_value_expression (csym
)->X_add_number
,
1396 0, psym
, 0, 0, BFD_RELOC_VTABLE_INHERIT
);
1399 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1400 to the linker that a vtable slot was used. The syntax is
1401 ".vtable_entry tablename, offset". */
1404 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED
)
1409 if (*input_line_pointer
== '#')
1410 ++input_line_pointer
;
1412 sym
= get_sym_from_input_line_and_check ();
1413 if (*input_line_pointer
!= ',')
1415 as_bad (_("expected comma after name in .vtable_entry"));
1416 ignore_rest_of_line ();
1420 ++input_line_pointer
;
1421 if (*input_line_pointer
== '#')
1422 ++input_line_pointer
;
1424 offset
= get_absolute_expression ();
1426 demand_empty_rest_of_line ();
1428 return fix_new (frag_now
, frag_now_fix (), 0, sym
, offset
, 0,
1429 BFD_RELOC_VTABLE_ENTRY
);
1433 elf_obj_read_begin_hook (void)
1435 #ifdef NEED_ECOFF_DEBUG
1436 if (ECOFF_DEBUGGING
)
1437 ecoff_read_begin_hook ();
1442 elf_obj_symbol_new_hook (symbolS
*symbolP
)
1444 struct elf_obj_sy
*sy_obj
;
1446 sy_obj
= symbol_get_obj (symbolP
);
1447 sy_obj
->size
= NULL
;
1448 sy_obj
->versioned_name
= NULL
;
1450 #ifdef NEED_ECOFF_DEBUG
1451 if (ECOFF_DEBUGGING
)
1452 ecoff_symbol_new_hook (symbolP
);
1456 /* When setting one symbol equal to another, by default we probably
1457 want them to have the same "size", whatever it means in the current
1461 elf_copy_symbol_attributes (symbolS
*dest
, symbolS
*src
)
1463 struct elf_obj_sy
*srcelf
= symbol_get_obj (src
);
1464 struct elf_obj_sy
*destelf
= symbol_get_obj (dest
);
1467 if (destelf
->size
== NULL
)
1468 destelf
->size
= (expressionS
*) xmalloc (sizeof (expressionS
));
1469 *destelf
->size
= *srcelf
->size
;
1473 if (destelf
->size
!= NULL
)
1474 free (destelf
->size
);
1475 destelf
->size
= NULL
;
1477 S_SET_SIZE (dest
, S_GET_SIZE (src
));
1478 /* Don't copy visibility. */
1479 S_SET_OTHER (dest
, (ELF_ST_VISIBILITY (S_GET_OTHER (dest
))
1480 | (S_GET_OTHER (src
) & ~ELF_ST_VISIBILITY (-1))));
1484 obj_elf_version (int ignore ATTRIBUTE_UNUSED
)
1489 asection
*seg
= now_seg
;
1490 subsegT subseg
= now_subseg
;
1491 Elf_Internal_Note i_note
;
1492 Elf_External_Note e_note
;
1493 asection
*note_secp
= NULL
;
1496 if (*input_line_pointer
== '\"')
1500 ++input_line_pointer
; /* -> 1st char of string. */
1501 name
= input_line_pointer
;
1503 while (is_a_char (c
= next_char_of_string ()))
1505 c
= *input_line_pointer
;
1506 *input_line_pointer
= '\0';
1507 *(input_line_pointer
- 1) = '\0';
1508 *input_line_pointer
= c
;
1510 /* Create the .note section. */
1511 note_secp
= subseg_new (".note", 0);
1512 bfd_set_section_flags (stdoutput
,
1514 SEC_HAS_CONTENTS
| SEC_READONLY
);
1516 /* Process the version string. */
1517 len
= strlen (name
) + 1;
1519 /* PR 3456: Although the name field is padded out to an 4-byte
1520 boundary, the namesz field should not be adjusted. */
1521 i_note
.namesz
= len
;
1522 i_note
.descsz
= 0; /* No description. */
1523 i_note
.type
= NT_VERSION
;
1524 p
= frag_more (sizeof (e_note
.namesz
));
1525 md_number_to_chars (p
, i_note
.namesz
, sizeof (e_note
.namesz
));
1526 p
= frag_more (sizeof (e_note
.descsz
));
1527 md_number_to_chars (p
, i_note
.descsz
, sizeof (e_note
.descsz
));
1528 p
= frag_more (sizeof (e_note
.type
));
1529 md_number_to_chars (p
, i_note
.type
, sizeof (e_note
.type
));
1530 p
= frag_more (len
);
1531 memcpy (p
, name
, len
);
1533 frag_align (2, 0, 0);
1535 subseg_set (seg
, subseg
);
1538 as_bad (_("expected quoted string"));
1540 demand_empty_rest_of_line ();
1544 obj_elf_size (int ignore ATTRIBUTE_UNUSED
)
1546 char *name
= input_line_pointer
;
1547 char c
= get_symbol_end ();
1552 p
= input_line_pointer
;
1555 if (*input_line_pointer
!= ',')
1558 as_bad (_("expected comma after name `%s' in .size directive"), name
);
1560 ignore_rest_of_line ();
1563 input_line_pointer
++;
1565 if (exp
.X_op
== O_absent
)
1567 as_bad (_("missing expression in .size directive"));
1568 exp
.X_op
= O_constant
;
1569 exp
.X_add_number
= 0;
1572 sym
= symbol_find_or_make (name
);
1574 if (exp
.X_op
== O_constant
)
1576 S_SET_SIZE (sym
, exp
.X_add_number
);
1577 if (symbol_get_obj (sym
)->size
)
1579 xfree (symbol_get_obj (sym
)->size
);
1580 symbol_get_obj (sym
)->size
= NULL
;
1585 symbol_get_obj (sym
)->size
=
1586 (expressionS
*) xmalloc (sizeof (expressionS
));
1587 *symbol_get_obj (sym
)->size
= exp
;
1589 demand_empty_rest_of_line ();
1592 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1593 There are six syntaxes:
1595 The first (used on Solaris) is
1597 The second (used on UnixWare) is
1599 The third (reportedly to be used on Irix 6.0) is
1601 The fourth (used on NetBSD/Arm and Linux/ARM) is
1603 The fifth (used on SVR4/860) is
1604 .type SYM,"function"
1605 The sixth (emitted by recent SunPRO under Solaris) is
1607 where the integer is the STT_* value.
1611 obj_elf_type_name (char *cp
)
1615 p
= input_line_pointer
;
1616 if (*input_line_pointer
>= '0'
1617 && *input_line_pointer
<= '9')
1619 while (*input_line_pointer
>= '0'
1620 && *input_line_pointer
<= '9')
1621 ++input_line_pointer
;
1622 *cp
= *input_line_pointer
;
1623 *input_line_pointer
= '\0';
1626 *cp
= get_symbol_end ();
1632 obj_elf_type (int ignore ATTRIBUTE_UNUSED
)
1636 const char *type_name
;
1638 elf_symbol_type
*elfsym
;
1640 sym
= get_sym_from_input_line_and_check ();
1641 c
= *input_line_pointer
;
1642 elfsym
= (elf_symbol_type
*) symbol_get_bfdsym (sym
);
1644 if (*input_line_pointer
== ',')
1645 ++input_line_pointer
;
1648 if ( *input_line_pointer
== '#'
1649 || *input_line_pointer
== '@'
1650 || *input_line_pointer
== '"'
1651 || *input_line_pointer
== '%')
1652 ++input_line_pointer
;
1654 type_name
= obj_elf_type_name (& c
);
1657 if (strcmp (type_name
, "function") == 0
1658 || strcmp (type_name
, "2") == 0
1659 || strcmp (type_name
, "STT_FUNC") == 0)
1660 type
= BSF_FUNCTION
;
1661 else if (strcmp (type_name
, "object") == 0
1662 || strcmp (type_name
, "1") == 0
1663 || strcmp (type_name
, "STT_OBJECT") == 0)
1665 else if (strcmp (type_name
, "tls_object") == 0
1666 || strcmp (type_name
, "6") == 0
1667 || strcmp (type_name
, "STT_TLS") == 0)
1668 type
= BSF_OBJECT
| BSF_THREAD_LOCAL
;
1669 else if (strcmp (type_name
, "notype") == 0
1670 || strcmp (type_name
, "0") == 0
1671 || strcmp (type_name
, "STT_NOTYPE") == 0)
1673 else if (strcmp (type_name
, "common") == 0
1674 || strcmp (type_name
, "5") == 0
1675 || strcmp (type_name
, "STT_COMMON") == 0)
1679 if (! S_IS_COMMON (sym
))
1681 if (S_IS_VOLATILE (sym
))
1683 sym
= symbol_clone (sym
, 1);
1684 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1685 S_SET_VALUE (sym
, 0);
1686 S_SET_EXTERNAL (sym
);
1687 symbol_set_frag (sym
, &zero_address_frag
);
1688 S_CLEAR_VOLATILE (sym
);
1690 else if (S_IS_DEFINED (sym
) || symbol_equated_p (sym
))
1691 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym
));
1694 /* FIXME: Is it safe to just change the section ? */
1695 S_SET_SEGMENT (sym
, bfd_com_section_ptr
);
1696 S_SET_VALUE (sym
, 0);
1697 S_SET_EXTERNAL (sym
);
1701 else if (strcmp (type_name
, "gnu_indirect_function") == 0
1702 || strcmp (type_name
, "10") == 0
1703 || strcmp (type_name
, "STT_GNU_IFUNC") == 0)
1705 const struct elf_backend_data
*bed
;
1707 bed
= get_elf_backend_data (stdoutput
);
1708 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1709 || bed
->elf_osabi
== ELFOSABI_FREEBSD
1710 /* GNU is still using the default value 0. */
1711 || bed
->elf_osabi
== ELFOSABI_NONE
))
1712 as_bad (_("symbol type \"%s\" is supported only by GNU and FreeBSD targets"),
1714 type
= BSF_FUNCTION
| BSF_GNU_INDIRECT_FUNCTION
;
1716 else if (strcmp (type_name
, "gnu_unique_object") == 0)
1718 struct elf_backend_data
*bed
;
1720 bed
= (struct elf_backend_data
*) get_elf_backend_data (stdoutput
);
1721 if (!(bed
->elf_osabi
== ELFOSABI_GNU
1722 /* GNU is still using the default value 0. */
1723 || bed
->elf_osabi
== ELFOSABI_NONE
))
1724 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1726 type
= BSF_OBJECT
| BSF_GNU_UNIQUE
;
1727 /* PR 10549: Always set OSABI field to GNU for objects containing unique symbols. */
1728 bed
->elf_osabi
= ELFOSABI_GNU
;
1730 #ifdef md_elf_symbol_type
1731 else if ((type
= md_elf_symbol_type (type_name
, sym
, elfsym
)) != -1)
1735 as_bad (_("unrecognized symbol type \"%s\""), type_name
);
1737 *input_line_pointer
= c
;
1739 if (*input_line_pointer
== '"')
1740 ++input_line_pointer
;
1742 elfsym
->symbol
.flags
|= type
;
1744 demand_empty_rest_of_line ();
1748 obj_elf_ident (int ignore ATTRIBUTE_UNUSED
)
1750 static segT comment_section
;
1751 segT old_section
= now_seg
;
1752 int old_subsection
= now_subseg
;
1754 #ifdef md_flush_pending_output
1755 md_flush_pending_output ();
1758 if (!comment_section
)
1761 comment_section
= subseg_new (".comment", 0);
1762 bfd_set_section_flags (stdoutput
, comment_section
,
1763 SEC_READONLY
| SEC_HAS_CONTENTS
1764 | SEC_MERGE
| SEC_STRINGS
);
1765 comment_section
->entsize
= 1;
1766 #ifdef md_elf_section_change_hook
1767 md_elf_section_change_hook ();
1773 subseg_set (comment_section
, 0);
1775 subseg_set (old_section
, old_subsection
);
1778 #ifdef INIT_STAB_SECTION
1780 /* The first entry in a .stabs section is special. */
1783 obj_elf_init_stab_section (segT seg
)
1788 unsigned int stroff
;
1790 /* Force the section to align to a longword boundary. Without this,
1791 UnixWare ar crashes. */
1792 bfd_set_section_alignment (stdoutput
, seg
, 2);
1794 /* Make space for this first symbol. */
1798 as_where (&file
, NULL
);
1799 stabstr_name
= (char *) xmalloc (strlen (segment_name (seg
)) + 4);
1800 strcpy (stabstr_name
, segment_name (seg
));
1801 strcat (stabstr_name
, "str");
1802 stroff
= get_stab_string_offset (file
, stabstr_name
);
1803 know (stroff
== 1 || (stroff
== 0 && file
[0] == '\0'));
1804 md_number_to_chars (p
, stroff
, 4);
1805 seg_info (seg
)->stabu
.p
= p
;
1810 /* Fill in the counts in the first entry in a .stabs section. */
1813 adjust_stab_sections (bfd
*abfd
, asection
*sec
, void *xxx ATTRIBUTE_UNUSED
)
1820 if (strncmp (".stab", sec
->name
, 5))
1822 if (!strcmp ("str", sec
->name
+ strlen (sec
->name
) - 3))
1825 name
= (char *) alloca (strlen (sec
->name
) + 4);
1826 strcpy (name
, sec
->name
);
1827 strcat (name
, "str");
1828 strsec
= bfd_get_section_by_name (abfd
, name
);
1830 strsz
= bfd_section_size (abfd
, strsec
);
1833 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
1835 p
= seg_info (sec
)->stabu
.p
;
1836 gas_assert (p
!= 0);
1838 bfd_h_put_16 (abfd
, nsyms
, p
+ 6);
1839 bfd_h_put_32 (abfd
, strsz
, p
+ 8);
1842 #ifdef NEED_ECOFF_DEBUG
1844 /* This function is called by the ECOFF code. It is supposed to
1845 record the external symbol information so that the backend can
1846 write it out correctly. The ELF backend doesn't actually handle
1847 this at the moment, so we do it ourselves. We save the information
1850 #ifdef OBJ_MAYBE_ELF
1854 elf_ecoff_set_ext (symbolS
*sym
, struct ecoff_extr
*ext
)
1856 symbol_get_bfdsym (sym
)->udata
.p
= ext
;
1859 /* This function is called by bfd_ecoff_debug_externals. It is
1860 supposed to *EXT to the external symbol information, and return
1861 whether the symbol should be used at all. */
1864 elf_get_extr (asymbol
*sym
, EXTR
*ext
)
1866 if (sym
->udata
.p
== NULL
)
1868 *ext
= *(EXTR
*) sym
->udata
.p
;
1872 /* This function is called by bfd_ecoff_debug_externals. It has
1873 nothing to do for ELF. */
1876 elf_set_index (asymbol
*sym ATTRIBUTE_UNUSED
,
1877 bfd_size_type indx ATTRIBUTE_UNUSED
)
1881 #endif /* NEED_ECOFF_DEBUG */
1884 elf_frob_symbol (symbolS
*symp
, int *puntp
)
1886 struct elf_obj_sy
*sy_obj
;
1889 #ifdef NEED_ECOFF_DEBUG
1890 if (ECOFF_DEBUGGING
)
1891 ecoff_frob_symbol (symp
);
1894 sy_obj
= symbol_get_obj (symp
);
1896 size
= sy_obj
->size
;
1899 if (resolve_expression (size
)
1900 && size
->X_op
== O_constant
)
1901 S_SET_SIZE (symp
, size
->X_add_number
);
1904 if (flag_size_check
== size_check_error
)
1905 as_bad (_(".size expression for %s "
1906 "does not evaluate to a constant"), S_GET_NAME (symp
));
1908 as_warn (_(".size expression for %s "
1909 "does not evaluate to a constant"), S_GET_NAME (symp
));
1911 free (sy_obj
->size
);
1912 sy_obj
->size
= NULL
;
1915 if (sy_obj
->versioned_name
!= NULL
)
1919 p
= strchr (sy_obj
->versioned_name
, ELF_VER_CHR
);
1922 /* This symbol was given a new name with the .symver directive.
1924 If this is an external reference, just rename the symbol to
1925 include the version string. This will make the relocs be
1926 against the correct versioned symbol.
1928 If this is a definition, add an alias. FIXME: Using an alias
1929 will permit the debugging information to refer to the right
1930 symbol. However, it's not clear whether it is the best
1933 if (! S_IS_DEFINED (symp
))
1935 /* Verify that the name isn't using the @@ syntax--this is
1936 reserved for definitions of the default version to link
1938 if (p
[1] == ELF_VER_CHR
)
1940 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1941 sy_obj
->versioned_name
);
1944 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1948 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
1952 /* The @@@ syntax is a special case. It renames the
1953 symbol name to versioned_name with one `@' removed. */
1954 l
= strlen (&p
[3]) + 1;
1955 memmove (&p
[2], &p
[3], l
);
1956 S_SET_NAME (symp
, sy_obj
->versioned_name
);
1962 /* FIXME: Creating a new symbol here is risky. We're
1963 in the final loop over the symbol table. We can
1964 get away with it only because the symbol goes to
1965 the end of the list, where the loop will still see
1966 it. It would probably be better to do this in
1967 obj_frob_file_before_adjust. */
1969 symp2
= symbol_find_or_make (sy_obj
->versioned_name
);
1971 /* Now we act as though we saw symp2 = sym. */
1973 S_SET_SEGMENT (symp2
, S_GET_SEGMENT (symp
));
1975 /* Subtracting out the frag address here is a hack
1976 because we are in the middle of the final loop. */
1979 - symbol_get_frag (symp
)->fr_address
));
1981 symbol_set_frag (symp2
, symbol_get_frag (symp
));
1983 /* This will copy over the size information. */
1984 copy_symbol_attributes (symp2
, symp
);
1986 S_SET_OTHER (symp2
, S_GET_OTHER (symp
));
1988 if (S_IS_WEAK (symp
))
1991 if (S_IS_EXTERNAL (symp
))
1992 S_SET_EXTERNAL (symp2
);
1997 /* Double check weak symbols. */
1998 if (S_IS_WEAK (symp
))
2000 if (S_IS_COMMON (symp
))
2001 as_bad (_("symbol `%s' can not be both weak and common"),
2006 /* The Irix 5 and 6 assemblers set the type of any common symbol and
2007 any undefined non-function symbol to STT_OBJECT. We try to be
2008 compatible, since newer Irix 5 and 6 linkers care. However, we
2009 only set undefined symbols to be STT_OBJECT if we are on Irix,
2010 because that is the only time gcc will generate the necessary
2011 .global directives to mark functions. */
2013 if (S_IS_COMMON (symp
))
2014 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2016 if (strstr (TARGET_OS
, "irix") != NULL
2017 && ! S_IS_DEFINED (symp
)
2018 && (symbol_get_bfdsym (symp
)->flags
& BSF_FUNCTION
) == 0)
2019 symbol_get_bfdsym (symp
)->flags
|= BSF_OBJECT
;
2025 asection
**head
; /* Section lists. */
2026 unsigned int *elt_count
; /* Number of sections in each list. */
2027 unsigned int num_group
; /* Number of lists. */
2028 struct hash_control
*indexes
; /* Maps group name to index in head array. */
2031 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2032 add it to a list of sections belonging to the group. INF is a
2033 pointer to a struct group_list, which is where we store the head of
2037 build_group_lists (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
, void *inf
)
2039 struct group_list
*list
= (struct group_list
*) inf
;
2040 const char *group_name
= elf_group_name (sec
);
2042 unsigned int *elem_idx
;
2043 unsigned int *idx_ptr
;
2045 if (group_name
== NULL
)
2048 /* If this group already has a list, add the section to the head of
2050 elem_idx
= (unsigned int *) hash_find (list
->indexes
, group_name
);
2051 if (elem_idx
!= NULL
)
2053 elf_next_in_group (sec
) = list
->head
[*elem_idx
];
2054 list
->head
[*elem_idx
] = sec
;
2055 list
->elt_count
[*elem_idx
] += 1;
2059 /* New group. Make the arrays bigger in chunks to minimize calls to
2061 i
= list
->num_group
;
2064 unsigned int newsize
= i
+ 128;
2065 list
->head
= (asection
**) xrealloc (list
->head
,
2066 newsize
* sizeof (*list
->head
));
2067 list
->elt_count
= (unsigned int *)
2068 xrealloc (list
->elt_count
, newsize
* sizeof (*list
->elt_count
));
2070 list
->head
[i
] = sec
;
2071 list
->elt_count
[i
] = 1;
2072 list
->num_group
+= 1;
2074 /* Add index to hash. */
2075 idx_ptr
= (unsigned int *) xmalloc (sizeof (unsigned int));
2077 hash_insert (list
->indexes
, group_name
, idx_ptr
);
2080 static void free_section_idx (const char *key ATTRIBUTE_UNUSED
, void *val
)
2082 free ((unsigned int *) val
);
2086 elf_adjust_symtab (void)
2088 struct group_list list
;
2091 /* Go find section groups. */
2094 list
.elt_count
= NULL
;
2095 list
.indexes
= hash_new ();
2096 bfd_map_over_sections (stdoutput
, build_group_lists
, &list
);
2098 /* Make the SHT_GROUP sections that describe each section group. We
2099 can't set up the section contents here yet, because elf section
2100 indices have yet to be calculated. elf.c:set_group_contents does
2101 the rest of the work. */
2102 for (i
= 0; i
< list
.num_group
; i
++)
2104 const char *group_name
= elf_group_name (list
.head
[i
]);
2105 const char *sec_name
;
2111 flags
= SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_GROUP
;
2112 for (s
= list
.head
[i
]; s
!= NULL
; s
= elf_next_in_group (s
))
2113 if ((s
->flags
^ flags
) & SEC_LINK_ONCE
)
2115 flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
2116 if (s
!= list
.head
[i
])
2118 as_warn (_("assuming all members of group `%s' are COMDAT"),
2124 sec_name
= ".group";
2125 s
= subseg_force_new (sec_name
, 0);
2127 || !bfd_set_section_flags (stdoutput
, s
, flags
)
2128 || !bfd_set_section_alignment (stdoutput
, s
, 2))
2130 as_fatal (_("can't create group: %s"),
2131 bfd_errmsg (bfd_get_error ()));
2133 elf_section_type (s
) = SHT_GROUP
;
2135 /* Pass a pointer to the first section in this group. */
2136 elf_next_in_group (s
) = list
.head
[i
];
2137 /* Make sure that the signature symbol for the group has the
2138 name of the group. */
2139 sy
= symbol_find_exact (group_name
);
2141 || (sy
!= symbol_lastP
2142 && (sy
->sy_next
== NULL
2143 || sy
->sy_next
->sy_previous
!= sy
)))
2145 /* Create the symbol now. */
2146 sy
= symbol_new (group_name
, now_seg
, (valueT
) 0, frag_now
);
2148 /* Before Solaris 11 build 154, Sun ld rejects local group
2149 signature symbols, so make them weak hidden instead. */
2150 symbol_get_bfdsym (sy
)->flags
|= BSF_WEAK
;
2151 S_SET_OTHER (sy
, STV_HIDDEN
);
2153 symbol_get_obj (sy
)->local
= 1;
2155 symbol_table_insert (sy
);
2157 elf_group_id (s
) = symbol_get_bfdsym (sy
);
2159 size
= 4 * (list
.elt_count
[i
] + 1);
2160 bfd_set_section_size (stdoutput
, s
, size
);
2161 s
->contents
= (unsigned char *) frag_more (size
);
2162 frag_now
->fr_fix
= frag_now_fix_octets ();
2163 frag_wane (frag_now
);
2167 hash_traverse (list
.indexes
, free_section_idx
);
2168 hash_die (list
.indexes
);
2172 elf_frob_file (void)
2174 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, NULL
);
2176 #ifdef elf_tc_final_processing
2177 elf_tc_final_processing ();
2181 /* It removes any unneeded versioned symbols from the symbol table. */
2184 elf_frob_file_before_adjust (void)
2190 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
2191 if (!S_IS_DEFINED (symp
))
2193 if (symbol_get_obj (symp
)->versioned_name
)
2197 /* The @@@ syntax is a special case. If the symbol is
2198 not defined, 2 `@'s will be removed from the
2201 p
= strchr (symbol_get_obj (symp
)->versioned_name
,
2204 if (p
[1] == ELF_VER_CHR
&& p
[2] == ELF_VER_CHR
)
2206 size_t l
= strlen (&p
[3]) + 1;
2207 memmove (&p
[1], &p
[3], l
);
2209 if (symbol_used_p (symp
) == 0
2210 && symbol_used_in_reloc_p (symp
) == 0)
2211 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2214 /* If there was .weak foo, but foo was neither defined nor
2215 used anywhere, remove it. */
2217 else if (S_IS_WEAK (symp
)
2218 && symbol_used_p (symp
) == 0
2219 && symbol_used_in_reloc_p (symp
) == 0)
2220 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
2225 /* It is required that we let write_relocs have the opportunity to
2226 optimize away fixups before output has begun, since it is possible
2227 to eliminate all fixups for a section and thus we never should
2228 have generated the relocation section. */
2231 elf_frob_file_after_relocs (void)
2233 #ifdef NEED_ECOFF_DEBUG
2234 if (ECOFF_DEBUGGING
)
2235 /* Generate the ECOFF debugging information. */
2237 const struct ecoff_debug_swap
*debug_swap
;
2238 struct ecoff_debug_info debug
;
2243 = get_elf_backend_data (stdoutput
)->elf_backend_ecoff_debug_swap
;
2244 know (debug_swap
!= NULL
);
2245 ecoff_build_debug (&debug
.symbolic_header
, &buf
, debug_swap
);
2247 /* Set up the pointers in debug. */
2248 #define SET(ptr, offset, type) \
2249 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2251 SET (line
, cbLineOffset
, unsigned char *);
2252 SET (external_dnr
, cbDnOffset
, void *);
2253 SET (external_pdr
, cbPdOffset
, void *);
2254 SET (external_sym
, cbSymOffset
, void *);
2255 SET (external_opt
, cbOptOffset
, void *);
2256 SET (external_aux
, cbAuxOffset
, union aux_ext
*);
2257 SET (ss
, cbSsOffset
, char *);
2258 SET (external_fdr
, cbFdOffset
, void *);
2259 SET (external_rfd
, cbRfdOffset
, void *);
2260 /* ssext and external_ext are set up just below. */
2264 /* Set up the external symbols. */
2265 debug
.ssext
= debug
.ssext_end
= NULL
;
2266 debug
.external_ext
= debug
.external_ext_end
= NULL
;
2267 if (! bfd_ecoff_debug_externals (stdoutput
, &debug
, debug_swap
, TRUE
,
2268 elf_get_extr
, elf_set_index
))
2269 as_fatal (_("failed to set up debugging information: %s"),
2270 bfd_errmsg (bfd_get_error ()));
2272 sec
= bfd_get_section_by_name (stdoutput
, ".mdebug");
2273 gas_assert (sec
!= NULL
);
2275 know (!stdoutput
->output_has_begun
);
2277 /* We set the size of the section, call bfd_set_section_contents
2278 to force the ELF backend to allocate a file position, and then
2279 write out the data. FIXME: Is this really the best way to do
2281 bfd_set_section_size
2282 (stdoutput
, sec
, bfd_ecoff_debug_size (stdoutput
, &debug
, debug_swap
));
2284 /* Pass BUF to bfd_set_section_contents because this will
2285 eventually become a call to fwrite, and ISO C prohibits
2286 passing a NULL pointer to a stdio function even if the
2287 pointer will not be used. */
2288 if (! bfd_set_section_contents (stdoutput
, sec
, buf
, 0, 0))
2289 as_fatal (_("can't start writing .mdebug section: %s"),
2290 bfd_errmsg (bfd_get_error ()));
2292 know (stdoutput
->output_has_begun
);
2293 know (sec
->filepos
!= 0);
2295 if (! bfd_ecoff_write_debug (stdoutput
, &debug
, debug_swap
,
2297 as_fatal (_("could not write .mdebug section: %s"),
2298 bfd_errmsg (bfd_get_error ()));
2300 #endif /* NEED_ECOFF_DEBUG */
2305 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2306 SCO specific identifier in the .notes section to satisfy the SCO
2309 This looks more complicated than it really is. As opposed to the
2310 "obvious" solution, this should handle the cross dev cases
2311 correctly. (i.e, hosting on a 64 bit big endian processor, but
2312 generating SCO Elf code) Efficiency isn't a concern, as there
2313 should be exactly one of these sections per object module.
2315 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2318 int_32 namesz = 4 ; Name size
2319 int_32 descsz = 12 ; Descriptive information
2321 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2322 int_32 version = (major ver # << 16) | version of tools ;
2323 int_32 source = (tool_id << 16 ) | 1 ;
2324 int_32 info = 0 ; These are set by the SCO tools, but we
2325 don't know enough about the source
2326 environment to set them. SCO ld currently
2327 ignores them, and recommends we set them
2330 #define SCO_MAJOR_VERSION 0x1
2331 #define SCO_MINOR_VERSION 0x1
2341 asection
*seg
= now_seg
;
2342 subsegT subseg
= now_subseg
;
2343 Elf_Internal_Note i_note
;
2344 Elf_External_Note e_note
;
2345 asection
*note_secp
= NULL
;
2348 /* create the .note section */
2350 note_secp
= subseg_new (".note", 0);
2351 bfd_set_section_flags (stdoutput
,
2353 SEC_HAS_CONTENTS
| SEC_READONLY
);
2355 /* process the version string */
2358 i_note
.descsz
= 12; /* 12 descriptive bytes */
2359 i_note
.type
= NT_VERSION
; /* Contains a version string */
2361 p
= frag_more (sizeof (i_note
.namesz
));
2362 md_number_to_chars (p
, i_note
.namesz
, 4);
2364 p
= frag_more (sizeof (i_note
.descsz
));
2365 md_number_to_chars (p
, i_note
.descsz
, 4);
2367 p
= frag_more (sizeof (i_note
.type
));
2368 md_number_to_chars (p
, i_note
.type
, 4);
2373 /* Note: this is the version number of the ELF we're representing */
2375 md_number_to_chars (p
, (SCO_MAJOR_VERSION
<< 16) | (SCO_MINOR_VERSION
), 4);
2377 /* Here, we pick a magic number for ourselves (yes, I "registered"
2378 it with SCO. The bottom bit shows that we are compat with the
2381 md_number_to_chars (p
, 0x4c520000 | 0x0001, 4);
2383 /* If we knew (or cared) what the source language options were, we'd
2384 fill them in here. SCO has given us permission to ignore these
2385 and just set them to zero. */
2387 md_number_to_chars (p
, 0x0000, 4);
2389 frag_align (2, 0, 0);
2391 /* We probably can't restore the current segment, for there likely
2394 subseg_set (seg
, subseg
);
2398 #endif /* SCO_ELF */
2401 elf_generate_asm_lineno (void)
2403 #ifdef NEED_ECOFF_DEBUG
2404 if (ECOFF_DEBUGGING
)
2405 ecoff_generate_asm_lineno ();
2410 elf_process_stab (segT sec ATTRIBUTE_UNUSED
,
2411 int what ATTRIBUTE_UNUSED
,
2412 const char *string ATTRIBUTE_UNUSED
,
2413 int type ATTRIBUTE_UNUSED
,
2414 int other ATTRIBUTE_UNUSED
,
2415 int desc ATTRIBUTE_UNUSED
)
2417 #ifdef NEED_ECOFF_DEBUG
2418 if (ECOFF_DEBUGGING
)
2419 ecoff_stab (sec
, what
, string
, type
, other
, desc
);
2424 elf_separate_stab_sections (void)
2426 #ifdef NEED_ECOFF_DEBUG
2427 return (!ECOFF_DEBUGGING
);
2434 elf_init_stab_section (segT seg
)
2436 #ifdef NEED_ECOFF_DEBUG
2437 if (!ECOFF_DEBUGGING
)
2439 obj_elf_init_stab_section (seg
);
2442 const struct format_ops elf_format_ops
=
2444 bfd_target_elf_flavour
,
2445 0, /* dfl_leading_underscore */
2446 1, /* emit_section_symbols */
2451 elf_frob_file_before_adjust
,
2452 0, /* obj_frob_file_before_fix */
2453 elf_frob_file_after_relocs
,
2454 elf_s_get_size
, elf_s_set_size
,
2455 elf_s_get_align
, elf_s_set_align
,
2462 elf_copy_symbol_attributes
,
2463 elf_generate_asm_lineno
,
2465 elf_separate_stab_sections
,
2466 elf_init_stab_section
,
2467 elf_sec_sym_ok_for_reloc
,
2469 #ifdef NEED_ECOFF_DEBUG
2472 0, /* ecoff_set_ext */
2474 elf_obj_read_begin_hook
,
2475 elf_obj_symbol_new_hook
,