diff options
| -rw-r--r-- | libf2c/ChangeLog | 5 | ||||
| -rw-r--r-- | libf2c/libU77/dtime_.c | 2 | ||||
| -rw-r--r-- | libf2c/libU77/etime_.c | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index ee85e7966f1..738f1f18182 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com) + + * libU77/dtime_.c (G77_dtime_0): Standard-conforming error check. + * libU77/etime_.c (G77_etime_0): Likewise. + Mon May 3 19:15:07 1999 Craig Burley <craig@jcb-sc.com> * libU77/u77-test.f (main): Declare ABORT as intrinsic. diff --git a/libf2c/libU77/dtime_.c b/libf2c/libU77/dtime_.c index 0200a01af6f..aa34bc027e0 100644 --- a/libf2c/libU77/dtime_.c +++ b/libf2c/libU77/dtime_.c @@ -155,7 +155,7 @@ double G77_dtime_0 (real tarray[2]) # else #error Dont know clock tick length # endif - if (times(&buffer) < 0) return -1.0; + if (times(&buffer) == (clock_t)-1) return -1.0; utime = buffer.tms_utime; stime = buffer.tms_stime; tarray[0] = ((float)(utime - old_utime)) / (float)clk_tck; tarray[1] = ((float)(stime - old_stime)) / (float)clk_tck; diff --git a/libf2c/libU77/etime_.c b/libf2c/libU77/etime_.c index 374fc2feba2..eae559f7414 100644 --- a/libf2c/libU77/etime_.c +++ b/libf2c/libU77/etime_.c @@ -148,7 +148,7 @@ double G77_etime_0 (real tarray[2]) # else #error Dont know clock tick length # endif - if (times(&buffer) < 0) return -1.0; + if (times(&buffer) == (clock_t)-1) return -1.0; tarray[0] = (float) buffer.tms_utime / (float)clk_tck; tarray[1] = (float) buffer.tms_stime / (float)clk_tck; #endif /* HAVE_GETRUSAGE */ |
