Ignore:
Timestamp:
Oct 5, 2007, 5:01:00 PM (14 years ago)
Author:
rme
Message:

Merge trunk changes r7339:7360

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/PPC/ppc-misc.lisp

    r6179 r7362  
    10111011  (blr))
    10121012
    1013 ;;; Work around buggy #_nanosleep implementations.
    1014 (defppclapfunction %valid-remaining-timespec-time-p ((seconds arg_y) (ptr arg_z))
    1015   (unbox-fixnum imm4 seconds)
    1016   (lis imm1 (ash 1000000000 -16))
    1017   (macptr-ptr imm0 ptr)
    1018   (ori imm1 imm1 (logand #xffff 1000000000))
    1019   (li arg_z nil)
    1020   (ldr imm3 0 imm0)
    1021   (cmplr cr2 imm0 imm4)
    1022   (cmpr cr1 imm3 rzero)
    1023   (ldr imm2 target::node-size imm0)
    1024   (cmplr imm2 imm1)
    1025   (bgt cr4 @done)
    1026   (blt cr1 @done)
    1027   (bge @done)
    1028   (or. imm3 imm3 imm2)
    1029   (beq @done)
    1030   (li arg_z t)
    1031   @done
    1032   (blr))
     1013
    10331014
    10341015;;; r13 contains thread context on Linux/Darwin PPC64.
Note: See TracChangeset for help on using the changeset viewer.