The R Project SVN R

Rev

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

Rev 42307 Rev 42414
Line 621... Line 621...
621 
    case LGLSXP:
 621 
    case LGLSXP:
622 
	/* *stretch = 0; */
 622 
	/* *stretch = 0; */
623 
	ans = logicalSubscript(s, ns, nx, stretch, call);
 623 
	ans = logicalSubscript(s, ns, nx, stretch, call);
624 
	break;
 624 
	break;
625 
    case INTSXP:
 625 
    case INTSXP:
626 
	    ans = integerSubscript(s, ns, nx, stretch, call);
 626 
	ans = integerSubscript(s, ns, nx, stretch, call);
627 
	    break;
 627 
	break;
628 
    case REALSXP:
 628 
    case REALSXP:
629 
	PROTECT(tmp = coerceVector(s, INTSXP));
 629 
	PROTECT(tmp = coerceVector(s, INTSXP));
630 
	ans = integerSubscript(tmp, ns, nx, stretch, call);
 630 
	ans = integerSubscript(tmp, ns, nx, stretch, call);
631 
	UNPROTECT(1);
 631 
	UNPROTECT(1);
632 
	break;
 632 
	break;