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
/
urandomm.c
diff --git
a/ghc/rts/gmp/mpz/urandomm.c
b/ghc/rts/gmp/mpz/urandomm.c
index
aa57784
..
69e1bae
100644
(file)
--- a/
ghc/rts/gmp/mpz/urandomm.c
+++ b/
ghc/rts/gmp/mpz/urandomm.c
@@
-39,6
+39,9
@@
mpz_urandomm (rop, rstate, n)
mp_ptr tp;
mp_size_t nbits, size;
int count;
mp_ptr tp;
mp_size_t nbits, size;
int count;
+ TMP_DECL (marker);
+
+ TMP_MARK (marker);
/* FIXME: Should check for n == 0 and report error */
/* FIXME: Should check for n == 0 and report error */
@@
-70,4
+73,6
@@
mpz_urandomm (rop, rstate, n)
while (mpz_cmp (t, p) >= 0);
mpz_mod (rop, t, n);
while (mpz_cmp (t, p) >= 0);
mpz_mod (rop, t, n);
+
+ TMP_FREE (marker);
}
}