"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlaffine.c" between
PDL-2.081.tar.gz and PDL-2.082.tar.gz

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

pdlaffine.c  (PDL-2.081)	:	pdlaffine.c  (PDL-2.082)
skipping to change at line 21		skipping to change at line 21
AffinePriv => 1,		AffinePriv => 1,
P2Child => 1,		P2Child => 1,
ReadDataFuncName => "pdl_readdata_affineinternal",		ReadDataFuncName => "pdl_readdata_affineinternal",
WriteBackDataFuncName => "pdl_writebackdata_affineinternal",		WriteBackDataFuncName => "pdl_writebackdata_affineinternal",
EquivCPOffsCode => '		EquivCPOffsCode => '
if ($PDL(CHILD)->state & $PDL(PARENT)->state & PDL_ALLOCATED) {		if ($PDL(CHILD)->state & $PDL(PARENT)->state & PDL_ALLOCATED) {
PDL_Indx i, poffs=$PRIV(offs), nd;		PDL_Indx i, poffs=$PRIV(offs), nd;
for(i=0; i<$PDL(CHILD)->nvals; i++) {		for(i=0; i<$PDL(CHILD)->nvals; i++) {
$EQUIVCPOFFS(i,poffs);		$EQUIVCPOFFS(i,poffs);
for(nd=0; nd<$PDL(CHILD)->ndims; nd++) {		for(nd=0; nd<$PDL(CHILD)->ndims; nd++) {
poffs += $PRIV(incs[nd]);		poffs += $PRIV(incs)[nd];
if( (nd<$PDL(CHILD)->ndims-1 &&		if( (nd<$PDL(CHILD)->ndims-1 &&
(i+1)%$PDL(CHILD)->dimincs[nd+1]) ||		(i+1)%$PDL(CHILD)->dimincs[nd+1]) ||
nd == $PDL(CHILD)->ndims-1)		nd == $PDL(CHILD)->ndims-1)
break;		break;
poffs -= $PRIV(incs[nd]) *		poffs -= $PRIV(incs)[nd] *
$PDL(CHILD)->dims[nd];		$PDL(CHILD)->dims[nd];
}		}
}		}
}',		}',
Doc => undef, # 'internal',		Doc => undef, # 'internal',
);		);
*/		*/
#define COPYDATA(ctype, from_id, to_id) \		#define COPYDATA(ctype, from_id, to_id) \
PDL_DECLARE_PARAMETER_BADVAL(ctype, (trans->vtable->per_pdl_flags[to_id]), to_ pdl, (trans->pdls[to_id]), 1) \		PDL_DECLARE_PARAMETER_BADVAL(ctype, (trans->vtable->per_pdl_flags[to_id]), to_ pdl, (trans->pdls[to_id]), 1) \
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---