The R Project SVN R

Rev

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

Rev 61090 Rev 63181
Line 457... Line 457...
457 
   outside the collation domain. */
 457 
   outside the collation domain. */
458 
static SEXP string_relop(RELOP_TYPE code, SEXP s1, SEXP s2)
 458 
static SEXP string_relop(RELOP_TYPE code, SEXP s1, SEXP s2)
459 
{
 459 
{
460 
    R_xlen_t i, n, n1, n2, res;
 460 
    R_xlen_t i, n, n1, n2, res;
461 
    SEXP ans, c1, c2;
 461 
    SEXP ans, c1, c2;
- 
 
 462 
    const void *vmax = vmaxget(); // for Scollate
462 
 
 463 
 
463 
    n1 = XLENGTH(s1);
 464 
    n1 = XLENGTH(s1);
464 
    n2 = XLENGTH(s2);
 465 
    n2 = XLENGTH(s2);
465 
    n = (n1 > n2) ? n1 : n2;
 466 
    n = (n1 > n2) ? n1 : n2;
466 
    PROTECT(s1);
 467 
    PROTECT(s1);
Line 566... Line 567...
566 
	    }
 567 
	    }
567 
	}
 568 
	}
568 
	break;
 569 
	break;
569 
    }
 570 
    }
570 
    UNPROTECT(3);
 571 
    UNPROTECT(3);
- 
 
 572 
    vmaxset(vmax);
571 
    return ans;
 573 
    return ans;
572 
}
 574 
}
573 
 
 575 
 
574 
static SEXP raw_relop(RELOP_TYPE code, SEXP s1, SEXP s2)
 576 
static SEXP raw_relop(RELOP_TYPE code, SEXP s1, SEXP s2)
575 
{
 577 
{