AST list refactoring

2026-01-04 22:41:44 +01:00
parent 2a7e6626ad
commit 242ec9a56e
27 changed files with 815 additions and 1076 deletions
@@ -119,7 +119,7 @@ begin
    if Node.Kind = akBlockExpression then
    begin
        block := Node.AsBlockExpression;
-        for child in block.Expressions do
+        for child in block.Expressions.ToArray do
        begin
            Result := FindFirstVarName(child);
            if Result <> '' then