X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpz%2Furandomm.c;h=69e1bae78a397a12d2277deabe194feefe8b7015;hb=5de39aa0868d6ff8528a533ef19e42d1a583bc12;hp=aa577840819ed13522607ee5d85db9cc5158eaee;hpb=f8b78fd2506328885be10cf7736a74b5233e3230;p=ghc-hetmet.git

diff --git a/ghc/rts/gmp/mpz/urandomm.c b/ghc/rts/gmp/mpz/urandomm.c
index aa57784..69e1bae 100644
--- 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;
+  TMP_DECL (marker);
+
+  TMP_MARK (marker);
 
   /* 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);
+
+  TMP_FREE (marker);
 }