paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 10:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* exceptions are side effects which must be considered in boolean expressions

Browse Source 
git-svn-id: trunk@45441 -
This commit is contained in:
florian 2020-05-19 20:34:41 +00:00
parent 5cc7622161
commit 15baa272fe
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgutil.pas
View File

@ -107,7 +107,7 @@ implementation
defutil,
procinfo,paramgr,
dbgbase,
nbas,ncon,nld,nmem,nutils,
nadd,nbas,ncon,nld,nmem,nutils,
tgobj,cgobj,hlcgobj,hlcgcpu
{$ifdef powerpc}
, cpupi
@ -192,7 +192,8 @@ implementation
{ always calculate boolean AND and OR from left to right }
if (p.nodetype in [orn,andn]) and
is_boolean(p.left.resultdef) and
(might_have_sideeffects(p.left) or might_have_sideeffects(p.right)) then
(might_have_sideeffects(p.left,[mhs_exceptions]) or might_have_sideeffects(p.right,[mhs_exceptions]) or
(nf_short_bool in taddnode(p).flags)) then
begin
if nf_swapped in p.flags then
internalerror(200709253);