The R Project SVN R

Rev

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

Rev 74029 Rev 74030
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;
- 
 
 486 
    R_xlen_t ans;
- 
 
 487 
 
486 
    PROTECT(x_elt = dispatch_subset2(x, i, call, rho));
 488 
    PROTECT(x_elt = dispatch_subset2(x, i, call, rho));
487 
    ans = dispatch_xlength(x_elt, call, rho);
 489 
    ans = dispatch_xlength(x_elt, call, rho);
488 
    UNPROTECT(1); /* x_elt */
 490 
    UNPROTECT(1); /* x_elt */
489 
    return ans;
 491 
    return ans;
490 
}
 492 
}