Pārlūkot izejas kodu

* do not search a node tree which has been found being subject to cse further on

git-svn-id: trunk@26691 -
florian 11 gadi atpakaļ
vecāks
revīzija
c5523fc780
1 mainītis faili ar 4 papildinājumiem un 0 dzēšanām
  1. 4 0
      compiler/optcse.pas

+ 4 - 0
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;