From: Alexey D. <ade...@us...> - 2004-12-19 07:01:49
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10306/src/compiler/alpha Modified Files: arith.lisp Log Message: 0.8.17.29: * Merged sbcl-0-8-17-28-signed-modular branch. Index: arith.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/arith.lisp,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- arith.lisp 9 Dec 2004 16:58:40 -0000 1.24 +++ arith.lisp 19 Dec 2004 07:01:09 -0000 1.25 @@ -389,7 +389,7 @@ (inst mulq x y r))) ;;;; Modular functions: -(define-modular-fun lognot-mod64 (x) lognot 64) +(define-modular-fun lognot-mod64 (x) lognot :unsigned 64) (define-vop (lognot-mod64/unsigned=>unsigned) (:translate lognot-mod64) (:args (x :scs (unsigned-reg))) @@ -419,7 +419,7 @@ (vop (symbolicate 'fast- fun '/unsigned=>unsigned)) (cvop (symbolicate 'fast- fun '-c/unsigned=>unsigned))) `(progn - (define-modular-fun ,mfun-name (x y) ,fun 64) + (define-modular-fun ,mfun-name (x y) ,fun :unsigned 64) (define-vop (,modvop ,vop) (:translate ,mfun-name)) ,@(when constantp |