The R Project SVN R

Rev

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

Rev 70308 Rev 70312
Line 448... Line 448...
448 
    return ScalarInteger(length(x));
 448 
    return ScalarInteger(length(x));
449 
}
 449 
}
450 
 
 450 
 
451 
R_len_t attribute_hidden dispatch_length(SEXP x, SEXP call, SEXP rho) {
 451 
R_len_t attribute_hidden dispatch_length(SEXP x, SEXP call, SEXP rho) {
452 
    R_xlen_t len = dispatch_xlength(x, call, rho);
 452 
    R_xlen_t len = dispatch_xlength(x, call, rho);
453 
    if (len > INT_MAX) {
 453 
#ifdef LONG_VECTOR_SUPPORT
454 
        return R_BadLongVector(x, __FILE__, __LINE__);
 454 
    if (len > INT_MAX) return R_BadLongVector(x, __FILE__, __LINE__);
455 
    } else {
 455 
#endif
456 
        return (R_len_t) len;
 456 
    return (R_len_t) len;
457 
    }
 - 
 
458 
}
 457 
}
459 
 
 458 
 
460 
R_xlen_t attribute_hidden dispatch_xlength(SEXP x, SEXP call, SEXP rho) {
 459 
R_xlen_t attribute_hidden dispatch_xlength(SEXP x, SEXP call, SEXP rho) {
461 
    static SEXP length_op = NULL;
 460 
    static SEXP length_op = NULL;
462 
    if (isObject(x)) {
 461 
    if (isObject(x)) {