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

+ RegUsedBetween

Browse Source 
git-svn-id: trunk@22182 -
This commit is contained in:
florian 2012-08-22 19:50:55 +00:00
parent 4dee21c60e
commit 0c08ae8553
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aoptbase.pas
View File

@ -89,6 +89,8 @@ unit aoptbase;
{ create a paicpu Object that loads the contents of reg1 into reg2 }
Function a_load_reg_reg(reg1, reg2: TRegister): taicpu; Virtual; Abstract;
{ returns true if reg is used by any instruction between p1 and p2 }
Function RegUsedBetween(reg: TRegister; p1, p2: tai): Boolean;
end;
function labelCanBeSkipped(p: tai_label): boolean;
@ -241,6 +243,18 @@ unit aoptbase;
End;
Function TAOptBase.RegUsedBetween(reg : TRegister;p1,p2 : tai) : Boolean;
Begin
Result:=false;
while assigned(p1) and assigned(p2) and GetNextInstruction(p1,p1) and (p1<>p2) do
if RegInInstruction(reg,p1) then
begin
Result:=true;
exit;
end;
end;
{ ******************* Processor dependent stuff *************************** }
Function TAOptBase.RegMaxSize(Reg: TRegister): TRegister;