[svn] r6233: nemerle/trunk/ncc/generation/HierarchyEmitter.n

[malekith]

Log:
Apply modopt/req also to ConstructorBuilder. By Wojtek Walewski.

Author: malekith
Date: Fri May  5 21:05:56 2006
New Revision: 6233

Modified:
   nemerle/trunk/ncc/generation/HierarchyEmitter.n

Modified: nemerle/trunk/ncc/generation/HierarchyEmitter.n
==============================================================================
--- nemerle/trunk/ncc/generation/HierarchyEmitter.n	(original)
+++ nemerle/trunk/ncc/generation/HierarchyEmitter.n	Fri May  5 21:05:56 2006
@@ -930,12 +930,23 @@
     {
       // Message.Debug ($"-- AddConstructorBuilder: $this");
 
+      mutable paramTypeRequiredModifiers = [];
+      mutable paramTypeOptionalModifiers = [];
+
+      foreach (p in fun_header.parms)
+      {
+        paramTypeRequiredModifiers ::= p.required_modifiers.ToArray ();
+        paramTypeOptionalModifiers ::= p.optional_modifiers.ToArray ();
+      }
+
       /* create the constructor builder */
       ctor_builder =
         tb.DefineConstructor (make_method_attributes (Attributes) |
                               MethodAttributes.RTSpecialName |
                               MethodAttributes.SpecialName,
-                              CallingConventions.Standard, param_types ());
+                              CallingConventions.Standard, param_types (),
+                              paramTypeRequiredModifiers.Reverse ().ToArray (),
+                              paramTypeOptionalModifiers.Reverse ().ToArray ());
 
       /* add the runtime modifiers for delegate constructors */
       when (DeclaringType.IsDelegate) {