X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpz%2Furandomm.c;h=69e1bae78a397a12d2277deabe194feefe8b7015;hb=28a464a75e14cece5db40f2765a29348273ff2d2;hp=aa577840819ed13522607ee5d85db9cc5158eaee;hpb=e72806f1683fc7acf7bd10885e8e45ff06d790f1;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);
 }