|
@@ -1734,6 +1734,7 @@ implementation
|
|
|
function node_not_zero(n: tnode): Boolean;
|
|
|
begin
|
|
|
result:=(is_constintnode(n) and (get_int_value(n)<>0)) or
|
|
|
+ ((n.resultdef.typ=orddef) and ((torddef(n.resultdef).low>0) or (torddef(n.resultdef).high<0))) or
|
|
|
((n.nodetype=typeconvn) and (ttypeconvnode(n).convtype=tc_int_2_int) and node_not_zero(ttypeconvnode(n).left)) or
|
|
|
((n.nodetype=orn) and (node_not_zero(taddnode(n).left) or node_not_zero(taddnode(n).right)));
|
|
|
end;
|