X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Fx86-vm.lisp;fp=contrib%2Fsb-rotate-byte%2Fx86-vm.lisp;h=27cf845e6fc3d5a9a7cbf90a611e07216ead4ba3;hb=6df5926c567b40b0217e0cc16fd604197add804f;hp=4a43d00eee70fea78340654adf232be338e25537;hpb=e29d49125e00509720546382bfc073f7563fddc4;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/x86-vm.lisp b/contrib/sb-rotate-byte/x86-vm.lisp
index 4a43d00..27cf845 100644
--- a/contrib/sb-rotate-byte/x86-vm.lisp
+++ b/contrib/sb-rotate-byte/x86-vm.lisp
@@ -46,7 +46,7 @@
                (:arg-types sb-vm::tagged-num ,arg-type)
                (:temporary (:sc sb-vm::signed-reg :offset sb-vm::ecx-offset)
                            ecx)
-               (:results (res :scs (sb-vm::unsigned-reg)))
+               (:results (res :scs (sb-vm::unsigned-reg) :from :load))
                (:result-types sb-vm::unsigned-byte-32)
                (:generator 10
                 (let ((label (gen-label))