Skip to content
Snippets Groups Projects
Commit 45fabc8f authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix ticket:76

Missed one place in DO-UNARY-BYTE-BASH to adjust the call to END-MASK
to use a bit offset instead of a byte offset.  This affects anything
that was using DO-UNARY-BYTE-BASH, including REPLACE.
parent 9c3da08b
No related branches found
No related tags found
No related merge requests found
...@@ -562,7 +562,7 @@ ...@@ -562,7 +562,7 @@
(unless (zerop dst-byte-offset) (unless (zerop dst-byte-offset)
;; We are only writing part of the first word, so mask off the ;; We are only writing part of the first word, so mask off the
;; bits we want to preserve. ;; bits we want to preserve.
(let ((mask (end-mask (- dst-byte-offset))) (let ((mask (end-mask (* vm:byte-bits (- dst-byte-offset))))
(orig (funcall dst-ref-fn dst dst-word-offset)) (orig (funcall dst-ref-fn dst dst-word-offset))
(value (funcall src-ref-fn src src-word-offset))) (value (funcall src-ref-fn src src-word-offset)))
(declare (type unit mask orig value)) (declare (type unit mask orig value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment