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;
           }
         }
--- a/src/parallel_execution/perlTests/Interface.t	Fri Aug 21 17:34:00 2020 +0900
+++ b/src/parallel_execution/perlTests/Interface.t	Fri Aug 21 17:40:35 2020 +0900
@@ -97,7 +97,7 @@
                        ],
             'hasOutputArgs' => {
                                  'take' => {
-                                             'data' => 'union Data*'
+                                             'data' => 'Data*'
                                            }
                                }
           };