diff options
| author | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-05-18 15:57:10 +0000 |
|---|---|---|
| committer | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-05-18 15:57:10 +0000 |
| commit | b88c50d268e5e11da7c3363d421246dbb14bc180 (patch) | |
| tree | 205a24fbfc48e8d135ec15b617d85335a673ad58 /div.c | |
| parent | e1bd5aef35c4619b29cf017d8128525d23bbdb56 (diff) | |
| download | mpfr-b88c50d268e5e11da7c3363d421246dbb14bc180.tar.gz | |
Replace TMP_ALLOC by MPFR_TMP_ALLOC
Replace TMP_DECL by MPFR_TMP_DECL
Replace TMP_MARK by MPFR_TMP_MARK
Replace TMP_FREE by MPFR_TMP_FREE
Add support for GMP's TMP_SALLOC.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3593 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'div.c')
| -rw-r--r-- | div.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -146,7 +146,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) int extra_bit; int sh, sh2; int inex; - TMP_DECL(marker); + MPFR_TMP_DECL(marker); /************************************************************************** * * @@ -209,7 +209,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) * * **************************************************************************/ - TMP_MARK(marker); + MPFR_TMP_MARK(marker); /* set sign */ sign_quotient = MPFR_MULT_SIGN( MPFR_SIGN(u) , MPFR_SIGN(v) ); @@ -251,7 +251,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) sticky bits */ qsize = q0size + 1; /* need to allocate memory for the quotient */ - qp = (mp_ptr) TMP_ALLOC (qsize*sizeof(mp_limb_t)); + qp = (mp_ptr) MPFR_TMP_ALLOC (qsize*sizeof(mp_limb_t)); } else { @@ -261,7 +261,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) qqsize = qsize + qsize; /* prepare the dividend */ - ap = (mp_ptr) TMP_ALLOC (qqsize*sizeof(mp_limb_t)); + ap = (mp_ptr) MPFR_TMP_ALLOC (qqsize*sizeof(mp_limb_t)); if (MPFR_LIKELY(qqsize > usize)) /* use the full dividend */ { k = qqsize - usize; /* k > 0 */ @@ -294,7 +294,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) between quotient and divisor, necessarily k = 0 since quotient and divisor are the same mpfr variable */ { - bp = (mp_ptr) TMP_ALLOC (qsize * sizeof(mp_limb_t)); + bp = (mp_ptr) MPFR_TMP_ALLOC (qsize * sizeof(mp_limb_t)); MPN_COPY(bp, vp, vsize); } sticky_v = sticky_v || mpn_cmpzero (vp, k); @@ -302,7 +302,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) else /* vsize < qsize */ { k = qsize - vsize; - bp = (mp_ptr) TMP_ALLOC (qsize * sizeof(mp_limb_t)); + bp = (mp_ptr) MPFR_TMP_ALLOC (qsize * sizeof(mp_limb_t)); MPN_COPY(bp + k, vp, vsize); MPN_ZERO(bp, k); } @@ -402,7 +402,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) mp_ptr sp; int cmp_s_r; - sp = (mp_ptr) TMP_ALLOC (vsize*sizeof(mp_limb_t)); + sp = (mp_ptr) MPFR_TMP_ALLOC (vsize*sizeof(mp_limb_t)); k = vsize - qsize; /* sp <- {qp, qsize} * {vp, vsize-qsize} */ qp[0] ^= sticky3orig; /* restore original quotient */ @@ -620,7 +620,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode) truncate: /* inex already set */ - TMP_FREE(marker); + MPFR_TMP_FREE(marker); /* check for underflow/overflow */ if (MPFR_UNLIKELY(qexp > __gmpfr_emax)) |