From ad2b1fb27850fc8b70d1651125381ec8102bda8f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 2 Dec 1999 11:26:41 +0000
Subject: [PATCH]   * newoptimizations define added

---
 compiler/cpubase.pas  | 13 ++++++++++++-
 compiler/csopt386.pas | 12 +++++++++++-
 compiler/daopt386.pas | 12 +++++++++++-
 compiler/popt386.pas  | 12 +++++++++++-
 4 files changed, 45 insertions(+), 4 deletions(-)

diff --git a/compiler/cpubase.pas b/compiler/cpubase.pas
index 0fd7e1c867..3619a876ea 100644
--- a/compiler/cpubase.pas
+++ b/compiler/cpubase.pas
@@ -25,6 +25,14 @@
  ****************************************************************************
 }
 unit cpubase;
+
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 interface
 {$ifdef TP}
   {$L-,Y-}
@@ -887,7 +895,10 @@ end;
 end.
 {
   $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
     * hcogegen -> cgbase fixes for newcg
 
diff --git a/compiler/csopt386.pas b/compiler/csopt386.pas
index 1660b3f7d4..a181a76af2 100644
--- a/compiler/csopt386.pas
+++ b/compiler/csopt386.pas
@@ -22,6 +22,13 @@
 }
 Unit CSOpt386;
 
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 Interface
 
 Uses aasm;
@@ -1054,7 +1061,10 @@ End.
 
 {
  $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
      taken into account
 
diff --git a/compiler/daopt386.pas b/compiler/daopt386.pas
index a3a4c83ed1..131a84d54d 100644
--- a/compiler/daopt386.pas
+++ b/compiler/daopt386.pas
@@ -28,6 +28,13 @@
 
 Unit DAOpt386;
 
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 Interface
 
 Uses
@@ -1936,7 +1943,10 @@ End.
 
 {
  $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!
 
  Revision 1.72  1999/11/21 13:06:30  jonas
diff --git a/compiler/popt386.pas b/compiler/popt386.pas
index df971f9cf7..f81c1b3189 100644
--- a/compiler/popt386.pas
+++ b/compiler/popt386.pas
@@ -22,6 +22,13 @@
 }
 Unit POpt386;
 
+{$ifdef newOptimizations}
+{$define foropt}
+{$define replacereg}
+{$define arithopt}
+{$define foldarithops}
+{$endif newOptimizations}
+
 Interface
 
 Uses Aasm;
@@ -1728,7 +1735,10 @@ End.
 
 {
  $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
 
  Revision 1.71  1999/11/27 23:47:55  jonas