* synchronised with trunk till r40503

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@40504 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 1 deletions

diff --git a/compiler/hlcgobj.pas b/compiler/hlcgobj.pas
index 8ae0de9633..6107966cb1 100644
--- a/compiler/hlcgobj.pas
+++ b/compiler/hlcgobj.pas
@@ -5216,7 +5216,9 @@ implementation
             gen_load_loc_function_result(list,retdef,ressym.localloc);
         end
       else
-        gen_load_uninitialized_function_result(list,current_procinfo.procdef,retdef,current_procinfo.procdef.funcretloc[calleeside])
+        gen_load_uninitialized_function_result(list,current_procinfo.procdef,retdef,current_procinfo.procdef.funcretloc[calleeside]);
+      if ressym.localloc.loc=LOC_REFERENCE then
+        tg.UnGetLocal(list,ressym.localloc.reference);
     end;
 
   procedure thlcgobj.gen_stack_check_size_para(list: TAsmList);