Changeset 232 for branches/xpascal/Optimizer.pas

Timestamp:

Jun 26, 2023, 12:51:06 PM (17 months ago)

Author:

chronos

Message:

• Fixed: Generation of var function parameters.

File:

• branches/xpascal/Optimizer.pas (modified) (2 diffs)

branches/xpascal/Optimizer.pas

@@ -55 +55 @@
   Obj: TObject;
   TempNewNode: TSourceNode;
+  ListValue: TSourceNodeList<TSourceNode>;
 begin
   NewNode := nil;
-  if SourceNode = nil then begin
-  end else
-  if SourceNode is TSourceNodeList<TSourceNode> then begin
-    OptimizeNodes(TSourceNodeList<TSourceNode>(SourceNode), NewNode)
-  end else
   if (ofReplaceRepeatUntilByWhileDo in Features) and (SourceNode is TRepeatUntil) then begin
     WhileDo := TWhileDo.Create;
@@ -113 +109 @@
   end else
     raise Exception.Create(SUnsupportedNodeType);
+
+  for I := 0 to SourceNode.FieldsCount - 1 do begin
+    Field := SourceNode.GetField(I);
+    if Field.DataType = dtList then begin
+      SourceNode.GetValue(I, ListValue);
+      OptimizeNodes(TSourceNodeList<TSourceNode>(ListValue), NewNode)
+    end;
+  end;
 end;