The R Project SVN R

Rev

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

Rev 60312 Rev 60314
Line 326... Line 326...
326 
	ECALL(call, _("incorrect number of columns in matrix subscript"));
 326 
	ECALL(call, _("incorrect number of columns in matrix subscript"));
327 
    }
 327 
    }
328 
 
 328 
 
329 
#ifdef LONG_VECTOR_SUPPORT
 329 
#ifdef LONG_VECTOR_SUPPORT
330 
    /* Check if it is a long vector we need to index */
 330 
    /* Check if it is a long vector we need to index */
331 
    R_len_t len = 1;
 331 
    R_xlen_t len = 1;
332 
    for (int j = 0; j < LENGTH(dims); j++)  len *= INTEGER(dims)[j];
 332 
    for (int j = 0; j < LENGTH(dims); j++)  len *= INTEGER(dims)[j];
333 
 
 333 
 
334 
    if(len > R_SHORT_LEN_MAX) {
 334 
    if(len > R_SHORT_LEN_MAX) {
335 
	PROTECT(rvec = allocVector(REALSXP, nrs));
 335 
	PROTECT(rvec = allocVector(REALSXP, nrs));
336 
	double *rv = REAL(rvec);
 336 
	double *rv = REAL(rvec);