From 0c4bd285c478056a52da8a8431a44736e2feb4da Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Sun, 30 May 2004 06:25:26 +0000 Subject: [PATCH] 0.8.10.64: * On Alpha FAST-[UN]SIGNED-C-BINOP VOPs work with untagged numbers. --- src/compiler/alpha/arith.lisp | 12 ++++++------ version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/compiler/alpha/arith.lisp b/src/compiler/alpha/arith.lisp index fccb1f049..d62ac7d4c 100644 --- a/src/compiler/alpha/arith.lisp +++ b/src/compiler/alpha/arith.lisp @@ -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) diff --git a/version.lisp-expr b/version.lisp-expr index 8174201ca..ada52818f 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.10.63" +"0.8.10.64"