Mercurial > hg > Gears > Gears
changeset 667:72b7863ea5b4
...
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 18 Aug 2020 19:56:33 +0900 |
parents | 9bf4e49d3399 |
children | 6c07eb2d4d39 |
files | src/parallel_execution/lib/Gears/Util.pm src/parallel_execution/tools/trans_impl.pl |
diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/parallel_execution/lib/Gears/Util.pm Tue Aug 18 19:45:26 2020 +0900 +++ b/src/parallel_execution/lib/Gears/Util.pm Tue Aug 18 19:56:33 2020 +0900 @@ -278,6 +278,8 @@ next; } + # ALLOCATE is generated by generate_stub.pl + # because extraction_dg_compile_sources caller after translated .cbc to .c #Element* element = &ALLOCATE(cbc_context, Element)->Element; if ($line =~ /ALLOCATE\w*\((?:cbc_)?context,\s*(\w+)\)/) { my $implementation = $1; @@ -345,7 +347,7 @@ $counter{interfaces}->{Meta}++; $counter{interfaces}->{TaskManager}++; #print "-----------\n"; - #print Dumper \%counter; + #print Dumper \%counter; #this line is debug message #print "-----------\n"; return \%counter; }
--- a/src/parallel_execution/tools/trans_impl.pl Tue Aug 18 19:45:26 2020 +0900 +++ b/src/parallel_execution/tools/trans_impl.pl Tue Aug 18 19:56:33 2020 +0900 @@ -18,10 +18,10 @@ die "require header file"; } -my $impl_ir = Gears::Util->parse_with_separate_code_data_gears(File::Spec->rel2abs($impl_file)); +my $impl_ir = Gears::Util->separate_code_and_data_gear_after_parse(File::Spec->rel2abs($impl_file)); my $interface_file = find_using_interface_header($impl_ir->{isa},"$FindBin::Bin/.."); -my $inter_ir = Gears::Util->parse_with_separate_code_data_gears($interface_file); +my $inter_ir = Gears::Util->separate_code_and_data_gear_after_parse($interface_file); my $interface_var_name = shift @{$inter_ir->{data}};