diff src/parallel_execution/generate_context.pl @ 259:195518ab62fc

fix type gathering pattern match in generate_stub.pl
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 28 Jan 2017 12:37:22 +0900
parents cd3486e4ba70
children 9d671e63df74
line wrap: on
line diff
--- a/src/parallel_execution/generate_context.pl	Fri Jan 27 21:20:07 2017 +0900
+++ b/src/parallel_execution/generate_context.pl	Sat Jan 28 12:37:22 2017 +0900
@@ -64,6 +64,7 @@
 my %codeGear;
 my %dataGear;
 
+# gather module Information for code table initialization
 for (@ARGV) {
     next if (/context.c/);
     &getStubInfo($_);
@@ -71,7 +72,8 @@
 
 my (%mCodeGear) = (%codeGear);
 
-while (<*.c>) {
+# anyway we gather all Gears Information
+while (<*.c test/*.c>) {
     next if (/context.c/);
     &getStubInfo($_);
 }
@@ -154,6 +156,7 @@
 
     open my $fd,">","$ddir/enumData.h" or die("can't open $ddir/enumData.h $!");
     print $fd "enum DataType {\n";
+    print $fd "    D_Code,\n";
     for my $data ( sort keys %dataGear ) {
         print $fd "    D_${data},\n";
     }