From 97d3badc6638679c1b070e04d762f94301dbd117 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Sat, 8 Apr 2006 02:06:26 +0000 Subject: [PATCH] 0.9.11.24: Fix LOGBITP bug reported by James Knight, sbcl-devel 24 March 2006, AVER: "(EQ SB-NAME (SC-SB (TN-SC TN))) 'REGISTERS)". ... *sigh* one of these days, all the x86 LOGBITP bugs will be gone. --- src/compiler/x86/arith.lisp | 4 ++++ tests/compiler.pure.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp index 3910de9..7670970 100644 --- a/src/compiler/x86/arith.lisp +++ b/src/compiler/x86/arith.lisp @@ -1071,6 +1071,8 @@ (inst jmp (if not-p :nc :c) target))) (define-vop (fast-logbitp/signed fast-conditional/signed) + (:args (x :scs (signed-reg signed-stack)) + (y :scs (signed-reg))) (:translate %logbitp) (:generator 6 (inst bt x y) @@ -1084,6 +1086,8 @@ (inst jmp (if not-p :nc :c) target))) (define-vop (fast-logbitp/unsigned fast-conditional/unsigned) + (:args (x :scs (unsigned-reg unsigned-stack)) + (y :scs (unsigned-reg))) (:translate %logbitp) (:generator 6 (inst bt x y) diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index ac32148..0bfef0e 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -2048,7 +2048,7 @@ ;; Reported by James Knight ;; Subject: [Sbcl-devel] AVER: "(EQ (SB-NAME (SC-SB (TN-SC TN))) 'REGISTERS)" ;; Date: Fri, 24 Mar 2006 19:30:00 -0500 -(with-test (:name :logbitp-vop :fails-on :x86) +(with-test (:name :logbitp-vop) (compile nil '(lambda (days shift) (declare (type fixnum shift days)) diff --git a/version.lisp-expr b/version.lisp-expr index 65d7f01..6b4cee7 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.9.11.23" +"0.9.11.24" -- 1.7.10.4