Use better defaults for top-down cache size.

[SXSI/xpathcomp.git] / src / cache.ml

diff --git a/src/cache.ml b/src/cache.ml
index dac1dbc..abe113a 100644 (file)
--- a/src/cache.ml
+++ b/src/cache.ml
@@ -80,7 +80,7 @@ module Lvl2 =
 struct
   type 'a t = 'a Lvl1.t Lvl1.t
   let create n a =
-    let dummy1 = Lvl1.create 0 a in
+    let dummy1 = Lvl1.create 512 a in
     { Lvl1.line = Array.create n dummy1;
       Lvl1.offset = ~-1;
       Lvl1.dummy = dummy1;