瀏覽代碼

* real constants should be propagated during inline expanding

git-svn-id: trunk@36277 -
florian 8 年之前
父節點
當前提交
54b5112284
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/ncal.pas

+ 2 - 1
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)
            )
           );