"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlaffine.c" between
PDL-2.074.tar.gz and PDL-2.075.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.074):pdlaffine.c  (PDL-2.075)
skipping to change at line 227 skipping to change at line 227
pdl_error pdl_converttypei_redodims(pdl_trans *trans) { pdl_error pdl_converttypei_redodims(pdl_trans *trans) {
pdl_error PDL_err = {0, NULL, 0}; pdl_error PDL_err = {0, NULL, 0};
pdl *__it = trans->pdls[1]; pdl *__it = trans->pdls[1];
pdl_hdr_childcopy(trans); pdl_hdr_childcopy(trans);
PDL_Indx i; PDL_Indx i;
PDL_RETERROR(PDL_err, pdl_reallocdims(__it, trans->pdls[0]->ndims)); PDL_RETERROR(PDL_err, pdl_reallocdims(__it, trans->pdls[0]->ndims));
for (i=0; i<trans->pdls[1]->ndims; i++) for (i=0; i<trans->pdls[1]->ndims; i++)
trans->pdls[1]->dims[i] = trans->pdls[0]->dims[i]; trans->pdls[1]->dims[i] = trans->pdls[0]->dims[i];
PDL_RETERROR(PDL_err, pdl_setdims_careful(__it)); PDL_RETERROR(PDL_err, pdl_setdims_careful(__it));
pdl_reallocthreadids(trans->pdls[1], trans->pdls[0]->nthreadids); pdl_reallocbroadcastids(trans->pdls[1], trans->pdls[0]->nbroadcastids);
for (i=0; i<trans->pdls[0]->nthreadids; i++) for (i=0; i<trans->pdls[0]->nbroadcastids; i++)
trans->pdls[1]->threadids[i] = trans->pdls[0]->threadids[i]; trans->pdls[1]->broadcastids[i] = trans->pdls[0]->broadcastids[i];
trans->dims_redone = 1; trans->dims_redone = 1;
return PDL_err; return PDL_err;
} }
#define COPYCONVERT(from_pdl, to_pdl) \ #define COPYCONVERT(from_pdl, to_pdl) \
{ \ { \
PDL_Indx i; \ PDL_Indx i; \
for(i=0; i<trans->pdls[1]->nvals; i++) { \ for(i=0; i<trans->pdls[1]->nvals; i++) { \
to_pdl ## _physdatap[i] = trans->bvalflag && from_pdl ## _physdatap[i] == from_pdl ## _badval \ to_pdl ## _physdatap[i] = trans->bvalflag && from_pdl ## _physdatap[i] == from_pdl ## _badval \
? to_pdl ## _badval \ ? to_pdl ## _badval \
 End of changes. 1 change blocks. 
3 lines changed or deleted 3 lines changed or added

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