diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 11:36:42 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 11:36:42 +0000 |
commit | 78a0d3c1eca1f687f29df10889a17881d08a7ba4 (patch) | |
tree | 0f35982f0a14e81230e5dab6e87f4d45d932fad6 | |
parent | 3ba1f1aac5cf84e29a21dc14356e79bc03e12ffc (diff) | |
download | fpc-78a0d3c1eca1f687f29df10889a17881d08a7ba4.tar.gz |
* fix tc_bool_2_int simplification in case pass typecheck runs again, e.g.
after getting a copy of the node during CSE (fixes taddset4 compilation
with LLVM after r44712)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45087 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/ncnv.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas index deb2ab96c3..65d0777905 100644 --- a/compiler/ncnv.pas +++ b/compiler/ncnv.pas @@ -3220,6 +3220,7 @@ implementation end; if (convtype=tc_int_2_int) and (left.nodetype=typeconvn) and (ttypeconvnode(left).convtype=tc_bool_2_int) then begin + ttypeconvnode(left).totypedef:=resultdef; ttypeconvnode(left).resultdef:=resultdef; result:=left; left:=nil; |