1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(* TEST *)
(** check that custom block are not copied by Weak.get_copy *)
open Bigarray
open Bigarray.Array1
let () =
let a = ref (create float64 c_layout 10) in
Gc.compact ();
set !a 0 42.;
let w = Weak.create 1 in
Weak.set w 0 (Some !a);
let b =
match Weak.get_copy w 0 with
| None -> assert false
| Some b -> b
in
Printf.printf "a.(0) = %f\n" (get !a 0);
Printf.printf "b.(0) = %f\n" (get b 0);
a := create float64 c_layout 10;
Gc.compact ();
let c = create float64 c_layout 10 in
set c 0 33.;
Printf.printf "b.(0) = %f\n" (get b 0);
|
