From 36b8695bf69cd4f3aa7a41cebb7f48d5be394c8e Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Thu, 21 Jan 2021 14:49:18 +0700
Subject: [PATCH] Fix compilation error from dead store removal. (#266)

In commit 6f7ec059bc763d49c753adea70d5cc337f9e353c, we removed
some dead stores. This broke compilation when `STACKCHECK` was
enabled.

Closes Interlisp/medley#162.
---
 src/llstk.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/llstk.c b/src/llstk.c
index f2a3598..947432f 100644
--- a/src/llstk.c
+++ b/src/llstk.c
@@ -335,7 +335,7 @@ SCAN:
     case STK_FX:
       scanptr68k = (StackWord *)Addr68k_from_StkOffset(((FX *)scanptr68k)->nextblock);
       break;
-    default:
+    default: {
 #ifdef STACKCHECK
       StackWord *orig68k = scanptr68k;
 #endif
@@ -360,7 +360,7 @@ SCAN:
       /* Used to be a +=, but SunOS4/Sparc compiles it wrong */
       scanptr68k = (StackWord *)((DLword *)scanptr68k + DLWORDSPER_CELL);
       break;
-
+    }
   } /* end switch(scanptr68k */
 
 NEXT: