"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/Core.xs" 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).

Core.xs  (PDL-2.076):Core.xs  (PDL-2.077)
skipping to change at line 824 skipping to change at line 824
PDL_Indx realdims[npdls]; PDL_Indx realdims[npdls];
pdl_broadcast pdl_brc; pdl_broadcast pdl_brc;
SV *code = ST(items-1); SV *code = ST(items-1);
for(i=0; i<npdls; i++) { for(i=0; i<npdls; i++) {
pdls[i] = pdl_SvPDLV(ST(i)); pdls[i] = pdl_SvPDLV(ST(i));
/* XXXXXXXX Bad */ /* XXXXXXXX Bad */
pdl_barf_if_error(pdl_make_physical(pdls[i])); pdl_barf_if_error(pdl_make_physical(pdls[i]));
realdims[i] = 0; realdims[i] = 0;
} }
PDL_CLRMAGIC(&pdl_brc); PDL_CLRMAGIC(&pdl_brc);
pdl_brc.gflags = 0; /* avoid uninitialised value use below */
pdl_barf_if_error(pdl_initbroadcaststruct(0,pdls,realdims,realdims,npdls,NUL L,&pdl_brc,NULL,NULL,NULL, 1)); pdl_barf_if_error(pdl_initbroadcaststruct(0,pdls,realdims,realdims,npdls,NUL L,&pdl_brc,NULL,NULL,NULL, 1));
pdl_error error_ret = {0, NULL, 0}; pdl_error error_ret = {0, NULL, 0};
if (pdl_startbroadcastloop(&pdl_brc,NULL,NULL,&error_ret) < 0) croak("Error starting broadcastloop"); if (pdl_startbroadcastloop(&pdl_brc,NULL,NULL,&error_ret) < 0) croak("Error starting broadcastloop");
pdl_barf_if_error(error_ret); pdl_barf_if_error(error_ret);
sd = pdl_brc.ndims; sd = pdl_brc.ndims;
do { do {
dSP; dSP;
PUSHMARK(sp); PUSHMARK(sp);
EXTEND(sp,items); EXTEND(sp,items);
PUSHs(sv_2mortal(newSViv((sd-1)))); PUSHs(sv_2mortal(newSViv((sd-1))));
 End of changes. 1 change blocks. 
0 lines changed or deleted 1 lines changed or added

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