Tue Jun 18 14:42:58 1996 Klaus Kaempf <kkaempf@progis.de>

	Added support for Alpha OpenVMS:
	* evax.h, evax-alpha.c, evax-egsd.c, evax-emh.c: New files.
	* evax-etir.c, evax-misc.c, hosts/alphavms.h: New files.
	* config.h-vms, makefile.vms: New files.
	* config.bfd (alpha-*-*vms*): New target.
	* configure.in (evax_alpha_vec): New target vector.
	* configure: Rebuild.
	* reloc.c (BFD_RELOC_SWREL32, BFD_RELOC_SWREL64): Define.
	(BFD_RELOC_ALPHA_LINKAGE, BFD_RELOC_ALPHA_BASEREG): Define.
	* targets.c (bfd_target_evax_flavour): Define.
	(evax_alpha_vec): Declare.
	(bfd_target_vector): Add ecoffalpha_little_vec and evax_alpha_vec
	if BFD64 is defined.
	* bfd-in2.h, libbfd.h: Rebuild.
	* Makefile.in: Rebuild dependencies.
	(BFD64_BACKENDS): Add evax-alpha.o, evax-egsd.o, evax-etir.o,
	evax-emh.o, and evax-misc.o.
	(BFD64_BACKENDS_CFILES): Add evax-alpha.c, evax-egsd.c,
	evax-etir.c, evax-emh.c, and evax-misc.c.
	(HFILES): Add evax.h.

1 files changed, 288 insertions, 0 deletions

