[seed] [mpfr] Added mpfr.free_cache

[Tim Horton <hortont src gnome org>]

commit f792cc58d87fa8e0efba1fad48a6527db4828fad
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sun Jul 5 16:31:15 2009 -0400

    [mpfr] Added mpfr.free_cache

 modules/mpfr/seed-mpfr-trig.c |   12 ++++++++++++
 modules/mpfr/seed-mpfr.c      |    1 +
 modules/mpfr/seed-mpfr.h      |    2 ++
 3 files changed, 15 insertions(+), 0 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-trig.c b/modules/mpfr/seed-mpfr-trig.c
index e6a10ca..b87f9cf 100644
--- a/modules/mpfr/seed-mpfr-trig.c
+++ b/modules/mpfr/seed-mpfr-trig.c
@@ -1213,3 +1213,15 @@ SeedValue seed_mpfr_hypot (SeedContext ctx,
     return seed_value_from_int(ctx, ret, exception);
 }
 
+SeedValue seed_mpfr_free_cache (SeedContext ctx,
+                                SeedObject function,
+                                SeedObject this_object,
+                                gsize argument_count,
+                                const SeedValue args[],
+                                SeedException * exception)
+{
+    CHECK_ARG_COUNT("mpfr.free_cache", 0);
+    mpfr_free_cache();
+    return seed_make_null(ctx);
+}
+
diff --git a/modules/mpfr/seed-mpfr.c b/modules/mpfr/seed-mpfr.c
index 1fca9e6..daf4903 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -675,6 +675,7 @@ seed_static_function mpfr_funcs[] =
     {"pi", seed_mpfr_const_pi, 0},
     {"euler", seed_mpfr_const_pi, 0},
     {"catalan", seed_mpfr_const_pi, 0},
+    {"free_cache", seed_mpfr_free_cache, 0},
     {NULL, NULL, 0}
 };
 
diff --git a/modules/mpfr/seed-mpfr.h b/modules/mpfr/seed-mpfr.h
index 62cc13e..4e3f75a 100644
--- a/modules/mpfr/seed-mpfr.h
+++ b/modules/mpfr/seed-mpfr.h
@@ -125,6 +125,8 @@ DEF_SEED_MPFR_FUNC(seed_mpfr_fms);
 DEF_SEED_MPFR_FUNC(seed_mpfr_agm);
 DEF_SEED_MPFR_FUNC(seed_mpfr_hypot);
 
+DEF_SEED_MPFR_FUNC(seed_mpfr_free_cache);
+
 
 #endif      /* _SEED_MFPR_H_ */