1 /* BFD back-end for a.out.adobe binaries.
2 Copyright 1990, 91, 92, 93, 94, 95, 96, 98, 1999
3 Free Software Foundation, Inc.
4 Written by Cygnus Support. Based on bout.c.
6 This file is part of BFD, the Binary File Descriptor library.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
26 #include "aout/adobe.h"
28 #include "aout/stab_gnu.h"
29 #include "libaout.h" /* BFD a.out internal data structures */
31 extern const bfd_target a_out_adobe_vec; /* Forward decl */
33 static const bfd_target *aout_adobe_callback PARAMS ((bfd *));
35 extern boolean aout_32_slurp_symbol_table PARAMS ((bfd *abfd));
36 extern boolean aout_32_write_syms PARAMS ((bfd *));
37 static void aout_adobe_write_section PARAMS ((bfd *abfd, sec_ptr sect));
39 /* Swaps the information in an executable header taken from a raw byte
40 stream memory image, into the internal exec_header structure. */
42 void aout_adobe_swap_exec_header_in
43 PARAMS ((bfd *abfd, struct external_exec *raw_bytes,
44 struct internal_exec *execp));
47 aout_adobe_swap_exec_header_in (abfd, raw_bytes, execp)
49 struct external_exec *raw_bytes;
50 struct internal_exec *execp;
52 struct external_exec *bytes = (struct external_exec *)raw_bytes;
54 /* Now fill in fields in the execp, from the bytes in the raw data. */
55 execp->a_info = bfd_h_get_32 (abfd, bytes->e_info);
56 execp->a_text = GET_WORD (abfd, bytes->e_text);
57 execp->a_data = GET_WORD (abfd, bytes->e_data);
58 execp->a_bss = GET_WORD (abfd, bytes->e_bss);
59 execp->a_syms = GET_WORD (abfd, bytes->e_syms);
60 execp->a_entry = GET_WORD (abfd, bytes->e_entry);
61 execp->a_trsize = GET_WORD (abfd, bytes->e_trsize);
62 execp->a_drsize = GET_WORD (abfd, bytes->e_drsize);
65 /* Swaps the information in an internal exec header structure into the
66 supplied buffer ready for writing to disk. */
68 PROTO(void, aout_adobe_swap_exec_header_out,
70 struct internal_exec *execp,
71 struct external_exec *raw_bytes));
73 aout_adobe_swap_exec_header_out (abfd, execp, raw_bytes)
75 struct internal_exec *execp;
76 struct external_exec *raw_bytes;
78 struct external_exec *bytes = (struct external_exec *)raw_bytes;
80 /* Now fill in fields in the raw data, from the fields in the exec struct. */
81 bfd_h_put_32 (abfd, execp->a_info , bytes->e_info);
82 PUT_WORD (abfd, execp->a_text , bytes->e_text);
83 PUT_WORD (abfd, execp->a_data , bytes->e_data);
84 PUT_WORD (abfd, execp->a_bss , bytes->e_bss);
85 PUT_WORD (abfd, execp->a_syms , bytes->e_syms);
86 PUT_WORD (abfd, execp->a_entry , bytes->e_entry);
87 PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize);
88 PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize);
91 static const bfd_target *
92 aout_adobe_object_p (abfd)
95 struct internal_exec anexec;
96 struct external_exec exec_bytes;
99 if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd)
100 != EXEC_BYTES_SIZE) {
101 if (bfd_get_error () != bfd_error_system_call)
102 bfd_set_error (bfd_error_wrong_format);
106 anexec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info);
108 /* Normally we just compare for the magic number.
109 However, a bunch of Adobe tools aren't fixed up yet; they generate
110 files using ZMAGIC(!).
111 If the environment variable GNUTARGET is set to "a.out.adobe", we will
112 take just about any a.out file as an Adobe a.out file. FIXME! */
114 if (N_BADMAG (anexec)) {
115 targ = getenv ("GNUTARGET");
116 if (targ && !strcmp (targ, a_out_adobe_vec.name))
117 ; /* Just continue anyway, if specifically set to this format */
120 bfd_set_error (bfd_error_wrong_format);
125 aout_adobe_swap_exec_header_in (abfd, &exec_bytes, &anexec);
126 return aout_32_some_aout_object_p (abfd, &anexec, aout_adobe_callback);
129 /* Finish up the opening of a b.out file for reading. Fill in all the
130 fields that are not handled by common code. */
132 static const bfd_target *
133 aout_adobe_callback (abfd)
136 struct internal_exec *execp = exec_hdr (abfd);
138 struct external_segdesc ext[1];
140 char try_again[30]; /* name and number */
145 /* Architecture and machine type -- unknown in this format. */
146 bfd_set_arch_mach(abfd, bfd_arch_unknown, 0);
148 /* The positions of the string table and symbol table. */
149 obj_str_filepos (abfd) = N_STROFF (*execp);
150 obj_sym_filepos (abfd) = N_SYMOFF (*execp);
152 /* Suck up the section information from the file, one section at a time. */
155 if (bfd_read ((PTR) ext, 1, sizeof (*ext), abfd) != sizeof (*ext)) {
156 if (bfd_get_error () != bfd_error_system_call)
157 bfd_set_error (bfd_error_wrong_format);
160 switch (ext->e_type[0]) {
162 section_name = ".text";
163 flags = SEC_CODE | SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS;
167 section_name = ".data";
168 flags = SEC_DATA | SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS;
172 section_name = ".bss";
173 flags = SEC_DATA | SEC_HAS_CONTENTS;
177 goto no_more_sections;
180 (*_bfd_error_handler)
181 (_("%s: Unknown section type in a.out.adobe file: %x\n"),
182 bfd_get_filename (abfd), ext->e_type[0]);
183 goto no_more_sections;
186 /* First one is called ".text" or whatever; subsequent ones are
187 ".text1", ".text2", ... */
189 bfd_set_error (bfd_error_no_error);
190 sect = bfd_make_section (abfd, section_name);
193 if (bfd_get_error () != bfd_error_no_error)
194 return 0; /* Some other error -- slide into the sunset */
195 sprintf (try_again, "%s%d", section_name, ++trynum);
196 sect = bfd_make_section (abfd, try_again);
199 /* Fix the name, if it is a sprintf'd name. */
200 if (sect->name == try_again) {
201 newname = (char *) bfd_zalloc(abfd, strlen (sect->name));
204 strcpy (newname, sect->name);
205 sect->name = newname;
208 /* Now set the section's attributes. */
209 bfd_set_section_flags (abfd, sect, flags);
210 sect->_raw_size = ((ext->e_size[0] << 8) /* Assumed big-endian */
211 | ext->e_size[1] << 8)
213 sect->_cooked_size = sect->_raw_size;
214 sect->vma = bfd_h_get_32 (abfd, ext->e_virtbase);
215 sect->filepos = bfd_h_get_32 (abfd, ext->e_filebase);
216 /* FIXME XXX alignment? */
218 /* Set relocation information for first section of each type. */
219 if (trynum == 0) switch (ext->e_type[0]) {
221 sect->rel_filepos = N_TRELOFF (*execp);
222 sect->reloc_count = execp->a_trsize;
226 sect->rel_filepos = N_DRELOFF (*execp);
227 sect->reloc_count = execp->a_drsize;
233 adata(abfd).reloc_entry_size = sizeof (struct reloc_std_external);
234 adata(abfd).symbol_entry_size = sizeof (struct external_nlist);
235 adata(abfd).page_size = 1; /* Not applicable. */
236 adata(abfd).segment_size = 1; /* Not applicable. */
237 adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
242 struct bout_data_struct {
244 struct internal_exec e;
248 aout_adobe_mkobject (abfd)
251 struct bout_data_struct *rawptr;
253 rawptr = (struct bout_data_struct *) bfd_zalloc (abfd, sizeof (struct bout_data_struct));
257 abfd->tdata.bout_data = rawptr;
258 exec_hdr (abfd) = &rawptr->e;
260 adata(abfd).reloc_entry_size = sizeof (struct reloc_std_external);
261 adata(abfd).symbol_entry_size = sizeof (struct external_nlist);
262 adata(abfd).page_size = 1; /* Not applicable. */
263 adata(abfd).segment_size = 1; /* Not applicable. */
264 adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
270 aout_adobe_write_object_contents (abfd)
273 struct external_exec swapped_hdr;
274 static struct external_segdesc sentinel[1]; /* Initialized to zero */
277 exec_hdr (abfd)->a_info = ZMAGIC;
279 /* Calculate text size as total of text sections, etc. */
281 exec_hdr (abfd)->a_text = 0;
282 exec_hdr (abfd)->a_data = 0;
283 exec_hdr (abfd)->a_bss = 0;
284 exec_hdr (abfd)->a_trsize = 0;
285 exec_hdr (abfd)->a_drsize = 0;
287 for (sect = abfd->sections; sect; sect = sect->next) {
288 if (sect->flags & SEC_CODE) {
289 exec_hdr (abfd)->a_text += sect->_raw_size;
290 exec_hdr (abfd)->a_trsize += sect->reloc_count *
291 sizeof (struct reloc_std_external);
292 } else if (sect->flags & SEC_DATA) {
293 exec_hdr (abfd)->a_data += sect->_raw_size;
294 exec_hdr (abfd)->a_drsize += sect->reloc_count *
295 sizeof (struct reloc_std_external);
296 } else if (sect->flags & SEC_ALLOC && !(sect->flags & SEC_LOAD)) {
297 exec_hdr (abfd)->a_bss += sect->_raw_size;
301 exec_hdr (abfd)->a_syms = bfd_get_symcount (abfd)
302 * sizeof (struct external_nlist);
303 exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd);
305 aout_adobe_swap_exec_header_out (abfd, exec_hdr (abfd), &swapped_hdr);
307 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
308 || (bfd_write ((PTR) &swapped_hdr, 1, EXEC_BYTES_SIZE, abfd)
312 /* Now write out the section information. Text first, data next, rest
315 for (sect = abfd->sections; sect; sect = sect->next) {
316 if (sect->flags & SEC_CODE) {
317 aout_adobe_write_section (abfd, sect);
320 for (sect = abfd->sections; sect; sect = sect->next) {
321 if (sect->flags & SEC_DATA) {
322 aout_adobe_write_section (abfd, sect);
325 for (sect = abfd->sections; sect; sect = sect->next) {
326 if (!(sect->flags & (SEC_CODE|SEC_DATA))) {
327 aout_adobe_write_section (abfd, sect);
331 /* Write final `sentinel` section header (with type of 0). */
332 if (bfd_write ((PTR) sentinel, 1, sizeof (*sentinel), abfd)
333 != sizeof (*sentinel))
336 /* Now write out reloc info, followed by syms and strings */
337 if (bfd_get_symcount (abfd) != 0)
339 if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*exec_hdr(abfd))), SEEK_SET)
343 if (! aout_32_write_syms (abfd))
346 if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*exec_hdr(abfd))), SEEK_SET)
350 for (sect = abfd->sections; sect; sect = sect->next) {
351 if (sect->flags & SEC_CODE) {
352 if (!aout_32_squirt_out_relocs (abfd, sect))
357 if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*exec_hdr(abfd))), SEEK_SET)
361 for (sect = abfd->sections; sect; sect = sect->next) {
362 if (sect->flags & SEC_DATA) {
363 if (!aout_32_squirt_out_relocs (abfd, sect))
372 aout_adobe_write_section (abfd, sect)
373 bfd *abfd ATTRIBUTE_UNUSED;
374 sec_ptr sect ATTRIBUTE_UNUSED;
380 aout_adobe_set_section_contents (abfd, section, location, offset, count)
387 file_ptr section_start;
390 if (abfd->output_has_begun == false) { /* set by bfd.c handler */
392 /* Assign file offsets to sections. Text sections are first, and
393 are contiguous. Then data sections. Everything else at the end. */
395 section_start = N_TXTOFF (ignore<-->me);
397 for (sect = abfd->sections; sect; sect = sect->next) {
398 if (sect->flags & SEC_CODE) {
399 sect->filepos = section_start;
400 /* FIXME: Round to alignment */
401 section_start += sect->_raw_size;
405 for (sect = abfd->sections; sect; sect = sect->next) {
406 if (sect->flags & SEC_DATA) {
407 sect->filepos = section_start;
408 /* FIXME: Round to alignment */
409 section_start += sect->_raw_size;
413 for (sect = abfd->sections; sect; sect = sect->next) {
414 if (sect->flags & SEC_HAS_CONTENTS &&
415 !(sect->flags & (SEC_CODE|SEC_DATA))) {
416 sect->filepos = section_start;
417 /* FIXME: Round to alignment */
418 section_start += sect->_raw_size;
423 /* regardless, once we know what we're doing, we might as well get going */
424 if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0)
428 return (bfd_write ((PTR)location, 1, count, abfd) == count) ?true:false;
434 aout_adobe_set_arch_mach (abfd, arch, machine)
436 enum bfd_architecture arch;
437 unsigned long machine;
439 if (! bfd_default_set_arch_mach (abfd, arch, machine))
442 if (arch == bfd_arch_unknown
443 || arch == bfd_arch_m68k)
450 aout_adobe_sizeof_headers (ignore_abfd, ignore)
451 bfd *ignore_abfd ATTRIBUTE_UNUSED;
452 boolean ignore ATTRIBUTE_UNUSED;
454 return sizeof(struct internal_exec);
457 /* Build the transfer vector for Adobe A.Out files. */
459 #define aout_32_close_and_cleanup aout_32_bfd_free_cached_info
461 #define aout_32_bfd_make_debug_symbol \
462 ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr)
464 #define aout_32_bfd_reloc_type_lookup \
465 ((reloc_howto_type *(*) \
466 PARAMS ((bfd *, bfd_reloc_code_real_type))) bfd_nullvoidptr)
468 #define aout_32_set_arch_mach aout_adobe_set_arch_mach
469 #define aout_32_set_section_contents aout_adobe_set_section_contents
471 #define aout_32_sizeof_headers aout_adobe_sizeof_headers
472 #define aout_32_bfd_get_relocated_section_contents \
473 bfd_generic_get_relocated_section_contents
474 #define aout_32_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
475 #define aout_32_bfd_relax_section bfd_generic_relax_section
476 #define aout_32_bfd_gc_sections bfd_generic_gc_sections
477 #define aout_32_bfd_link_hash_table_create \
478 _bfd_generic_link_hash_table_create
479 #define aout_32_bfd_link_add_symbols _bfd_generic_link_add_symbols
480 #define aout_32_bfd_final_link _bfd_generic_final_link
481 #define aout_32_bfd_link_split_section _bfd_generic_link_split_section
483 const bfd_target a_out_adobe_vec =
485 "a.out.adobe", /* name */
486 bfd_target_aout_flavour,
487 BFD_ENDIAN_BIG, /* data byte order is unknown (big assumed) */
488 BFD_ENDIAN_BIG, /* hdr byte order is big */
489 (HAS_RELOC | EXEC_P | /* object flags */
490 HAS_LINENO | HAS_DEBUG |
491 HAS_SYMS | HAS_LOCALS | WP_TEXT ),
493 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_DATA | SEC_RELOC),
494 '_', /* symbol leading char */
495 ' ', /* ar_pad_char */
496 16, /* ar_max_namelen */
498 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
499 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
500 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
501 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
502 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
503 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
504 {_bfd_dummy_target, aout_adobe_object_p, /* bfd_check_format */
505 bfd_generic_archive_p, _bfd_dummy_target},
506 {bfd_false, aout_adobe_mkobject, /* bfd_set_format */
507 _bfd_generic_mkarchive, bfd_false},
508 {bfd_false, aout_adobe_write_object_contents, /* bfd_write_contents */
509 _bfd_write_archive_contents, bfd_false},
511 BFD_JUMP_TABLE_GENERIC (aout_32),
512 BFD_JUMP_TABLE_COPY (_bfd_generic),
513 BFD_JUMP_TABLE_CORE (_bfd_nocore),
514 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd),
515 BFD_JUMP_TABLE_SYMBOLS (aout_32),
516 BFD_JUMP_TABLE_RELOCS (aout_32),
517 BFD_JUMP_TABLE_WRITE (aout_32),
518 BFD_JUMP_TABLE_LINK (aout_32),
519 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),