[svn] r7595: nemerle/trunk/ncc: generation/ILEmitter.n parsing/ParseTree.n typing/Typer.n

[IT]

Log:
Skip generated local value breakpoints.

Author: IT
Date: Fri Apr 13 06:00:04 2007
New Revision: 7595

Modified:
   nemerle/trunk/ncc/generation/ILEmitter.n
   nemerle/trunk/ncc/parsing/ParseTree.n
   nemerle/trunk/ncc/typing/Typer.n

Modified: nemerle/trunk/ncc/generation/ILEmitter.n
==============================================================================
--- nemerle/trunk/ncc/generation/ILEmitter.n	(original)
+++ nemerle/trunk/ncc/generation/ILEmitter.n	Fri Apr 13 06:00:04 2007
@@ -197,6 +197,7 @@
     /** Marks the point in source file for currently emmited opcode */
     Mark (loc : Location) : void
     {
+      //when (loc.Line == loc.Line)
       when (IsDebugEnabled && loc.Line != 0 && !debug_tmp_disabled && !prev_location.Contains(loc)) {
         prev_location = loc;
         Util.cassert (loc.Line <= loc.EndLine, "spoiled location " + loc.File + " " + loc.ToString ());
@@ -595,7 +596,11 @@
           match (let_val)
           {
           | Call as call => MarkCall (call, decl.Location.Combine(call.Location));
-          | _            => Mark (decl.Location);
+          | _            =>
+
+            when (decl.Location.Line == decl.Location.EndLine && !decl.Name.StartsWith("_N_"))
+              Mark (decl.Location);
+
           }
 
           def newscope = 

Modified: nemerle/trunk/ncc/parsing/ParseTree.n
==============================================================================

Modified: nemerle/trunk/ncc/typing/Typer.n
==============================================================================
--- nemerle/trunk/ncc/typing/Typer.n	(original)
+++ nemerle/trunk/ncc/typing/Typer.n	Fri Apr 13 06:00:04 2007
@@ -1157,6 +1157,10 @@
       DoExpect (expected, actual, place, true)
     }
 
+    _debug(obj : object) : void
+    {
+      _ = obj.ToString();
+    }
    
     DoType (expression : PT.PExpr, expected : TyVar, is_toplevel_in_seq : bool) : TExpr
     {