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

/* BFD back-end for NetBSD/532 a.out-ish binaries.
   Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.

This file is part of BFD, the Binary File Descriptor library.

This program 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 2 of the License, or
(at your option) any later version.

This program 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 this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
/*
 * Created by Ian Dall
 *            5-Jun-94
 *
 * Largely a copy of netbsd386.c plus some code from aout-pc532-mach.c
 */

#define	BYTES_IN_WORD	4
#define	ARCH	32

/* ZMAGIC files never include the header in the text.  */
#define	N_HEADER_IN_TEXT(x)	1

#define	PAGE_SIZE	0x1000

/* ZMAGIC files start at address 0.  This does not apply to QMAGIC.  */
#define TEXT_START_ADDR PAGE_SIZE
#define N_SHARED_LIB(x) 0

/* Use a_entry of 0 to distinguish object files from OMAGIC executables */
#define N_TXTADDR(x) \
    ((N_MAGIC(x) == OMAGIC) && \
      ((x).a_entry < TEXT_START_ADDR) ? 0 :	/* object file or NMAGIC */\
     N_SHARED_LIB(x) ? 0 :	\
     N_HEADER_IN_TEXT(x)  ?	\
	    TEXT_START_ADDR + EXEC_BYTES_SIZE :	/* no padding */\
	    TEXT_START_ADDR			/* a page of padding */\
    )

#define	SEGMENT_SIZE	PAGE_SIZE

#define	DEFAULT_ARCH	bfd_arch_ns32k

#define MY(OP) CAT(netbsd532_,OP)
/* This needs to start with a.out so GDB knows it is an a.out variant.  */
#define TARGETNAME "a.out-netbsd-532"
#define MACHTYPE_OK(mtype) ((mtype) == M_532_NETBSD)

#define N_MAGIC(ex) \
    ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info))&0xffff) : ((ex).a_info))
#define N_MACHTYPE(ex) \
    ( (((ex).a_info)&0xffff0000) ? (((((ex).a_info))>>16)&0x03ff) : 0 )
#define N_FLAGS(ex) \
    ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info)>>26)&0x3f) : 0 )
#define N_SET_INFO(ex, mag,mid,flag) \
    ( (ex).a_info = htonl( (((flag)&0x3f)<<26) | (((mid)&0x03ff)<<16) | \
    (((mag)&0xffff)) ) )
#define N_SET_MAGIC(exec,magic) \
  ((exec).a_info = (((exec).a_info & ~0xffff) | ((magic) & 0xffff)))
#define N_SET_MACHTYPE(exec,machtype) \
  ((exec).a_info = \
   (((exec).a_info & ~(0x3ff<<16)) | (((machtype)&0xff) << 16)))
#define N_SET_FLAGS(exec, flags) \
  ((exec).a_info = \
      (((exec).a_info & ~(0x3f<<26)) | (((flags)&0x3f) << 26)))

#define N_MAG(MAG) ((MAG) == o_magic? OMAGIC: ((MAG) == z_magic? ZMAGIC: ((MAG) == n_magic? NMAGIC: 0)))

#define WRITE_HEADERS(abfd, execp)					      \
      {									      \
	bfd_size_type text_size; /* dummy vars */			      \
        int mag;							      \
	file_ptr text_end;						      \
	if (adata(abfd).magic == undecided_magic)			      \
	  NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end);     \
        mag = adata(abfd).magic; 					      \
	N_SET_INFO(*execp, N_MAG(mag), M_532_NETBSD, aout_backend_info (abfd)->exec_hdr_flags);			      \
    									      \
	execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;	      \
	execp->a_entry = bfd_get_start_address (abfd);			      \
    									      \
	execp->a_trsize = ((obj_textsec (abfd)->reloc_count) *		      \
			   obj_reloc_entry_size (abfd));		      \
	execp->a_drsize = ((obj_datasec (abfd)->reloc_count) *		      \
			   obj_reloc_entry_size (abfd));		      \
	NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes);	      \
									      \
	if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false;	      \
	if (bfd_write ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd)	      \
	    != EXEC_BYTES_SIZE)						      \
	  return false;							      \
	/* Now write out reloc info, followed by syms and strings */	      \
  									      \
	if (bfd_get_outsymbols (abfd) != (asymbol **) NULL		      \
	    && bfd_get_symcount (abfd) != 0) 				      \
	    {								      \
	      if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*execp)), SEEK_SET)     \
		  != 0)							      \
	        return false;						      \
									      \
	      if (! NAME(aout,write_syms)(abfd)) return false;		      \
									      \
	      if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*execp)), SEEK_SET)    \
		  != 0)							      \
	        return false;						      \
									      \
	      if (!NAME(aout,squirt_out_relocs) (abfd, obj_textsec (abfd)))   \
		return false;						      \
	      if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*execp)), SEEK_SET)    \
		  != 0)							      \
	        return false;						      \
									      \
	      if (!NAME(aout,squirt_out_relocs)(abfd, obj_datasec (abfd)))    \
		return false;						      \
	    }								      \
      }									      


