[deliverable/binutils-gdb.git] / bfd / newsos3.c

/*** bfd backend for NewsOS3 (Sony, 68k) binaries */

/* Copyright (C) 1990, 1991 Free Software Foundation, Inc.

This file is part of BFD, the Binary File Diddler.

BFD is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.

BFD is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with BFD; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */

#define TARGET_BYTE_ORDER_BIG_P 1

#define	PAGE_SIZE	4096
#define	SEGMENT_SIZE	PAGE_SIZE
#define TEXT_START_ADDR 0
#define ARCH 32
#define BYTES_IN_WORD 4

#include <ansidecl.h>
#include <sysdep.h>
#include "bfd.h"
#include "libbfd.h"
#include "aout64.h"
#include "stab.gnu.h"
#include "ar.h"
#include "liba.out.h"           /* BFD a.out internal data structures */

int vfprintf(file, format, args) /* Temporary crock! */
     FILE *file; char *format; char *args;
{
    return _doprnt (format, args, file);
}


bfd_target *newsos3_callback ();

bfd_target *
DEFUN(newsos3_object_p,(abfd),
     bfd *abfd)
{
  unsigned char magicbuf[LONG_SIZE]; /* Raw bytes of magic number from file */
  unsigned long magic;		/* Swapped magic number */

  bfd_error = system_call_error;

  if (bfd_read ((PTR)magicbuf, 1, sizeof (magicbuf), abfd) !=
      sizeof (magicbuf))
    return 0;
  magic = bfd_h_get_32 (abfd, magicbuf);

  if (N_BADMAG (*((struct internal_exec *) &magic))) return 0;

  return aout_32_some_aout_object_p (abfd, newsos3_callback);
}

/* Finish up the reading of a NEWS-OS a.out file header */
bfd_target *
DEFUN(newsos3_callback,(abfd),
      bfd *abfd)
{
  struct internal_exec *execp = exec_hdr (abfd);
  
  WORK_OUT_FILE_POSITIONS(abfd, execp) ;
  
  /* Determine the architecture and machine type of the object file.  */
  abfd->obj_arch = bfd_arch_m68k;
  abfd->obj_machine = 0;

  return abfd->xvec;
}

/* Write an object file in NEWS-OS format.
   Section contents have already been written.  We write the
   file header, symbols, and relocation.  */

boolean
DEFUN(newsos3_write_object_contents,(abfd),
      bfd *abfd)
{
  bfd_size_type data_pad = 0;
  struct external_exec exec_bytes;
  struct internal_exec *execp = exec_hdr (abfd);

  WRITE_HEADERS(abfd, execp);
  return true;
}
\f
/* Transfer vectors for NEWS-OS version 3 */

/* We use BFD generic archive files.  */
#define	aout_32_openr_next_archived_file	bfd_generic_openr_next_archived_file
#define	aout_32_generic_stat_arch_elt	bfd_generic_stat_arch_elt
#define	aout_32_slurp_armap		bfd_slurp_bsd_armap
#define	aout_32_slurp_extended_name_table	bfd_true
#define	aout_32_write_armap		bsd_write_armap
#define	aout_32_truncate_arname		bfd_bsd_truncate_arname

/* We don't support core files yet.  FIXME.  */
#define	aout_32_core_file_failing_command	_bfd_dummy_core_file_failing_command
#define	aout_32_core_file_failing_signal	_bfd_dummy_core_file_failing_signal
#define	aout_32_core_file_matches_executable_p	\
				_bfd_dummy_core_file_matches_executable_p
#define	aout_32_core_file_p		_bfd_dummy_target

/* We define our own versions of these routines.  */


