diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-01-17 09:49:04 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-01-17 09:49:04 +0100 |
commit | 43db836ea4fb19036a19f78e1f988f75a42b910c (patch) | |
tree | a653f92b566735e85386715165a783afbfb54839 /driver | |
parent | 747ad5bd8c364684256fc7dd306cd475401fe1b0 (diff) | |
download | compcert-kvx-43db836ea4fb19036a19f78e1f988f75a42b910c.tar.gz compcert-kvx-43db836ea4fb19036a19f78e1f988f75a42b910c.zip |
Added backtrace handler.
If CompCert crashes because of an uncaught exception the exception
is caught toplevel and the backtrace is printed plus an additional
message to include the backtrace in a support request, if buildnr
and tag are available.
Bug 20681.
Diffstat (limited to 'driver')
-rwxr-xr-x | driver/Driver.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/driver/Driver.ml b/driver/Driver.ml index e3b9ec52..8fc52e0c 100755 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -552,3 +552,5 @@ let _ = if Cerrors.check_errors () then exit 2 with Sys_error msg -> eprintf "I/O error: %s.\n" msg; exit 2 + | e -> + Cerrors.crash e |