# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1591680249 -32400
# Node ID c958c355f8053d9b98c7b8911d161a67e21f866c
# Parent  582f538160d8ef761cad3bc13fcb8ac4ab398cea
...

diff -r 582f538160d8 -r c958c355f805 src/gearsTools/lib/Gears/Util.pm
--- a/src/gearsTools/lib/Gears/Util.pm	Mon Mar 02 18:29:05 2020 +0900
+++ b/src/gearsTools/lib/Gears/Util.pm	Tue Jun 09 14:24:09 2020 +0900
@@ -68,7 +68,7 @@
         my $type = $2;
         my $vname = $3;
         next if ($type eq '__code');
-        $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);
       }
diff -r 582f538160d8 -r c958c355f805 src/gearsTools/static_gen_header.pl
--- a/src/gearsTools/static_gen_header.pl	Mon Mar 02 18:29:05 2020 +0900
+++ b/src/gearsTools/static_gen_header.pl	Tue Jun 09 14:24:09 2020 +0900
@@ -73,9 +73,7 @@
 
 sub emit_last {
   my $type = shift;
-  my $msg = <<"EOF";
-  __code next(....);
-EOF
-  $msg .= "} $type;\n"
+  my $msg = "    __code next(....);\n";
+  $msg .= "} $type;\n";
   return $msg;
 }