X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-rotate-byte%2Fx86-vm.lisp;h=27cf845e6fc3d5a9a7cbf90a611e07216ead4ba3;hb=a37b7e2a4c93398af954c3f03c5412ead1c1c828;hp=4a43d00eee70fea78340654adf232be338e25537;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;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))