diff options
| author | herbelin | 2010-10-23 21:09:32 +0000 |
|---|---|---|
| committer | herbelin | 2010-10-23 21:09:32 +0000 |
| commit | 74c9867ec0b552e5df5c56725fadcd24452ca12e (patch) | |
| tree | 8dcd81f956455137a8deaab0e4d050b5769a2638 | |
| parent | 54203b86a973f05326153b40c850c6a9c00b23b6 (diff) | |
Fixing bug #2412, continued (preprocessing of Ltac Debug errors
forgotten in r13431). Sorry for having thought that the extra needed
line could after all be not necessary.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13576 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/cerrors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml index 13712ebbed..e5141f5561 100644 --- a/toplevel/cerrors.ml +++ b/toplevel/cerrors.ml @@ -65,6 +65,10 @@ let rec explain_exn_default_aux anomaly_string report_fn = function hov 0 (anomaly_string () ++ str "uncaught exception Invalid_argument " ++ str (guill s) ++ report_fn ()) | Sys.Break -> hov 0 (fnl () ++ str "User interrupt.") + | Stdpp.Exc_located (loc,exc) -> + hov 0 ((if loc = dummy_loc then (mt ()) + else (str"At location " ++ print_loc loc ++ str":" ++ fnl ())) + ++ explain_exn_default_aux anomaly_string report_fn exc) | Assert_failure (s,b,e) -> hov 0 (anomaly_string () ++ str "assert failure" ++ spc () ++ (if s = "" then mt () |