(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 |
|---|
"Fossies" - the Fresh Open Source Software Archive 