From c5523fc78012bba14b6c26022aca4c986d214ae8 Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 6 Feb 2014 19:27:11 +0000 Subject: [PATCH] * do not search a node tree which has been found being subject to cse further on git-svn-id: trunk@26691 - --- compiler/optcse.pas | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/compiler/optcse.pas b/compiler/optcse.pas index 419623853c..089be5cda3 100644 --- a/compiler/optcse.pas +++ b/compiler/optcse.pas @@ -225,6 +225,10 @@ unit optcse; else plists(arg)^.equalto[plists(arg)^.nodelist.count-1]:=pointer(ptrint(i)); plists(arg)^.refs[i]:=pointer(plists(arg)^.refs[i])+1; + { tree has been found, no need to search further, + sub-trees have been added by the first occurence of + the tree already } + result:=fen_norecurse_false; break; end; end;