The R Project SVN R

Rev

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

Rev 74660 Rev 74684
Line 807... Line 807...
807 
 
 807 
 
808 
static SEXP
 808 
static SEXP
809 
stringSubscript(SEXP s, R_xlen_t ns, R_xlen_t nx, SEXP names,
 809 
stringSubscript(SEXP s, R_xlen_t ns, R_xlen_t nx, SEXP names,
810 
		R_xlen_t *stretch, SEXP call)
 810 
		R_xlen_t *stretch, SEXP call)
811 
{
 811 
{
812 
    SEXP indx, indexnames;
 812 
    SEXP indx, indexnames = R_NilValue;
813 
    R_xlen_t i, j, nnames, extra, sub;
 813 
    R_xlen_t i, j, nnames, extra, sub;
814 
    int canstretch = *stretch > 0;
 814 
    int canstretch = *stretch > 0;
815 
    /* product may overflow, so check factors as well. */
 815 
    /* product may overflow, so check factors as well. */
816 
    Rboolean usehashing = ( ((ns > 1000 && nx) || (nx > 1000 && ns)) || (ns * nx > 15*nx + ns) );
 816 
    Rboolean usehashing = ( ((ns > 1000 && nx) || (nx > 1000 && ns)) || (ns * nx > 15*nx + ns) );
817 
 
 817