#include "bfd.h"
#include "sysdep.h"
#include "aout-ns32k.h"
#include "libbfd.h"
#include "libaout.h"


/* On NetBSD, the magic number is always in ntohl's "network" (big-endian)
   format.  */
#define SWAP_MAGIC(ext) bfd_getb32 (ext)

#include "aout/aout64.h"

/* Forward declaration. Defined in aout-target.h */
static boolean MY(set_sizes)();

static CONST struct aout_backend_data MY(backend_data) = {
  0,				/* zmagic contiguous */
  1,				/* text incl header */
  0,
  0,				/* text vma? */
  MY(set_sizes),
  0,				/* exec header is counted */
};

#define MY_backend_data &MY(backend_data)


/* We can`t use the MYNS macro here for cpp reasons too subtle
 * for me -- IWD
 */
#define MY_bfd_reloc_type_lookup ns32kaout_bfd_reloc_type_lookup

/* libaout doesn't use NAME for these ... */
#define MY_get_section_contents aout_32_get_section_contents

static boolean
MY(write_object_contents) (abfd)
     bfd *abfd;
{
  struct external_exec exec_bytes;
  struct internal_exec *execp = exec_hdr (abfd);

#if CHOOSE_RELOC_SIZE
  CHOOSE_RELOC_SIZE(abfd);
#else
  obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
#endif

  BFD_ASSERT(bfd_get_arch(abfd) == bfd_arch_ns32k);
  BFD_ASSERT(bfd_get_mach(abfd) == 32532);
  N_SET_MACHTYPE (*execp, M_532_NETBSD);

  N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);

  WRITE_HEADERS(abfd, execp);

  return true;
}

#define MY_write_object_contents MY(write_object_contents)

