Import Upstream version 5d9upstream/5d9

1 files changed, 7 insertions, 3 deletions

diff --git a/time.c b/time.c
index 7cefb94..a57034a 100644
--- a/time.c
+++ b/time.c
@@ -117,6 +117,11 @@
 # include <sys/timeb.h>
 # define USE_GETTIMEOFDAY
 #endif
+#ifdef __NetBSD__
+# include <sys/timeb.h>
+# include <sys/times.h>
+# define USE_GETTIMEOFDAY
+#endif
 #ifdef __OpenBSD__
 # include <sys/types.h>
 # include <sys/time.h>
@@ -352,9 +357,8 @@ SCM your_time()
   }
   else if ((1 + time_buffer1.time)==time_buffer2.time) ;
   else if (cnt < TIMETRIES) goto tryagain;
-  else {
-    scm_warn("could not read two ftime()s within one second in 10 tries",
-	     "", UNDEFINED);
+  else { /* could not read two ftime()s within one second in 10 tries */
+    scm_warn("ftime()s too fast", "", MAKINUM(TIMETRIES));
     return MAKINUM(-1);
   }
   tmp = CLKTCK*(time_buffer2.millitm - your_base.millitm);