Browse Source

* optimizer files fixed

florian 20 years ago
parent
commit
2b67164568
3 changed files with 25 additions and 8 deletions
  1. 7 2
      compiler/arm/aoptcpu.pas
  2. 11 3
      compiler/arm/aoptcpub.pas
  3. 7 3
      compiler/arm/aoptcpud.pas

+ 7 - 2
compiler/arm/aoptcpu.pas

@@ -25,12 +25,14 @@
 
 Unit aoptcpu;
 
+{$i fpcdefs.inc}
+
 Interface
 
 uses cpubase, aoptobj, aoptcpub;
 
 Type
-  TAOptCpu = Object(TAoptObj)
+  TAOptCpu = class(TAoptObj)
     { uses the same constructor as TAopObj }
   End;
 
@@ -39,7 +41,10 @@ Implementation
 End.
 {
  $Log$
- Revision 1.1  2005-02-20 19:11:04  florian
+ Revision 1.2  2005-02-20 19:36:03  florian
+   * optimizer files fixed
+
+ Revision 1.1  2005/02/20 19:11:04  florian
    * initial commit
 
  Revision 1.6  2005/02/14 17:13:10  peter

+ 11 - 3
compiler/arm/aoptcpub.pas

@@ -24,6 +24,8 @@
 }
 Unit aoptcpub; { Assembler OPTimizer CPU specific Base }
 
+{$i fpcdefs.inc}
+
 { enable the following define if memory references can have both a base and }
 { index register in 1 operand                                               }
 
@@ -41,7 +43,7 @@ Unit aoptcpub; { Assembler OPTimizer CPU specific Base }
 Interface
 
 Uses
-  aasmcpu,AOptBase;
+  cpubase,aasmcpu,AOptBase;
 
 Type
 
@@ -62,7 +64,7 @@ Type
 { **************************** TAoptBaseCpu ******************************* }
 { ************************************************************************* }
 
-  TAoptBaseCpu = Object(TAoptBase)
+  TAoptBaseCpu = class(TAoptBase)
   End;
 
 
@@ -100,6 +102,9 @@ Const
 
   StoreDst = 1;
 
+  aopt_uncondjmp = A_B;
+  aopt_condjmp = A_B;
+    
 Implementation
 
 { ************************************************************************* }
@@ -117,7 +122,10 @@ End.
 
 {
  $Log$
- Revision 1.1  2005-02-20 19:11:04  florian
+ Revision 1.2  2005-02-20 19:36:03  florian
+   * optimizer files fixed
+
+ Revision 1.1  2005/02/20 19:11:04  florian
    * initial commit
 
  Revision 1.7  2005/02/14 17:13:10  peter

+ 7 - 3
compiler/arm/aoptcpud.pas

@@ -24,14 +24,15 @@
 }
 Unit aoptcpud;
 
+{$i fpcdefs.inc}
+
 Interface
 
 uses
   AOptDA;
 
 Type
-  PAOptDFACpu = ^TAOptDFACpu;
-  TAOptDFACpu = Object(TAOptDFA)
+  TAOptDFACpu = class(TAOptDFA)
   End;
 
 Implementation
@@ -41,7 +42,10 @@ End.
 
 {
   $Log$
-  Revision 1.1  2005-02-20 19:11:04  florian
+  Revision 1.2  2005-02-20 19:36:03  florian
+    * optimizer files fixed
+
+  Revision 1.1  2005/02/20 19:11:04  florian
     * initial commit
 
   Revision 1.6  2005/02/14 17:13:10  peter