float128.hpp 37 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918
  1. ///////////////////////////////////////////////////////////////
  2. // Copyright 2013 John Maddock. Distributed under the Boost
  3. // Software License, Version 1.0. (See accompanying file
  4. // LICENSE_1_0.txt or copy at https://www.boost.org/LICENSE_1_0.txt
  5. #ifndef BOOST_MP_FLOAT128_HPP
  6. #define BOOST_MP_FLOAT128_HPP
  7. // https://gcc.gnu.org/onlinedocs/gcc/Floating-Types.html
  8. #if !defined(__amd64__) && !defined(__amd64) && !defined(__x86_64__) && !defined(__x86_64) && !defined(_M_X64) && !defined(_M_AMD64) && \
  9. !defined(i386) && !defined(__i386) && !defined(__i386__) && !defined(_M_IX86) && !defined(__X86__) && !defined(_X86_) && !defined(__I86__) && \
  10. !defined(__ia64__) && !defined(_IA64) && !defined(__IA64__) && !defined(__ia64) && !defined(_M_IA64) && !defined(__itanium__) && \
  11. !defined(__hppa__) && !defined(__HPPA__) && !defined(__hppa) && \
  12. !defined(__powerpc) && !defined(_M_PPC) && !defined(_ARCH_PPC) && !defined(_ARCH_PPC64) && !defined(__PPCBROADWAY__)
  13. #error libquadmath only works on on i386, x86_64, IA-64, and hppa HP-UX, as well as on PowerPC GNU/Linux targets that enable the vector scalar (VSX) instruction set.
  14. #endif
  15. #include <memory>
  16. #include <climits>
  17. #include <cfloat>
  18. #include <tuple>
  19. #include <cstring>
  20. #include <boost/multiprecision/detail/standalone_config.hpp>
  21. #include <boost/multiprecision/number.hpp>
  22. #include <boost/multiprecision/detail/hash.hpp>
  23. #include <boost/multiprecision/detail/no_exceptions_support.hpp>
  24. #if defined(BOOST_INTEL) && !defined(BOOST_MP_USE_FLOAT128) && !defined(BOOST_MP_USE_QUAD)
  25. #if defined(BOOST_INTEL_CXX_VERSION) && (BOOST_INTEL_CXX_VERSION >= 1310) && defined(__GNUC__)
  26. #if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 6))
  27. #define BOOST_MP_USE_FLOAT128
  28. #endif
  29. #endif
  30. #ifndef BOOST_MP_USE_FLOAT128
  31. #define BOOST_MP_USE_QUAD
  32. #endif
  33. #endif
  34. #if defined(__GNUC__) && !defined(BOOST_MP_USE_FLOAT128) && !defined(BOOST_MP_USE_QUAD)
  35. #define BOOST_MP_USE_FLOAT128
  36. #endif
  37. #if !defined(BOOST_MP_USE_FLOAT128) && !defined(BOOST_MP_USE_QUAD)
  38. #error "Sorry compiler is neither GCC, not Intel, don't know how to configure this header."
  39. #endif
  40. #if defined(BOOST_MP_USE_FLOAT128) && defined(BOOST_MP_USE_QUAD)
  41. #error "Oh dear, both BOOST_MP_USE_FLOAT128 and BOOST_MP_USE_QUAD are defined, which one should I be using?"
  42. #endif
  43. #if defined(BOOST_MP_USE_FLOAT128)
  44. extern "C" {
  45. #include <quadmath.h>
  46. }
  47. using float128_type = __float128;
  48. #elif defined(BOOST_MP_USE_QUAD)
  49. #include <boost/multiprecision/detail/float_string_cvt.hpp>
  50. using float128_type = _Quad;
  51. extern "C" {
  52. _Quad __ldexpq(_Quad, int);
  53. _Quad __frexpq(_Quad, int*);
  54. _Quad __fabsq(_Quad);
  55. _Quad __floorq(_Quad);
  56. _Quad __ceilq(_Quad);
  57. _Quad __sqrtq(_Quad);
  58. _Quad __truncq(_Quad);
  59. _Quad __expq(_Quad);
  60. _Quad __powq(_Quad, _Quad);
  61. _Quad __logq(_Quad);
  62. _Quad __log10q(_Quad);
  63. _Quad __sinq(_Quad);
  64. _Quad __cosq(_Quad);
  65. _Quad __tanq(_Quad);
  66. _Quad __asinq(_Quad);
  67. _Quad __acosq(_Quad);
  68. _Quad __atanq(_Quad);
  69. _Quad __sinhq(_Quad);
  70. _Quad __coshq(_Quad);
  71. _Quad __tanhq(_Quad);
  72. _Quad __fmodq(_Quad, _Quad);
  73. _Quad __atan2q(_Quad, _Quad);
  74. #define ldexpq __ldexpq
  75. #define frexpq __frexpq
  76. #define fabsq __fabsq
  77. #define floorq __floorq
  78. #define ceilq __ceilq
  79. #define sqrtq __sqrtq
  80. #define truncq __truncq
  81. #define expq __expq
  82. #define powq __powq
  83. #define logq __logq
  84. #define log10q __log10q
  85. #define sinq __sinq
  86. #define cosq __cosq
  87. #define tanq __tanq
  88. #define asinq __asinq
  89. #define acosq __acosq
  90. #define atanq __atanq
  91. #define sinhq __sinhq
  92. #define coshq __coshq
  93. #define tanhq __tanhq
  94. #define fmodq __fmodq
  95. #define atan2q __atan2q
  96. }
  97. inline _Quad isnanq(_Quad v)
  98. {
  99. return v != v;
  100. }
  101. inline _Quad isinfq(_Quad v)
  102. {
  103. return __fabsq(v) > 1.18973149535723176508575932662800702e4932Q;
  104. }
  105. #endif
  106. namespace boost {
  107. namespace multiprecision {
  108. #ifndef BOOST_MP_BITS_OF_FLOAT128_DEFINED
  109. namespace detail {
  110. template <>
  111. struct bits_of<float128_type>
  112. {
  113. static constexpr const unsigned value = 113;
  114. };
  115. }
  116. #endif
  117. template <>
  118. struct number_category<backends::float128_backend> : public std::integral_constant<int, number_kind_floating_point>
  119. {};
  120. #if defined(BOOST_MP_USE_QUAD)
  121. template <>
  122. struct number_category<float128_type> : public std::integral_constant<int, number_kind_floating_point>
  123. {};
  124. #endif
  125. namespace quad_constants {
  126. constexpr float128_type quad_min = static_cast<float128_type>(1) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) / 1073741824;
  127. constexpr float128_type quad_denorm_min = static_cast<float128_type>(1) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) * static_cast<float128_type>(DBL_MIN) / 5.5751862996326557854e+42;
  128. constexpr double dbl_mult = 8.9884656743115795386e+307; // This has one bit set only.
  129. constexpr float128_type quad_max = (static_cast<float128_type>(1) - 9.62964972193617926527988971292463659e-35) // This now has all bits sets to 1
  130. * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * static_cast<float128_type>(dbl_mult) * 65536;
  131. } // namespace quad_constants
  132. #define BOOST_MP_QUAD_MIN boost::multiprecision::quad_constants::quad_min
  133. #define BOOST_MP_QUAD_DENORM_MIN boost::multiprecision::quad_constants::quad_denorm_min
  134. #define BOOST_MP_QUAD_MAX boost::multiprecision::quad_constants::quad_max
  135. namespace backends {
  136. struct float128_backend
  137. {
  138. using signed_types = std::tuple<signed char, short, int, long, long long>;
  139. using unsigned_types = std::tuple<unsigned char, unsigned short, unsigned int, unsigned long, unsigned long long>;
  140. using float_types = std::tuple<float, double, long double>;
  141. using exponent_type = int ;
  142. private:
  143. float128_type m_value;
  144. public:
  145. constexpr float128_backend() noexcept : m_value(0) {}
  146. constexpr float128_backend(const float128_backend& o) noexcept = default;
  147. BOOST_MP_CXX14_CONSTEXPR float128_backend& operator=(const float128_backend& o) noexcept = default;
  148. template <class T>
  149. constexpr float128_backend(const T& i, const typename std::enable_if<std::is_convertible<T, float128_type>::value>::type* = nullptr) noexcept(noexcept(std::declval<float128_type&>() = std::declval<const T&>()))
  150. : m_value(i) {}
  151. template <class T>
  152. BOOST_MP_CXX14_CONSTEXPR typename std::enable_if<boost::multiprecision::detail::is_arithmetic<T>::value || std::is_convertible<T, float128_type>::value, float128_backend&>::type operator=(const T& i) noexcept(noexcept(std::declval<float128_type&>() = std::declval<const T&>()))
  153. {
  154. m_value = i;
  155. return *this;
  156. }
  157. BOOST_MP_CXX14_CONSTEXPR float128_backend(long double const& f) : m_value(f)
  158. {
  159. if (f > LDBL_MAX)
  160. m_value = static_cast<float128_type>(HUGE_VAL);
  161. else if (-f > LDBL_MAX)
  162. m_value = -static_cast<float128_type>(HUGE_VAL);
  163. }
  164. BOOST_MP_CXX14_CONSTEXPR float128_backend& operator=(long double const& f)
  165. {
  166. if (f > LDBL_MAX)
  167. m_value = static_cast<float128_type>(HUGE_VAL);
  168. else if (-f > LDBL_MAX)
  169. m_value = -static_cast<float128_type>(HUGE_VAL);
  170. else
  171. m_value = f;
  172. return *this;
  173. }
  174. float128_backend& operator=(const char* s)
  175. {
  176. #ifndef BOOST_MP_USE_QUAD
  177. char* p_end;
  178. m_value = strtoflt128(s, &p_end);
  179. if (p_end - s != (std::ptrdiff_t)std::strlen(s))
  180. {
  181. BOOST_MP_THROW_EXCEPTION(std::runtime_error("Unable to interpret input string as a floating point value"));
  182. }
  183. #else
  184. boost::multiprecision::detail::convert_from_string(*this, s);
  185. #endif
  186. return *this;
  187. }
  188. BOOST_MP_CXX14_CONSTEXPR void swap(float128_backend& o) noexcept
  189. {
  190. // We don't call std::swap here because it's no constexpr (yet):
  191. float128_type t(o.value());
  192. o.value() = m_value;
  193. m_value = t;
  194. }
  195. std::string str(std::streamsize digits, std::ios_base::fmtflags f) const
  196. {
  197. #ifndef BOOST_MP_USE_QUAD
  198. char buf[128];
  199. std::string format = "%";
  200. if (f & std::ios_base::showpos)
  201. format += "+";
  202. if (f & std::ios_base::showpoint)
  203. format += "#";
  204. format += ".*";
  205. if ((digits == 0) && !(f & std::ios_base::fixed))
  206. digits = 36;
  207. format += "Q";
  208. if (f & std::ios_base::scientific)
  209. format += "e";
  210. else if (f & std::ios_base::fixed)
  211. format += "f";
  212. else
  213. format += "g";
  214. int v;
  215. if ((f & std::ios_base::scientific) && (f & std::ios_base::fixed))
  216. {
  217. v = quadmath_snprintf(buf, sizeof buf, "%Qa", m_value);
  218. }
  219. else
  220. {
  221. v = quadmath_snprintf(buf, sizeof buf, format.c_str(), digits, m_value);
  222. }
  223. if ((v < 0) || (v >= 127))
  224. {
  225. int v_max = v;
  226. std::unique_ptr<char[]> buf2;
  227. buf2.reset(new char[v + 3]);
  228. v = quadmath_snprintf(&buf2[0], static_cast<std::size_t>(v_max + 3), format.c_str(), digits, m_value);
  229. if (v >= v_max + 3)
  230. {
  231. BOOST_MP_THROW_EXCEPTION(std::runtime_error("Formatting of float128_type failed."));
  232. }
  233. return &buf2[0];
  234. }
  235. return buf;
  236. #else
  237. return boost::multiprecision::detail::convert_to_string(*this, digits ? digits : 36, f);
  238. #endif
  239. }
  240. BOOST_MP_CXX14_CONSTEXPR void negate() noexcept
  241. {
  242. m_value = -m_value;
  243. }
  244. BOOST_MP_CXX14_CONSTEXPR int compare(const float128_backend& o) const
  245. {
  246. return m_value == o.m_value ? 0 : m_value < o.m_value ? -1 : 1;
  247. }
  248. template <class T>
  249. BOOST_MP_CXX14_CONSTEXPR int compare(const T& i) const
  250. {
  251. return m_value == i ? 0 : m_value < i ? -1 : 1;
  252. }
  253. BOOST_MP_CXX14_CONSTEXPR float128_type& value()
  254. {
  255. return m_value;
  256. }
  257. BOOST_MP_CXX14_CONSTEXPR const float128_type& value() const
  258. {
  259. return m_value;
  260. }
  261. };
  262. inline BOOST_MP_CXX14_CONSTEXPR void eval_add(float128_backend& result, const float128_backend& a)
  263. {
  264. result.value() += a.value();
  265. }
  266. template <class A>
  267. inline BOOST_MP_CXX14_CONSTEXPR void eval_add(float128_backend& result, const A& a)
  268. {
  269. result.value() += a;
  270. }
  271. inline BOOST_MP_CXX14_CONSTEXPR void eval_subtract(float128_backend& result, const float128_backend& a)
  272. {
  273. result.value() -= a.value();
  274. }
  275. template <class A>
  276. inline BOOST_MP_CXX14_CONSTEXPR void eval_subtract(float128_backend& result, const A& a)
  277. {
  278. result.value() -= a;
  279. }
  280. inline BOOST_MP_CXX14_CONSTEXPR void eval_multiply(float128_backend& result, const float128_backend& a)
  281. {
  282. result.value() *= a.value();
  283. }
  284. template <class A>
  285. inline BOOST_MP_CXX14_CONSTEXPR void eval_multiply(float128_backend& result, const A& a)
  286. {
  287. result.value() *= a;
  288. }
  289. inline BOOST_MP_CXX14_CONSTEXPR void eval_divide(float128_backend& result, const float128_backend& a)
  290. {
  291. result.value() /= a.value();
  292. }
  293. template <class A>
  294. inline BOOST_MP_CXX14_CONSTEXPR void eval_divide(float128_backend& result, const A& a)
  295. {
  296. result.value() /= a;
  297. }
  298. inline BOOST_MP_CXX14_CONSTEXPR void eval_add(float128_backend& result, const float128_backend& a, const float128_backend& b)
  299. {
  300. result.value() = a.value() + b.value();
  301. }
  302. template <class A>
  303. inline BOOST_MP_CXX14_CONSTEXPR void eval_add(float128_backend& result, const float128_backend& a, const A& b)
  304. {
  305. result.value() = a.value() + b;
  306. }
  307. inline BOOST_MP_CXX14_CONSTEXPR void eval_subtract(float128_backend& result, const float128_backend& a, const float128_backend& b)
  308. {
  309. result.value() = a.value() - b.value();
  310. }
  311. template <class A>
  312. inline BOOST_MP_CXX14_CONSTEXPR void eval_subtract(float128_backend& result, const float128_backend& a, const A& b)
  313. {
  314. result.value() = a.value() - b;
  315. }
  316. template <class A>
  317. inline BOOST_MP_CXX14_CONSTEXPR void eval_subtract(float128_backend& result, const A& a, const float128_backend& b)
  318. {
  319. result.value() = a - b.value();
  320. }
  321. inline BOOST_MP_CXX14_CONSTEXPR void eval_multiply(float128_backend& result, const float128_backend& a, const float128_backend& b)
  322. {
  323. result.value() = a.value() * b.value();
  324. }
  325. template <class A>
  326. inline BOOST_MP_CXX14_CONSTEXPR void eval_multiply(float128_backend& result, const float128_backend& a, const A& b)
  327. {
  328. result.value() = a.value() * b;
  329. }
  330. inline BOOST_MP_CXX14_CONSTEXPR void eval_divide(float128_backend& result, const float128_backend& a, const float128_backend& b)
  331. {
  332. result.value() = a.value() / b.value();
  333. }
  334. template <class R>
  335. inline BOOST_MP_CXX14_CONSTEXPR void eval_convert_to(R* result, const float128_backend& val)
  336. {
  337. *result = static_cast<R>(val.value());
  338. }
  339. inline void eval_frexp(float128_backend& result, const float128_backend& arg, int* exp)
  340. {
  341. result.value() = frexpq(arg.value(), exp);
  342. }
  343. inline void eval_ldexp(float128_backend& result, const float128_backend& arg, int exp)
  344. {
  345. result.value() = ldexpq(arg.value(), exp);
  346. }
  347. inline void eval_floor(float128_backend& result, const float128_backend& arg)
  348. {
  349. result.value() = floorq(arg.value());
  350. }
  351. inline void eval_ceil(float128_backend& result, const float128_backend& arg)
  352. {
  353. result.value() = ceilq(arg.value());
  354. }
  355. inline void eval_sqrt(float128_backend& result, const float128_backend& arg)
  356. {
  357. result.value() = sqrtq(arg.value());
  358. }
  359. inline void eval_rsqrt(float128_backend& result, const float128_backend& arg)
  360. {
  361. #if (LDBL_MANT_DIG > 100)
  362. // GCC can't mix and match __float128 and quad precision long double
  363. // error: __float128 and long double cannot be used in the same expression
  364. result.value() = 1 / sqrtq(arg.value());
  365. #else
  366. if (arg.value() < std::numeric_limits<long double>::denorm_min() || arg.value() > (std::numeric_limits<long double>::max)()) {
  367. result.value() = 1/sqrtq(arg.value());
  368. return;
  369. }
  370. using std::sqrt;
  371. float128_backend xk = 1/sqrt(static_cast<long double>(arg.value()));
  372. // Newton iteration for f(x) = arg.value() - 1/x^2.
  373. BOOST_IF_CONSTEXPR (sizeof(long double) == sizeof(double)) {
  374. // If the long double is the same as a double, then we need two Newton iterations:
  375. xk.value() = xk.value() + xk.value()*(1-arg.value()*xk.value()*xk.value())/2;
  376. result.value() = xk.value() + xk.value()*(1-arg.value()*xk.value()*xk.value())/2;
  377. }
  378. else
  379. {
  380. // 80 bit long double only needs a single iteration to produce ~2ULPs.
  381. result.value() = xk.value() + xk.value() * (1 - arg.value() * xk.value() * xk.value()) / 2;
  382. }
  383. #endif
  384. }
  385. #ifndef BOOST_MP_NO_CONSTEXPR_DETECTION
  386. inline BOOST_MP_CXX14_CONSTEXPR
  387. #else
  388. inline
  389. #endif
  390. int eval_fpclassify(const float128_backend& arg)
  391. {
  392. float128_type v = arg.value();
  393. #ifndef BOOST_MP_NO_CONSTEXPR_DETECTION
  394. if (BOOST_MP_IS_CONST_EVALUATED(v))
  395. {
  396. if (v != v)
  397. return FP_NAN;
  398. if (v == 0)
  399. return FP_ZERO;
  400. float128_type t(v);
  401. if (t < 0)
  402. t = -t;
  403. if (t > BOOST_MP_QUAD_MAX)
  404. return FP_INFINITE;
  405. if (t < BOOST_MP_QUAD_MIN)
  406. return FP_SUBNORMAL;
  407. return FP_NORMAL;
  408. }
  409. else
  410. #endif
  411. {
  412. if (isnanq(v))
  413. return FP_NAN;
  414. else if (isinfq(v))
  415. return FP_INFINITE;
  416. else if (v == 0)
  417. return FP_ZERO;
  418. float128_backend t(arg);
  419. if (t.value() < 0)
  420. t.negate();
  421. if (t.value() < BOOST_MP_QUAD_MIN)
  422. return FP_SUBNORMAL;
  423. return FP_NORMAL;
  424. }
  425. }
  426. #if defined(BOOST_GCC) && (__GNUC__ == 9)
  427. // See https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91705
  428. inline BOOST_MP_CXX14_CONSTEXPR void eval_increment(float128_backend& arg)
  429. {
  430. arg.value() = 1 + arg.value();
  431. }
  432. inline BOOST_MP_CXX14_CONSTEXPR void eval_decrement(float128_backend& arg)
  433. {
  434. arg.value() = arg.value() - 1;
  435. }
  436. #else
  437. inline BOOST_MP_CXX14_CONSTEXPR void eval_increment(float128_backend& arg)
  438. {
  439. ++arg.value();
  440. }
  441. inline BOOST_MP_CXX14_CONSTEXPR void eval_decrement(float128_backend& arg)
  442. {
  443. --arg.value();
  444. }
  445. #endif
  446. /*********************************************************************
  447. *
  448. * abs/fabs:
  449. *
  450. *********************************************************************/
  451. #ifndef BOOST_MP_NO_CONSTEXPR_DETECTION
  452. inline BOOST_MP_CXX14_CONSTEXPR void eval_abs(float128_backend& result, const float128_backend& arg)
  453. #else
  454. inline void eval_abs(float128_backend& result, const float128_backend& arg)
  455. #endif
  456. {
  457. #ifndef BOOST_MP_NO_CONSTEXPR_DETECTION
  458. float128_type v(arg.value());
  459. if (BOOST_MP_IS_CONST_EVALUATED(v))
  460. {
  461. result.value() = v < 0 ? -v : v;
  462. }
  463. else
  464. #endif
  465. {
  466. result.value() = fabsq(arg.value());
  467. }
  468. }
  469. #ifndef BOOST_MP_NO_CONSTEXPR_DETECTION
  470. inline BOOST_MP_CXX14_CONSTEXPR void eval_fabs(float128_backend& result, const float128_backend& arg)
  471. #else
  472. inline void eval_fabs(float128_backend& result, const float128_backend& arg)
  473. #endif
  474. {
  475. #ifndef BOOST_MP_NO_CONSTEXPR_DETECTION
  476. float128_type v(arg.value());
  477. if (BOOST_MP_IS_CONST_EVALUATED(v))
  478. {
  479. result.value() = v < 0 ? -v : v;
  480. }
  481. else
  482. #endif
  483. {
  484. result.value() = fabsq(arg.value());
  485. }
  486. }
  487. /*********************************************************************
  488. *
  489. * Floating point functions:
  490. *
  491. *********************************************************************/
  492. inline void eval_trunc(float128_backend& result, const float128_backend& arg)
  493. {
  494. result.value() = truncq(arg.value());
  495. }
  496. /*
  497. //
  498. // This doesn't actually work... rely on our own default version instead.
  499. //
  500. inline void eval_round(float128_backend& result, const float128_backend& arg)
  501. {
  502. if(isnanq(arg.value()) || isinf(arg.value()))
  503. {
  504. result = boost::math::policies::raise_rounding_error(
  505. "boost::multiprecision::trunc<%1%>(%1%)", nullptr,
  506. number<float128_backend, et_off>(arg),
  507. number<float128_backend, et_off>(arg),
  508. boost::math::policies::policy<>()).backend();
  509. return;
  510. }
  511. result.value() = roundq(arg.value());
  512. }
  513. */
  514. inline void eval_exp(float128_backend& result, const float128_backend& arg)
  515. {
  516. result.value() = expq(arg.value());
  517. }
  518. inline void eval_log(float128_backend& result, const float128_backend& arg)
  519. {
  520. result.value() = logq(arg.value());
  521. }
  522. inline void eval_log10(float128_backend& result, const float128_backend& arg)
  523. {
  524. result.value() = log10q(arg.value());
  525. }
  526. inline void eval_sin(float128_backend& result, const float128_backend& arg)
  527. {
  528. result.value() = sinq(arg.value());
  529. }
  530. inline void eval_cos(float128_backend& result, const float128_backend& arg)
  531. {
  532. result.value() = cosq(arg.value());
  533. }
  534. inline void eval_tan(float128_backend& result, const float128_backend& arg)
  535. {
  536. result.value() = tanq(arg.value());
  537. }
  538. inline void eval_asin(float128_backend& result, const float128_backend& arg)
  539. {
  540. result.value() = asinq(arg.value());
  541. }
  542. inline void eval_acos(float128_backend& result, const float128_backend& arg)
  543. {
  544. result.value() = acosq(arg.value());
  545. }
  546. inline void eval_atan(float128_backend& result, const float128_backend& arg)
  547. {
  548. result.value() = atanq(arg.value());
  549. }
  550. inline void eval_sinh(float128_backend& result, const float128_backend& arg)
  551. {
  552. result.value() = sinhq(arg.value());
  553. }
  554. inline void eval_cosh(float128_backend& result, const float128_backend& arg)
  555. {
  556. result.value() = coshq(arg.value());
  557. }
  558. inline void eval_tanh(float128_backend& result, const float128_backend& arg)
  559. {
  560. result.value() = tanhq(arg.value());
  561. }
  562. inline void eval_fmod(float128_backend& result, const float128_backend& a, const float128_backend& b)
  563. {
  564. result.value() = fmodq(a.value(), b.value());
  565. }
  566. inline void eval_pow(float128_backend& result, const float128_backend& a, const float128_backend& b)
  567. {
  568. result.value() = powq(a.value(), b.value());
  569. }
  570. inline void eval_atan2(float128_backend& result, const float128_backend& a, const float128_backend& b)
  571. {
  572. result.value() = atan2q(a.value(), b.value());
  573. }
  574. #ifndef BOOST_MP_USE_QUAD
  575. inline void eval_multiply_add(float128_backend& result, const float128_backend& a, const float128_backend& b, const float128_backend& c)
  576. {
  577. result.value() = fmaq(a.value(), b.value(), c.value());
  578. }
  579. inline int eval_signbit BOOST_PREVENT_MACRO_SUBSTITUTION(const float128_backend& arg)
  580. {
  581. return ::signbitq(arg.value());
  582. }
  583. #endif
  584. inline std::size_t hash_value(const float128_backend& val)
  585. {
  586. return boost::multiprecision::detail::hash_value(static_cast<double>(val.value()));
  587. }
  588. } // namespace backends
  589. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  590. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> asinh BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  591. {
  592. return asinhq(arg.backend().value());
  593. }
  594. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  595. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> acosh BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  596. {
  597. return acoshq(arg.backend().value());
  598. }
  599. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  600. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> atanh BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  601. {
  602. return atanhq(arg.backend().value());
  603. }
  604. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  605. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  606. {
  607. return cbrtq(arg.backend().value());
  608. }
  609. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  610. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> erf BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  611. {
  612. return erfq(arg.backend().value());
  613. }
  614. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  615. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> erfc BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  616. {
  617. return erfcq(arg.backend().value());
  618. }
  619. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  620. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  621. {
  622. return expm1q(arg.backend().value());
  623. }
  624. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  625. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  626. {
  627. return lgammaq(arg.backend().value());
  628. }
  629. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  630. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  631. {
  632. if(eval_signbit(arg.backend()) != 0)
  633. {
  634. const bool result_is_neg = ((static_cast<unsigned long long>(floorq(-arg.backend().value())) % 2U) == 0U);
  635. const boost::multiprecision::number<float128_backend, ExpressionTemplates> result_of_tgammaq = fabsq(tgammaq(arg.backend().value()));
  636. return ((result_is_neg == false) ? result_of_tgammaq : -result_of_tgammaq);
  637. }
  638. else
  639. {
  640. return tgammaq(arg.backend().value());
  641. }
  642. }
  643. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  644. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> log1p BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  645. {
  646. return log1pq(arg.backend().value());
  647. }
  648. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  649. inline boost::multiprecision::number<float128_backend, ExpressionTemplates> rsqrt BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<float128_backend, ExpressionTemplates>& arg)
  650. {
  651. boost::multiprecision::number<float128_backend, ExpressionTemplates> res;
  652. eval_rsqrt(res.backend(), arg.backend());
  653. return res;
  654. }
  655. #ifndef BOOST_MP_USE_QUAD
  656. template <multiprecision::expression_template_option ExpressionTemplates>
  657. inline boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> copysign BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates>& a, const boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates>& b)
  658. {
  659. return ::copysignq(a.backend().value(), b.backend().value());
  660. }
  661. namespace backends {
  662. inline void eval_remainder(float128_backend& result, const float128_backend& a, const float128_backend& b)
  663. {
  664. result.value() = remainderq(a.value(), b.value());
  665. }
  666. inline void eval_remainder(float128_backend& result, const float128_backend& a, const float128_backend& b, int* pi)
  667. {
  668. result.value() = remquoq(a.value(), b.value(), pi);
  669. }
  670. } // namespace backends
  671. #endif
  672. } // namespace multiprecision
  673. namespace math {
  674. using boost::multiprecision::copysign;
  675. using boost::multiprecision::signbit;
  676. } // namespace math
  677. } // namespace boost
  678. #ifndef BOOST_MP_STANDALONE
  679. namespace boost {
  680. namespace archive {
  681. class binary_oarchive;
  682. class binary_iarchive;
  683. } // namespace archive
  684. namespace serialization {
  685. namespace float128_detail {
  686. template <class Archive>
  687. void do_serialize(Archive& ar, boost::multiprecision::backends::float128_backend& val, const std::integral_constant<bool, false>&, const std::integral_constant<bool, false>&)
  688. {
  689. // saving
  690. // non-binary
  691. std::string s(val.str(0, std::ios_base::scientific));
  692. ar& boost::make_nvp("value", s);
  693. }
  694. template <class Archive>
  695. void do_serialize(Archive& ar, boost::multiprecision::backends::float128_backend& val, const std::integral_constant<bool, true>&, const std::integral_constant<bool, false>&)
  696. {
  697. // loading
  698. // non-binary
  699. std::string s;
  700. ar& boost::make_nvp("value", s);
  701. val = s.c_str();
  702. }
  703. template <class Archive>
  704. void do_serialize(Archive& ar, boost::multiprecision::backends::float128_backend& val, const std::integral_constant<bool, false>&, const std::integral_constant<bool, true>&)
  705. {
  706. // saving
  707. // binary
  708. ar.save_binary(&val, sizeof(val));
  709. }
  710. template <class Archive>
  711. void do_serialize(Archive& ar, boost::multiprecision::backends::float128_backend& val, const std::integral_constant<bool, true>&, const std::integral_constant<bool, true>&)
  712. {
  713. // loading
  714. // binary
  715. ar.load_binary(&val, sizeof(val));
  716. }
  717. } // namespace float128_detail
  718. template <class Archive>
  719. void serialize(Archive& ar, boost::multiprecision::backends::float128_backend& val, unsigned int /*version*/)
  720. {
  721. using load_tag = typename Archive::is_loading ;
  722. using loading = std::integral_constant<bool, load_tag::value> ;
  723. using binary_tag = typename std::integral_constant<bool, std::is_same<Archive, boost::archive::binary_oarchive>::value || std::is_same<Archive, boost::archive::binary_iarchive>::value>;
  724. float128_detail::do_serialize(ar, val, loading(), binary_tag());
  725. }
  726. } // namespace serialization
  727. } // namespace boost
  728. #endif // BOOST_MP_STANDALONE
  729. namespace std {
  730. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  731. class numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >
  732. {
  733. using number_type = boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates>;
  734. public:
  735. static constexpr bool is_specialized = true;
  736. static BOOST_MP_CXX14_CONSTEXPR number_type(min)() noexcept { return BOOST_MP_QUAD_MIN; }
  737. static BOOST_MP_CXX14_CONSTEXPR number_type(max)() noexcept { return BOOST_MP_QUAD_MAX; }
  738. static BOOST_MP_CXX14_CONSTEXPR number_type lowest() noexcept { return -(max)(); }
  739. static constexpr int digits = 113;
  740. static constexpr int digits10 = 33;
  741. static constexpr int max_digits10 = 36;
  742. static constexpr bool is_signed = true;
  743. static constexpr bool is_integer = false;
  744. static constexpr bool is_exact = false;
  745. static constexpr int radix = 2;
  746. static BOOST_MP_CXX14_CONSTEXPR number_type epsilon() { return 1.92592994438723585305597794258492732e-34; /* this double value has only one bit set and so is exact */ }
  747. static BOOST_MP_CXX14_CONSTEXPR number_type round_error() { return 0.5; }
  748. static constexpr int min_exponent = -16381;
  749. static constexpr int min_exponent10 = min_exponent * 301L / 1000L;
  750. static constexpr int max_exponent = 16384;
  751. static constexpr int max_exponent10 = max_exponent * 301L / 1000L;
  752. static constexpr bool has_infinity = true;
  753. static constexpr bool has_quiet_NaN = true;
  754. static constexpr bool has_signaling_NaN = false;
  755. #ifdef _MSC_VER
  756. #pragma warning(push)
  757. #pragma warning(disable : 4996)
  758. #endif
  759. static constexpr float_denorm_style has_denorm = denorm_present;
  760. #ifdef _MSC_VER
  761. #pragma warning(pop)
  762. #endif
  763. static constexpr bool has_denorm_loss = true;
  764. static BOOST_MP_CXX14_CONSTEXPR number_type infinity() { return HUGE_VAL; /* conversion from double infinity OK */ }
  765. static BOOST_MP_CXX14_CONSTEXPR number_type quiet_NaN() { return number_type(NAN); }
  766. static BOOST_MP_CXX14_CONSTEXPR number_type signaling_NaN() { return 0; }
  767. static BOOST_MP_CXX14_CONSTEXPR number_type denorm_min() { return BOOST_MP_QUAD_DENORM_MIN; }
  768. static constexpr bool is_iec559 = true;
  769. static constexpr bool is_bounded = true;
  770. static constexpr bool is_modulo = false;
  771. static constexpr bool traps = false;
  772. static constexpr bool tinyness_before = false;
  773. static constexpr float_round_style round_style = round_to_nearest;
  774. };
  775. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  776. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_specialized;
  777. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  778. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::digits;
  779. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  780. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::digits10;
  781. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  782. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::max_digits10;
  783. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  784. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_signed;
  785. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  786. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_integer;
  787. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  788. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_exact;
  789. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  790. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::radix;
  791. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  792. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::min_exponent;
  793. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  794. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::max_exponent;
  795. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  796. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::min_exponent10;
  797. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  798. constexpr int numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::max_exponent10;
  799. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  800. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::has_infinity;
  801. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  802. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::has_quiet_NaN;
  803. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  804. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::has_signaling_NaN;
  805. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  806. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::has_denorm_loss;
  807. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  808. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_iec559;
  809. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  810. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_bounded;
  811. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  812. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::is_modulo;
  813. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  814. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::traps;
  815. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  816. constexpr bool numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::tinyness_before;
  817. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  818. constexpr float_round_style numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::round_style;
  819. #ifdef _MSC_VER
  820. #pragma warning(push)
  821. #pragma warning(disable : 4996)
  822. #endif
  823. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  824. constexpr float_denorm_style numeric_limits<boost::multiprecision::number<boost::multiprecision::backends::float128_backend, ExpressionTemplates> >::has_denorm;
  825. #ifdef _MSC_VER
  826. #pragma warning(pop)
  827. #endif
  828. } // namespace std
  829. #endif