Initial revision

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

1 files changed, 11 insertions, 0 deletions

diff --git a/set.c b/set.c
new file mode 100644
index 000000000..aa99ac9c8
--- /dev/null
+++ b/set.c
@@ -0,0 +1,11 @@
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "mpfr.h"
+
+void mpfr_set(a, b, rnd_mode) 
+mpfr_ptr a; mpfr_srcptr b; unsigned char rnd_mode;
+{
+  mpfr_round_raw(MANT(a), b->_mp_d, rnd_mode, b->_mp_size, PREC(a));
+  EXP(a) = EXP(b);
+  if (SIGN(a) != SIGN(b)) CHANGE_SIGN(a);
+}