From af7bb6faab5f1a9e77493a6b6eb563207654503d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 31 May 2012 18:48:38 +0000
Subject: [PATCH] * ignore unused parameters when inlining

git-svn-id: trunk@21445 -
---
 compiler/ncal.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index 8fef3aded8..880d4e40c3 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -3703,7 +3703,7 @@ implementation
         para := tcallparanode(left);
         while assigned(para) do
           begin
-            if (para.parasym.typ = paravarsym) then
+            if (para.parasym.typ = paravarsym) and (para.parasym.refs>0) then
               begin
                 { must take copy of para.left, because if it contains a       }
                 { temprefn pointing to a copied temp (e.g. methodpointer),    }