Fix bug in web +!.

2022-07-17 01:19:00 -07:00
parent f0fea679d5
commit 4789a2a3a2
2 changed files with 3 additions and 1 deletions
--- a/common/tier1_opcodes.h
+++ b/common/tier1_opcodes.h
@ -41,7 +41,7 @@
  X("2/", TWOSLASH, tos = tos >> 1) \
  X("4*", FOURSTAR, tos = tos << 2) \
  X("4/", FOURSLASH, tos = tos >> 2) \
-  X("+!", PLUSSTORE, *(cell_t *) tos += *sp--; DROP) \
+  X("+!", PLUSSTORE, *((cell_t *) tos) += *sp--; DROP) \
  X("cell+", CELLPLUS, tos += sizeof(cell_t)) \
  Y(cells, tos *= sizeof(cell_t)) \
  X("cell/", CELLSLASH, DUP; tos = sizeof(cell_t); DUP; *sp = 1; SSMOD_FUNC; NIP) \