Changeset 5484

Timestamp:

Nov 5, 2006, 6:46:21 AM (18 years ago)

Author:

Gary Byers

Message:

%NANOSLEEP calls %VALID-REMAINING-TIMESPEC-TIME-P, which is better than
sleeping for 4G seconds after an EINTR on Leopard.

File:

• trunk/ccl/level-1/l1-lisp-threads.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-lisp-threads.lisp

@@ -52 +52 @@
           (if (and (< result 0)
                    (eql (%get-errno) (- #$EINTR))
-                   (not (and (eql (pref bptr :timespec.tv_sec) 0)
-                             (eql (pref bptr :timespec.tv_nsec) 0))))
-                (psetq aptr bptr bptr aptr)
-                (return)))))))
+                   (%valid-remaining-timespec-time-p seconds bptr))
+            (psetq aptr bptr bptr aptr)
+            (return)))))))