paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 00:24:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

arm paramanager: always create at least one paraloc

Browse Source 
Even for parameters of 0 bytes. Matches behaviour on other targets.
This commit is contained in:
Jonas Maebe 2022-06-13 22:51:14 +02:00
parent dfe78668c2
commit 03a961709b
1 changed files with 178 additions and 179 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/cpupara.pas
View File

@ -492,8 +492,7 @@ unit cpupara;
if paralen=0 then
internalerror(200410311);
{$endif EXTDEBUG}
while paralen>0 do
begin
repeat
paraloc:=hp.paraloc[side].add_location;
case loc of
LOC_REGISTER:
@ -678,7 +677,7 @@ unit cpupara;
end;
dec(paralen,tcgsize2size[paraloc^.size]);
firstparaloc:=false
end;
until paralen<=0;
end;
curintreg:=nextintreg;
curfloatreg:=nextfloatreg;