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

* better complexity estimation for some inline nodes

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

21
compiler/nutils.pas
View File

@ -716,14 +716,8 @@ implementation
in_trunc_real,
in_int_real,
in_frac_real,
in_cos_real,
in_sin_real,
in_arctan_real,
in_pi_real,
in_abs_real,
in_sqr_real,
in_sqrt_real,
in_ln_real,
in_aligned_x,
in_unaligned_x,
in_prefetch_var:
@ -731,6 +725,21 @@ implementation
inc(result);
p:=tunarynode(p).left;
end;
in_cos_real,
in_sin_real,
in_arctan_real,
in_sqr_real,
in_sqrt_real,
in_ln_real:
begin
inc(result,2);
if (result >= NODE_COMPLEXITY_INF) then
begin
result:=NODE_COMPLEXITY_INF;
exit;
end;
p:=tunarynode(p).left;
end;
in_abs_long:
begin
inc(result,3);