Ver código fonte

* unroll more aggressively

git-svn-id: trunk@38686 -
florian 7 anos atrás
pai
commit
fff6e0ecdb
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/optloop.pas

+ 1 - 1
compiler/optloop.pas

@@ -126,7 +126,7 @@ unit optloop;
                   multiply unroll by two here because we can get rid
                   multiply unroll by two here because we can get rid
                   of the counter variable completely and replace it by a constant
                   of the counter variable completely and replace it by a constant
                   if unrolls=counts }
                   if unrolls=counts }
-                if unrolls*2>counts then
+                if unrolls*2>=counts then
                   unrolls:=counts;
                   unrolls:=counts;
 
 
                 { create block statement }
                 { create block statement }