bug dans allocated_bytes

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2754 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2000-01-12 14:19:27 +00:00
parent a43014a6a8
commit 27445a2064
1 changed files with 1 additions and 1 deletions

View File

@ -68,7 +68,7 @@ let print_stat c =
;;
let allocated_bytes () =
let (mi, ma, pro) = counters () in (mi + ma - pro) * (Sys.word_size / 8)
let (mi, pro, ma) = counters () in (mi + ma - pro) * (Sys.word_size / 8)
;;
external finalise : ('a -> unit) -> 'a -> unit = "final_register";;