mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-23 19:03:59 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Bounce the ftnint argument through a local time_t.

Browse Source 
From-SVN: r19460
This commit is contained in:
Richard Henderson 1998-04-27 16:00:10 -07:00 committed by Richard Henderson
parent 70e1ce21e5
commit 1052e6e680
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libf2c/ChangeLog.egcs
View File

@ -1,6 +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.
* libU77/gmtime_.c: Likewise.
Sun Apr 26 18:07:56 1998 Richard Henderson <rth@cygnus.com>

9
libf2c/libU77/gmtime_.c
View File

@ -33,14 +33,15 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
#ifdef KR_headers
/* Subroutine */ int G77_gmtime_0 (stime, tarray)
integer *stime, tarray[9];
/* Subroutine */ int G77_gmtime_0 (xstime, tarray)
integer *xstime, tarray[9];
#else
/* Subroutine */ int G77_gmtime_0 (const integer * stime, integer tarray[9])
/* Subroutine */ int G77_gmtime_0 (const integer * xstime, integer tarray[9])
#endif
{
struct tm *lt;
lt = gmtime ((time_t *) stime);
time_t stime = *xstime;
lt = gmtime (&stime);
tarray[0] = lt->tm_sec;
tarray[1] = lt->tm_min;
tarray[2] = lt->tm_hour;