Prise en compte des strings et des flottants dans les statistiques de tailles mémoire

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1890 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/profile.mli b/lib/profile.mli
index 13c75cc8c0..4e38bb7704 100644
--- a/lib/profile.mli
+++ b/lib/profile.mli
@@ -119,10 +119,11 @@ val print_logical_stats : 'a -> unit
    as the physical size of its argument) *)
 val print_stats : 'a -> unit
 
-(* Return physical size, logical size (in words) and depth of its argument *)
+(* Return logical size (first for strings, then for not strings),
+   (in words) and depth of its argument *)
 (* This function allocates itself a lot *)
 val obj_stats : 'a -> int * int * int
 
-(* Return physical size of its argument *)
+(* Return physical size of its argument (string part and rest) *)
 (* This function allocates itself a lot *)
-val obj_shared_size : 'a -> int
+val obj_shared_size : 'a -> int * int