bfd_target newsos3_vec = /* Sony 68k-based machines running newos3 */
{
  "a.out-newos3",		/* name */
  bfd_target_aout_flavour_enum,
  true,				/* target byte order */
  true,				/* target headers byte order */
  (HAS_RELOC | EXEC_P |		/* object flags */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
  ' ',				/* ar_pad_char */
  16,				/* ar_max_namelen */

  _do_getb64, _do_putb64,	_do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */
  _do_getb64, _do_putb64,	_do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */

    {_bfd_dummy_target, newsos3_object_p, /* bfd_check_format */
       bfd_generic_archive_p, aout_32_core_file_p},
    {bfd_false, aout_32_mkobject,	/* bfd_set_format */
       _bfd_generic_mkarchive, bfd_false},
    {bfd_false, newsos3_write_object_contents, /* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

  JUMP_TABLE(aout_32)
  };
Commit	Line	Data
a42ceb32 JG	1	/*** bfd backend for NewsOS3 (Sony, 68k) binaries */
	2
	3	/* Copyright (C) 1990, 1991 Free Software Foundation, Inc.
	4
	5	This file is part of BFD, the Binary File Diddler.
	6
	7	BFD 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 1, or (at your option)
	10	any later version.
	11
	12	BFD 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.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with BFD; see the file COPYING. If not, write to
	19	the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
	20
	21	#define TARGET_BYTE_ORDER_BIG_P 1
	22
7ed4093a SC	23	#define PAGE_SIZE 4096
	24	#define SEGMENT_SIZE PAGE_SIZE
	25	#define TEXT_START_ADDR 0
	26	#define ARCH 32
	27	#define BYTES_IN_WORD 4
	28
a42ceb32	29	#include <ansidecl.h>
7ed4093a	30	#include <sysdep.h>
a42ceb32 JG	31	#include "bfd.h"
a42ceb32 JG	32	#include "libbfd.h"
7ed4093a SC	33	#include "aout64.h"
	34	#include "stab.gnu.h"
	35	#include "ar.h"
	36	#include "liba.out.h" /* BFD a.out internal data structures */
a42ceb32 JG	37
	38	int vfprintf(file, format, args) /* Temporary crock! */
	39	FILE file; char format; char *args;
	40	{
	41	return _doprnt (format, args, file);
	42	}
	43
a42ceb32	44
a42ceb32 JG	45
	46	bfd_target *newsos3_callback ();
	47
	48	bfd_target *
7ed4093a SC	49	DEFUN(newsos3_object_p,(abfd),
7ed4093a SC	50	bfd *abfd)
a42ceb32 JG	51	{
	52	unsigned char magicbuf[LONG_SIZE]; /* Raw bytes of magic number from file */
	53	unsigned long magic; /* Swapped magic number */
	54
	55	bfd_error = system_call_error;
	56
	57	if (bfd_read ((PTR)magicbuf, 1, sizeof (magicbuf), abfd) !=
	58	sizeof (magicbuf))
	59	return 0;
7ed4093a	60	magic = bfd_h_get_32 (abfd, magicbuf);
a42ceb32	61
7ed4093a	62	if (N_BADMAG (((struct internal_exec ) &magic))) return 0;
a42ceb32	63
7ed4093a	64	return aout_32_some_aout_object_p (abfd, newsos3_callback);
a42ceb32 JG	65	}
	66
	67	/* Finish up the reading of a NEWS-OS a.out file header */
	68	bfd_target *
7ed4093a SC	69	DEFUN(newsos3_callback,(abfd),
7ed4093a SC	70	bfd *abfd)
a42ceb32	71	{
7ed4093a SC	72	struct internal_exec *execp = exec_hdr (abfd);
	73
	74	WORK_OUT_FILE_POSITIONS(abfd, execp) ;
	75
a42ceb32 JG	76	/* Determine the architecture and machine type of the object file. */
	77	abfd->obj_arch = bfd_arch_m68k;
	78	abfd->obj_machine = 0;
	79
	80	return abfd->xvec;
	81	}
	82
	83	/* Write an object file in NEWS-OS format.
	84	Section contents have already been written. We write the
	85	file header, symbols, and relocation. */
	86
	87	boolean
7ed4093a SC	88	DEFUN(newsos3_write_object_contents,(abfd),
7ed4093a SC	89	bfd *abfd)
a42ceb32	90	{
7ed4093a SC	91	bfd_size_type data_pad = 0;
	92	struct external_exec exec_bytes;
	93	struct internal_exec *execp = exec_hdr (abfd);
	94
	95	WRITE_HEADERS(abfd, execp);
a42ceb32 JG	96	return true;
	97	}
	98	\f
	99	/* Transfer vectors for NEWS-OS version 3 */
	100
	101	/* We use BFD generic archive files. */
7ed4093a SC	102	#define aout_32_openr_next_archived_file bfd_generic_openr_next_archived_file
	103	#define aout_32_generic_stat_arch_elt bfd_generic_stat_arch_elt
	104	#define aout_32_slurp_armap bfd_slurp_bsd_armap
	105	#define aout_32_slurp_extended_name_table bfd_true
	106	#define aout_32_write_armap bsd_write_armap
	107	#define aout_32_truncate_arname bfd_bsd_truncate_arname
a42ceb32 JG	108
a42ceb32 JG	109	/* We don't support core files yet. FIXME. */
7ed4093a SC	110	#define aout_32_core_file_failing_command _bfd_dummy_core_file_failing_command
	111	#define aout_32_core_file_failing_signal _bfd_dummy_core_file_failing_signal
	112	#define aout_32_core_file_matches_executable_p \
a42ceb32	113	_bfd_dummy_core_file_matches_executable_p
7ed4093a	114	#define aout_32_core_file_p _bfd_dummy_target
a42ceb32 JG	115
	116	/* We define our own versions of these routines. */
	117
	118
	119	bfd_target newsos3_vec = /* Sony 68k-based machines running newos3 */
	120	{
	121	"a.out-newos3", /* name */
	122	bfd_target_aout_flavour_enum,
	123	true, /* target byte order */
	124	true, /* target headers byte order */
	125	(HAS_RELOC \| EXEC_P \| /* object flags */
	126	HAS_LINENO \| HAS_DEBUG \|
	127	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
	128	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
	129	' ', /* ar_pad_char */
	130	16, /* ar_max_namelen */
	131
7ed4093a SC	132	_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */
7ed4093a SC	133	_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */
a42ceb32	134
7ed4093a SC	135	{_bfd_dummy_target, newsos3_object_p, /* bfd_check_format */
	136	bfd_generic_archive_p, aout_32_core_file_p},
	137	{bfd_false, aout_32_mkobject, /* bfd_set_format */
	138	_bfd_generic_mkarchive, bfd_false},
	139	{bfd_false, newsos3_write_object_contents, /* bfd_write_contents */
	140	_bfd_write_archive_contents, bfd_false},
a42ceb32	141
7ed4093a SC	142	JUMP_TABLE(aout_32)
7ed4093a SC	143	};