Changeset 15359 for release/1.8


Ignore:
Timestamp:
May 10, 2012, 10:03:31 PM (7 years ago)
Author:
gb
Message:

In 1.8: fix to %NANOSLEEP from Erik Pearson (remaining time can be slightly
greater than original request.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.8/source/level-1/l1-lisp-threads.lisp

    r15155 r15359  
    5757            (if (and (< result 0)
    5858                     (eql (%get-errno) (- #$EINTR)))
    59               ;; x86-64 Leopard bug.
    60               (let* ((asec (pref aptr :timespec.tv_sec))
    61                      (bsec (pref bptr :timespec.tv_sec)))
    62                 (if (and (>= bsec 0)
    63                          (or (< bsec asec)
    64                              (and (= bsec asec)
    65                                   (< (pref bptr :timespec.tv_nsec)
    66                                      (pref aptr :timespec.tv_nsec)))))
    67                   (psetq aptr bptr bptr aptr)
    68                   (return)))
     59              (psetq aptr bptr bptr aptr)
    6960              (return))))))))
    7061
Note: See TracChangeset for help on using the changeset viewer.