projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[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));