From: Lutz Euler <lutz.euler@freenet.de>
Date: Tue, 30 Aug 2011 22:40:10 +0000 (-0400)
Subject: Small cleanup to DEFINE-BYTE-BASHERS
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5ba61168c5e0ee518580d555dfc7fd64f9ff8a23;p=sbcl.git

Small cleanup to DEFINE-BYTE-BASHERS

Remove an unneeded SETF of the result of an INCF in a copy loop.
At least on x86[-64] this shortens the generated code in the byte
basher functions by removing a redundant move instruction.
---

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index bd25d4b..17d0e1e 100644
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -429,7 +429,7 @@
                            (flet ((get-next-src ()
                                     (setf prev next)
                                     (setf next (funcall src-ref-fn src
-                                                        (setf src-word-offset (incf src-word-offset))))))
+                                                        (incf src-word-offset)))))
                              (declare (inline get-next-src))
                              ,@(unless (= bytes-per-word 1)
                                 `((unless (zerop dst-byte-offset)