* mpfr/sqrt.c: Scope nested TMP_DECL into nested { } block, patch by

	Paul, tweaked by me.
	* mpfr/agm.c: Ditto, and add a final TMP_FREE(marker2).

1 files changed, 6 insertions, 2 deletions

diff --git a/mpfr/agm.c b/mpfr/agm.c
index 27a992769..39d2782c6 100644
--- a/mpfr/agm.c
+++ b/mpfr/agm.c
@@ -1,6 +1,6 @@
 /* mpfr_agm -- arithmetic-geometric mean of two floating-point numbers
 
-Copyright (C) 1999 Free Software Foundation.
+Copyright (C) 1999, 2001 Free Software Foundation.
 
 This file is part of the MPFR Library.
 
@@ -82,7 +82,6 @@ mpfr_agm (r, op2, op1, rnd_mode)
   mp_limb_t *up, *vp, *tmpp, *tmpup, *tmpvp, *ap, *bp;
   mpfr_t u, v, tmp, tmpu, tmpv, a, b;
   TMP_DECL(marker1);
-  TMP_DECL(marker2);
 
   /* If a or b is NaN, the result is NaN */
   if (MPFR_IS_NAN(op1) || MPFR_IS_NAN(op2)) 
@@ -117,6 +116,9 @@ mpfr_agm (r, op2, op1, rnd_mode)
   s=(p-1)/BITS_PER_MP_LIMB+1;
   MPFR_INIT(ap, a, p, s);  
   MPFR_INIT(bp, b, p, s);
+
+  {
+  TMP_DECL(marker2);
   TMP_MARK(marker2);
   MPFR_INIT(up, u, p, s);
   MPFR_INIT(vp, v, p, s);   
@@ -203,6 +205,8 @@ mpfr_agm (r, op2, op1, rnd_mode)
 
     mpfr_set(r,v,rnd_mode);
 
+  TMP_FREE(marker2);
+  }
 
   /* Let's clean */
     TMP_FREE(marker1);