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
Compare Revisions
- This comparison shows the changes necessary to convert path
/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk/mpsoc/perl_gui
- from Rev 45 to Rev 46
- ↔ Reverse comparison
Rev 45 → Rev 46
/lib/perl/mpsoc_gen.pl
43,6 → 43,9
my $mpsoc=shift; |
my @socs=$mpsoc->mpsoc_get_soc_list(); |
foreach my $soc_name (@socs){ |
|
|
|
my %param_value; |
my $top=$mpsoc->mpsoc_get_soc($soc_name); |
my @insts=$top->top_get_all_instances(); |
56,6 → 59,29
} |
} |
$top->top_add_default_soc_param(\%param_value); |
|
|
|
#save default and custom parameter values |
my $a= $mpsoc->object_get_attribute("soc_params_${soc_name}",undef); |
return if(! defined $a); |
my %r = %{$a}; |
foreach my $p (sort keys %r ){ |
my $params= $mpsoc->object_get_attribute("soc_params_${soc_name}","$p"); |
|
if ($p eq 'default'){ |
$top->top_add_default_soc_param($params); |
} else { |
$top->top_add_custom_soc_param($params,$p); |
|
} |
|
# $mpsoc->object_add_attribute("soc_params_${soc_name}","$tile",\%param_value); |
} |
|
|
|
|
} |
|
} |
347,14 → 373,18
#save new values |
if(!defined $tile ) { |
$top->top_add_default_soc_param(\%param_value); |
$mpsoc->object_add_attribute("soc_params_${soc_name}","default",\%param_value); |
} |
else { |
$top->top_add_custom_soc_param(\%param_value,$tile); |
|
$top->top_add_custom_soc_param(\%param_value,$tile); |
$mpsoc->object_add_attribute("soc_params_${soc_name}","$tile",\%param_value); |
} |
#set_gui_status($mpsoc,"refresh_soc",1); |
#$$refresh_soc->clicked; |
|
|
|
|
}); |
|
|
510,9 → 540,9
|
} |
@socs=$mpsoc->mpsoc_get_soc_list(); |
|
|
|
|
my $lab1=gen_label_in_center(' Tile name'); |
|
my $lab2=gen_label_help('Define the tile numbers that each IP is mapped to. |
1174,15 → 1204,19
return $msg; |
} |
|
|
###### |
# generate_mpsoc_lib_file |
# remove soc libs from saved mpsoc file |
###### |
sub generate_mpsoc_lib_file { |
my ($mpsoc,$info) = @_; |
my $name=$mpsoc->object_get_attribute('mpsoc_name'); |
$mpsoc->mpsoc_remove_all_soc_tops(); |
$mpsoc->mpsoc_remove_all_soc_tops(); |
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!"; |
print FILE perl_file_header("$name.MPSOC"); |
print FILE Data::Dumper->Dump([\%$mpsoc],['mpsoc']); |
close(FILE) || die "Error closing file: $!"; |
|
get_soc_list($mpsoc,$info); |
|
} |