Also look for function name of 'result' is not found in load_result_node

git-svn-id: trunk@47208 -

compiler/nutils.pas

@@ -562,9 +562,16 @@ implementation
     function load_result_node:tnode;
       var
         srsym : tsym;
-      begin
+        pd : tprocdef;
+       begin
         result:=nil;
         srsym:=get_local_or_para_sym('result');
+        if not assigned(srsym) then
+          begin
+            pd:=current_procinfo.procdef;
+            if assigned(pd.procsym) then
+              srsym:=get_local_or_para_sym(pd.procsym.name);
+          end;
         if assigned(srsym) then
           result:=cloadnode.create(srsym,srsym.owner)
         else