From 4422e16f529359bb96c7eee214b2b6648958ef48 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 18 Sep 2012 14:26:42 +0000
Subject: Cleaning interface of Util.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15817 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/check.ml      | 2 +-
 checker/check.mllib   | 1 +
 checker/check_stat.ml | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'checker')

diff --git a/checker/check.ml b/checker/check.ml
index 5b58dc9baf..343c72788a 100644
--- a/checker/check.ml
+++ b/checker/check.ml
@@ -370,4 +370,4 @@ open Printf
 
 let mem s =
   let m = try_find_library s in
-  h 0 (str (sprintf "%dk" (size_kb m)))
+  h 0 (str (sprintf "%dk" (CObj.size_kb m)))
diff --git a/checker/check.mllib b/checker/check.mllib
index d286651a13..2a6486ddda 100644
--- a/checker/check.mllib
+++ b/checker/check.mllib
@@ -7,6 +7,7 @@ Loc
 Segmenttree
 Unicodetable
 Errors
+CObj
 CList
 CArray
 Util
diff --git a/checker/check_stat.ml b/checker/check_stat.ml
index 766c7c9beb..0e7aec1a8a 100644
--- a/checker/check_stat.ml
+++ b/checker/check_stat.ml
@@ -20,7 +20,7 @@ let memory_stat = ref false
 
 let print_memory_stat () =
   if !memory_stat then begin
-    Format.printf "total heap size = %d kbytes\n" (heap_size_kb ());
+    Format.printf "total heap size = %d kbytes\n" (CObj.heap_size_kb ());
     Format.print_newline();
     flush_all()
   end
-- 
cgit v1.2.3