Context Navigation

level-0

Timestamp:

Oct 5, 2007, 5:01:00 PM (14 years ago)

Author:

rme

Message:

Merge trunk changes r7339:7360

Location:

branches/ia32/level-0

Files:

-                      r6179
+                      r7362
   (blr))
+;;; Work around buggy #_nanosleep implementations.
+(defppclapfunction %valid-remaining-timespec-time-p ((seconds arg_y) (ptr arg_z))
+  (unbox-fixnum imm4 seconds)
+  (lis imm1 (ash 1000000000 -16))
+  (macptr-ptr imm0 ptr)
+  (ori imm1 imm1 (logand #xffff 1000000000))
+  (li arg_z nil)
+  (ldr imm3 0 imm0)
+  (cmplr cr2 imm0 imm4)
+  (cmpr cr1 imm3 rzero)
+  (ldr imm2 target::node-size imm0)
+  (cmplr imm2 imm1)
+  (bgt cr4 @done)
+  (blt cr1 @done)
+  (bge @done)
+  (or. imm3 imm3 imm2)
+  (beq @done)
+  (li arg_z t)
+  @done
+  (blr))
 ;;; r13 contains thread context on Linux/Darwin PPC64.

-                      r7340
+                      r7362
 ;;; Leopard test releases.  It's probably not necessary any more; is
 ;;; it still called ?
+(defx86lapfunction %valid-remaining-timespec-time-p ((seconds arg_y) (ptr arg_z))
+  (macptr-ptr arg_z imm0)
+  (unbox-fixnum seconds imm1)
+  (movl ($ x8664::nil-value) (% arg_z.l))
+  (cmpq ($ 0) (@ (% imm0)))
+  (jl @done)
+  (cmpq (% imm1) (% imm0))
+  (ja @done)
+  (cmpq ($ 1000000000) (@ 8 (% imm0)))
+  (jae @done)
+  (movq (@ (% imm0)) (% imm1))
+  (orq (@ 8 (% imm0)) (% imm1))
+  (jz @done)
+  (movl ($ x8664::t-value) (% arg_z.l))
+  @done
+  (single-value-return))
 ;;; end of x86-misc.lisp

-                      r7287
+                      r7362
 (defun init-random-state-seeds ()
+  (let* ((ticks (ldb (byte 32 0) (get-internal-real-time)))
+         (high (ldb (byte 16 16) ticks))
+  (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
+                                    (primary-ip-interface-address)
+                                    (mixup-hash-code
+                                     (logand (get-internal-real-time)
+                                             (1- most-positive-fixnum))))))
+         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
          (low (ldb (byte 16 0) ticks)))
     (declare (fixnum high low))

Note: See TracChangeset for help on using the changeset viewer.