From: Craig Burley Date: Thu, 8 Jul 1999 12:33:14 +0000 (+0000) Subject: date_.c (G77_date_y2kbug_0): G77_time_0 returns longint... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a24f233febea22a67c59e93d467045ab7250ef06;p=gcc.git date_.c (G77_date_y2kbug_0): G77_time_0 returns longint... * libU77/date_.c (G77_date_y2kbug_0): G77_time_0 returns longint, not integer, and G77_ctime_0 takes longint, not integer, argument. * libU77/Version.c: Bump version. From-SVN: r28013 --- diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index b51430ae917..e09d8bfbba0 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,11 @@ +Wed Jul 7 15:58:16 1999 Craig Burley + + * libU77/date_.c (G77_date_y2kbug_0): G77_time_0 returns + longint, not integer, and G77_ctime_0 takes longint, not + integer, argument. + + * libU77/Version.c: Bump version. + Mon Jun 28 21:27:08 1999 Craig Burley Update to Netlib version of 1999-06-28: diff --git a/libf2c/libU77/Version.c b/libf2c/libU77/Version.c index d4b509b4fe3..2003f3c05e9 100644 --- a/libf2c/libU77/Version.c +++ b/libf2c/libU77/Version.c @@ -1,6 +1,6 @@ static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n"; -char __G77_LIBU77_VERSION__[] = "0.5.25 19990507 (prerelease)"; +char __G77_LIBU77_VERSION__[] = "0.5.25 19990707 (prerelease)"; #include diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c index 11537657f32..4f8254d3740 100644 --- a/libf2c/libU77/date_.c +++ b/libf2c/libU77/date_.c @@ -13,7 +13,8 @@ static integer c__5 = 5; { /* System generated locals */ address a__1[5]; - integer i__1, i__2[5]; + longint i__1; + integer i__2[5]; char ch__1[24]; /* Builtin functions */ @@ -21,7 +22,7 @@ static integer c__5 = 5; /* Local variables */ static char cbuf[24]; - extern integer G77_time_0 (); + extern longint G77_time_0 (); extern /* Character */ VOID G77_ctime_0 (); i__1 = G77_time_0 ();