paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 09:51:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* optimizer files fixed

Browse Source
This commit is contained in:
florian 2005-02-20 19:36:03 +00:00
parent 871fd8d2b8
commit 2b67164568
3 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/arm/aoptcpu.pas
View File

@ -25,12 +25,14 @@
Unit aoptcpu; Unit aoptcpu;
{$i fpcdefs.inc}
Interface Interface
uses cpubase, aoptobj, aoptcpub; uses cpubase, aoptobj, aoptcpub;
Type Type
TAOptCpu = Object(TAoptObj) TAOptCpu = class(TAoptObj)
{ uses the same constructor as TAopObj } { uses the same constructor as TAopObj }
End; End;
@ -39,7 +41,10 @@ Implementation
End. End.
{ {
$Log$ $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 * initial commit
Revision 1.6 2005/02/14 17:13:10 peter Revision 1.6 2005/02/14 17:13:10 peter

14
compiler/arm/aoptcpub.pas
View File

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

10
compiler/arm/aoptcpud.pas
View File

@ -24,14 +24,15 @@
} }
Unit aoptcpud; Unit aoptcpud;
{$i fpcdefs.inc}
Interface Interface
uses uses
AOptDA; AOptDA;
Type Type
PAOptDFACpu = ^TAOptDFACpu; TAOptDFACpu = class(TAOptDFA)
TAOptDFACpu = Object(TAOptDFA)
End; End;
Implementation Implementation
@ -41,7 +42,10 @@ End.
{ {
$Log$ $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 * initial commit
Revision 1.6 2005/02/14 17:13:10 peter Revision 1.6 2005/02/14 17:13:10 peter