From: Douglas B Rupp <rupp@gnat.com>
Date: Mon, 11 Mar 2002 13:22:57 +0000 (-0500)
Subject: * vmsdbgout.c (lookup_filename): Adjust creation date for GMT.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6f1fd286cd37bee56cfddc555aa13634cf645c24;p=gcc.git

* vmsdbgout.c (lookup_filename): Adjust creation date for GMT.

From-SVN: r50582
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 080b4102051..0b88f6400e5 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,7 @@
 2002-03-11  Douglas B Rupp  <rupp@gnat.com>
 
+	* vmsdbgout.c (lookup_filename): Adjust creation date for GMT.
+
 	* config/alpha/xm-vms.h (__UNIX_FWRITE): Define.
 
 	* config/alpha/alpha.c (alpha_sa_size, VMS): Don't reserve space
diff --git a/gcc/vmsdbgout.c b/gcc/vmsdbgout.c
index 15318ed14df..245875ce4dd 100644
--- a/gcc/vmsdbgout.c
+++ b/gcc/vmsdbgout.c
@@ -1455,15 +1455,26 @@ lookup_filename (file_name)
 
   if (stat (file_name, &statbuf) == 0)
     {
-      cdt = 10000000 * (statbuf.st_ctime + vms_epoch_offset);
-      ebk = statbuf.st_size / 512 + 1;
-      ffb = statbuf.st_size - ((statbuf.st_size / 512) * 512);
+      long gmtoff;
 #ifdef VMS
+      struct tm *ts;
+
+      /* Adjust for GMT */
+      ts = (struct tm *) localtime (&statbuf.st_ctime);
+      gmtoff = ts->tm_gmtoff;
+
+      /* VMS has multiple file format types */
       rfo = statbuf.st_fab_rfm;
 #else
+      /* Is GMT adjustment an issue with a cross-compiler? */
+      gmtoff = 0;
+
       /* Assume stream LF type file */
       rfo = 2;
 #endif
+      cdt = 10000000 * (statbuf.st_ctime + gmtoff + vms_epoch_offset);
+      ebk = statbuf.st_size / 512 + 1;
+      ffb = statbuf.st_size - ((statbuf.st_size / 512) * 512);
       fnam = full_name (file_name);
       flen = strlen (fnam);
     }