Thu Aug 8 12:21:56 1996 Klaus Kaempf <kkaempf@progis.de>

	* evax-alpha.c (evax_alpha_vec): Corrected flags, cleanup.
	(evax_initialize): Remove evax_reloc_table.
	(evax_close_and_cleanup): Ditto.
	(reloc_nil): Ditto.
	(alpha_howto_table): Remove ALPHA_R_SWREL32 and ALPHA_R_SWREL64
	entries.
	(evax_bfd_reloc_type_lookup): Ditto.
	* evax-egsd.c (_bfd_evax_slurp_egsd): Add a few casts; set
	cooked_size == raw_size.
	* evax-emh.c (_bfd_evax_register_filename): Remove.
	* evax-etir.c (etir_stc): Allow ETIR_S_C_STC_xx commands.
	* evax-misc.c (add_new_contents): Malloc section at full size.
	(_bfd_save_evax_section): Memcpy section contents directly.
	* evax.h (ALPHA_R_SWREL32, ALPHA_R_SWREL64): Remove.
	(evax_reloc_table): Remove.

	* hosts/alphavms.h (O_ACCMODE): Define if needed.

	* makefile.vms: Add better support for DEC C compilation
	Add evax.h dependencies

	* reloc.c (bfd_get_reloc_size): Add case for 16 byte reloc.
	(BFD_RELOC_SWREL32,BFD_RELOC_SWREL64): Remove.
	(BFD_RELOC_ALPHA_BASEREG): Remove.
	* bfd-in2.h, libbfd.h: Rebuild.

1 files changed, 14 insertions, 88 deletions

diff --git a/bfd/evax-alpha.c b/bfd/evax-alpha.c
index 2f43039..20a5a97 100644
--- a/bfd/evax-alpha.c
+++ b/bfd/evax-alpha.c
@@ -137,32 +137,20 @@ const bfd_target evax_alpha_vec =
   false,			/* data byte order is little */
   false,			/* header byte order is little */
 
-  (HAS_RELOC |			/* object flags */
-   HAS_LINENO | HAS_DEBUG |
-   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
-
-  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */
+  (HAS_RELOC | HAS_SYMS
+   | WP_TEXT | D_PAGED),	/* object flags */
+  (SEC_ALLOC | SEC_LOAD | SEC_RELOC
+   | SEC_READONLY | SEC_CODE | SEC_DATA
+   | SEC_HAS_CONTENTS | SEC_IN_MEMORY),		/* sect flags */
   0,				/* symbol_leading_char */
   ' ',				/* ar_pad_char */
   15,				/* ar_max_namelen */
-  bfd_getl64,			/* bfd_getx64 */
-  bfd_getl_signed_64,		/* bfd_getx_signed_64 */
-  bfd_putl64,			/* bfd_putx64 */
-  bfd_getl32,			/* bfd_getx32 */
-  bfd_getl_signed_32,		/* bfd_getx_signed_32 */
-  bfd_putl32,			/* bfd_putx32 */
-  bfd_getl16,			/* bfd_getx16 */
-  bfd_getl_signed_16,		/* bfd_getx_signed_16 */
-  bfd_putl16,			/* bfd_putx16 */
-  bfd_getl64,			/* bfd_h_getx64 */
-  bfd_getl_signed_64,		/* bfd_h_getx_signed_64 */
-  bfd_putl64,			/* bfd_h_putx64 */
-  bfd_getl32,			/* bfd_h_getx32 */
-  bfd_getl_signed_32,		/* bfd_h_getx_signed_32 */
-  bfd_putl32,			/* bfd_h_putx32 */
-  bfd_getl16,			/* bfd_h_getx16 */
-  bfd_getl_signed_16,		/* bfd_h_getx_signed_16 */
-  bfd_putl16,			/* bfd_h_putx16 */
+  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
+  bfd_getl32, bfd_getl_signed_32, bfd_putl32,
+  bfd_getl16, bfd_getl_signed_16, bfd_putl16,
+  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
+  bfd_getl32, bfd_getl_signed_32, bfd_putl32,
+  bfd_getl16, bfd_getl_signed_16, bfd_putl16,
 
   {_bfd_dummy_target, evax_object_p,		/* bfd_check_format */
    evax_archive_p, _bfd_dummy_target},
@@ -247,11 +235,8 @@ evax_initialize (abfd)
       goto evax_init_no_mem2;
     }
 
-  for (i=0; i<EVAX_SECTION_COUNT; i++)
-    {
-      PRIV(evax_section_table)[i] = NULL;
-      PRIV(evax_reloc_table)[i] = NULL;
-    }
+  for (i = 0; i < EVAX_SECTION_COUNT; i++)
+    PRIV(evax_section_table)[i] = NULL;
 
   PRIV(output_buf) = (unsigned char *) malloc (MAX_OUTREC_SIZE);
   if (PRIV(output_buf) == 0)
