41   int n, hx, hy, hz, ix, iy, sx, i;  in fmod()  local
46   hy = __HI (y); /* high word of y */  in fmod()
50   hy &= 0x7fffffff; /* |y| */  in fmod()
53   if ((hy | ly) == 0 || (hx >= 0x7ff00000) || /* y = 0, or x not finite */  in fmod()
54       ((hy | ((ly | -ly) >> 31)) > 0x7ff00000)) /* or y is NaN */  in fmod()
58   if (hx <= hy)  in fmod()
60     if ((hx < hy) || (lx < ly)) /* |x| < |y| return x */  in fmod()
94   if (hy < 0x00100000) /* subnormal y */  in fmod()
96     if (hy == 0)  in fmod()
105       for (iy = -1022, i = (hy << 11); i > 0; i <<= 1)  in fmod()
113     iy = (hy >> 20) - 1023;  in fmod()
137     hy = 0x00100000 | (0x000fffff & hy);  in fmod()
144       hy = (((unsigned int) hy) << n) | (ly >> (32 - n));  in fmod()
149       hy = ly << (n - 32);  in fmod()
158     hz = hx - hy;  in fmod()
179   hz = hx - hy;  in fmod()