paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed missing cgutils usage

Browse Source
This commit is contained in:
florian 2004-11-03 17:51:58 +00:00
parent 1cf9137930
commit 054f6bff3a
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aoptbase.pas
View File

@ -30,7 +30,8 @@ unit aoptbase;
uses
aasmbase,aasmcpu,aasmtai,
cpubase,
cgbase;
cgbase,
cgutils;
Type
{ the number of tai objects processed by an optimizer object since the last
@ -258,7 +259,10 @@ end.
{
$Log$
Revision 1.9 2004-10-31 21:45:02 peter
Revision 1.10 2004-11-03 17:51:58 florian
* fixed missing cgutils usage
Revision 1.9 2004/10/31 21:45:02 peter
* generic tlocation
* move tlocation to cgutils

15
compiler/aoptobj.pas
View File

@ -35,9 +35,9 @@ Unit AoptObj;
globtype,
aasmbase,aasmcpu,aasmtai,
cclasses,
cgbase,
cgbase,cgutils,
cpubase,
aoptbase, aoptcpub, aoptda;
aoptbase,aoptcpub,aoptda;
{ ************************************************************************* }
{ ********************************* Constants ***************************** }
@ -57,7 +57,7 @@ Unit AoptObj;
{ ************************************************************************* }
{ ************************* Some general type definitions ***************** }
{ ************************************************************************* }
TRefCompare = Function(const r1, r2: TReference): Boolean;
TRefCompare = Function(r1, r2: TReference): Boolean;
//!!! FIXME
TRegArray = Array[byte] of tsuperregister;
TRegSet = Set of byte;
@ -712,7 +712,7 @@ Unit AoptObj;
(Counter <= Content.NrOfMods) Do
Begin
If (p.typ = ait_instruction) And
RefInInstruction(Ref, p, {$ifdef fpc}@{$endif}RefsEqual)
RefInInstruction(Ref, p, {$ifdef fpc}@{$endif}references_equal)
Then TmpResult := True;
Inc(Counter);
GetNextInstruction(p,p)
@ -806,7 +806,7 @@ Unit AoptObj;
Top_Reg :
OpsEqual:=o1.reg=o2.reg;
Top_Ref :
OpsEqual := RefsEqual(o1.ref^, o2.ref^);
OpsEqual := references_equal(o1.ref^, o2.ref^);
Top_Const :
OpsEqual:=o1.val=o2.val;
Top_None :
@ -1085,7 +1085,10 @@ End.
{
$Log$
Revision 1.13 2004-10-31 21:45:02 peter
Revision 1.14 2004-11-03 17:51:58 florian
* fixed missing cgutils usage
Revision 1.13 2004/10/31 21:45:02 peter
* generic tlocation
* move tlocation to cgutils