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

Merged revisions 2461 via svnmerge from

Browse Source 
http://peter@svn.freepascal.org/svn/fpc/trunk

........
r2461 | florian | 2006-02-06 22:44:35 +0100 (Mon, 06 Feb 2006) | 2 lines

* fixed function result handling for procedure which are inlinable

........

git-svn-id: branches/fixes_2_0@2582 -
This commit is contained in:
peter 2006-02-15 07:33:40 +00:00
parent a66cd5eda1
commit 8e1338b9e4
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
p.funcretloc[side].loc:=LOC_REGISTER;
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))
else
p.funcretloc[side].register:=newreg(R_INTREGISTER,RS_FUNCTION_RETURN_REG,cgsize2subreg(retcgsize));