"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlapi.c" between
PDL-2.076.tar.gz and PDL-2.077.tar.gz

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

pdlapi.c  (PDL-2.076):pdlapi.c  (PDL-2.077)
skipping to change at line 390 skipping to change at line 390
PDL_DECL_CHILDLOOP(it); PDL_DECL_CHILDLOOP(it);
PDL_CHKMAGIC(it); PDL_CHKMAGIC(it);
PDLDEBUG_f(printf("pdl_destroy %p\n",(void*)it)); PDLDEBUG_f(printf("pdl_destroy %p\n",(void*)it));
if(it->state & PDL_DESTROYING) { if(it->state & PDL_DESTROYING) {
PDLDEBUG_f(printf(" already destroying, returning\n")); PDLDEBUG_f(printf(" already destroying, returning\n"));
return PDL_err; return PDL_err;
} }
it->state |= PDL_DESTROYING; it->state |= PDL_DESTROYING;
/* Clear the sv field so that there will be no dangling ptrs */ /* Clear the sv field so that there will be no dangling ptrs */
if(it->sv) { if(it->sv) {
SvOBJECT_off((SV *)it->sv); mg_free((SV *)it->sv);
sv_setiv(it->sv,0x4242); sv_setiv(it->sv,0x4242);
it->sv = NULL; it->sv = NULL;
} }
/* 1. count the trans_children that do flow */ /* 1. count the trans_children that do flow */
PDL_START_CHILDLOOP(it) PDL_START_CHILDLOOP(it)
pdl_trans *curt = PDL_CHILDLOOP_THISCHILD(it); pdl_trans *curt = PDL_CHILDLOOP_THISCHILD(it);
if(curt->flags & PDL_ITRANS_DO_DATAFLOW_F) if(curt->flags & PDL_ITRANS_DO_DATAFLOW_F)
nforw ++; nforw ++;
if(curt->flags & PDL_ITRANS_DO_DATAFLOW_B) if(curt->flags & PDL_ITRANS_DO_DATAFLOW_B)
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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