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

* vms-alpha.c (alpha_vms_write_exec): Set linktime field.
This commit is contained in:
Tristan Gingold 2010-06-25 14:54:19 +00:00
parent f2c7657e9a
commit 9714ee4866
2 changed files with 14 additions and 2 deletions

View File

@ -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.

View File

@ -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;