matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

You get a quote from Dune if you can make Dune crash 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-07-19 12:18:38 +01:00
parent 6b29a24d89
commit 0ad983c729
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/report_error.ml
View File

@ -19,6 +19,17 @@ let p =
let reporters = ref []
let register f = reporters := f :: !reporters
let i_must_not_segfault =
let x = lazy (at_exit (fun () ->
prerr_endline "
I must not segfault. Uncertainty is the mind-killer. Exceptions are
the little-death that brings total obliteration. I will fully express
my cases. Execution will pass over me and through me. And when it
has gone past, I will unwind the stack along its path. Where the
cases are handled there will be nothing. Only I will remain."))
in
fun () -> Lazy.force x
(* Firt return value is [true] if the backtrace was printed *)
let report_with_backtrace exn =
match List.find_map !reporters ~f:(fun f -> f exn) with
@ -144,5 +155,6 @@ let report exn =
Format.pp_print_flush ppf ();
let s = Buffer.contents err_buf in
Buffer.clear err_buf;
print_to_console s
print_to_console s;
if p.backtrace then i_must_not_segfault ()
end