Mercurial > octave
diff src/pr-output.cc @ 11450:5eb10763069f
substitute and use LAPACK_LIBS in mkoctfile script
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 06 Jan 2011 03:10:24 -0500 |
| parents | eec74ee00b32 |
| children | 8a40037533e2 |
line wrap: on
line diff
--- a/src/pr-output.cc Wed Jan 05 21:21:37 2011 -0800 +++ b/src/pr-output.cc Thu Jan 06 03:10:24 2011 -0500 @@ -241,7 +241,7 @@ if (x != 0) { double absval = (x < 0.0 ? -x : x); - int logabsval = static_cast<int> (floor (log10 (absval))); + int logabsval = static_cast<int> (gnulib::floor (log10 (absval))); /* Avoid using modulo function with negative arguments for portability. * See extended comment at calc_scale_exp */ if (logabsval < 0.0) @@ -255,8 +255,9 @@ static int num_digits (const double& x) { - return 1 + (print_eng ? engineering_exponent (x) - : static_cast<int> (floor (log10 (x)))); + return 1 + (print_eng + ? engineering_exponent (x) + : static_cast<int> (gnulib::floor (log10 (x)))); } class @@ -3217,7 +3218,7 @@ for (octave_idx_type i = 0; i < dims.numel (); i++) { int new_digits = static_cast<int> - (floor (log10 (double (abs (nda(i).value ()))) + 1.0)); + (gnulib::floor (log10 (double (abs (nda(i).value ()))) + 1.0)); if (new_digits > digits) digits = new_digits;