1 /* A.out "format 1" file handling code for BFD.
2 Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
3 Written by Cygnus Support.
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/sun4.h"
26 #include "libaout.h" /* BFD a.out internal data structures */
28 #include "aout/aout64.h"
29 #include "aout/stab_gnu.h"
32 /* This is needed to reject a NewsOS file, e.g. in
33 gdb/testsuite/gdb.t10/crossload.exp. <kingdon@cygnus.com>
34 I needed to add M_UNKNOWN to recognize a 68000 object, so this will
35 probably no longer reject a NewsOS object. <ian@cygnus.com>. */
36 #define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \
37 || (mtype) == M_68010 \
38 || (mtype) == M_68020 \
39 || (mtype) == M_SPARC)
42 The file @code{aoutf1.h} contains the code for BFD's
43 a.out back end. Control over the generated back end is given by these
44 two preprocessor names:
47 This value should be either 32 or 64, depending upon the size of an
48 int in the target format. It changes the sizes of the structs which
49 perform the memory/disk mapping of structures.
51 The 64 bit backend may only be used if the host compiler supports 64
52 ints (eg long long with gcc), by defining the name @code{HOST_64_BIT} in @code{bfd.h}.
53 With this name defined, @emph{all} bfd operations are performed with 64bit
54 arithmetic, not just those to a 64bit target.
57 The name put into the target vector.
67 DEFUN(NAME(sunos
,set_arch_mach
), (abfd
, machtype
),
68 bfd
*abfd AND
int machtype
)
70 /* Determine the architecture and machine type of the object file. */
71 enum bfd_architecture arch
;
76 /* Some Sun3s make magic numbers without cpu types in them, so
77 we'll default to the 68000. */
95 arch
= bfd_arch_sparc
;
101 arch
= bfd_arch_i386
;
106 arch
= bfd_arch_a29k
;
111 arch
= bfd_arch_m68k
;
116 arch
= bfd_arch_obscure
;
120 bfd_set_arch_mach(abfd
, arch
, machine
);
123 #define SET_ARCH_MACH(ABFD, EXEC) \
124 NAME(sunos,set_arch_mach)(ABFD, N_MACHTYPE (EXEC)); \
125 choose_reloc_size(ABFD);
127 /* Determine the size of a relocation entry, based on the architecture */
129 DEFUN(choose_reloc_size
,(abfd
),
132 switch (bfd_get_arch(abfd
)) {
135 obj_reloc_entry_size (abfd
) = RELOC_EXT_SIZE
;
138 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
143 /* Write an object file in SunOS format.
144 Section contents have already been written. We write the
145 file header, symbols, and relocation. */
148 DEFUN(NAME(aout
,sunos4_write_object_contents
),
152 struct external_exec exec_bytes
;
153 struct internal_exec
*execp
= exec_hdr (abfd
);
155 /* Magic number, maestro, please! */
156 switch (bfd_get_arch(abfd
)) {
158 switch (bfd_get_mach(abfd
)) {
160 N_SET_MACHTYPE(*execp
, M_68010
);
164 N_SET_MACHTYPE(*execp
, M_68020
);
169 N_SET_MACHTYPE(*execp
, M_SPARC
);
172 N_SET_MACHTYPE(*execp
, M_386
);
175 N_SET_MACHTYPE(*execp
, M_29K
);
178 N_SET_MACHTYPE(*execp
, M_UNKNOWN
);
181 choose_reloc_size(abfd
);
184 /* Some tools want this to be 0, some tools want this to be one.
185 Today, it seems that 0 is the most important setting (PR1927) */
186 N_SET_FLAGS (*execp
, 0x0);
189 /* Fri Jun 11 14:23:31 PDT 1993
191 Today's optimal setting is 1. This is a pain, since it
192 reopens 1927. This should be readdressed by creating a new
193 target for each each supported, giving perhaps sun3/m68k
194 and sun4/sparc a.out formats.
196 N_SET_FLAGS (*execp
, 1);
199 N_SET_DYNAMIC(*execp
, bfd_get_file_flags(abfd
) & DYNAMIC
);
201 /* At least for SunOS, the dynamic symbols and relocs are embedded
202 in the .text section, and we do not want to write them out with
203 the symbol table. FIXME: This may be right if there is any other
204 form of a.out shared libraries. */
205 if ((bfd_get_file_flags (abfd
) & DYNAMIC
) != 0
206 && bfd_get_outsymbols (abfd
) != (asymbol
**) NULL
)
209 asymbol
**sym_ptr_ptr
;
211 arelent
**rel_ptr_ptr
;
213 sym_ptr_ptr
= bfd_get_outsymbols (abfd
);
214 count
= bfd_get_symcount (abfd
);
215 for (i
= 0; i
< count
; i
++, sym_ptr_ptr
++)
217 if (((*sym_ptr_ptr
)->flags
& BSF_DYNAMIC
) != 0)
219 /* This assumes that all dynamic symbols follow all
220 non-dynamic symbols, which is what slurp_symbol_table
223 bfd_get_symcount (abfd
) = i
;
228 if (obj_textsec (abfd
)->reloc_count
> 0)
230 rel_ptr_ptr
= obj_textsec (abfd
)->orelocation
;
231 count
= obj_textsec (abfd
)->reloc_count
;
232 for (i
= 0; i
< count
; i
++, rel_ptr_ptr
++)
234 if (((*(*rel_ptr_ptr
)->sym_ptr_ptr
)->flags
& BSF_DYNAMIC
) != 0)
236 /* This assumes that all relocs against dynamic
237 symbols follow all relocs against other symbols,
238 which is what slurp_reloc_table does. */
240 obj_textsec (abfd
)->reloc_count
= i
;
246 if (obj_datasec (abfd
)->reloc_count
> 0)
248 rel_ptr_ptr
= obj_datasec (abfd
)->orelocation
;
249 count
= obj_datasec (abfd
)->reloc_count
;
250 for (i
= 0; i
< count
; i
++, rel_ptr_ptr
++)
252 if (((*(*rel_ptr_ptr
)->sym_ptr_ptr
)->flags
& BSF_DYNAMIC
) != 0)
255 obj_datasec (abfd
)->reloc_count
= i
;
262 WRITE_HEADERS(abfd
, execp
);
269 #define CORE_MAGIC 0x080456
270 #define CORE_NAMELEN 16
272 /* The core structure is taken from the Sun documentation.
273 Unfortunately, they don't document the FPA structure, or at least I
274 can't find it easily. Fortunately the core header contains its own
275 length. So this shouldn't cause problems, except for c_ucode, which
276 so far we don't use but is easy to find with a little arithmetic. */
278 /* But the reg structure can be gotten from the SPARC processor handbook.
279 This really should be in a GNU include file though so that gdb can use
303 /* Taken from Sun documentation: */
305 /* FIXME: It's worse than we expect. This struct contains TWO substructs
306 neither of whose size we know, WITH STUFF IN BETWEEN THEM! We can't
307 even portably access the stuff in between! */
309 struct external_sparc_core
{
310 int c_magic
; /* Corefile magic number */
311 int c_len
; /* Sizeof (struct core) */
312 #define SPARC_CORE_LEN 432
313 int c_regs
[19]; /* General purpose registers -- MACHDEP SIZE */
314 struct external_exec c_aouthdr
; /* A.out header */
315 int c_signo
; /* Killing signal, if any */
316 int c_tsize
; /* Text size (bytes) */
317 int c_dsize
; /* Data size (bytes) */
318 int c_ssize
; /* Stack size (bytes) */
319 char c_cmdname
[CORE_NAMELEN
+ 1]; /* Command name */
320 double fp_stuff
[1]; /* external FPU state (size unknown by us) */
321 /* The type "double" is critical here, for alignment.
322 SunOS declares a struct here, but the struct's alignment
323 is double since it contains doubles. */
324 int c_ucode
; /* Exception no. from u_code */
325 /* (this member is not accessible by name since we don't
326 portably know the size of fp_stuff.) */
329 struct external_sun3_core
{
330 int c_magic
; /* Corefile magic number */
331 int c_len
; /* Sizeof (struct core) */
332 #define SUN3_CORE_LEN 826 /* As of SunOS 4.1.1 */
333 int c_regs
[18]; /* General purpose registers -- MACHDEP SIZE */
334 struct external_exec c_aouthdr
; /* A.out header */
335 int c_signo
; /* Killing signal, if any */
336 int c_tsize
; /* Text size (bytes) */
337 int c_dsize
; /* Data size (bytes) */
338 int c_ssize
; /* Stack size (bytes) */
339 char c_cmdname
[CORE_NAMELEN
+ 1]; /* Command name */
340 double fp_stuff
[1]; /* external FPU state (size unknown by us) */
341 /* The type "double" is critical here, for alignment.
342 SunOS declares a struct here, but the struct's alignment
343 is double since it contains doubles. */
344 int c_ucode
; /* Exception no. from u_code */
345 /* (this member is not accessible by name since we don't
346 portably know the size of fp_stuff.) */
349 struct internal_sunos_core
{
350 int c_magic
; /* Corefile magic number */
351 int c_len
; /* Sizeof (struct core) */
352 long c_regs_pos
; /* file offset of General purpose registers */
353 int c_regs_size
; /* size of General purpose registers */
354 struct internal_exec c_aouthdr
; /* A.out header */
355 int c_signo
; /* Killing signal, if any */
356 int c_tsize
; /* Text size (bytes) */
357 int c_dsize
; /* Data size (bytes) */
358 int c_ssize
; /* Stack size (bytes) */
359 bfd_vma c_stacktop
; /* Stack top (address) */
360 char c_cmdname
[CORE_NAMELEN
+ 1]; /* Command name */
361 long fp_stuff_pos
; /* file offset of external FPU state (regs) */
362 int fp_stuff_size
; /* Size of it */
363 int c_ucode
; /* Exception no. from u_code */
366 /* byte-swap in the Sun-3 core structure */
368 DEFUN(swapcore_sun3
,(abfd
, ext
, intcore
),
371 struct internal_sunos_core
*intcore
)
373 struct external_sun3_core
*extcore
= (struct external_sun3_core
*)ext
;
375 intcore
->c_magic
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_magic
);
376 intcore
->c_len
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_len
);
377 intcore
->c_regs_pos
= (long) (((struct external_sun3_core
*)0)->c_regs
);
378 intcore
->c_regs_size
= sizeof (extcore
->c_regs
);
379 NAME(aout
,swap_exec_header_in
)(abfd
, &extcore
->c_aouthdr
,&intcore
->c_aouthdr
);
380 intcore
->c_signo
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_signo
);
381 intcore
->c_tsize
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_tsize
);
382 intcore
->c_dsize
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_dsize
);
383 intcore
->c_ssize
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_ssize
);
384 memcpy (intcore
->c_cmdname
, extcore
->c_cmdname
, sizeof (intcore
->c_cmdname
));
385 intcore
->fp_stuff_pos
= (long) (((struct external_sun3_core
*)0)->fp_stuff
);
386 /* FP stuff takes up whole rest of struct, except c_ucode. */
387 intcore
->fp_stuff_size
= intcore
->c_len
- (sizeof extcore
->c_ucode
) -
388 (file_ptr
)(((struct external_sun3_core
*)0)->fp_stuff
);
389 /* Ucode is the last thing in the struct -- just before the end */
392 intcore
->c_len
- sizeof (extcore
->c_ucode
) + (unsigned char *)extcore
);
393 intcore
->c_stacktop
= 0x0E000000; /* By experimentation */
397 /* byte-swap in the Sparc core structure */
399 DEFUN(swapcore_sparc
,(abfd
, ext
, intcore
),
402 struct internal_sunos_core
*intcore
)
404 struct external_sparc_core
*extcore
= (struct external_sparc_core
*)ext
;
406 intcore
->c_magic
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_magic
);
407 intcore
->c_len
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_len
);
408 intcore
->c_regs_pos
= (long) (((struct external_sparc_core
*)0)->c_regs
);
409 intcore
->c_regs_size
= sizeof (extcore
->c_regs
);
410 NAME(aout
,swap_exec_header_in
)(abfd
, &extcore
->c_aouthdr
,&intcore
->c_aouthdr
);
411 intcore
->c_signo
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_signo
);
412 intcore
->c_tsize
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_tsize
);
413 intcore
->c_dsize
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_dsize
);
414 intcore
->c_ssize
= bfd_h_get_32 (abfd
, (unsigned char *)&extcore
->c_ssize
);
415 memcpy (intcore
->c_cmdname
, extcore
->c_cmdname
, sizeof (intcore
->c_cmdname
));
416 intcore
->fp_stuff_pos
= (long) (((struct external_sparc_core
*)0)->fp_stuff
);
417 /* FP stuff takes up whole rest of struct, except c_ucode. */
418 intcore
->fp_stuff_size
= intcore
->c_len
- (sizeof extcore
->c_ucode
) -
419 (file_ptr
)(((struct external_sparc_core
*)0)->fp_stuff
);
420 /* Ucode is the last thing in the struct -- just before the end */
423 intcore
->c_len
- sizeof (extcore
->c_ucode
) + (unsigned char *)extcore
);
425 /* Supposedly the user stack grows downward from the bottom of kernel memory.
426 Presuming that this remains true, this definition will work. */
427 /* Now sun has provided us with another challenge. The value is different
428 for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or
429 the other based on the current value of the stack pointer. This
430 loses (a) if the stack pointer has been clobbered, or (b) if the stack
431 is larger than 128 megabytes.
433 It's times like these you're glad they're switching to ELF.
435 Note that using include files or nlist on /vmunix would be wrong,
436 because we want the value for this core file, no matter what kind of
437 machine we were compiled on or are running on. */
438 #define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000)
439 #define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000)
441 bfd_vma sp
= bfd_h_get_32
442 (abfd
, (unsigned char *)&((struct regs
*)&extcore
->c_regs
[0])->r_o6
);
443 if (sp
< SPARC_USRSTACK_SPARC10
)
444 intcore
->c_stacktop
= SPARC_USRSTACK_SPARC10
;
446 intcore
->c_stacktop
= SPARC_USRSTACK_SPARC2
;
450 /* need this cast because ptr is really void * */
451 #define core_hdr(bfd) ((bfd)->tdata.sun_core_data)
452 #define core_datasec(bfd) (core_hdr(bfd)->data_section)
453 #define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
454 #define core_regsec(bfd) (core_hdr(bfd)->reg_section)
455 #define core_reg2sec(bfd) (core_hdr(bfd)->reg2_section)
457 /* These are stored in the bfd's tdata */
458 struct sun_core_struct
{
459 struct internal_sunos_core
*hdr
; /* core file header */
460 asection
*data_section
;
461 asection
*stack_section
;
462 asection
*reg_section
;
463 asection
*reg2_section
;
467 DEFUN(sunos4_core_file_p
,(abfd
),
470 unsigned char longbuf
[4]; /* Raw bytes of various header fields */
473 struct internal_sunos_core
*core
;
476 struct sun_core_struct suncoredata
;
477 struct internal_sunos_core internal_sunos_core
;
478 char external_core
[1];
481 if (bfd_read ((PTR
)longbuf
, 1, sizeof (longbuf
), abfd
) !=
484 core_mag
= bfd_h_get_32 (abfd
, longbuf
);
486 if (core_mag
!= CORE_MAGIC
) return 0;
488 /* SunOS core headers can vary in length; second word is size; */
489 if (bfd_read ((PTR
)longbuf
, 1, sizeof (longbuf
), abfd
) !=
492 core_size
= bfd_h_get_32 (abfd
, longbuf
);
494 if (core_size
> 20000)
497 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) < 0) return 0;
499 mergem
= (struct mergem
*)bfd_zalloc (abfd
, core_size
+ sizeof (struct mergem
));
500 if (mergem
== NULL
) {
501 bfd_error
= no_memory
;
505 extcore
= mergem
->external_core
;
507 if ((bfd_read ((PTR
) extcore
, 1, core_size
, abfd
)) != core_size
) {
508 bfd_error
= system_call_error
;
509 bfd_release (abfd
, (char *)mergem
);
513 /* Validate that it's a core file we know how to handle, due to sun
514 botching the positioning of registers and other fields in a machine
516 core
= &mergem
->internal_sunos_core
;
519 swapcore_sparc (abfd
, extcore
, core
);
522 swapcore_sun3 (abfd
, extcore
, core
);
525 bfd_error
= system_call_error
; /* FIXME */
526 bfd_release (abfd
, (char *)mergem
);
530 abfd
->tdata
.sun_core_data
= &mergem
->suncoredata
;
531 abfd
->tdata
.sun_core_data
->hdr
= core
;
533 /* create the sections. This is raunchy, but bfd_close wants to reclaim
535 core_stacksec (abfd
) = (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
536 if (core_stacksec (abfd
) == NULL
) {
538 bfd_error
= no_memory
;
539 bfd_release (abfd
, (char *)mergem
);
542 core_datasec (abfd
) = (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
543 if (core_datasec (abfd
) == NULL
) {
545 bfd_release (abfd
, core_stacksec (abfd
));
548 core_regsec (abfd
) = (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
549 if (core_regsec (abfd
) == NULL
) {
551 bfd_release (abfd
, core_datasec (abfd
));
554 core_reg2sec (abfd
) = (asection
*) bfd_zalloc (abfd
, sizeof (asection
));
555 if (core_reg2sec (abfd
) == NULL
) {
556 bfd_release (abfd
, core_regsec (abfd
));
560 core_stacksec (abfd
)->name
= ".stack";
561 core_datasec (abfd
)->name
= ".data";
562 core_regsec (abfd
)->name
= ".reg";
563 core_reg2sec (abfd
)->name
= ".reg2";
565 core_stacksec (abfd
)->flags
= SEC_ALLOC
+ SEC_LOAD
+ SEC_HAS_CONTENTS
;
566 core_datasec (abfd
)->flags
= SEC_ALLOC
+ SEC_LOAD
+ SEC_HAS_CONTENTS
;
567 core_regsec (abfd
)->flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
568 core_reg2sec (abfd
)->flags
= SEC_ALLOC
+ SEC_HAS_CONTENTS
;
570 core_stacksec (abfd
)->_raw_size
= core
->c_ssize
;
571 core_datasec (abfd
)->_raw_size
= core
->c_dsize
;
572 core_regsec (abfd
)->_raw_size
= core
->c_regs_size
;
573 core_reg2sec (abfd
)->_raw_size
= core
->fp_stuff_size
;
575 core_stacksec (abfd
)->vma
= (core
->c_stacktop
- core
->c_ssize
);
576 core_datasec (abfd
)->vma
= N_DATADDR(core
->c_aouthdr
);
577 core_regsec (abfd
)->vma
= 0;
578 core_reg2sec (abfd
)->vma
= 0;
580 core_stacksec (abfd
)->filepos
= core
->c_len
+ core
->c_dsize
;
581 core_datasec (abfd
)->filepos
= core
->c_len
;
582 /* We'll access the regs afresh in the core file, like any section: */
583 core_regsec (abfd
)->filepos
= (file_ptr
)core
->c_regs_pos
;
584 core_reg2sec (abfd
)->filepos
= (file_ptr
)core
->fp_stuff_pos
;
586 /* Align to word at least */
587 core_stacksec (abfd
)->alignment_power
= 2;
588 core_datasec (abfd
)->alignment_power
= 2;
589 core_regsec (abfd
)->alignment_power
= 2;
590 core_reg2sec (abfd
)->alignment_power
= 2;
592 abfd
->sections
= core_stacksec (abfd
);
593 core_stacksec (abfd
)->next
= core_datasec (abfd
);
594 core_datasec (abfd
)->next
= core_regsec (abfd
);
595 core_regsec (abfd
)->next
= core_reg2sec (abfd
);
597 abfd
->section_count
= 4;
602 static char *sunos4_core_file_failing_command (abfd
)
605 return core_hdr (abfd
)->hdr
->c_cmdname
;
609 DEFUN(sunos4_core_file_failing_signal
,(abfd
),
612 return core_hdr (abfd
)->hdr
->c_signo
;
616 DEFUN(sunos4_core_file_matches_executable_p
, (core_bfd
, exec_bfd
),
620 if (core_bfd
->xvec
!= exec_bfd
->xvec
) {
621 bfd_error
= system_call_error
;
625 return (memcmp ((char *)&((core_hdr (core_bfd
)->hdr
)->c_aouthdr
),
626 (char *) exec_hdr (exec_bfd
),
627 sizeof (struct internal_exec
)) == 0) ? true : false;
630 #define MY_set_sizes sunos4_set_sizes
632 DEFUN (sunos4_set_sizes
, (abfd
),
635 switch (bfd_get_arch (abfd
))
640 adata(abfd
).page_size
= 0x2000;
641 adata(abfd
).segment_size
= 0x2000;
642 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
645 adata(abfd
).page_size
= 0x2000;
646 adata(abfd
).segment_size
= 0x20000;
647 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
652 #ifndef MY_read_dynamic_symbols
653 #define MY_read_dynamic_symbols 0
655 #ifndef MY_read_dynamic_relocs
656 #define MY_read_dynamic_relocs 0
659 static CONST
struct aout_backend_data sunos4_aout_backend
= {
660 0, /* zmagic files are not contiguous */
661 1, /* text includes header */
662 0, /* default text vma */
664 0, /* header is counted in zmagic text */
665 MY_read_dynamic_symbols
,
666 MY_read_dynamic_relocs
669 #define MY_core_file_failing_command sunos4_core_file_failing_command
670 #define MY_core_file_failing_signal sunos4_core_file_failing_signal
671 #define MY_core_file_matches_executable_p sunos4_core_file_matches_executable_p
673 #define MY_bfd_debug_info_start bfd_void
674 #define MY_bfd_debug_info_end bfd_void
675 #define MY_bfd_debug_info_accumulate \
676 (void (*) PARAMS ((bfd *, struct sec *))) bfd_void
677 #define MY_core_file_p sunos4_core_file_p
678 #define MY_write_object_contents NAME(aout,sunos4_write_object_contents)
679 #define MY_backend_data &sunos4_aout_backend
681 #define TARGET_IS_BIG_ENDIAN_P
683 #include "aout-target.h"