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