Don't needlessly run the last bottom-up phase, when the top-down is sufficient.

[tatoo.git] / src / cache.ml

diff --git a/src/cache.ml b/src/cache.ml
index d0f7ac5..bc18392 100644 (file)
--- a/src/cache.ml
+++ b/src/cache.ml
@@ -52,9 +52,10 @@ struct
        (* preventively allocate the space for the following elements *)
        let nlen = ((i - offset + 1) lsl 1) + 1 in
        let narray = Array.create nlen a.dummy in
-       for j = 0 to len - 1 do
+        Array.blit a.line 0 narray 0 len;
+         (*for j = 0 to len - 1 do
          narray.(j) <- a.line.(j);
-       done;
+           done; *)
        narray.(i - offset) <- v;
        a.line <- narray
       end