From 26837cfb5be067b824ff23df644628fc035a132b Mon Sep 17 00:00:00 2001 From: Donn Terry Date: Sun, 9 May 1999 20:03:20 +0000 Subject: standard-conforming error check for [de]time_.c From-SVN: r26849 --- libf2c/ChangeLog | 5 +++++ libf2c/libU77/dtime_.c | 2 +- libf2c/libU77/etime_.c | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) (limited to 'libf2c') 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 * 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 */ -- cgit v1.2.1