--- a/src/parallel_execution/generate_context.pl	Thu Feb 02 18:29:50 2017 +0900
+++ b/src/parallel_execution/generate_context.pl	Thu Feb 02 20:27:56 2017 +0900
@@ -118,7 +118,7 @@
     }
     for my $impl ( sort keys %constructor ) {
         my ($interface, $constructorArgs) = @{$constructor{$impl}};
-        print $fd "extern $interface create${impl}($constructorArgs);\n";
+        print $fd "extern ${interface}* create${impl}($constructorArgs);\n";
     }
     print $fd "\n";
 
@@ -138,12 +138,6 @@
 #include <stdlib.h>
 
 #include "../context.h"
-#include "extern.h"
-
-extern __code start_code(struct Context* context);
-extern __code exit_code(struct Context* context);
-extern __code meta(struct Context* context, enum Code next);
-extern void initContext(struct Context* context);
 
 void initContext(struct Context* context) {
     context->heapLimit = sizeof(union Data)*ALLOCATE_SIZE;
@@ -197,6 +191,8 @@
 // end $context_c
 EOFEOF
 
+    print $fd $meta_call;
+
     open my $fd,">","$ddir/enumData.h" or die("can't open $ddir/enumData.h $!");
     print $fd "enum DataType {\n";
     print $fd "    D_Code,\n";