Changeset 15358

Timestamp:

May 10, 2012, 2:59:21 PM (13 years ago)

Author:

Gary Byers

Message:

Fix to %NANOSLEEP from Erik Pearson (remaining time can be slightly
greater than original request.)

File:

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

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

@@ -57 +57 @@
             (if (and (< result 0)
                      (eql (%get-errno) (- #$EINTR)))
-              ;; x86-64 Leopard bug.
-              (let* ((asec (pref aptr :timespec.tv_sec))
-                     (bsec (pref bptr :timespec.tv_sec)))
-                (if (and (>= bsec 0)
-                         (or (< bsec asec)
-                             (and (= bsec asec)
-                                  (< (pref bptr :timespec.tv_nsec)
-                                     (pref aptr :timespec.tv_nsec)))))
-                  (psetq aptr bptr bptr aptr)
-                  (return)))
+              (psetq aptr bptr bptr aptr)
               (return))))))))