diff --git a/bfd/evax-emh.c b/bfd/evax-emh.c
new file mode 100644
index 0000000..7151938
--- /dev/null
+++ b/bfd/evax-emh.c
@@ -0,0 +1,288 @@
+/* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/AXP) files.
+   Copyright 1996 Free Software Foundation, Inc.
+
+   EMH record handling functions
+   and
+   EEOM record handling functions
+
+   Written by Klaus Kämpf (kkaempf@progis.de)
+   of proGIS Softwareentwicklung, Aachen, Germany
+
+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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+
+#include <stdio.h>
+
+#include "bfd.h"
+#include "sysdep.h"
+#include "bfdlink.h"
+#include "libbfd.h"
+
+#include "evax.h"
+
+/*---------------------------------------------------------------------------*/
+
+
+/* Read & process emh record
+   return 0 on success, -1 on error  */
+
+int
+_bfd_evax_slurp_emh (abfd)
+     bfd *abfd;
+{
+  unsigned char *ptr;
+  unsigned char *evax_rec;
+
+  evax_rec = PRIV(evax_rec);
+
+#if EVAX_DEBUG
+  evax_debug(2, "EMH\n");
+#endif
+
+  switch (bfd_getl16 (evax_rec + 4))
+    {
+
+      case EMH_S_C_MHD:
+	/*
+	 * module header
+	 */
+	PRIV(emh_data).emh_b_strlvl = evax_rec[6];
+	PRIV(emh_data).emh_l_arch1 = bfd_getl32 (evax_rec + 8);
+	PRIV(emh_data).emh_l_arch2 = bfd_getl32 (evax_rec + 12);
+	PRIV(emh_data).emh_l_recsiz = bfd_getl32 (evax_rec + 16);
+	PRIV(emh_data).emh_t_name =
+	  _bfd_evax_save_counted_string ((char *)evax_rec + 20);
+	ptr = evax_rec + 20 + evax_rec[20] + 1;
+	PRIV(emh_data).emh_t_version =
+	  _bfd_evax_save_counted_string ((char *)ptr);
+	ptr += *ptr + 1;
+	PRIV(emh_data).emh_t_date =
+	  _bfd_evax_save_sized_string ((char *)ptr, 17);
+
+      break;
+
+      case EMH_S_C_LNM:
+	/*
+	 *
+	 */
+	PRIV(emh_data).emh_c_lnm =
+	  _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
+      break;
+
+      case EMH_S_C_SRC:
+	/*
+	 *
+	 */
+	PRIV(emh_data).emh_c_src =
+	  _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
+      break;
+
+      case EMH_S_C_TTL:
+	/*
+	 *
+	 */
+	PRIV(emh_data).emh_c_ttl =
+	  _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
+      break;
+
+      case EMH_S_C_CPR:
+	/*
+	 *
+	 */
+      break;
+
+      case EMH_S_C_MTC:
+	/*
+	 *
+	 */
+      break;
+
+      case EMH_S_C_GTX:
+	/*
+	 *
+	 */
+      break;
+
+      default:
+	bfd_set_error (bfd_error_wrong_format);
+      return -1;
+
+    } /* switch */
+
+  return 0;
+}
+
+
+#if 0
+
+/* register a file name  */
+
+int
+_bfd_evax_register_filename (abfd, name)
+     bfd *abfd;
+     char *name;
+{
+  if (PRIV(filename) != NULL)
+    {
+#if EVAX_DEBUG
+      evax_debug(3, "Second filename %s, first was %s\n", name, PRIV(filename));
+#endif
+      return -1;
+    }
+  PRIV(filename) = strdup (name);
+  return 0;
+}
+
+#endif /* 0 */
+
+/* write object header for bfd abfd  */
+
+int
+_bfd_evax_write_emh (abfd)
+     bfd *abfd;
+{
+  char *name;
+
+#if EVAX_DEBUG
+  evax_debug (2, "evax_write_emh(%p)\n", abfd);
+#endif
+
+  _bfd_evax_output_alignment (abfd, 2);
+
+  /* MHD */
+
+  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
+  _bfd_evax_output_short (abfd, EOBJ_S_C_STRLVL);
+  _bfd_evax_output_long (abfd, 0);
+  _bfd_evax_output_long (abfd, 0);
+  _bfd_evax_output_long (abfd, MAX_OUTREC_SIZE);
+  if (bfd_get_filename (abfd) != NULL)
+    {
+      name = strdup (bfd_get_filename (abfd));
+      _bfd_evax_output_counted (abfd, _bfd_evax_basename (name));
+    }
+  else
+    _bfd_evax_output_counted (abfd, "NONAME");
+  _bfd_evax_output_counted (abfd, BFD_VERSION);
+  _bfd_evax_output_dump (abfd, (unsigned char *)_bfd_get_vms_time_string (),
+			 17);
+  _bfd_evax_output_fill (abfd, 0, 17);
+  _bfd_evax_output_flush (abfd);
+
+  /* LMN */
+
+  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
+  _bfd_evax_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
+  _bfd_evax_output_flush (abfd);
+
+  /* SRC */
+
+  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
+  if (PRIV(filename) != 0)
+    _bfd_evax_output_dump (abfd, (unsigned char *)PRIV(filename), strlen (PRIV(filename)));
+  else
+    _bfd_evax_output_dump (abfd, (unsigned char *)"noname", 6);
+  _bfd_evax_output_flush (abfd);
+
+  /* TTL */
+
+  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
+  _bfd_evax_output_dump (abfd, (unsigned char *)"TTL", 3);
+  _bfd_evax_output_flush (abfd);
+
+  /* CPR */
+
+  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
+  _bfd_evax_output_dump (abfd,
+			 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
+			 39);
+  _bfd_evax_output_flush (abfd);
+
+  return 0;
+}
+
+/*-----------------------------------------------------------------------------*/
+
+/* Process EEOM record
+   return 0 on success, -1 on error  */
+
+int
+_bfd_evax_slurp_eeom (abfd)
+     bfd *abfd;
+{
+  unsigned char *evax_rec;
+
+#if EVAX_DEBUG
+  evax_debug(2, "EEOM\n");
+#endif
+
+  evax_rec = PRIV(evax_rec);
+
+  PRIV(eeom_data).eeom_l_total_lps = bfd_getl32 (evax_rec + 4);
+  PRIV(eeom_data).eeom_b_comcod = *(evax_rec + 8);
+  if (PRIV(eeom_data).eeom_b_comcod > 1)
+    {
+      (*_bfd_error_handler) ("Object module NOT error-free !\n");
+      bfd_set_error (bfd_error_bad_value);
+      return -1;
+    }
+  PRIV(eeom_data).eeom_has_transfer = false;
+  if (PRIV(rec_size) > 10)
+    {
+       PRIV(eeom_data).eeom_has_transfer = true;
+       PRIV(eeom_data).eeom_b_tfrflg = *(evax_rec + 9);
+       PRIV(eeom_data).eeom_l_psindx = bfd_getl32 (evax_rec + 12);
+       PRIV(eeom_data).eeom_l_tfradr = bfd_getl32 (evax_rec + 16);
+
+       abfd->start_address = PRIV(eeom_data).eeom_l_tfradr;
+    }
+  return 0;
+}
+
+
+/* Write eom record for bfd abfd  */
+
+int
+_bfd_evax_write_eeom (abfd)
+     bfd *abfd;
+{
+#if EVAX_DEBUG
+  evax_debug (2, "evax_write_eeom(%p)\n", abfd);
+#endif
+
+  _bfd_evax_output_begin (abfd,EOBJ_S_C_EEOM, -1);
+  _bfd_evax_output_long (abfd, (unsigned long)(PRIV(evax_linkage_index) >> 1));
+  _bfd_evax_output_byte (abfd, 0);	/* completion code */
+  _bfd_evax_output_byte (abfd, 0);	/* fill byte */
+
+  if (bfd_get_start_address (abfd) != (bfd_vma)-1)
+    {
+      asection *section;
+
+      section = bfd_get_section_by_name (abfd, ".link");
+      if (section == 0)
+	{
+	  bfd_set_error (bfd_error_nonrepresentable_section);
+	  return -1;
+	}
+      _bfd_evax_output_short (abfd, 0);
+      _bfd_evax_output_long (abfd, (unsigned long)(section->index));
+      _bfd_evax_output_long (abfd,
+			     (unsigned long) bfd_get_start_address (abfd));
+      _bfd_evax_output_long (abfd, 0);
+    }
+
+  _bfd_evax_output_end (abfd);
+  return 0;
+}