@@ -599,15 +584,6 @@ evax_close_and_cleanup (abfd)
 	  es = es1;
 	}
       PRIV(evax_section_table)[i] = NULL;
-
-      er = PRIV(evax_reloc_table)[i];
-      while (er != NULL)
-	{
-	  er1 = er->next;
-	  free (er);
-	  er = er1;
-	}
-      PRIV(evax_reloc_table)[i] = NULL;
    }
 
   free (abfd->tdata.any);
@@ -1317,8 +1293,6 @@ reloc_nil (abfd, reloc, sym, data, sec, output_bfd, error_message)
      bfd *output_bfd;
      char **error_message;
 {
-  evax_reloc *er;
-
 #if EVAX_DEBUG
   evax_debug (1, "reloc_nil(abfd %p, output_bfd %p)\n", abfd, output_bfd);
   evax_debug (2, "In section %s, symbol %s\n",
@@ -1331,23 +1305,6 @@ reloc_nil (abfd, reloc, sym, data, sec, output_bfd, error_message)
 /*  _bfd_hexdump (2, data, bfd_get_reloc_size(reloc->howto),0); */
 #endif
 
-  er = (evax_reloc *)malloc (sizeof(evax_reloc));
-  if (er == NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return bfd_reloc_notsupported;	/* FIXME */
-    }
-  er->section = sec;
-  er->reloc = reloc;
-  er->next = NULL;
-  if (PRIV(evax_reloc_table)[sec->index] == NULL)
-    {
-      PRIV(evax_reloc_table)[sec->index] = er;
-    }
-  else
-    {
-      er->next = PRIV(evax_reloc_table)[sec->index];
-    }
   return bfd_reloc_ok;
 }
 
@@ -1541,36 +1498,6 @@ static reloc_howto_type alpha_howto_table[] =
 	 0,			/* dst_mask */
 	 false),		/* pcrel_offset */
 
-  /* Switch table, 32bit relocation.  */
-  HOWTO (ALPHA_R_SWREL32,	/* type */
-	 0,			/* rightshift */
-	 2,			/* size (0 = byte, 1 = short, 2 = long) */
-	 32,			/* bitsize */
-	 false,			/* pc_relative */
-	 0,			/* bitpos */
-	 complain_overflow_dont, /* complain_on_overflow */
-	 reloc_nil,		/* special_function */
-	 "SWREL32",		/* name */
-	 false,			/* partial_inplace */
-	 0xffffffff,		/* src_mask */
-	 0xffffffff,		/* dst_mask */
-	 false),		/* pcrel_offset */
-
-  /* Switch table, 64bit relocation.  */
-  HOWTO (ALPHA_R_SWREL64,	/* type */
-	 0,			/* rightshift */
-	 4,			/* size (0 = byte, 1 = short, 2 = long) */
-	 64,			/* bitsize */
-	 false,			/* pc_relative */
-	 0,			/* bitpos */
-	 complain_overflow_dont, /* complain_on_overflow */
-	 reloc_nil,		/* special_function */
-	 "SWREL64",		/* name */
-	 false,			/* partial_inplace */
-	 MINUS_ONE,		/* src_mask */
-	 MINUS_ONE,		/* dst_mask */
-	 false),			/* pcrel_offset */
-
   /* A 32 bit reference to a symbol.  */
   HOWTO (ALPHA_R_REFLONG,	/* type */
 	 0,			/* rightshift */
@@ -1614,8 +1541,6 @@ evax_bfd_reloc_type_lookup (abfd, code)
       case BFD_RELOC_32_PCREL:		alpha_type = ALPHA_R_SREL32;	break;
       case BFD_RELOC_64_PCREL:		alpha_type = ALPHA_R_SREL64;	break;
       case BFD_RELOC_ALPHA_LINKAGE:	alpha_type = ALPHA_R_LINKAGE;	break;
-      case BFD_RELOC_SWREL32:		alpha_type = ALPHA_R_SWREL32;	break;
-      case BFD_RELOC_SWREL64:		alpha_type = ALPHA_R_SWREL64;	break;
 #if 0
       case ???:				alpha_type = ALPHA_R_OP_PUSH;	break;
       case ???:				alpha_type = ALPHA_R_OP_STORE;	break;
@@ -1675,6 +1600,7 @@ evax_set_section_contents (abfd, section, location, offset, count)
 #if EVAX_DEBUG
   evax_debug (1, "evax_set_section_contents(%p, sec %s, loc %p, off %ld, count %d)\n",
 					abfd, section->name, location, (long int)offset, (int)count);
+  evax_debug (2, "secraw %d, seccooked %d\n", (int)section->_raw_size, (int)section->_cooked_size);
 #endif
   return _bfd_save_evax_section(abfd, section, location, offset, count);
 }