1 /* BFD back-end for a.out.adobe binaries.
2 Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
3 Written by Cygnus Support. Based on bout.c.
5 This file is part of BFD, the Binary File Descriptor library.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
25 #include "aout/adobe.h"
27 #include "aout/stab_gnu.h"
28 #include "libaout.h" /* BFD a.out internal data structures */
30 extern bfd_target a_out_adobe_vec
; /* Forward decl */
32 PROTO (static bfd_target
*, aout_adobe_callback
, (bfd
*));
34 PROTO (boolean
, aout_32_slurp_symbol_table
, (bfd
*abfd
));
35 PROTO (void , aout_32_write_syms
, ());
36 PROTO (static void, aout_adobe_write_section
, (bfd
*abfd
, sec_ptr sect
));
38 /* Swaps the information in an executable header taken from a raw byte
39 stream memory image, into the internal exec_header structure. */
41 PROTO(void, aout_adobe_swap_exec_header_in
,
43 struct external_exec
*raw_bytes
,
44 struct internal_exec
*execp
));
47 DEFUN(aout_adobe_swap_exec_header_in
,(abfd
, raw_bytes
, execp
),
49 struct external_exec
*raw_bytes AND
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 DEFUN(aout_adobe_swap_exec_header_out
,(abfd
, execp
, raw_bytes
),
75 struct internal_exec
*execp AND
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
);
93 aout_adobe_object_p (abfd
)
96 struct internal_exec anexec
;
97 struct external_exec exec_bytes
;
100 if (bfd_read ((PTR
) &exec_bytes
, 1, EXEC_BYTES_SIZE
, abfd
)
101 != EXEC_BYTES_SIZE
) {
102 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_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
);
130 /* Finish up the opening of a b.out file for reading. Fill in all the
131 fields that are not handled by common code. */
134 aout_adobe_callback (abfd
)
137 struct internal_exec
*execp
= exec_hdr (abfd
);
139 struct external_segdesc ext
[1];
141 char try_again
[30]; /* name and number */
146 /* Architecture and machine type -- unknown in this format. */
147 bfd_set_arch_mach(abfd
, bfd_arch_unknown
, 0);
149 /* The positions of the string table and symbol table. */
150 obj_str_filepos (abfd
) = N_STROFF (*execp
);
151 obj_sym_filepos (abfd
) = N_SYMOFF (*execp
);
153 /* Suck up the section information from the file, one section at a time. */
156 if (bfd_read ((PTR
) ext
, 1, sizeof (*ext
), abfd
) != sizeof (*ext
)) {
157 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 fprintf (stderr
, "Unknown section type in a.out.adobe file: %x\n",
182 goto no_more_sections
;
185 /* First one is called ".text" or whatever; subsequent ones are
186 ".text1", ".text2", ... */
188 bfd_error
= no_error
;
189 sect
= bfd_make_section (abfd
, section_name
);
192 if (bfd_error
!= no_error
)
193 return 0; /* Some other error -- slide into the sunset */
194 sprintf (try_again
, "%s%d", section_name
, ++trynum
);
195 sect
= bfd_make_section (abfd
, try_again
);
198 /* Fix the name, if it is a sprintf'd name. */
199 if (sect
->name
== try_again
) {
200 newname
= (char *) bfd_zalloc(abfd
, strlen (sect
->name
));
201 if (newname
== NULL
) {
202 bfd_error
= no_memory
;
205 strcpy (newname
, sect
->name
);
206 sect
->name
= newname
;
209 /* Now set the section's attributes. */
210 bfd_set_section_flags (abfd
, sect
, flags
);
211 sect
->_raw_size
= ((ext
->e_size
[0] << 8) /* Assumed big-endian */
212 | ext
->e_size
[1] << 8)
214 sect
->_cooked_size
= sect
->_raw_size
;
215 sect
->vma
= bfd_h_get_32 (abfd
, ext
->e_virtbase
);
216 sect
->filepos
= bfd_h_get_32 (abfd
, ext
->e_filebase
);
217 /* FIXME XXX alignment? */
219 /* Set relocation information for first section of each type. */
220 if (trynum
== 0) switch (ext
->e_type
[0]) {
222 sect
->rel_filepos
= N_TRELOFF (*execp
);
223 sect
->reloc_count
= execp
->a_trsize
;
227 sect
->rel_filepos
= N_DRELOFF (*execp
);
228 sect
->reloc_count
= execp
->a_drsize
;
234 adata(abfd
).reloc_entry_size
= sizeof (struct reloc_std_external
);
235 adata(abfd
).symbol_entry_size
= sizeof (struct external_nlist
);
236 adata(abfd
).page_size
= 1; /* Not applicable. */
237 adata(abfd
).segment_size
= 1; /* Not applicable. */
238 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
243 struct bout_data_struct
{
245 struct internal_exec e
;
249 aout_adobe_mkobject (abfd
)
252 struct bout_data_struct
*rawptr
;
254 rawptr
= (struct bout_data_struct
*) bfd_zalloc (abfd
, sizeof (struct bout_data_struct
));
255 if (rawptr
== NULL
) {
256 bfd_error
= no_memory
;
260 abfd
->tdata
.bout_data
= rawptr
;
261 exec_hdr (abfd
) = &rawptr
->e
;
263 adata(abfd
).reloc_entry_size
= sizeof (struct reloc_std_external
);
264 adata(abfd
).symbol_entry_size
= sizeof (struct external_nlist
);
265 adata(abfd
).page_size
= 1; /* Not applicable. */
266 adata(abfd
).segment_size
= 1; /* Not applicable. */
267 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
274 aout_adobe_write_object_contents (abfd
)
277 struct external_exec swapped_hdr
;
278 static struct external_segdesc sentinel
[1] = {0};
281 exec_hdr (abfd
)->a_info
= ZMAGIC
;
283 /* Calculate text size as total of text sections, etc. */
285 exec_hdr (abfd
)->a_text
= 0;
286 exec_hdr (abfd
)->a_data
= 0;
287 exec_hdr (abfd
)->a_bss
= 0;
288 exec_hdr (abfd
)->a_trsize
= 0;
289 exec_hdr (abfd
)->a_drsize
= 0;
291 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
292 if (sect
->flags
& SEC_CODE
) {
293 exec_hdr (abfd
)->a_text
+= sect
->_raw_size
;
294 exec_hdr (abfd
)->a_trsize
+= sect
->reloc_count
*
295 sizeof (struct reloc_std_external
);
296 } else if (sect
->flags
& SEC_DATA
) {
297 exec_hdr (abfd
)->a_data
+= sect
->_raw_size
;
298 exec_hdr (abfd
)->a_drsize
+= sect
->reloc_count
*
299 sizeof (struct reloc_std_external
);
300 } else if (sect
->flags
& SEC_ALLOC
&& !(sect
->flags
& SEC_LOAD
)) {
301 exec_hdr (abfd
)->a_bss
+= sect
->_raw_size
;
305 exec_hdr (abfd
)->a_syms
= bfd_get_symcount (abfd
)
306 * sizeof (struct external_nlist
);
307 exec_hdr (abfd
)->a_entry
= bfd_get_start_address (abfd
);
309 aout_adobe_swap_exec_header_out (abfd
, exec_hdr (abfd
), &swapped_hdr
);
311 bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
);
312 bfd_write ((PTR
) &swapped_hdr
, 1, EXEC_BYTES_SIZE
, abfd
);
314 /* Now write out the section information. Text first, data next, rest
317 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
318 if (sect
->flags
& SEC_CODE
) {
319 aout_adobe_write_section (abfd
, sect
);
322 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
323 if (sect
->flags
& SEC_DATA
) {
324 aout_adobe_write_section (abfd
, sect
);
327 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
328 if (!(sect
->flags
& (SEC_CODE
|SEC_DATA
))) {
329 aout_adobe_write_section (abfd
, sect
);
333 /* Write final `sentinel` section header (with type of 0). */
334 bfd_write ((PTR
) sentinel
, 1, sizeof (*sentinel
), abfd
);
336 /* Now write out reloc info, followed by syms and strings */
337 if (bfd_get_symcount (abfd
) != 0)
339 bfd_seek (abfd
, (file_ptr
)(N_SYMOFF(*exec_hdr(abfd
))), SEEK_SET
);
341 aout_32_write_syms (abfd
);
343 bfd_seek (abfd
, (file_ptr
)(N_TRELOFF(*exec_hdr(abfd
))), SEEK_SET
);
345 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
346 if (sect
->flags
& SEC_CODE
) {
347 if (!aout_32_squirt_out_relocs (abfd
, sect
))
352 bfd_seek (abfd
, (file_ptr
)(N_DRELOFF(*exec_hdr(abfd
))), SEEK_SET
);
354 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
355 if (sect
->flags
& SEC_DATA
) {
356 if (!aout_32_squirt_out_relocs (abfd
, sect
))
365 aout_adobe_write_section (abfd
, sect
)
373 aout_adobe_set_section_contents (abfd
, section
, location
, offset
, count
)
376 unsigned char *location
;
380 file_ptr section_start
;
383 if (abfd
->output_has_begun
== false) { /* set by bfd.c handler */
385 /* Assign file offsets to sections. Text sections are first, and
386 are contiguous. Then data sections. Everything else at the end. */
388 section_start
= N_TXTOFF (ignore
<-->me
);
390 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
391 if (sect
->flags
& SEC_CODE
) {
392 sect
->filepos
= section_start
;
393 /* FIXME: Round to alignment */
394 section_start
+= sect
->_raw_size
;
398 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
399 if (sect
->flags
& SEC_DATA
) {
400 sect
->filepos
= section_start
;
401 /* FIXME: Round to alignment */
402 section_start
+= sect
->_raw_size
;
406 for (sect
= abfd
->sections
; sect
; sect
= sect
->next
) {
407 if (sect
->flags
& SEC_HAS_CONTENTS
&&
408 !(sect
->flags
& (SEC_CODE
|SEC_DATA
))) {
409 sect
->filepos
= section_start
;
410 /* FIXME: Round to alignment */
411 section_start
+= sect
->_raw_size
;
416 /* regardless, once we know what we're doing, we might as well get going */
417 bfd_seek (abfd
, section
->filepos
+ offset
, SEEK_SET
);
420 return (bfd_write ((PTR
)location
, 1, count
, abfd
) == count
) ?true:false;
426 aout_adobe_set_arch_mach (abfd
, arch
, machine
)
428 enum bfd_architecture arch
;
429 unsigned long machine
;
431 bfd_default_set_arch_mach(abfd
, arch
, machine
);
433 if (arch
== bfd_arch_unknown
) /* Unknown machine arch is OK */
440 DEFUN(aout_adobe_sizeof_headers
,(ignore_abfd
, ignore
),
444 return sizeof(struct internal_exec
);
450 /* Build the transfer vector for Adobe A.Out files. */
452 /* We don't have core files. */
453 #define aout_32_core_file_failing_command _bfd_dummy_core_file_failing_command
454 #define aout_32_core_file_failing_signal _bfd_dummy_core_file_failing_signal
455 #define aout_32_core_file_matches_executable_p \
456 _bfd_dummy_core_file_matches_executable_p
458 /* We use BSD-Unix generic archive files. */
459 #define aout_32_openr_next_archived_file bfd_generic_openr_next_archived_file
460 #define aout_32_generic_stat_arch_elt bfd_generic_stat_arch_elt
461 #define aout_32_slurp_armap bfd_slurp_bsd_armap
462 #define aout_32_slurp_extended_name_table bfd_true
463 #define aout_32_write_armap bsd_write_armap
464 #define aout_32_truncate_arname bfd_bsd_truncate_arname
466 /* We override these routines from the usual a.out file routines. */
467 #define aout_32_set_section_contents aout_adobe_set_section_contents
468 #define aout_32_set_arch_mach aout_adobe_set_arch_mach
469 #define aout_32_sizeof_headers aout_adobe_sizeof_headers
471 #define aout_32_bfd_debug_info_start bfd_void
472 #define aout_32_bfd_debug_info_end bfd_void
473 #define aout_32_bfd_debug_info_accumulate (PROTO(void,(*),(bfd*, struct sec *))) bfd_void
475 #define aout_32_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
476 #define aout_32_bfd_relax_section bfd_generic_relax_section
477 #define aout_32_bfd_seclet_link bfd_generic_seclet_link
479 bfd_target a_out_adobe_vec
=
481 "a.out.adobe", /* name */
482 bfd_target_aout_flavour
,
483 true, /* data byte order is unknown (big assumed) */
484 true, /* hdr byte order is big */
485 (HAS_RELOC
| EXEC_P
| /* object flags */
486 HAS_LINENO
| HAS_DEBUG
|
487 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
),
489 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_CODE
| SEC_DATA
| SEC_RELOC
),
490 '_', /* symbol leading char */
491 ' ', /* ar_pad_char */
492 16, /* ar_max_namelen */
493 2, /* minumum alignment power */
495 _do_getb64
, _do_putb64
, _do_getb32
, _do_putb32
, _do_getb16
, _do_putb16
, /* data */
496 _do_getb64
, _do_putb64
, _do_getb32
, _do_putb32
, _do_getb16
, _do_putb16
, /* hdrs */
497 {_bfd_dummy_target
, aout_adobe_object_p
, /* bfd_check_format */
498 bfd_generic_archive_p
, _bfd_dummy_target
},
499 {bfd_false
, aout_adobe_mkobject
, /* bfd_set_format */
500 _bfd_generic_mkarchive
, bfd_false
},
501 {bfd_false
, aout_adobe_write_object_contents
, /* bfd_write_contents */
502 _bfd_write_archive_contents
, bfd_false
},