The branch "master" has been updated in SBCL:
via 5ba61168c5e0ee518580d555dfc7fd64f9ff8a23 (commit)
from c1e345e98495ed2359dad1a1978851b353a15ca8 (commit)
- Log -----------------------------------------------------------------
commit 5ba61168c5e0ee518580d555dfc7fd64f9ff8a23
Author: Lutz Euler <lutz.euler@...>
Date: Tue Aug 30 18:40:10 2011 -0400
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.
---
src/code/bit-bash.lisp | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
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)
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL
|