[svn] r6869: nemerle/trunk/ncc/hierarchy/ClassMembers.n

[VladD2]

Log:
Add test to Abstract attribute into BodyXxx properties of MethodBuilder class.

Author: VladD2
Date: Sun Nov 12 00:57:30 2006
New Revision: 6869

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

Modified: nemerle/trunk/ncc/hierarchy/ClassMembers.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/ClassMembers.n	(original)
+++ nemerle/trunk/ncc/hierarchy/ClassMembers.n	Sun Nov 12 00:57:30 2006
@@ -743,6 +743,7 @@
 
   public EnsureCompiled() : void
   {
+    unless (this.Attributes %&& NemerleAttributes.Abstract)
     _ = BodyTyped;
   }
 
@@ -751,6 +752,7 @@
   {
     get
     {
+      System.Diagnostics.Trace.Assert(!(Attributes %&& NemerleAttributes.Abstract));
       when (_bodyMessages == null)
         _bodyMessages = SCG.List();
 
@@ -778,6 +780,7 @@
   {
     get
     {
+      System.Diagnostics.Trace.Assert(!(Attributes %&& NemerleAttributes.Abstract));
       System.Diagnostics.Trace.Assert(Manager.IsInCompletionMode);
       when (_bodyTokens == null)
       {
@@ -798,6 +801,7 @@
   {
     get
     {
+      System.Diagnostics.Trace.Assert(!(Attributes %&& NemerleAttributes.Abstract));
       System.Diagnostics.Trace.Assert(Manager.IsInCompletionMode);
       when (_bodyParsed == null)
       {
@@ -817,6 +821,7 @@
   {
     get
     {
+      System.Diagnostics.Trace.Assert(!(Attributes %&& NemerleAttributes.Abstract));
       System.Diagnostics.Trace.Assert(Manager.IsInCompletionMode);
       when (_bodyTyped == null)
       {