Fix ClassCastException in AnonymousMethodNode::getStatementBlock

cirras · cirras · commit 88eb3dba9e3e · 2025-02-04T15:42:13.000+11:00
diff --git a/delphi-frontend/src/main/java/au/com/integradev/delphi/antlr/ast/node/AnonymousMethodNodeImpl.java b/delphi-frontend/src/main/java/au/com/integradev/delphi/antlr/ast/node/AnonymousMethodNodeImpl.java
@@ -101,7 +101,7 @@ public boolean isProcedure() {
 
   @Override
   public CompoundStatementNode getStatementBlock() {
-    return (CompoundStatementNode) getChild(1);
+    return getFirstChildOfType(CompoundStatementNode.class);
   }
 
   @Override

Original file line number	Diff line number	Diff line change
`@@ -101,7 +101,7 @@ public boolean isProcedure() {`
`101`	`101`
`102`	`102`	`@Override`
`103`	`103`	`public CompoundStatementNode getStatementBlock() {`
`104`		`- return (CompoundStatementNode) getChild(1);`
	`104`	`+ return getFirstChildOfType(CompoundStatementNode.class);`
`105`	`105`	`}`
`106`	`106`
`107`	`107`	`@Override`