From 18e83d4dc3d71991326bcd40838c9bd75968aa54 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 19 May 2023 23:33:14 -0700
Subject: [PATCH] Fixing web bug with RSHIFT.

---
 web/fuse_web.js | 1 +
 1 file changed, 1 insertion(+)

diff --git a/web/fuse_web.js b/web/fuse_web.js
index 27fb01f..73ac0fe 100755
--- a/web/fuse_web.js
+++ b/web/fuse_web.js
@@ -43,6 +43,7 @@ cases = ReplaceAll(cases, 'tos *= sizeof(cell_t)', 'tos = (tos * 4)|0');
 cases = ReplaceAll(cases, 'tos += *sp--', 'tos = (tos + *sp)|0; --sp');
 cases = ReplaceAll(cases, 'tos = (*sp--) - tos', 'tos = (*sp - tos)|0; --sp');
 cases = ReplaceAll(cases, 'tos *= *sp--', 'tos = imul(tos, *sp); --sp');
+cases = ReplaceAll(cases, '(((ucell_t) *sp) >> tos)', 'i32[sp>>2]>>>tos');
 cases = ReplaceAll(cases, '*((cell_t *) tos) += *sp--',
                           'i32[tos>>2] = ((i32[tos>>2]|0) + (i32[sp>>2]|0))|0; --sp');
 cases = ReplaceAll(cases, ' -tos', ' (-tos)|0');