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

Correct code after change in set_common_funcretloc_info which made the call to ret_in_param always return false

Browse Source 
git-svn-id: trunk@22206 -
This commit is contained in:
pierre 2012-08-23 09:50:47 +00:00
parent 97021d47c3
commit 91bfa84952
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/mips/cpupara.pas
View File

@ -184,12 +184,17 @@ implementation
var
paraloc : pcgparalocation;
retcgsize : tcgsize;
retdef : tdef;
begin
if set_common_funcretloc_info(p,forcetempdef,retcgsize,result) then
begin
{ Return is passed as var parameter,
in this case we use the first register R4 for it }
if ret_in_param(result.def,p.proccalloption) then
if assigned(forcetempdef) then
retdef:=forcetempdef
else
retdef:=p.returndef;
if ret_in_param(retdef,p.proccalloption) then
begin
if intparareg=0 then
inc(intparareg);
@ -213,9 +218,10 @@ implementation
end
else
begin
getIntParaLoc(p.proccalloption,1,result.def,result);
getIntParaLoc(p.proccalloption,1,retdef,result);
end;
result.def:=getpointerdef(result.def);
// This is now done in set_common_funcretloc_info already
// result.def:=getpointerdef(result.def);
end;
exit;
end;