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

[malekith]

Log:
Make the TypeBuilder.Location ,,hold'' the entire type, not just the header.

Author: malekith
Date: Fri Mar  3 12:14:57 2006
New Revision: 6147

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	Fri Mar  3 12:14:57 2006
@@ -568,9 +568,11 @@
                 parse_top_extensions (mods, MacroTargets.Class);
 
                 mutable members = null;
+                mutable end_loc = name.Location;
                 unless (key == "type")
                   match (get_token ()) {
-                    | Token.BracesGroup (children) =>
+                    | Token.BracesGroup (children) as tok =>
+                      end_loc = tok.Location;
                       push_stream (children);
                       match (maybe_parse_ellipsis ()) {
                         | Some(e) =>
@@ -611,7 +613,7 @@
                     | _ => Util.ice ()
                   };
                 td.name = name;
-                td.loc = tok.Location + name.Location;                
+                td.loc = tok.Location + end_loc;
                 td
 
               | "delegate" =>