diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-18 14:26:42 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-18 14:26:42 +0000 |
| commit | 4422e16f529359bb96c7eee214b2b6648958ef48 (patch) | |
| tree | c8d77ca4070bcbc0ce2fc630564fedd9043fafed /checker | |
| parent | 7208928de37565a9e38f9540f2bfb1e7a3b877e6 (diff) | |
Cleaning interface of Util.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15817 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/check.ml | 2 | ||||
| -rw-r--r-- | checker/check.mllib | 1 | ||||
| -rw-r--r-- | checker/check_stat.ml | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/checker/check.ml b/checker/check.ml index 5b58dc9ba..343c72788 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 d286651a1..2a6486ddd 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 766c7c9be..0e7aec1a8 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 |