Browse Source

* newoptimizations define added

peter 26 years ago
parent
commit
ad2b1fb278
4 changed files with 45 additions and 4 deletions
  1. 12 1
      compiler/cpubase.pas
  2. 11 1
      compiler/csopt386.pas
  3. 11 1
      compiler/daopt386.pas
  4. 11 1
      compiler/popt386.pas

+ 12 - 1
compiler/cpubase.pas

@@ -25,6 +25,14 @@
  ****************************************************************************
  ****************************************************************************
 }
 }
 unit cpubase;
 unit cpubase;
+
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 interface
 interface
 {$ifdef TP}
 {$ifdef TP}
   {$L-,Y-}
   {$L-,Y-}
@@ -887,7 +895,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.17  1999-11-09 23:06:45  peter
+  Revision 1.18  1999-12-02 11:26:41  peter
+    * newoptimizations define added
+
+  Revision 1.17  1999/11/09 23:06:45  peter
     * esi_offset -> selfpointer_offset to be newcg compatible
     * esi_offset -> selfpointer_offset to be newcg compatible
     * hcogegen -> cgbase fixes for newcg
     * hcogegen -> cgbase fixes for newcg
 
 

+ 11 - 1
compiler/csopt386.pas

@@ -22,6 +22,13 @@
 }
 }
 Unit CSOpt386;
 Unit CSOpt386;
 
 
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 Interface
 Interface
 
 
 Uses aasm;
 Uses aasm;
@@ -1054,7 +1061,10 @@ End.
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.34  1999-11-21 13:09:41  jonas
+ Revision 1.35  1999-12-02 11:26:41  peter
+   * newoptimizations define added
+
+ Revision 1.34  1999/11/21 13:09:41  jonas
    * fixed some missed optimizations because 8bit regs were not always
    * fixed some missed optimizations because 8bit regs were not always
      taken into account
      taken into account
 
 

+ 11 - 1
compiler/daopt386.pas

@@ -28,6 +28,13 @@
 
 
 Unit DAOpt386;
 Unit DAOpt386;
 
 
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 Interface
 Interface
 
 
 Uses
 Uses
@@ -1936,7 +1943,10 @@ End.
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.73  1999-11-27 23:45:43  jonas
+ Revision 1.74  1999-12-02 11:26:41  peter
+   * newoptimizations define added
+
+ Revision 1.73  1999/11/27 23:45:43  jonas
    * even more missing register deallocations are added!
    * even more missing register deallocations are added!
 
 
  Revision 1.72  1999/11/21 13:06:30  jonas
  Revision 1.72  1999/11/21 13:06:30  jonas

+ 11 - 1
compiler/popt386.pas

@@ -22,6 +22,13 @@
 }
 }
 Unit POpt386;
 Unit POpt386;
 
 
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 Interface
 Interface
 
 
 Uses Aasm;
 Uses Aasm;
@@ -1728,7 +1735,10 @@ End.
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.72  1999-11-30 10:40:45  peter
+ Revision 1.73  1999-12-02 11:26:41  peter
+   * newoptimizations define added
+
+ Revision 1.72  1999/11/30 10:40:45  peter
    + ttype, tsymlist
    + ttype, tsymlist
 
 
  Revision 1.71  1999/11/27 23:47:55  jonas
  Revision 1.71  1999/11/27 23:47:55  jonas