0.9.3.3:

	Oops.  Fix signed-num INTEGER-LENGTH VOP on the PPC to not
	  overwrite the argument if the arg is negative.

diff --git a/src/compiler/ppc/arith.lisp b/src/compiler/ppc/arith.lisp
index c633a13..5a20c34 100644 (file)
--- a/src/compiler/ppc/arith.lisp
+++ b/src/compiler/ppc/arith.lisp
@@ -606,15 +606,13 @@
                (inst srawi result number amount))
              (inst slwi result number amount)))))))
 
-
-
 (define-vop (signed-byte-32-len)
   (:translate integer-length)
   (:note "inline (signed-byte 32) integer-length")
   (:policy :fast-safe)
   (:args (arg :scs (signed-reg)))
   (:arg-types signed-num)
-  (:results (res :scs (unsigned-reg)))
+  (:results (res :scs (unsigned-reg) :from :load))
   (:result-types unsigned-num)
   (:generator 6
     ; (integer-length arg) = (- 32 (cntlz (if (>= arg 0) arg (lognot arg))))