Force the recording of backtraces
This commit is contained in:
parent
4aec06ee46
commit
3cb0372f8b
|
@ -6,6 +6,9 @@ module Set = MoreLabels.Set
|
||||||
|
|
||||||
external reraise : exn -> _ = "%reraise"
|
external reraise : exn -> _ = "%reraise"
|
||||||
|
|
||||||
|
(* To make bug reports usable *)
|
||||||
|
let () = Printexc.record_backtrace true
|
||||||
|
|
||||||
let open_in = open_in_bin
|
let open_in = open_in_bin
|
||||||
let open_out = open_out_bin
|
let open_out = open_out_bin
|
||||||
|
|
||||||
|
|
|
@ -88,7 +88,7 @@ let report_error ?(map_fname=fun x->x) ppf exn ~backtrace =
|
||||||
pkg
|
pkg
|
||||||
| Code_error msg ->
|
| Code_error msg ->
|
||||||
let bt = Printexc.raw_backtrace_to_string backtrace in
|
let bt = Printexc.raw_backtrace_to_string backtrace in
|
||||||
Format.fprintf ppf "@{<error>Internal error, please report upstream.@}\n\
|
Format.fprintf ppf "@{<error>Internal error, please report upstream (include the contents of _build/log.@}\n\
|
||||||
Description: %s\n\
|
Description: %s\n\
|
||||||
Backtrace:\n\
|
Backtrace:\n\
|
||||||
%s" msg bt
|
%s" msg bt
|
||||||
|
|
Loading…
Reference in New Issue