--- a/src/gearsTools/trans_impl.pl	Wed Jan 15 16:26:44 2020 +0900
+++ b/src/gearsTools/trans_impl.pl	Wed Jan 15 16:34:37 2020 +0900
@@ -75,6 +75,11 @@
 EOF
 
   for my $datum (@impl_data) {
+        $datum =~ s|//[\s\w]+||;
+        if ($datum =~ /^\s+#/) {
+          next;
+        }
+
         if ($datum =~ /\w+\s\w+\*\s(\w+)/) {
             print $out "    ${instance_impl}->$1 = NULL;\n";
             next;
@@ -95,6 +100,12 @@
   }
 
   for my $datum (@inter_data) {
+        # remove macro, comment block
+        $datum =~ s|//[\s\w]+||;
+        if ($datum =~ /^\s+#/) {
+          next;
+        }
+
         if ($datum =~ /\w+\s\w+\*\s(\w+)/) {
             print $out "    ${instance_inter}->$1 = NULL;\n";
             next;