diff options
| author | Pierre-Marie Pédrot | 2020-05-15 13:46:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-05-15 13:46:59 +0200 |
| commit | b5b6e2d4c8347cb25da6f827a6b6f06cb0f566e5 (patch) | |
| tree | 74557075886e9ce7c8ac146425195ba48dd06584 /clib | |
| parent | bcfb5f2cab54d0eb88ed57911b77c05d2b916431 (diff) | |
| parent | e8bde450d05908f70ab2c82d9d24f0807c56a94a (diff) | |
Merge PR #11755: [exn] [tactics] improve backtraces on monadic errors
Ack-by: gares
Ack-by: ppedrot
Diffstat (limited to 'clib')
| -rw-r--r-- | clib/exninfo.ml | 7 | ||||
| -rw-r--r-- | clib/exninfo.mli | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/clib/exninfo.ml b/clib/exninfo.ml index 621f7e615f..07b7f47529 100644 --- a/clib/exninfo.ml +++ b/clib/exninfo.ml @@ -117,3 +117,10 @@ let capture e = e, add info backtrace_info bt else e, info e + +let reify () = + if !is_recording then + let bt = Printexc.get_callstack 50 in + add null backtrace_info bt + else + null diff --git a/clib/exninfo.mli b/clib/exninfo.mli index 55f0662431..08395f59f4 100644 --- a/clib/exninfo.mli +++ b/clib/exninfo.mli @@ -79,3 +79,5 @@ val capture : exn -> iexn val iraise : iexn -> 'a (** Raise the given enriched exception. *) + +val reify : unit -> info |