bug dans allocated_bytes
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2754 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
a43014a6a8
commit
27445a2064
|
@ -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";;
|
||||
|
|
Loading…
Reference in New Issue