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

[malekith]

Log:
Use FlagAccessor macros.

Author: malekith
Date: Tue Dec  6 13:10:26 2005
New Revision: 6000

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

Modified: nemerle/trunk/ncc/typing/TypedTree.n
==============================================================================
--- nemerle/trunk/ncc/typing/TypedTree.n	(original)
+++ nemerle/trunk/ncc/typing/TypedTree.n	Tue Dec  6 13:10:26 2005
@@ -27,6 +27,7 @@
  */
 
 using Nemerle.Compiler;
+using Nemerle.Utility;
 using Nemerle.Compiler.Typedtree;
 
 namespace Nemerle.Compiler.Typedtree
@@ -477,6 +478,10 @@
                               cases : list [int * TExpr]; }
     
     public mutable ty : TyVar;
+    
+    [FlagAccessor (IsAssigned, flags = WantSetter | Internal)]
+    [FlagAccessor (JumpTarget, flags = WantSetter | Internal)]
+    [FlagAccessor (Visited, flags = WantSetter | Internal)]
     mutable flags : TExprFlags;
 
     #region Typer4 and ILGenerator stuff
@@ -562,40 +567,6 @@
         }
       }
     }
-
-    internal IsAssigned : bool
-    {
-      get { flags %&& TExprFlags.IsAssigned }
-      set {
-        if (value)
-          flags |= TExprFlags.IsAssigned
-        else
-          flags &= ~TExprFlags.IsAssigned
-      }
-    }
-
-    // FIXME this kind of code should be possible to be generated by a macro
-    public Visited : bool
-    {
-      get { flags %&& TExprFlags.Visited }
-      set {
-        if (value)
-          flags |= TExprFlags.Visited
-        else
-          flags &= ~TExprFlags.Visited
-      }
-    }
-
-    internal JumpTarget : bool
-    {
-      get { flags %&& TExprFlags.JumpTarget }
-      set {
-        if (value)
-          flags |= TExprFlags.JumpTarget
-        else
-          flags &= ~TExprFlags.JumpTarget
-      }
-    }
     #endregion
 
     public Type : TyVar