Initial revision

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 16 insertions, 0 deletions

diff --git a/set_dfl_prec.c b/set_dfl_prec.c
new file mode 100644
index 000000000..aa7b7b668
--- /dev/null
+++ b/set_dfl_prec.c
@@ -0,0 +1,16 @@
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* default is 53 bits */
+mp_size_t __gmp_default_fp_bit_precision = 53;
+
+void
+#if __STDC__
+mpfr_set_default_prec (unsigned long int prec_in_bits)
+#else
+mpfr_set_default_prec (prec_in_bits)
+     unsigned long int prec_in_bits;
+#endif
+{
+  __gmp_default_fp_bit_precision = prec_in_bits;
+}