"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/Core.xs" between
PDL-2.080.tar.gz and PDL-2.081.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.080)	:	Core.xs  (PDL-2.081)
skipping to change at line 270		skipping to change at line 270
int		int
set_debugging(i)		set_debugging(i)
int i;		int i;
CODE:		CODE:
RETVAL = pdl_debugging;		RETVAL = pdl_debugging;
pdl_debugging = i;		pdl_debugging = i;
OUTPUT:		OUTPUT:
RETVAL		RETVAL
SV *		PDL_Anyval
sclr_c(it)		sclr_c(it)
pdl* it		pdl* it
PREINIT:
PDL_Anyval result = { PDL_INVALID, {0} };
CODE:		CODE:
/* get the first element of an ndarray and return as		/* get the first element of an ndarray and return as
* Perl scalar (autodetect suitable type IV or NV)		* Perl scalar (autodetect suitable type IV or NV)
*/		*/
result = pdl_at0(it);		RETVAL = pdl_at0(it);
if (result.type < 0) croak("Position out of range");		if (RETVAL.type < 0) croak("Position out of range");
ANYVAL_TO_SV(RETVAL, result);
OUTPUT:		OUTPUT:
RETVAL		RETVAL
SV *		SV *
at_bad_c(x,pos)		at_bad_c(x,pos)
pdl* x		pdl* x
PDL_Indx *pos		PDL_Indx *pos
PREINIT:		PREINIT:
PDL_Indx ipos;		PDL_Indx ipos;
int badflag;		int badflag;
End of changes. 3 change blocks.
7 lines changed or deleted		3 lines changed or added

---