* vmsdbgout.c (lookup_filename): Adjust creation date for GMT.
From-SVN: r50582
This commit is contained in:
parent
b230e05768
commit
6f1fd286cd
@ -1,5 +1,7 @@
|
|||||||
2002-03-11 Douglas B Rupp <rupp@gnat.com>
|
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/xm-vms.h (__UNIX_FWRITE): Define.
|
||||||
|
|
||||||
* config/alpha/alpha.c (alpha_sa_size, VMS): Don't reserve space
|
* config/alpha/alpha.c (alpha_sa_size, VMS): Don't reserve space
|
||||||
|
@ -1455,15 +1455,26 @@ lookup_filename (file_name)
|
|||||||
|
|
||||||
if (stat (file_name, &statbuf) == 0)
|
if (stat (file_name, &statbuf) == 0)
|
||||||
{
|
{
|
||||||
cdt = 10000000 * (statbuf.st_ctime + vms_epoch_offset);
|
long gmtoff;
|
||||||
ebk = statbuf.st_size / 512 + 1;
|
|
||||||
ffb = statbuf.st_size - ((statbuf.st_size / 512) * 512);
|
|
||||||
#ifdef VMS
|
#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;
|
rfo = statbuf.st_fab_rfm;
|
||||||
#else
|
#else
|
||||||
|
/* Is GMT adjustment an issue with a cross-compiler? */
|
||||||
|
gmtoff = 0;
|
||||||
|
|
||||||
/* Assume stream LF type file */
|
/* Assume stream LF type file */
|
||||||
rfo = 2;
|
rfo = 2;
|
||||||
#endif
|
#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);
|
fnam = full_name (file_name);
|
||||||
flen = strlen (fnam);
|
flen = strlen (fnam);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user