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

* New UpdateUsedRegsBetween utility subroutine

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-01-07 08:43:41 +00:00 committed by FPK
parent 95e5eeb226
commit 9ee672f9eb
1 changed files with 19 additions and 0 deletions

19
compiler/aoptobj.pas
View File

@ -274,6 +274,10 @@ Unit AoptObj;
Procedure UpdateUsedRegs(p : Tai);
class procedure UpdateUsedRegs(var Regs: TAllUsedRegs; p: Tai); static;
{ UpdateUsedRegsBetween updates the given TUsedRegs from p1 to p2 exclusive, calling GetNextInstruction
to move between instructions and sending p1.Next to UpdateUsedRegs }
class procedure UpdateUsedRegsBetween(var Regs: TAllUsedRegs; p1, p2: Tai); static;
{ If UpdateUsedRegsAndOptimize has read ahead, the result is one before
the next valid entry (so "p.Next" returns what's expected). If no
reading ahead happened, then the result is equal to p. }
@ -1118,6 +1122,21 @@ Unit AoptObj;
end;
class procedure TAOptObj.UpdateUsedRegsBetween(var Regs: TAllUsedRegs; p1, p2: Tai); static;
var
i : TRegisterType;
begin
while (p1 <> p2) do
begin
for i:=low(TRegisterType) to high(TRegisterType) do
Regs[i].Update(tai(p1.Next));
if not GetNextInstruction(p1, p1) then
InternalError(2022010701);
end;
end;
function TAOptObj.CopyUsedRegs(var dest: TAllUsedRegs): boolean;
var
i : TRegisterType;