34 nexttoward(double x, long double y)  in nexttoward()  argument
41 	EXTRACT_WORDS(hx,lx,x);  in nexttoward()
48 	   return x+y;	/* x or y is nan */  in nexttoward()
49 	if(x==y) return (double)y;		/* x=y, return y */  in nexttoward()
50 	if(x==0.0) {  in nexttoward()
51 	    INSERT_WORDS(x,uy.bits.sign<<31,1);	/* return +-minsubnormal */  in nexttoward()
52 	    t = x*x;  in nexttoward()
53 	    if(t==x) return t; else return x;	/* raise underflow flag */  in nexttoward()
55 	if(hx>0.0 ^ x < y) {			/* x -= ulp */  in nexttoward()
63 	if(ix>=0x7ff00000) return x+x;	/* overflow  */  in nexttoward()
65 	    t = x*x;  in nexttoward()
66 	    if(t!=x) {		/* raise underflow flag */  in nexttoward()
71 	INSERT_WORDS(x,hx,lx);  in nexttoward()
72 	return x;  in nexttoward()