[svn] r7376: nemerle/trunk/ncc: hierarchy/TypeBuilder.n testsuite/positive/partial.n

[nazgul]

Log:
Allow partial structs

Author: nazgul
Date: Sun Feb  4 23:12:07 2007
New Revision: 7376

Modified:
   nemerle/trunk/ncc/hierarchy/TypeBuilder.n
   nemerle/trunk/ncc/testsuite/positive/partial.n

Modified: nemerle/trunk/ncc/hierarchy/TypeBuilder.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/TypeBuilder.n	(original)
+++ nemerle/trunk/ncc/hierarchy/TypeBuilder.n	Sun Feb  4 23:12:07 2007
@@ -1146,7 +1146,7 @@
     when (IsStruct)
     {      
       // make sure no bogus attributes have been specified
-      def access_mask = NemerleAttributes.AccessModifiers %| NemerleAttributes.Struct;
+      def access_mask = NemerleAttributes.AccessModifiers %| NemerleAttributes.Struct | NemerleAttributes.Partial;
       when ((attributes %& ~access_mask) != NemerleAttributes.None)
         Message.Error (loc, "structures are only allowed to have access specifiers as attributes");
 

Modified: nemerle/trunk/ncc/testsuite/positive/partial.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/partial.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/partial.n	Sun Feb  4 23:12:07 2007
@@ -179,6 +179,13 @@
   partial class Proj2 { }   
 }
 
+namespace Structs {
+  [Record]
+  partial public struct S { public x : int }   
+  
+  partial public struct S  { public foo () : int { x } }
+}
+
 
 class U {
   static TestParts () : void