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

[VladD2]

Log:
Propagate PExpr into TExpr.

Author: VladD2
Date: Wed Feb 14 00:44:16 2007
New Revision: 7420

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

Modified: nemerle/trunk/ncc/typing/TypedTree.n
==============================================================================
--- nemerle/trunk/ncc/typing/TypedTree.n	(original)
+++ nemerle/trunk/ncc/typing/TypedTree.n	Wed Feb 14 00:44:16 2007
@@ -1198,6 +1198,7 @@
 
     public static TrueLiteral (mgr : ManagerClass) : TExpr { BoolLiteral (mgr, true) }
     public static FalseLiteral (mgr : ManagerClass) : TExpr { BoolLiteral (mgr, false) }
+    [Accessor] internal mutable _sourceExpr : Parsetree.PExpr;
   }
 
   public enum ParmKind {

Modified: nemerle/trunk/ncc/typing/Typer.n
==============================================================================
--- nemerle/trunk/ncc/typing/Typer.n	(original)
+++ nemerle/trunk/ncc/typing/Typer.n	Wed Feb 14 00:44:16 2007
@@ -1722,9 +1722,10 @@
           Util.ice ("The completion tokens allowed only if Manager.IsCompletioInProgress is true.")
       }
 
-      texpr.loc = expression.loc;
+      texpr._sourceExpr = expression;
       texpr
     }
+
     #endregion