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/] [soc.pm] - Diff between revs 37 and 38

Rev 37	Rev 38
Line 49...	Line 49...
`}`	`}`
`my @plugs=$ip->ip_get_module_plugs_list($category,$module);`	`my @plugs=$ip->ip_get_module_plugs_list($category,$module);`
`foreach my $plug(@plugs){`	`foreach my $plug(@plugs){`
`my ($type,$value,$connection_num)=$ip->ip_get_plug ($category,$module,$plug);`	`my ($type,$value,$connection_num)=$ip->ip_get_plug ($category,$module,$plug);`
`soc_add_plug_to_instance($self,$instance_id,$plug,$type,$value,$connection_num);`	`soc_add_plug_to_instance($self,$instance_id,$plug,$type,$value,$connection_num);`
`#add plug names anf deafult connection as IO`	`#add plug names anf Default connection as IO`
`my $int_num=($type eq 'num')? $value :1;`	`my $int_num=($type eq 'num')? $value :1;`
`for (my $i=0;$i<$int_num;$i++){`	`for (my $i=0;$i<$int_num;$i++){`
`my $name=$ip->ip_get_plug_name($category,$module, $plug,$i);`	`my $name=$ip->ip_get_plug_name($category,$module, $plug,$i);`
`$self->{instances}{$instance_id}{plugs}{$plug}{nums}{$i}{name}=$name;`	`$self->{instances}{$instance_id}{plugs}{$plug}{nums}{$i}{name}=$name;`
`soc_add_instance_plug_conection($self,$instance_id,$plug,$i,"IO");`	`soc_add_instance_plug_conection($self,$instance_id,$plug,$i,"IO");`