From 4b96ebdd658abcd825d7a52ab5ffd4fad07ce0f5 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 10 Aug 2001 16:12:49 +0000
Subject: Bug

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1892 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/profile.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3