From f1e5d9fb70fa9697a66ccce443b0a338d60d05d5 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 19 Feb 2013 20:25:04 -0800
Subject: [PATCH] Remove old fast-truncate-c vops; the new ones work.

---
 src/compiler/x86/arith.lisp | 50 -------------------------------------
 1 file changed, 50 deletions(-)

diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp
index 37fc8162b..ccd865ce9 100644
--- a/src/compiler/x86/arith.lisp
+++ b/src/compiler/x86/arith.lisp
@@ -528,31 +528,6 @@
     (move quo eax)
     (move rem edx)))
 
-#+nil
-(define-vop (fast-truncate-c/unsigned=>unsigned fast-safe-arith-op)
-  (:translate truncate)
-  (:args (x :scs (unsigned-reg) :target eax))
-  (:info y)
-  (:arg-types unsigned-num (:constant (unsigned-byte 32)))
-  (:temporary (:sc unsigned-reg :offset eax-offset :target quo
-		   :from :argument :to (:result 0)) eax)
-  (:temporary (:sc unsigned-reg :offset edx-offset :target rem
-		   :from :eval :to (:result 1)) edx)
-  (:temporary (:sc unsigned-reg :from :eval :to :result) y-arg)
-  (:results (quo :scs (unsigned-reg))
-	    (rem :scs (unsigned-reg)))
-  (:result-types unsigned-num unsigned-num)
-  (:note _N"inline (unsigned-byte 32) arithmetic")
-  (:vop-var vop)
-  (:save-p :compute-only)
-  (:generator 32
-    (move eax x)
-    (inst xor edx edx)
-    (inst mov y-arg y)
-    (inst div eax y-arg)
-    (move quo eax)
-    (move rem edx)))
-
 (define-vop (fast-truncate-c/unsigned=>unsigned fast-unsigned-binop-c)
   (:translate truncate)
   (:args (x :scs (unsigned-reg)))
@@ -618,31 +593,6 @@
     (move quo eax)
     (move rem edx)))
 
-#+nil
-(define-vop (fast-truncate-c/signed=>signed fast-safe-arith-op)
-  (:translate truncate)
-  (:args (x :scs (signed-reg) :target eax))
-  (:info y)
-  (:arg-types signed-num (:constant (signed-byte 32)))
-  (:temporary (:sc signed-reg :offset eax-offset :target quo
-		   :from :argument :to (:result 0)) eax)
-  (:temporary (:sc signed-reg :offset edx-offset :target rem
-		   :from :eval :to (:result 1)) edx)
-  (:temporary (:sc signed-reg :from :eval :to :result) y-arg)
-  (:results (quo :scs (signed-reg))
-	    (rem :scs (signed-reg)))
-  (:result-types signed-num signed-num)
-  (:note _N"inline (signed-byte 32) arithmetic")
-  (:vop-var vop)
-  (:save-p :compute-only)
-  (:generator 32
-    (move eax x)
-    (inst cdq)
-    (inst mov y-arg y)
-    (inst idiv eax y-arg)
-    (move quo eax)
-    (move rem edx)))
-
 (define-vop (fast-truncate-c/signed=>signed fast-signed-binop-c)
   (:translate truncate)
   (:args (x :scs (signed-reg)))
-- 
GitLab