From 955d13dc2a62cec04d213e79d090bd5bdb3ddf99 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 20 Oct 2006 14:22:41 +0000
Subject: Correction de la localisation des erreurs en interactif (numéro de
 ligne relatif à la ligne au lieu de absolu par rapport à la session)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9252 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/toplevel.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml
index 3b96ede0b5..ac8167f289 100644
--- a/toplevel/toplevel.ml
+++ b/toplevel/toplevel.ml
@@ -136,6 +136,7 @@ let print_highlight_location ib loc =
                       str sn ++ str dn) in 
 	  (l1 ++ li ++ ln)
   in 
+  let loc = make_loc (bp,ep) in
   (str"Toplevel input, characters " ++ Cerrors.print_loc loc ++ fnl () ++
      highlight_lines ++ fnl ())
 
-- 
cgit v1.2.3