mp?/clears.c, mp?/inits.c: Stop supporting empty lists.

2 files changed, 4 insertions, 2 deletions

diff --git a/mpq/clears.c b/mpq/clears.c
index 73e5f6624..c5f6539a6 100644
--- a/mpq/clears.c
+++ b/mpq/clears.c
@@ -39,12 +39,13 @@ mpq_clears (mpq_ptr x, ...)
 
   va_start (ap, x);
 
-  while (x != NULL)
+  do
     {
       __GMP_FREE_FUNC_LIMBS (PTR(NUM(x)), ALLOC(NUM(x)));
       __GMP_FREE_FUNC_LIMBS (PTR(DEN(x)), ALLOC(DEN(x)));
       x = va_arg (ap, mpq_ptr);
     }
+  while (x != NULL);
 
   va_end (ap);
 }
diff --git a/mpq/inits.c b/mpq/inits.c
index bb14f93e2..084c71e00 100644
--- a/mpq/inits.c
+++ b/mpq/inits.c
@@ -39,11 +39,12 @@ mpq_inits (mpq_ptr x, ...)
 
   va_start (ap, x);
 
-  while (x != NULL)
+  do
     {
       mpq_init (x);
       x = va_arg (ap, mpq_ptr);
     }
+  while (x != NULL);
 
   va_end (ap);
 }