The R Project SVN R

Rev

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

Rev 45667 Rev 46977
Line 419... Line 419...
419 
    SEXP indx, indexnames;
 419 
    SEXP indx, indexnames;
420 
    int i, j, nnames, sub, extra;
 420 
    int i, j, nnames, sub, extra;
421 
    int canstretch = *stretch;
 421 
    int canstretch = *stretch;
422 
#ifdef USE_HASHING
 422 
#ifdef USE_HASHING
423 
    /* product may overflow, so check factors as well. */
 423 
    /* product may overflow, so check factors as well. */
424 
    Rboolean usehashing = in && ( (ns > 1000 && nx) || (nx > 1000 && ns) || (ns * nx > 1000) );
 424 
    Rboolean usehashing = in && ( ((ns > 1000 && nx) || (nx > 1000 && ns)) && (ns * nx > 15*nx + ns) );
425 
#else
 425 
#else
426 
    Rboolean usehashing = FALSE;
 426 
    Rboolean usehashing = FALSE;
427 
#endif
 427 
#endif
428 
 
 428 
 
429 
    PROTECT(s);
 429 
    PROTECT(s);