Index: PDL-2.4.1/Basic/Core/Dev.pm =================================================================== --- PDL-2.4.1.orig/Basic/Core/Dev.pm 2004-12-12 00:07:52.010537392 +0100 +++ PDL-2.4.1/Basic/Core/Dev.pm 2004-12-12 00:09:07.904999680 +0100 @@ -203,14 +203,14 @@ # # case PDL_L: # { -# long *xx = x.data; +# PDL_Long *xx = x.data; # for(i=0; invals == 1) for(i=0;i<$COMP(rdim);i++) - $COMP(sizes[i]) = *((long *)(size_pdl->data)); + $COMP(sizes[i]) = *((PDL_Long *)(size_pdl->data)); else if( size_pdl->nvals <= $COMP(rdim) &&size_pdl->ndims == 1) for(i=0;i<$COMP(rdim);i++) $COMP(sizes[i]) = ( (i < size_pdl->nvals) ? - ((long *)(size_pdl->data))[i] : + ((PDL_Long *)(size_pdl->data))[i] : 0 ); else { @@ -795,7 +795,7 @@ /* bad we don't have access to the parent piddle here... */ for(j=0;j<$COMP(rdim);j++) - *(cptr++) = ((long *)(ind_pdl->data))[ioff + ind_pdl->dimincs[0] * j]; + *(cptr++) = ((PDL_Long *)(ind_pdl->data))[ioff + ind_pdl->dimincs[0] * j]; /* Increment the iterator -- the test increments, the body carries. */ for(k=0; k<$COMP(itdim) && (++(iter[k]))>=($COMP(itdims)[k]) ;k++)