From 2d111458bcb73a545ed9ce0a8f75b037b9ca44e4 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Sat, 22 May 2004 19:02:21 +0000 Subject: [PATCH] 0.8.10.47: * Implemented (LOGAND sb32 ub32) on SPARC. --- src/compiler/sparc/arith.lisp | 6 ++++++ version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/compiler/sparc/arith.lisp b/src/compiler/sparc/arith.lisp index 7acaa6b..1bff8c8 100644 --- a/src/compiler/sparc/arith.lisp +++ b/src/compiler/sparc/arith.lisp @@ -175,6 +175,12 @@ (define-binop logxor 2 xor) (define-binop logeqv 2 xnor nil t) +(define-vop (fast-logand/signed-unsigned=>unsigned fast-logand/unsigned=>unsigned) + (:args (x :scs (signed-reg) :target r) + (y :scs (unsigned-reg) :target r)) + (:arg-types signed-num unsigned-num) + (:translate logand)) + ;;; Special case fixnum + and - that trap on overflow. Useful when we ;;; don't know that the output type is a fixnum. diff --git a/version.lisp-expr b/version.lisp-expr index a91d167..5dfda78 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.46" +"0.8.10.47" -- 1.7.10.4