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 3b9e43c17458d68ccf262530c34459eb007d58e1 (commit) from 26419b3ce542bb406d08585c051a1dc97ba208fb (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 3b9e43c17458d68ccf262530c34459eb007d58e1 Author: Raymond Toy toy.raymond@gmail.com Date: Thu Mar 29 18:53:33 2012 -0700
Clarify a comment.
diff --git a/src/compiler/sparc/arith.lisp b/src/compiler/sparc/arith.lisp index 796bc4c..a4d36f6 100644 --- a/src/compiler/sparc/arith.lisp +++ b/src/compiler/sparc/arith.lisp @@ -201,7 +201,9 @@
;; This vop is intended to handle the case (logand x #xffffffff) when ;; x is a (signed-byte 32). We can just do a register move instead of -;; and'ing with #xffffffff. +;; and'ing with #xffffffff. Some other special cases are handled too +;; when the constant can fit inside the immediate operaand of the and +;; instruction. (define-vop (fast-logand-c/signed-unsigned=>unsigned fast-unsigned-binop-c) (:args (x :scs (signed-reg))) (:translate logand) @@ -214,7 +216,7 @@ ((typep y '(unsigned-byte 13)) (inst and r x y)) (t - ;; The constant is really a (signed-byte 13), so convert it + ;; The constant operand is really a (signed-byte 13), so convert it ;; to a negative number so the immediate operand gets ;; signed extended to the right bits. (inst and r x (- y #x100000000))
-----------------------------------------------------------------------
Summary of changes: src/compiler/sparc/arith.lisp | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-)
hooks/post-receive