Changeset 208 for branches/interpreter2/UOptimizer.pas

Timestamp:

Apr 22, 2020, 12:02:17 AM (5 years ago)

Author:

chronos

Message:

• Modified: Implemented generic access to fields in source tree.
• Added: Generator to XML.

File:

• branches/interpreter2/UOptimizer.pas (modified) (2 diffs)

branches/interpreter2/UOptimizer.pas

@@ -46 +46 @@
   WhileDo: TWhileDo;
   Condition: TIfThenElse;
+  Field: TField;
+  Obj: TObject;
 begin
   NewNode := nil;
@@ -73 +75 @@
   end else
   if SourceNode is TSourceNode then begin
-    for I := 0 to SourceNode.NodesCount - 1 do begin
-      OptimizeNode(TSourceNode(SourceNode.Nodes[I]), NewNode);
-      if Assigned(NewNode) and (NewNode <> TSourceNode(SourceNode.Nodes[I])) then begin
-        SourceNode.Nodes[I] := NewNode;
+    for I := 0 to SourceNode.FieldsCount - 1 do begin
+      Field := SourceNode.GetField(I);
+      if Field.DataType = dtObject then begin
+        SourceNode.GetValue(I, Obj);
+        if Obj is TSourceNode then begin
+          OptimizeNode(TSourceNode(Obj), NewNode);
+          if Assigned(NewNode) and (NewNode <> TSourceNode(Obj)) then begin
+            SourceNode.SetValueObject(I, NewNode);
+          end;
+        end;
       end;
+      Field.Free;
     end;
   end else