paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 22:48:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced TAOptBase.RegistersInterfere (which might not always be equivalent to SuperRegistersEqual)

Browse Source 
git-svn-id: trunk@45339 -
This commit is contained in:
nickysn 2020-05-11 16:00:27 +00:00
parent 4263ff44c1
commit 531cc0ab0d
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/aoptbase.pas
View File

@ -105,6 +105,9 @@ unit aoptbase;
{ compares reg1 and reg2 having the same type and being the same super registers
so the register size is neglected }
class function SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean; static; {$ifdef USEINLINE}inline;{$endif}
{ returns true if changing reg1 changes reg2 or vice versa }
class function RegistersInterfere(reg1,reg2 : TRegister) : Boolean; static; {$ifdef USEINLINE}inline;{$endif}
end;
function labelCanBeSkipped(p: tai_label): boolean; {$ifdef USEINLINE}inline;{$endif}
@ -344,6 +347,16 @@ unit aoptbase;
{$endif Z80}
end;
class function TAOptBase.RegistersInterfere(reg1,reg2 : TRegister) : Boolean; static; {$ifdef USEINLINE}inline;{$endif}
begin
{$ifdef Z80}
result:=registers_interfere(reg1,reg2);
{$else Z80}
result:=SuperRegistersEqual(reg1,reg2);
{$endif Z80}
end;
{ ******************* Processor dependent stuff *************************** }
Function TAOptBase.RegMaxSize(Reg: TRegister): TRegister;