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 485f4da528e0a1c9f3e6f91cc2b43d95fb512f34..b979b93d00515533ecf33fbcb311171aa868e206 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/bfd/vms-lib.c b/bfd/vms-lib.c
index c959df959672a3f7976f1da95b2c682ee09c43cf..13a4fa892ba6f22883e3b4b5dda8dd3450d02282 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)
             {