URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [emulator.pl] - Diff between revs 36 and 37

Rev 36	Rev 37
Line 94...	Line 94...
`$legend_keys[$i-1]= (defined $l_name)? $l_name : "NoC$i";`	`$legend_keys[$i-1]= (defined $l_name)? $l_name : "NoC$i";`
`$color_num=$i+1 if(!defined $color_num);`	`$color_num=$i+1 if(!defined $color_num);`
`push(@color, "my_color$color_num");`	`push(@color, "my_color$color_num");`
`my $ref=$emulate->object_get_attribute ("sample$i","result");`	`my $ref=$emulate->object_get_attribute ("sample$i","result");`
`if(defined $ref) {`	`if(defined $ref) {`
`push(@x, sort {$a<=>$b} keys $ref);`	`push(@x, sort {$a<=>$b} keys %{$ref});`
`}`	`}`

`}#for`	`}#for`
`my @x2;`	`my @x2;`
`@x2 = uniq(sort {$a<=>$b} @x) if (scalar @x);`	`@x2 = uniq(sort {$a<=>$b} @x) if (scalar @x);`
Line 405...	Line 405...
`my $ref=$emulate->object_get_attribute ("sample$i","result");`	`my $ref=$emulate->object_get_attribute ("sample$i","result");`
`my @x;`	`my @x;`
`if(defined $ref) {`	`if(defined $ref) {`

`print $out "$l_name\n";`	`print $out "$l_name\n";`
`foreach my $x (sort {$a<=>$b} keys $ref) {`	`foreach my $x (sort {$a<=>$b} keys %{$ref}) {`
`my $y=$ref->{$x};`	`my $y=$ref->{$x};`
`print $out "\t$x , $y\n";`	`print $out "\t$x , $y\n";`
`}`	`}`
`print $out "\n\n";`	`print $out "\n\n";`
`}`	`}`