From 1cd6f2355b6a7b6dc69081d1297be5e151d19cd0 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 21 Aug 2012 16:31:58 +0000
Subject: [PATCH] * don't copy const parameters passed by reference even if
 their complexity is >1,   this is handled by wrapcomplexinlinepara

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

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index 2eb1d46f02..95c2c4fa31 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -3766,8 +3766,7 @@ implementation
                       { variable would be passed by value normally, or if   }
                       { there is such a variable somewhere in an expression }
                        ((para.parasym.varspez = vs_const) and
-                        (not pushconstaddr or
-                         (paracomplexity > 1)))) and
+                        (not pushconstaddr))) and
                      { however, if we pass a global variable, an object field or}
                      { an expression containing a pointer dereference as        }
                      { parameter, this value could be modified in other ways as }