# HG changeset patch # User anatofuz # Date 1579686466 -32400 # Node ID fe271d48215175ef312c098f5e39b40930791d59 # Parent 14aa35b563473af0047c4a491a40429d1c6e4852 remove_dump_interface_data diff -r 14aa35b56347 -r fe271d482151 src/gearsTools/trans_impl.pl --- 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}}) {