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

	NULL.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 9f57dc2..76158ea 100644 (file)
--- 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 fc6bcc3..41a9717 100644 (file)
--- 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;
 }