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

* reduced complexity of in_abs_long, old value was left over from testing

Browse Source 
git-svn-id: trunk@11243 -
This commit is contained in:
Jonas Maebe 2008-06-18 18:02:33 +00:00
parent a60a957420
commit 1150f7e9dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nutils.pas
View File

@ -742,7 +742,7 @@ implementation
end;
in_abs_long:
begin
inc(result,10);
inc(result,3);
if (result >= NODE_COMPLEXITY_INF) then
begin
result:=NODE_COMPLEXITY_INF;