[svn] r6186: nemerle/trunk/ncc/typing/Typer.n

[malekith]

Log:
Add API for accessing current method builder.

Author: malekith
Date: Tue Apr 11 10:12:52 2006
New Revision: 6186

Modified:
   nemerle/trunk/ncc/typing/Typer.n

Modified: nemerle/trunk/ncc/typing/Typer.n
==============================================================================
--- nemerle/trunk/ncc/typing/Typer.n	(original)
+++ nemerle/trunk/ncc/typing/Typer.n	Tue Apr 11 10:12:52 2006
@@ -64,6 +64,7 @@
     messenger : Messenger;
     solver : Solver;
     locals_stack : Stack [LocalContext];
+    current_method_builder : MethodBuilder;
     mutable skip_n_return : bool;
     
     mutable inside_yielding_function : bool;
@@ -76,6 +77,7 @@
     /** Walk through method body typing it. */
     public this (m : MethodBuilder)
     {
+      current_method_builder = m;
       solver = Passes.Solver;
       current_type = m.DeclaringType;
       parent_typer = None ();
@@ -381,6 +383,17 @@
     }
 
 
+    public CurrentMethodBuilder : MethodBuilder
+    {
+      get {
+        match (parent_typer) {
+          | Some (t) => t.CurrentMethodBuilder
+          | None => current_method_builder
+        }
+      }
+    }
+
+
     IsTopLevel : bool
     {
       get { ! (parent_typer.IsSome) }