diff options
| author | Donn Terry <donn@interix.com> | 1999-05-09 20:03:20 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-09 16:03:20 -0400 |
| commit | 26837cfb5be067b824ff23df644628fc035a132b (patch) | |
| tree | 6f992abac76d6eba7acf45e9691e2c917a85a06e /libf2c | |
| parent | ea0f786bafeaa48ef4f25a08bb3f52ba2bc495a5 (diff) | |
| download | gcc-26837cfb5be067b824ff23df644628fc035a132b.tar.gz | |
standard-conforming error check for [de]time_.c
From-SVN: r26849
Diffstat (limited to 'libf2c')
| -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 */ |