[svn] r6498: nemerle/trunk/ncc/hierarchy/TypeBuilder.n

[VladD2]

Log:
Use Util.locate.

Author: VladD2
Date: Wed Aug  9 21:21:24 2006
New Revision: 6498

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

Modified: nemerle/trunk/ncc/hierarchy/TypeBuilder.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/TypeBuilder.n	(original)
+++ nemerle/trunk/ncc/hierarchy/TypeBuilder.n	Wed Aug  9 21:21:24 2006
@@ -1810,18 +1810,14 @@
 
       def loc = Location_stack.top ();
       def loc = Location (loc.FileIndex, loc.Line, loc.Column, loc.Line, loc.Column);
-      Location_stack.push(loc);
 
       def ctor =
         // in abstract classes we have protected implicit ctor, otherwise public
         // http://www.jaggersoft.com/csharp_standard/17.10.4.htm
         if (IsAbstract)
-          <[ decl: protected this () { } ]>
+          Util.locate (loc, <[ decl: protected this () { } ]>)
         else
-          <[ decl: public this () { } ]>;
-
-      // Restore prevision top location.
-      ignore(Location_stack.pop());
+          Util.locate (loc, <[ decl: public this () { } ]>);
 
       def meth = bind_and_add_member (ctor);
       meth.SetInstanceUsed ();