1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(* TEST_BELOW
(* Blank lines added here to preserve locations. *)
*)
(* https://github.com/ocaml-multicore/ocaml-multicore/issues/498 *)
external stubbed_raise : unit -> unit = "caml_498_raise"
let raise_exn () = failwith "exn"
let () = Callback.register "test_raise_exn" raise_exn
let () =
try
stubbed_raise ()
with
| exn ->
Printexc.to_string exn |> print_endline;
Printexc.print_backtrace stdout
(* TEST
modules = "backtrace_c_exn_.c";
flags = "-g";
ocamlrunparam += ",b=1";
*)
|
