summaryrefslogtreecommitdiff
path: root/mpfr/i_ceil_log2.c
diff options
context:
space:
mode:
Diffstat (limited to 'mpfr/i_ceil_log2.c')
-rw-r--r--mpfr/i_ceil_log2.c40
1 files changed, 0 insertions, 40 deletions
diff --git a/mpfr/i_ceil_log2.c b/mpfr/i_ceil_log2.c
deleted file mode 100644
index e70dd261d..000000000
--- a/mpfr/i_ceil_log2.c
+++ /dev/null
@@ -1,40 +0,0 @@
-/* _mpfr_ceil_log2 - returns ceil(log(d)/log(2))
-
-Copyright (C) 1999-2002 Free Software Foundation.
-
-This file is part of the MPFR Library.
-
-The MPFR Library is free software; you can redistribute it and/or modify
-it under the terms of the GNU Lesser General Public License as published by
-the Free Software Foundation; either version 2.1 of the License, or (at your
-option) any later version.
-
-The MPFR Library is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
-License for more details.
-
-You should have received a copy of the GNU Lesser General Public License
-along with the MPFR Library; see the file COPYING.LIB. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
-MA 02111-1307, USA. */
-
-#include "gmp.h"
-#include "gmp-impl.h"
-#include "mpfr.h"
-#include "mpfr-impl.h"
-
-/* returns ceil(log(d)/log(2)) */
-long
-_mpfr_ceil_log2 (double d)
-{
- long exp;
- union ieee_double_extract x;
-
- x.d = d;
- exp = x.s.exp - 1023;
- x.s.exp = 1023; /* value for 1 <= d < 2 */
- if (x.d != 1.0) /* d: not a power of two? */
- exp++;
- return exp;
-}