From 2b67164568dc28b1b11f88fe78248db8d063df1a Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 20 Feb 2005 19:36:03 +0000 Subject: [PATCH] * optimizer files fixed --- compiler/arm/aoptcpu.pas | 9 +++++++-- compiler/arm/aoptcpub.pas | 14 +++++++++++--- compiler/arm/aoptcpud.pas | 10 +++++++--- 3 files changed, 25 insertions(+), 8 deletions(-) diff --git a/compiler/arm/aoptcpu.pas b/compiler/arm/aoptcpu.pas index bcfae7fd0b..a9c1055b48 100644 --- a/compiler/arm/aoptcpu.pas +++ b/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 diff --git a/compiler/arm/aoptcpub.pas b/compiler/arm/aoptcpub.pas index 7c8cdc926a..b51ea15123 100644 --- a/compiler/arm/aoptcpub.pas +++ b/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 diff --git a/compiler/arm/aoptcpud.pas b/compiler/arm/aoptcpud.pas index 3ba87b54d2..68a1b0b116 100644 --- a/compiler/arm/aoptcpud.pas +++ b/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