The R Project SVN R

Rev

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

Rev 71308 Rev 72049
Line 1544... Line 1544...
1544 
	   We do not need to copy if the inputs have no references */
 1544 
	   We do not need to copy if the inputs have no references */
1545 
 
 1545 
 
1546 
#ifdef LONG_VECTOR_SUPPORT
 1546 
#ifdef LONG_VECTOR_SUPPORT
1547 
	if (isVector(s) && IS_LONG_VEC(s))
 1547 
	if (isVector(s) && IS_LONG_VEC(s))
1548 
	    error(_("long vectors (argument %d) are not supported in %s"),
 1548 
	    error(_("long vectors (argument %d) are not supported in %s"),
1549 
		  na + 1, Fort ? ".C" : ".Fortran");
 1549 
		  na + 1, Fort ? ".Fortran" : ".C");
1550 
#endif
 1550 
#endif
1551 
	SEXPTYPE t = TYPEOF(s);
 1551 
	SEXPTYPE t = TYPEOF(s);
1552 
	switch(t) {
 1552 
	switch(t) {
1553 
	case RAWSXP:
 1553 
	case RAWSXP:
1554 
	    if (copy) {
 1554 
	    if (copy) {