[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-8-gf1e5d9f

Raymond Toy rtoy at common-lisp.net
Wed Feb 20 04:25:10 UTC 2013


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  f1e5d9fb70fa9697a66ccce443b0a338d60d05d5 (commit)
      from  3e2634dc2b7784630db92afc1fefa1cd82407356 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit f1e5d9fb70fa9697a66ccce443b0a338d60d05d5
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Feb 19 20:25:04 2013 -0800

    Remove old fast-truncate-c vops; the new ones work.

diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp
index 37fc816..ccd865c 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)))

-----------------------------------------------------------------------

Summary of changes:
 src/compiler/x86/arith.lisp |   50 -------------------------------------------
 1 files changed, 0 insertions(+), 50 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list