mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 00:09:25 +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
|
||||
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;
|
||||
|
Loading…
Reference in New Issue
Block a user