The R Project SVN R

Rev

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

Rev 73160 Rev 74029
Line 480... Line 480...
480 
    return(xlength(x));
 480 
    return(xlength(x));
481 
}
 481 
}
482 
 
 482 
 
483 
// auxiliary for do_lengths_*(), i.e., R's lengths()
 483 
// auxiliary for do_lengths_*(), i.e., R's lengths()
484 
static R_xlen_t getElementLength(SEXP x, R_xlen_t i, SEXP call, SEXP rho) {
 484 
static R_xlen_t getElementLength(SEXP x, R_xlen_t i, SEXP call, SEXP rho) {
- 
 
 485 
    SEXP x_elt, ans;
485 
    SEXP x_elt = dispatch_subset2(x, i, call, rho);
 486 
    PROTECT(x_elt = dispatch_subset2(x, i, call, rho));
486 
    return(dispatch_xlength(x_elt, call, rho));
 487 
    ans = dispatch_xlength(x_elt, call, rho);
- 
 
 488 
    UNPROTECT(1); /* x_elt */
- 
 
 489 
    return ans;
487 
}
 490 
}
488 
 
 491 
 
489 
#ifdef LONG_VECTOR_SUPPORT
 492 
#ifdef LONG_VECTOR_SUPPORT
490 
static SEXP do_lengths_long(SEXP x, SEXP call, SEXP rho)
 493 
static SEXP do_lengths_long(SEXP x, SEXP call, SEXP rho)
491 
{
 494 
{