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;
193     exp = (comb >> 2) & 0x3ff;
216     res = sign | ((0x1800 | ((exp >> 8) << 9) | ((b0 & 1) << 8) |
217                    (exp & 0xff)) << 50) | dcoeff;
219     res = sign | ((((exp >> 8) << 11) | (b0 << 8) |
220                      (exp & 0xff)) << 50) | dcoeff;
229   UINT64 sign, comb, exp;
246     exp = (comb & 0x600) >> 1; /* exp = (comb & 0x0400 ? 1 : 0) * 0x200 +
247         (comb & 0x0200 ? 1 : 0) * 0x100; exp leading bits are G2..G3 */
250     exp = (comb & 0x1800) >> 3; /* exp = (comb & 0x1000 ? 1 : 0) * 0x200 +
251         (comb & 0x0800 ? 1 : 0) * 0x100; exp loading bits are G0..G1 */
259   exp += (comb & 0xff);
263     res = exp;
270   res = (exp << 51) | (sign | 0x6000000000000000ull);
288   UINT64 exp, BL, d109;
297   exp = 0;
301     exp = ((x.w[1] & 0x7fff000000000000ull) >> 49) & 0x3fff;
340       res.w[1] = sign.w[1] | ((0x18000 | ((exp >> 12) << 13) |
341           ((k0 & 1) << 12) | (exp & 0xfff)) << 46) | dcoeff.w[1];
343       res.w[1] = sign.w[1] | ((((exp >> 12) << 15) | (k0 << 12) |
344           (exp & 0xfff)) << 46) | dcoeff.w[1];
356   UINT64 exp, comb;
374     exp = (comb & 0x06000) >> 1;  /* exp leading bits are G2..G3 */
377     exp = (comb & 0x18000) >> 3;  /* exp loading bits are G0..G1 */
394   exp += (comb & 0xfff);
396   res.w[1] = (exp << 49) | sign.w[1] | bcoeff.w[1];