diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-08-10 16:12:49 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-08-10 16:12:49 +0000 |
commit | 4b96ebdd658abcd825d7a52ab5ffd4fad07ce0f5 (patch) | |
tree | 80a323be8dbe3528b761d8d257683e451bb6e022 | |
parent | 24e93600fc8915fa1163285347de50c86e5846d4 (diff) |
Bug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1892 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | lib/profile.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/profile.ml b/lib/profile.ml index ffcecc476..59f8c5cae 100644 --- a/lib/profile.ml +++ b/lib/profile.ml @@ -726,7 +726,7 @@ let obj_shared_size a = H.clear tbl; c := 0; let s = obj_shared_size 0 (Obj.repr a) in - (s, !c) + (!c, s) let print_logical_stats a = let (c, s, d) = obj_stats a in |