paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 17:56:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

* node complexity of subscribing increased because it's not only a simple operation to a register but requires a memory access

Browse Source 
git-svn-id: trunk@14495 -
This commit is contained in:
florian 2009-12-29 19:43:32 +00:00
parent 1632a10305
commit fdb67a28ab
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

@ -669,7 +669,7 @@ implementation
subscriptn: subscriptn:
begin begin
if is_class_or_interface_or_objc(tunarynode(p).left.resultdef) then if is_class_or_interface_or_objc(tunarynode(p).left.resultdef) then
inc(result); inc(result,2);
if (result = NODE_COMPLEXITY_INF) then if (result = NODE_COMPLEXITY_INF) then
exit; exit;
p := tunarynode(p).left; p := tunarynode(p).left;