"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Ops/ops.pd" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

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

ops.pd  (PDL-2.077):ops.pd  (PDL-2.078)
skipping to change at line 251 skipping to change at line 251
$codestr = '$c() = ($GENERIC(c))'.$func.'($a(),$b());'; $codestr = '$c() = ($GENERIC(c))'.$func.'($a(),$b());';
} }
delete $extra{unsigned}; #remove the key so it doesn't get added in pp_def. delete $extra{unsigned}; #remove the key so it doesn't get added in pp_def.
pp_addpm(make_overload($funcov, $name, $mutator)); pp_addpm(make_overload($funcov, $name, $mutator));
pp_def($name, pp_def($name,
HandleBad => 1, HandleBad => 1,
NoBadifNaN => 1, NoBadifNaN => 1,
Pars => 'a(); b(); [o]c();', Pars => 'a(); b(); [o]c();',
OtherPars => 'int swap', OtherPars => 'int swap',
OtherParsDefaults => { swap => 0 },
Inplace => [ 'a' ], # quick and dirty solution to get ->inplace do its job Inplace => [ 'a' ], # quick and dirty solution to get ->inplace do its job
Code => pp_line_numbers(__LINE__, qq{ Code => pp_line_numbers(__LINE__, qq{
PDL_IF_BAD(if ( \$ISBAD(a()) || \$ISBAD(b()) ) \$SETBAD(c()); els e {,) PDL_IF_BAD(if ( \$ISBAD(a()) || \$ISBAD(b()) ) \$SETBAD(c()); els e {,)
$codestr $codestr
PDL_IF_BAD(},) PDL_IF_BAD(},)
}), }),
CopyBadStatusCode => CopyBadStatusCode =>
pp_line_numbers(__LINE__, 'if ( $BADFLAGCACHE() ) { pp_line_numbers(__LINE__, 'if ( $BADFLAGCACHE() ) {
if ( a == c && $ISPDLSTATEGOOD(a) ) { if ( a == c && $ISPDLSTATEGOOD(a) ) {
PDL->propagate_badflag( c, 1 ); /* have inplace op AND badflag has changed */ PDL->propagate_badflag( c, 1 ); /* have inplace op AND badflag has changed */
 End of changes. 1 change blocks. 
0 lines changed or deleted 1 lines changed or added

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