diff options
author | Mikael Morin <mikael@gcc.gnu.org> | 2010-07-11 12:14:25 +0000 |
---|---|---|
committer | Mikael Morin <mikael@gcc.gnu.org> | 2010-07-11 12:14:25 +0000 |
commit | f67df2ca8bbfccde03daf34c6c4a1078d0b67952 (patch) | |
tree | b64e1f55aaabc628c8aa32a754ad87539b9a94b7 /gcc/fortran/arith.c | |
parent | 8e7d962aa5b7b9231bd25efeb4f7c257fcea1a75 (diff) | |
download | gcc-f67df2ca8bbfccde03daf34c6c4a1078d0b67952.zip gcc-f67df2ca8bbfccde03daf34c6c4a1078d0b67952.tar.gz gcc-f67df2ca8bbfccde03daf34c6c4a1078d0b67952.tar.bz2 |
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
Diffstat (limited to 'gcc/fortran/arith.c')
-rw-r--r-- | gcc/fortran/arith.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 1e90584..f555eb1 100644 --- 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 (); } |