Tests: prevent flambda eliminating closures.

yallop · Dec 6, 2019 · 760f638 · 760f638
1 parent d0cd550
commit 760f638
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/test-funptrs/test_funptrs.ml b/tests/test-funptrs/test_funptrs.ml
@@ -34,7 +34,7 @@ struct
 
   let make_f () : (int -> int) * ([`Live|`Released] -> unit) =
     let closure_status = ref `Live in
-    let f = (+) 1 in
+    let f = !(ref (+)) 1 in
     Gc.finalise (fun _ -> closure_status := `Released) f;
     f, (fun status -> 
       Gc.full_major ();