ITupleNode signature change

This commit is contained in:
Michael Schimmel
2026-01-06 11:37:18 +01:00
parent 264314cd93
commit 40ed51aef8
23 changed files with 340 additions and 270 deletions
+8 -4
View File
@@ -127,12 +127,14 @@ var
i: Integer;
item, transformed: IAstNode;
list: TList<IAstNode>;
elements: TArray<IAstNode>;
begin
list := TList<IAstNode>.Create;
try
for i := 0 to Source.Count - 1 do
elements := Source.Elements;
for i := 0 to High(elements) do
begin
item := Source.Items[i];
item := elements[i];
transformed := Accept(item);
if Assigned(transformed) then
list.Add(transformed);
@@ -335,14 +337,16 @@ var
item, transformed: IAstNode;
i: Integer;
hasChanged: Boolean;
elements: TArray<IAstNode>;
begin
T := Node.AsTuple;
list := TList<IAstNode>.Create;
hasChanged := False;
try
for i := 0 to T.Count - 1 do
elements := T.Elements;
for i := 0 to High(elements) do
begin
item := T.Items[i];
item := elements[i];
transformed := Accept(item);
if transformed <> item then