about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--apps/mu.subx6
1 files changed, 3 insertions, 3 deletions
diff --git a/apps/mu.subx b/apps/mu.subx
index 76e7c6f3..f286a3a8 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -6992,7 +6992,7 @@ $parse-mu-block:regular-stmt:
       #
       e9/jump loop/disp32
     } # end line loop
-    (clean-up-blocks *(ebp+0xc) *Curr-block-depth)
+    (clean-up-blocks *(ebp+0xc) *Curr-block-depth *(ebp+0x10))
     # decrement *Curr-block-depth
     ff 1/subop/decrement *Curr-block-depth
     # pop(vars)
@@ -10694,7 +10694,7 @@ $emit-subx-stmt-list:continue:
 $emit-subx-stmt-list:emit-cleanup:
     (emit-cleanup-code-until-depth *(ebp+8) *(ebp+0x10) *Curr-block-depth)
 $emit-subx-stmt-list:clean-up:
-    (clean-up-blocks *(ebp+0x10) *Curr-block-depth)
+    (clean-up-blocks *(ebp+0x10) *Curr-block-depth *(ebp+0x14))
 $emit-subx-stmt-list:end:
     # . restore registers
     5e/pop-to-esi
@@ -11457,7 +11457,7 @@ $same-register-spilled-before?:end:
     c3/return
 
 # clean up global state for 'vars' until some block depth (inclusive)
-clean-up-blocks:  # vars: (addr stack live-var), until-block-depth: int
+clean-up-blocks:  # vars: (addr stack live-var), until-block-depth: int, fn: (addr function)
     # . prologue
     55/push-ebp
     89/<- %ebp 4/r32/esp