1 files changed, 14 insertions, 0 deletions
diff --git a/clear.c b/clear.c
new file mode 100644
index 000000000..2a09a2de8
--- /dev/null
+++ b/clear.c
@@ -0,0 +1,14 @@
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "mpfr.h"
+
+void
+#if __STDC__
+mpfr_clear (mpfr_ptr m)
+#else
+mpfr_init (m)
+     mpfr_ptr m;
+#endif
+{
+  (*_mp_free_func) (m->_mp_d, ((m->_mp_prec>>3) + 1));
+}