X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fcache.ml;h=bc1839260b8f6790affc56570d669b4acb271af1;hp=d0f7ac5841ed3e3e8ddcbee4f3c8b458e2a9e10c;hb=refs%2Fheads%2Ffeature%2Ffast-multipass;hpb=df5ce50d29b10bfdf26aff02c83d0a7ec614228a

diff --git a/src/cache.ml b/src/cache.ml
index d0f7ac5..bc18392 100644
--- 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