Mercurial > hg > Gears > Gears
changeset 620:68e0b5fa6464
...
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 30 May 2020 07:44:14 +0900 |
parents | 3330001e7078 |
children | 30f37074a7ac |
files | src/parallel_execution/cleanup.sh src/parallel_execution/lib/Gears/Util.pm |
diffstat | 1 files changed, 1 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Util.pm Sat May 30 07:37:09 2020 +0900 +++ b/src/parallel_execution/lib/Gears/Util.pm Sat May 30 07:44:14 2020 +0900 @@ -68,9 +68,7 @@ my $type = $2; my $vname = $3; next if ($type eq '__code'); - unless ($const_type) { - $type =~ s/(?:Impl|Type|Isa)/union Data/; - } + $type =~ s/^(?:Impl|Type|Isa)\s*(\*)/union Data $1/; my $val = "$type $vname;\n"; push(@tmp_args, $const_type ? "$const_type $val" : $val); }