149 	   __ieee_double_shape_type *b)  in bigger()  argument
152   if (a->parts.msw > b->parts.msw)   in bigger()
157   else if (a->parts.msw == b->parts.msw)   in bigger()
159       if (a->parts.lsw > b->parts.lsw)   in bigger()
169 	   __ieee_float_shape_type *b)  in fbigger()  argument
172   if (a->p1 > b->p1)  in fbigger()
186   __ieee_double_shape_type a,b;  in mag_of_error()  local
194   b.value = shouldbe;  in mag_of_error()
196   if (a.parts.msw == b.parts.msw   in mag_of_error()
197       && a.parts.lsw== b.parts.lsw) return 64;  in mag_of_error()
202   a_big = bigger(&a, &b);  in mag_of_error()
207     a.parts.msw = b.parts.msw;  in mag_of_error()
208     b.parts.msw = t;  in mag_of_error()
211     a.parts.lsw = b.parts.lsw;  in mag_of_error()
212     b.parts.lsw = t;  in mag_of_error()
217   __x = (a.parts.lsw) - (b.parts.lsw);							  in mag_of_error()
218   msw = (a.parts.msw) - (b.parts.msw) - (__x > (a.parts.lsw));  in mag_of_error()
249   __ieee_float_shape_type a,b;  in fmag_of_error()  local
256   b.value = shouldbe;  in fmag_of_error()
258   if (a.p1 == b.p1) return 32;  in fmag_of_error()
262   a_big = fbigger(&a, &b);  in fmag_of_error()
267     a.p1 = b.p1;  in fmag_of_error()
268     b.p1 = t;  in fmag_of_error()
271   sw = (a.p1) - (b.p1);  in fmag_of_error()
368   __ieee_double_shape_type a,b;  in test_mok()  local
378   b.value = value;  in test_mok()
388 	    (unsigned long) b.parts.msw,	     (unsigned long) b.parts.lsw);  in test_mok()
389     printf("(%g %g)\n",   a.value, b.value);  in test_mok()
399   __ieee_float_shape_type a,b;  in test_mfok()  local
409   b.value = value;  in test_mfok()
419 	    (unsigned long) b.p1);  in test_mfok()
420      printf("(%g %g)\n",   (double) a.value, (double) b.value);  in test_mfok()