From a24f233febea22a67c59e93d467045ab7250ef06 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Thu, 8 Jul 1999 12:33:14 +0000 Subject: 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 --- libf2c/ChangeLog | 8 ++++++++ libf2c/libU77/Version.c | 2 +- libf2c/libU77/date_.c | 5 +++-- 3 files changed, 12 insertions(+), 3 deletions(-) (limited to 'libf2c') 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 + + * 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 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 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 (); -- cgit v1.1