You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and dots ('.'), can be up to 35 characters long. Letters must be lowercase.
57 lines
1.5 KiB
57 lines
1.5 KiB
/* 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 */
|
|
|