blob: 5981c7cb96a877081dc680b7587e2fbd8d427847 (
plain)
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
27
28
|
(* TEST
include systhreads;
hassysthreads;
{
bytecode;
}{
native;
}
*)
let () = Printexc.record_backtrace true
let () =
let bt =
try
let h = (Hashtbl.create 1 : (int, unit) Hashtbl.t) in
Hashtbl.find h 1;
assert false
with Not_found ->
Printexc.get_raw_backtrace ()
in
let t = Thread.create (fun () ->
try
Printexc.raise_with_backtrace Not_found bt
with Not_found -> ()
) () in
Thread.join t;
flush stdout
|
