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

[VladD2]

Log:


Author: VladD2
Date: Fri Jul 21 11:32:52 2006
New Revision: 6456

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

Modified: nemerle/trunk/ncc/parsing/PreParser.n
==============================================================================
--- nemerle/trunk/ncc/parsing/PreParser.n	(original)
+++ nemerle/trunk/ncc/parsing/PreParser.n	Fri Jul 21 11:32:52 2006
@@ -434,7 +434,8 @@
                   Location(loc.FileIndex, loc.EndLine, loc.EndColumn, end.Line, end.Column);
                 }
 
-                lexer.Manager.OnAfterNamespaceParse (id, idLoc, oldEnv, Env, nsBodyLoc);
+                lexer.Manager.OnAfterNamespaceParse (loc + nsBodyLoc,
+                  id, idLoc, oldEnv, Env, nsBodyLoc);
 
                 Env = oldEnv;
                 lexer.Keywords = Env.Keywords;

Modified: nemerle/trunk/ncc/passes.n
==============================================================================
--- nemerle/trunk/ncc/passes.n	(original)
+++ nemerle/trunk/ncc/passes.n	Fri Jul 21 11:32:52 2006
@@ -146,19 +146,20 @@
     }
 
     protected mutable _afterNamespaceParse
-      : list [string] * Location * GlobalEnv * GlobalEnv * Location -> void;
+      : Location * list [string] * Location * GlobalEnv * GlobalEnv * Location -> void;
 
     internal OnAfterNamespaceParse (
+      location : Location,
       name : list [string],
       nameLocation : Location,
       outsideEnv : GlobalEnv,
       insideEnv : GlobalEnv,
-      namespaceLocation : Location
+      bodyLocation : Location
       ) : void
     {
       when (_afterNamespaceParse != null)
-        _afterNamespaceParse (name, nameLocation, outsideEnv,
-          insideEnv, namespaceLocation);
+        _afterNamespaceParse (location, name, nameLocation, outsideEnv,
+          insideEnv, bodyLocation);
     }