* libU77/ltime_.c: Bounce the ftnint argument through a local time_t.

From-SVN: r19457

diff --git a/libf2c/ChangeLog.egcs b/libf2c/ChangeLog.egcs
index d3978cd3d2d211e86fe5b797dfea5654ae9934c3..81116dac6926b948960a65da9178bbef5b206afe 100644 (file)
--- a/libf2c/ChangeLog.egcs
+++ b/libf2c/ChangeLog.egcs
@@ -1,3 +1,7 @@
+Mon Apr 27 22:52:31 1998  Richard Henderson  <rth@cygnus.com>
+
+       * libU77/ltime_.c: Bounce the ftnint argument through a local time_t.
+
 Sun Apr 26 18:07:56 1998  Richard Henderson  <rth@cygnus.com>
 
        * configure.in: Adjust include paths in F2C_INTEGER and F2C_LONGINT

diff --git a/libf2c/libU77/ltime_.c b/libf2c/libU77/ltime_.c
index 151ac6c9b550bafed43c9e87ecd7717472297bea..673a0dba84550dfb46daed3bed77d42cae4ce135 100644 (file)
--- a/libf2c/libU77/ltime_.c
+++ b/libf2c/libU77/ltime_.c
@@ -33,14 +33,15 @@ Boston, MA 02111-1307, USA.  */
 #include "f2c.h"
 
 #ifdef KR_headers
-/* Subroutine */ int G77_ltime_0 (stime, tarray)
-     integer *stime, tarray[9];
+/* Subroutine */ int G77_ltime_0 (xstime, tarray)
+     integer *xstime, tarray[9];
 #else
-/* Subroutine */ int G77_ltime_0 (const integer * stime, integer tarray[9])
+/* Subroutine */ int G77_ltime_0 (const integer * xstime, integer tarray[9])
 #endif
 {
   struct tm *lt;
-  lt = localtime ((time_t *) stime);
+  time_t stime = *xstime;
+  lt = localtime (&stime);
   tarray[0] = lt->tm_sec;
   tarray[1] = lt->tm_min;
   tarray[2] = lt->tm_hour;