paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed function result handling for procedure which are inlinable

Browse Source 
git-svn-id: trunk@2461 -
This commit is contained in:
florian 2006-02-06 21:44:35 +00:00
parent d26f004cdb
commit 68016e4db2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/sparc/cpupara.pas
View File

@ -190,7 +190,7 @@ implementation
begin begin
p.funcretloc[side].loc:=LOC_REGISTER; p.funcretloc[side].loc:=LOC_REGISTER;
p.funcretloc[side].size:=retcgsize; p.funcretloc[side].size:=retcgsize;
if (side=callerside) or (po_inline in p.procoptions)then if (side=callerside) then
p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RESULT_REG,cgsize2subreg(retcgsize)) p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RESULT_REG,cgsize2subreg(retcgsize))
else else
p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RETURN_REG,cgsize2subreg(retcgsize)); p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RETURN_REG,cgsize2subreg(retcgsize));