diff --git a/compiler/ncal.pas b/compiler/ncal.pas index af72ef2cdb..4ab8e2ea19 100644 --- a/compiler/ncal.pas +++ b/compiler/ncal.pas @@ -3042,8 +3042,8 @@ implementation { call-by-reference const's may need to be passed by } { reference to function called in the inlined code } (paramanager.push_addr_param(vs_const,para.parasym.vardef,procdefinition.proccalloption) and - (not valid_for_addr(para.left,false) or - is_constnode(para.left))))) + not valid_for_addr(para.left,false)) + )) ) ) then begin diff --git a/compiler/nutils.pas b/compiler/nutils.pas index 3dfcf97dec..09b033a1a3 100644 --- a/compiler/nutils.pas +++ b/compiler/nutils.pas @@ -696,6 +696,7 @@ implementation end; p := tbinarynode(p).right; end; + stringconstn, tempcreaten, tempdeleten, ordconstn, @@ -775,7 +776,7 @@ implementation inc(result); exit; end; - + in_inc_x, in_dec_x, in_include_x_y, @@ -799,7 +800,7 @@ implementation exit; end; end; - + end; else begin