Skip to content
Snippets Groups Projects
Commit cb4cbf03 authored by wlott's avatar wlott
Browse files

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.)
parent d0e32c2f
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment