[svn] r6662: nemerle/trunk/ncc/parsing/PreParser.n

[IT]

Log:
Fixed location bug in case of PreParserException exception.

Author: IT
Date: Mon Sep 18 03:03:43 2006
New Revision: 6662

Modified:
   nemerle/trunk/ncc/parsing/PreParser.n

Modified: nemerle/trunk/ncc/parsing/PreParser.n
==============================================================================
--- nemerle/trunk/ncc/parsing/PreParser.n	(original)
+++ nemerle/trunk/ncc/parsing/PreParser.n	Mon Sep 18 03:03:43 2006
@@ -248,7 +248,7 @@
         Message.Error (loc, "when parsing this `{' brace group");
         Message.Error (e.Location, e.Message);
         def group = finish_parent (parent_begin, current_begin);
-        Token.BracesGroup (loc, group);
+        Token.BracesGroup (loc + e.Location, group);
       }
     }
 
@@ -278,7 +278,7 @@
         Message.Error (loc, "when parsing this `(' brace group");
         Message.Error (e.Location, e.Message);
         def group = finish_parent (parent_begin, current_begin);
-        Token.RoundGroup (loc, group);
+        Token.RoundGroup (loc + e.Location, group);
       }
     }
 
@@ -306,7 +306,7 @@
         Message.Error (loc, "when parsing this `[' brace group");
         Message.Error (e.Location, e.Message);
         def group = finish_parent (parent_begin, current_begin);
-        Token.SquareGroup (loc, group);
+        Token.SquareGroup (loc + e.Location, group);
       }
     }
 
@@ -334,7 +334,7 @@
         Message.Error (loc, "when parsing this `<[' brace group");
         Message.Error (e.Location, e.Message);
         def group = finish_parent (parent_begin, current_begin);
-        Token.QuoteGroup (loc, group);
+        Token.QuoteGroup (loc + e.Location, group);
       }
     }