Mercurial > octave-nkf

diff src/sysdep.cc @ 2631:0774c3f023e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-01-27 19:22:05 by jwe]
author jwe
date Mon, 27 Jan 1997 19:22:05 +0000
parents fdee6fe3e73b
children 9aeba8e006a4
line wrap: on
line diff
--- a/src/sysdep.cc	Mon Jan 27 19:09:52 1997 +0000
+++ b/src/sysdep.cc	Mon Jan 27 19:22:05 1997 +0000
@@ -579,15 +579,16 @@
 	    warning ("usleep: NaN is an invalid delay");
 	  else
 	    {
+#if defined (HAVE_USLEEP)
 	      int delay = NINT (dval);
-#if defined (HAVE_USLEEP)
+
 	      if (delay > 0)
 		usleep (delay);
 #else
-	      // Kluge alert.
+	      int delay = NINT (dval / 1e6);
 
-	      if (delay > 500000)
-		sleep (delay / 1000000);
+	      if (delay > 0)
+		sleep (delay);
 #endif
 	    }
 	}