0.8.14.3:

[sbcl.git] / src / compiler / x86-64 / arith.lisp

diff --git a/src/compiler/x86-64/arith.lisp b/src/compiler/x86-64/arith.lisp
index eaef9b4..f549575 100644 (file)
--- a/src/compiler/x86-64/arith.lisp
+++ b/src/compiler/x86-64/arith.lisp
@@ -1206,39 +1206,6 @@
     (move result prev)
     (inst shrd result next :cl)))
 
-(define-source-transform 64bit-logical-not (x)
-  `(logand (lognot (the (unsigned-byte 64) ,x)) #.(1- (ash 1 64))))
-
-(deftransform 64bit-logical-and ((x y))
-  '(logand x y))
-
-(define-source-transform 64bit-logical-nand (x y)
-  `(64bit-logical-not (64bit-logical-and ,x ,y)))
-
-(deftransform 64bit-logical-or ((x y))
-  '(logior x y))
-
-(define-source-transform 64bit-logical-nor (x y)
-  `(64bit-logical-not (64bit-logical-or ,x ,y)))
-
-(deftransform 64bit-logical-xor ((x y))
-  '(logxor x y))
-
-(define-source-transform 64bit-logical-eqv (x y)
-  `(64bit-logical-not (64bit-logical-xor ,x ,y)))
-
-(define-source-transform 64bit-logical-orc1 (x y)
-  `(64bit-logical-or (64bit-logical-not ,x) ,y))
-
-(define-source-transform 64bit-logical-orc2 (x y)
-  `(64bit-logical-or ,x (64bit-logical-not ,y)))
-
-(define-source-transform 64bit-logical-andc1 (x y)
-  `(64bit-logical-and (64bit-logical-not ,x) ,y))
-
-(define-source-transform 64bit-logical-andc2 (x y)
-  `(64bit-logical-and ,x (64bit-logical-not ,y)))
-
 ;;; Only the lower 6 bits of the shift amount are significant.
 (define-vop (shift-towards-someplace)
   (:policy :fast-safe)