The R Project SVN R

Rev

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

Rev 76311 Rev 77224
Line 787... Line 787...
787 
			    if(s > INT_MAX || s < R_INT_MIN ||
 787 
			    if(s > INT_MAX || s < R_INT_MIN ||
788 
			       iLtmp < -LONG_INT_MAX || LONG_INT_MAX < iLtmp) {
 788 
			       iLtmp < -LONG_INT_MAX || LONG_INT_MAX < iLtmp) {
789 
				ans_type = REALSXP;
 789 
				ans_type = REALSXP;
790 
				zcum.r = s;
 790 
				zcum.r = s;
791 
				DbgP2(" int_1 switch: zcum.r = s = %g\n", s);
 791 
				DbgP2(" int_1 switch: zcum.r = s = %g\n", s);
792 
			    } else if(s < -LONG_INT_MAX || LONG_INT_MAX < s) {
 792 
			    } else if(s < -(double)LONG_INT_MAX || (double)LONG_INT_MAX < s) {
793 
				use_isum = FALSE;
 793 
				use_isum = FALSE;
794 
				ans_type = REALSXP;
 794 
				ans_type = REALSXP;
795 
				zcum.r = s;
 795 
				zcum.r = s;
796 
				DbgP2(" int_2 switch: zcum.r = s = %g\n", s);
 796 
				DbgP2(" int_2 switch: zcum.r = s = %g\n", s);
797 
			    }
 797 
			    }