Make the time function re-entrant.

[SXSI/xpathcomp.git] / src / bp.ml

diff --git a/src/bp.ml b/src/bp.ml
index e230931..7dc4b49 100644 (file)
--- a/src/bp.ml
+++ b/src/bp.ml
@@ -30,6 +30,7 @@ let bitmap_push_back b i =
 
 type t
 external bp_construct : cbitmap -> int -> t = "caml_bp_construct"
+external alloc_stats : unit -> int = "caml_bp_alloc_stats"
 external save : t -> Unix.file_descr -> unit = "caml_bp_save"
 external load : Unix.file_descr -> t = "caml_bp_load"
 external first_child : t -> int -> int = "caml_bp_first_child" "noalloc"