summaryrefslogtreecommitdiff
path: root/compiler/nadd.pas
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/nadd.pas')
-rw-r--r--compiler/nadd.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index 063c81b793..3018e6cf42 100644
--- a/compiler/nadd.pas
+++ b/compiler/nadd.pas
@@ -1715,6 +1715,7 @@ implementation
(left.resultdef.typ=orddef) and
(left.nodetype=andn) and
(right.nodetype=andn) and
+ (not(is_boolean(resultdef)) or not(might_have_sideeffects(self,[mhs_exceptions])) or not(doshortbooleval(self))) and
{ this test is not needed but it speeds up the test and allows to bail out early }
((taddnode(left).left.nodetype=notn) or (taddnode(left).right.nodetype=notn) or
(taddnode(right).left.nodetype=notn) or (taddnode(right).right.nodetype=notn)