Check if the current register was the last in the cgpara, to avoid running over the last register allocated.

git-svn-id: trunk@42159 -
(cherry picked from commit 5bdc635f50)
This commit is contained in:
Jeppe Johansen 2019-06-02 09:13:19 +00:00 committed by florian
parent ebe4d4cf13
commit 3916bcba38

View File

@ -274,8 +274,9 @@ unit cgcpu;
begin
load_para_loc(r,hp);
for i2:=1 to tcgsize2size[hp^.Size] do
r:=GetNextReg(r);
if i<tcgsize2size[cgpara.Size] then
for i2:=1 to tcgsize2size[hp^.Size] do
r:=GetNextReg(r);
hp:=hp^.Next;
end;