From: Kaz Kojima <kkojima@rr.iij4u.or.jp>
Date: Mon, 4 Nov 2002 21:44:36 +0000 (+0000)
Subject: 	* vms.c (vms_object_p): Restore the start address when returning
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5e9aae3e09f5599801175ff897f034cd5ab6c670;p=binutils-gdb.git

	* vms.c (vms_object_p): Restore the start address when returning
	NULL.
---

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 9f57dc29608..76158eaadab 100644
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-04  Kaz Kojima  <kkojima@rr.iij4u.or.jp>
+
+	* vms.c (vms_object_p): Restore the start address when returning
+	NULL.
+
 2002-11-04  Alan Modra  <amodra@bigpond.net.au>
 	    Hans-Peter Nilsson  <hp@axis.com>
 
diff --git a/bfd/vms.c b/bfd/vms.c
index fc6bcc3e161..41a9717fcdd 100644
--- a/bfd/vms.c
+++ b/bfd/vms.c
@@ -382,6 +382,7 @@ vms_object_p (abfd)
   const struct bfd_target *target_vector = 0;
   const bfd_arch_info_type *arch = 0;
   PTR tdata_save = abfd->tdata.any;
+  bfd_vma saddr_save = bfd_get_start_address (abfd);
 
 #if VMS_DEBUG
   vms_debug (1, "vms_object_p(%p)\n", abfd);
@@ -519,6 +520,7 @@ vms_object_p (abfd)
   if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL)
     bfd_release (abfd, abfd->tdata.any);
   abfd->tdata.any = tdata_save;
+  bfd_set_start_address (abfd, saddr_save);
   return NULL;
 }