Mercurial > hg > CbC > CbC_xv6
changeset 161:06bf68d3b83b
tweak
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 14 Jan 2020 20:54:21 +0900 |
parents | 5de948efb678 |
children | efff86f375ed |
files | src/gearsTools/trans_impl.pl src/impl/pipe.h |
diffstat | 2 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/gearsTools/trans_impl.pl Tue Jan 14 17:10:32 2020 +0900 +++ b/src/gearsTools/trans_impl.pl Tue Jan 14 20:54:21 2020 +0900 @@ -75,15 +75,15 @@ EOF for my $datum (@impl_data) { - if ($datum =~ /\w+ \w+\* (\w+)/) { + if ($datum =~ /\w+\s\w+\*\s(\w+)/) { print $out " ${instance_impl}->$1 = NULL;\n"; next; } - if ($datum =~ /\w+ \w+ (\w+)/) { + if ($datum =~ /\w+\s\w+\s(\w+)/) { print $out " ${instance_impl}->$1 = 0;\n"; } - if ($datum =~ /\w+(\*)? (\w+)/) { + if ($datum =~ /\w+(\*)?\s(\w+)/) { my $is_pointer = $1; my $var_name = $2; if ($1) { @@ -95,15 +95,15 @@ } for my $datum (@inter_data) { - if ($datum =~ /\w+ \w+\* (\w+)/) { + if ($datum =~ /\w+\s\w+\*\s(\w+)/) { print $out " ${instance_inter}->$1 = NULL;\n"; next; } - if ($datum =~ /\w+ \w+ (\w+)/) { + if ($datum =~ /\w+\s\w+\s(\w+)/) { print $out " ${instance_inter}->$1 = 0;\n"; next; } - if ($datum =~ /\w+(\*)? (\w+)/) { + if ($datum =~ /\w+(\*)?\s(\w+)/) { my $is_pointer = $1; my $var_name = $2; if ($1) {