[svn] r6905: nemerle/trunk/ncc/parsing/MainParser.n

[VladD2]

Log:
Fix location of .ctor header.

Author: VladD2
Date: Thu Nov 16 03:19:36 2006
New Revision: 6905

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

Modified: nemerle/trunk/ncc/parsing/MainParser.n
==============================================================================
--- nemerle/trunk/ncc/parsing/MainParser.n	(original)
+++ nemerle/trunk/ncc/parsing/MainParser.n	Thu Nov 16 03:19:36 2006
@@ -753,8 +753,9 @@
 
               | Token.Keyword ("this") =>
                 shift ();
+                def paramsLoc = peek_token ().Location;
                 def parms = parse_parameters ();                
-                def header = Fun_header (start_tok.Location + tok.Location,
+                def header = Fun_header (start_tok.Location + paramsLoc,
                                          name = Splicable.Name (mkname (".ctor")),
                                          ret_type = PExpr.Void (),
                                          parms = parms,