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

+ apply cse to more inline nodes

Browse Source 
git-svn-id: trunk@27675 -
This commit is contained in:
florian 2014-04-27 14:28:17 +00:00
parent 6dd2edb10d
commit 99e1bb32a2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/optcse.pas
View File

@ -66,7 +66,11 @@ unit optcse;
begin
if (n.nodetype in cseinvariant) or
((n.nodetype=inlinen) and
(tinlinenode(n).inlinenumber in [in_assigned_x])
(tinlinenode(n).inlinenumber in [in_assigned_x,in_sqr_real,in_sqrt_real,in_sin_real,in_cos_real,in_abs_long,
in_abs_real,in_exp_real,in_ln_real,in_pi_real,in_popcnt_x,in_arctan_real,in_round_real,in_trunc_real,
{ cse on fma will still not work because it would require proper handling of call nodes
with more than one parameter }
in_fma_single,in_fma_double,in_fma_extended,in_fma_float128])
) or
((n.nodetype=callparan) and not(assigned(tcallparanode(n).right))) or
((n.nodetype=loadn) and