The R Project SVN R

(root)/trunk/src/main/array.c @ 77458 – Rev 75324 → 75325



SEXP allocArray(SEXPTYPE mode, SEXP dims)
{
    SEXP array;
    int i;
    R_xlen_t n = 1;
#ifndef LONG_VECTOR_SUPPORT
    double dn = 1;
#endif
 
    for (i = 0; i < LENGTH(dims); i++) {
#ifndef LONG_VECTOR_SUPPORT
	dn *= INTEGER(dims)[i];
	if(dn > INT_MAX)

Rev 75324	Rev 75325
Line 259...	Line 259...
259	`SEXP allocArray(SEXPTYPE mode, SEXP dims)`	259	`SEXP allocArray(SEXPTYPE mode, SEXP dims)`
260	`{`	260	`{`
261	`SEXP array;`	261	`SEXP array;`
262	`int i;`	262	`int i;`
263	`R_xlen_t n = 1;`	263	`R_xlen_t n = 1;`
-		264	`#ifndef LONG_VECTOR_SUPPORT`
264	`double dn = 1;`	265	`double dn = 1;`
-		266	`#endif`
265		267
266	`for (i = 0; i < LENGTH(dims); i++) {`	268	`for (i = 0; i < LENGTH(dims); i++) {`
267	`#ifndef LONG_VECTOR_SUPPORT`	269	`#ifndef LONG_VECTOR_SUPPORT`
268	`dn *= INTEGER(dims)[i];`	270	`dn *= INTEGER(dims)[i];`
269	`if(dn > INT_MAX)`	271	`if(dn > INT_MAX)`