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

[kliss]

Log:
Fix method header locations better

Author: kliss
Date: Tue Aug 28 17:31:39 2007
New Revision: 7777

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	Tue Aug 28 17:31:39 2007
@@ -850,7 +850,7 @@
                 if (is_property)
                   parse_property (start_tok.Location, mods, customs, id, ret_type, parms, typarms)
                 else {
-                  def header = Fun_header (id.Location + parmsloc + ret_type.Location,
+                  def header = Fun_header (start_tok.Location.FromStart() + parmsloc + ret_type.Location,
                                            name = id,
                                            ret_type = ret_type, 
                                            parms = parms, 
@@ -863,7 +863,7 @@
               | Token.Keyword ("this") =>
                 shift ();
                 def (parms, paramsLoc) = parse_parameters ();
-                def header = Fun_header (tok.Location + paramsLoc,
+                def header = Fun_header (start_tok.Location.FromStart() + paramsLoc,
                                          name = Splicable.Name (tok.Location, mkname (".ctor")),
                                          ret_type = PExpr.Void (),
                                          parms = parms,