# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1580188014 -32400
# Node ID 49a70efcbd3a77a5476dcff74c86f9a27cef9c61
# Parent  84ab6c197dd847b7682baba066a0be22425c6db9
fix_arguments...

diff -r 84ab6c197dd8 -r 49a70efcbd3a src/gearsTools/generate_context.pl
--- 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);
diff -r 84ab6c197dd8 -r 49a70efcbd3a src/gearsTools/lib/Gears/Context.pm
--- 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|) {