diff --git a/compiler/tests-full/dune b/compiler/tests-full/dune index 5effacad3b..095cea9911 100644 --- a/compiler/tests-full/dune +++ b/compiler/tests-full/dune @@ -1,7 +1,7 @@ (rule (targets stdlib.cma.js) (enabled_if - (= %{ocaml_version} "5.2.0")) + (and (>= %{ocaml_version} "5.2") (< %{ocaml_version} "5.3"))) (action (run %{bin:js_of_ocaml} @@ -14,7 +14,7 @@ (rule (targets stdlib.cma.output.js) (enabled_if - (= %{ocaml_version} "5.2.0")) + (and (>= %{ocaml_version} "5.2") (< %{ocaml_version} "5.3"))) (action (with-stdout-to %{targets} @@ -23,7 +23,7 @@ (rule (alias runtest) (enabled_if - (= %{ocaml_version} "5.2.0")) + (and (>= %{ocaml_version} "5.2") (< %{ocaml_version} "5.3"))) (action (diff stdlib.cma.expected.js stdlib.cma.output.js))) diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js index 099faef92e..5768c6cab9 100644 --- a/compiler/tests-full/stdlib.cma.expected.js +++ b/compiler/tests-full/stdlib.cma.expected.js @@ -36136,8 +36136,8 @@ /*<>*/ return 0; var x = /*<>*/ param[2], - _i_ = /*<>*/ caml_call1(Stdlib_Printexc[26], x), - msg = /*<>*/ caml_call2(Stdlib_Printf[4], _a_, _i_); + _o_ = /*<>*/ caml_call1(Stdlib_Printexc[26], x), + msg = /*<>*/ caml_call2(Stdlib_Printf[4], _a_, _o_); /*<>*/ return [0, msg]; /*<>*/ } /*<>*/ caml_call1(Stdlib_Printexc[9], printer); @@ -36155,22 +36155,28 @@ "Effect.Continuation_already_resumed", Continuation_already_resumed); function continue$0(k, v){ - var _h_ = /*<>*/ caml_continuation_use_noexc(k); - function _g_(x){ + var + _l_ = /*<>*/ k[2], + _n_ = caml_continuation_use_noexc(k); + function _m_(x){ /*<>*/ return x; /*<>*/ } /*<>*/ return jsoo_effect_not_supported() /*<>*/ ; } function discontinue(k, e){ - var _f_ = /*<>*/ caml_continuation_use_noexc(k); - function _e_(e){ + var + _i_ = /*<>*/ k[2], + _k_ = caml_continuation_use_noexc(k); + function _j_(e){ /*<>*/ throw caml_maybe_attach_backtrace(e, 1); /*<>*/ } /*<>*/ return jsoo_effect_not_supported() /*<>*/ ; } function discontinue_with_backtrace(k, e, bt){ - var _d_ = /*<>*/ caml_continuation_use_noexc(k); - function _c_(e){ + var + _f_ = /*<>*/ k[2], + _h_ = caml_continuation_use_noexc(k); + function _g_(e){ /*<>*/ caml_restore_raw_backtrace(e, bt); throw caml_maybe_attach_backtrace(e, 0); /*<>*/ } @@ -36187,8 +36193,9 @@ } var s = - /*<>*/ caml_alloc_stack(handler[1], handler[2], effc); - /*<>*/ return jsoo_effect_not_supported() /*<>*/ ; + /*<>*/ caml_alloc_stack(handler[1], handler[2], effc), + _e_ = /*<>*/ 0; + return jsoo_effect_not_supported() /*<>*/ ; } function try_with(comp, arg, handler){ function effc(eff, k, last_fiber){ @@ -36208,8 +36215,9 @@ function(e){ /*<>*/ throw caml_maybe_attach_backtrace(e, 1); /*<>*/ }, - effc); - /*<>*/ return jsoo_effect_not_supported() /*<>*/ ; + effc), + _d_ = /*<>*/ 0; + return jsoo_effect_not_supported() /*<>*/ ; } var Deep = @@ -36243,7 +36251,7 @@ var s = /*<>*/ caml_alloc_stack(error, error, effc); /*<>*/ try{ /*<>*/ jsoo_effect_not_supported(); - var _b_ = /*<>*/ 0; + var _b_ = /*<>*/ 0, _c_ = 0; } catch(exn$0){ var exn = /*<>*/ caml_wrap_exception(exn$0); @@ -36263,6 +36271,7 @@ /*<>*/ return caml_call1(f, k) /*<>*/ ; } var + last_fiber = /*<>*/ k[2], stack = /*<>*/ runtime.caml_continuation_use_and_update_handler_noexc (k, handler[1], handler[2], effc);