+ new TParamFlag pfResult if the result is passed as a parameter and thus needs to be set up as well

git-svn-id: trunk@35286 -

compiler/ncgrtti.pas

@@ -299,6 +299,8 @@ implementation
           paraspec:=paraspec or pfSelf;
         if vo_is_vmt in parasym.varoptions then
           paraspec:=paraspec or pfVmt;
+        if vo_is_funcret in parasym.varoptions then
+          paraspec:=paraspec or pfResult;
         { set bits run from the highest to the lowest bit on
           big endian systems
         }

compiler/symconst.pas

@@ -109,6 +109,7 @@ const
   pfHigh     = 256;
   pfSelf     = 512;
   pfVmt      = 1024;
+  pfResult   = 2048;
 
   unknown_level         = 0;
   main_program_level    = 1;