Skip to content

R
riscv-gcc-1
Commit 1052e6e6 by Richard Henderson Committed by Richard Henderson
Options

Bounce the ftnint argument through a local time_t. 

From-SVN: r19460
parent 70e1ce21
Showing with 6 additions and 4 deletions
libf2c/ChangeLog.egcs
Mon Apr 27 22:52:31 1998 Richard Henderson <rth@cygnus.com> Mon Apr 27 22:52:31 1998 Richard Henderson <rth@cygnus.com>
* libU77/ltime_.c: Bounce the ftnint argument through a local time_t. * libU77/ltime_.c: Bounce the ftnint argument through a local time_t.
* libU77/gmtime_.c: Likewise.
Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com> Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com>
......
libf2c/libU77/gmtime_.c
...@@ -33,14 +33,15 @@ Boston, MA 02111-1307, USA. */ ...@@ -33,14 +33,15 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h" #include "f2c.h"
#ifdef KR_headers #ifdef KR_headers
/* Subroutine */ int G77_gmtime_0 (stime, tarray) /* Subroutine */ int G77_gmtime_0 (xstime, tarray)
integer *stime, tarray[9]; integer *xstime, tarray[9];
#else #else
/* Subroutine */ int G77_gmtime_0 (const integer * stime, integer tarray[9]) /* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9])
#endif #endif
{ {
struct tm *lt; struct tm *lt;
lt = gmtime ((time_t *) stime); time_t stime = *xstime;
lt = gmtime (&stime);
tarray[0] = lt->tm_sec; tarray[0] = lt->tm_sec;
tarray[1] = lt->tm_min; tarray[1] = lt->tm_min;
tarray[2] = lt->tm_hour; tarray[2] = lt->tm_hour;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment