paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do the optimizations in r36027 at level -O3 or higher

Browse Source 
git-svn-id: trunk@36034 -
This commit is contained in:
nickysn 2017-05-01 13:14:32 +00:00
parent 6d589f415b
commit f44f2f9194
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nadd.pas
View File

@ -1015,7 +1015,8 @@ implementation
if is_integer(left.resultdef) and is_integer(right.resultdef) then if is_integer(left.resultdef) and is_integer(right.resultdef) then
begin begin
if left.isequal(right) and not might_have_sideeffects(left) then if (cs_opt_level3 in current_settings.optimizerswitches) and
left.isequal(right) and not might_have_sideeffects(left) then
begin begin
case nodetype of case nodetype of
andn,orn: andn,orn: