The R Project SVN R

Rev

Rev 88788 | Rev 89147 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88788 Rev 88791
Line 1998... Line 1998...
1998 
	ans = PROTECT(allocVector((type == CPLXSXP) ? CPLXSXP : REALSXP, n));
 1998 
	ans = PROTECT(allocVector((type == CPLXSXP) ? CPLXSXP : REALSXP, n));
1999 
	/* allocate scratch storage to allow accumulating by columns
 1999 
	/* allocate scratch storage to allow accumulating by columns
2000 
	   to improve cache hits */
 2000 
	   to improve cache hits */
2001 
	int *Cnt = NULL;
 2001 
	int *Cnt = NULL;
2002 
	LDOUBLE *rans;
 2002 
	LDOUBLE *rans;
2003 
	LDOUBLE *ians; // unused unless CPLXSXP
 2003 
	LDOUBLE *ians = NULL; // unused unless CPLXSXP
2004 
	if(n <= 10000) {
 2004 
	if(n <= 10000) {
2005 
	    R_CheckStack2(n * sizeof(LDOUBLE));
 2005 
	    R_CheckStack2(n * sizeof(LDOUBLE));
2006 
	    rans = (LDOUBLE *) alloca(n * sizeof(LDOUBLE));
 2006 
	    rans = (LDOUBLE *) alloca(n * sizeof(LDOUBLE));
2007 
	    if(type == CPLXSXP) {
 2007 
	    if(type == CPLXSXP) {
2008 
		R_CheckStack2(n * sizeof(LDOUBLE));
 2008 
		R_CheckStack2(n * sizeof(LDOUBLE));