From 5c4878caf36a75b23817d7ef7327293e286cafeb Mon Sep 17 00:00:00 2001
From: vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>
Date: Mon, 11 Mar 2002 13:16:54 +0000
Subject: New mpfr_get_d, mpfr_get_d2, mpfr_get_d3.

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1726 280ebfd0-de03-0410-8827-d642c229c3f4
---
 get_d.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'get_d.c')

diff --git a/get_d.c b/get_d.c
index cbe141294..4a87ff16d 100644
--- a/get_d.c
+++ b/get_d.c
@@ -90,7 +90,7 @@ __mpfr_scale2 (double d, int exp)
 }
 
 double
-mpfr_get_d2 (mpfr_srcptr src, mp_exp_t e)
+mpfr_get_d3 (mpfr_srcptr src, mp_exp_t e, mp_rnd_t rnd_mode)
 {
   double d;
   mpfr_t tmp;
@@ -156,8 +156,14 @@ mpfr_get_d2 (mpfr_srcptr src, mp_exp_t e)
   return d;
 }
 
+double
+mpfr_get_d2 (mpfr_srcptr src, mp_rnd_t rnd_mode)
+{
+  return mpfr_get_d3 (src, MPFR_EXP(src), rnd_mode);
+}
+
 double
 mpfr_get_d (mpfr_srcptr src)
 {
-  return mpfr_get_d2 (src, MPFR_EXP(src));
+  return mpfr_get_d3 (src, MPFR_EXP(src), __gmp_default_rounding_mode);
 }
-- 
cgit v1.2.1