Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix test for static data

master
Pierre Chambart 2016-01-22 16:13:40 +01:00
parent 821359c20a
commit 974733bb8a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
testsuite/tests/asmcomp/is_static.ml
View File

@ -27,11 +27,11 @@ let () = (g [@inlined always]) 2
(* Toplevel immutable blocks should be static *)
let block3 = (Sys.opaque_identity 1, Sys.opaque_identity 2)
let () = assert(is_in_static_data block3)
let () = assert(is_in_static_data_flambda block3)
(* Not being bound shouldn't prevent it *)
let () =
assert(is_in_static_data (Sys.opaque_identity 1, Sys.opaque_identity 2))
assert(is_in_static_data_flambda (Sys.opaque_identity 1, Sys.opaque_identity 2))
(* Only with rounds >= 2 currently !
(* Also after inlining *)