X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpz%2Fpprime_p.c;fp=ghc%2Frts%2Fgmp%2Fmpz%2Fpprime_p.c;h=82eb678238cb7bce1ae4bdc41092534478f81a07;hb=5de39aa0868d6ff8528a533ef19e42d1a583bc12;hp=0217d8f5f03cec3ab08c7b1c8da2967b1388212d;hpb=f8b78fd2506328885be10cf7736a74b5233e3230;p=ghc-hetmet.git

diff --git a/ghc/rts/gmp/mpz/pprime_p.c b/ghc/rts/gmp/mpz/pprime_p.c
index 0217d8f..82eb678 100644
--- 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));