Mercurial > hg > Gears > Gears
changeset 696:69a00f5ff08c
green status
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 21 Aug 2020 17:40:35 +0900 |
parents | 9a6d413f1112 |
children | 469aff29c27c |
files | src/parallel_execution/lib/Gears/Interface.pm src/parallel_execution/perlTests/Interface.t |
diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Interface.pm Fri Aug 21 17:34:00 2020 +0900 +++ b/src/parallel_execution/lib/Gears/Interface.pm Fri Aug 21 17:40:35 2020 +0900 @@ -135,9 +135,10 @@ # args "Impl* stack, __code next(Type* data, Type* data1, ...)", if ($arg =~ /__code \w+\((.+),\s*\.\.\.\s*\)/) { my $outputArgs = $1; - while ($outputArgs =~ /([\w*]+)\s(\w+),?/g) { - my $ttype = $1; - my $tname = $2; + while ($outputArgs =~ /(struct|union|const|enum)?\s*([\w*]+)\s(\w+),?/g) { + my $structType = $1; + my $ttype = $2; + my $tname = $3; $ir->{hasOutputArgs}->{$codeGearName}->{$tname} = $ttype; } }