Changeset 230 for branches/xpascal/Optimizer.pas

Timestamp:

Jun 26, 2023, 12:08:45 PM (17 months ago)

Author:

chronos

Message:

• Added: Var function parameters support.
• Added: Read and ReadLn procedures support.
• Added: Interpreter now prints into console form.

File:

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

branches/xpascal/Optimizer.pas

@@ -14 +14 @@
   TOptimizer = class
   private
-    procedure OptimizeNodes(SourceNodes: TSourceNodes; out NewNode: TSourceNode);
+    procedure OptimizeNodes(SourceNodes: TSourceNodeList<TSourceNode>; out NewNode: TSourceNode);
     procedure OptimizeNode(SourceNode: TSourceNode; out NewNode: TSourceNode);
   public
@@ -24 +24 @@
 implementation
 
+resourcestring
+  SUnsupportedNodeType = 'Unsupported node type';
+
 { TOptimizer }
 
-procedure TOptimizer.OptimizeNodes(SourceNodes: TSourceNodes; out
+procedure TOptimizer.OptimizeNodes(SourceNodes: TSourceNodeList<TSourceNode>; out
   NewNode: TSourceNode);
 var
@@ -38 +41 @@
         SourceNodes[I] := TempNewNode;
       end;
-    end else raise Exception.Create('Unsupported node type');
+    end else raise Exception.Create(SUnsupportedNodeType);
   end;
 end;
@@ -56 +59 @@
   if SourceNode = nil then begin
   end else
-  if SourceNode is TSourceNodes then begin
-    OptimizeNodes(TSourceNodes(SourceNode), NewNode)
+  if SourceNode is TSourceNodeList<TSourceNode> then begin
+    OptimizeNodes(TSourceNodeList<TSourceNode>(SourceNode), NewNode)
   end else
   if (ofReplaceRepeatUntilByWhileDo in Features) and (SourceNode is TRepeatUntil) then begin
@@ -109 +112 @@
     end;
   end else
-    raise Exception.Create('Unsupported node type');
+    raise Exception.Create(SUnsupportedNodeType);
 end;