25 float __aeabi_l2f(di_int a);
28 __aeabi_l2f(di_int a)  in __aeabi_l2f()  argument
30     if (a == 0)  in __aeabi_l2f()
33     const di_int s = a >> (N-1);  in __aeabi_l2f()
34     a = (a ^ s) - s;  in __aeabi_l2f()
35     int sd = N - __builtin_clzll(a);  /* number of significant digits */  in __aeabi_l2f()
50             a <<= 1;  in __aeabi_l2f()
55             a = ((du_int)a >> (sd - (FLT_MANT_DIG+2))) |  in __aeabi_l2f()
56                 ((a & ((du_int)(-1) >> ((N + FLT_MANT_DIG+2) - sd))) != 0);  in __aeabi_l2f()
59         a |= (a & 4) != 0;  /* Or P into R */  in __aeabi_l2f()
60         ++a;  /* round - this step may add a significant bit */  in __aeabi_l2f()
61         a >>= 2;  /* dump Q and R */  in __aeabi_l2f()
63         if (a & ((du_int)1 << FLT_MANT_DIG))  in __aeabi_l2f()
65             a >>= 1;  in __aeabi_l2f()
72         a <<= (FLT_MANT_DIG - sd);  in __aeabi_l2f()
78            ((su_int)a & 0x007FFFFF);   /* mantissa */  in __aeabi_l2f()