[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-8-g3b9e43c

[Raymond Toy]

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 at 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
-- 
CMU Common Lisp