mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 09:46:12 +02:00
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:
parent
ebe4d4cf13
commit
3916bcba38
@ -274,8 +274,9 @@ unit cgcpu;
|
|||||||
begin
|
begin
|
||||||
load_para_loc(r,hp);
|
load_para_loc(r,hp);
|
||||||
|
|
||||||
for i2:=1 to tcgsize2size[hp^.Size] do
|
if i<tcgsize2size[cgpara.Size] then
|
||||||
r:=GetNextReg(r);
|
for i2:=1 to tcgsize2size[hp^.Size] do
|
||||||
|
r:=GetNextReg(r);
|
||||||
|
|
||||||
hp:=hp^.Next;
|
hp:=hp^.Next;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user