Make the time function re-entrant.

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

diff --git a/src/ocaml.ml b/src/ocaml.ml
index b8acb29..a0d9cc2 100644 (file)
--- a/src/ocaml.ml
+++ b/src/ocaml.ml
@@ -50,4 +50,4 @@ let size_w o =
 
 let size_b o = (size_w o) * (Sys.word_size / 8)
 
-let size_kb o = (size_w o) / (8192 / Sys.word_size)
+let size_kb o = (size_b o) / 1024