"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Gen/PP/PdlParObj.pm" between
PDL-2.076.tar.gz and PDL-2.077.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.076):PdlParObj.pm  (PDL-2.077)
skipping to change at line 277 skipping to change at line 277
if($_->[0] eq $indname) {$index = $_->[1]; last;} if($_->[0] eq $indname) {$index = $_->[1]; last;}
} }
} }
if(!defined $index) {confess "Access Index not found: $pdl, $ind, $indnam e if(!defined $index) {confess "Access Index not found: $pdl, $ind, $indnam e
On stack:".(join ' ',map {"($_->[0],$_->[1])"} @$context)."\n" ;} On stack:".(join ' ',map {"($_->[0],$_->[1])"} @$context)."\n" ;}
return "(".($this->get_incname($ind,1))."*". return "(".($this->get_incname($ind,1))."*".
"PP_INDTERM(".$this->{IndObjs}[$ind]->get_size().", $index))"; "PP_INDTERM(".$this->{IndObjs}[$ind]->get_size().", $index))";
} }
sub get_xsdatapdecl { sub get_xsdatapdecl {
my($this,$ctype) = @_; my($this,$ctype,$nulldatacheck) = @_;
my $pdl = $this->get_nname; my $pdl = $this->get_nname;
my $flag = $this->get_nnflag; my $flag = $this->get_nnflag;
my $name = $this->{Name}; my $name = $this->{Name};
my $macro = "PDL_DECLARE_PARAMETER".($this->{BadFlag} ? "_BADVAL" : ""); my $macro = "PDL_DECLARE_PARAMETER".($this->{BadFlag} ? "_BADVAL" : "");
"$macro($ctype, $flag, $name, $pdl)"; "$macro($ctype, $flag, $name, $pdl, $nulldatacheck)";
} }
1; 1;
 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)