Mercurial > hg > CbC > CbC_xv6

changeset 191:fe271d482151

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove_dump_interface_data
author anatofuz
date Wed, 22 Jan 2020 18:47:46 +0900
parents 14aa35b56347
children 429f0c3cc097
files src/gearsTools/trans_impl.pl
diffstat 1 files changed, 24 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/trans_impl.pl	Wed Jan 22 18:40:15 2020 +0900
+++ b/src/gearsTools/trans_impl.pl	Wed Jan 22 18:47:46 2020 +0900
@@ -99,31 +99,31 @@
         }
   }
 
-  for my $datum (@inter_data) {
-        # remove macro, comment block
-        $datum =~ s|//[\s\w]+||;
-        if ($datum =~ /^\s+#/) {
-          next;
-        }
+  #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;
-        }
-        if ($datum =~ /\w+\s\w+\s(\w+)/) {
-            print $out "    ${instance_inter}->$1 = 0;\n";
-            next;
-        }
-        if ($datum =~ /\w+(\*)?\s(\w+)/) {
-            my $is_pointer = $1;
-            my $var_name = $2;
-            if ($1) {
-                print $out "    ${instance_inter}->$var_name = NULL;\n";
-            } else {
-                print $out "    ${instance_inter}->$var_name  = 0;\n";
-            }
-        }
-  }
+  #      if ($datum =~ /\w+\s\w+\*\s(\w+)/) {
+  #          print $out "    ${instance_inter}->$1 = NULL;\n";
+  #          next;
+  #      }
+  #      if ($datum =~ /\w+\s\w+\s(\w+)/) {
+  #          print $out "    ${instance_inter}->$1 = 0;\n";
+  #          next;
+  #      }
+  #      if ($datum =~ /\w+(\*)?\s(\w+)/) {
+  #          my $is_pointer = $1;
+  #          my $var_name = $2;
+  #          if ($1) {
+  #              print $out "    ${instance_inter}->$var_name = NULL;\n";
+  #          } else {
+  #              print $out "    ${instance_inter}->$var_name  = 0;\n";
+  #          }
+  #      }
+  #}
 
 
   for my $code (@{$impl_ir->{codes}}) {