2010-06-08 Tristan Gingold <gingold@adacore.com>

	* vms-lib.c (_bfd_vms_lib_write_archive_contents): Increment
	for the first block.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 485f4da..b979b93 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,5 +1,10 @@
 2010-06-08  Tristan Gingold  <gingold@adacore.com>
 
+       * vms-lib.c (_bfd_vms_lib_write_archive_contents): Increment
+       for the first block.
+
+2010-06-08  Tristan Gingold  <gingold@adacore.com>
+
        * vms-lib.c (_bfd_vms_lib_ia64_mkarchive): New function.
        * libbfd-in.h (_bfd_vms_lib_ia64_mkarchive): Declare.
        * libbfd.h: Regenerate.

diff --git a/bfd/vms-lib.c b/bfd/vms-lib.c
index c959df9..13a4fa8 100644 (file)
--- a/bfd/vms-lib.c
+++ b/bfd/vms-lib.c
@@ -2111,6 +2111,7 @@ _bfd_vms_lib_write_archive_contents (bfd *arch)
           /* Write the first block (which contains an mhd).  */
           if (bfd_bwrite (blk, VMS_BLOCK_SIZE, arch) != VMS_BLOCK_SIZE)
             goto input_err;
+          off += VMS_BLOCK_SIZE;
 
           if (amt == VMS_BLOCK_SIZE - sz)
             {