OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

From-SVN: r19457
This commit is contained in:
Richard Henderson 1998-04-27 15:53:54 -07:00 committed by Richard Henderson
parent 8746c23564
commit 70e1ce21e5
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libf2c/ChangeLog.egcs
View File

@ -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

9
libf2c/libU77/ltime_.c
View File

@ -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;