Mercurial > hg > CbC > CbC_gcc

comparison libquadmath/printf/flt1282mpn.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 561a7518be6b
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
37 37
38 *is_neg = u.ieee.negative; 38 *is_neg = u.ieee.negative;
39 *expt = (int) u.ieee.exponent - IEEE854_FLOAT128_BIAS; 39 *expt = (int) u.ieee.exponent - IEEE854_FLOAT128_BIAS;
40 40
41 #if BITS_PER_MP_LIMB == 32 41 #if BITS_PER_MP_LIMB == 32
42 res_ptr[0] = u.ieee.mant_low; /* Low-order 32 bits of fraction. */ 42 res_ptr[0] = u.ieee.mantissa3; /* Low-order 32 bits of fraction. */
43 res_ptr[1] = (u.ieee.mant_low >> 32); 43 res_ptr[1] = u.ieee.mantissa2;
44 res_ptr[2] = u.ieee.mant_high; 44 res_ptr[2] = u.ieee.mantissa1;
45 res_ptr[3] = (u.ieee.mant_high >> 32); /* High-order 32 bits. */ 45 res_ptr[3] = u.ieee.mantissa0; /* High-order 32 bits. */
46 #define N 4 46 #define N 4
47 #elif BITS_PER_MP_LIMB == 64 47 #elif BITS_PER_MP_LIMB == 64
48 res_ptr[0] = u.ieee.mant_low; 48 res_ptr[0] = ((mp_limb_t) u.ieee.mantissa2 << 32) | u.ieee.mantissa3;
49 res_ptr[1] = u.ieee.mant_high; 49 res_ptr[1] = ((mp_limb_t) u.ieee.mantissa0 << 32) | u.ieee.mantissa1;
50 #define N 2 50 #define N 2
51 #else 51 #else
52 #error "mp_limb size " BITS_PER_MP_LIMB "not accounted for" 52 #error "mp_limb size " BITS_PER_MP_LIMB "not accounted for"
53 #endif 53 #endif
54 /* The format does not fill the last limb. There are some zeros. */ 54 /* The format does not fill the last limb. There are some zeros. */