Mercurial > hg > CbC > CbC_xv6

changeset 353:c958c355f805

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 09 Jun 2020 14:24:09 +0900
parents 582f538160d8
children fde5f96c6ff1
files src/gearsTools/lib/Gears/Util.pm src/gearsTools/static_gen_header.pl
diffstat 2 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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);
       }
--- 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;
 }