The R Project SVN R

Rev

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

Rev 6098 Rev 6191
Line 214... Line 214...
214 
    if (ns > nx)
 214 
    if (ns > nx)
215 
	error("subscript (%d) out of bounds, should be at most %d",
 215 
	error("subscript (%d) out of bounds, should be at most %d",
216 
	      ns, nx);
 216 
	      ns, nx);
217 
#else
 217 
#else
218 
    if (!canstretch && ns > nx)
 218 
    if (!canstretch && ns > nx)
219 
	error("(subscript) logical subscript too long\n");
 219 
	error("(subscript) logical subscript too long");
220 
    nmax = (ns > nx) ? ns : nx;
 220 
    nmax = (ns > nx) ? ns : nx;
221 
    *stretch = (ns > nx) ? ns : 0;
 221 
    *stretch = (ns > nx) ? ns : 0;
222 
#endif
 222 
#endif
223 
    if (ns == 0)
 223 
    if (ns == 0)
224 
	return(allocVector(INTSXP, 0));
 224 
	return(allocVector(INTSXP, 0));