1 /* ECOFF object file format.
2 Copyright 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002,
3 2005 Free Software Foundation, Inc.
4 Contributed by Cygnus Support.
5 This file was put together by Ian Lance Taylor <ian@cygnus.com>.
7 This file is part of GAS.
9 GAS is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2, or (at your option)
14 GAS is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GAS; see the file COPYING. If not, write to the Free
21 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
24 #define OBJ_HEADER "obj-ecoff.h"
26 #include "coff/internal.h"
27 #include "bfd/libcoff.h"
28 #include "bfd/libecoff.h"
30 /* Almost all of the ECOFF support is actually in ecoff.c in the main
31 gas directory. This file mostly just arranges to call that one at
34 /* Set section VMAs and GP values before reloc processing. */
37 ecoff_frob_file_before_fix (void)
42 /* Set the section VMA values. We force the .sdata and .sbss
43 sections to the end to ensure that their VMA addresses are close
44 together so that the GP register can address both of them. We
45 put the .bss section after the .sbss section.
47 Also, for the Alpha, we must sort the sections, to make sure they
48 appear in the output file in the correct order. (Actually, maybe
49 this is a job for BFD. But the VMAs computed would be out of
50 whack if we computed them given our initial, random ordering.
51 It's possible that that wouldn't break things; I could do some
52 experimenting sometime and find out.
54 This output ordering of sections is magic, on the Alpha, at
55 least. The .lita section must come before .lit8 and .lit4,
56 otherwise the OSF/1 linker may silently trash the .lit{4,8}
57 section contents. Also, .text must preceed .rdata. These differ
58 from the order described in some parts of the DEC OSF/1 Assembly
59 Language Programmer's Guide, but that order doesn't seem to work
62 I don't know if section ordering on the MIPS is important. */
64 static const char *const names[] =
67 ".text", ".rdata", ".init", ".fini",
69 ".data", ".lita", ".lit8", ".lit4", ".sdata", ".got",
73 #define n_names ((int) (sizeof (names) / sizeof (names[0])))
75 /* Sections that match names, order to be straightened out later. */
76 asection *secs[n_names];
80 for (i = 0; i < n_names; i++)
83 for (sec = &stdoutput->sections; *sec != NULL;)
85 for (i = 0; i < n_names; i++)
86 if (!strcmp ((*sec)->name, names[i]))
89 bfd_section_list_remove (stdoutput, sec);
94 bfd_set_section_vma (stdoutput, *sec, addr);
95 addr += bfd_section_size (stdoutput, *sec);
99 for (i = 0; i < n_names; i++)
102 bfd_set_section_vma (stdoutput, secs[i], addr);
103 addr += bfd_section_size (stdoutput, secs[i]);
105 for (i = n_names - 1; i >= 0; i--)
107 bfd_section_list_insert (stdoutput, &stdoutput->sections, secs[i]);
109 /* Fill in the register masks. */
111 unsigned long gprmask = 0;
112 unsigned long fprmask = 0;
113 unsigned long *cprmask = NULL;
116 /* Fill in the MIPS register masks. It's probably not worth
117 setting up a generic interface for this. */
118 gprmask = mips_gprmask;
119 cprmask = mips_cprmask;
123 alpha_frob_ecoff_data ();
125 if (! bfd_ecoff_set_gp_value (stdoutput, alpha_gp_value))
126 as_fatal (_("Can't set GP value"));
128 gprmask = alpha_gprmask;
129 fprmask = alpha_fprmask;
132 if (! bfd_ecoff_set_regmasks (stdoutput, gprmask, fprmask, cprmask))
133 as_fatal (_("Can't set register masks"));
137 /* Swap out the symbols and debugging information for BFD. */
140 ecoff_frob_file (void)
142 const struct ecoff_debug_swap * const debug_swap
143 = &ecoff_backend (stdoutput)->debug_swap;
144 bfd_vma addr ATTRIBUTE_UNUSED;
149 /* Build the ECOFF debugging information. */
150 assert (ecoff_data (stdoutput) != 0);
151 hdr = &ecoff_data (stdoutput)->debug_info.symbolic_header;
152 ecoff_build_debug (hdr, &buf, debug_swap);
154 /* Finish up the ecoff_tdata structure. */
156 #define SET(ptr, count, type, size) \
157 if (hdr->count == 0) \
158 ecoff_data (stdoutput)->debug_info.ptr = NULL; \
161 ecoff_data (stdoutput)->debug_info.ptr = (type) set; \
162 set += hdr->count * size; \
165 SET (line, cbLine, unsigned char *, sizeof (unsigned char));
166 SET (external_dnr, idnMax, void *, debug_swap->external_dnr_size);
167 SET (external_pdr, ipdMax, void *, debug_swap->external_pdr_size);
168 SET (external_sym, isymMax, void *, debug_swap->external_sym_size);
169 SET (external_opt, ioptMax, void *, debug_swap->external_opt_size);
170 SET (external_aux, iauxMax, union aux_ext *, sizeof (union aux_ext));
171 SET (ss, issMax, char *, sizeof (char));
172 SET (ssext, issExtMax, char *, sizeof (char));
173 SET (external_rfd, crfd, void *, debug_swap->external_rfd_size);
174 SET (external_fdr, ifdMax, void *, debug_swap->external_fdr_size);
175 SET (external_ext, iextMax, void *, debug_swap->external_ext_size);
179 /* This is called by the ECOFF code to set the external information
180 for a symbol. We just pass it on to BFD, which expects the swapped
181 information to be stored in the native field of the symbol. */
184 obj_ecoff_set_ext (symbolS *sym, EXTR *ext)
186 const struct ecoff_debug_swap * const debug_swap
187 = &ecoff_backend (stdoutput)->debug_swap;
188 ecoff_symbol_type *esym;
190 know (bfd_asymbol_flavour (symbol_get_bfdsym (sym))
191 == bfd_target_ecoff_flavour);
192 esym = ecoffsymbol (symbol_get_bfdsym (sym));
194 esym->native = xmalloc (debug_swap->external_ext_size);
195 (*debug_swap->swap_ext_out) (stdoutput, ext, esym->native);
199 ecoff_sec_sym_ok_for_reloc (asection *sec ATTRIBUTE_UNUSED)
205 obj_ecoff_frob_symbol (symbolS *sym, int *puntp ATTRIBUTE_UNUSED)
207 ecoff_frob_symbol (sym);
211 ecoff_pop_insert (void)
213 pop_insert (obj_pseudo_table);
217 ecoff_separate_stab_sections (void)
222 /* These are the pseudo-ops we support in this file. Only those
223 relating to debugging information are supported here.
225 The following pseudo-ops from the Kane and Heinrich MIPS book
226 should be defined here, but are currently unsupported: .aent,
227 .bgnb, .endb, .verstamp, .vreg.
229 The following pseudo-ops from the Kane and Heinrich MIPS book are
230 MIPS CPU specific, and should be defined by tc-mips.c: .alias,
231 .extern, .galive, .gjaldef, .gjrlive, .livereg, .noalias, .option,
232 .rdata, .sdata, .set.
234 The following pseudo-ops from the Kane and Heinrich MIPS book are
235 not MIPS CPU specific, but are also not ECOFF specific. I have
236 only listed the ones which are not already in read.c. It's not
237 completely clear where these should be defined, but tc-mips.c is
238 probably the most reasonable place: .asciiz, .asm0, .endr, .err,
239 .half, .lab, .repeat, .struct, .weakext. */
241 const pseudo_typeS obj_pseudo_table[] =
243 /* COFF style debugging information. .ln is not used; .loc is used
245 { "def", ecoff_directive_def, 0 },
246 { "dim", ecoff_directive_dim, 0 },
247 { "endef", ecoff_directive_endef, 0 },
248 { "file", ecoff_directive_file, 0 },
249 { "scl", ecoff_directive_scl, 0 },
250 { "size", ecoff_directive_size, 0 },
251 { "esize", ecoff_directive_size, 0 },
252 { "tag", ecoff_directive_tag, 0 },
253 { "type", ecoff_directive_type, 0 },
254 { "etype", ecoff_directive_type, 0 },
255 { "val", ecoff_directive_val, 0 },
257 /* ECOFF specific debugging information. */
258 { "begin", ecoff_directive_begin, 0 },
259 { "bend", ecoff_directive_bend, 0 },
260 { "end", ecoff_directive_end, 0 },
261 { "ent", ecoff_directive_ent, 0 },
262 { "fmask", ecoff_directive_fmask, 0 },
263 { "frame", ecoff_directive_frame, 0 },
264 { "loc", ecoff_directive_loc, 0 },
265 { "mask", ecoff_directive_mask, 0 },
267 /* Other ECOFF directives. */
268 { "extern", ecoff_directive_extern, 0 },
271 /* For TC_MIPS, tc-mips.c adds this. */
272 { "weakext", ecoff_directive_weakext, 0 },
275 /* These are used on Irix. I don't know how to implement them. */
276 { "bgnb", s_ignore, 0 },
277 { "endb", s_ignore, 0 },
278 { "verstamp", s_ignore, 0 },
281 { NULL, s_ignore, 0 }
284 const struct format_ops ecoff_format_ops =
286 bfd_target_ecoff_flavour,
287 0, /* dfl_leading_underscore. */
289 /* FIXME: A comment why emit_section_symbols is different here (1) from
290 the single-format definition (0) would be in order. */
291 1, /* emit_section_symbols. */
294 obj_ecoff_frob_symbol,
296 0, /* frob_file_before_adjust. */
297 ecoff_frob_file_before_fix,
298 0, /* frob_file_after_relocs. */
301 0, /* s_get_align. */
302 0, /* s_set_align. */
303 0, /* s_get_other. */
304 0, /* s_set_other. */
309 0, /* copy_symbol_attributes. */
310 ecoff_generate_asm_lineno,
312 ecoff_separate_stab_sections,
313 0, /* init_stab_section. */
314 ecoff_sec_sym_ok_for_reloc,
317 ecoff_read_begin_hook,
318 ecoff_symbol_new_hook