flambda-backend: Make ocaml/testsuite/tests/backtrace/backtrace_c_exn…

….ml robust to compilation under Closure
ocaml-flambda · Oct 31, 2023 · b85e6c0 · b85e6c0
1 parent 7a15877
commit b85e6c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/testsuite/tests/backtrace/backtrace_c_exn.ml b/testsuite/tests/backtrace/backtrace_c_exn.ml
@@ -11,7 +11,7 @@
 (* https://github.com/ocaml-multicore/ocaml-multicore/issues/498 *)
 external stubbed_raise : unit -> unit = "caml_498_raise"
 
-let raise_exn () = failwith "exn"
+let raise_exn () = (failwith [@inlined never]) "exn" [@@inline never]
 
 let () = Callback.register "test_raise_exn" raise_exn