changelog shortlog tags branches changeset file revisions annotate raw help

Mercurial > hg > plan9front / sys/src/libc/port/frexp.c

revision 7204: d41b5fcde5ce
parent 2880: cab2b9d13a73
     1.1--- a/sys/src/libc/port/frexp.c
     1.2+++ b/sys/src/libc/port/frexp.c
     1.3@@ -93,7 +93,7 @@ modf(double d, double *ip)
     1.4 	e = (x.hi >> SHIFT) & MASK;
     1.5 	if(e == MASK){
     1.6 		*ip = d;
     1.7-		if(x.lo != 0 || (x.hi & 0xfffffL != 0))	/* NaN */
     1.8+		if(x.lo != 0 || (x.hi & 0xfffffL) != 0)	/* NaN */
     1.9 			return d;
    1.10 		/* ┬▒Inf */
    1.11 		x.hi &= 0x80000000L;