libdecnumber/bid/bid2dpd_dpd2bid.c

91   unsigned int sign, coefficient_x, exp, dcoeff;
106     exp = (x >> 21) & 0xff;
108     exp = (x >> 23) & 0xff;
117     res = sign | ((0x600 | ((exp >> 6) << 7) |
118         ((b0 & 1) << 6) | (exp & 0x3f)) << 20) | dcoeff;
120     res = sign | ((((exp >> 6) << 9) | (b0 << 6) |
121         (exp & 0x3f)) << 20) | dcoeff;
131   unsigned int sign, exp, bcoeff;
145     exp = (x >> 27) & 3; /* exp leading bits are G2..G3 */
148     exp = (x >> 29) & 3; /* exp loading bits are G0..G1 */
153   exp = (exp << 6) + ((x >> 20) & 0x3f);
155     r = exp;
159     r = exp;
173   UINT64 sign, comb, exp, B34, B01;
189   if ((comb & 0xc00) == 0xc00) { /* G0..G1 = 11 -> exp is G2..G11 */
190     exp = (comb) & 0x3ff;
195     exp = (comb >> 2) & 0x3ff;
218     res = sign | ((0x1800 | ((exp >> 8) << 9) | ((b0 & 1) << 8) |
219                    (exp & 0xff)) << 50) | dcoeff;
221     res = sign | ((((exp >> 8) << 11) | (b0 << 8) |
222                      (exp & 0xff)) << 50) | dcoeff;
231   UINT64 sign, comb, exp;
248     exp = (comb & 0x600) >> 1; /* exp = (comb & 0x0400 ? 1 : 0) * 0x200 +
249         (comb & 0x0200 ? 1 : 0) * 0x100; exp leading bits are G2..G3 */
252     exp = (comb & 0x1800) >> 3; /* exp = (comb & 0x1000 ? 1 : 0) * 0x200 +
253         (comb & 0x0800 ? 1 : 0) * 0x100; exp loading bits are G0..G1 */
261   exp += (comb & 0xff);
265     res = exp;
272   res = (exp << 51) | (sign | 0x6000000000000000ull);
290   UINT64 exp, BL, d109;
299   exp = 0;
306       exp = (comb & 0x7fff) >> 1;
310       exp = ((x.w[1] & 0x7fff000000000000ull) >> 49) & 0x3fff;
356       res.w[1] = sign.w[1] | ((0x18000 | ((exp >> 12) << 13) |
357           ((k0 & 1) << 12) | (exp & 0xfff)) << 46) | dcoeff.w[1];
359       res.w[1] = sign.w[1] | ((((exp >> 12) << 15) | (k0 << 12) |
360           (exp & 0xfff)) << 46) | dcoeff.w[1];
372   UINT64 exp, comb;
390     exp = (comb & 0x06000) >> 1;  /* exp leading bits are G2..G3 */
393     exp = (comb & 0x18000) >> 3;  /* exp loading bits are G0..G1 */
410   exp += (comb & 0xfff);
412   res.w[1] = (exp << 49) | sign.w[1] | bcoeff.w[1];