diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-09 20:03:20 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-09 20:03:20 +0000 |
| commit | 4c4e6867742aeabe3fbbb15ac4f54d1d7e23162c (patch) | |
| tree | 6f992abac76d6eba7acf45e9691e2c917a85a06e | |
| parent | 1e4f99e839d87f60ec45893c4b249f297ae5fe93 (diff) | |
| download | ppe42-gcc-4c4e6867742aeabe3fbbb15ac4f54d1d7e23162c.tar.gz ppe42-gcc-4c4e6867742aeabe3fbbb15ac4f54d1d7e23162c.zip | |
standard-conforming error check for [de]time_.c
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26849 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 */ |
