From 74c9867ec0b552e5df5c56725fadcd24452ca12e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 23 Oct 2010 21:09:32 +0000
Subject: 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
---
 toplevel/cerrors.ml | 4 ++++
 1 file changed, 4 insertions(+)

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 ()
-- 
cgit v1.2.3