fix for RSHIFT implemented as left shift

2020-10-18 20:51:54 -05:00 · 2020-10-18 20:51:54 -05:00 · c0434e415a
parent 2eaa43f85f
commit c0434e415a
1 changed files with 1 additions and 1 deletions
--- a/jumpforth.S
+++ b/jumpforth.S
@ -923,7 +923,7 @@ defcode LSHIFT
 /* ( u1 u -- u2 ) Logical (unsigned) shift right by u bits */
 defcode RSHIFT
   pop %ecx
-   shll %cl,(%esp)
+   shrl %cl,(%esp)
   NEXT

 .macro defzcmp label,opcode,name="\label",flags=0