Changeset 7362 for branches/ia32/level-0


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

Merge trunk changes r7339:7360

Location:
branches/ia32/level-0
Files:
3 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.
  • branches/ia32/level-0/X86/x86-misc.lisp

    r7340 r7362  
    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
  • branches/ia32/level-0/l0-numbers.lisp

    r7287 r7362  
    17151715
    17161716(defun init-random-state-seeds ()
    1717   (let* ((ticks (ldb (byte 32 0) (get-internal-real-time)))
    1718          (high (ldb (byte 16 16) ticks))
     1717  (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
     1718                                    (primary-ip-interface-address)
     1719                                    (mixup-hash-code
     1720                                     (logand (get-internal-real-time)
     1721                                             (1- most-positive-fixnum))))))
     1722         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
    17191723         (low (ldb (byte 16 0) ticks)))
    17201724    (declare (fixnum high low))
Note: See TracChangeset for help on using the changeset viewer.