kiss-lang/kiss
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

AsyncEmbeddedScript2 use tail recursion for stack management

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-08-19 14:18:16 -06:00
parent 636f332bc5
commit 4478327fa8
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/kiss/AsyncEmbeddedScript2.hx
View File

@@ -167,10 +167,7 @@ class AsyncEmbeddedScript2 {
public var running(default, null):Bool = false;
public var unwindStack(default, default):Bool = false;
public var alwaysUnwindStack(default, default):Bool = false;
private function runInstruction(instructionPointer:Int, withBreakPoints = true) {
private function runInstruction(instructionPointer:Int, withBreakPoints = true):Void {
running = true;
var skipping = false;
if (skipTarget != null) {
@@ -190,21 +187,19 @@ class AsyncEmbeddedScript2 {
onBreak(this, false, () -> runInstruction(instructionPointer, false));
}
}
var tryCallNextWithTailRecursion = false;
var nextCalledWithTailRecursion = false;
var continuation = if (instructionPointer < instructions.length - 1) {
() -> {
// runInstruction may be called externally to skip through the script.
// When this happens, make sure other scheduled continuations are canceled
// by verifying that lastInstructionPointer hasn't changed
if (lastInstructionPointer == instructionPointer) {
if (unwindStack || alwaysUnwindStack) {
haxe.Timer.delay(()->{runInstruction(instructionPointer + 1, withBreakPoints);}, 0);
if (!alwaysUnwindStack)
unwindStack = false;
return;
}
else {
runInstruction(instructionPointer + 1, withBreakPoints);
}
tryCallNextWithTailRecursion = true;
haxe.Timer.delay(()->{
if (!nextCalledWithTailRecursion)
runInstruction(instructionPointer + 1, withBreakPoints);
}, 0);
}
};
} else {
@@ -215,6 +210,11 @@ class AsyncEmbeddedScript2 {
} else {
instructions[instructionPointer](this, skipping, continuation);
}
if (tryCallNextWithTailRecursion) {
nextCalledWithTailRecursion = true;
runInstruction(instructionPointer + 1, withBreakPoints);
}
}
public function run(withBreakPoints = true) {