From 924ffe6538608097b51200a1b3bbe628da04ef5a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 21 Jul 2020 17:57:45 +0000
Subject: [PATCH]   * removed initialisation of unused fparacopyback from
 tcallparanode.copy_value_by_ref_para

git-svn-id: trunk@45822 -
---
 compiler/ncal.pas | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index f9aa7588a5..be7feec9d4 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -731,7 +731,6 @@ implementation
     procedure tcallparanode.copy_value_by_ref_para;
       var
         initstat,
-        copybackstat,
         finistat: tstatementnode;
         finiblock: tblocknode;
         paratemp: ttempcreatenode;
@@ -754,7 +753,6 @@ implementation
         if not is_array_constructor(left.resultdef) then
           begin
             fparainit:=internalstatements(initstat);
-            fparacopyback:=internalstatements(copybackstat);
             finiblock:=internalstatements(finistat);
             paratemp:=nil;
 
@@ -931,10 +929,8 @@ implementation
                 left:=ctemprefnode.create(paratemp);
               end;
             addstatement(finistat,ctempdeletenode.create(paratemp));
-            addstatement(copybackstat,finiblock);
             firstpass(fparainit);
             firstpass(left);
-            firstpass(fparacopyback);
           end;
       end;