Tests: explicitly disable effects

Author: vouillon

benchmarks/run.ml

@@ -248,7 +248,7 @@ let _ =
          "js_of_ocaml -q --target-env browser --debug mark-runtime-gen %s %s"
          opts
          (match effects with
-         | `None -> ""
+         | `None -> "--effects=disabled"
          | `Cps -> "--effects=cps"
          | `Double_translation -> "--effects=double-translation"))
   in

compiler/tests-compiler/util/util.ml

@@ -279,7 +279,7 @@ let compile_to_javascript
       ; (match effects with
         | `Double_translation -> [ "--effects=double-translation" ]
         | `Cps -> [ "--effects=cps" ]
-        | `Disabled -> [])
+        | `Disabled -> [ "--effects=disabled" ])
       ; (if use_js_string
          then [ "--enable=use-js-string" ]
          else [ "--disable=use-js-string" ])

compiler/tests-dynlink-js/effects_flags.ml

@@ -4,8 +4,7 @@ let () =
     match l, major >= 5 with
     | [ "with-effects-double-translation" ], true -> [ "--effects"; "double-translation" ]
     | [ "with-effects" ], true -> [ "--effects"; "cps" ]
-    | _, true -> []
-    | _, false -> []
+    | _ -> [ "--effects"; "disabled" ]
   in
   match Sys.argv |> Array.to_list |> List.tl with
   | "txt" :: rest -> List.iter print_endline (effects_flags rest)