[project @ 2001-01-17 12:06:02 by simonmar]

[ghc-hetmet.git] / ghc / rts / gmp / mpz / pprime_p.c

diff --git a/ghc/rts/gmp/mpz/pprime_p.c b/ghc/rts/gmp/mpz/pprime_p.c
index 0217d8f..82eb678 100644 (file)
--- a/ghc/rts/gmp/mpz/pprime_p.c
+++ b/ghc/rts/gmp/mpz/pprime_p.c
@@ -181,8 +181,8 @@ mpz_millerrabin (n, reps)
   mpz_powm (y, x, nm1, n);
   if (mpz_cmp_ui (y, 1L) != 0)
     {
-      return 0;
       TMP_FREE (marker);
+      return 0;
     }
 
   MPZ_TMP_INIT (q, SIZ (n));