aboutsummaryrefslogtreecommitdiff
path: root/Sil
diff options
context:
space:
mode:
authorCamil Staps2017-07-29 00:09:54 +0200
committerCamil Staps2017-07-29 00:09:54 +0200
commit03e2887e46a8b84f73037583945ce80b0682d057 (patch)
treefb93c51d51a5d53270f10df4b81769f25bc93e82 /Sil
parentAdd globals on A-stack (diff)
Fix lazy operators
Diffstat (limited to 'Sil')
-rw-r--r--Sil/Compile.icl2
1 files changed, 2 insertions, 0 deletions
diff --git a/Sil/Compile.icl b/Sil/Compile.icl
index 0d5a3f2..fab7643 100644
--- a/Sil/Compile.icl
+++ b/Sil/Compile.icl
@@ -508,6 +508,7 @@ where
storeStackOffsets *>
gen e1 *>
tell [ 'ABC'.JmpTrue true ] *>
+ shrinkStack {zero & bsize=1} *>
gen e2 *>
tell [ 'ABC'.Jmp end ] *>
restoreStackOffsets *>
@@ -523,6 +524,7 @@ where
storeStackOffsets *>
gen e1 *>
tell [ 'ABC'.JmpFalse false ] *>
+ shrinkStack {zero & bsize=1} *>
gen e2 *>
tell [ 'ABC'.Jmp end ] *>
restoreStackOffsets *>