blob: 54e2aadd6499e338ef56da5b1d2789f48c573652 (
plain)
1
2
3
4
5
6
7
8
|
(* TEST *)
let _ =
(* In 4.13 this causes Obj.reachable_words to segfault
because of a missing initialization in caml_obj_reachable_words *)
ignore (Marshal.(to_string 123 [No_sharing]));
let n = Obj.reachable_words (Obj.repr (Array.init 10 (fun i -> i))) in
assert (n = 11)
|