From cb4cbf03d132d5f1458efe416ed21475be2ecec3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 23 Apr 1991 01:24:29 +0000
Subject: [PATCH] In the unaligned, left-to-right unary copy, had the test to
 see if we need to load the last src word or not backwards, so we didn't load
 it when we needed it.  (And potentially read one too many words when we
 didn't need it.)

---
 code/bit-bash.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 07f518818..b7201a434 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.9 1991/04/13 21:04:47 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.10 1991/04/23 01:24:29 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -364,12 +364,12 @@
 		  (unless (zerop final-bits)
 		    (let ((value
 			   (if (> (+ final-bits src-shift) unit-bits)
-			       (shift-towards-start next src-shift)
 			       (progn
 				 (get-next-src)
 				 (32bit-logical-or
 				  (shift-towards-end next (- src-shift))
-				  (shift-towards-start prev src-shift)))))
+				  (shift-towards-start prev src-shift)))
+			       (shift-towards-start next src-shift)))
 			  (mask (start-mask final-bits))
 			  (orig (funcall dst-ref-fn dst dst-word-offset)))
 		      (declare (type unit mask orig value))
-- 
GitLab