From: Tristan Gingold <gingold@adacore.com>
Date: Fri, 25 Jun 2010 14:54:19 +0000 (+0000)
Subject: 2010-06-25  Tristan Gingold  <gingold@adacore.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9714ee486634a00a2f76f9a3879059b77a53d4a5;p=binutils-gdb.git

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

	* vms-alpha.c (alpha_vms_write_exec): Set linktime field.
---

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 0153119150a..d0b37bc8951 100644
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-25  Tristan Gingold  <gingold@adacore.com>
+
+	* vms-alpha.c (alpha_vms_write_exec): Set linktime field.
+
 2010-06-25  Alan Modra  <amodra@gmail.com>
 
 	* elf64-ppc.c (toc_skip_enum): Define.
diff --git a/bfd/vms-alpha.c b/bfd/vms-alpha.c
index 7b543d20272..ab1e3d578c8 100644
--- a/bfd/vms-alpha.c
+++ b/bfd/vms-alpha.c
@@ -3007,6 +3007,7 @@ alpha_vms_write_exec (bfd *abfd)
     char *module;
     unsigned int len;
 
+    /* Set module name.  */
     module = vms_get_module_name (bfd_get_filename (abfd), TRUE);
     len = strlen (module);
     if (len > sizeof (eihi->imgnam) - 1)
@@ -3015,8 +3016,15 @@ alpha_vms_write_exec (bfd *abfd)
     memcpy (eihi->imgnam + 1, module, len);
     free (module);
   }
-  bfd_putl32 (0, eihi->linktime + 0);
-  bfd_putl32 (0, eihi->linktime + 4);
+  {
+    unsigned int lo;
+    unsigned int hi;
+
+    /* Set time.  */
+    vms_get_time (&hi, &lo);
+    bfd_putl32 (lo, eihi->linktime + 0);
+    bfd_putl32 (hi, eihi->linktime + 4);
+  }
   eihi->imgid[0] = 0;
   eihi->linkid[0] = 0;
   eihi->imgbid[0] = 0;