Ignore:
Timestamp:
Oct 3, 2007, 7:26:22 PM (13 years ago)
Author:
gb
Message:

%VALID-REMAINING-TIMESPEC-TIME-P was a buggy workaround for a post-10.4
bug that's since been fixed; if we can assume that #_nanosleep works,
trust the remaining time it returns when interrupted.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/X86/x86-misc.lisp

    r7312 r7343  
    749749;;; Leopard test releases.  It's probably not necessary any more; is
    750750;;; it still called ?
    751 (defx86lapfunction %valid-remaining-timespec-time-p ((seconds arg_y) (ptr arg_z))
    752   (macptr-ptr arg_z imm0)
    753   (unbox-fixnum seconds imm1)
    754   (movl ($ x8664::nil-value) (% arg_z.l))
    755   (cmpq ($ 0) (@ (% imm0)))
    756   (jl @done)
    757   (cmpq (% imm1) (% imm0))
    758   (ja @done)
    759   (cmpq ($ 1000000000) (@ 8 (% imm0)))
    760   (jae @done)
    761   (movq (@ (% imm0)) (% imm1))
    762   (orq (@ 8 (% imm0)) (% imm1))
    763   (jz @done)
    764   (movl ($ x8664::t-value) (% arg_z.l))
    765   @done
    766   (single-value-return))
     751
    767752
    768753;;; end of x86-misc.lisp
Note: See TracChangeset for help on using the changeset viewer.