res_ptr
char *res_ptr = NULL;
old_res_ptr = res_ptr;
res_ptr = (char *) malloc (res_size + 1);
res_ptr = (char *) realloc (res_ptr, res_size + 1);
if (res_ptr == NULL)
strcpy (res_ptr + res_size - (l2 + 1) - (l1 + 1), buf1);
strcpy (res_ptr + res_size - (l2 + 1), buf2);
*(res_ptr + res_size) = '\0';
cp = res_ptr;
mpn_add_n (mp_ptr res_ptr, mp_srcptr s1_ptr, mp_srcptr s2_ptr, mp_size_t size)
mpn_add_n (res_ptr, s1_ptr, s2_ptr, size)
register mp_ptr res_ptr;
res_ptr -= j;
res_ptr[j] = y;
mpn_addmul_1 (res_ptr, s1_ptr, s1_size, s2_limb)
register mp_ptr res_ptr;
res_ptr -= j;
x = res_ptr[j];
res_ptr[j] = prod_low;
res_ptr[N - 1] |= 1L << (DBL_MANT_DIG - 1 - ((N - 1) * BITS_PER_MP_LIMB));
__mpn_extract_double (mp_ptr res_ptr, mp_size_t size,
res_ptr[0] = u.ieee.mantissa1; /* Low-order 32 bits of fraction. */
res_ptr[1] = u.ieee.mantissa0; /* High-order 20 bits. */
res_ptr[0] = ((unsigned long int) u.ieee.mantissa0 << 32) | u.ieee.mantissa1;
if (res_ptr[0] == 0 && res_ptr[N - 1] == 0) /* Assumes N<=2. */
if (res_ptr[N - 1] != 0)
count_leading_zeros (cnt, res_ptr[N - 1]);
res_ptr[N - 1] = res_ptr[1] << cnt
* (res_ptr[0] >> (BITS_PER_MP_LIMB - cnt));
res_ptr[0] <<= cnt;
res_ptr[N - 1] <<= cnt;
count_leading_zeros (cnt, res_ptr[0]);
res_ptr[N - 1] = res_ptr[0] << (cnt - NUM_LEADING_ZEROS);
res_ptr[0] = 0;
res_ptr[N - 1] = res_ptr[0] >> (NUM_LEADING_ZEROS - cnt);
res_ptr[0] <<= BITS_PER_MP_LIMB - (NUM_LEADING_ZEROS - cnt);
__mpn_extract_long_double (mp_ptr res_ptr, mp_size_t size,
res_ptr[0] = u.ieee.mantissa1; /* Low-order 32 bits of fraction. */
res_ptr[1] = u.ieee.mantissa0; /* High-order 32 bits. */
res_ptr[0] = ((mp_limb_t) u.ieee.mantissa0 << 32) | u.ieee.mantissa1;
if (res_ptr[0] == 0 && res_ptr[N - 1] == 0) /* Assumes N<=2. */
if (res_ptr[N - 1] != 0)
count_leading_zeros (cnt, res_ptr[N - 1]);
res_ptr[N - 1] = res_ptr[N - 1] << cnt
| (res_ptr[0] >> (BITS_PER_MP_LIMB - cnt));
res_ptr[0] <<= cnt;
res_ptr[N - 1] <<= cnt;
count_leading_zeros (cnt, res_ptr[0]);
res_ptr[N - 1] = res_ptr[0] << cnt;
res_ptr[0] = 0;
mpn_mul_1 (res_ptr, s1_ptr, s1_size, s2_limb)
register mp_ptr res_ptr;
res_ptr -= j;
res_ptr[j] = prod_low;
mpn_sub_n (mp_ptr res_ptr, mp_srcptr s1_ptr, mp_srcptr s2_ptr, mp_size_t size)
mpn_sub_n (res_ptr, s1_ptr, s2_ptr, size)
register mp_ptr res_ptr;
res_ptr -= j;
res_ptr[j] = y;
mpn_submul_1 (res_ptr, s1_ptr, s1_size, s2_limb)
register mp_ptr res_ptr;
res_ptr -= j;
x = res_ptr[j];
res_ptr[j] = prod_low;
__mpn_extract_long_double (mp_ptr res_ptr, mp_size_t size,
res_ptr[0] = u.ieee.mantissa1; /* Low-order 32 bits of fraction. */
res_ptr[1] = u.ieee.mantissa0; /* High-order 32 bits. */
res_ptr[0] = ((unsigned long int) u.ieee.mantissa0 << 32) | u.ieee.mantissa1;
if (res_ptr[0] == 0 && res_ptr[N - 1] == 0) /* Assumes N<=2. */
if (res_ptr[N - 1] != 0)
count_leading_zeros (cnt, res_ptr[N - 1]);
res_ptr[N - 1] = res_ptr[N - 1] << cnt
| (res_ptr[0] >> (BITS_PER_MP_LIMB - cnt));
res_ptr[0] <<= cnt;
res_ptr[N - 1] <<= cnt;
count_leading_zeros (cnt, res_ptr[0]);
res_ptr[N - 1] = res_ptr[0] << cnt;
res_ptr[0] = 0;
res_ptr[N - 1] = 0x80000000ul;
res_ptr[0] = 0x8000000000000000ul;
&& res_ptr[0] == 0
&& res_ptr[N - 1] == 0)
__mpn_extract_long_double (mp_ptr res_ptr, mp_size_t size,
res_ptr[0] = u.ieee.mantissa1; /* Low-order 32 bits of fraction. */
res_ptr[1] = u.ieee.mantissa0; /* High-order 32 bits. */
res_ptr[0] = ((mp_limb_t) u.ieee.mantissa0 << 32) | u.ieee.mantissa1;
if (res_ptr[0] == 0 && res_ptr[N - 1] == 0) /* Assumes N<=2. */
res_ptr[N - 1] &= ~(1L << ((LDBL_MANT_DIG - 1) % BITS_PER_MP_LIMB));
if (res_ptr[N - 1] != 0)
count_leading_zeros (cnt, res_ptr[N - 1]);
res_ptr[N - 1] = res_ptr[N - 1] << cnt
| (res_ptr[0] >> (BITS_PER_MP_LIMB - cnt));
res_ptr[0] <<= cnt;
res_ptr[N - 1] <<= cnt;
else if (res_ptr[0] != 0)
count_leading_zeros (cnt, res_ptr[0]);
res_ptr[N - 1] = res_ptr[0] << cnt;
res_ptr[0] = 0;
extern mp_size_t __mpn_extract_double (mp_ptr res_ptr, mp_size_t size,
extern mp_size_t __mpn_extract_long_double (mp_ptr res_ptr, mp_size_t size,
extern mp_size_t __mpn_extract_double (mp_ptr res_ptr, mp_size_t size,
extern mp_size_t __mpn_extract_long_double (mp_ptr res_ptr, mp_size_t size,
mpn_add_1 (register mp_ptr res_ptr,
mpn_add_1 (res_ptr, s1_ptr, s1_size, s2_limb)
register mp_ptr res_ptr;
*res_ptr++ = s2_limb;
*res_ptr++ = x;
if (res_ptr != s1_ptr)
res_ptr[i] = s1_ptr[i];
mpn_add (register mp_ptr res_ptr,
mpn_add (res_ptr, s1_ptr, s1_size, s2_ptr, s2_size)
register mp_ptr res_ptr;
cy_limb = mpn_add_n (res_ptr, s1_ptr, s2_ptr, s2_size);
cy_limb = mpn_add_1 (res_ptr + s2_size,
mpn_sub_1 (register mp_ptr res_ptr,
mpn_sub_1 (res_ptr, s1_ptr, s1_size, s2_limb)
register mp_ptr res_ptr;
*res_ptr++ = s2_limb;
*res_ptr++ = x - 1;
if (res_ptr != s1_ptr)
res_ptr[i] = s1_ptr[i];
mpn_sub (register mp_ptr res_ptr,
mpn_sub (res_ptr, s1_ptr, s1_size, s2_ptr, s2_size)
register mp_ptr res_ptr;
cy_limb = mpn_sub_n (res_ptr, s1_ptr, s2_ptr, s2_size);
cy_limb = mpn_sub_1 (res_ptr + s2_size,