X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fruntime.ml;h=7d1e79f7eac8e9e97706741aa8c020ba7786731a;hb=107df590ff69de765445e22caffd416ef13288d3;hp=0ba08a2c35df4582f2b627c029717ca9c8ad7e88;hpb=c560c779122e09b6c38c3167623c3e6e40abe7fc;p=SXSI%2Fxpathcomp.git

diff --git a/src/runtime.ml b/src/runtime.ml
index 0ba08a2..7d1e79f 100644
--- a/src/runtime.ml
+++ b/src/runtime.ml
@@ -76,7 +76,7 @@ module Make (U : ResJIT.S) : S with type result_set = U.NS.t =
           Logger.print err_formatter "@?L3JIT: %i used entries@\n@?" !count
         let create () =
           let v = Cache.Lvl3.create 1024 dummy in
-          if !Options.verbose then at_exit (fun () -> show_stats v);
+          if !Config.verbose then at_exit (fun () -> show_stats v);
           v
 
         let find t tlist s1 s2 =
@@ -151,7 +151,7 @@ module Make (U : ResJIT.S) : S with type result_set = U.NS.t =
           let f = gen_code auto tlist s1 s2 in
           LOG(__ "top-down-run" 2 "Inserting: %i, %a, %a\n%!"
             (Uid.to_int tlist.Translist.Node.id) StateSet.print s1 StateSet.print s2);
-          if not !Options.no_cache then add cache tlist s1 s2 f;
+          if not !Config.no_cache then add cache tlist s1 s2 f;
 	  f
       end