text: /* 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 */
  