X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Focaml.ml;h=a0d9cc2799eab150c7d43e44de707f628c531055;hb=7e27afe6fa006ad355237ccc0695c6493ea57929;hp=b8acb297ba14bc257d00a43573231c8ef2cc2185;hpb=4b52da1a20a4fe031930bb96d2ca46bec06dc529;p=SXSI%2Fxpathcomp.git

diff --git a/src/ocaml.ml b/src/ocaml.ml
index b8acb29..a0d9cc2 100644
--- 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