"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/Core.xs" between
PDL-2.075.tar.gz and PDL-2.076.tar.gz

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

Core.xs  (PDL-2.075):Core.xs  (PDL-2.076)
skipping to change at line 51 skipping to change at line 51
# Destroy a PDL - note if a hash do nothing, the $$x{PDL} component # Destroy a PDL - note if a hash do nothing, the $$x{PDL} component
# will be destroyed anyway on a separate call # will be destroyed anyway on a separate call
void void
DESTROY(sv) DESTROY(sv)
SV * sv; SV * sv;
PREINIT: PREINIT:
pdl *self; pdl *self;
CODE: CODE:
if ( !( (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVHV) ) ) { if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVHV) return;
self = pdl_SvPDLV(sv); self = pdl_SvPDLV(sv);
PDLDEBUG_f(printf("DESTROYING %p\n",(void*)self);) PDLDEBUG_f(printf("DESTROYING %p\n",(void*)self);)
if (self != NULL) if (self != NULL)
pdl_barf_if_error(pdl_destroy(self)); pdl_barf_if_error(pdl_destroy(self));
}
# Return the transformation object or an undef otherwise. # Return the transformation object or an undef otherwise.
pdl_trans * pdl_trans *
trans_parent(self) trans_parent(self)
pdl *self; pdl *self;
CODE: CODE:
RETVAL = self->trans_parent; RETVAL = self->trans_parent;
OUTPUT: OUTPUT:
RETVAL RETVAL
skipping to change at line 550 skipping to change at line 549
RETVAL = self; RETVAL = self;
OUTPUT: OUTPUT:
RETVAL RETVAL
pdl * pdl *
_convert_int(self, new_dtype) _convert_int(self, new_dtype)
pdl *self; pdl *self;
int new_dtype; int new_dtype;
CODE: CODE:
RETVAL = pdl_get_convertedpdl(self, new_dtype); RETVAL = pdl_get_convertedpdl(self, new_dtype);
if (!RETVAL) barf("convert error");
OUTPUT: OUTPUT:
RETVAL RETVAL
void void
set_datatype(a,datatype) set_datatype(a,datatype)
pdl *a pdl *a
int datatype int datatype
CODE: CODE:
pdl_barf_if_error(pdl_set_datatype(a, datatype)); pdl_barf_if_error(pdl_set_datatype(a, datatype));
 End of changes. 2 change blocks. 
6 lines changed or deleted 6 lines changed or added

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