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@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