Fixing bug in RSHIFT.

2022-05-28 17:47:51 -07:00
parent a864b24347
commit f0cea166e4
2 changed files with 10 additions and 1 deletions
--- a/common/opcodes.h
+++ b/common/opcodes.h
@ -82,7 +82,7 @@ typedef struct {
                    tos = (ucell_t) w / (ucell_t) tos) \
  X("*/MOD", SSMOD, SSMOD_FUNC) \
  Y(LSHIFT, tos = (*sp-- << tos)) \
-  Y(RSHIFT, tos = (*sp-- >> tos)) \
+  Y(RSHIFT, tos = (((ucell_t) *sp--) >> tos)) \
  Y(AND, tos &= *sp--) \
  Y(OR, tos |= *sp--) \
  Y(XOR, tos ^= *sp--) \