From: Alexey D. <ade...@us...> - 2003-10-09 19:55:19
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs1:/tmp/cvs-serv9245/src/compiler/mips 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/mips/arith.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- arith.lisp 9 Oct 2003 11:05:12 -0000 1.5 +++ arith.lisp 9 Oct 2003 19:55:12 -0000 1.6 @@ -690,11 +690,9 @@ (define-vop (fast---mod32-c/unsigned=>unsigned fast---c/unsigned=>unsigned) (:translate --mod32)) -(defknown ash-left-constant-mod32 (integer (integer 0)) (unsigned-byte 32) - (foldable flushable movable)) -(define-vop (fast-ash-left-constant-mod32/unsigned=>unsigned +(define-vop (fast-ash-left-mod32-c/unsigned=>unsigned fast-ash-c/unsigned=>unsigned) - (:translate ash-left-constant-mod32)) + (:translate ash-left-mod32)) ;;; logical operations (define-modular-fun lognot-mod32 (x) lognot 32) |