HaxeFoundation.haxe/libs/objsize/objsize.ml

if Sys.ocaml_version < "3.11"
then
  failwith "Objsize >=0.12 can only be used with OCaml >=3.11"

type info =
  { data : int
  ; headers : int
  ; depth : int
  ; reached : bool
  }

external internal_objsize : Obj.t -> Obj.t list -> Obj.t list -> info = "ml_objsize"

let objsize obj (exclude:Obj.t list) (reach:Obj.t list) =
  (* internal_objsize (Obj.repr obj) exclude reach *)
  {data = (Obj.reachable_words (Obj.repr obj)); headers = 0; depth = 0; reached = false}

let size_with_headers i = (Sys.word_size/8) * (i.data + i.headers)

let size_without_headers i = (Sys.word_size/8) * i.data