2011-08-04 Tristan Gingold <gingold@adacore.com>

	* vms-alpha.c (_bfd_vms_write_eeom): Round vms_linkage_index.
	(_bfd_vms_write_etir): Initialize vms_linkage_index to 0.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 825487dbcc777a6f3323583f8147aec515750fb2..85ef26018c5311bcc137b69980b7f0d0214afbf9 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-04  Tristan Gingold  <gingold@adacore.com>
+
+       * vms-alpha.c (_bfd_vms_write_eeom): Round vms_linkage_index.
+       (_bfd_vms_write_etir): Initialize vms_linkage_index to 0.
+
 2011-08-03  Tristan Gingold  <gingold@adacore.com>
 
        * mach-o.c (bfd_mach_o_canonicalize_symtab): Handle no symbols case.

diff --git a/bfd/vms-alpha.c b/bfd/vms-alpha.c
index 31dc1fb6153d6e3b10aca31a1c7333b75150f46b..8b98560743731a3d8983e9800cd8c4407c589a38 100644 (file)
--- a/bfd/vms-alpha.c
+++ b/bfd/vms-alpha.c
@@ -2660,7 +2660,7 @@ _bfd_vms_write_eeom (bfd *abfd)
   _bfd_vms_output_alignment (recwr, 2);
 
   _bfd_vms_output_begin (recwr, EOBJ__C_EEOM);
-  _bfd_vms_output_long (recwr, (unsigned long) (PRIV (vms_linkage_index) >> 1));
+  _bfd_vms_output_long (recwr, PRIV (vms_linkage_index + 1) >> 1);
   _bfd_vms_output_byte (recwr, 0);     /* Completion code.  */
   _bfd_vms_output_byte (recwr, 0);     /* Fill byte.  */
 
@@ -3736,7 +3736,7 @@ _bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
 
   _bfd_vms_output_alignment (recwr, 4);
 
-  PRIV (vms_linkage_index) = 1;
+  PRIV (vms_linkage_index) = 0;
 
   for (section = abfd->sections; section; section = section->next)
     {