Mercurial > hg > Members > menikon > CbC_xv6

changeset 276:49a70efcbd3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix_arguments...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 14:06:54 +0900
parents 84ab6c197dd8
children 0ea4d14c54bd
files src/gearsTools/generate_context.pl src/gearsTools/lib/Gears/Context.pm
diffstat 2 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/generate_context.pl	Tue Jan 28 13:41:46 2020 +0900
+++ b/src/gearsTools/generate_context.pl	Tue Jan 28 14:06:54 2020 +0900
@@ -81,7 +81,7 @@
   my @cbc_files;
   map { push(@cbc_files,File::Spec->rel2abs($_)); }  @ARGV;
   my $gears      = Gears::Context->new(compile_sources => \@cbc_files, find_root => "$FindBin::Bin/../", output => $output);
-  my $data_gears = $gears->extraction_dg_compile_sources();
+  my $data_gears = $gears->extraction_dg_compile_sources($gears->{compile_sources});
   my $g          = $gears->set_data_gear_header_path(keys %{$data_gears->{impl}},keys %{$data_gears->{interfaces}});
 
   my $dg2path    = $gears->update_dg_each_header_path($data_gears,$g);
--- a/src/gearsTools/lib/Gears/Context.pm	Tue Jan 28 13:41:46 2020 +0900
+++ b/src/gearsTools/lib/Gears/Context.pm	Tue Jan 28 14:06:54 2020 +0900
@@ -25,10 +25,10 @@
 
 
 sub extraction_dg_compile_sources {
-  my $self = shift;
+  my ($self, $compile_sources) = @_;
   my %counter;
   my %include_pool = ();
-  for my $cbc_file (@{$self->{compile_sources}}) {
+  for my $cbc_file (@{$compile_sources}) {
     open my $fh , '<', $cbc_file;
     while (my $line = <$fh>) {
         if ($line =~ m|//\s*:skip|) {