Skip to content
Snippets Groups Projects
Commit 11c2864b authored by ram's avatar ram
Browse files

In FAST-ASH/FIXNUM, load the argument into the result *before* we shift the

result.
parent 5fcc30a0
No related branches found
No related tags found
No related merge requests found
......@@ -121,6 +121,9 @@
(:info n)
(:translate ash)
(:generator 1
(unless (location= i r)
(inst lr r i))
(cond ((plusp n)
(if (> n 15)
(inst sli16 r (- n 16))
......@@ -129,10 +132,7 @@
(let ((n (- n)))
(if (> n 15)
(inst sari16 r (- n 16))
(inst sari r n)))))
(unless (location= i r)
(inst lr r i))))
(inst sari r n)))))))
(define-miscop-variants effectless-unaffected-two-arg-miscop
......
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