From: Donn Terry <donn@interix.com>
Date: Sun, 9 May 1999 20:03:20 +0000 (+0000)
Subject: standard-conforming error check for [de]time_.c
X-Git-Tag: prereleases/gcc-2.95-test~556
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=26837cfb5be067b824ff23df644628fc035a132b;p=thirdparty%2Fgcc.git

standard-conforming error check for [de]time_.c

From-SVN: r26849
---

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index ee85e7966f16..738f1f18182d 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 0200a01af6fb..aa34bc027e08 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 374fc2feba23..eae559f74147 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 */