paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Short version of the mips code genration bug

Browse Source 
(cherry picked from commit dce70b3b70)
This commit is contained in:
Pierre Muller 2022-10-27 22:48:46 +01:00
parent 56a99d2512
commit 837df925c5
2 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/ncal.pas
View File

@ -4245,15 +4245,25 @@ implementation
procedure tcallnode.check_stack_parameters;
var
hp : tcallparanode;
loc : pcgparalocation;
begin
hp:=tcallparanode(left);
while assigned(hp) do
begin
if assigned(hp.parasym) and
assigned(hp.parasym.paraloc[callerside].location) and
(hp.parasym.paraloc[callerside].location^.loc=LOC_REFERENCE) then
include(current_procinfo.flags,pi_has_stackparameter);
hp:=tcallparanode(hp.right);
if assigned(hp.parasym) then
begin
loc:=hp.parasym.paraloc[callerside].location;
while assigned(loc) do
begin
if loc^.loc=LOC_REFERENCE then
begin
include(current_procinfo.flags,pi_has_stackparameter);
exit;
end;
loc:=loc^.next;
end;
end;
hp:=tcallparanode(hp.right);
end;
end;

4
compiler/ncgcal.pas
View File

@ -742,7 +742,7 @@ implementation
}
paramanager.freecgpara(current_asmdata.CurrAsmList,ppn.tempcgpara);
tmpparaloc:=ppn.tempcgpara.location;
sizeleft:=ppn.tempcgpara.intsize;
sizeleft:=ppn.parasym.paraloc[callerside].intsize;
calleralignment:=ppn.parasym.paraloc[callerside].alignment;
tmpalignment:=ppn.tempcgpara.alignment;
if (tmpalignment=0) or
@ -806,7 +806,7 @@ implementation
reference_reset_base(htempref,tmpparaloc^.reference.index,tmpparaloc^.reference.offset,ctempposinvalid,tmpalignment,[]);
{ use concatcopy, because it can also be a float which fails when
load_ref_ref is used }
if (ppn.tempcgpara.size <> OS_NO) then
if (tmpparaloc^.size <> OS_NO) then
cg.g_concatcopy(current_asmdata.CurrAsmList,htempref,href,tcgsize2size[tmpparaloc^.size])
else
cg.g_concatcopy(current_asmdata.CurrAsmList,htempref,href,sizeleft)