diff options
-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 |