Implement defining parametric roles

sorear · Oct 20, 2011 · f2453c4 · f2453c4
1 parent a77df2e
commit f2453c4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/CodeGen.cs b/lib/CodeGen.cs
@@ -3965,6 +3965,11 @@ public class DowncallReceiver : CallReceiver {
 
                 add_to.mo.AddMethodPos(mode, name, sub.protosub, file, line);
                 return null;
+            } else if (cmd == "type_set_instantiation_block") {
+                STable  add_to = (STable)Handle.Unbox(args[1]);
+                SubInfo block  = (SubInfo)Handle.Unbox(args[2]);
+                add_to.mo.roleFactory = block.protosub;
+                return null;
             } else if (cmd == "type_closed") {
                 STable st = (STable)Handle.Unbox(args[1]);
                 return st.mo.isComposed;