Преглед изворни кода

* fixed function result handling for procedure which are inlinable

git-svn-id: trunk@2461 -
florian пре 19 година
родитељ
комит
68016e4db2
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/sparc/cpupara.pas

+ 1 - 1
compiler/sparc/cpupara.pas

@@ -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));