diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-04-27 22:53:54 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-04-27 22:53:54 +0000 |
| commit | 4fe0979b1f96a0459c95978b78beb918517590a1 (patch) | |
| tree | b86ab27374a52829fa54e04065e57a4e80f30347 /libf2c | |
| parent | 5bb4fc9c93f3065747271972b1489dfcf3370389 (diff) | |
| download | gcc-4fe0979b1f96a0459c95978b78beb918517590a1.tar.gz | |
* libU77/ltime_.c: Bounce the ftnint argument through a local time_t.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19457 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog.egcs | 4 | ||||
| -rw-r--r-- | libf2c/libU77/ltime_.c | 9 |
2 files changed, 9 insertions, 4 deletions
diff --git a/libf2c/ChangeLog.egcs b/libf2c/ChangeLog.egcs index d3978cd3d2d..81116dac692 100644 --- 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 151ac6c9b55..673a0dba845 100644 --- 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; |