[Sbcl-commits] CVS: sbcl/src/compiler/ppc arith.lisp,1.12,1.13

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/ppc
In directory sc8-pr-cvs1:/tmp/cvs-serv22153/src/compiler/ppc

Modified Files:
	arith.lisp 
Log Message:
0.8.5.39:
	Fix modular ASH bug on PPC


Index: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ppc/arith.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- arith.lisp	10 Nov 2003 23:26:38 -0000	1.12
+++ arith.lisp	15 Nov 2003 16:12:54 -0000	1.13
@@ -371,6 +371,8 @@
     (cond
       ((and (minusp amount) (< amount -31)) (move result zero-tn))
       ((minusp amount) (inst srwi result number (- amount)))
+      ;; possible because this is used in the modular version too
+      ((> amount 31) (move result zero-tn))
       (t (inst slwi result number amount)))))
 
 (define-vop (fast-ash/signed=>signed)