[svn] r7154: nemerle/trunk: macros/compiler.n ncc/hierarchy/TypeBuilder.n

[VladD2]

Log:
Fix compiling bug (move TypeBuilder.n() to SupportRelocation() macro).

Author: VladD2
Date: Tue Dec 26 14:48:49 2006
New Revision: 7154

Modified:
   nemerle/trunk/macros/compiler.n
   nemerle/trunk/ncc/hierarchy/TypeBuilder.n

Modified: nemerle/trunk/macros/compiler.n
==============================================================================
--- nemerle/trunk/macros/compiler.n	(original)
+++ nemerle/trunk/macros/compiler.n	Tue Dec 26 14:48:49 2006
@@ -417,6 +417,19 @@
       }
     }
 
+    typeBuilder.Define(
+      <[ decl:
+      public Relocate(info : RelocationInfo) : void
+      {
+        //def timer =  System.Diagnostics.Stopwatch.StartNew();
+        // The RelocateImpl() is autogenerated by SupportRelocation macro.
+        RelocateImplInternal(info/*, ""*/);
+
+        //System.Diagnostics.Trace.WriteLine($"builder.Relocate() took: $(timer.Elapsed)");
+        //System.Diagnostics.Trace.WriteLine($"info.VisitCount=$(info.VisitCount) info.NodeCount=$(info.NodeCount)");
+      }
+      ]>);
+
     //wl("^^^^^^^ 2. Generate RelocateImpl (info : RelocationInfo) : void methods.");
     // End 2.
     /////////////////////////////////////////////////////////////////////////

Modified: nemerle/trunk/ncc/hierarchy/TypeBuilder.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/TypeBuilder.n	(original)
+++ nemerle/trunk/ncc/hierarchy/TypeBuilder.n	Tue Dec 26 14:48:49 2006
@@ -2658,17 +2658,6 @@
                            FullName)
   }
 
-  public Relocate(info : RelocationInfo) : void
-  {
-    //def timer =  System.Diagnostics.Stopwatch.StartNew();
-    // The RelocateImpl() is autogenerated by SupportRelocation macro.
-    RelocateImplInternal(info/*, ""*/);
-
-    //System.Diagnostics.Trace.WriteLine($"builder.Relocate() took: $(timer.Elapsed)");
-    //System.Diagnostics.Trace.WriteLine($"info.VisitCount=$(info.VisitCount) info.NodeCount=$(info.NodeCount)");
-  }
-
-
   /// Get direct (derived directly) subtypes of given type.
   public GetDirectSubTypes() : list[TypeBuilder]
   {