Changeset 7362 for branches/ia32/level-0
- Timestamp:
- Oct 5, 2007, 5:01:00 PM (13 years ago)
- Location:
- branches/ia32/level-0
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/level-0/PPC/ppc-misc.lisp
r6179 r7362 1011 1011 (blr)) 1012 1012 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 1033 1014 1034 1015 ;;; r13 contains thread context on Linux/Darwin PPC64. -
branches/ia32/level-0/X86/x86-misc.lisp
r7340 r7362 749 749 ;;; Leopard test releases. It's probably not necessary any more; is 750 750 ;;; 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 767 752 768 753 ;;; end of x86-misc.lisp -
branches/ia32/level-0/l0-numbers.lisp
r7287 r7362 1715 1715 1716 1716 (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))) 1719 1723 (low (ldb (byte 16 0) ticks))) 1720 1724 (declare (fixnum high low))
Note: See TracChangeset
for help on using the changeset viewer.