The R Project SVN R

Rev

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

Rev 68947 Rev 77685
Line 50... Line 50...
50 
    if (ISNAN(x) || ISNAN(r) || ISNAN(b) || ISNAN(n))
 50 
    if (ISNAN(x) || ISNAN(r) || ISNAN(b) || ISNAN(n))
51 
	return x + r + b + n;
 51 
	return x + r + b + n;
52 
#endif
 52 
#endif
53 
 
 53 
 
54 
    if (R_D_negInonint(r) || R_D_negInonint(b) || R_D_negInonint(n) || n > r+b)
 54 
    if (R_D_negInonint(r) || R_D_negInonint(b) || R_D_negInonint(n) || n > r+b)
55 
	ML_ERR_return_NAN;
 55 
	ML_WARN_return_NAN;
56 
    if(x < 0) return(R_D__0);
 56 
    if(x < 0) return(R_D__0);
57 
    R_D_nonint_check(x);// incl warning
 57 
    R_D_nonint_check(x);// incl warning
58 
 
 58 
 
59 
    x = R_forceint(x);
 59 
    x = R_forceint(x);
60 
    r = R_forceint(r);
 60 
    r = R_forceint(r);