From: Alexey D. <ade...@us...> - 2003-10-09 19:55:43
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs1:/tmp/cvs-serv9245/src/compiler/alpha Modified Files: arith.lisp Log Message: 0.8.4.15: * Change modularization of ASH ... add per-function cutter; ... s/ash-left-constant-modxx/ash-left-modxx/; ... put DEFKNOWN and modular function optimizer for ASH-LEFT-MODxx to src/compiler/generic/sm-tran.lisp; ... compile src/compiler/generic/vm-tran.lisp before src/compiler/target/arith.lisp (in fact, immediately after src/compiler/srctran.lisp); * strength reducer for * wraps LOGAND around the whole form. Index: arith.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/arith.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- arith.lisp 9 Oct 2003 11:05:11 -0000 1.12 +++ arith.lisp 9 Oct 2003 19:55:09 -0000 1.13 @@ -364,11 +364,9 @@ (:generator 1 (inst not x res))) -(defknown ash-left-constant-mod64 (integer (integer 0)) (unsigned-byte 64) - (foldable flushable movable)) -(define-vop (fast-ash-left-constant-mod64/unsigned=>unsigned +(define-vop (fast-ash-left-mod64-c/unsigned=>unsigned fast-ash-c/unsigned=>unsigned) - (:translate ash-left-constant-mod64)) + (:translate ash-left-mod64)) (macrolet ((define-modular-backend (fun &optional constantp) |