From 54b511228400b9ac0827dc0a6ab41fad40dcf5c6 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 21 May 2017 08:34:47 +0000 Subject: [PATCH] * real constants should be propagated during inline expanding git-svn-id: trunk@36277 - --- compiler/ncal.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/ncal.pas b/compiler/ncal.pas index 94cc62097b..88608581a4 100644 --- a/compiler/ncal.pas +++ b/compiler/ncal.pas @@ -4709,7 +4709,8 @@ implementation { don't create a temp. for the often seen case that p^ is passed to a var parameter } ((paracomplexity>1) and not((realtarget.nodetype=derefn) and (para.parasym.varspez in [vs_var,vs_out,vs_constref])) and - not((realtarget.nodetype=loadn) and tloadnode(realtarget).is_addr_param_load) + not((realtarget.nodetype=loadn) and tloadnode(realtarget).is_addr_param_load) and + not(realtarget.nodetype=realconstn) ) );