| <!DOCTYPE html><html lang="en"><head><meta charset="utf-8"><meta name="viewport" content="width=device-width, initial-scale=1.0"><meta name="generator" content="rustdoc"><meta name="description" content="Source of the Rust file `/home/runner/.cargo/registry/src/github.com-1ecc6299db9ec823/libm-0.2.1/src/math/powf.rs`."><meta name="keywords" content="rust, rustlang, rust-lang"><title>powf.rs - source</title><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../SourceSerif4-Regular.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../FiraSans-Regular.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../FiraSans-Medium.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../SourceCodePro-Regular.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../SourceSerif4-Bold.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../SourceCodePro-Semibold.ttf.woff2"><link rel="stylesheet" type="text/css" href="../../../normalize.css"><link rel="stylesheet" type="text/css" href="../../../rustdoc.css" id="mainThemeStyle"><link rel="stylesheet" type="text/css" href="../../../ayu.css" disabled><link rel="stylesheet" type="text/css" href="../../../dark.css" disabled><link rel="stylesheet" type="text/css" href="../../../light.css" id="themeStyle"><script id="default-settings" ></script><script src="../../../storage.js"></script><script src="../../../crates.js"></script><script defer src="../../../main.js"></script><script defer src="../../../source-script.js"></script><script defer src="../../../source-files.js"></script> |
| <noscript><link rel="stylesheet" href="../../../noscript.css"></noscript><link rel="alternate icon" type="image/png" href="../../../favicon-16x16.png"><link rel="alternate icon" type="image/png" href="../../../favicon-32x32.png"><link rel="icon" type="image/svg+xml" href="../../../favicon.svg"></head><body class="rustdoc source"><!--[if lte IE 11]><div class="warning">This old browser is unsupported and will most likely display funky things.</div><![endif]--><nav class="sidebar"><div class="sidebar-menu" role="button">☰</div><a class="sidebar-logo" href="../../../libm/index.html"><div class="logo-container"><img class="rust-logo" src="../../../rust-logo.png" alt="logo"></div> |
| </a></nav><main><div class="width-limiter"><div class="sub-container"><a class="sub-logo-container" href="../../../libm/index.html"><img class="rust-logo" src="../../../rust-logo.png" alt="logo"></a><nav class="sub"><div class="theme-picker"><button id="theme-picker" aria-label="Pick another theme!" aria-haspopup="menu" title="themes"><img width="18" height="18" alt="Pick another theme!" src="../../../brush.svg"></button><div id="theme-choices" role="menu"></div></div><form class="search-form"><div class="search-container"><div> |
| <input class="search-input" name="search" autocomplete="off" spellcheck="false" placeholder="Click or press ‘S’ to search, ‘?’ for more options…" type="search"></div><button type="button" id="help-button" title="help">?</button><a id="settings-menu" href="../../../settings.html" title="settings"><img width="18" height="18" alt="Change settings" src="../../../wheel.svg"></a></div></form></nav></div><section id="main-content" class="content"><div class="example-wrap"><pre class="line-numbers"><span id="1"> 1</span> |
| <span id="2"> 2</span> |
| <span id="3"> 3</span> |
| <span id="4"> 4</span> |
| <span id="5"> 5</span> |
| <span id="6"> 6</span> |
| <span id="7"> 7</span> |
| <span id="8"> 8</span> |
| <span id="9"> 9</span> |
| <span id="10"> 10</span> |
| <span id="11"> 11</span> |
| <span id="12"> 12</span> |
| <span id="13"> 13</span> |
| <span id="14"> 14</span> |
| <span id="15"> 15</span> |
| <span id="16"> 16</span> |
| <span id="17"> 17</span> |
| <span id="18"> 18</span> |
| <span id="19"> 19</span> |
| <span id="20"> 20</span> |
| <span id="21"> 21</span> |
| <span id="22"> 22</span> |
| <span id="23"> 23</span> |
| <span id="24"> 24</span> |
| <span id="25"> 25</span> |
| <span id="26"> 26</span> |
| <span id="27"> 27</span> |
| <span id="28"> 28</span> |
| <span id="29"> 29</span> |
| <span id="30"> 30</span> |
| <span id="31"> 31</span> |
| <span id="32"> 32</span> |
| <span id="33"> 33</span> |
| <span id="34"> 34</span> |
| <span id="35"> 35</span> |
| <span id="36"> 36</span> |
| <span id="37"> 37</span> |
| <span id="38"> 38</span> |
| <span id="39"> 39</span> |
| <span id="40"> 40</span> |
| <span id="41"> 41</span> |
| <span id="42"> 42</span> |
| <span id="43"> 43</span> |
| <span id="44"> 44</span> |
| <span id="45"> 45</span> |
| <span id="46"> 46</span> |
| <span id="47"> 47</span> |
| <span id="48"> 48</span> |
| <span id="49"> 49</span> |
| <span id="50"> 50</span> |
| <span id="51"> 51</span> |
| <span id="52"> 52</span> |
| <span id="53"> 53</span> |
| <span id="54"> 54</span> |
| <span id="55"> 55</span> |
| <span id="56"> 56</span> |
| <span id="57"> 57</span> |
| <span id="58"> 58</span> |
| <span id="59"> 59</span> |
| <span id="60"> 60</span> |
| <span id="61"> 61</span> |
| <span id="62"> 62</span> |
| <span id="63"> 63</span> |
| <span id="64"> 64</span> |
| <span id="65"> 65</span> |
| <span id="66"> 66</span> |
| <span id="67"> 67</span> |
| <span id="68"> 68</span> |
| <span id="69"> 69</span> |
| <span id="70"> 70</span> |
| <span id="71"> 71</span> |
| <span id="72"> 72</span> |
| <span id="73"> 73</span> |
| <span id="74"> 74</span> |
| <span id="75"> 75</span> |
| <span id="76"> 76</span> |
| <span id="77"> 77</span> |
| <span id="78"> 78</span> |
| <span id="79"> 79</span> |
| <span id="80"> 80</span> |
| <span id="81"> 81</span> |
| <span id="82"> 82</span> |
| <span id="83"> 83</span> |
| <span id="84"> 84</span> |
| <span id="85"> 85</span> |
| <span id="86"> 86</span> |
| <span id="87"> 87</span> |
| <span id="88"> 88</span> |
| <span id="89"> 89</span> |
| <span id="90"> 90</span> |
| <span id="91"> 91</span> |
| <span id="92"> 92</span> |
| <span id="93"> 93</span> |
| <span id="94"> 94</span> |
| <span id="95"> 95</span> |
| <span id="96"> 96</span> |
| <span id="97"> 97</span> |
| <span id="98"> 98</span> |
| <span id="99"> 99</span> |
| <span id="100">100</span> |
| <span id="101">101</span> |
| <span id="102">102</span> |
| <span id="103">103</span> |
| <span id="104">104</span> |
| <span id="105">105</span> |
| <span id="106">106</span> |
| <span id="107">107</span> |
| <span id="108">108</span> |
| <span id="109">109</span> |
| <span id="110">110</span> |
| <span id="111">111</span> |
| <span id="112">112</span> |
| <span id="113">113</span> |
| <span id="114">114</span> |
| <span id="115">115</span> |
| <span id="116">116</span> |
| <span id="117">117</span> |
| <span id="118">118</span> |
| <span id="119">119</span> |
| <span id="120">120</span> |
| <span id="121">121</span> |
| <span id="122">122</span> |
| <span id="123">123</span> |
| <span id="124">124</span> |
| <span id="125">125</span> |
| <span id="126">126</span> |
| <span id="127">127</span> |
| <span id="128">128</span> |
| <span id="129">129</span> |
| <span id="130">130</span> |
| <span id="131">131</span> |
| <span id="132">132</span> |
| <span id="133">133</span> |
| <span id="134">134</span> |
| <span id="135">135</span> |
| <span id="136">136</span> |
| <span id="137">137</span> |
| <span id="138">138</span> |
| <span id="139">139</span> |
| <span id="140">140</span> |
| <span id="141">141</span> |
| <span id="142">142</span> |
| <span id="143">143</span> |
| <span id="144">144</span> |
| <span id="145">145</span> |
| <span id="146">146</span> |
| <span id="147">147</span> |
| <span id="148">148</span> |
| <span id="149">149</span> |
| <span id="150">150</span> |
| <span id="151">151</span> |
| <span id="152">152</span> |
| <span id="153">153</span> |
| <span id="154">154</span> |
| <span id="155">155</span> |
| <span id="156">156</span> |
| <span id="157">157</span> |
| <span id="158">158</span> |
| <span id="159">159</span> |
| <span id="160">160</span> |
| <span id="161">161</span> |
| <span id="162">162</span> |
| <span id="163">163</span> |
| <span id="164">164</span> |
| <span id="165">165</span> |
| <span id="166">166</span> |
| <span id="167">167</span> |
| <span id="168">168</span> |
| <span id="169">169</span> |
| <span id="170">170</span> |
| <span id="171">171</span> |
| <span id="172">172</span> |
| <span id="173">173</span> |
| <span id="174">174</span> |
| <span id="175">175</span> |
| <span id="176">176</span> |
| <span id="177">177</span> |
| <span id="178">178</span> |
| <span id="179">179</span> |
| <span id="180">180</span> |
| <span id="181">181</span> |
| <span id="182">182</span> |
| <span id="183">183</span> |
| <span id="184">184</span> |
| <span id="185">185</span> |
| <span id="186">186</span> |
| <span id="187">187</span> |
| <span id="188">188</span> |
| <span id="189">189</span> |
| <span id="190">190</span> |
| <span id="191">191</span> |
| <span id="192">192</span> |
| <span id="193">193</span> |
| <span id="194">194</span> |
| <span id="195">195</span> |
| <span id="196">196</span> |
| <span id="197">197</span> |
| <span id="198">198</span> |
| <span id="199">199</span> |
| <span id="200">200</span> |
| <span id="201">201</span> |
| <span id="202">202</span> |
| <span id="203">203</span> |
| <span id="204">204</span> |
| <span id="205">205</span> |
| <span id="206">206</span> |
| <span id="207">207</span> |
| <span id="208">208</span> |
| <span id="209">209</span> |
| <span id="210">210</span> |
| <span id="211">211</span> |
| <span id="212">212</span> |
| <span id="213">213</span> |
| <span id="214">214</span> |
| <span id="215">215</span> |
| <span id="216">216</span> |
| <span id="217">217</span> |
| <span id="218">218</span> |
| <span id="219">219</span> |
| <span id="220">220</span> |
| <span id="221">221</span> |
| <span id="222">222</span> |
| <span id="223">223</span> |
| <span id="224">224</span> |
| <span id="225">225</span> |
| <span id="226">226</span> |
| <span id="227">227</span> |
| <span id="228">228</span> |
| <span id="229">229</span> |
| <span id="230">230</span> |
| <span id="231">231</span> |
| <span id="232">232</span> |
| <span id="233">233</span> |
| <span id="234">234</span> |
| <span id="235">235</span> |
| <span id="236">236</span> |
| <span id="237">237</span> |
| <span id="238">238</span> |
| <span id="239">239</span> |
| <span id="240">240</span> |
| <span id="241">241</span> |
| <span id="242">242</span> |
| <span id="243">243</span> |
| <span id="244">244</span> |
| <span id="245">245</span> |
| <span id="246">246</span> |
| <span id="247">247</span> |
| <span id="248">248</span> |
| <span id="249">249</span> |
| <span id="250">250</span> |
| <span id="251">251</span> |
| <span id="252">252</span> |
| <span id="253">253</span> |
| <span id="254">254</span> |
| <span id="255">255</span> |
| <span id="256">256</span> |
| <span id="257">257</span> |
| <span id="258">258</span> |
| <span id="259">259</span> |
| <span id="260">260</span> |
| <span id="261">261</span> |
| <span id="262">262</span> |
| <span id="263">263</span> |
| <span id="264">264</span> |
| <span id="265">265</span> |
| <span id="266">266</span> |
| <span id="267">267</span> |
| <span id="268">268</span> |
| <span id="269">269</span> |
| <span id="270">270</span> |
| <span id="271">271</span> |
| <span id="272">272</span> |
| <span id="273">273</span> |
| <span id="274">274</span> |
| <span id="275">275</span> |
| <span id="276">276</span> |
| <span id="277">277</span> |
| <span id="278">278</span> |
| <span id="279">279</span> |
| <span id="280">280</span> |
| <span id="281">281</span> |
| <span id="282">282</span> |
| <span id="283">283</span> |
| <span id="284">284</span> |
| <span id="285">285</span> |
| <span id="286">286</span> |
| <span id="287">287</span> |
| <span id="288">288</span> |
| <span id="289">289</span> |
| <span id="290">290</span> |
| <span id="291">291</span> |
| <span id="292">292</span> |
| <span id="293">293</span> |
| <span id="294">294</span> |
| <span id="295">295</span> |
| <span id="296">296</span> |
| <span id="297">297</span> |
| <span id="298">298</span> |
| <span id="299">299</span> |
| <span id="300">300</span> |
| <span id="301">301</span> |
| <span id="302">302</span> |
| <span id="303">303</span> |
| <span id="304">304</span> |
| <span id="305">305</span> |
| <span id="306">306</span> |
| <span id="307">307</span> |
| <span id="308">308</span> |
| <span id="309">309</span> |
| <span id="310">310</span> |
| <span id="311">311</span> |
| <span id="312">312</span> |
| <span id="313">313</span> |
| <span id="314">314</span> |
| <span id="315">315</span> |
| <span id="316">316</span> |
| <span id="317">317</span> |
| <span id="318">318</span> |
| <span id="319">319</span> |
| <span id="320">320</span> |
| <span id="321">321</span> |
| <span id="322">322</span> |
| <span id="323">323</span> |
| <span id="324">324</span> |
| <span id="325">325</span> |
| <span id="326">326</span> |
| <span id="327">327</span> |
| <span id="328">328</span> |
| <span id="329">329</span> |
| <span id="330">330</span> |
| <span id="331">331</span> |
| <span id="332">332</span> |
| <span id="333">333</span> |
| <span id="334">334</span> |
| <span id="335">335</span> |
| <span id="336">336</span> |
| <span id="337">337</span> |
| <span id="338">338</span> |
| <span id="339">339</span> |
| <span id="340">340</span> |
| <span id="341">341</span> |
| <span id="342">342</span> |
| </pre><pre class="rust"><code><span class="comment">/* origin: FreeBSD /usr/src/lib/msun/src/e_powf.c */</span> |
| <span class="comment">/* |
| * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. |
| */</span> |
| <span class="comment">/* |
| * ==================================================== |
| * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. |
| * |
| * Developed at SunPro, a Sun Microsystems, Inc. business. |
| * Permission to use, copy, modify, and distribute this |
| * software is freely granted, provided that this notice |
| * is preserved. |
| * ==================================================== |
| */</span> |
| |
| <span class="kw">use</span> <span class="kw">super</span>::{<span class="ident">fabsf</span>, <span class="ident">scalbnf</span>, <span class="ident">sqrtf</span>}; |
| |
| <span class="kw">const</span> <span class="ident">BP</span>: [<span class="ident">f32</span>; <span class="number">2</span>] <span class="op">=</span> [<span class="number">1.0</span>, <span class="number">1.5</span>]; |
| <span class="kw">const</span> <span class="ident">DP_H</span>: [<span class="ident">f32</span>; <span class="number">2</span>] <span class="op">=</span> [<span class="number">0.0</span>, <span class="number">5.84960938e-01</span>]; <span class="comment">/* 0x3f15c000 */</span> |
| <span class="kw">const</span> <span class="ident">DP_L</span>: [<span class="ident">f32</span>; <span class="number">2</span>] <span class="op">=</span> [<span class="number">0.0</span>, <span class="number">1.56322085e-06</span>]; <span class="comment">/* 0x35d1cfdc */</span> |
| <span class="kw">const</span> <span class="ident">TWO24</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">16777216.0</span>; <span class="comment">/* 0x4b800000 */</span> |
| <span class="kw">const</span> <span class="ident">HUGE</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">1.0e30</span>; |
| <span class="kw">const</span> <span class="ident">TINY</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">1.0e-30</span>; |
| <span class="kw">const</span> <span class="ident">L1</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">6.0000002384e-01</span>; <span class="comment">/* 0x3f19999a */</span> |
| <span class="kw">const</span> <span class="ident">L2</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">4.2857143283e-01</span>; <span class="comment">/* 0x3edb6db7 */</span> |
| <span class="kw">const</span> <span class="ident">L3</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">3.3333334327e-01</span>; <span class="comment">/* 0x3eaaaaab */</span> |
| <span class="kw">const</span> <span class="ident">L4</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">2.7272811532e-01</span>; <span class="comment">/* 0x3e8ba305 */</span> |
| <span class="kw">const</span> <span class="ident">L5</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">2.3066075146e-01</span>; <span class="comment">/* 0x3e6c3255 */</span> |
| <span class="kw">const</span> <span class="ident">L6</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">2.0697501302e-01</span>; <span class="comment">/* 0x3e53f142 */</span> |
| <span class="kw">const</span> <span class="ident">P1</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">1.6666667163e-01</span>; <span class="comment">/* 0x3e2aaaab */</span> |
| <span class="kw">const</span> <span class="ident">P2</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="op">-</span><span class="number">2.7777778450e-03</span>; <span class="comment">/* 0xbb360b61 */</span> |
| <span class="kw">const</span> <span class="ident">P3</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">6.6137559770e-05</span>; <span class="comment">/* 0x388ab355 */</span> |
| <span class="kw">const</span> <span class="ident">P4</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="op">-</span><span class="number">1.6533901999e-06</span>; <span class="comment">/* 0xb5ddea0e */</span> |
| <span class="kw">const</span> <span class="ident">P5</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">4.1381369442e-08</span>; <span class="comment">/* 0x3331bb4c */</span> |
| <span class="kw">const</span> <span class="ident">LG2</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">6.9314718246e-01</span>; <span class="comment">/* 0x3f317218 */</span> |
| <span class="kw">const</span> <span class="ident">LG2_H</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">6.93145752e-01</span>; <span class="comment">/* 0x3f317200 */</span> |
| <span class="kw">const</span> <span class="ident">LG2_L</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">1.42860654e-06</span>; <span class="comment">/* 0x35bfbe8c */</span> |
| <span class="kw">const</span> <span class="ident">OVT</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">4.2995665694e-08</span>; <span class="comment">/* -(128-log2(ovfl+.5ulp)) */</span> |
| <span class="kw">const</span> <span class="ident">CP</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">9.6179670095e-01</span>; <span class="comment">/* 0x3f76384f =2/(3ln2) */</span> |
| <span class="kw">const</span> <span class="ident">CP_H</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">9.6191406250e-01</span>; <span class="comment">/* 0x3f764000 =12b cp */</span> |
| <span class="kw">const</span> <span class="ident">CP_L</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="op">-</span><span class="number">1.1736857402e-04</span>; <span class="comment">/* 0xb8f623c6 =tail of cp_h */</span> |
| <span class="kw">const</span> <span class="ident">IVLN2</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">1.4426950216e+00</span>; |
| <span class="kw">const</span> <span class="ident">IVLN2_H</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">1.4426879883e+00</span>; |
| <span class="kw">const</span> <span class="ident">IVLN2_L</span>: <span class="ident">f32</span> <span class="op">=</span> <span class="number">7.0526075433e-06</span>; |
| |
| <span class="attribute">#[<span class="ident">cfg_attr</span>(<span class="ident">all</span>(<span class="ident">test</span>, <span class="ident">assert_no_panic</span>), <span class="ident">no_panic::no_panic</span>)]</span> |
| <span class="kw">pub</span> <span class="kw">fn</span> <span class="ident">powf</span>(<span class="ident">x</span>: <span class="ident">f32</span>, <span class="ident">y</span>: <span class="ident">f32</span>) -> <span class="ident">f32</span> { |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">z</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">ax</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">z_h</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">z_l</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">p_h</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">p_l</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">y1</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">t1</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">t2</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">r</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">s</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">sn</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">t</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">u</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">v</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">w</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">i</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">j</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">k</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">yisint</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">n</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="ident">hx</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="ident">hy</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">ix</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="ident">iy</span>: <span class="ident">i32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">is</span>: <span class="ident">i32</span>; |
| |
| <span class="ident">hx</span> <span class="op">=</span> <span class="ident">x</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">hy</span> <span class="op">=</span> <span class="ident">y</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| |
| <span class="ident">ix</span> <span class="op">=</span> <span class="ident">hx</span> <span class="op">&</span> <span class="number">0x7fffffff</span>; |
| <span class="ident">iy</span> <span class="op">=</span> <span class="ident">hy</span> <span class="op">&</span> <span class="number">0x7fffffff</span>; |
| |
| <span class="comment">/* x**0 = 1, even if x is NaN */</span> |
| <span class="kw">if</span> <span class="ident">iy</span> <span class="op">==</span> <span class="number">0</span> { |
| <span class="kw">return</span> <span class="number">1.0</span>; |
| } |
| |
| <span class="comment">/* 1**y = 1, even if y is NaN */</span> |
| <span class="kw">if</span> <span class="ident">hx</span> <span class="op">==</span> <span class="number">0x3f800000</span> { |
| <span class="kw">return</span> <span class="number">1.0</span>; |
| } |
| |
| <span class="comment">/* NaN if either arg is NaN */</span> |
| <span class="kw">if</span> <span class="ident">ix</span> <span class="op">></span> <span class="number">0x7f800000</span> <span class="op">|</span><span class="op">|</span> <span class="ident">iy</span> <span class="op">></span> <span class="number">0x7f800000</span> { |
| <span class="kw">return</span> <span class="ident">x</span> <span class="op">+</span> <span class="ident">y</span>; |
| } |
| |
| <span class="comment">/* determine if y is an odd int when x < 0 |
| * yisint = 0 ... y is not an integer |
| * yisint = 1 ... y is an odd int |
| * yisint = 2 ... y is an even int |
| */</span> |
| <span class="ident">yisint</span> <span class="op">=</span> <span class="number">0</span>; |
| <span class="kw">if</span> <span class="ident">hx</span> <span class="op"><</span> <span class="number">0</span> { |
| <span class="kw">if</span> <span class="ident">iy</span> <span class="op">></span><span class="op">=</span> <span class="number">0x4b800000</span> { |
| <span class="ident">yisint</span> <span class="op">=</span> <span class="number">2</span>; <span class="comment">/* even integer y */</span> |
| } <span class="kw">else</span> <span class="kw">if</span> <span class="ident">iy</span> <span class="op">></span><span class="op">=</span> <span class="number">0x3f800000</span> { |
| <span class="ident">k</span> <span class="op">=</span> (<span class="ident">iy</span> <span class="op">></span><span class="op">></span> <span class="number">23</span>) <span class="op">-</span> <span class="number">0x7f</span>; <span class="comment">/* exponent */</span> |
| <span class="ident">j</span> <span class="op">=</span> <span class="ident">iy</span> <span class="op">></span><span class="op">></span> (<span class="number">23</span> <span class="op">-</span> <span class="ident">k</span>); |
| <span class="kw">if</span> (<span class="ident">j</span> <span class="op"><</span><span class="op"><</span> (<span class="number">23</span> <span class="op">-</span> <span class="ident">k</span>)) <span class="op">==</span> <span class="ident">iy</span> { |
| <span class="ident">yisint</span> <span class="op">=</span> <span class="number">2</span> <span class="op">-</span> (<span class="ident">j</span> <span class="op">&</span> <span class="number">1</span>); |
| } |
| } |
| } |
| |
| <span class="comment">/* special value of y */</span> |
| <span class="kw">if</span> <span class="ident">iy</span> <span class="op">==</span> <span class="number">0x7f800000</span> { |
| <span class="comment">/* y is +-inf */</span> |
| <span class="kw">if</span> <span class="ident">ix</span> <span class="op">==</span> <span class="number">0x3f800000</span> { |
| <span class="comment">/* (-1)**+-inf is 1 */</span> |
| <span class="kw">return</span> <span class="number">1.0</span>; |
| } <span class="kw">else</span> <span class="kw">if</span> <span class="ident">ix</span> <span class="op">></span> <span class="number">0x3f800000</span> { |
| <span class="comment">/* (|x|>1)**+-inf = inf,0 */</span> |
| <span class="kw">return</span> <span class="kw">if</span> <span class="ident">hy</span> <span class="op">></span><span class="op">=</span> <span class="number">0</span> { <span class="ident">y</span> } <span class="kw">else</span> { <span class="number">0.0</span> }; |
| } <span class="kw">else</span> { |
| <span class="comment">/* (|x|<1)**+-inf = 0,inf */</span> |
| <span class="kw">return</span> <span class="kw">if</span> <span class="ident">hy</span> <span class="op">></span><span class="op">=</span> <span class="number">0</span> { <span class="number">0.0</span> } <span class="kw">else</span> { <span class="op">-</span><span class="ident">y</span> }; |
| } |
| } |
| <span class="kw">if</span> <span class="ident">iy</span> <span class="op">==</span> <span class="number">0x3f800000</span> { |
| <span class="comment">/* y is +-1 */</span> |
| <span class="kw">return</span> <span class="kw">if</span> <span class="ident">hy</span> <span class="op">></span><span class="op">=</span> <span class="number">0</span> { <span class="ident">x</span> } <span class="kw">else</span> { <span class="number">1.0</span> <span class="op">/</span> <span class="ident">x</span> }; |
| } |
| |
| <span class="kw">if</span> <span class="ident">hy</span> <span class="op">==</span> <span class="number">0x40000000</span> { |
| <span class="comment">/* y is 2 */</span> |
| <span class="kw">return</span> <span class="ident">x</span> <span class="op">*</span> <span class="ident">x</span>; |
| } |
| |
| <span class="kw">if</span> <span class="ident">hy</span> <span class="op">==</span> <span class="number">0x3f000000</span> |
| <span class="comment">/* y is 0.5 */</span> |
| <span class="op">&&</span> <span class="ident">hx</span> <span class="op">></span><span class="op">=</span> <span class="number">0</span> |
| { |
| <span class="comment">/* x >= +0 */</span> |
| <span class="kw">return</span> <span class="ident">sqrtf</span>(<span class="ident">x</span>); |
| } |
| |
| <span class="ident">ax</span> <span class="op">=</span> <span class="ident">fabsf</span>(<span class="ident">x</span>); |
| <span class="comment">/* special value of x */</span> |
| <span class="kw">if</span> <span class="ident">ix</span> <span class="op">==</span> <span class="number">0x7f800000</span> <span class="op">|</span><span class="op">|</span> <span class="ident">ix</span> <span class="op">==</span> <span class="number">0</span> <span class="op">|</span><span class="op">|</span> <span class="ident">ix</span> <span class="op">==</span> <span class="number">0x3f800000</span> { |
| <span class="comment">/* x is +-0,+-inf,+-1 */</span> |
| <span class="ident">z</span> <span class="op">=</span> <span class="ident">ax</span>; |
| <span class="kw">if</span> <span class="ident">hy</span> <span class="op"><</span> <span class="number">0</span> { |
| <span class="comment">/* z = (1/|x|) */</span> |
| <span class="ident">z</span> <span class="op">=</span> <span class="number">1.0</span> <span class="op">/</span> <span class="ident">z</span>; |
| } |
| |
| <span class="kw">if</span> <span class="ident">hx</span> <span class="op"><</span> <span class="number">0</span> { |
| <span class="kw">if</span> ((<span class="ident">ix</span> <span class="op">-</span> <span class="number">0x3f800000</span>) <span class="op">|</span> <span class="ident">yisint</span>) <span class="op">==</span> <span class="number">0</span> { |
| <span class="ident">z</span> <span class="op">=</span> (<span class="ident">z</span> <span class="op">-</span> <span class="ident">z</span>) <span class="op">/</span> (<span class="ident">z</span> <span class="op">-</span> <span class="ident">z</span>); <span class="comment">/* (-1)**non-int is NaN */</span> |
| } <span class="kw">else</span> <span class="kw">if</span> <span class="ident">yisint</span> <span class="op">==</span> <span class="number">1</span> { |
| <span class="ident">z</span> <span class="op">=</span> <span class="op">-</span><span class="ident">z</span>; <span class="comment">/* (x<0)**odd = -(|x|**odd) */</span> |
| } |
| } |
| <span class="kw">return</span> <span class="ident">z</span>; |
| } |
| |
| <span class="ident">sn</span> <span class="op">=</span> <span class="number">1.0</span>; <span class="comment">/* sign of result */</span> |
| <span class="kw">if</span> <span class="ident">hx</span> <span class="op"><</span> <span class="number">0</span> { |
| <span class="kw">if</span> <span class="ident">yisint</span> <span class="op">==</span> <span class="number">0</span> { |
| <span class="comment">/* (x<0)**(non-int) is NaN */</span> |
| <span class="kw">return</span> (<span class="ident">x</span> <span class="op">-</span> <span class="ident">x</span>) <span class="op">/</span> (<span class="ident">x</span> <span class="op">-</span> <span class="ident">x</span>); |
| } |
| |
| <span class="kw">if</span> <span class="ident">yisint</span> <span class="op">==</span> <span class="number">1</span> { |
| <span class="comment">/* (x<0)**(odd int) */</span> |
| <span class="ident">sn</span> <span class="op">=</span> <span class="op">-</span><span class="number">1.0</span>; |
| } |
| } |
| |
| <span class="comment">/* |y| is HUGE */</span> |
| <span class="kw">if</span> <span class="ident">iy</span> <span class="op">></span> <span class="number">0x4d000000</span> { |
| <span class="comment">/* if |y| > 2**27 */</span> |
| <span class="comment">/* over/underflow if x is not close to one */</span> |
| <span class="kw">if</span> <span class="ident">ix</span> <span class="op"><</span> <span class="number">0x3f7ffff8</span> { |
| <span class="kw">return</span> <span class="kw">if</span> <span class="ident">hy</span> <span class="op"><</span> <span class="number">0</span> { |
| <span class="ident">sn</span> <span class="op">*</span> <span class="ident">HUGE</span> <span class="op">*</span> <span class="ident">HUGE</span> |
| } <span class="kw">else</span> { |
| <span class="ident">sn</span> <span class="op">*</span> <span class="ident">TINY</span> <span class="op">*</span> <span class="ident">TINY</span> |
| }; |
| } |
| |
| <span class="kw">if</span> <span class="ident">ix</span> <span class="op">></span> <span class="number">0x3f800007</span> { |
| <span class="kw">return</span> <span class="kw">if</span> <span class="ident">hy</span> <span class="op">></span> <span class="number">0</span> { |
| <span class="ident">sn</span> <span class="op">*</span> <span class="ident">HUGE</span> <span class="op">*</span> <span class="ident">HUGE</span> |
| } <span class="kw">else</span> { |
| <span class="ident">sn</span> <span class="op">*</span> <span class="ident">TINY</span> <span class="op">*</span> <span class="ident">TINY</span> |
| }; |
| } |
| |
| <span class="comment">/* now |1-x| is TINY <= 2**-20, suffice to compute |
| log(x) by x-x^2/2+x^3/3-x^4/4 */</span> |
| <span class="ident">t</span> <span class="op">=</span> <span class="ident">ax</span> <span class="op">-</span> <span class="number">1.</span>; <span class="comment">/* t has 20 trailing zeros */</span> |
| <span class="ident">w</span> <span class="op">=</span> (<span class="ident">t</span> <span class="op">*</span> <span class="ident">t</span>) <span class="op">*</span> (<span class="number">0.5</span> <span class="op">-</span> <span class="ident">t</span> <span class="op">*</span> (<span class="number">0.333333333333</span> <span class="op">-</span> <span class="ident">t</span> <span class="op">*</span> <span class="number">0.25</span>)); |
| <span class="ident">u</span> <span class="op">=</span> <span class="ident">IVLN2_H</span> <span class="op">*</span> <span class="ident">t</span>; <span class="comment">/* IVLN2_H has 16 sig. bits */</span> |
| <span class="ident">v</span> <span class="op">=</span> <span class="ident">t</span> <span class="op">*</span> <span class="ident">IVLN2_L</span> <span class="op">-</span> <span class="ident">w</span> <span class="op">*</span> <span class="ident">IVLN2</span>; |
| <span class="ident">t1</span> <span class="op">=</span> <span class="ident">u</span> <span class="op">+</span> <span class="ident">v</span>; |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">t1</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">t1</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xfffff000</span>); |
| <span class="ident">t2</span> <span class="op">=</span> <span class="ident">v</span> <span class="op">-</span> (<span class="ident">t1</span> <span class="op">-</span> <span class="ident">u</span>); |
| } <span class="kw">else</span> { |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">s2</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">s_h</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="ident">s_l</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">t_h</span>: <span class="ident">f32</span>; |
| <span class="kw">let</span> <span class="kw-2">mut</span> <span class="ident">t_l</span>: <span class="ident">f32</span>; |
| |
| <span class="ident">n</span> <span class="op">=</span> <span class="number">0</span>; |
| <span class="comment">/* take care subnormal number */</span> |
| <span class="kw">if</span> <span class="ident">ix</span> <span class="op"><</span> <span class="number">0x00800000</span> { |
| <span class="ident">ax</span> <span class="kw-2">*</span><span class="op">=</span> <span class="ident">TWO24</span>; |
| <span class="ident">n</span> <span class="op">-</span><span class="op">=</span> <span class="number">24</span>; |
| <span class="ident">ix</span> <span class="op">=</span> <span class="ident">ax</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| } |
| <span class="ident">n</span> <span class="op">+</span><span class="op">=</span> ((<span class="ident">ix</span>) <span class="op">></span><span class="op">></span> <span class="number">23</span>) <span class="op">-</span> <span class="number">0x7f</span>; |
| <span class="ident">j</span> <span class="op">=</span> <span class="ident">ix</span> <span class="op">&</span> <span class="number">0x007fffff</span>; |
| <span class="comment">/* determine interval */</span> |
| <span class="ident">ix</span> <span class="op">=</span> <span class="ident">j</span> <span class="op">|</span> <span class="number">0x3f800000</span>; <span class="comment">/* normalize ix */</span> |
| <span class="kw">if</span> <span class="ident">j</span> <span class="op"><</span><span class="op">=</span> <span class="number">0x1cc471</span> { |
| <span class="comment">/* |x|<sqrt(3/2) */</span> |
| <span class="ident">k</span> <span class="op">=</span> <span class="number">0</span>; |
| } <span class="kw">else</span> <span class="kw">if</span> <span class="ident">j</span> <span class="op"><</span> <span class="number">0x5db3d7</span> { |
| <span class="comment">/* |x|<sqrt(3) */</span> |
| <span class="ident">k</span> <span class="op">=</span> <span class="number">1</span>; |
| } <span class="kw">else</span> { |
| <span class="ident">k</span> <span class="op">=</span> <span class="number">0</span>; |
| <span class="ident">n</span> <span class="op">+</span><span class="op">=</span> <span class="number">1</span>; |
| <span class="ident">ix</span> <span class="op">-</span><span class="op">=</span> <span class="number">0x00800000</span>; |
| } |
| <span class="ident">ax</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">ix</span> <span class="kw">as</span> <span class="ident">u32</span>); |
| |
| <span class="comment">/* compute s = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */</span> |
| <span class="ident">u</span> <span class="op">=</span> <span class="ident">ax</span> <span class="op">-</span> <span class="ident">BP</span>[<span class="ident">k</span> <span class="kw">as</span> <span class="ident">usize</span>]; <span class="comment">/* bp[0]=1.0, bp[1]=1.5 */</span> |
| <span class="ident">v</span> <span class="op">=</span> <span class="number">1.0</span> <span class="op">/</span> (<span class="ident">ax</span> <span class="op">+</span> <span class="ident">BP</span>[<span class="ident">k</span> <span class="kw">as</span> <span class="ident">usize</span>]); |
| <span class="ident">s</span> <span class="op">=</span> <span class="ident">u</span> <span class="op">*</span> <span class="ident">v</span>; |
| <span class="ident">s_h</span> <span class="op">=</span> <span class="ident">s</span>; |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">s_h</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">s_h</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xfffff000</span>); |
| <span class="comment">/* t_h=ax+bp[k] High */</span> |
| <span class="ident">is</span> <span class="op">=</span> (((<span class="ident">ix</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">></span><span class="op">></span> <span class="number">1</span>) <span class="op">&</span> <span class="number">0xfffff000</span>) <span class="op">|</span> <span class="number">0x20000000</span>) <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">t_h</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">+</span> <span class="number">0x00400000</span> <span class="op">+</span> ((<span class="ident">k</span> <span class="kw">as</span> <span class="ident">u32</span>) <span class="op"><</span><span class="op"><</span> <span class="number">21</span>)); |
| <span class="ident">t_l</span> <span class="op">=</span> <span class="ident">ax</span> <span class="op">-</span> (<span class="ident">t_h</span> <span class="op">-</span> <span class="ident">BP</span>[<span class="ident">k</span> <span class="kw">as</span> <span class="ident">usize</span>]); |
| <span class="ident">s_l</span> <span class="op">=</span> <span class="ident">v</span> <span class="op">*</span> ((<span class="ident">u</span> <span class="op">-</span> <span class="ident">s_h</span> <span class="op">*</span> <span class="ident">t_h</span>) <span class="op">-</span> <span class="ident">s_h</span> <span class="op">*</span> <span class="ident">t_l</span>); |
| <span class="comment">/* compute log(ax) */</span> |
| <span class="ident">s2</span> <span class="op">=</span> <span class="ident">s</span> <span class="op">*</span> <span class="ident">s</span>; |
| <span class="ident">r</span> <span class="op">=</span> <span class="ident">s2</span> <span class="op">*</span> <span class="ident">s2</span> <span class="op">*</span> (<span class="ident">L1</span> <span class="op">+</span> <span class="ident">s2</span> <span class="op">*</span> (<span class="ident">L2</span> <span class="op">+</span> <span class="ident">s2</span> <span class="op">*</span> (<span class="ident">L3</span> <span class="op">+</span> <span class="ident">s2</span> <span class="op">*</span> (<span class="ident">L4</span> <span class="op">+</span> <span class="ident">s2</span> <span class="op">*</span> (<span class="ident">L5</span> <span class="op">+</span> <span class="ident">s2</span> <span class="op">*</span> <span class="ident">L6</span>))))); |
| <span class="ident">r</span> <span class="op">+</span><span class="op">=</span> <span class="ident">s_l</span> <span class="op">*</span> (<span class="ident">s_h</span> <span class="op">+</span> <span class="ident">s</span>); |
| <span class="ident">s2</span> <span class="op">=</span> <span class="ident">s_h</span> <span class="op">*</span> <span class="ident">s_h</span>; |
| <span class="ident">t_h</span> <span class="op">=</span> <span class="number">3.0</span> <span class="op">+</span> <span class="ident">s2</span> <span class="op">+</span> <span class="ident">r</span>; |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">t_h</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">t_h</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xfffff000</span>); |
| <span class="ident">t_l</span> <span class="op">=</span> <span class="ident">r</span> <span class="op">-</span> ((<span class="ident">t_h</span> <span class="op">-</span> <span class="number">3.0</span>) <span class="op">-</span> <span class="ident">s2</span>); |
| <span class="comment">/* u+v = s*(1+...) */</span> |
| <span class="ident">u</span> <span class="op">=</span> <span class="ident">s_h</span> <span class="op">*</span> <span class="ident">t_h</span>; |
| <span class="ident">v</span> <span class="op">=</span> <span class="ident">s_l</span> <span class="op">*</span> <span class="ident">t_h</span> <span class="op">+</span> <span class="ident">t_l</span> <span class="op">*</span> <span class="ident">s</span>; |
| <span class="comment">/* 2/(3log2)*(s+...) */</span> |
| <span class="ident">p_h</span> <span class="op">=</span> <span class="ident">u</span> <span class="op">+</span> <span class="ident">v</span>; |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">p_h</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">p_h</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xfffff000</span>); |
| <span class="ident">p_l</span> <span class="op">=</span> <span class="ident">v</span> <span class="op">-</span> (<span class="ident">p_h</span> <span class="op">-</span> <span class="ident">u</span>); |
| <span class="ident">z_h</span> <span class="op">=</span> <span class="ident">CP_H</span> <span class="op">*</span> <span class="ident">p_h</span>; <span class="comment">/* cp_h+cp_l = 2/(3*log2) */</span> |
| <span class="ident">z_l</span> <span class="op">=</span> <span class="ident">CP_L</span> <span class="op">*</span> <span class="ident">p_h</span> <span class="op">+</span> <span class="ident">p_l</span> <span class="op">*</span> <span class="ident">CP</span> <span class="op">+</span> <span class="ident">DP_L</span>[<span class="ident">k</span> <span class="kw">as</span> <span class="ident">usize</span>]; |
| <span class="comment">/* log2(ax) = (s+..)*2/(3*log2) = n + dp_h + z_h + z_l */</span> |
| <span class="ident">t</span> <span class="op">=</span> <span class="ident">n</span> <span class="kw">as</span> <span class="ident">f32</span>; |
| <span class="ident">t1</span> <span class="op">=</span> ((<span class="ident">z_h</span> <span class="op">+</span> <span class="ident">z_l</span>) <span class="op">+</span> <span class="ident">DP_H</span>[<span class="ident">k</span> <span class="kw">as</span> <span class="ident">usize</span>]) <span class="op">+</span> <span class="ident">t</span>; |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">t1</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">t1</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xfffff000</span>); |
| <span class="ident">t2</span> <span class="op">=</span> <span class="ident">z_l</span> <span class="op">-</span> (((<span class="ident">t1</span> <span class="op">-</span> <span class="ident">t</span>) <span class="op">-</span> <span class="ident">DP_H</span>[<span class="ident">k</span> <span class="kw">as</span> <span class="ident">usize</span>]) <span class="op">-</span> <span class="ident">z_h</span>); |
| }; |
| |
| <span class="comment">/* split up y into y1+y2 and compute (y1+y2)*(t1+t2) */</span> |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">y</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">y1</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xfffff000</span>); |
| <span class="ident">p_l</span> <span class="op">=</span> (<span class="ident">y</span> <span class="op">-</span> <span class="ident">y1</span>) <span class="op">*</span> <span class="ident">t1</span> <span class="op">+</span> <span class="ident">y</span> <span class="op">*</span> <span class="ident">t2</span>; |
| <span class="ident">p_h</span> <span class="op">=</span> <span class="ident">y1</span> <span class="op">*</span> <span class="ident">t1</span>; |
| <span class="ident">z</span> <span class="op">=</span> <span class="ident">p_l</span> <span class="op">+</span> <span class="ident">p_h</span>; |
| <span class="ident">j</span> <span class="op">=</span> <span class="ident">z</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="kw">if</span> <span class="ident">j</span> <span class="op">></span> <span class="number">0x43000000</span> { |
| <span class="comment">/* if z > 128 */</span> |
| <span class="kw">return</span> <span class="ident">sn</span> <span class="op">*</span> <span class="ident">HUGE</span> <span class="op">*</span> <span class="ident">HUGE</span>; <span class="comment">/* overflow */</span> |
| } <span class="kw">else</span> <span class="kw">if</span> <span class="ident">j</span> <span class="op">==</span> <span class="number">0x43000000</span> { |
| <span class="comment">/* if z == 128 */</span> |
| <span class="kw">if</span> <span class="ident">p_l</span> <span class="op">+</span> <span class="ident">OVT</span> <span class="op">></span> <span class="ident">z</span> <span class="op">-</span> <span class="ident">p_h</span> { |
| <span class="kw">return</span> <span class="ident">sn</span> <span class="op">*</span> <span class="ident">HUGE</span> <span class="op">*</span> <span class="ident">HUGE</span>; <span class="comment">/* overflow */</span> |
| } |
| } <span class="kw">else</span> <span class="kw">if</span> (<span class="ident">j</span> <span class="op">&</span> <span class="number">0x7fffffff</span>) <span class="op">></span> <span class="number">0x43160000</span> { |
| <span class="comment">/* z < -150 */</span> |
| <span class="comment">// FIXME: check should be (uint32_t)j > 0xc3160000</span> |
| <span class="kw">return</span> <span class="ident">sn</span> <span class="op">*</span> <span class="ident">TINY</span> <span class="op">*</span> <span class="ident">TINY</span>; <span class="comment">/* underflow */</span> |
| } <span class="kw">else</span> <span class="kw">if</span> <span class="ident">j</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">==</span> <span class="number">0xc3160000</span> |
| <span class="comment">/* z == -150 */</span> |
| <span class="op">&&</span> <span class="ident">p_l</span> <span class="op"><</span><span class="op">=</span> <span class="ident">z</span> <span class="op">-</span> <span class="ident">p_h</span> |
| { |
| <span class="kw">return</span> <span class="ident">sn</span> <span class="op">*</span> <span class="ident">TINY</span> <span class="op">*</span> <span class="ident">TINY</span>; <span class="comment">/* underflow */</span> |
| } |
| |
| <span class="comment">/* |
| * compute 2**(p_h+p_l) |
| */</span> |
| <span class="ident">i</span> <span class="op">=</span> <span class="ident">j</span> <span class="op">&</span> <span class="number">0x7fffffff</span>; |
| <span class="ident">k</span> <span class="op">=</span> (<span class="ident">i</span> <span class="op">></span><span class="op">></span> <span class="number">23</span>) <span class="op">-</span> <span class="number">0x7f</span>; |
| <span class="ident">n</span> <span class="op">=</span> <span class="number">0</span>; |
| <span class="kw">if</span> <span class="ident">i</span> <span class="op">></span> <span class="number">0x3f000000</span> { |
| <span class="comment">/* if |z| > 0.5, set n = [z+0.5] */</span> |
| <span class="ident">n</span> <span class="op">=</span> <span class="ident">j</span> <span class="op">+</span> (<span class="number">0x00800000</span> <span class="op">></span><span class="op">></span> (<span class="ident">k</span> <span class="op">+</span> <span class="number">1</span>)); |
| <span class="ident">k</span> <span class="op">=</span> ((<span class="ident">n</span> <span class="op">&</span> <span class="number">0x7fffffff</span>) <span class="op">></span><span class="op">></span> <span class="number">23</span>) <span class="op">-</span> <span class="number">0x7f</span>; <span class="comment">/* new k for n */</span> |
| <span class="ident">t</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">n</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="op">!</span>(<span class="number">0x007fffff</span> <span class="op">></span><span class="op">></span> <span class="ident">k</span>)); |
| <span class="ident">n</span> <span class="op">=</span> ((<span class="ident">n</span> <span class="op">&</span> <span class="number">0x007fffff</span>) <span class="op">|</span> <span class="number">0x00800000</span>) <span class="op">></span><span class="op">></span> (<span class="number">23</span> <span class="op">-</span> <span class="ident">k</span>); |
| <span class="kw">if</span> <span class="ident">j</span> <span class="op"><</span> <span class="number">0</span> { |
| <span class="ident">n</span> <span class="op">=</span> <span class="op">-</span><span class="ident">n</span>; |
| } |
| <span class="ident">p_h</span> <span class="op">-</span><span class="op">=</span> <span class="ident">t</span>; |
| } |
| <span class="ident">t</span> <span class="op">=</span> <span class="ident">p_l</span> <span class="op">+</span> <span class="ident">p_h</span>; |
| <span class="ident">is</span> <span class="op">=</span> <span class="ident">t</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">t</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">is</span> <span class="kw">as</span> <span class="ident">u32</span> <span class="op">&</span> <span class="number">0xffff8000</span>); |
| <span class="ident">u</span> <span class="op">=</span> <span class="ident">t</span> <span class="op">*</span> <span class="ident">LG2_H</span>; |
| <span class="ident">v</span> <span class="op">=</span> (<span class="ident">p_l</span> <span class="op">-</span> (<span class="ident">t</span> <span class="op">-</span> <span class="ident">p_h</span>)) <span class="op">*</span> <span class="ident">LG2</span> <span class="op">+</span> <span class="ident">t</span> <span class="op">*</span> <span class="ident">LG2_L</span>; |
| <span class="ident">z</span> <span class="op">=</span> <span class="ident">u</span> <span class="op">+</span> <span class="ident">v</span>; |
| <span class="ident">w</span> <span class="op">=</span> <span class="ident">v</span> <span class="op">-</span> (<span class="ident">z</span> <span class="op">-</span> <span class="ident">u</span>); |
| <span class="ident">t</span> <span class="op">=</span> <span class="ident">z</span> <span class="op">*</span> <span class="ident">z</span>; |
| <span class="ident">t1</span> <span class="op">=</span> <span class="ident">z</span> <span class="op">-</span> <span class="ident">t</span> <span class="op">*</span> (<span class="ident">P1</span> <span class="op">+</span> <span class="ident">t</span> <span class="op">*</span> (<span class="ident">P2</span> <span class="op">+</span> <span class="ident">t</span> <span class="op">*</span> (<span class="ident">P3</span> <span class="op">+</span> <span class="ident">t</span> <span class="op">*</span> (<span class="ident">P4</span> <span class="op">+</span> <span class="ident">t</span> <span class="op">*</span> <span class="ident">P5</span>)))); |
| <span class="ident">r</span> <span class="op">=</span> (<span class="ident">z</span> <span class="op">*</span> <span class="ident">t1</span>) <span class="op">/</span> (<span class="ident">t1</span> <span class="op">-</span> <span class="number">2.0</span>) <span class="op">-</span> (<span class="ident">w</span> <span class="op">+</span> <span class="ident">z</span> <span class="op">*</span> <span class="ident">w</span>); |
| <span class="ident">z</span> <span class="op">=</span> <span class="number">1.0</span> <span class="op">-</span> (<span class="ident">r</span> <span class="op">-</span> <span class="ident">z</span>); |
| <span class="ident">j</span> <span class="op">=</span> <span class="ident">z</span>.<span class="ident">to_bits</span>() <span class="kw">as</span> <span class="ident">i32</span>; |
| <span class="ident">j</span> <span class="op">+</span><span class="op">=</span> <span class="ident">n</span> <span class="op"><</span><span class="op"><</span> <span class="number">23</span>; |
| <span class="kw">if</span> (<span class="ident">j</span> <span class="op">></span><span class="op">></span> <span class="number">23</span>) <span class="op"><</span><span class="op">=</span> <span class="number">0</span> { |
| <span class="comment">/* subnormal output */</span> |
| <span class="ident">z</span> <span class="op">=</span> <span class="ident">scalbnf</span>(<span class="ident">z</span>, <span class="ident">n</span>); |
| } <span class="kw">else</span> { |
| <span class="ident">z</span> <span class="op">=</span> <span class="ident">f32::from_bits</span>(<span class="ident">j</span> <span class="kw">as</span> <span class="ident">u32</span>); |
| } |
| <span class="ident">sn</span> <span class="op">*</span> <span class="ident">z</span> |
| } |
| </code></pre></div> |
| </section><section id="search" class="content hidden"></section></div></main><div id="rustdoc-vars" data-root-path="../../../" data-current-crate="libm" data-themes="ayu,dark,light" data-resource-suffix="" data-rustdoc-version="1.60.0-nightly (1bd4fdc94 2022-01-12)" ></div> |
| </body></html> |