[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-23-gbb144c9

Raymond Toy rtoy at common-lisp.net
Wed Jan 2 18:41:11 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  bb144c9d0f653d19d32bb1a703b445a651cb131f (commit)
      from  78388799a95d5e551f776037eafeb2ef81a58acc (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 bb144c9d0f653d19d32bb1a703b445a651cb131f
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Jan 1 10:34:38 2013 -0800

    Micro-optimization for move-from-signed, eliminating one inst.

diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp
index 6ad7391..7b683b5 100644
--- a/src/compiler/sparc/move.lisp
+++ b/src/compiler/sparc/move.lisp
@@ -260,8 +260,7 @@
       ;; Frode Vatvedt Fjeld: (zerop (logand #b110 (1+ temp)))
       (inst srln temp x positive-fixnum-bits)
       (inst add temp 1)
-      (inst and temp #b110)
-      (inst cmp temp)
+      (inst andcc temp #b110)
       (inst b :eq done)
       (inst slln y x fixnum-tag-bits)


Summary of changes:
 src/compiler/sparc/move.lisp |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list