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

* optimize TAOptBase.SuperRegistersEqual

Browse Source 
git-svn-id: trunk@43337 -
This commit is contained in:
florian 2019-10-30 20:07:27 +00:00
parent cfec725195
commit 59d300fc6e
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aoptbase.pas
View File

@ -104,7 +104,7 @@ unit aoptbase;
{ compares reg1 and reg2 having the same type and being the same super registers
so the register size is neglected }
function SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean;
function SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean;{$ifdef USEINLINE}inline;{$endif}
end;
function labelCanBeSkipped(p: tai_label): boolean;
@ -316,10 +316,16 @@ unit aoptbase;
end;
function TAOptBase.SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean;
function TAOptBase.SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean;{$ifdef USEINLINE}inline;{$endif}
Begin
Result:=(getregtype(reg1) = getregtype(reg2)) and
(getsupreg(reg1) = getsupreg(Reg2));
{ Do an optimized version of
Result:=(getregtype(reg1) = getregtype(reg2)) and
(getsupreg(reg1) = getsupreg(Reg2));
as SuperRegistersEqual is used a lot
}
Result:=(DWord(reg1) and $ff00ffff)=(DWord(reg2) and $ff00ffff);
end;
{ ******************* Processor dependent stuff *************************** }