From 82dce2dd539e61267748360969edcc3c8999fb54 Mon Sep 17 00:00:00 2001
From: Irmen de Jong <irmen@razorvine.net>
Date: Thu, 19 Mar 2020 22:45:27 +0100
Subject: [PATCH] added Foreverloop statement to the ast simulator

---
 compiler/src/prog8/vm/astvm/AstVm.kt | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/compiler/src/prog8/vm/astvm/AstVm.kt b/compiler/src/prog8/vm/astvm/AstVm.kt
index 87ebf0cf5..70e1fe189 100644
--- a/compiler/src/prog8/vm/astvm/AstVm.kt
+++ b/compiler/src/prog8/vm/astvm/AstVm.kt
@@ -543,6 +543,17 @@ class AstVm(val program: Program, compilationTarget: String) {
                     }
                 }
             }
+            is ForeverLoop -> {
+                while(true) {
+                    try {
+                        executeAnonymousScope(stmt.body)
+                    } catch (b: LoopControlBreak) {
+                        break
+                    } catch (c: LoopControlContinue) {
+                        continue
+                    }
+                }
+            }
             else -> {
                 TODO("astvm implement statement $stmt")
             }