Changeset 64 for trunk/UCore.pas

Timestamp:

Dec 4, 2014, 2:59:28 PM (10 years ago)

Author:

chronos

Message:

• Modified: Now commands cmInc, cmDec, cmPointerInc, cmPointerDec and cmSet use numeric parameter to merge multiple small steps to one unary operation with numeric parameter. Optimization is done on TTarget side and not on each specific targets.
• Added: Optimization to eliminate redundant source code.
• Added: Optimization level option in Options dialog.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -25 +25 @@
     Targets: TTargetList;
     OpenProjectOnStart: Boolean;
+    OptimizationLevel: TCompilerOptimization;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
@@ -80 +81 @@
       ReadIntegerWithDefault('DPIY', 96));
     ScaleDPI.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
+    OptimizationLevel := TCompilerOptimization(ReadIntegerWithDefault('OptimizationLevel', Integer(coNormal)));
   finally
     Free;
@@ -99 +101 @@
     WriteInteger('DPIX', ScaleDPI.DPI.X);
     WriteInteger('DPIY', ScaleDPI.DPI.Y);
+    WriteInteger('OptimizationLevel', Integer(OptimizationLevel));
     if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
       WriteString('LanguageCode', CoolTranslator1.Language.Code)