"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

---