paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 08:50:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better complexity calculation of tvecnodes

Browse Source 
git-svn-id: trunk@47151 -
This commit is contained in:
florian 2020-10-21 20:46:28 +00:00
parent 044133fc87
commit 6fc930a0fc
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nutils.pas
View File

@ -872,7 +872,17 @@ implementation
exit; exit;
p := tunarynode(p).left; p := tunarynode(p).left;
end; end;
vecn, vecn:
begin
inc(result,node_complexity(tbinarynode(p).left));
inc(result);
if (result >= NODE_COMPLEXITY_INF) then
begin
result := NODE_COMPLEXITY_INF;
exit;
end;
p := tbinarynode(p).right;
end;
statementn: statementn:
begin begin
inc(result,node_complexity(tbinarynode(p).left)); inc(result,node_complexity(tbinarynode(p).left));