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/] [mpsoc.pm] - Diff between revs 25 and 34

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 25	Rev 34
Line 88...	Line 88...
`sub mpsoc_remove_soc{`	`sub mpsoc_remove_soc{`
`my ($self,$name)=@_;`	`my ($self,$name)=@_;`
`delete $self->{socs}{$name};`	`delete $self->{socs}{$name};`
`}`	`}`

	`sub mpsoc_remove_soc_top{`
	`my ($self,$name)=@_;`
	`delete $self->{socs}{$name}{top};`
	`}`


	`sub mpsoc_remove_all_soc_tops{`
	`my $self=shift;`
	`foreach my $name (sort keys %{$self->{socs}}){`
	`delete $self->{socs}{$name}{top};`
	`}`
	`}`


`sub mpsoc_remove_all_soc{`	`sub mpsoc_remove_all_soc{`
`my ($self)=@_;`	`my ($self)=@_;`
`delete $self->{socs};`	`delete $self->{socs};`
`}`	`}`

Line 116...	Line 130...
`my @nums;`	`my @nums;`
`if( defined $self->{socs}{$name}{tile_nums}){`	`if( defined $self->{socs}{$name}{tile_nums}){`
`@nums = @{$self->{socs}{$name}{tile_nums}};`	`@nums = @{$self->{socs}{$name}{tile_nums}};`

`}`	`}`
`return @ nums;`	`return @nums;`
`}`	`}`

`sub mpsoc_get_scolar_pos{`	`sub mpsoc_get_scolar_pos{`
`my ($item,@list)=@_;`	`my ($item,@list)=@_;`
`my $pos;`	`my $pos;`
Line 237...	Line 251...
`sub object_get_attribute_order{`	`sub object_get_attribute_order{`
`my ($self,$attribute)=@_;`	`my ($self,$attribute)=@_;`
`return @{$self->{parameters_order}{$attribute}};`	`return @{$self->{parameters_order}{$attribute}};`
`}`	`}`

	`sub object_remove_attribute{`
	`my ($self,$attribute1,$attribute2)=@_;`
	`if(!defined $attribute2){`
	`delete $self->{$attribute1} if ( exists( $self->{$attribute1}));`
	`}`
	`else {`
	`delete $self->{$attribute1}{$attribute2} if ( exists( $self->{$attribute1}{$attribute2})); ;`

	`}`

	`}`

`1`	`1`


`No newline at end of file`	`No newline at end of file`

Browse

Tools

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/] [mpsoc.pm] - Diff between revs 25 and 34