Changeset 91 for trunk/UBFTarget.pas

Timestamp:

Jul 20, 2018, 9:41:37 AM (6 years ago)

Author:

chronos

Message:

• Added: Allow to enable individual code optimization from settings dialog.
• Added: Actions to format or shrink target BF code.

File:

• trunk/UBFTarget.pas (modified) (5 diffs)

trunk/UBFTarget.pas

@@ -17 +17 @@
     Parameter: Integer;
     RelIndex: Integer;
+  end;
+
+  TOptimizations = record
+    AddSub: Boolean;
+    Merge: Boolean;
+    RelativeIndexes: Boolean;
+    CopyMultiply: Boolean;
   end;
 
@@ -39 +46 @@
     MemoryMaxUsed: Integer;
     CellSize: Integer;
+    Optimizations: TOptimizations;
     constructor Create; override;
     procedure OptimizeSource; override;
@@ -259 +267 @@
 procedure TBFTarget.OptimizeZeroInitMemory;
 begin
-  // Here optimization related to assumption that initial memory is filled with zeroes
+  // Here Optimizations related to assumption that initial memory is filled with zeroes
   // Then code for constants preparation can be translated to cmSet commands
   // To eliminate also loops for building constants code need to be somehow interpretted partialy
@@ -516 +524 @@
 begin
   inherited;
-  OptimizeAddSub;
+  if Optimizations.AddSub then OptimizeAddSub;
+  if Optimizations.Merge then
   repeat
     OldLength := Length(FProgram);
@@ -522 +531 @@
   until Length(FProgram) = OldLength;
   OptimizeZeroInitMemory;
-  OptimizeRelativeIndexes;
-  OptimizeCopyMultiply;
+  if Optimizations.RelativeIndexes then OptimizeRelativeIndexes;
+  if Optimizations.CopyMultiply then OptimizeCopyMultiply;
 end;