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

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

Browse Source 
git-svn-id: trunk@42159 -
This commit is contained in:
Jeppe Johansen 2019-06-02 09:13:19 +00:00
parent cba4aeaca5
commit 5bdc635f50
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/avr/cgcpu.pas
View File

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