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 0153119150a54d8ca81a848a1ee74dbfd118c1b2..d0b37bc8951fc605ba741d5867322230fb06e3bf 100644 (file)
--- 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 7b543d20272835ce5427c595f93caef4c6487a3a..ab1e3d578c864f9c80048281b1c9d40fdf9db89e 100644 (file)
--- 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;