# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1383545945 18000
# Node ID 573f865aa8c8caf66f8b8032f86cca23f4ceaa8d
# Parent  7533f4482006d402dec30cae9c881a1944ea8f9e
use gnulib frexp module

* bootstrap.conf (gnulib_modules): Include frexp and frexpf.
* lo-mappers.cc (xlog2): Use gnulib::frexp.
* oct-inttypes.h (dblesplit): Use gnulib::frexp.
* data.cc (Feps): Use gnulib::frexp.

diff --git a/bootstrap.conf b/bootstrap.conf
--- a/bootstrap.conf
+++ b/bootstrap.conf
@@ -38,6 +38,8 @@
   fnmatch
   fopen
   fpucw
+  frexp
+  frexpf
   fseek
   ftell
   getcwd
diff --git a/libinterp/corefcn/data.cc b/libinterp/corefcn/data.cc
--- a/libinterp/corefcn/data.cc
+++ b/libinterp/corefcn/data.cc
@@ -4173,7 +4173,7 @@
                   else
                     {
                       int expon;
-                      frexpf (val, &expon);
+                      gnulib::frexpf (val, &expon);
                       epsval(i) = std::pow (static_cast <float> (2.0),
                                             static_cast <float> (expon - 24));
                     }
@@ -4199,7 +4199,7 @@
                   else
                     {
                       int expon;
-                      frexp (val, &expon);
+                      gnulib::frexp (val, &expon);
                       epsval(i) = std::pow (static_cast <double> (2.0),
                                             static_cast <double> (expon - 53));
                     }
diff --git a/liboctave/numeric/lo-mappers.cc b/liboctave/numeric/lo-mappers.cc
--- a/liboctave/numeric/lo-mappers.cc
+++ b/liboctave/numeric/lo-mappers.cc
@@ -136,7 +136,7 @@
 double
 xlog2 (double x, int& exp)
 {
-  return frexp (x, &exp);
+  return gnulib::frexp (x, &exp);
 }
 
 Complex
@@ -365,7 +365,7 @@
 float
 xlog2 (float x, int& exp)
 {
-  return frexpf (x, &exp);
+  return gnulib::frexpf (x, &exp);
 }
 
 FloatComplex
diff --git a/liboctave/util/oct-inttypes.cc b/liboctave/util/oct-inttypes.cc
--- a/liboctave/util/oct-inttypes.cc
+++ b/liboctave/util/oct-inttypes.cc
@@ -380,7 +380,7 @@
 dblesplit (double x, bool& sign, uint64_t& mtis, int& exp)
 {
   sign = x < 0; x = fabs (x);
-  x = frexp (x, &exp);
+  x = gnulib::frexp (x, &exp);
   exp -= 52;
   mtis = static_cast<uint64_t> (ldexp (x, 52));
 }