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

* calculate complexity of exit nodes correctly

Browse Source 
git-svn-id: trunk@25245 -
This commit is contained in:
florian 2013-08-11 21:13:20 +00:00
parent 0a22199738
commit 5d4a094799
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nutils.pas
View File

@ -673,6 +673,16 @@ implementation
{$endif ARM}
exit;
end;
exitn:
begin
inc(result,2);
if (result >= NODE_COMPLEXITY_INF) then
begin
result := NODE_COMPLEXITY_INF;
exit;
end;
p:=texitnode(p).left;
end;
tempcreaten,
tempdeleten,
pointerconstn,