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

* fixed complexity function so it doesn't always return infinity when a

Browse Source 
load node is encountered
This commit is contained in:
Jonas Maebe 2004-07-15 20:59:58 +00:00
parent c40e9f31ed
commit 705d5fdd89
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nutils.pas
View File

@ -454,10 +454,8 @@ implementation
else
inc(result,5);
if (result >= NODE_COMPLEXITY_INF) then
begin
result := NODE_COMPLEXITY_INF;
exit;
end;
result := NODE_COMPLEXITY_INF;
exit;
end;
subscriptn:
p := tunarynode(p).left;
@ -495,7 +493,11 @@ end.
{
$Log$
Revision 1.16 2004-07-15 19:55:40 jonas
Revision 1.17 2004-07-15 20:59:58 jonas
* fixed complexity function so it doesn't always return infinity when a
load node is encountered
Revision 1.16 2004/07/15 19:55:40 jonas
+ (incomplete) node_complexity function to assess the complexity of a
tree
+ support for inlining value and const parameters at the node level