X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fmain.ml;fp=src%2Fmain.ml;h=605c0e6e520f030c8fbdf034852d072774871539;hb=7c4c61cec6fe1ae3a1b83a59b17ce90adcfe9b0b;hp=2349ad17b7a621aafedfb86b8e1d9b14dc676b44;hpb=5db22d04b3c81471dd521537a819da9ce541a171;p=SXSI%2Fxpathcomp.git

diff --git a/src/main.ml b/src/main.ml
index 2349ad1..605c0e6 100644
--- a/src/main.ml
+++ b/src/main.ml
@@ -78,7 +78,10 @@ let main v query_string output =
 	let module R = ResJIT.Count in
 	let module M = Runtime.Make(R) in
 	(* mk_runtime run auto doc arg count print outfile  *)
-	mk_runtime M.twopass_top_down_run auto v Tree.root R.NS.length R.NS.serialize None
+	if !Options.twopass then 
+	  mk_runtime M.twopass_top_down_run auto v Tree.root R.NS.length R.NS.serialize None
+	else
+	  mk_runtime M.top_down_run auto v Tree.root R.NS.length R.NS.serialize None
       else
 	let module R = ResJIT.Mat in
 	let module M = Runtime.Make(R) in