[svn] r6506: nemerle/trunk/ncc: parsing/Utility.n passes.n

[nazgul]

Log:
Make location stack publicly accessible through Manager

Author: nazgul
Date: Thu Aug 10 23:10:53 2006
New Revision: 6506

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

Modified: nemerle/trunk/ncc/parsing/Utility.n
==============================================================================
--- nemerle/trunk/ncc/parsing/Utility.n	(original)
+++ nemerle/trunk/ncc/parsing/Utility.n	Thu Aug 10 23:10:53 2006
@@ -306,20 +306,9 @@
   [ManagerAccess (ManagerClass.Instance)]
   module Location_stack
   {
-    public push (l : Location) : void
-    {
-      Manager.Location_stack.Add (l)
-    }
-
-    [Nemerle.Assertions.Requires (!Manager.Location_stack.IsEmpty)]
-    public pop () : void
-    {
-      Manager.Location_stack.RemoveLast ();
-    }
-
     public top () : Location
     {
-      def s = Manager.Location_stack;
+      def s = Manager.LocationStack;
       if (s.IsEmpty)
         Location.Default
       else

Modified: nemerle/trunk/ncc/passes.n
==============================================================================
--- nemerle/trunk/ncc/passes.n	(original)
+++ nemerle/trunk/ncc/passes.n	Thu Aug 10 23:10:53 2006
@@ -104,7 +104,7 @@
     internal mutable Message_emitted_hints : Hashtable [string, int] = Hashtable ();
 
     protected internal mutable Message_output : System.IO.TextWriter;
-    internal Location_stack : Vector [Location] = Vector (32);
+    public LocationStack : Vector [Location] = Vector (32);
 
     /** mapping from index to file name */
     internal Location_file_names : array [string] = array (1024);