The R Project SVN R

Rev

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

Rev 67750 Rev 67758
Line 481... Line 481...
481 
    PROTECT(ans = allocVector(INTSXP, x_len));
 481 
    PROTECT(ans = allocVector(INTSXP, x_len));
482 
    for (i = 0, ans_elt = INTEGER(ans); i < x_len; i++, ans_elt++) {
 482 
    for (i = 0, ans_elt = INTEGER(ans); i < x_len; i++, ans_elt++) {
483 
        R_xlen_t x_elt_len = getElementLength(x, i, call, rho);
 483 
        R_xlen_t x_elt_len = getElementLength(x, i, call, rho);
484 
#ifdef LONG_VECTOR_SUPPORT
 484 
#ifdef LONG_VECTOR_SUPPORT
485 
        if (x_elt_len > INT_MAX) {
 485 
        if (x_elt_len > INT_MAX) {
486 
            UNPROTECT(1);
 - 
 
487 
            ans = do_lengths_long(x, call, rho);
 486 
            ans = do_lengths_long(x, call, rho);
488 
            break;
 487 
            break;
489 
        }
 488 
        }
490 
#endif
 489 
#endif
491 
        *ans_elt = x_elt_len;
 490 
        *ans_elt = x_elt_len;