projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactor the statistics gathering code in run.ml
[tatoo.git]
/
src
/
run.mli
diff --git
a/src/run.mli
b/src/run.mli
index
579dd8a
..
c942277
100644
(file)
--- a/
src/run.mli
+++ b/
src/run.mli
@@
-12,16
+12,20
@@
(* ../LICENSE. *)
(* *)
(***********************************************************************)
(* ../LICENSE. *)
(* *)
(***********************************************************************)
-type stats = { run : int;
+
+
+type stats = private { mutable pass : int;
tree_size : int;
tree_size : int;
- cache2_access : int;
- cache2_hit : int;
- cache5_access : int;
- cache5_hit : int;
+ mutable fetch_trans_cache_access : int;
+ mutable fetch_trans_cache_hit : int;
+ mutable eval_trans_cache_access : int;
+ mutable eval_trans_cache_hit : int;
+ mutable nodes_per_run : int list;
}
}
-module Make (T : Tree.S) :
+
+module Make (T : Tree.S) (L : Node_list.S with type node = T.node) :
sig
sig
- val eval : Ata.t -> T.t ->
T.node list -> T.node lis
t
- val full_eval : Ata.t -> T.t ->
T.node list -> (State.t * T.node lis
t) list
+ val eval : Ata.t -> T.t ->
L.t -> L.
t
+ val full_eval : Ata.t -> T.t ->
L.t -> (State.t * L.
t) list
val stats : unit -> stats
end
val stats : unit -> stats
end