xref: /dflybsd-src/contrib/mpfr/src/set_dfl_prec.c (revision 2786097444a0124b5d33763854de247e230c6629)
14a238c70SJohn Marino /* mpfr_set_default_prec, mpfr_get_default_prec -- set/get default precision
24a238c70SJohn Marino 
3*ab6d115fSJohn Marino Copyright 1999, 2000, 2001, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
4*ab6d115fSJohn Marino Contributed by the AriC and Caramel projects, INRIA.
54a238c70SJohn Marino 
64a238c70SJohn Marino This file is part of the GNU MPFR Library.
74a238c70SJohn Marino 
84a238c70SJohn Marino The GNU MPFR Library is free software; you can redistribute it and/or modify
94a238c70SJohn Marino it under the terms of the GNU Lesser General Public License as published by
104a238c70SJohn Marino the Free Software Foundation; either version 3 of the License, or (at your
114a238c70SJohn Marino option) any later version.
124a238c70SJohn Marino 
134a238c70SJohn Marino The GNU MPFR Library is distributed in the hope that it will be useful, but
144a238c70SJohn Marino WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
154a238c70SJohn Marino or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
164a238c70SJohn Marino License for more details.
174a238c70SJohn Marino 
184a238c70SJohn Marino You should have received a copy of the GNU Lesser General Public License
194a238c70SJohn Marino along with the GNU MPFR Library; see the file COPYING.LESSER.  If not, see
204a238c70SJohn Marino http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
214a238c70SJohn Marino 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. */
224a238c70SJohn Marino 
234a238c70SJohn Marino #include "mpfr-impl.h"
244a238c70SJohn Marino 
254a238c70SJohn Marino /* default is IEEE double precision, i.e. 53 bits */
264a238c70SJohn Marino mpfr_prec_t MPFR_THREAD_ATTR __gmpfr_default_fp_bit_precision \
274a238c70SJohn Marino   = IEEE_DBL_MANT_DIG;
284a238c70SJohn Marino 
294a238c70SJohn Marino void
mpfr_set_default_prec(mpfr_prec_t prec)304a238c70SJohn Marino mpfr_set_default_prec (mpfr_prec_t prec)
314a238c70SJohn Marino {
324a238c70SJohn Marino   MPFR_ASSERTN (prec >= MPFR_PREC_MIN && prec <= MPFR_PREC_MAX);
334a238c70SJohn Marino   __gmpfr_default_fp_bit_precision = prec;
344a238c70SJohn Marino }
354a238c70SJohn Marino 
364a238c70SJohn Marino #undef mpfr_get_default_prec
374a238c70SJohn Marino mpfr_prec_t
mpfr_get_default_prec(void)384a238c70SJohn Marino mpfr_get_default_prec (void)
394a238c70SJohn Marino {
404a238c70SJohn Marino   return __gmpfr_default_fp_bit_precision;
414a238c70SJohn Marino }
42