projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
time_run
[tatoo.git]
/
src
/
bench.ml
diff --git
a/src/bench.ml
b/src/bench.ml
index
563f1d5
..
a020d15
100644
(file)
--- a/
src/bench.ml
+++ b/
src/bench.ml
@@
-44,5
+44,8
@@
let () =
let doc = doc () in
let query = query () in
let asta = Compil.trans query in
let doc = doc () in
let query = query () in
let asta = Compil.trans query in
+ let t1 = Unix.gettimeofday() in
let _ = compute_run doc asta in
let _ = compute_run doc asta in
+ let t2 = Unix.gettimeofday() in
+ let () = fprintf err_formatter "Time for Run (ms): %f\n%!" ((t2-.t1)*.1000.) in
exit 0
exit 0