mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-17 17:49:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix IDATE (VXT) intrinsic

Browse Source 
From-SVN: r25551
This commit is contained in:
Craig Burley 1999-03-02 21:59:52 +00:00 committed by Craig Burley
parent ba0b1e43af
commit 37159e91c1
4 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/f/ChangeLog
View File

@ -1,3 +1,7 @@
Wed Mar 3 00:57:56 1999 Craig Burley <craig@jcb-sc.com>
* news.texi: IDATE (VXT) fixed to return year as 0..99.
Wed Mar 3 00:43:49 1999 Craig Burley <craig@jcb-sc.com>
* g77.texi: Add remaining changes pending from Dave Love.

11
gcc/f/news.texi
View File

@ -64,6 +64,17 @@ somewhat more difficult.
@heading In @code{egcs} 1.2:
@itemize @bullet
@item
Fix the @code{IDate} Intrinsic (VXT)
so the returned year is in the documented, non-Y2K-compliant range
of 0--99,
instead of being returned as 100 in the year 2000.
@ifnothtml
@xref{IDate Intrinsic (VXT)},
for more information.
@end ifnothtml
@item
Fix @code{g77} so it no longer crashes when compiling
I/O statements using keywords that define @code{INTEGER} values,

6
libf2c/ChangeLog
View File

@ -1,3 +1,9 @@
1999-03-03 Craig Burley <craig@jcb-sc.com>
* libU77/vxtidate_.c (G77_vxtidate_0): Truncate
year to last two digits (i.e. modulo 100), as per
documentation and (documented) Y2K non-compliance.
1999-02-20 Craig Burley <craig@jcb-sc.com>
From Krister Walfridsson <cato@df.lth.se>:

2
libf2c/libU77/vxtidate_.c
View File

@ -48,7 +48,7 @@ int G77_vxtidate_0 (integer *m, integer *d, integer *y)
time_t tim;
tim = time(NULL);
lt = localtime(&tim);
*y = lt->tm_year;
*y = lt->tm_year % 100;
*m = lt->tm_mon+1;
*d = lt->tm_mday;
return 0;