The R Project SVN R

Rev

Rev 73190 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 73190 Rev 73597
Line 2393... Line 2393...
2393 
		    if(*--ptr != FILL)
 2393 
		    if(*--ptr != FILL)
2394 
			error("array under-run in %s(\"%s\") in %s argument %d\n",
 2394 
			error("array under-run in %s(\"%s\") in %s argument %d\n",
2395 
			      Fort ? ".Fortran" : ".C",
 2395 
			      Fort ? ".Fortran" : ".C",
2396 
			      symName, type2char(type), na+1);
 2396 
			      symName, type2char(type), na+1);
2397 
	    } else {
 2397 
	    } else {
2398 
		int *iptr = INTEGER(arg), tmp;
 2398 
		int *iptr = (int *)p, tmp;
2399 
		for (R_xlen_t i = 0 ; i < n ; i++) {
 2399 
		for (R_xlen_t i = 0 ; i < n ; i++) {
2400 
		    tmp =  iptr[i];
 2400 
		    tmp =  iptr[i];
2401 
		    iptr[i] = (tmp == NA_INTEGER || tmp == 0) ? tmp : 1;
 2401 
		    iptr[i] = (tmp == NA_INTEGER || tmp == 0) ? tmp : 1;
2402 
		}
 2402 
		}
2403 
	    }
 2403 
	    }