The R Project SVN R

(root)/trunk/src/main/subscript.c @ 63243 – Rev 64234 → 64247



		cnt++;
	    } else if ((R_xlen_t) ds != 0) cnt++;
#else
	    if (R_FINITE(ds) && ds > INT_MAX) 
		int_ok = FALSE;
	    if ((R_xlen_t) ds != 0) cnt++;
#endif
	}
	if (int_ok) {
	    indx = allocVector(INTSXP, cnt);
	    for (i = 0, cnt = 0; i < ns; i++) {

Rev 64234	Rev 64247
Line 659...	Line 659...
659	`cnt++;`	659	`cnt++;`
660	`} else if ((R_xlen_t) ds != 0) cnt++;`	660	`} else if ((R_xlen_t) ds != 0) cnt++;`
661	`#else`	661	`#else`
662	`if (R_FINITE(ds) && ds > INT_MAX)`	662	`if (R_FINITE(ds) && ds > INT_MAX)`
663	`int_ok = FALSE;`	663	`int_ok = FALSE;`
664	`if (ds != 0) cnt++;`	664	`if ((R_xlen_t) ds != 0) cnt++;`
665	`#endif`	665	`#endif`
666	`}`	666	`}`
667	`if (int_ok) {`	667	`if (int_ok) {`
668	`indx = allocVector(INTSXP, cnt);`	668	`indx = allocVector(INTSXP, cnt);`
669	`for (i = 0, cnt = 0; i < ns; i++) {`	669	`for (i = 0, cnt = 0; i < ns; i++) {`