arith.c (gfc_arith_done_1): Release mpfr internal caches.

2010-07-11  Mikael Morin  <mikael@gcc.gnu.org>

	* arith.c (gfc_arith_done_1): Release mpfr internal caches.

From-SVN: r162058

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e6d4844c867dbd6d553b79f033a8cdac316ae7cd..093631c63a505f8686a83033ff157737eaa182fa 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-07-11  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * arith.c (gfc_arith_done_1): Release mpfr internal caches.
+
 2010-07-11  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/44869

diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index 1e90584be49819344abbec273352b57ce9f2b5b6..f555eb104cdea56afc9a9e0b2ce268f05b1309a3 100644 (file)
--- a/gcc/fortran/arith.c
+++ b/gcc/fortran/arith.c
@@ -260,6 +260,8 @@ gfc_arith_done_1 (void)
 
   for (rp = gfc_real_kinds; rp->kind; rp++)
     mpfr_clears (rp->epsilon, rp->huge, rp->tiny, rp->subnormal, NULL);
+
+  mpfr_free_cache ();
 }