[seed] Added mpfr.clear_flags()

[Tim Horton <hortont src gnome org>]

commit ebfa0c081960c5cd2418452e768712ffff935d8f
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Wed Jul 8 13:38:09 2009 -0400

    Added mpfr.clear_flags()

 modules/mpfr/seed-mpfr-trig.c |   12 ++++++++++++
 modules/mpfr/seed-mpfr.c      |    1 +
 modules/mpfr/seed-mpfr.h      |    1 +
 3 files changed, 14 insertions(+), 0 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-trig.c b/modules/mpfr/seed-mpfr-trig.c
index 9cdb7e2..4829046 100644
--- a/modules/mpfr/seed-mpfr-trig.c
+++ b/modules/mpfr/seed-mpfr-trig.c
@@ -1225,3 +1225,15 @@ SeedValue seed_mpfr_free_cache (SeedContext ctx,
     return seed_make_null(ctx);
 }
 
+SeedValue seed_mpfr_clear_flags (SeedContext ctx,
+                                 SeedObject function,
+                                 SeedObject this_object,
+                                 gsize argument_count,
+                                 const SeedValue args[],
+                                 SeedException * exception)
+{
+    CHECK_ARG_COUNT("mpfr.clear_flags", 0);
+    mpfr_clear_flags();
+    return seed_make_null(ctx);
+}
+
diff --git a/modules/mpfr/seed-mpfr.c b/modules/mpfr/seed-mpfr.c
index 6c4f025..2c2ab44 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -934,6 +934,7 @@ seed_static_value mpfr_ns_values[] =
 seed_static_function mpfr_ns_funcs[] =
 {
     {"free_cache", seed_mpfr_free_cache, 0},
+    {"clear_flags", seed_mpfr_clear_flags, 0},
     {NULL, NULL, 0}
 };
 
diff --git a/modules/mpfr/seed-mpfr.h b/modules/mpfr/seed-mpfr.h
index 81f2d0b..858123e 100644
--- a/modules/mpfr/seed-mpfr.h
+++ b/modules/mpfr/seed-mpfr.h
@@ -158,6 +158,7 @@ DEF_SEED_MPFR_FUNC(seed_mpfr_agm);
 DEF_SEED_MPFR_FUNC(seed_mpfr_hypot);
 
 DEF_SEED_MPFR_FUNC(seed_mpfr_free_cache);
+DEF_SEED_MPFR_FUNC(seed_mpfr_clear_flags);
 
 
 #endif      /* _SEED_MFPR_H_ */