X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Fx86-64-vm.lisp;fp=contrib%2Fsb-rotate-byte%2Fx86-64-vm.lisp;h=a3119339fd00fa10e9a7caedaee980ac60c53bd4;hb=6a71280af32d6bb02ed07d1a576df2cd9c5dfb79;hp=d45b5969a5e63af2125d06c33b3ad1ff0bf3df75;hpb=b85af7079579401b458fecd2a7bb5fe85a963b2c;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/x86-64-vm.lisp b/contrib/sb-rotate-byte/x86-64-vm.lisp
index d45b596..a311933 100644
--- a/contrib/sb-rotate-byte/x86-64-vm.lisp
+++ b/contrib/sb-rotate-byte/x86-64-vm.lisp
@@ -59,7 +59,7 @@
     (move result integer)
     (if (> count 0)
         (inst rol result count)
-        (inst ror result count))))
+        (inst ror result (- count)))))
 
 (define-vop (%64bit-rotate-byte)
   (:policy :fast-safe)