Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24565/src/compiler/alpha
Modified Files:
arith.lisp
Log Message:
0.8.10.64:
* On Alpha FAST-[UN]SIGNED-C-BINOP VOPs work with untagged
numbers.
Index: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/arith.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- arith.lisp 10 Nov 2003 23:26:37 -0000 1.14
+++ arith.lisp 30 May 2004 06:25:26 -0000 1.15
@@ -94,12 +94,12 @@
(define-vop (fast-signed-c-binop fast-signed-binop)
(:args (x :target r :scs (signed-reg)))
(:info y)
- (:arg-types tagged-num (:constant integer)))
+ (:arg-types signed-num (:constant integer)))
(define-vop (fast-unsigned-c-binop fast-unsigned-binop)
(:args (x :target r :scs (unsigned-reg)))
(:info y)
- (:arg-types tagged-num (:constant integer)))
+ (:arg-types unsigned-num (:constant integer)))
(defmacro define-binop (translate cost untagged-cost op
tagged-type untagged-type
@@ -207,10 +207,10 @@
(inst bne temp done)
(move zero-tn result)
(inst br zero-tn done)
-
+
POSITIVE
(inst sll number amount result)
-
+
DONE))
(define-vop (fast-ash/signed=>signed)
@@ -232,10 +232,10 @@
(inst bne temp done)
(inst sra number 63 result)
(inst br zero-tn done)
-
+
POSITIVE
(inst sll number amount result)
-
+
DONE))
(define-vop (fast-ash-c/signed=>signed)
|