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

* FindRegAllocBackward will now return nil if it hits a dealloc for the register first

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-03-06 11:50:12 +00:00 committed by FPK
parent 1fafcbc125
commit d7d4b446c1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aoptobj.pas
View File

@ -1387,10 +1387,11 @@ Unit AoptObj;
If Assigned(StartPai) And If Assigned(StartPai) And
(StartPai.typ = ait_regAlloc) Then (StartPai.typ = ait_regAlloc) Then
Begin Begin
if (tai_regalloc(StartPai).ratype=ra_alloc) and if SuperRegistersEqual(tai_regalloc(StartPai).Reg,Reg) then
SuperRegistersEqual(tai_regalloc(StartPai).Reg,Reg) then
begin begin
Result:=tai_regalloc(StartPai); { If we find a dealloc first, say, return nil }
if (tai_regalloc(StartPai).ratype<>ra_dealloc) then
Result:=tai_regalloc(StartPai);
exit; exit;
end; end;
StartPai := Tai(StartPai.Previous); StartPai := Tai(StartPai.Previous);