=================================================================== RCS file: /home/cvs/OpenXM_contrib/gmp/mpz/Attic/lcm.c,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.2 diff -u -p -r1.1.1.1 -r1.1.1.2 --- OpenXM_contrib/gmp/mpz/Attic/lcm.c 2000/09/09 14:12:54 1.1.1.1 +++ OpenXM_contrib/gmp/mpz/Attic/lcm.c 2000/12/01 05:45:11 1.1.1.2 @@ -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,7 +37,10 @@ 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); }