Changeset 232 for branches/xpascal/Generators/GeneratorXml.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Generation of var function parameters.

File:

• branches/xpascal/Generators/GeneratorXml.pas (modified) (2 diffs)

branches/xpascal/Generators/GeneratorXml.pas

@@ -42 +42 @@
   Field: TField;
   Obj: TObject;
+  List: TSourceNodeList<TSourceNode>;
 begin
-  if SourceNode = nil then begin
-  end else
-  if SourceNode is TSourceNodeList<TSourceNode> then begin
-    GenerateNodes(TSourceNodeList<TSourceNode>(SourceNode))
-  end else
   if SourceNode is TSourceNode then begin
     AddTextLine('<' + SourceNode.ClassName + '>');
@@ -57 +53 @@
         if Obj is TSourceNode then
           GenerateNode(TSourceNode(Obj));
+      end else
+      if Field.DataType = dtList then begin
+        SourceNode.GetValue(I, List);
+        GenerateNodes(List);
       end else
       if Field.DataType = dtString then begin