X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fcache.ml;h=abe113ae8ce22f3f1a6c362189fb8837bee562e7;hb=7e27afe6fa006ad355237ccc0695c6493ea57929;hp=dac1dbc74219e33b49a62591345895a300a3c923;hpb=5127077332d041b90fd1f093ddac02ae6178d617;p=SXSI%2Fxpathcomp.git

diff --git a/src/cache.ml b/src/cache.ml
index dac1dbc..abe113a 100644
--- 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;