From: Christophe R. <cr...@us...> - 2004-03-30 17:19:59
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10426/src/compiler/generic Modified Files: vm-tran.lisp Log Message: 0.8.9.11: Fix for alpha branch of ash-left-mod64: ... EBROKENPARENS Index: vm-tran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-tran.lisp,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- vm-tran.lisp 25 Mar 2004 18:22:52 -0000 1.43 +++ vm-tran.lisp 30 Mar 2004 17:08:19 -0000 1.44 @@ -464,8 +464,8 @@ (constant-lvar-p count) ; ? (plusp (lvar-value count))) (cut-to-width integer width) - '#1#) - (setf (gethash '#1# *modular-versions*) '(ash 64)))) + '#1#)) + (setf (gethash '#1# *modular-versions*) '(ash 64))) ;;; There are two different ways the multiplier can be recoded. The |