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

* better estimation of callparanode complexity

Browse Source 
git-svn-id: trunk@31038 -
This commit is contained in:
florian 2015-06-13 16:50:55 +00:00
parent d9fec2035a
commit 919c539ff5
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/nutils.pas
View File

@ -737,9 +737,24 @@ implementation
p := tunarynode(p).left;
end;
labeln,
blockn,
callparan:
blockn:
p := tunarynode(p).left;
callparan:
begin
{ call to decr? }
if is_managed_type(tunarynode(p).left.resultdef) and (tcallparanode(p).parasym.varspez=vs_out) then
begin
result:=NODE_COMPLEXITY_INF;
exit;
end
else
begin
inc(result);
if (result = NODE_COMPLEXITY_INF) then
exit;
p := tunarynode(p).left;
end;
end;
notn,
derefn :
begin