OSDN Git Service

2010-07-11 Mikael Morin <mikael@gcc.gnu.org>
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 11 Jul 2010 12:14:25 +0000 (12:14 +0000)
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 11 Jul 2010 12:14:25 +0000 (12:14 +0000)
* arith.c (gfc_arith_done_1): Release mpfr internal caches.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162058 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/arith.c

index e6d4844..093631c 100644 (file)
@@ -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
index 1e90584..f555eb1 100644 (file)
@@ -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 ();
 }