paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 19:38:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed a bug in the maxqword check in the Rol/RorQWord(maxqword,x)->maxqword

Browse Source 
optimization, which prevented the optimization from ever being performed. This
  should also fix the test failure of tbs/tb0627b.pp on all 64-bit platforms.

git-svn-id: trunk@36071 -
This commit is contained in:
nickysn 2017-05-03 15:32:48 +00:00
parent 8ad6588e46
commit 987cf2a9cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ninl.pas
View File

@ -2153,7 +2153,7 @@ implementation
((resultdef.size=1) and (vl2=$ff)) or
((resultdef.size=2) and (vl2=$ffff)) or
((resultdef.size=4) and (vl2=$ffffffff)) or
((resultdef.size=8) and (vl2=$ffffffffffffffff))) and
((resultdef.size=8) and (vl2.uvalue=qword($ffffffffffffffff)))) and
((cs_opt_level4 in current_settings.optimizerswitches) or
not might_have_sideeffects(tcallparanode(left).left)) then
result:=cordconstnode.create(vl2,resultdef,true);