Replace TIMES conditional stuff removed in

error by last change.

From-SVN: r21027

diff --git a/libf2c/libU77/sys_clock_.c b/libf2c/libU77/sys_clock_.c
index a4b99b8cf22ac8738b35cea63da794bd4e7eaeb4..7b7a9d0c0d2c938a12d0495c6f4225be0c1b0220 100644 (file)
--- a/libf2c/libU77/sys_clock_.c
+++ b/libf2c/libU77/sys_clock_.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1996 Free Software Foundation, Inc.
+/* Copyright (C) 1996, 1998 Free Software Foundation, Inc.
 This file is part of GNU Fortran libU77 library.
 
 This library is free software; you can redistribute it and/or modify it
@@ -29,11 +29,14 @@ Boston, MA 02111-1307, USA.  */
 #  include <time.h>
 # endif
 #endif
-#include <sys/times.h>
+#if HAVE_SYS_TIMES_H
+#  include <sys/times.h>
+#endif
 #include <limits.h>
 #if HAVE_UNISTD_H
 #  include <unistd.h>
 #endif
+#include <errno.h>             /* for ENOSYS */
 #include "f2c.h"
 
 #ifdef KR_headers
@@ -43,6 +46,7 @@ int G77_system_clock_0 (count, count_rate, count_max)
 int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
 #endif
 {
+#if defined (HAVE_TIMES)
   struct tms buffer;
   unsigned long cnt;
   if (count_rate) {
@@ -52,6 +56,8 @@ int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
     *count_rate = CLOCKS_PER_SECOND;
 #elif defined CLK_TCK
     *count_rate = CLK_TCK;
+#elif defined HZ
+  *count_rate = HZ;
 #else
 #error Dont know clock tick length
 #endif
@@ -64,4 +70,8 @@ int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max)
   else
     *count = cnt;
   return 0;
+#else /* ! HAVE_TIMES */
+  errno = ENOSYS;
+  return -1;
+#endif /* ! HAVE_TIMES */
 }