Updated sources to avoid using the identifier name "new", which is a
[deliverable/binutils-gdb.git] / gas / config / obj-elf.c
1 /* ELF object file format
2 Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009
4 Free Software Foundation, Inc.
5
6 This file is part of GAS, the GNU Assembler.
7
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.
12
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.
17
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
21 02110-1301, USA. */
22
23 #define OBJ_HEADER "obj-elf.h"
24 #include "as.h"
25 #include "safe-ctype.h"
26 #include "subsegs.h"
27 #include "obstack.h"
28 #include "struc-symbol.h"
29 #include "dwarf2dbg.h"
30
31 #ifndef ECOFF_DEBUGGING
32 #define ECOFF_DEBUGGING 0
33 #else
34 #define NEED_ECOFF_DEBUG
35 #endif
36
37 #ifdef NEED_ECOFF_DEBUG
38 #include "ecoff.h"
39 #endif
40
41 #ifdef TC_ALPHA
42 #include "elf/alpha.h"
43 #endif
44
45 #ifdef TC_MIPS
46 #include "elf/mips.h"
47 #endif
48
49 #ifdef TC_PPC
50 #include "elf/ppc.h"
51 #endif
52
53 #ifdef TC_I370
54 #include "elf/i370.h"
55 #endif
56
57 #ifdef TC_I386
58 #include "elf/x86-64.h"
59 #endif
60
61 #ifdef TC_MEP
62 #include "elf/mep.h"
63 #endif
64
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);
78
79 static const pseudo_typeS elf_pseudo_table[] =
80 {
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},
97
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},
102
103 /* These are used for stabs-in-elf configurations. */
104 {"line", obj_elf_line, 0},
105
106 /* This is a GNU extension to handle symbol versions. */
107 {"symver", obj_elf_symver, 0},
108
109 /* A GNU extension to change subsection only. */
110 {"subsection", obj_elf_subsection, 0},
111
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},
115
116 /* These are used for dwarf. */
117 {"2byte", cons, 2},
118 {"4byte", cons, 4},
119 {"8byte", cons, 8},
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 },
124
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},
130
131 {"tls_common", obj_elf_tls_common, 0},
132
133 /* End sentinel. */
134 {NULL, NULL, 0},
135 };
136
137 static const pseudo_typeS ecoff_debug_pseudo_table[] =
138 {
139 #ifdef NEED_ECOFF_DEBUG
140 /* COFF style debugging information for ECOFF. .ln is not used; .loc
141 is used instead. */
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 },
149
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 },
155
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 },
165
166 /* Other ECOFF directives. */
167 { "extern", ecoff_directive_extern, 0 },
168
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 },
177 #endif
178
179 {NULL, NULL, 0} /* end sentinel */
180 };
181
182 #undef NO_RELOC
183 #include "aout/aout64.h"
184
185 /* This is called when the assembler starts. */
186
187 asection *elf_com_section_ptr;
188
189 void
190 elf_begin (void)
191 {
192 asection *s;
193
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;
202 }
203
204 void
205 elf_pop_insert (void)
206 {
207 pop_insert (elf_pseudo_table);
208 if (ECOFF_DEBUGGING)
209 pop_insert (ecoff_debug_pseudo_table);
210 }
211
212 static bfd_vma
213 elf_s_get_size (symbolS *sym)
214 {
215 return S_GET_SIZE (sym);
216 }
217
218 static void
219 elf_s_set_size (symbolS *sym, bfd_vma sz)
220 {
221 S_SET_SIZE (sym, sz);
222 }
223
224 static bfd_vma
225 elf_s_get_align (symbolS *sym)
226 {
227 return S_GET_ALIGN (sym);
228 }
229
230 static void
231 elf_s_set_align (symbolS *sym, bfd_vma align)
232 {
233 S_SET_ALIGN (sym, align);
234 }
235
236 int
237 elf_s_get_other (symbolS *sym)
238 {
239 return elf_symbol (symbol_get_bfdsym (sym))->internal_elf_sym.st_other;
240 }
241
242 static void
243 elf_s_set_other (symbolS *sym, int other)
244 {
245 S_SET_OTHER (sym, other);
246 }
247
248 static int
249 elf_sec_sym_ok_for_reloc (asection *sec)
250 {
251 return obj_sec_sym_ok_for_reloc (sec);
252 }
253
254 void
255 elf_file_symbol (const char *s, int appfile)
256 {
257 if (!appfile
258 || symbol_rootP == NULL
259 || symbol_rootP->bsym == NULL
260 || (symbol_rootP->bsym->flags & BSF_FILE) == 0)
261 {
262 symbolS *sym;
263 unsigned int name_length;
264
265 sym = symbol_new (s, absolute_section, 0, NULL);
266 symbol_set_frag (sym, &zero_address_frag);
267
268 name_length = strlen (s);
269 if (name_length > strlen (S_GET_NAME (sym)))
270 {
271 obstack_grow (&notes, s, name_length + 1);
272 S_SET_NAME (sym, obstack_finish (&notes));
273 }
274 else
275 strcpy ((char *) S_GET_NAME (sym), s);
276
277 symbol_get_bfdsym (sym)->flags |= BSF_FILE;
278
279 if (symbol_rootP != sym)
280 {
281 symbol_remove (sym, &symbol_rootP, &symbol_lastP);
282 symbol_insert (sym, symbol_rootP, &symbol_rootP, &symbol_lastP);
283 #ifdef DEBUG
284 verify_symbol_chain (symbol_rootP, symbol_lastP);
285 #endif
286 }
287 }
288
289 #ifdef NEED_ECOFF_DEBUG
290 ecoff_new_file (s, appfile);
291 #endif
292 }
293
294 /* Called from read.c:s_comm after we've parsed .comm symbol, size.
295 Parse a possible alignment value. */
296
297 symbolS *
298 elf_common_parse (int ignore ATTRIBUTE_UNUSED, symbolS *symbolP, addressT size)
299 {
300 addressT align = 0;
301 int is_local = symbol_get_obj (symbolP)->local;
302
303 if (*input_line_pointer == ',')
304 {
305 char *save = input_line_pointer;
306
307 input_line_pointer++;
308 SKIP_WHITESPACE ();
309
310 if (*input_line_pointer == '"')
311 {
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;
322 else
323 {
324 char *p = input_line_pointer;
325 char c;
326
327 while (*--p != '"')
328 ;
329 while (!is_end_of_line[(unsigned char) *input_line_pointer])
330 if (*input_line_pointer++ == '"')
331 break;
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 ();
337 return NULL;
338 }
339 /* ??? Don't ask me why these are always global. */
340 is_local = 0;
341 }
342 else
343 {
344 input_line_pointer = save;
345 align = parse_align (is_local);
346 if (align == (addressT) -1)
347 return NULL;
348 }
349 }
350
351 if (is_local)
352 {
353 bss_alloc (symbolP, size, align);
354 S_CLEAR_EXTERNAL (symbolP);
355 }
356 else
357 {
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);
362 }
363
364 symbol_get_bfdsym (symbolP)->flags |= BSF_OBJECT;
365
366 return symbolP;
367 }
368
369 void
370 obj_elf_common (int is_common)
371 {
372 if (flag_mri && is_common)
373 s_mri_common (0);
374 else
375 s_comm_internal (0, elf_common_parse);
376 }
377
378 static void
379 obj_elf_tls_common (int ignore ATTRIBUTE_UNUSED)
380 {
381 symbolS *symbolP = s_comm_internal (0, elf_common_parse);
382
383 if (symbolP)
384 symbol_get_bfdsym (symbolP)->flags |= BSF_THREAD_LOCAL;
385 }
386
387 static void
388 obj_elf_lcomm (int ignore ATTRIBUTE_UNUSED)
389 {
390 symbolS *symbolP = s_comm_internal (0, s_lcomm_internal);
391
392 if (symbolP)
393 symbol_get_bfdsym (symbolP)->flags |= BSF_OBJECT;
394 }
395
396 static void
397 obj_elf_local (int ignore ATTRIBUTE_UNUSED)
398 {
399 char *name;
400 int c;
401 symbolS *symbolP;
402
403 do
404 {
405 name = input_line_pointer;
406 c = get_symbol_end ();
407 symbolP = symbol_find_or_make (name);
408 *input_line_pointer = c;
409 SKIP_WHITESPACE ();
410 S_CLEAR_EXTERNAL (symbolP);
411 symbol_get_obj (symbolP)->local = 1;
412 if (c == ',')
413 {
414 input_line_pointer++;
415 SKIP_WHITESPACE ();
416 if (*input_line_pointer == '\n')
417 c = '\n';
418 }
419 }
420 while (c == ',');
421 demand_empty_rest_of_line ();
422 }
423
424 static void
425 obj_elf_weak (int ignore ATTRIBUTE_UNUSED)
426 {
427 char *name;
428 int c;
429 symbolS *symbolP;
430
431 do
432 {
433 name = input_line_pointer;
434 c = get_symbol_end ();
435 symbolP = symbol_find_or_make (name);
436 *input_line_pointer = c;
437 SKIP_WHITESPACE ();
438 S_SET_WEAK (symbolP);
439 symbol_get_obj (symbolP)->local = 1;
440 if (c == ',')
441 {
442 input_line_pointer++;
443 SKIP_WHITESPACE ();
444 if (*input_line_pointer == '\n')
445 c = '\n';
446 }
447 }
448 while (c == ',');
449 demand_empty_rest_of_line ();
450 }
451
452 static void
453 obj_elf_visibility (int visibility)
454 {
455 char *name;
456 int c;
457 symbolS *symbolP;
458 asymbol *bfdsym;
459 elf_symbol_type *elfsym;
460
461 do
462 {
463 name = input_line_pointer;
464 c = get_symbol_end ();
465 symbolP = symbol_find_or_make (name);
466 *input_line_pointer = c;
467
468 SKIP_WHITESPACE ();
469
470 bfdsym = symbol_get_bfdsym (symbolP);
471 elfsym = elf_symbol_from (bfd_asymbol_bfd (bfdsym), bfdsym);
472
473 gas_assert (elfsym);
474
475 elfsym->internal_elf_sym.st_other &= ~3;
476 elfsym->internal_elf_sym.st_other |= visibility;
477
478 if (c == ',')
479 {
480 input_line_pointer ++;
481
482 SKIP_WHITESPACE ();
483
484 if (*input_line_pointer == '\n')
485 c = '\n';
486 }
487 }
488 while (c == ',');
489
490 demand_empty_rest_of_line ();
491 }
492
493 static segT previous_section;
494 static int previous_subsection;
495
496 struct section_stack
497 {
498 struct section_stack *next;
499 segT seg, prev_seg;
500 int subseg, prev_subseg;
501 };
502
503 static struct section_stack *section_stack;
504
505 static bfd_boolean
506 get_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec, void *inf)
507 {
508 const char *gname = inf;
509 const char *group_name = elf_group_name (sec);
510
511 return (group_name == gname
512 || (group_name != NULL
513 && gname != NULL
514 && strcmp (group_name, gname) == 0));
515 }
516
517 /* Handle the .section pseudo-op. This code supports two different
518 syntaxes.
519
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).
525
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. */
534
535 void
536 obj_elf_change_section (const char *name,
537 int type,
538 bfd_vma attr,
539 int entsize,
540 const char *group_name,
541 int linkonce,
542 int push)
543 {
544 asection *old_sec;
545 segT sec;
546 flagword flags;
547 const struct elf_backend_data *bed;
548 const struct bfd_elf_special_section *ssect;
549
550 #ifdef md_flush_pending_output
551 md_flush_pending_output ();
552 #endif
553
554 /* Switch to the section, creating it if necessary. */
555 if (push)
556 {
557 struct section_stack *elt;
558 elt = xmalloc (sizeof (struct section_stack));
559 elt->next = section_stack;
560 elt->seg = now_seg;
561 elt->prev_seg = previous_section;
562 elt->subseg = now_subseg;
563 elt->prev_subseg = previous_subsection;
564 section_stack = elt;
565 }
566 previous_section = now_seg;
567 previous_subsection = now_subseg;
568
569 old_sec = bfd_get_section_by_name_if (stdoutput, name, get_section,
570 (void *) group_name);
571 if (old_sec)
572 {
573 sec = old_sec;
574 subseg_set (sec, 0);
575 }
576 else
577 sec = subseg_force_new (name, 0);
578
579 bed = get_elf_backend_data (stdoutput);
580 ssect = (*bed->get_sec_type_attr) (stdoutput, sec);
581
582 if (ssect != NULL)
583 {
584 bfd_boolean override = FALSE;
585
586 if (type == SHT_NULL)
587 type = ssect->type;
588 else if (type != ssect->type)
589 {
590 if (old_sec == NULL
591 /* FIXME: gcc, as of 2002-10-22, will emit
592
593 .section .init_array,"aw",@progbits
594
595 for __attribute__ ((section (".init_array"))).
596 "@progbits" is incorrect. Also for x86-64 large bss
597 sections, gcc, as of 2005-07-06, will emit
598
599 .section .lbss,"aw",@progbits
600
601 "@progbits" is incorrect. */
602 #ifdef TC_I386
603 && (bed->s->arch_size != 64
604 || !(ssect->attr & SHF_X86_64_LARGE))
605 #endif
606 && ssect->type != SHT_INIT_ARRAY
607 && ssect->type != SHT_FINI_ARRAY
608 && ssect->type != SHT_PREINIT_ARRAY)
609 {
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"),
613 name);
614 }
615 else
616 {
617 as_warn (_("ignoring incorrect section type for %s"),
618 name);
619 type = ssect->type;
620 }
621 }
622
623 if (old_sec == NULL && (attr & ~ssect->attr) != 0)
624 {
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))
631 ;
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] == '.'
636 && (attr
637 & ~ssect->attr
638 & ~SHF_MERGE
639 & ~SHF_STRINGS) == 0)
640 ;
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))
646 override = TRUE;
647 /* .note.GNU-stack can have SHF_EXECINSTR. */
648 else if (attr == SHF_EXECINSTR
649 && strcmp (name, ".note.GNU-stack") == 0)
650 override = TRUE;
651 #ifdef TC_ALPHA
652 /* A section on Alpha may have SHF_ALPHA_GPREL. */
653 else if ((attr & ~ssect->attr) == SHF_ALPHA_GPREL)
654 override = TRUE;
655 #endif
656 else
657 {
658 if (group_name == NULL)
659 as_warn (_("setting incorrect section attributes for %s"),
660 name);
661 override = TRUE;
662 }
663 }
664 if (!override && old_sec == NULL)
665 attr |= ssect->attr;
666 }
667
668 /* Convert ELF type and flags to BFD flags. */
669 flags = (SEC_RELOC
670 | ((attr & SHF_WRITE) ? 0 : SEC_READONLY)
671 | ((attr & SHF_ALLOC) ? SEC_ALLOC : 0)
672 | (((attr & SHF_ALLOC) && type != SHT_NOBITS) ? SEC_LOAD : 0)
673 | ((attr & SHF_EXECINSTR) ? SEC_CODE : 0)
674 | ((attr & SHF_MERGE) ? SEC_MERGE : 0)
675 | ((attr & SHF_STRINGS) ? SEC_STRINGS : 0)
676 | ((attr & SHF_TLS) ? SEC_THREAD_LOCAL : 0));
677 #ifdef md_elf_section_flags
678 flags = md_elf_section_flags (flags, attr, type);
679 #endif
680
681 if (linkonce)
682 flags |= SEC_LINK_ONCE | SEC_LINK_DUPLICATES_DISCARD;
683
684 if (old_sec == NULL)
685 {
686 symbolS *secsym;
687
688 elf_section_type (sec) = type;
689 elf_section_flags (sec) = attr;
690
691 /* Prevent SEC_HAS_CONTENTS from being inadvertently set. */
692 if (type == SHT_NOBITS)
693 seg_info (sec)->bss = 1;
694
695 bfd_set_section_flags (stdoutput, sec, flags);
696 if (flags & SEC_MERGE)
697 sec->entsize = entsize;
698 elf_group_name (sec) = group_name;
699
700 /* Add a symbol for this section to the symbol table. */
701 secsym = symbol_find (name);
702 if (secsym != NULL)
703 symbol_set_bfdsym (secsym, sec->symbol);
704 else
705 symbol_table_insert (section_symbol (sec));
706 }
707 else
708 {
709 if (type != SHT_NULL
710 && (unsigned) type != elf_section_type (old_sec))
711 as_warn (_("ignoring changed section type for %s"), name);
712
713 if (attr != 0)
714 {
715 /* If section attributes are specified the second time we see a
716 particular section, then check that they are the same as we
717 saw the first time. */
718 if (((old_sec->flags ^ flags)
719 & (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE
720 | SEC_EXCLUDE | SEC_SORT_ENTRIES | SEC_MERGE | SEC_STRINGS
721 | SEC_LINK_ONCE | SEC_LINK_DUPLICATES_DISCARD
722 | SEC_THREAD_LOCAL)))
723 as_warn (_("ignoring changed section attributes for %s"), name);
724 if ((flags & SEC_MERGE) && old_sec->entsize != (unsigned) entsize)
725 as_warn (_("ignoring changed section entity size for %s"), name);
726 }
727 }
728
729 #ifdef md_elf_section_change_hook
730 md_elf_section_change_hook ();
731 #endif
732 }
733
734 static bfd_vma
735 obj_elf_parse_section_letters (char *str, size_t len)
736 {
737 bfd_vma attr = 0;
738
739 while (len > 0)
740 {
741 switch (*str)
742 {
743 case 'a':
744 attr |= SHF_ALLOC;
745 break;
746 case 'w':
747 attr |= SHF_WRITE;
748 break;
749 case 'x':
750 attr |= SHF_EXECINSTR;
751 break;
752 case 'M':
753 attr |= SHF_MERGE;
754 break;
755 case 'S':
756 attr |= SHF_STRINGS;
757 break;
758 case 'G':
759 attr |= SHF_GROUP;
760 break;
761 case 'T':
762 attr |= SHF_TLS;
763 break;
764 /* Compatibility. */
765 case 'm':
766 if (*(str - 1) == 'a')
767 {
768 attr |= SHF_MERGE;
769 if (len > 1 && str[1] == 's')
770 {
771 attr |= SHF_STRINGS;
772 str++, len--;
773 }
774 break;
775 }
776 default:
777 {
778 char *bad_msg = _("unrecognized .section attribute: want a,w,x,M,S,G,T");
779 #ifdef md_elf_section_letter
780 bfd_vma md_attr = md_elf_section_letter (*str, &bad_msg);
781 if (md_attr > 0)
782 attr |= md_attr;
783 else
784 #endif
785 as_fatal ("%s", bad_msg);
786 }
787 break;
788 }
789 str++, len--;
790 }
791
792 return attr;
793 }
794
795 static int
796 obj_elf_section_type (char *str, size_t len, bfd_boolean warn)
797 {
798 if (len == 8 && strncmp (str, "progbits", 8) == 0)
799 return SHT_PROGBITS;
800 if (len == 6 && strncmp (str, "nobits", 6) == 0)
801 return SHT_NOBITS;
802 if (len == 4 && strncmp (str, "note", 4) == 0)
803 return SHT_NOTE;
804 if (len == 10 && strncmp (str, "init_array", 10) == 0)
805 return SHT_INIT_ARRAY;
806 if (len == 10 && strncmp (str, "fini_array", 10) == 0)
807 return SHT_FINI_ARRAY;
808 if (len == 13 && strncmp (str, "preinit_array", 13) == 0)
809 return SHT_PREINIT_ARRAY;
810
811 #ifdef md_elf_section_type
812 {
813 int md_type = md_elf_section_type (str, len);
814 if (md_type >= 0)
815 return md_type;
816 }
817 #endif
818
819 if (warn)
820 as_warn (_("unrecognized section type"));
821 return 0;
822 }
823
824 static bfd_vma
825 obj_elf_section_word (char *str, size_t len, int *type)
826 {
827 int ret;
828
829 if (len == 5 && strncmp (str, "write", 5) == 0)
830 return SHF_WRITE;
831 if (len == 5 && strncmp (str, "alloc", 5) == 0)
832 return SHF_ALLOC;
833 if (len == 9 && strncmp (str, "execinstr", 9) == 0)
834 return SHF_EXECINSTR;
835 if (len == 3 && strncmp (str, "tls", 3) == 0)
836 return SHF_TLS;
837
838 #ifdef md_elf_section_word
839 {
840 bfd_vma md_attr = md_elf_section_word (str, len);
841 if (md_attr > 0)
842 return md_attr;
843 }
844 #endif
845
846 ret = obj_elf_section_type (str, len, FALSE);
847 if (ret != 0)
848 *type = ret;
849 else
850 as_warn (_("unrecognized section attribute"));
851
852 return 0;
853 }
854
855 /* Get name of section. */
856 static char *
857 obj_elf_section_name (void)
858 {
859 char *name;
860
861 SKIP_WHITESPACE ();
862 if (*input_line_pointer == '"')
863 {
864 int dummy;
865
866 name = demand_copy_C_string (&dummy);
867 if (name == NULL)
868 {
869 ignore_rest_of_line ();
870 return NULL;
871 }
872 }
873 else
874 {
875 char *end = input_line_pointer;
876
877 while (0 == strchr ("\n\t,; ", *end))
878 end++;
879 if (end == input_line_pointer)
880 {
881 as_bad (_("missing name"));
882 ignore_rest_of_line ();
883 return NULL;
884 }
885
886 name = xmalloc (end - input_line_pointer + 1);
887 memcpy (name, input_line_pointer, end - input_line_pointer);
888 name[end - input_line_pointer] = '\0';
889 #ifdef tc_canonicalize_section_name
890 name = tc_canonicalize_section_name (name);
891 #endif
892 input_line_pointer = end;
893 }
894 SKIP_WHITESPACE ();
895 return name;
896 }
897
898 void
899 obj_elf_section (int push)
900 {
901 char *name, *group_name, *beg;
902 int type, dummy;
903 bfd_vma attr;
904 int entsize;
905 int linkonce;
906 subsegT new_subsection = -1;
907
908 #ifndef TC_I370
909 if (flag_mri)
910 {
911 char mri_type;
912
913 #ifdef md_flush_pending_output
914 md_flush_pending_output ();
915 #endif
916
917 previous_section = now_seg;
918 previous_subsection = now_subseg;
919
920 s_mri_sect (&mri_type);
921
922 #ifdef md_elf_section_change_hook
923 md_elf_section_change_hook ();
924 #endif
925
926 return;
927 }
928 #endif /* ! defined (TC_I370) */
929
930 name = obj_elf_section_name ();
931 if (name == NULL)
932 return;
933 type = SHT_NULL;
934 attr = 0;
935 group_name = NULL;
936 entsize = 0;
937 linkonce = 0;
938
939 if (*input_line_pointer == ',')
940 {
941 /* Skip the comma. */
942 ++input_line_pointer;
943 SKIP_WHITESPACE ();
944
945 if (push && ISDIGIT (*input_line_pointer))
946 {
947 /* .pushsection has an optional subsection. */
948 new_subsection = (subsegT) get_absolute_expression ();
949
950 SKIP_WHITESPACE ();
951
952 /* Stop if we don't see a comma. */
953 if (*input_line_pointer != ',')
954 goto done;
955
956 /* Skip the comma. */
957 ++input_line_pointer;
958 SKIP_WHITESPACE ();
959 }
960
961 if (*input_line_pointer == '"')
962 {
963 beg = demand_copy_C_string (&dummy);
964 if (beg == NULL)
965 {
966 ignore_rest_of_line ();
967 return;
968 }
969 attr |= obj_elf_parse_section_letters (beg, strlen (beg));
970
971 SKIP_WHITESPACE ();
972 if (*input_line_pointer == ',')
973 {
974 char c;
975 char *save = input_line_pointer;
976
977 ++input_line_pointer;
978 SKIP_WHITESPACE ();
979 c = *input_line_pointer;
980 if (c == '"')
981 {
982 beg = demand_copy_C_string (&dummy);
983 if (beg == NULL)
984 {
985 ignore_rest_of_line ();
986 return;
987 }
988 type = obj_elf_section_type (beg, strlen (beg), TRUE);
989 }
990 else if (c == '@' || c == '%')
991 {
992 beg = ++input_line_pointer;
993 c = get_symbol_end ();
994 *input_line_pointer = c;
995 type = obj_elf_section_type (beg, input_line_pointer - beg, TRUE);
996 }
997 else
998 input_line_pointer = save;
999 }
1000
1001 SKIP_WHITESPACE ();
1002 if ((attr & SHF_MERGE) != 0 && *input_line_pointer == ',')
1003 {
1004 ++input_line_pointer;
1005 SKIP_WHITESPACE ();
1006 entsize = get_absolute_expression ();
1007 SKIP_WHITESPACE ();
1008 if (entsize < 0)
1009 {
1010 as_warn (_("invalid merge entity size"));
1011 attr &= ~SHF_MERGE;
1012 entsize = 0;
1013 }
1014 }
1015 else if ((attr & SHF_MERGE) != 0)
1016 {
1017 as_warn (_("entity size for SHF_MERGE not specified"));
1018 attr &= ~SHF_MERGE;
1019 }
1020
1021 if ((attr & SHF_GROUP) != 0 && *input_line_pointer == ',')
1022 {
1023 ++input_line_pointer;
1024 group_name = obj_elf_section_name ();
1025 if (group_name == NULL)
1026 attr &= ~SHF_GROUP;
1027 else if (strncmp (input_line_pointer, ",comdat", 7) == 0)
1028 {
1029 input_line_pointer += 7;
1030 linkonce = 1;
1031 }
1032 else if (strncmp (name, ".gnu.linkonce", 13) == 0)
1033 linkonce = 1;
1034 }
1035 else if ((attr & SHF_GROUP) != 0)
1036 {
1037 as_warn (_("group name for SHF_GROUP not specified"));
1038 attr &= ~SHF_GROUP;
1039 }
1040 }
1041 else
1042 {
1043 do
1044 {
1045 char c;
1046
1047 SKIP_WHITESPACE ();
1048 if (*input_line_pointer != '#')
1049 {
1050 as_bad (_("character following name is not '#'"));
1051 ignore_rest_of_line ();
1052 return;
1053 }
1054 beg = ++input_line_pointer;
1055 c = get_symbol_end ();
1056 *input_line_pointer = c;
1057
1058 attr |= obj_elf_section_word (beg, input_line_pointer - beg, & type);
1059
1060 SKIP_WHITESPACE ();
1061 }
1062 while (*input_line_pointer++ == ',');
1063 --input_line_pointer;
1064 }
1065 }
1066
1067 done:
1068 demand_empty_rest_of_line ();
1069
1070 obj_elf_change_section (name, type, attr, entsize, group_name, linkonce, push);
1071
1072 if (push && new_subsection != -1)
1073 subseg_set (now_seg, new_subsection);
1074 }
1075
1076 /* Change to the .data section. */
1077
1078 void
1079 obj_elf_data (int i)
1080 {
1081 #ifdef md_flush_pending_output
1082 md_flush_pending_output ();
1083 #endif
1084
1085 previous_section = now_seg;
1086 previous_subsection = now_subseg;
1087 s_data (i);
1088
1089 #ifdef md_elf_section_change_hook
1090 md_elf_section_change_hook ();
1091 #endif
1092 }
1093
1094 /* Change to the .text section. */
1095
1096 void
1097 obj_elf_text (int i)
1098 {
1099 #ifdef md_flush_pending_output
1100 md_flush_pending_output ();
1101 #endif
1102
1103 previous_section = now_seg;
1104 previous_subsection = now_subseg;
1105 s_text (i);
1106
1107 #ifdef md_elf_section_change_hook
1108 md_elf_section_change_hook ();
1109 #endif
1110 }
1111
1112 /* Change to the *ABS* section. */
1113
1114 void
1115 obj_elf_struct (int i)
1116 {
1117 #ifdef md_flush_pending_output
1118 md_flush_pending_output ();
1119 #endif
1120
1121 previous_section = now_seg;
1122 previous_subsection = now_subseg;
1123 s_struct (i);
1124
1125 #ifdef md_elf_section_change_hook
1126 md_elf_section_change_hook ();
1127 #endif
1128 }
1129
1130 static void
1131 obj_elf_subsection (int ignore ATTRIBUTE_UNUSED)
1132 {
1133 int temp;
1134
1135 #ifdef md_flush_pending_output
1136 md_flush_pending_output ();
1137 #endif
1138
1139 previous_section = now_seg;
1140 previous_subsection = now_subseg;
1141
1142 temp = get_absolute_expression ();
1143 subseg_set (now_seg, (subsegT) temp);
1144 demand_empty_rest_of_line ();
1145
1146 #ifdef md_elf_section_change_hook
1147 md_elf_section_change_hook ();
1148 #endif
1149 }
1150
1151 /* This can be called from the processor backends if they change
1152 sections. */
1153
1154 void
1155 obj_elf_section_change_hook (void)
1156 {
1157 previous_section = now_seg;
1158 previous_subsection = now_subseg;
1159 }
1160
1161 void
1162 obj_elf_previous (int ignore ATTRIBUTE_UNUSED)
1163 {
1164 segT new_section;
1165 int new_subsection;
1166
1167 if (previous_section == 0)
1168 {
1169 as_warn (_(".previous without corresponding .section; ignored"));
1170 return;
1171 }
1172
1173 #ifdef md_flush_pending_output
1174 md_flush_pending_output ();
1175 #endif
1176
1177 new_section = previous_section;
1178 new_subsection = previous_subsection;
1179 previous_section = now_seg;
1180 previous_subsection = now_subseg;
1181 subseg_set (new_section, new_subsection);
1182
1183 #ifdef md_elf_section_change_hook
1184 md_elf_section_change_hook ();
1185 #endif
1186 }
1187
1188 static void
1189 obj_elf_popsection (int xxx ATTRIBUTE_UNUSED)
1190 {
1191 struct section_stack *top = section_stack;
1192
1193 if (top == NULL)
1194 {
1195 as_warn (_(".popsection without corresponding .pushsection; ignored"));
1196 return;
1197 }
1198
1199 #ifdef md_flush_pending_output
1200 md_flush_pending_output ();
1201 #endif
1202
1203 section_stack = top->next;
1204 previous_section = top->prev_seg;
1205 previous_subsection = top->prev_subseg;
1206 subseg_set (top->seg, top->subseg);
1207 free (top);
1208
1209 #ifdef md_elf_section_change_hook
1210 md_elf_section_change_hook ();
1211 #endif
1212 }
1213
1214 static void
1215 obj_elf_line (int ignore ATTRIBUTE_UNUSED)
1216 {
1217 /* Assume delimiter is part of expression. BSD4.2 as fails with
1218 delightful bug, so we are not being incompatible here. */
1219 new_logical_line (NULL, get_absolute_expression ());
1220 demand_empty_rest_of_line ();
1221 }
1222
1223 /* This handles the .symver pseudo-op, which is used to specify a
1224 symbol version. The syntax is ``.symver NAME,SYMVERNAME''.
1225 SYMVERNAME may contain ELF_VER_CHR ('@') characters. This
1226 pseudo-op causes the assembler to emit a symbol named SYMVERNAME
1227 with the same value as the symbol NAME. */
1228
1229 static void
1230 obj_elf_symver (int ignore ATTRIBUTE_UNUSED)
1231 {
1232 char *name;
1233 char c;
1234 char old_lexat;
1235 symbolS *sym;
1236
1237 name = input_line_pointer;
1238 c = get_symbol_end ();
1239
1240 sym = symbol_find_or_make (name);
1241
1242 *input_line_pointer = c;
1243
1244 SKIP_WHITESPACE ();
1245 if (*input_line_pointer != ',')
1246 {
1247 as_bad (_("expected comma after name in .symver"));
1248 ignore_rest_of_line ();
1249 return;
1250 }
1251
1252 ++input_line_pointer;
1253 SKIP_WHITESPACE ();
1254 name = input_line_pointer;
1255
1256 /* Temporarily include '@' in symbol names. */
1257 old_lexat = lex_type[(unsigned char) '@'];
1258 lex_type[(unsigned char) '@'] |= LEX_NAME;
1259 c = get_symbol_end ();
1260 lex_type[(unsigned char) '@'] = old_lexat;
1261
1262 if (symbol_get_obj (sym)->versioned_name == NULL)
1263 {
1264 symbol_get_obj (sym)->versioned_name = xstrdup (name);
1265
1266 *input_line_pointer = c;
1267
1268 if (strchr (symbol_get_obj (sym)->versioned_name,
1269 ELF_VER_CHR) == NULL)
1270 {
1271 as_bad (_("missing version name in `%s' for symbol `%s'"),
1272 symbol_get_obj (sym)->versioned_name,
1273 S_GET_NAME (sym));
1274 ignore_rest_of_line ();
1275 return;
1276 }
1277 }
1278 else
1279 {
1280 if (strcmp (symbol_get_obj (sym)->versioned_name, name))
1281 {
1282 as_bad (_("multiple versions [`%s'|`%s'] for symbol `%s'"),
1283 name, symbol_get_obj (sym)->versioned_name,
1284 S_GET_NAME (sym));
1285 ignore_rest_of_line ();
1286 return;
1287 }
1288
1289 *input_line_pointer = c;
1290 }
1291
1292 demand_empty_rest_of_line ();
1293 }
1294
1295 /* This handles the .vtable_inherit pseudo-op, which is used to indicate
1296 to the linker the hierarchy in which a particular table resides. The
1297 syntax is ".vtable_inherit CHILDNAME, PARENTNAME". */
1298
1299 struct fix *
1300 obj_elf_vtable_inherit (int ignore ATTRIBUTE_UNUSED)
1301 {
1302 char *cname, *pname;
1303 symbolS *csym, *psym;
1304 char c, bad = 0;
1305
1306 if (*input_line_pointer == '#')
1307 ++input_line_pointer;
1308
1309 cname = input_line_pointer;
1310 c = get_symbol_end ();
1311 csym = symbol_find (cname);
1312
1313 /* GCFIXME: should check that we don't have two .vtable_inherits for
1314 the same child symbol. Also, we can currently only do this if the
1315 child symbol is already exists and is placed in a fragment. */
1316
1317 if (csym == NULL || symbol_get_frag (csym) == NULL)
1318 {
1319 as_bad (_("expected `%s' to have already been set for .vtable_inherit"),
1320 cname);
1321 bad = 1;
1322 }
1323
1324 *input_line_pointer = c;
1325
1326 SKIP_WHITESPACE ();
1327 if (*input_line_pointer != ',')
1328 {
1329 as_bad (_("expected comma after name in .vtable_inherit"));
1330 ignore_rest_of_line ();
1331 return NULL;
1332 }
1333
1334 ++input_line_pointer;
1335 SKIP_WHITESPACE ();
1336
1337 if (*input_line_pointer == '#')
1338 ++input_line_pointer;
1339
1340 if (input_line_pointer[0] == '0'
1341 && (input_line_pointer[1] == '\0'
1342 || ISSPACE (input_line_pointer[1])))
1343 {
1344 psym = section_symbol (absolute_section);
1345 ++input_line_pointer;
1346 }
1347 else
1348 {
1349 pname = input_line_pointer;
1350 c = get_symbol_end ();
1351 psym = symbol_find_or_make (pname);
1352 *input_line_pointer = c;
1353 }
1354
1355 demand_empty_rest_of_line ();
1356
1357 if (bad)
1358 return NULL;
1359
1360 gas_assert (symbol_get_value_expression (csym)->X_op == O_constant);
1361 return fix_new (symbol_get_frag (csym),
1362 symbol_get_value_expression (csym)->X_add_number,
1363 0, psym, 0, 0, BFD_RELOC_VTABLE_INHERIT);
1364 }
1365
1366 /* This handles the .vtable_entry pseudo-op, which is used to indicate
1367 to the linker that a vtable slot was used. The syntax is
1368 ".vtable_entry tablename, offset". */
1369
1370 struct fix *
1371 obj_elf_vtable_entry (int ignore ATTRIBUTE_UNUSED)
1372 {
1373 char *name;
1374 symbolS *sym;
1375 offsetT offset;
1376 char c;
1377
1378 if (*input_line_pointer == '#')
1379 ++input_line_pointer;
1380
1381 name = input_line_pointer;
1382 c = get_symbol_end ();
1383 sym = symbol_find_or_make (name);
1384 *input_line_pointer = c;
1385
1386 SKIP_WHITESPACE ();
1387 if (*input_line_pointer != ',')
1388 {
1389 as_bad (_("expected comma after name in .vtable_entry"));
1390 ignore_rest_of_line ();
1391 return NULL;
1392 }
1393
1394 ++input_line_pointer;
1395 if (*input_line_pointer == '#')
1396 ++input_line_pointer;
1397
1398 offset = get_absolute_expression ();
1399
1400 demand_empty_rest_of_line ();
1401
1402 return fix_new (frag_now, frag_now_fix (), 0, sym, offset, 0,
1403 BFD_RELOC_VTABLE_ENTRY);
1404 }
1405
1406 void
1407 elf_obj_read_begin_hook (void)
1408 {
1409 #ifdef NEED_ECOFF_DEBUG
1410 if (ECOFF_DEBUGGING)
1411 ecoff_read_begin_hook ();
1412 #endif
1413 }
1414
1415 void
1416 elf_obj_symbol_new_hook (symbolS *symbolP)
1417 {
1418 struct elf_obj_sy *sy_obj;
1419
1420 sy_obj = symbol_get_obj (symbolP);
1421 sy_obj->size = NULL;
1422 sy_obj->versioned_name = NULL;
1423
1424 #ifdef NEED_ECOFF_DEBUG
1425 if (ECOFF_DEBUGGING)
1426 ecoff_symbol_new_hook (symbolP);
1427 #endif
1428 }
1429
1430 /* When setting one symbol equal to another, by default we probably
1431 want them to have the same "size", whatever it means in the current
1432 context. */
1433
1434 void
1435 elf_copy_symbol_attributes (symbolS *dest, symbolS *src)
1436 {
1437 struct elf_obj_sy *srcelf = symbol_get_obj (src);
1438 struct elf_obj_sy *destelf = symbol_get_obj (dest);
1439 if (srcelf->size)
1440 {
1441 if (destelf->size == NULL)
1442 destelf->size = xmalloc (sizeof (expressionS));
1443 *destelf->size = *srcelf->size;
1444 }
1445 else
1446 {
1447 if (destelf->size != NULL)
1448 free (destelf->size);
1449 destelf->size = NULL;
1450 }
1451 S_SET_SIZE (dest, S_GET_SIZE (src));
1452 /* Don't copy visibility. */
1453 S_SET_OTHER (dest, (ELF_ST_VISIBILITY (S_GET_OTHER (dest))
1454 | (S_GET_OTHER (src) & ~ELF_ST_VISIBILITY (-1))));
1455 }
1456
1457 void
1458 obj_elf_version (int ignore ATTRIBUTE_UNUSED)
1459 {
1460 char *name;
1461 unsigned int c;
1462 char *p;
1463 asection *seg = now_seg;
1464 subsegT subseg = now_subseg;
1465 Elf_Internal_Note i_note;
1466 Elf_External_Note e_note;
1467 asection *note_secp = NULL;
1468
1469 SKIP_WHITESPACE ();
1470 if (*input_line_pointer == '\"')
1471 {
1472 unsigned int len;
1473
1474 ++input_line_pointer; /* -> 1st char of string. */
1475 name = input_line_pointer;
1476
1477 while (is_a_char (c = next_char_of_string ()))
1478 ;
1479 c = *input_line_pointer;
1480 *input_line_pointer = '\0';
1481 *(input_line_pointer - 1) = '\0';
1482 *input_line_pointer = c;
1483
1484 /* Create the .note section. */
1485 note_secp = subseg_new (".note", 0);
1486 bfd_set_section_flags (stdoutput,
1487 note_secp,
1488 SEC_HAS_CONTENTS | SEC_READONLY);
1489
1490 /* Process the version string. */
1491 len = strlen (name) + 1;
1492
1493 /* PR 3456: Although the name field is padded out to an 4-byte
1494 boundary, the namesz field should not be adjusted. */
1495 i_note.namesz = len;
1496 i_note.descsz = 0; /* No description. */
1497 i_note.type = NT_VERSION;
1498 p = frag_more (sizeof (e_note.namesz));
1499 md_number_to_chars (p, i_note.namesz, sizeof (e_note.namesz));
1500 p = frag_more (sizeof (e_note.descsz));
1501 md_number_to_chars (p, i_note.descsz, sizeof (e_note.descsz));
1502 p = frag_more (sizeof (e_note.type));
1503 md_number_to_chars (p, i_note.type, sizeof (e_note.type));
1504 p = frag_more (len);
1505 memcpy (p, name, len);
1506
1507 frag_align (2, 0, 0);
1508
1509 subseg_set (seg, subseg);
1510 }
1511 else
1512 as_bad (_("expected quoted string"));
1513
1514 demand_empty_rest_of_line ();
1515 }
1516
1517 static void
1518 obj_elf_size (int ignore ATTRIBUTE_UNUSED)
1519 {
1520 char *name = input_line_pointer;
1521 char c = get_symbol_end ();
1522 char *p;
1523 expressionS exp;
1524 symbolS *sym;
1525
1526 p = input_line_pointer;
1527 *p = c;
1528 SKIP_WHITESPACE ();
1529 if (*input_line_pointer != ',')
1530 {
1531 *p = 0;
1532 as_bad (_("expected comma after name `%s' in .size directive"), name);
1533 *p = c;
1534 ignore_rest_of_line ();
1535 return;
1536 }
1537 input_line_pointer++;
1538 expression (&exp);
1539 if (exp.X_op == O_absent)
1540 {
1541 as_bad (_("missing expression in .size directive"));
1542 exp.X_op = O_constant;
1543 exp.X_add_number = 0;
1544 }
1545 *p = 0;
1546 sym = symbol_find_or_make (name);
1547 *p = c;
1548 if (exp.X_op == O_constant)
1549 {
1550 S_SET_SIZE (sym, exp.X_add_number);
1551 if (symbol_get_obj (sym)->size)
1552 {
1553 xfree (symbol_get_obj (sym)->size);
1554 symbol_get_obj (sym)->size = NULL;
1555 }
1556 }
1557 else
1558 {
1559 symbol_get_obj (sym)->size = xmalloc (sizeof (expressionS));
1560 *symbol_get_obj (sym)->size = exp;
1561 }
1562 demand_empty_rest_of_line ();
1563 }
1564
1565 /* Handle the ELF .type pseudo-op. This sets the type of a symbol.
1566 There are six syntaxes:
1567
1568 The first (used on Solaris) is
1569 .type SYM,#function
1570 The second (used on UnixWare) is
1571 .type SYM,@function
1572 The third (reportedly to be used on Irix 6.0) is
1573 .type SYM STT_FUNC
1574 The fourth (used on NetBSD/Arm and Linux/ARM) is
1575 .type SYM,%function
1576 The fifth (used on SVR4/860) is
1577 .type SYM,"function"
1578 The sixth (emitted by recent SunPRO under Solaris) is
1579 .type SYM,[0-9]
1580 where the integer is the STT_* value.
1581 */
1582
1583 static char *
1584 obj_elf_type_name (char *cp)
1585 {
1586 char *p;
1587
1588 p = input_line_pointer;
1589 if (*input_line_pointer >= '0'
1590 && *input_line_pointer <= '9')
1591 {
1592 while (*input_line_pointer >= '0'
1593 && *input_line_pointer <= '9')
1594 ++input_line_pointer;
1595 *cp = *input_line_pointer;
1596 *input_line_pointer = '\0';
1597 }
1598 else
1599 *cp = get_symbol_end ();
1600
1601 return p;
1602 }
1603
1604 static void
1605 obj_elf_type (int ignore ATTRIBUTE_UNUSED)
1606 {
1607 char *name;
1608 char c;
1609 int type;
1610 const char *typename;
1611 symbolS *sym;
1612 elf_symbol_type *elfsym;
1613
1614 name = input_line_pointer;
1615 c = get_symbol_end ();
1616 sym = symbol_find_or_make (name);
1617 elfsym = (elf_symbol_type *) symbol_get_bfdsym (sym);
1618 *input_line_pointer = c;
1619
1620 SKIP_WHITESPACE ();
1621 if (*input_line_pointer == ',')
1622 ++input_line_pointer;
1623
1624 SKIP_WHITESPACE ();
1625 if ( *input_line_pointer == '#'
1626 || *input_line_pointer == '@'
1627 || *input_line_pointer == '"'
1628 || *input_line_pointer == '%')
1629 ++input_line_pointer;
1630
1631 typename = obj_elf_type_name (& c);
1632
1633 type = 0;
1634 if (strcmp (typename, "function") == 0
1635 || strcmp (typename, "2") == 0
1636 || strcmp (typename, "STT_FUNC") == 0)
1637 type = BSF_FUNCTION;
1638 else if (strcmp (typename, "object") == 0
1639 || strcmp (typename, "1") == 0
1640 || strcmp (typename, "STT_OBJECT") == 0)
1641 type = BSF_OBJECT;
1642 else if (strcmp (typename, "tls_object") == 0
1643 || strcmp (typename, "6") == 0
1644 || strcmp (typename, "STT_TLS") == 0)
1645 type = BSF_OBJECT | BSF_THREAD_LOCAL;
1646 else if (strcmp (typename, "notype") == 0
1647 || strcmp (typename, "0") == 0
1648 || strcmp (typename, "STT_NOTYPE") == 0)
1649 ;
1650 else if (strcmp (typename, "common") == 0
1651 || strcmp (typename, "5") == 0
1652 || strcmp (typename, "STT_COMMON") == 0)
1653 {
1654 type = BSF_OBJECT;
1655
1656 if (! S_IS_COMMON (sym))
1657 {
1658 if (S_IS_VOLATILE (sym))
1659 {
1660 sym = symbol_clone (sym, 1);
1661 S_SET_SEGMENT (sym, bfd_com_section_ptr);
1662 S_SET_VALUE (sym, 0);
1663 S_SET_EXTERNAL (sym);
1664 symbol_set_frag (sym, &zero_address_frag);
1665 S_CLEAR_VOLATILE (sym);
1666 }
1667 else if (S_IS_DEFINED (sym) || symbol_equated_p (sym))
1668 as_bad (_("symbol '%s' is already defined"), S_GET_NAME (sym));
1669 else
1670 {
1671 /* FIXME: Is it safe to just change the section ? */
1672 S_SET_SEGMENT (sym, bfd_com_section_ptr);
1673 S_SET_VALUE (sym, 0);
1674 S_SET_EXTERNAL (sym);
1675 }
1676 }
1677 }
1678 else if (strcmp (typename, "gnu_indirect_function") == 0
1679 || strcmp (typename, "10") == 0
1680 || strcmp (typename, "STT_GNU_IFUNC") == 0)
1681 {
1682 const struct elf_backend_data *bed;
1683
1684 bed = get_elf_backend_data (stdoutput);
1685 if (!(bed->elf_osabi == ELFOSABI_LINUX
1686 /* GNU/Linux is still using the default value 0. */
1687 || bed->elf_osabi == ELFOSABI_NONE))
1688 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1689 typename);
1690 type = BSF_FUNCTION | BSF_GNU_INDIRECT_FUNCTION;
1691 }
1692 else if (strcmp (typename, "gnu_unique_object") == 0)
1693 {
1694 struct elf_backend_data *bed;
1695
1696 bed = (struct elf_backend_data *) get_elf_backend_data (stdoutput);
1697 if (!(bed->elf_osabi == ELFOSABI_LINUX
1698 /* GNU/Linux is still using the default value 0. */
1699 || bed->elf_osabi == ELFOSABI_NONE))
1700 as_bad (_("symbol type \"%s\" is supported only by GNU targets"),
1701 typename);
1702 type = BSF_OBJECT | BSF_GNU_UNIQUE;
1703 /* PR 10549: Always set OSABI field to LINUX for objects containing unique symbols. */
1704 bed->elf_osabi = ELFOSABI_LINUX;
1705 }
1706 #ifdef md_elf_symbol_type
1707 else if ((type = md_elf_symbol_type (typename, sym, elfsym)) != -1)
1708 ;
1709 #endif
1710 else
1711 as_bad (_("unrecognized symbol type \"%s\""), typename);
1712
1713 *input_line_pointer = c;
1714
1715 if (*input_line_pointer == '"')
1716 ++input_line_pointer;
1717
1718 elfsym->symbol.flags |= type;
1719
1720 demand_empty_rest_of_line ();
1721 }
1722
1723 static void
1724 obj_elf_ident (int ignore ATTRIBUTE_UNUSED)
1725 {
1726 static segT comment_section;
1727 segT old_section = now_seg;
1728 int old_subsection = now_subseg;
1729
1730 #ifdef md_flush_pending_output
1731 md_flush_pending_output ();
1732 #endif
1733
1734 if (!comment_section)
1735 {
1736 char *p;
1737 comment_section = subseg_new (".comment", 0);
1738 bfd_set_section_flags (stdoutput, comment_section,
1739 SEC_READONLY | SEC_HAS_CONTENTS
1740 | SEC_MERGE | SEC_STRINGS);
1741 comment_section->entsize = 1;
1742 #ifdef md_elf_section_change_hook
1743 md_elf_section_change_hook ();
1744 #endif
1745 p = frag_more (1);
1746 *p = 0;
1747 }
1748 else
1749 subseg_set (comment_section, 0);
1750 stringer (8 + 1);
1751 subseg_set (old_section, old_subsection);
1752 }
1753
1754 #ifdef INIT_STAB_SECTION
1755
1756 /* The first entry in a .stabs section is special. */
1757
1758 void
1759 obj_elf_init_stab_section (segT seg)
1760 {
1761 char *file;
1762 char *p;
1763 char *stabstr_name;
1764 unsigned int stroff;
1765
1766 /* Force the section to align to a longword boundary. Without this,
1767 UnixWare ar crashes. */
1768 bfd_set_section_alignment (stdoutput, seg, 2);
1769
1770 /* Make space for this first symbol. */
1771 p = frag_more (12);
1772 /* Zero it out. */
1773 memset (p, 0, 12);
1774 as_where (&file, NULL);
1775 stabstr_name = xmalloc (strlen (segment_name (seg)) + 4);
1776 strcpy (stabstr_name, segment_name (seg));
1777 strcat (stabstr_name, "str");
1778 stroff = get_stab_string_offset (file, stabstr_name);
1779 know (stroff == 1);
1780 md_number_to_chars (p, stroff, 4);
1781 seg_info (seg)->stabu.p = p;
1782 }
1783
1784 #endif
1785
1786 /* Fill in the counts in the first entry in a .stabs section. */
1787
1788 static void
1789 adjust_stab_sections (bfd *abfd, asection *sec, void *xxx ATTRIBUTE_UNUSED)
1790 {
1791 char *name;
1792 asection *strsec;
1793 char *p;
1794 int strsz, nsyms;
1795
1796 if (strncmp (".stab", sec->name, 5))
1797 return;
1798 if (!strcmp ("str", sec->name + strlen (sec->name) - 3))
1799 return;
1800
1801 name = alloca (strlen (sec->name) + 4);
1802 strcpy (name, sec->name);
1803 strcat (name, "str");
1804 strsec = bfd_get_section_by_name (abfd, name);
1805 if (strsec)
1806 strsz = bfd_section_size (abfd, strsec);
1807 else
1808 strsz = 0;
1809 nsyms = bfd_section_size (abfd, sec) / 12 - 1;
1810
1811 p = seg_info (sec)->stabu.p;
1812 gas_assert (p != 0);
1813
1814 bfd_h_put_16 (abfd, nsyms, p + 6);
1815 bfd_h_put_32 (abfd, strsz, p + 8);
1816 }
1817
1818 #ifdef NEED_ECOFF_DEBUG
1819
1820 /* This function is called by the ECOFF code. It is supposed to
1821 record the external symbol information so that the backend can
1822 write it out correctly. The ELF backend doesn't actually handle
1823 this at the moment, so we do it ourselves. We save the information
1824 in the symbol. */
1825
1826 #ifdef OBJ_MAYBE_ELF
1827 static
1828 #endif
1829 void
1830 elf_ecoff_set_ext (symbolS *sym, struct ecoff_extr *ext)
1831 {
1832 symbol_get_bfdsym (sym)->udata.p = ext;
1833 }
1834
1835 /* This function is called by bfd_ecoff_debug_externals. It is
1836 supposed to *EXT to the external symbol information, and return
1837 whether the symbol should be used at all. */
1838
1839 static bfd_boolean
1840 elf_get_extr (asymbol *sym, EXTR *ext)
1841 {
1842 if (sym->udata.p == NULL)
1843 return FALSE;
1844 *ext = *(EXTR *) sym->udata.p;
1845 return TRUE;
1846 }
1847
1848 /* This function is called by bfd_ecoff_debug_externals. It has
1849 nothing to do for ELF. */
1850
1851 static void
1852 elf_set_index (asymbol *sym ATTRIBUTE_UNUSED,
1853 bfd_size_type indx ATTRIBUTE_UNUSED)
1854 {
1855 }
1856
1857 #endif /* NEED_ECOFF_DEBUG */
1858
1859 void
1860 elf_frob_symbol (symbolS *symp, int *puntp)
1861 {
1862 struct elf_obj_sy *sy_obj;
1863
1864 #ifdef NEED_ECOFF_DEBUG
1865 if (ECOFF_DEBUGGING)
1866 ecoff_frob_symbol (symp);
1867 #endif
1868
1869 sy_obj = symbol_get_obj (symp);
1870
1871 if (sy_obj->size != NULL)
1872 {
1873 switch (sy_obj->size->X_op)
1874 {
1875 case O_subtract:
1876 S_SET_SIZE (symp,
1877 (S_GET_VALUE (sy_obj->size->X_add_symbol)
1878 + sy_obj->size->X_add_number
1879 - S_GET_VALUE (sy_obj->size->X_op_symbol)));
1880 break;
1881 case O_constant:
1882 S_SET_SIZE (symp,
1883 (S_GET_VALUE (sy_obj->size->X_add_symbol)
1884 + sy_obj->size->X_add_number));
1885 break;
1886 default:
1887 as_bad (_(".size expression too complicated to fix up"));
1888 break;
1889 }
1890 free (sy_obj->size);
1891 sy_obj->size = NULL;
1892 }
1893
1894 if (sy_obj->versioned_name != NULL)
1895 {
1896 char *p;
1897
1898 p = strchr (sy_obj->versioned_name, ELF_VER_CHR);
1899 know (p != NULL);
1900
1901 /* This symbol was given a new name with the .symver directive.
1902
1903 If this is an external reference, just rename the symbol to
1904 include the version string. This will make the relocs be
1905 against the correct versioned symbol.
1906
1907 If this is a definition, add an alias. FIXME: Using an alias
1908 will permit the debugging information to refer to the right
1909 symbol. However, it's not clear whether it is the best
1910 approach. */
1911
1912 if (! S_IS_DEFINED (symp))
1913 {
1914 /* Verify that the name isn't using the @@ syntax--this is
1915 reserved for definitions of the default version to link
1916 against. */
1917 if (p[1] == ELF_VER_CHR)
1918 {
1919 as_bad (_("invalid attempt to declare external version name as default in symbol `%s'"),
1920 sy_obj->versioned_name);
1921 *puntp = TRUE;
1922 }
1923 S_SET_NAME (symp, sy_obj->versioned_name);
1924 }
1925 else
1926 {
1927 if (p[1] == ELF_VER_CHR && p[2] == ELF_VER_CHR)
1928 {
1929 size_t l;
1930
1931 /* The @@@ syntax is a special case. It renames the
1932 symbol name to versioned_name with one `@' removed. */
1933 l = strlen (&p[3]) + 1;
1934 memmove (&p[2], &p[3], l);
1935 S_SET_NAME (symp, sy_obj->versioned_name);
1936 }
1937 else
1938 {
1939 symbolS *symp2;
1940
1941 /* FIXME: Creating a new symbol here is risky. We're
1942 in the final loop over the symbol table. We can
1943 get away with it only because the symbol goes to
1944 the end of the list, where the loop will still see
1945 it. It would probably be better to do this in
1946 obj_frob_file_before_adjust. */
1947
1948 symp2 = symbol_find_or_make (sy_obj->versioned_name);
1949
1950 /* Now we act as though we saw symp2 = sym. */
1951
1952 S_SET_SEGMENT (symp2, S_GET_SEGMENT (symp));
1953
1954 /* Subtracting out the frag address here is a hack
1955 because we are in the middle of the final loop. */
1956 S_SET_VALUE (symp2,
1957 (S_GET_VALUE (symp)
1958 - symbol_get_frag (symp)->fr_address));
1959
1960 symbol_set_frag (symp2, symbol_get_frag (symp));
1961
1962 /* This will copy over the size information. */
1963 copy_symbol_attributes (symp2, symp);
1964
1965 S_SET_OTHER (symp2, S_GET_OTHER (symp));
1966
1967 if (S_IS_WEAK (symp))
1968 S_SET_WEAK (symp2);
1969
1970 if (S_IS_EXTERNAL (symp))
1971 S_SET_EXTERNAL (symp2);
1972 }
1973 }
1974 }
1975
1976 /* Double check weak symbols. */
1977 if (S_IS_WEAK (symp))
1978 {
1979 if (S_IS_COMMON (symp))
1980 as_bad (_("symbol `%s' can not be both weak and common"),
1981 S_GET_NAME (symp));
1982 }
1983
1984 #ifdef TC_MIPS
1985 /* The Irix 5 and 6 assemblers set the type of any common symbol and
1986 any undefined non-function symbol to STT_OBJECT. We try to be
1987 compatible, since newer Irix 5 and 6 linkers care. However, we
1988 only set undefined symbols to be STT_OBJECT if we are on Irix,
1989 because that is the only time gcc will generate the necessary
1990 .global directives to mark functions. */
1991
1992 if (S_IS_COMMON (symp))
1993 symbol_get_bfdsym (symp)->flags |= BSF_OBJECT;
1994
1995 if (strstr (TARGET_OS, "irix") != NULL
1996 && ! S_IS_DEFINED (symp)
1997 && (symbol_get_bfdsym (symp)->flags & BSF_FUNCTION) == 0)
1998 symbol_get_bfdsym (symp)->flags |= BSF_OBJECT;
1999 #endif
2000 }
2001
2002 struct group_list
2003 {
2004 asection **head; /* Section lists. */
2005 unsigned int *elt_count; /* Number of sections in each list. */
2006 unsigned int num_group; /* Number of lists. */
2007 };
2008
2009 /* Called via bfd_map_over_sections. If SEC is a member of a group,
2010 add it to a list of sections belonging to the group. INF is a
2011 pointer to a struct group_list, which is where we store the head of
2012 each list. */
2013
2014 static void
2015 build_group_lists (bfd *abfd ATTRIBUTE_UNUSED, asection *sec, void *inf)
2016 {
2017 struct group_list *list = inf;
2018 const char *group_name = elf_group_name (sec);
2019 unsigned int i;
2020
2021 if (group_name == NULL)
2022 return;
2023
2024 /* If this group already has a list, add the section to the head of
2025 the list. */
2026 for (i = 0; i < list->num_group; i++)
2027 {
2028 if (strcmp (group_name, elf_group_name (list->head[i])) == 0)
2029 {
2030 elf_next_in_group (sec) = list->head[i];
2031 list->head[i] = sec;
2032 list->elt_count[i] += 1;
2033 return;
2034 }
2035 }
2036
2037 /* New group. Make the arrays bigger in chunks to minimize calls to
2038 realloc. */
2039 i = list->num_group;
2040 if ((i & 127) == 0)
2041 {
2042 unsigned int newsize = i + 128;
2043 list->head = xrealloc (list->head, newsize * sizeof (*list->head));
2044 list->elt_count = xrealloc (list->elt_count,
2045 newsize * sizeof (*list->elt_count));
2046 }
2047 list->head[i] = sec;
2048 list->elt_count[i] = 1;
2049 list->num_group += 1;
2050 }
2051
2052 void
2053 elf_frob_file (void)
2054 {
2055 struct group_list list;
2056 unsigned int i;
2057
2058 bfd_map_over_sections (stdoutput, adjust_stab_sections, NULL);
2059
2060 /* Go find section groups. */
2061 list.num_group = 0;
2062 list.head = NULL;
2063 list.elt_count = NULL;
2064 bfd_map_over_sections (stdoutput, build_group_lists, &list);
2065
2066 /* Make the SHT_GROUP sections that describe each section group. We
2067 can't set up the section contents here yet, because elf section
2068 indices have yet to be calculated. elf.c:set_group_contents does
2069 the rest of the work. */
2070 for (i = 0; i < list.num_group; i++)
2071 {
2072 const char *group_name = elf_group_name (list.head[i]);
2073 const char *sec_name;
2074 asection *s;
2075 flagword flags;
2076 struct symbol *sy;
2077 int has_sym;
2078 bfd_size_type size;
2079
2080 flags = SEC_READONLY | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_GROUP;
2081 for (s = list.head[i]; s != NULL; s = elf_next_in_group (s))
2082 if ((s->flags ^ flags) & SEC_LINK_ONCE)
2083 {
2084 flags |= SEC_LINK_ONCE | SEC_LINK_DUPLICATES_DISCARD;
2085 if (s != list.head[i])
2086 {
2087 as_warn (_("assuming all members of group `%s' are COMDAT"),
2088 group_name);
2089 break;
2090 }
2091 }
2092
2093 sec_name = group_name;
2094 sy = symbol_find_exact (group_name);
2095 has_sym = 0;
2096 if (sy != NULL
2097 && (sy == symbol_lastP
2098 || (sy->sy_next != NULL
2099 && sy->sy_next->sy_previous == sy)))
2100 {
2101 has_sym = 1;
2102 sec_name = ".group";
2103 }
2104 s = subseg_force_new (sec_name, 0);
2105 if (s == NULL
2106 || !bfd_set_section_flags (stdoutput, s, flags)
2107 || !bfd_set_section_alignment (stdoutput, s, 2))
2108 {
2109 as_fatal (_("can't create group: %s"),
2110 bfd_errmsg (bfd_get_error ()));
2111 }
2112 elf_section_type (s) = SHT_GROUP;
2113
2114 /* Pass a pointer to the first section in this group. */
2115 elf_next_in_group (s) = list.head[i];
2116 if (has_sym)
2117 elf_group_id (s) = sy->bsym;
2118
2119 size = 4 * (list.elt_count[i] + 1);
2120 bfd_set_section_size (stdoutput, s, size);
2121 s->contents = (unsigned char *) frag_more (size);
2122 frag_now->fr_fix = frag_now_fix_octets ();
2123 frag_wane (frag_now);
2124 }
2125
2126 #ifdef elf_tc_final_processing
2127 elf_tc_final_processing ();
2128 #endif
2129 }
2130
2131 /* It removes any unneeded versioned symbols from the symbol table. */
2132
2133 void
2134 elf_frob_file_before_adjust (void)
2135 {
2136 if (symbol_rootP)
2137 {
2138 symbolS *symp;
2139
2140 for (symp = symbol_rootP; symp; symp = symbol_next (symp))
2141 if (!S_IS_DEFINED (symp))
2142 {
2143 if (symbol_get_obj (symp)->versioned_name)
2144 {
2145 char *p;
2146
2147 /* The @@@ syntax is a special case. If the symbol is
2148 not defined, 2 `@'s will be removed from the
2149 versioned_name. */
2150
2151 p = strchr (symbol_get_obj (symp)->versioned_name,
2152 ELF_VER_CHR);
2153 know (p != NULL);
2154 if (p[1] == ELF_VER_CHR && p[2] == ELF_VER_CHR)
2155 {
2156 size_t l = strlen (&p[3]) + 1;
2157 memmove (&p[1], &p[3], l);
2158 }
2159 if (symbol_used_p (symp) == 0
2160 && symbol_used_in_reloc_p (symp) == 0)
2161 symbol_remove (symp, &symbol_rootP, &symbol_lastP);
2162 }
2163
2164 /* If there was .weak foo, but foo was neither defined nor
2165 used anywhere, remove it. */
2166
2167 else if (S_IS_WEAK (symp)
2168 && symbol_used_p (symp) == 0
2169 && symbol_used_in_reloc_p (symp) == 0)
2170 symbol_remove (symp, &symbol_rootP, &symbol_lastP);
2171 }
2172 }
2173 }
2174
2175 /* It is required that we let write_relocs have the opportunity to
2176 optimize away fixups before output has begun, since it is possible
2177 to eliminate all fixups for a section and thus we never should
2178 have generated the relocation section. */
2179
2180 void
2181 elf_frob_file_after_relocs (void)
2182 {
2183 #ifdef NEED_ECOFF_DEBUG
2184 if (ECOFF_DEBUGGING)
2185 /* Generate the ECOFF debugging information. */
2186 {
2187 const struct ecoff_debug_swap *debug_swap;
2188 struct ecoff_debug_info debug;
2189 char *buf;
2190 asection *sec;
2191
2192 debug_swap
2193 = get_elf_backend_data (stdoutput)->elf_backend_ecoff_debug_swap;
2194 know (debug_swap != NULL);
2195 ecoff_build_debug (&debug.symbolic_header, &buf, debug_swap);
2196
2197 /* Set up the pointers in debug. */
2198 #define SET(ptr, offset, type) \
2199 debug.ptr = (type) (buf + debug.symbolic_header.offset)
2200
2201 SET (line, cbLineOffset, unsigned char *);
2202 SET (external_dnr, cbDnOffset, void *);
2203 SET (external_pdr, cbPdOffset, void *);
2204 SET (external_sym, cbSymOffset, void *);
2205 SET (external_opt, cbOptOffset, void *);
2206 SET (external_aux, cbAuxOffset, union aux_ext *);
2207 SET (ss, cbSsOffset, char *);
2208 SET (external_fdr, cbFdOffset, void *);
2209 SET (external_rfd, cbRfdOffset, void *);
2210 /* ssext and external_ext are set up just below. */
2211
2212 #undef SET
2213
2214 /* Set up the external symbols. */
2215 debug.ssext = debug.ssext_end = NULL;
2216 debug.external_ext = debug.external_ext_end = NULL;
2217 if (! bfd_ecoff_debug_externals (stdoutput, &debug, debug_swap, TRUE,
2218 elf_get_extr, elf_set_index))
2219 as_fatal (_("failed to set up debugging information: %s"),
2220 bfd_errmsg (bfd_get_error ()));
2221
2222 sec = bfd_get_section_by_name (stdoutput, ".mdebug");
2223 gas_assert (sec != NULL);
2224
2225 know (!stdoutput->output_has_begun);
2226
2227 /* We set the size of the section, call bfd_set_section_contents
2228 to force the ELF backend to allocate a file position, and then
2229 write out the data. FIXME: Is this really the best way to do
2230 this? */
2231 bfd_set_section_size
2232 (stdoutput, sec, bfd_ecoff_debug_size (stdoutput, &debug, debug_swap));
2233
2234 /* Pass BUF to bfd_set_section_contents because this will
2235 eventually become a call to fwrite, and ISO C prohibits
2236 passing a NULL pointer to a stdio function even if the
2237 pointer will not be used. */
2238 if (! bfd_set_section_contents (stdoutput, sec, buf, 0, 0))
2239 as_fatal (_("can't start writing .mdebug section: %s"),
2240 bfd_errmsg (bfd_get_error ()));
2241
2242 know (stdoutput->output_has_begun);
2243 know (sec->filepos != 0);
2244
2245 if (! bfd_ecoff_write_debug (stdoutput, &debug, debug_swap,
2246 sec->filepos))
2247 as_fatal (_("could not write .mdebug section: %s"),
2248 bfd_errmsg (bfd_get_error ()));
2249 }
2250 #endif /* NEED_ECOFF_DEBUG */
2251 }
2252
2253 #ifdef SCO_ELF
2254
2255 /* Heavily plagiarized from obj_elf_version. The idea is to emit the
2256 SCO specific identifier in the .notes section to satisfy the SCO
2257 linker.
2258
2259 This looks more complicated than it really is. As opposed to the
2260 "obvious" solution, this should handle the cross dev cases
2261 correctly. (i.e, hosting on a 64 bit big endian processor, but
2262 generating SCO Elf code) Efficiency isn't a concern, as there
2263 should be exactly one of these sections per object module.
2264
2265 SCO OpenServer 5 identifies it's ELF modules with a standard ELF
2266 .note section.
2267
2268 int_32 namesz = 4 ; Name size
2269 int_32 descsz = 12 ; Descriptive information
2270 int_32 type = 1 ;
2271 char name[4] = "SCO" ; Originator name ALWAYS SCO + NULL
2272 int_32 version = (major ver # << 16) | version of tools ;
2273 int_32 source = (tool_id << 16 ) | 1 ;
2274 int_32 info = 0 ; These are set by the SCO tools, but we
2275 don't know enough about the source
2276 environment to set them. SCO ld currently
2277 ignores them, and recommends we set them
2278 to zero. */
2279
2280 #define SCO_MAJOR_VERSION 0x1
2281 #define SCO_MINOR_VERSION 0x1
2282
2283 void
2284 sco_id (void)
2285 {
2286
2287 char *name;
2288 unsigned int c;
2289 char ch;
2290 char *p;
2291 asection *seg = now_seg;
2292 subsegT subseg = now_subseg;
2293 Elf_Internal_Note i_note;
2294 Elf_External_Note e_note;
2295 asection *note_secp = NULL;
2296 int i, len;
2297
2298 /* create the .note section */
2299
2300 note_secp = subseg_new (".note", 0);
2301 bfd_set_section_flags (stdoutput,
2302 note_secp,
2303 SEC_HAS_CONTENTS | SEC_READONLY);
2304
2305 /* process the version string */
2306
2307 i_note.namesz = 4;
2308 i_note.descsz = 12; /* 12 descriptive bytes */
2309 i_note.type = NT_VERSION; /* Contains a version string */
2310
2311 p = frag_more (sizeof (i_note.namesz));
2312 md_number_to_chars (p, i_note.namesz, 4);
2313
2314 p = frag_more (sizeof (i_note.descsz));
2315 md_number_to_chars (p, i_note.descsz, 4);
2316
2317 p = frag_more (sizeof (i_note.type));
2318 md_number_to_chars (p, i_note.type, 4);
2319
2320 p = frag_more (4);
2321 strcpy (p, "SCO");
2322
2323 /* Note: this is the version number of the ELF we're representing */
2324 p = frag_more (4);
2325 md_number_to_chars (p, (SCO_MAJOR_VERSION << 16) | (SCO_MINOR_VERSION), 4);
2326
2327 /* Here, we pick a magic number for ourselves (yes, I "registered"
2328 it with SCO. The bottom bit shows that we are compat with the
2329 SCO ABI. */
2330 p = frag_more (4);
2331 md_number_to_chars (p, 0x4c520000 | 0x0001, 4);
2332
2333 /* If we knew (or cared) what the source language options were, we'd
2334 fill them in here. SCO has given us permission to ignore these
2335 and just set them to zero. */
2336 p = frag_more (4);
2337 md_number_to_chars (p, 0x0000, 4);
2338
2339 frag_align (2, 0, 0);
2340
2341 /* We probably can't restore the current segment, for there likely
2342 isn't one yet... */
2343 if (seg && subseg)
2344 subseg_set (seg, subseg);
2345
2346 }
2347
2348 #endif /* SCO_ELF */
2349
2350 static int
2351 elf_separate_stab_sections (void)
2352 {
2353 #ifdef NEED_ECOFF_DEBUG
2354 return (!ECOFF_DEBUGGING);
2355 #else
2356 return 1;
2357 #endif
2358 }
2359
2360 static void
2361 elf_init_stab_section (segT seg)
2362 {
2363 #ifdef NEED_ECOFF_DEBUG
2364 if (!ECOFF_DEBUGGING)
2365 #endif
2366 obj_elf_init_stab_section (seg);
2367 }
2368
2369 const struct format_ops elf_format_ops =
2370 {
2371 bfd_target_elf_flavour,
2372 0, /* dfl_leading_underscore */
2373 1, /* emit_section_symbols */
2374 elf_begin,
2375 elf_file_symbol,
2376 elf_frob_symbol,
2377 elf_frob_file,
2378 elf_frob_file_before_adjust,
2379 0, /* obj_frob_file_before_fix */
2380 elf_frob_file_after_relocs,
2381 elf_s_get_size, elf_s_set_size,
2382 elf_s_get_align, elf_s_set_align,
2383 elf_s_get_other,
2384 elf_s_set_other,
2385 0, /* s_get_desc */
2386 0, /* s_set_desc */
2387 0, /* s_get_type */
2388 0, /* s_set_type */
2389 elf_copy_symbol_attributes,
2390 #ifdef NEED_ECOFF_DEBUG
2391 ecoff_generate_asm_lineno,
2392 ecoff_stab,
2393 #else
2394 0, /* generate_asm_lineno */
2395 0, /* process_stab */
2396 #endif
2397 elf_separate_stab_sections,
2398 elf_init_stab_section,
2399 elf_sec_sym_ok_for_reloc,
2400 elf_pop_insert,
2401 #ifdef NEED_ECOFF_DEBUG
2402 elf_ecoff_set_ext,
2403 #else
2404 0, /* ecoff_set_ext */
2405 #endif
2406 elf_obj_read_begin_hook,
2407 elf_obj_symbol_new_hook
2408 };
This page took 0.11084 seconds and 5 git commands to generate.