From: Tristan Gingold <gingold@adacore.com>
Date: Tue, 8 Jun 2010 14:04:25 +0000 (+0000)
Subject: 2010-06-08  Tristan Gingold  <gingold@adacore.com>
X-Git-Url: http://git.efficios.com/?a=commitdiff_plain;h=cba3addf0c5906471d44527394c6e5f8594733c1;p=deliverable%2Fbinutils-gdb.git

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 485f4da528..b979b93d00 100644
--- 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 c959df9596..13a4fa892b 100644
--- 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)
             {