.

[SXSI/xpathcomp.git] / benchmark / benchmark.ml

diff --git a/benchmark/benchmark.ml b/benchmark/benchmark.ml
index 5418b64..c726166 100644 (file)
--- a/benchmark/benchmark.ml
+++ b/benchmark/benchmark.ml
@@ -258,10 +258,10 @@ struct
                                 else Printf.printf "With output : \t%!";
                                 for i = 1 to Conf.num_runs do
                                   let s = extract(run_query (k==1) (j==1) qnum docnum qset) in
-                                    if sres.(j).query_execution_time > s.query_execution_time
-                                    then sres.(j) <- s;
-                                    if (k==1) then
-                                      sres.(j).memory_usage <- s.memory_usage;
+                                    sres.(j).query_execution_time <- s.query_execution_time;
+                                    sres.(j).query_compile_time <- s.query_compile_time;
+                                    if j == 1 then sres.(j).serialization_time <- s.serialization_time;
+                                    if k == 1 then sres.(j).memory_usage <- s.memory_usage;
                                     Printf.printf "pass %i ... %!" i;
                                 done;
                                 Printf.printf "Ok\n%!";