97   int k, hx, i, j;  in log()  local
100   hx = __HI (x); /* high word of x */  in log()
104   if (hx < 0x00100000) /* x < 2**-1022  */  in log()
106     if (((hx & 0x7fffffff) | lx) == 0) /* log(+-0) = -inf */  in log()
110     if (hx < 0) /* log(-#) = NaN */  in log()
116     hx = __HI (x); /* high word of x */  in log()
118   if (hx >= 0x7ff00000)  in log()
122   k += (hx >> 20) - 1023;  in log()
123   hx &= 0x000fffff;  in log()
124   i = (hx + 0x95f64) & 0x100000;  in log()
128   temp.as_int.hi = hx | (i ^ 0x3ff00000); /* normalize x or x / 2 */  in log()
132   if ((0x000fffff & (2 + hx)) < 3) /* |f| < 2**-20 */  in log()
160   i = hx - 0x6147a;  in log()
162   j = 0x6b851 - hx;  in log()