Changeset 13335

Timestamp:

Dec 22, 2009, 5:47:48 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

Remove obsolete code.

File:

• trunk/source/level-0/X86/X8632/x8632-numbers.lisp (modified) (1 diff)

trunk/source/level-0/X86/X8632/x8632-numbers.lisp

@@ -141 +141 @@
   (cmove (% imm0) (% arg_z))
   (single-value-return))
-
-(defx8632lapfunction %next-random-pair ((high arg_y) (low arg_z))
-  ;; high: (unsigned-byte 15)
-  ;; low: (unsigned-byte 16)
-  (unbox-fixnum low imm0)
-  ;; clear most significant bit
-  (shll ($ (1+ (- 16 x8632::fixnumshift))) (% high))
-  (shrl ($ 1) (% high))
-  (orl (% high) (% imm0))
-  (mark-as-imm edx)
-  (movl ($ 48271) (% edx))
-  (mul (% edx))
-  (mark-as-node edx)
-  (movl ($ (- #x10000)) (% high))       ;#xffff0000
-  (andl (% imm0) (% high))
-  (shrl ($ (- 16 x8632::fixnumshift)) (% high))
-  (shll ($ 16) (% imm0))
-  (shrl ($ (- 16 x8632::fixnumshift)) (% imm0))
-  (movl (% imm0) (% low))
-  (movl (% esp) (% temp0))
-  (push (% high))
-  (push (% low))
-  (set-nargs 2)
-  (jmp-subprim .SPvalues))
         
 ;;; n1 and n2 must be positive (esp non zero)