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

diff --git a/ghc/rts/gmp/mpz/lcm.c b/ghc/rts/gmp/mpz/lcm.c
index ca8c15c..7495882 100644
--- a/ghc/rts/gmp/mpz/lcm.c
+++ b/ghc/rts/gmp/mpz/lcm.c
@@ -1,6 +1,6 @@
 /* mpz/lcm.c:   Calculate the least common multiple of two integers.
 
-Copyright (C) 1996 Free Software Foundation, Inc.
+Copyright (C) 1996, 2000 Free Software Foundation, Inc.
 
 This file is part of the GNU MP Library.
 
@@ -37,6 +37,9 @@ mpz_lcm (r, u, v)
 {
   mpz_t g;
   mp_size_t usize, vsize, size;
+  TMP_DECL (marker);
+
+  TMP_MARK (marker);
 
   usize = ABS (SIZ (u));
   vsize = ABS (SIZ (v));
@@ -53,4 +56,6 @@ mpz_lcm (r, u, v)
   mpz_gcd (g, u, v);
   mpz_divexact (g, u, g);
   mpz_mul (r, g, v);
+
+  TMP_FREE (marker);
 }