58 lines
1.6 KiB
Plaintext
58 lines
1.6 KiB
Plaintext
/* Boost interval/detail/bcc_rounding_control.hpp file
|
|
*
|
|
* Copyright 2000 Jens Maurer
|
|
* Copyright 2002 Hervé Brönnimann, Guillaume Melquiond, Sylvain Pion
|
|
*
|
|
* Distributed under the Boost Software License, Version 1.0.
|
|
* (See accompanying file LICENSE_1_0.txt or
|
|
* copy at http://www.boost.org/LICENSE_1_0.txt)
|
|
*/
|
|
|
|
#ifndef BOOST_NUMERIC_INTERVAL_DETAIL_BCC_ROUNDING_CONTROL_HPP
|
|
#define BOOST_NUMERIC_INTERVAL_DETAIL_BCC_ROUNDING_CONTROL_HPP
|
|
|
|
#ifndef __BORLANDC__
|
|
# error This header is only intended for Borland C++.
|
|
#endif
|
|
|
|
#ifndef _M_IX86
|
|
# error This header only works on x86 CPUs.
|
|
#endif
|
|
|
|
#include <float.h> // Borland C++ rounding control
|
|
|
|
namespace boost {
|
|
namespace numeric {
|
|
namespace interval_lib {
|
|
namespace detail {
|
|
|
|
#ifndef BOOST_NUMERIC_INTERVAL_KEEP_EXCEPTIONS_FOR_BCC
|
|
extern "C" { unsigned int _RTLENTRY _fm_init(void); }
|
|
|
|
struct borland_workaround {
|
|
borland_workaround() { _fm_init(); }
|
|
};
|
|
|
|
static borland_workaround borland_workaround_exec;
|
|
#endif // BOOST_NUMERIC_INTERVAL_KEEP_EXCEPTIONS_FOR_BCC
|
|
|
|
__inline double rint(double)
|
|
{ __emit__(0xD9); __emit__(0xFC); /* asm FRNDINT */ }
|
|
|
|
struct x86_rounding
|
|
{
|
|
typedef unsigned int rounding_mode;
|
|
static void get_rounding_mode(rounding_mode& mode)
|
|
{ mode = _control87(0, 0); }
|
|
static void set_rounding_mode(const rounding_mode mode)
|
|
{ _control87(mode, 0xffff); }
|
|
static double to_int(const double& x) { return rint(x); }
|
|
};
|
|
|
|
} // namespace detail
|
|
} // namespace interval_lib
|
|
} // namespace numeric
|
|
} // namespace boost
|
|
|
|
#endif /* BOOST_NUMERIC_INTERVAL_DETAIL_BCC_ROUNDING_CONTROL_HPP */
|