The R Project SVN R

Rev

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

Rev 7002 Rev 7192
Line 176... Line 176...
176 
    AllocBuffer(0);
 176 
    AllocBuffer(0);
177 
    /* IEEE allows signed zeros; strip these here */
 177 
    /* IEEE allows signed zeros; strip these here */
178 
    if (x.r == 0.0) x.r = 0.0;
 178 
    if (x.r == 0.0) x.r = 0.0;
179 
    if (x.i == 0.0) x.i = 0.0;
 179 
    if (x.i == 0.0) x.i = 0.0;
180 
 
 180 
 
181 
 
 181 
#ifdef IEEE_754
182 
    if (ISNA(x.r) || ISNA(x.i)) {
 182 
    if (ISNA(x.r) || ISNA(x.i)) {
- 
 
 183 
#else
- 
 
 184 
    if (R_FINITE(x.r) || R_FINITE(x.i)) {
- 
 
 185 
#endif
183 
	sprintf(Encodebuf, "%*s%*s", R_print.gap, "", wr+wi+2,
 186 
	sprintf(Encodebuf, "%*s%*s", R_print.gap, "", wr+wi+2,
184 
		CHAR(R_print.na_string));
 187 
		CHAR(R_print.na_string));
185 
    }
 188 
    }
186 
    else {
 189 
    else {
187 
#if OLD
 190 
#if OLD