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