objsize.mli 427 B

1234567891011121314
  1. (* Information gathered while walking through values. *)
  2. type info =
  3. { data : int
  4. ; headers : int
  5. ; depth : int
  6. ; reached : bool
  7. }
  8. (* Returns information for first argument, excluding the second arg list and telling if we can reach the third arg list *)
  9. val objsize : 'a -> Obj.t list -> Obj.t list -> info
  10. (* Calculates sizes in bytes: *)
  11. val size_with_headers : info -> int
  12. val size_without_headers : info -> int