The R Project SVN R

Rev

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

Rev 70312 Rev 70543
Line 1699... Line 1699...
1699 
    if (nc == NA_INTEGER)
 1699 
    if (nc == NA_INTEGER)
1700 
	error(_("invalid 'ncol' value (too large or NA)"));
 1700 
	error(_("invalid 'ncol' value (too large or NA)"));
1701 
    if (nc < 0)
 1701 
    if (nc < 0)
1702 
	error(_("invalid 'ncol' value (< 0)"));
 1702 
	error(_("invalid 'ncol' value (< 0)"));
1703 
    int mn = (nr < nc) ? nr : nc;
 1703 
    int mn = (nr < nc) ? nr : nc;
1704 
    if (mn > 0 && LENGTH(x) == 0)
 1704 
    if (mn > 0 && length(x) == 0)
1705 
	error(_("'x' must have positive length"));
 1705 
	error(_("'x' must have positive length"));
1706 
 
 1706 
 
1707 
#ifndef LONG_VECTOR_SUPPORT
 1707 
#ifndef LONG_VECTOR_SUPPORT
1708 
   if ((double)nr * (double)nc > INT_MAX)
 1708 
   if ((double)nr * (double)nc > INT_MAX)
1709 
	error(_("too many elements specified"));
 1709 
	error(_("too many elements specified"));