"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Gen/PP/PdlParObj.pm" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

PdlParObj.pm  (PDL-2.074):PdlParObj.pm  (PDL-2.075)
skipping to change at line 137 skipping to change at line 137
0+($indcount{$_->name}++); 0+($indcount{$_->name}++);
} @{$this->{IndObjs}} } @{$this->{IndObjs}}
]; ];
$this->{IndTotCounts} = [ $this->{IndTotCounts} = [
map { map {
($indcount{$_->name}); ($indcount{$_->name});
} @{$this->{IndObjs}} } @{$this->{IndObjs}}
]; ];
} }
# do the dimension checking for perl level threading # do the dimension checking for perl level broadcasting
# assumes that IndObjs have been created # assumes that IndObjs have been created
sub perldimcheck { sub perldimcheck {
my ($this,$pdl) = @_; my ($this,$pdl) = @_;
croak ("can't create ".$this->name) if $pdl->isnull && croak ("can't create ".$this->name) if $pdl->isnull &&
!$this->{FlagCreat}; !$this->{FlagCreat};
return 1 if $pdl->isnull; return 1 if $pdl->isnull;
my $rdims = @{$this->{RawInds}}; my $rdims = @{$this->{RawInds}};
croak ("not enough dimensions for ".$this->name) croak ("not enough dimensions for ".$this->name)
if ($pdl->threadids)[0] < $rdims; if ($pdl->broadcastids)[0] < $rdims;
my @dims = $pdl->dims; my @dims = $pdl->dims;
my ($i,$ind) = (0,undef); my ($i,$ind) = (0,undef);
for $ind (@{$this->{IndObjs}}) { for $ind (@{$this->{IndObjs}}) {
$ind->add_value($dims[$i++]); $ind->add_value($dims[$i++]);
} }
return 0; # not creating return 0; # not creating
} }
sub finalcheck { sub finalcheck {
my ($this,$pdl) = @_; my ($this,$pdl) = @_;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)