#include "aout-target.h"
Commit	Line	Data
1fb83be6 KR	1	/* BFD back-end for NetBSD/532 a.out-ish binaries.
	2	Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
	3
	4	This file is part of BFD, the Binary File Descriptor library.
	5
	6	This program is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 2 of the License, or
	9	(at your option) any later version.
	10
	11	This program is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with this program; if not, write to the Free Software
	18	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
	19	/*
	20	* Created by Ian Dall
	21	* 5-Jun-94
	22	*
	23	* Largely a copy of netbsd386.c plus some code from aout-pc532-mach.c
	24	*/
	25
	26	#define BYTES_IN_WORD 4
	27	#define ARCH 32
	28
	29	/* ZMAGIC files never include the header in the text. */
	30	#define N_HEADER_IN_TEXT(x) 1
	31
	32	#define PAGE_SIZE 0x1000
	33
	34	/* ZMAGIC files start at address 0. This does not apply to QMAGIC. */
	35	#define TEXT_START_ADDR PAGE_SIZE
	36	#define N_SHARED_LIB(x) 0
	37
	38	/* Use a_entry of 0 to distinguish object files from OMAGIC executables */
	39	#define N_TXTADDR(x) \
	40	((N_MAGIC(x) == OMAGIC) && \
	41	((x).a_entry < TEXT_START_ADDR) ? 0 : /* object file or NMAGIC */\
	42	N_SHARED_LIB(x) ? 0 : \
	43	N_HEADER_IN_TEXT(x) ? \
	44	TEXT_START_ADDR + EXEC_BYTES_SIZE : /* no padding */\
	45	TEXT_START_ADDR /* a page of padding */\
	46	)
	47
	48	#define SEGMENT_SIZE PAGE_SIZE
	49
	50	#define DEFAULT_ARCH bfd_arch_ns32k
	51
	52	#define MY(OP) CAT(netbsd532_,OP)
	53	/* This needs to start with a.out so GDB knows it is an a.out variant. */
	54	#define TARGETNAME "a.out-netbsd-532"
	55	#define MACHTYPE_OK(mtype) ((mtype) == M_532_NETBSD)
	56
	57	#define N_MAGIC(ex) \
	58	( (((ex).a_info)&0xffff0000) ? ((((ex).a_info))&0xffff) : ((ex).a_info))
	59	#define N_MACHTYPE(ex) \
	60	( (((ex).a_info)&0xffff0000) ? (((((ex).a_info))>>16)&0x03ff) : 0 )
	61	#define N_FLAGS(ex) \
	62	( (((ex).a_info)&0xffff0000) ? ((((ex).a_info)>>26)&0x3f) : 0 )
	63	#define N_SET_INFO(ex, mag,mid,flag) \
	64	( (ex).a_info = htonl( (((flag)&0x3f)<<26) \| (((mid)&0x03ff)<<16) \| \
65	(((mag)&0xffff)) ) )
66	#define N_SET_MAGIC(exec,magic) \
67	((exec).a_info = (((exec).a_info & ~0xffff) \| ((magic) & 0xffff)))
68	#define N_SET_MACHTYPE(exec,machtype) \
69	((exec).a_info = \
70	(((exec).a_info & ~(0x3ff<<16)) \| (((machtype)&0xff) << 16)))
71	#define N_SET_FLAGS(exec, flags) \
72	((exec).a_info = \
73	(((exec).a_info & ~(0x3f<<26)) \| (((flags)&0x3f) << 26)))
74
75	#define N_MAG(MAG) ((MAG) == o_magic? OMAGIC: ((MAG) == z_magic? ZMAGIC: ((MAG) == n_magic? NMAGIC: 0)))
76
77	#define WRITE_HEADERS(abfd, execp) \
78	{ \
79	bfd_size_type text_size; /* dummy vars */ \
80	int mag; \
81	file_ptr text_end; \
82	if (adata(abfd).magic == undecided_magic) \
83	NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end); \
84	mag = adata(abfd).magic; \
85	N_SET_INFO(*execp, N_MAG(mag), M_532_NETBSD, aout_backend_info (abfd)->exec_hdr_flags); \
86	\
87	execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE; \
88	execp->a_entry = bfd_get_start_address (abfd); \
89	\
90	execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * \
91	obj_reloc_entry_size (abfd)); \
92	execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * \
93	obj_reloc_entry_size (abfd)); \
94	NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes); \
95	\
96	if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; \
97	if (bfd_write ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) \
98	!= EXEC_BYTES_SIZE) \
99	return false; \
100	/* Now write out reloc info, followed by syms and strings */ \
101	\
102	if (bfd_get_outsymbols (abfd) != (asymbol **) NULL \
103	&& bfd_get_symcount (abfd) != 0) \
104	{ \
105	if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*execp)), SEEK_SET) \
106	!= 0) \
107	return false; \
108	\
109	if (! NAME(aout,write_syms)(abfd)) return false; \
110	\
111	if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*execp)), SEEK_SET) \
112	!= 0) \
113	return false; \
114	\
115	if (!NAME(aout,squirt_out_relocs) (abfd, obj_textsec (abfd))) \
116	return false; \
117	if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*execp)), SEEK_SET) \
118	!= 0) \
119	return false; \
120	\
121	if (!NAME(aout,squirt_out_relocs)(abfd, obj_datasec (abfd))) \
122	return false; \
123	} \
124	}
125
126
127	#include "bfd.h"
128	#include "sysdep.h"
129	#include "aout-ns32k.h"
130	#include "libbfd.h"
131	#include "libaout.h"
132
133
134	/* On NetBSD, the magic number is always in ntohl's "network" (big-endian)
135	format. */
136	#define SWAP_MAGIC(ext) bfd_getb32 (ext)
137
138	#include "aout/aout64.h"
139
140	/* Forward declaration. Defined in aout-target.h */
141	static boolean MY(set_sizes)();
142
143	static CONST struct aout_backend_data MY(backend_data) = {
144	0, /* zmagic contiguous */
145	1, /* text incl header */
146	0,
147	0, /* text vma? */
148	MY(set_sizes),
149	0, /* exec header is counted */
150	};
151
152	#define MY_backend_data &MY(backend_data)
153
154
155	/* We can`t use the MYNS macro here for cpp reasons too subtle
156	* for me -- IWD
157	*/
158	#define MY_bfd_reloc_type_lookup ns32kaout_bfd_reloc_type_lookup
159
160	/* libaout doesn't use NAME for these ... */
161	#define MY_get_section_contents aout_32_get_section_contents
162
163	static boolean
164	MY(write_object_contents) (abfd)
165	bfd *abfd;
166	{
167	struct external_exec exec_bytes;
168	struct internal_exec *execp = exec_hdr (abfd);
169
170	#if CHOOSE_RELOC_SIZE
171	CHOOSE_RELOC_SIZE(abfd);
172	#else
173	obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
174	#endif
175
176	BFD_ASSERT(bfd_get_arch(abfd) == bfd_arch_ns32k);
177	BFD_ASSERT(bfd_get_mach(abfd) == 32532);
178	N_SET_MACHTYPE (*execp, M_532_NETBSD);
179
180	N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);
181
182	WRITE_HEADERS(abfd, execp);
183
184	return true;
185	}
186
187	#define MY_write_object_contents MY(write_object_contents)
188
189	#include "aout-target.h"