Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-03 19:16:13 +00:00
Code Issues Projects Releases Wiki Activity

fix internal error in on..call

Browse Source
This commit is contained in:
Irmen de Jong
2025-09-08 19:30:32 +02:00
parent e178097735
commit d9ff1eb38a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
compilerAst/src/prog8/ast/statements/AstStatements.kt
View File

@@ -1413,7 +1413,7 @@ class DirectMemoryWrite(var addressExpression: Expression, override val position
class OnGoto( class OnGoto(
val isCall: Boolean, val isCall: Boolean,
val index: Expression, var index: Expression,
val labels: List<IdentifierReference>, val labels: List<IdentifierReference>,
val elsepart: AnonymousScope?, val elsepart: AnonymousScope?,
override val position: Position override val position: Position
@@ -1433,6 +1433,7 @@ class OnGoto(
override fun accept(visitor: IAstVisitor) = visitor.visit(this) override fun accept(visitor: IAstVisitor) = visitor.visit(this)
override fun accept(visitor: AstWalker, parent: Node) = visitor.visit(this, parent) override fun accept(visitor: AstWalker, parent: Node) = visitor.visit(this, parent)
override fun replaceChildNode(node: Node, replacement: Node) { override fun replaceChildNode(node: Node, replacement: Node) {
throw FatalAstException("can't replace") if (node === index) index = replacement as Expression
else throw FatalAstException("can't replace")
} }
} }