Changeset 207 for branches/interpreter2/UFormMain.pas

Timestamp:

Apr 20, 2020, 11:31:59 PM (5 years ago)

Author:

chronos

Message:

• Added: Optimizer class for implementation of various optimizations on AST.
• Added: Transformation of repeat-until loop to while-do loop.

File:

• branches/interpreter2/UFormMain.pas (modified) (7 diffs)

branches/interpreter2/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ACompile: TAction;
+    AOptimize: TAction;
     AExit: TAction;
     ARun: TAction;
@@ -40 +41 @@
     procedure AGeneratePascalExecute(Sender: TObject);
     procedure AGeneratePhpExecute(Sender: TObject);
+    procedure AOptimizeExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
     procedure FormActivate(Sender: TObject);
@@ -66 +68 @@
 uses
   UParser, UExecutor, UGeneratorPascal, UGeneratorPhp, UFormMessages, UFormSource,
-  UGeneratorCSharp;
+  UGeneratorCSharp, UOptimizer;
 
 { TFormMain }
@@ -121 +123 @@
 begin
   ACompile.Execute;
+  AOptimize.Execute;
   MemoOutput.Lines.Clear;
   if Assigned(Prog) then begin
@@ -137 +140 @@
 begin
   ACompile.Execute;
+  AOptimize.Execute;
   MemoOutput.Lines.Clear;
   if Assigned(Prog) then begin
@@ -164 +168 @@
 end;
 
+procedure TFormMain.AOptimizeExecute(Sender: TObject);
+var
+  Optimizer: TOptimizer;
+begin
+  if Assigned(Prog) then begin
+    Optimizer := TOptimizer.Create;
+    Optimizer.Prog := Prog;
+    Optimizer.Optimize;
+    Optimizer.Free;
+  end;
+end;
+
 procedure TFormMain.ARunExecute(Sender: TObject);
 var
@@ -169 +185 @@
 begin
   ACompile.Execute;
+  //AOptimize.Execute;
   MemoOutput.Lines.Clear;
   if Assigned(Prog) then begin