diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-07-08 12:33:14 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-07-08 08:33:14 -0400 |
| commit | a24f233febea22a67c59e93d467045ab7250ef06 (patch) | |
| tree | 05a757bd2942cdf9254925ec943a901f98fe003d /libf2c | |
| parent | ea3a41d38f5ca4350d652240489bc95c0c68c33f (diff) | |
| download | gcc-a24f233febea22a67c59e93d467045ab7250ef06.zip gcc-a24f233febea22a67c59e93d467045ab7250ef06.tar.gz gcc-a24f233febea22a67c59e93d467045ab7250ef06.tar.bz2 | |
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
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 8 | ||||
| -rw-r--r-- | libf2c/libU77/Version.c | 2 | ||||
| -rw-r--r-- | libf2c/libU77/date_.c | 5 |
3 files changed, 12 insertions, 3 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index b51430a..e09d8bf 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,11 @@ +Wed Jul 7 15:58:16 1999 Craig Burley <craig@jcb-sc.com> + + * 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 <craig@jcb-sc.com> Update to Netlib version of 1999-06-28: diff --git a/libf2c/libU77/Version.c b/libf2c/libU77/Version.c index d4b509b..2003f3c0 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 <stdio.h> diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c index 1153765..4f8254d 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 (); |