148 bigger (__ieee_double_shape_type *a,  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()
168 fbigger (__ieee_float_shape_type *a,  in fbigger()  argument
172   if (a->p1 > b->p1)  in fbigger()
186   __ieee_double_shape_type a,b;  in mag_of_error()  local
192   a.value = is;  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()
206     t = a.parts.msw;  in mag_of_error()
207     a.parts.msw = b.parts.msw;  in mag_of_error()
210     t = a.parts.lsw;  in mag_of_error()
211     a.parts.lsw = b.parts.lsw;  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
254   a.value = is;  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()
266     t = a.p1;  in fmag_of_error()
267     a.p1 = b.p1;  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
377   a.value = shouldbe;  in test_mok()
387 	    (unsigned long) a.parts.msw,	     (unsigned long) a.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
408   a.value = shouldbe;  in test_mfok()
418 	    (unsigned long) a.p1,  in test_mfok()
420      printf("(%g %g)\n",   (double) a.value, (double) b.value);  in test_mfok()