mpz/tdiv_r.c: Avoid allocating too much space in some corner-case conditions

1 files changed, 6 insertions, 6 deletions

diff --git a/mpz/tdiv_r.c b/mpz/tdiv_r.c
index fe38f1ca0..c76275e53 100644
--- a/mpz/tdiv_r.c
+++ b/mpz/tdiv_r.c
@@ -36,32 +36,32 @@ void
 mpz_tdiv_r (mpz_ptr rem, mpz_srcptr num, mpz_srcptr den)
 {
   mp_size_t ql;
-  mp_size_t ns, ds, nl, dl;
+  mp_size_t ns, nl, dl;
   mp_ptr np, dp, qp, rp;
   TMP_DECL;
 
   ns = SIZ (num);
-  ds = SIZ (den);
   nl = ABS (ns);
-  dl = ABS (ds);
+  dl = ABSIZ (den);
   ql = nl - dl + 1;
 
   if (UNLIKELY (dl == 0))
     DIVIDE_BY_ZERO;
 
-  rp = MPZ_REALLOC (rem, dl);
-
   if (ql <= 0)
     {
       if (num != rem)
 	{
+	  SIZ (rem) = ns;
+	  rp = MPZ_NEWALLOC (rem, nl);
 	  np = PTR (num);
 	  MPN_COPY (rp, np, nl);
-	  SIZ (rem) = SIZ (num);
 	}
       return;
     }
 
+  rp = MPZ_REALLOC (rem, dl);
+
   TMP_MARK;
   qp = TMP_ALLOC_LIMBS (ql);
   np = PTR (num);