File "util_8c_source.html"
Full Path: /home/attunedd/public_html/byp/izo/con7ext_sym404/rintoar.txt/opt/alt/ruby19/share/doc/ruby/html/de/df1/util_8c_source.html
File size: 721.83 KB
MIME-type: text/html
Charset: utf-8
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.14"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>Ruby: util.c Source File</title>
<link href="../../tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../jquery.js"></script>
<script type="text/javascript" src="../../dynsections.js"></script>
<link href="../../doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td id="projectalign" style="padding-left: 0.5em;">
<div id="projectname">Ruby
 <span id="projectnumber">1.9.3p551(2014-11-13revision48407)</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.14 -->
<script type="text/javascript" src="../../menudata.js"></script>
<script type="text/javascript" src="../../menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
$(function() {
initMenu('../../',false,false,'search.php','Search');
});
/* @license-end */</script>
<div id="main-nav"></div>
</div><!-- top -->
<div class="header">
<div class="headertitle">
<div class="title">util.c</div> </div>
</div><!--header-->
<div class="contents">
<a href="../../de/df1/util_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> <span class="comment">/**********************************************************************</span></div><div class="line"><a name="l00002"></a><span class="lineno"> 2</span> <span class="comment"></span></div><div class="line"><a name="l00003"></a><span class="lineno"> 3</span> <span class="comment"> util.c -</span></div><div class="line"><a name="l00004"></a><span class="lineno"> 4</span> <span class="comment"></span></div><div class="line"><a name="l00005"></a><span class="lineno"> 5</span> <span class="comment"> $Author: usa $</span></div><div class="line"><a name="l00006"></a><span class="lineno"> 6</span> <span class="comment"> created at: Fri Mar 10 17:22:34 JST 1995</span></div><div class="line"><a name="l00007"></a><span class="lineno"> 7</span> <span class="comment"></span></div><div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="comment"> Copyright (C) 1993-2008 Yukihiro Matsumoto</span></div><div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <span class="comment"></span></div><div class="line"><a name="l00010"></a><span class="lineno"> 10</span> <span class="comment">**********************************************************************/</span></div><div class="line"><a name="l00011"></a><span class="lineno"> 11</span> </div><div class="line"><a name="l00012"></a><span class="lineno"> 12</span> <span class="preprocessor">#include "<a class="code" href="../../de/de6/ruby_2ruby_8h.html">ruby/ruby.h</a>"</span></div><div class="line"><a name="l00013"></a><span class="lineno"> 13</span> <span class="preprocessor">#include "<a class="code" href="../../db/dde/internal_8h.html">internal.h</a>"</span></div><div class="line"><a name="l00014"></a><span class="lineno"> 14</span> </div><div class="line"><a name="l00015"></a><span class="lineno"> 15</span> <span class="preprocessor">#include <ctype.h></span></div><div class="line"><a name="l00016"></a><span class="lineno"> 16</span> <span class="preprocessor">#include <stdio.h></span></div><div class="line"><a name="l00017"></a><span class="lineno"> 17</span> <span class="preprocessor">#include <errno.h></span></div><div class="line"><a name="l00018"></a><span class="lineno"> 18</span> <span class="preprocessor">#include <math.h></span></div><div class="line"><a name="l00019"></a><span class="lineno"> 19</span> <span class="preprocessor">#include <float.h></span></div><div class="line"><a name="l00020"></a><span class="lineno"> 20</span> </div><div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="preprocessor">#ifdef _WIN32</span></div><div class="line"><a name="l00022"></a><span class="lineno"> 22</span> <span class="preprocessor">#include "<a class="code" href="../../d2/d4d/file_8h.html">missing/file.h</a>"</span></div><div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00024"></a><span class="lineno"> 24</span> </div><div class="line"><a name="l00025"></a><span class="lineno"> 25</span> <span class="preprocessor">#include "<a class="code" href="../../d8/d3c/util_8h.html">ruby/util.h</a>"</span></div><div class="line"><a name="l00026"></a><span class="lineno"> 26</span> </div><div class="line"><a name="l00027"></a><span class="lineno"> 27</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span></div><div class="line"><a name="l00028"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ac5ad15d577e5f9f3bbb4838f6775642d"> 28</a></span> <a class="code" href="../../de/df1/util_8c.html#ac5ad15d577e5f9f3bbb4838f6775642d">ruby_scan_oct</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *start, <span class="keywordtype">size_t</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>, <span class="keywordtype">size_t</span> *retlen)</div><div class="line"><a name="l00029"></a><span class="lineno"> 29</span> {</div><div class="line"><a name="l00030"></a><span class="lineno"> 30</span>  <span class="keyword">register</span> <span class="keyword">const</span> <span class="keywordtype">char</span> *s = start;</div><div class="line"><a name="l00031"></a><span class="lineno"> 31</span>  <span class="keyword">register</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> retval = 0;</div><div class="line"><a name="l00032"></a><span class="lineno"> 32</span> </div><div class="line"><a name="l00033"></a><span class="lineno"> 33</span>  <span class="keywordflow">while</span> (<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>-- && *s >= <span class="charliteral">'0'</span> && *s <= <span class="charliteral">'7'</span>) {</div><div class="line"><a name="l00034"></a><span class="lineno"> 34</span>  retval <<= 3;</div><div class="line"><a name="l00035"></a><span class="lineno"> 35</span>  retval |= *s++ - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l00036"></a><span class="lineno"> 36</span>  }</div><div class="line"><a name="l00037"></a><span class="lineno"> 37</span>  *retlen = (int)(s - start); <span class="comment">/* less than len */</span></div><div class="line"><a name="l00038"></a><span class="lineno"> 38</span>  <span class="keywordflow">return</span> retval;</div><div class="line"><a name="l00039"></a><span class="lineno"> 39</span> }</div><div class="line"><a name="l00040"></a><span class="lineno"> 40</span> </div><div class="line"><a name="l00041"></a><span class="lineno"> 41</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span></div><div class="line"><a name="l00042"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ad08b631b404348c194acf8fdf59e05ae"> 42</a></span> <a class="code" href="../../de/df1/util_8c.html#ad08b631b404348c194acf8fdf59e05ae">ruby_scan_hex</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *start, <span class="keywordtype">size_t</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>, <span class="keywordtype">size_t</span> *retlen)</div><div class="line"><a name="l00043"></a><span class="lineno"> 43</span> {</div><div class="line"><a name="l00044"></a><span class="lineno"> 44</span>  <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> hexdigit[] = <span class="stringliteral">"0123456789abcdef0123456789ABCDEF"</span>;</div><div class="line"><a name="l00045"></a><span class="lineno"> 45</span>  <span class="keyword">register</span> <span class="keyword">const</span> <span class="keywordtype">char</span> *s = start;</div><div class="line"><a name="l00046"></a><span class="lineno"> 46</span>  <span class="keyword">register</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> retval = 0;</div><div class="line"><a name="l00047"></a><span class="lineno"> 47</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *tmp;</div><div class="line"><a name="l00048"></a><span class="lineno"> 48</span> </div><div class="line"><a name="l00049"></a><span class="lineno"> 49</span>  <span class="keywordflow">while</span> (<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>-- && *s && (tmp = <a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *s))) {</div><div class="line"><a name="l00050"></a><span class="lineno"> 50</span>  retval <<= 4;</div><div class="line"><a name="l00051"></a><span class="lineno"> 51</span>  retval |= (tmp - hexdigit) & 15;</div><div class="line"><a name="l00052"></a><span class="lineno"> 52</span>  s++;</div><div class="line"><a name="l00053"></a><span class="lineno"> 53</span>  }</div><div class="line"><a name="l00054"></a><span class="lineno"> 54</span>  *retlen = (int)(s - start); <span class="comment">/* less than len */</span></div><div class="line"><a name="l00055"></a><span class="lineno"> 55</span>  <span class="keywordflow">return</span> retval;</div><div class="line"><a name="l00056"></a><span class="lineno"> 56</span> }</div><div class="line"><a name="l00057"></a><span class="lineno"> 57</span> </div><div class="line"><a name="l00058"></a><span class="lineno"> 58</span> <span class="keyword">static</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span></div><div class="line"><a name="l00059"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a49789619ab490f1b59a5e3b6f5a12593"> 59</a></span> <a class="code" href="../../de/df1/util_8c.html#a49789619ab490f1b59a5e3b6f5a12593">scan_digits</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">int</span> base, <span class="keywordtype">size_t</span> *retlen, <span class="keywordtype">int</span> *overflow)</div><div class="line"><a name="l00060"></a><span class="lineno"> 60</span> {</div><div class="line"><a name="l00061"></a><span class="lineno"> 61</span>  <span class="keyword">static</span> <span class="keywordtype">signed</span> <span class="keywordtype">char</span> table[] = {</div><div class="line"><a name="l00062"></a><span class="lineno"> 62</span>  <span class="comment">/* 0 1 2 3 4 5 6 7 8 9 a b c d e f */</span></div><div class="line"><a name="l00063"></a><span class="lineno"> 63</span>  <span class="comment">/*0*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00064"></a><span class="lineno"> 64</span>  <span class="comment">/*1*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00065"></a><span class="lineno"> 65</span>  <span class="comment">/*2*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00066"></a><span class="lineno"> 66</span>  <span class="comment">/*3*/</span> 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00067"></a><span class="lineno"> 67</span>  <span class="comment">/*4*/</span> -1,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,</div><div class="line"><a name="l00068"></a><span class="lineno"> 68</span>  <span class="comment">/*5*/</span> 25,26,27,28,29,30,31,32,33,34,35,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00069"></a><span class="lineno"> 69</span>  <span class="comment">/*6*/</span> -1,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,</div><div class="line"><a name="l00070"></a><span class="lineno"> 70</span>  <span class="comment">/*7*/</span> 25,26,27,28,29,30,31,32,33,34,35,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00071"></a><span class="lineno"> 71</span>  <span class="comment">/*8*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00072"></a><span class="lineno"> 72</span>  <span class="comment">/*9*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00073"></a><span class="lineno"> 73</span>  <span class="comment">/*a*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00074"></a><span class="lineno"> 74</span>  <span class="comment">/*b*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00075"></a><span class="lineno"> 75</span>  <span class="comment">/*c*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00076"></a><span class="lineno"> 76</span>  <span class="comment">/*d*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00077"></a><span class="lineno"> 77</span>  <span class="comment">/*e*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00078"></a><span class="lineno"> 78</span>  <span class="comment">/*f*/</span> -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,</div><div class="line"><a name="l00079"></a><span class="lineno"> 79</span>  };</div><div class="line"><a name="l00080"></a><span class="lineno"> 80</span> </div><div class="line"><a name="l00081"></a><span class="lineno"> 81</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *start = str;</div><div class="line"><a name="l00082"></a><span class="lineno"> 82</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> ret = 0, x;</div><div class="line"><a name="l00083"></a><span class="lineno"> 83</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> mul_overflow = (~(<span class="keywordtype">unsigned</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)0) / base;</div><div class="line"><a name="l00084"></a><span class="lineno"> 84</span>  <span class="keywordtype">int</span> c;</div><div class="line"><a name="l00085"></a><span class="lineno"> 85</span>  *overflow = 0;</div><div class="line"><a name="l00086"></a><span class="lineno"> 86</span> </div><div class="line"><a name="l00087"></a><span class="lineno"> 87</span>  <span class="keywordflow">while</span> ((c = (<span class="keywordtype">unsigned</span> <span class="keywordtype">char</span>)*str++) != <span class="charliteral">'\0'</span>) {</div><div class="line"><a name="l00088"></a><span class="lineno"> 88</span>  <span class="keywordtype">int</span> d = table[c];</div><div class="line"><a name="l00089"></a><span class="lineno"> 89</span>  <span class="keywordflow">if</span> (d == -1 || base <= d) {</div><div class="line"><a name="l00090"></a><span class="lineno"> 90</span>  *retlen = (str-1) - start;</div><div class="line"><a name="l00091"></a><span class="lineno"> 91</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00092"></a><span class="lineno"> 92</span>  }</div><div class="line"><a name="l00093"></a><span class="lineno"> 93</span>  <span class="keywordflow">if</span> (mul_overflow < ret)</div><div class="line"><a name="l00094"></a><span class="lineno"> 94</span>  *overflow = 1;</div><div class="line"><a name="l00095"></a><span class="lineno"> 95</span>  ret *= base;</div><div class="line"><a name="l00096"></a><span class="lineno"> 96</span>  x = ret;</div><div class="line"><a name="l00097"></a><span class="lineno"> 97</span>  ret += d;</div><div class="line"><a name="l00098"></a><span class="lineno"> 98</span>  <span class="keywordflow">if</span> (ret < x)</div><div class="line"><a name="l00099"></a><span class="lineno"> 99</span>  *overflow = 1;</div><div class="line"><a name="l00100"></a><span class="lineno"> 100</span>  }</div><div class="line"><a name="l00101"></a><span class="lineno"> 101</span>  *retlen = (str-1) - start;</div><div class="line"><a name="l00102"></a><span class="lineno"> 102</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00103"></a><span class="lineno"> 103</span> }</div><div class="line"><a name="l00104"></a><span class="lineno"> 104</span> </div><div class="line"><a name="l00105"></a><span class="lineno"> 105</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span></div><div class="line"><a name="l00106"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9c3e4ecad2eec019d25f50673456ba6f"> 106</a></span> <a class="code" href="../../de/df1/util_8c.html#a9c3e4ecad2eec019d25f50673456ba6f">ruby_strtoul</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">char</span> **endptr, <span class="keywordtype">int</span> base)</div><div class="line"><a name="l00107"></a><span class="lineno"> 107</span> {</div><div class="line"><a name="l00108"></a><span class="lineno"> 108</span>  <span class="keywordtype">int</span> c, b, overflow;</div><div class="line"><a name="l00109"></a><span class="lineno"> 109</span>  <span class="keywordtype">int</span> sign = 0;</div><div class="line"><a name="l00110"></a><span class="lineno"> 110</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div><div class="line"><a name="l00111"></a><span class="lineno"> 111</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> ret;</div><div class="line"><a name="l00112"></a><span class="lineno"> 112</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *subject_found = str;</div><div class="line"><a name="l00113"></a><span class="lineno"> 113</span> </div><div class="line"><a name="l00114"></a><span class="lineno"> 114</span>  <span class="keywordflow">if</span> (base == 1 || 36 < base) {</div><div class="line"><a name="l00115"></a><span class="lineno"> 115</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = EINVAL;</div><div class="line"><a name="l00116"></a><span class="lineno"> 116</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l00117"></a><span class="lineno"> 117</span>  }</div><div class="line"><a name="l00118"></a><span class="lineno"> 118</span> </div><div class="line"><a name="l00119"></a><span class="lineno"> 119</span>  <span class="keywordflow">while</span> ((c = *str) && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(c))</div><div class="line"><a name="l00120"></a><span class="lineno"> 120</span>  str++;</div><div class="line"><a name="l00121"></a><span class="lineno"> 121</span> </div><div class="line"><a name="l00122"></a><span class="lineno"> 122</span>  <span class="keywordflow">if</span> (c == <span class="charliteral">'+'</span>) {</div><div class="line"><a name="l00123"></a><span class="lineno"> 123</span>  sign = 1;</div><div class="line"><a name="l00124"></a><span class="lineno"> 124</span>  str++;</div><div class="line"><a name="l00125"></a><span class="lineno"> 125</span>  }</div><div class="line"><a name="l00126"></a><span class="lineno"> 126</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (c == <span class="charliteral">'-'</span>) {</div><div class="line"><a name="l00127"></a><span class="lineno"> 127</span>  sign = -1;</div><div class="line"><a name="l00128"></a><span class="lineno"> 128</span>  str++;</div><div class="line"><a name="l00129"></a><span class="lineno"> 129</span>  }</div><div class="line"><a name="l00130"></a><span class="lineno"> 130</span> </div><div class="line"><a name="l00131"></a><span class="lineno"> 131</span>  <span class="keywordflow">if</span> (str[0] == <span class="charliteral">'0'</span>) {</div><div class="line"><a name="l00132"></a><span class="lineno"> 132</span>  subject_found = str+1;</div><div class="line"><a name="l00133"></a><span class="lineno"> 133</span>  <span class="keywordflow">if</span> (base == 0 || base == 16) {</div><div class="line"><a name="l00134"></a><span class="lineno"> 134</span>  <span class="keywordflow">if</span> (str[1] == <span class="charliteral">'x'</span> || str[1] == <span class="charliteral">'X'</span>) {</div><div class="line"><a name="l00135"></a><span class="lineno"> 135</span>  b = 16;</div><div class="line"><a name="l00136"></a><span class="lineno"> 136</span>  str += 2;</div><div class="line"><a name="l00137"></a><span class="lineno"> 137</span>  }</div><div class="line"><a name="l00138"></a><span class="lineno"> 138</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00139"></a><span class="lineno"> 139</span>  b = base == 0 ? 8 : 16;</div><div class="line"><a name="l00140"></a><span class="lineno"> 140</span>  str++;</div><div class="line"><a name="l00141"></a><span class="lineno"> 141</span>  }</div><div class="line"><a name="l00142"></a><span class="lineno"> 142</span>  }</div><div class="line"><a name="l00143"></a><span class="lineno"> 143</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00144"></a><span class="lineno"> 144</span>  b = base;</div><div class="line"><a name="l00145"></a><span class="lineno"> 145</span>  str++;</div><div class="line"><a name="l00146"></a><span class="lineno"> 146</span>  }</div><div class="line"><a name="l00147"></a><span class="lineno"> 147</span>  }</div><div class="line"><a name="l00148"></a><span class="lineno"> 148</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00149"></a><span class="lineno"> 149</span>  b = base == 0 ? 10 : base;</div><div class="line"><a name="l00150"></a><span class="lineno"> 150</span>  }</div><div class="line"><a name="l00151"></a><span class="lineno"> 151</span> </div><div class="line"><a name="l00152"></a><span class="lineno"> 152</span>  ret = <a class="code" href="../../de/df1/util_8c.html#a49789619ab490f1b59a5e3b6f5a12593">scan_digits</a>(str, b, &<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>, &overflow);</div><div class="line"><a name="l00153"></a><span class="lineno"> 153</span> </div><div class="line"><a name="l00154"></a><span class="lineno"> 154</span>  <span class="keywordflow">if</span> (0 < <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>)</div><div class="line"><a name="l00155"></a><span class="lineno"> 155</span>  subject_found = str+<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div><div class="line"><a name="l00156"></a><span class="lineno"> 156</span> </div><div class="line"><a name="l00157"></a><span class="lineno"> 157</span>  <span class="keywordflow">if</span> (endptr)</div><div class="line"><a name="l00158"></a><span class="lineno"> 158</span>  *endptr = (<span class="keywordtype">char</span>*)subject_found;</div><div class="line"><a name="l00159"></a><span class="lineno"> 159</span> </div><div class="line"><a name="l00160"></a><span class="lineno"> 160</span>  <span class="keywordflow">if</span> (overflow) {</div><div class="line"><a name="l00161"></a><span class="lineno"> 161</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = ERANGE;</div><div class="line"><a name="l00162"></a><span class="lineno"> 162</span>  <span class="keywordflow">return</span> ULONG_MAX;</div><div class="line"><a name="l00163"></a><span class="lineno"> 163</span>  }</div><div class="line"><a name="l00164"></a><span class="lineno"> 164</span> </div><div class="line"><a name="l00165"></a><span class="lineno"> 165</span>  <span class="keywordflow">if</span> (sign < 0) {</div><div class="line"><a name="l00166"></a><span class="lineno"> 166</span>  ret = (<span class="keywordtype">unsigned</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)(-(<span class="keywordtype">long</span>)ret);</div><div class="line"><a name="l00167"></a><span class="lineno"> 167</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00168"></a><span class="lineno"> 168</span>  }</div><div class="line"><a name="l00169"></a><span class="lineno"> 169</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00170"></a><span class="lineno"> 170</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00171"></a><span class="lineno"> 171</span>  }</div><div class="line"><a name="l00172"></a><span class="lineno"> 172</span> }</div><div class="line"><a name="l00173"></a><span class="lineno"> 173</span> </div><div class="line"><a name="l00174"></a><span class="lineno"> 174</span> <span class="preprocessor">#include <sys/types.h></span></div><div class="line"><a name="l00175"></a><span class="lineno"> 175</span> <span class="preprocessor">#include <sys/stat.h></span></div><div class="line"><a name="l00176"></a><span class="lineno"> 176</span> <span class="preprocessor">#ifdef HAVE_UNISTD_H</span></div><div class="line"><a name="l00177"></a><span class="lineno"> 177</span> <span class="preprocessor">#include <unistd.h></span></div><div class="line"><a name="l00178"></a><span class="lineno"> 178</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00179"></a><span class="lineno"> 179</span> <span class="preprocessor">#if defined(HAVE_FCNTL_H)</span></div><div class="line"><a name="l00180"></a><span class="lineno"> 180</span> <span class="preprocessor">#include <fcntl.h></span></div><div class="line"><a name="l00181"></a><span class="lineno"> 181</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00182"></a><span class="lineno"> 182</span> </div><div class="line"><a name="l00183"></a><span class="lineno"> 183</span> <span class="preprocessor">#ifndef S_ISDIR</span></div><div class="line"><a name="l00184"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a70b64ed67c0ab484b4ba09487da34e91"> 184</a></span> <span class="preprocessor"># define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)</span></div><div class="line"><a name="l00185"></a><span class="lineno"> 185</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00186"></a><span class="lineno"> 186</span> </div><div class="line"><a name="l00187"></a><span class="lineno"> 187</span> </div><div class="line"><a name="l00188"></a><span class="lineno"> 188</span> <span class="comment">/* mm.c */</span></div><div class="line"><a name="l00189"></a><span class="lineno"> 189</span> </div><div class="line"><a name="l00190"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121"> 190</a></span> <span class="preprocessor">#define A ((int*)a)</span></div><div class="line"><a name="l00191"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10"> 191</a></span> <span class="preprocessor">#define B ((int*)b)</span></div><div class="line"><a name="l00192"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b"> 192</a></span> <span class="preprocessor">#define C ((int*)c)</span></div><div class="line"><a name="l00193"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af316c33cc298530f245e8b55330e86b5"> 193</a></span> <span class="preprocessor">#define D ((int*)d)</span></div><div class="line"><a name="l00194"></a><span class="lineno"> 194</span> </div><div class="line"><a name="l00195"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ad1cb12c7fed9a6ea098b7a4432b66ed8"> 195</a></span> <span class="preprocessor">#define mmprepare(base, size) do {\</span></div><div class="line"><a name="l00196"></a><span class="lineno"> 196</span> <span class="preprocessor"> if (((VALUE)(base) & (0x3)) == 0)\</span></div><div class="line"><a name="l00197"></a><span class="lineno"> 197</span> <span class="preprocessor"> if ((size) >= 16) mmkind = 1;\</span></div><div class="line"><a name="l00198"></a><span class="lineno"> 198</span> <span class="preprocessor"> else mmkind = 0;\</span></div><div class="line"><a name="l00199"></a><span class="lineno"> 199</span> <span class="preprocessor"> else mmkind = -1;\</span></div><div class="line"><a name="l00200"></a><span class="lineno"> 200</span> <span class="preprocessor"> high = ((size) & (~0xf));\</span></div><div class="line"><a name="l00201"></a><span class="lineno"> 201</span> <span class="preprocessor"> low = ((size) & 0x0c);\</span></div><div class="line"><a name="l00202"></a><span class="lineno"> 202</span> <span class="preprocessor">} while (0)\</span></div><div class="line"><a name="l00203"></a><span class="lineno"> 203</span> <span class="preprocessor"></span></div><div class="line"><a name="l00204"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#add256d98e7074d07ba85df19ee6c5633"> 204</a></span> <span class="preprocessor">#define mmarg mmkind, size, high, low</span></div><div class="line"><a name="l00205"></a><span class="lineno"> 205</span> </div><div class="line"><a name="l00206"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a399addec7e96fb94683a52a093e5512d"> 206</a></span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../de/df1/util_8c.html#a399addec7e96fb94683a52a093e5512d">mmswap_</a>(<span class="keyword">register</span> <span class="keywordtype">char</span> *a, <span class="keyword">register</span> <span class="keywordtype">char</span> *b, <span class="keywordtype">int</span> mmkind, <span class="keywordtype">size_t</span> <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>, <span class="keywordtype">size_t</span> high, <span class="keywordtype">size_t</span> low)</div><div class="line"><a name="l00207"></a><span class="lineno"> 207</span> {</div><div class="line"><a name="l00208"></a><span class="lineno"> 208</span>  <span class="keyword">register</span> <span class="keywordtype">int</span> s;</div><div class="line"><a name="l00209"></a><span class="lineno"> 209</span>  <span class="keywordflow">if</span> (a == b) <span class="keywordflow">return</span>;</div><div class="line"><a name="l00210"></a><span class="lineno"> 210</span>  <span class="keywordflow">if</span> (mmkind >= 0) {</div><div class="line"><a name="l00211"></a><span class="lineno"> 211</span>  <span class="keywordflow">if</span> (mmkind > 0) {</div><div class="line"><a name="l00212"></a><span class="lineno"> 212</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *t = a + high;</div><div class="line"><a name="l00213"></a><span class="lineno"> 213</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l00214"></a><span class="lineno"> 214</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0] = s;</div><div class="line"><a name="l00215"></a><span class="lineno"> 215</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1] = s;</div><div class="line"><a name="l00216"></a><span class="lineno"> 216</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2] = s;</div><div class="line"><a name="l00217"></a><span class="lineno"> 217</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[3]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[3] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[3]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[3] = s; a += 16; b += 16;</div><div class="line"><a name="l00218"></a><span class="lineno"> 218</span>  } <span class="keywordflow">while</span> (a < t);</div><div class="line"><a name="l00219"></a><span class="lineno"> 219</span>  }</div><div class="line"><a name="l00220"></a><span class="lineno"> 220</span>  <span class="keywordflow">if</span> (low != 0) { s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0] = s;</div><div class="line"><a name="l00221"></a><span class="lineno"> 221</span>  <span class="keywordflow">if</span> (low >= 8) { s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1] = s;</div><div class="line"><a name="l00222"></a><span class="lineno"> 222</span>  <span class="keywordflow">if</span> (low == 12) {s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2] = s;}}}</div><div class="line"><a name="l00223"></a><span class="lineno"> 223</span>  }</div><div class="line"><a name="l00224"></a><span class="lineno"> 224</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00225"></a><span class="lineno"> 225</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *t = a + <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>;</div><div class="line"><a name="l00226"></a><span class="lineno"> 226</span>  <span class="keywordflow">do</span> {s = *a; *a++ = *b; *b++ = s;} <span class="keywordflow">while</span> (a < t);</div><div class="line"><a name="l00227"></a><span class="lineno"> 227</span>  }</div><div class="line"><a name="l00228"></a><span class="lineno"> 228</span> }</div><div class="line"><a name="l00229"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de"> 229</a></span> <span class="preprocessor">#define mmswap(a,b) mmswap_((a),(b),mmarg)</span></div><div class="line"><a name="l00230"></a><span class="lineno"> 230</span> </div><div class="line"><a name="l00231"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a13258ad04a61012d19875fde32893fd1"> 231</a></span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../de/df1/util_8c.html#a13258ad04a61012d19875fde32893fd1">mmrot3_</a>(<span class="keyword">register</span> <span class="keywordtype">char</span> *a, <span class="keyword">register</span> <span class="keywordtype">char</span> *b, <span class="keyword">register</span> <span class="keywordtype">char</span> *c, <span class="keywordtype">int</span> mmkind, <span class="keywordtype">size_t</span> <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>, <span class="keywordtype">size_t</span> high, <span class="keywordtype">size_t</span> low)</div><div class="line"><a name="l00232"></a><span class="lineno"> 232</span> {</div><div class="line"><a name="l00233"></a><span class="lineno"> 233</span>  <span class="keyword">register</span> <span class="keywordtype">int</span> s;</div><div class="line"><a name="l00234"></a><span class="lineno"> 234</span>  <span class="keywordflow">if</span> (mmkind >= 0) {</div><div class="line"><a name="l00235"></a><span class="lineno"> 235</span>  <span class="keywordflow">if</span> (mmkind > 0) {</div><div class="line"><a name="l00236"></a><span class="lineno"> 236</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *t = a + high;</div><div class="line"><a name="l00237"></a><span class="lineno"> 237</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l00238"></a><span class="lineno"> 238</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[0]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[0] = s;</div><div class="line"><a name="l00239"></a><span class="lineno"> 239</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[1]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[1] = s;</div><div class="line"><a name="l00240"></a><span class="lineno"> 240</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[2]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[2] = s;</div><div class="line"><a name="l00241"></a><span class="lineno"> 241</span>  s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[3]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[3] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[3]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[3] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[3]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[3] = s; a += 16; b += 16; c += 16;</div><div class="line"><a name="l00242"></a><span class="lineno"> 242</span>  } <span class="keywordflow">while</span> (a < t);</div><div class="line"><a name="l00243"></a><span class="lineno"> 243</span>  }</div><div class="line"><a name="l00244"></a><span class="lineno"> 244</span>  <span class="keywordflow">if</span> (low != 0) { s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[0] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[0] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[0]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[0] = s;</div><div class="line"><a name="l00245"></a><span class="lineno"> 245</span>  <span class="keywordflow">if</span> (low >= 8) { s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[1] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[1] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[1]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[1] = s;</div><div class="line"><a name="l00246"></a><span class="lineno"> 246</span>  <span class="keywordflow">if</span> (low == 12) {s = <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a>[2] = <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2]; <a class="code" href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a>[2] = <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[2]; <a class="code" href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a>[2] = s;}}}</div><div class="line"><a name="l00247"></a><span class="lineno"> 247</span>  }</div><div class="line"><a name="l00248"></a><span class="lineno"> 248</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00249"></a><span class="lineno"> 249</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *t = a + <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>;</div><div class="line"><a name="l00250"></a><span class="lineno"> 250</span>  <span class="keywordflow">do</span> {s = *a; *a++ = *b; *b++ = *c; *c++ = s;} <span class="keywordflow">while</span> (a < t);</div><div class="line"><a name="l00251"></a><span class="lineno"> 251</span>  }</div><div class="line"><a name="l00252"></a><span class="lineno"> 252</span> }</div><div class="line"><a name="l00253"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aad99127d6afea8b64429276031c4e9d1"> 253</a></span> <span class="preprocessor">#define mmrot3(a,b,c) mmrot3_((a),(b),(c),mmarg)</span></div><div class="line"><a name="l00254"></a><span class="lineno"> 254</span> </div><div class="line"><a name="l00255"></a><span class="lineno"> 255</span> <span class="comment">/* qs6.c */</span></div><div class="line"><a name="l00256"></a><span class="lineno"> 256</span> <span class="comment">/*****************************************************/</span></div><div class="line"><a name="l00257"></a><span class="lineno"> 257</span> <span class="comment">/* */</span></div><div class="line"><a name="l00258"></a><span class="lineno"> 258</span> <span class="comment">/* qs6 (Quick sort function) */</span></div><div class="line"><a name="l00259"></a><span class="lineno"> 259</span> <span class="comment">/* */</span></div><div class="line"><a name="l00260"></a><span class="lineno"> 260</span> <span class="comment">/* by Tomoyuki Kawamura 1995.4.21 */</span></div><div class="line"><a name="l00261"></a><span class="lineno"> 261</span> <span class="comment">/* kawamura@tokuyama.ac.jp */</span></div><div class="line"><a name="l00262"></a><span class="lineno"> 262</span> <span class="comment">/*****************************************************/</span></div><div class="line"><a name="l00263"></a><span class="lineno"> 263</span> </div><div class="line"><a name="l00264"></a><span class="lineno"><a class="line" href="../../d6/dc4/structstack__node.html#a03bbb7c8599400bbc9007111502fb2e3"> 264</a></span> <span class="keyword">typedef</span> <span class="keyword">struct </span>{ <span class="keywordtype">char</span> *LL, *<a class="code" href="../../d6/dc4/structstack__node.html#a03bbb7c8599400bbc9007111502fb2e3">RR</a>; } <a class="code" href="../../d6/dc4/structstack__node.html">stack_node</a>; <span class="comment">/* Stack structure for L,l,R,r */</span></div><div class="line"><a name="l00265"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a7672c655e2032063f8a387b5e887e9ea"> 265</a></span> <span class="preprocessor">#define PUSH(ll,rr) do { top->LL = (ll); top->RR = (rr); ++top; } while (0) </span><span class="comment">/* Push L,l,R,r */</span><span class="preprocessor"></span></div><div class="line"><a name="l00266"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a7511246e9383c6f977262f72e2c97504"> 266</a></span> <span class="preprocessor">#define POP(ll,rr) do { --top; (ll) = top->LL; (rr) = top->RR; } while (0) </span><span class="comment">/* Pop L,l,R,r */</span><span class="preprocessor"></span></div><div class="line"><a name="l00267"></a><span class="lineno"> 267</span> </div><div class="line"><a name="l00268"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a29707662e44b4555806b7e10db37e229"> 268</a></span> <span class="preprocessor">#define med3(a,b,c) ((*cmp)((a),(b),d)<0 ? \</span></div><div class="line"><a name="l00269"></a><span class="lineno"> 269</span> <span class="preprocessor"> ((*cmp)((b),(c),d)<0 ? (b) : ((*cmp)((a),(c),d)<0 ? (c) : (a))) : \</span></div><div class="line"><a name="l00270"></a><span class="lineno"> 270</span> <span class="preprocessor"> ((*cmp)((b),(c),d)>0 ? (b) : ((*cmp)((a),(c),d)<0 ? (a) : (c))))</span></div><div class="line"><a name="l00271"></a><span class="lineno"> 271</span> </div><div class="line"><a name="l00272"></a><span class="lineno"> 272</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00273"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3c1e963e55f98f784bcbdc8391768b88"> 273</a></span> <a class="code" href="../../de/df1/util_8c.html#a3c1e963e55f98f784bcbdc8391768b88">ruby_qsort</a>(<span class="keywordtype">void</span>* base, <span class="keyword">const</span> <span class="keywordtype">size_t</span> nel, <span class="keyword">const</span> <span class="keywordtype">size_t</span> <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>,</div><div class="line"><a name="l00274"></a><span class="lineno"> 274</span>  <span class="keywordtype">int</span> (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(<span class="keyword">const</span> <span class="keywordtype">void</span>*, <span class="keyword">const</span> <span class="keywordtype">void</span>*, <span class="keywordtype">void</span>*), <span class="keywordtype">void</span> *d)</div><div class="line"><a name="l00275"></a><span class="lineno"> 275</span> {</div><div class="line"><a name="l00276"></a><span class="lineno"> 276</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *l, *r, *m; <span class="comment">/* l,r:left,right group m:median point */</span></div><div class="line"><a name="l00277"></a><span class="lineno"> 277</span>  <span class="keyword">register</span> <span class="keywordtype">int</span> t, eq_l, eq_r; <span class="comment">/* eq_l: all items in left group are equal to S */</span></div><div class="line"><a name="l00278"></a><span class="lineno"> 278</span>  <span class="keywordtype">char</span> *L = base; <span class="comment">/* left end of current region */</span></div><div class="line"><a name="l00279"></a><span class="lineno"> 279</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a> = (<span class="keywordtype">char</span>*)base + <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>*(nel-1); <span class="comment">/* right end of current region */</span></div><div class="line"><a name="l00280"></a><span class="lineno"> 280</span>  <span class="keywordtype">size_t</span> chklim = 63; <span class="comment">/* threshold of ordering element check */</span></div><div class="line"><a name="l00281"></a><span class="lineno"> 281</span>  <span class="keyword">enum</span> {size_bits = <span class="keyword">sizeof</span>(<a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>) * <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a308d9dd2c0028ddb184b455bbd7865de">CHAR_BIT</a>};</div><div class="line"><a name="l00282"></a><span class="lineno"> 282</span>  <a class="code" href="../../d6/dc4/structstack__node.html">stack_node</a> stack[size_bits]; <span class="comment">/* enough for size_t size */</span></div><div class="line"><a name="l00283"></a><span class="lineno"> 283</span>  <a class="code" href="../../d6/dc4/structstack__node.html">stack_node</a> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a3fdd42ea34070a54e696b3adc28c4be3">top</a> = stack;</div><div class="line"><a name="l00284"></a><span class="lineno"> 284</span>  <span class="keywordtype">int</span> mmkind;</div><div class="line"><a name="l00285"></a><span class="lineno"> 285</span>  <span class="keywordtype">size_t</span> high, low, n;</div><div class="line"><a name="l00286"></a><span class="lineno"> 286</span> </div><div class="line"><a name="l00287"></a><span class="lineno"> 287</span>  <span class="keywordflow">if</span> (nel <= 1) <span class="keywordflow">return</span>; <span class="comment">/* need not to sort */</span></div><div class="line"><a name="l00288"></a><span class="lineno"> 288</span>  <a class="code" href="../../de/df1/util_8c.html#ad1cb12c7fed9a6ea098b7a4432b66ed8">mmprepare</a>(base, <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>);</div><div class="line"><a name="l00289"></a><span class="lineno"> 289</span>  <span class="keywordflow">goto</span> start;</div><div class="line"><a name="l00290"></a><span class="lineno"> 290</span> </div><div class="line"><a name="l00291"></a><span class="lineno"> 291</span>  nxt:</div><div class="line"><a name="l00292"></a><span class="lineno"> 292</span>  <span class="keywordflow">if</span> (stack == <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a3fdd42ea34070a54e696b3adc28c4be3">top</a>) <span class="keywordflow">return</span>; <span class="comment">/* return if stack is empty */</span></div><div class="line"><a name="l00293"></a><span class="lineno"> 293</span>  <a class="code" href="../../de/df1/util_8c.html#a7511246e9383c6f977262f72e2c97504">POP</a>(L,<a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>);</div><div class="line"><a name="l00294"></a><span class="lineno"> 294</span> </div><div class="line"><a name="l00295"></a><span class="lineno"> 295</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00296"></a><span class="lineno"> 296</span>  start:</div><div class="line"><a name="l00297"></a><span class="lineno"> 297</span>  <span class="keywordflow">if</span> (L + <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a> == <a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>) { <span class="comment">/* 2 elements */</span></div><div class="line"><a name="l00298"></a><span class="lineno"> 298</span>  <span class="keywordflow">if</span> ((*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(L,<a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>,d) > 0) <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(L,<a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>); <span class="keywordflow">goto</span> nxt;</div><div class="line"><a name="l00299"></a><span class="lineno"> 299</span>  }</div><div class="line"><a name="l00300"></a><span class="lineno"> 300</span> </div><div class="line"><a name="l00301"></a><span class="lineno"> 301</span>  l = L; r = <a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>;</div><div class="line"><a name="l00302"></a><span class="lineno"> 302</span>  n = (r - l + <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>) / <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="comment">/* number of elements */</span></div><div class="line"><a name="l00303"></a><span class="lineno"> 303</span>  m = l + <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a> * (n >> 1); <span class="comment">/* calculate median value */</span></div><div class="line"><a name="l00304"></a><span class="lineno"> 304</span> </div><div class="line"><a name="l00305"></a><span class="lineno"> 305</span>  <span class="keywordflow">if</span> (n >= 60) {</div><div class="line"><a name="l00306"></a><span class="lineno"> 306</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *m1;</div><div class="line"><a name="l00307"></a><span class="lineno"> 307</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *m3;</div><div class="line"><a name="l00308"></a><span class="lineno"> 308</span>  <span class="keywordflow">if</span> (n >= 200) {</div><div class="line"><a name="l00309"></a><span class="lineno"> 309</span>  n = <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>*(n>>3); <span class="comment">/* number of bytes in splitting 8 */</span></div><div class="line"><a name="l00310"></a><span class="lineno"> 310</span>  {</div><div class="line"><a name="l00311"></a><span class="lineno"> 311</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *p1 = l + n;</div><div class="line"><a name="l00312"></a><span class="lineno"> 312</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *p2 = p1 + n;</div><div class="line"><a name="l00313"></a><span class="lineno"> 313</span>  <span class="keyword">register</span> <span class="keywordtype">char</span> *p3 = p2 + n;</div><div class="line"><a name="l00314"></a><span class="lineno"> 314</span>  m1 = <a class="code" href="../../de/df1/util_8c.html#a29707662e44b4555806b7e10db37e229">med3</a>(p1, p2, p3);</div><div class="line"><a name="l00315"></a><span class="lineno"> 315</span>  p1 = m + n;</div><div class="line"><a name="l00316"></a><span class="lineno"> 316</span>  p2 = p1 + n;</div><div class="line"><a name="l00317"></a><span class="lineno"> 317</span>  p3 = p2 + n;</div><div class="line"><a name="l00318"></a><span class="lineno"> 318</span>  m3 = <a class="code" href="../../de/df1/util_8c.html#a29707662e44b4555806b7e10db37e229">med3</a>(p1, p2, p3);</div><div class="line"><a name="l00319"></a><span class="lineno"> 319</span>  }</div><div class="line"><a name="l00320"></a><span class="lineno"> 320</span>  }</div><div class="line"><a name="l00321"></a><span class="lineno"> 321</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00322"></a><span class="lineno"> 322</span>  n = <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>*(n>>2); <span class="comment">/* number of bytes in splitting 4 */</span></div><div class="line"><a name="l00323"></a><span class="lineno"> 323</span>  m1 = l + n;</div><div class="line"><a name="l00324"></a><span class="lineno"> 324</span>  m3 = m + n;</div><div class="line"><a name="l00325"></a><span class="lineno"> 325</span>  }</div><div class="line"><a name="l00326"></a><span class="lineno"> 326</span>  m = <a class="code" href="../../de/df1/util_8c.html#a29707662e44b4555806b7e10db37e229">med3</a>(m1, m, m3);</div><div class="line"><a name="l00327"></a><span class="lineno"> 327</span>  }</div><div class="line"><a name="l00328"></a><span class="lineno"> 328</span> </div><div class="line"><a name="l00329"></a><span class="lineno"> 329</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(l,m,d)) < 0) { <span class="comment">/*3-5-?*/</span></div><div class="line"><a name="l00330"></a><span class="lineno"> 330</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(m,r,d)) < 0) { <span class="comment">/*3-5-7*/</span></div><div class="line"><a name="l00331"></a><span class="lineno"> 331</span>  <span class="keywordflow">if</span> (chklim && nel >= chklim) { <span class="comment">/* check if already ascending order */</span></div><div class="line"><a name="l00332"></a><span class="lineno"> 332</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>;</div><div class="line"><a name="l00333"></a><span class="lineno"> 333</span>  chklim = 0;</div><div class="line"><a name="l00334"></a><span class="lineno"> 334</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>=l; p<r; p+=size) if ((*cmp)(p,p+size,d) > 0) <span class="keywordflow">goto</span> <a class="code" href="../../d9/df5/date__strptime_8c.html#a73a3b169ac8c3419cbe15327e75ffcfd">fail</a>;</div><div class="line"><a name="l00335"></a><span class="lineno"> 335</span>  <span class="keywordflow">goto</span> nxt;</div><div class="line"><a name="l00336"></a><span class="lineno"> 336</span>  }</div><div class="line"><a name="l00337"></a><span class="lineno"> 337</span>  <a class="code" href="../../d9/df5/date__strptime_8c.html#a73a3b169ac8c3419cbe15327e75ffcfd">fail</a>: <span class="keywordflow">goto</span> loopA; <span class="comment">/*3-5-7*/</span></div><div class="line"><a name="l00338"></a><span class="lineno"> 338</span>  }</div><div class="line"><a name="l00339"></a><span class="lineno"> 339</span>  <span class="keywordflow">if</span> (t > 0) {</div><div class="line"><a name="l00340"></a><span class="lineno"> 340</span>  <span class="keywordflow">if</span> ((*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(l,r,d) <= 0) {<a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(m,r); <span class="keywordflow">goto</span> loopA;} <span class="comment">/*3-5-4*/</span></div><div class="line"><a name="l00341"></a><span class="lineno"> 341</span>  <a class="code" href="../../de/df1/util_8c.html#aad99127d6afea8b64429276031c4e9d1">mmrot3</a>(r,m,l); <span class="keywordflow">goto</span> loopA; <span class="comment">/*3-5-2*/</span></div><div class="line"><a name="l00342"></a><span class="lineno"> 342</span>  }</div><div class="line"><a name="l00343"></a><span class="lineno"> 343</span>  <span class="keywordflow">goto</span> loopB; <span class="comment">/*3-5-5*/</span></div><div class="line"><a name="l00344"></a><span class="lineno"> 344</span>  }</div><div class="line"><a name="l00345"></a><span class="lineno"> 345</span> </div><div class="line"><a name="l00346"></a><span class="lineno"> 346</span>  <span class="keywordflow">if</span> (t > 0) { <span class="comment">/*7-5-?*/</span></div><div class="line"><a name="l00347"></a><span class="lineno"> 347</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(m,r,d)) > 0) { <span class="comment">/*7-5-3*/</span></div><div class="line"><a name="l00348"></a><span class="lineno"> 348</span>  <span class="keywordflow">if</span> (chklim && nel >= chklim) { <span class="comment">/* check if already ascending order */</span></div><div class="line"><a name="l00349"></a><span class="lineno"> 349</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>;</div><div class="line"><a name="l00350"></a><span class="lineno"> 350</span>  chklim = 0;</div><div class="line"><a name="l00351"></a><span class="lineno"> 351</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>=l; <a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a><r; <a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>+=<a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>) <span class="keywordflow">if</span> ((*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(<a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>,<a class="code" href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a>+<a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>,d) < 0) <span class="keywordflow">goto</span> fail2;</div><div class="line"><a name="l00352"></a><span class="lineno"> 352</span>  <span class="keywordflow">while</span> (l<r) {<a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); l+=<a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; r-=<a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>;} <span class="comment">/* reverse region */</span></div><div class="line"><a name="l00353"></a><span class="lineno"> 353</span>  <span class="keywordflow">goto</span> nxt;</div><div class="line"><a name="l00354"></a><span class="lineno"> 354</span>  }</div><div class="line"><a name="l00355"></a><span class="lineno"> 355</span>  fail2: <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); <span class="keywordflow">goto</span> loopA; <span class="comment">/*7-5-3*/</span></div><div class="line"><a name="l00356"></a><span class="lineno"> 356</span>  }</div><div class="line"><a name="l00357"></a><span class="lineno"> 357</span>  <span class="keywordflow">if</span> (t < 0) {</div><div class="line"><a name="l00358"></a><span class="lineno"> 358</span>  <span class="keywordflow">if</span> ((*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(l,r,d) <= 0) {<a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,m); <span class="keywordflow">goto</span> loopB;} <span class="comment">/*7-5-8*/</span></div><div class="line"><a name="l00359"></a><span class="lineno"> 359</span>  <a class="code" href="../../de/df1/util_8c.html#aad99127d6afea8b64429276031c4e9d1">mmrot3</a>(l,m,r); <span class="keywordflow">goto</span> loopA; <span class="comment">/*7-5-6*/</span></div><div class="line"><a name="l00360"></a><span class="lineno"> 360</span>  }</div><div class="line"><a name="l00361"></a><span class="lineno"> 361</span>  <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); <span class="keywordflow">goto</span> loopA; <span class="comment">/*7-5-5*/</span></div><div class="line"><a name="l00362"></a><span class="lineno"> 362</span>  }</div><div class="line"><a name="l00363"></a><span class="lineno"> 363</span> </div><div class="line"><a name="l00364"></a><span class="lineno"> 364</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(m,r,d)) < 0) {<span class="keywordflow">goto</span> loopA;} <span class="comment">/*5-5-7*/</span></div><div class="line"><a name="l00365"></a><span class="lineno"> 365</span>  <span class="keywordflow">if</span> (t > 0) {<a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); <span class="keywordflow">goto</span> loopB;} <span class="comment">/*5-5-3*/</span></div><div class="line"><a name="l00366"></a><span class="lineno"> 366</span> </div><div class="line"><a name="l00367"></a><span class="lineno"> 367</span>  <span class="comment">/* determining splitting type in case 5-5-5 */</span> <span class="comment">/*5-5-5*/</span></div><div class="line"><a name="l00368"></a><span class="lineno"> 368</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00369"></a><span class="lineno"> 369</span>  <span class="keywordflow">if</span> ((l += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>) == r) <span class="keywordflow">goto</span> nxt; <span class="comment">/*5-5-5*/</span></div><div class="line"><a name="l00370"></a><span class="lineno"> 370</span>  <span class="keywordflow">if</span> (l == m) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l00371"></a><span class="lineno"> 371</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(l,m,d)) > 0) {<a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); l = L; <span class="keywordflow">goto</span> loopA;}<span class="comment">/*575-5*/</span></div><div class="line"><a name="l00372"></a><span class="lineno"> 372</span>  <span class="keywordflow">if</span> (t < 0) {<a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(L,l); l = L; <span class="keywordflow">goto</span> loopB;} <span class="comment">/*535-5*/</span></div><div class="line"><a name="l00373"></a><span class="lineno"> 373</span>  }</div><div class="line"><a name="l00374"></a><span class="lineno"> 374</span> </div><div class="line"><a name="l00375"></a><span class="lineno"> 375</span>  loopA: eq_l = 1; eq_r = 1; <span class="comment">/* splitting type A */</span> <span class="comment">/* left <= median < right */</span></div><div class="line"><a name="l00376"></a><span class="lineno"> 376</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00377"></a><span class="lineno"> 377</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00378"></a><span class="lineno"> 378</span>  <span class="keywordflow">if</span> ((l += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>) == r)</div><div class="line"><a name="l00379"></a><span class="lineno"> 379</span>  {l -= <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">if</span> (l != m) <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(m,l); l -= <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">goto</span> fin;}</div><div class="line"><a name="l00380"></a><span class="lineno"> 380</span>  <span class="keywordflow">if</span> (l == m) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l00381"></a><span class="lineno"> 381</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(l,m,d)) > 0) {eq_r = 0; <span class="keywordflow">break</span>;}</div><div class="line"><a name="l00382"></a><span class="lineno"> 382</span>  <span class="keywordflow">if</span> (t < 0) eq_l = 0;</div><div class="line"><a name="l00383"></a><span class="lineno"> 383</span>  }</div><div class="line"><a name="l00384"></a><span class="lineno"> 384</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00385"></a><span class="lineno"> 385</span>  <span class="keywordflow">if</span> (l == (r -= <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>))</div><div class="line"><a name="l00386"></a><span class="lineno"> 386</span>  {l -= <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">if</span> (l != m) <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(m,l); l -= <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">goto</span> fin;}</div><div class="line"><a name="l00387"></a><span class="lineno"> 387</span>  <span class="keywordflow">if</span> (r == m) {m = l; <span class="keywordflow">break</span>;}</div><div class="line"><a name="l00388"></a><span class="lineno"> 388</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(r,m,d)) < 0) {eq_l = 0; <span class="keywordflow">break</span>;}</div><div class="line"><a name="l00389"></a><span class="lineno"> 389</span>  <span class="keywordflow">if</span> (t == 0) <span class="keywordflow">break</span>;</div><div class="line"><a name="l00390"></a><span class="lineno"> 390</span>  }</div><div class="line"><a name="l00391"></a><span class="lineno"> 391</span>  <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); <span class="comment">/* swap left and right */</span></div><div class="line"><a name="l00392"></a><span class="lineno"> 392</span>  }</div><div class="line"><a name="l00393"></a><span class="lineno"> 393</span> </div><div class="line"><a name="l00394"></a><span class="lineno"> 394</span>  loopB: eq_l = 1; eq_r = 1; <span class="comment">/* splitting type B */</span> <span class="comment">/* left < median <= right */</span></div><div class="line"><a name="l00395"></a><span class="lineno"> 395</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00396"></a><span class="lineno"> 396</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00397"></a><span class="lineno"> 397</span>  <span class="keywordflow">if</span> (l == (r -= <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>))</div><div class="line"><a name="l00398"></a><span class="lineno"> 398</span>  {r += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">if</span> (r != m) <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(r,m); r += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">goto</span> fin;}</div><div class="line"><a name="l00399"></a><span class="lineno"> 399</span>  <span class="keywordflow">if</span> (r == m) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l00400"></a><span class="lineno"> 400</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(r,m,d)) < 0) {eq_l = 0; <span class="keywordflow">break</span>;}</div><div class="line"><a name="l00401"></a><span class="lineno"> 401</span>  <span class="keywordflow">if</span> (t > 0) eq_r = 0;</div><div class="line"><a name="l00402"></a><span class="lineno"> 402</span>  }</div><div class="line"><a name="l00403"></a><span class="lineno"> 403</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l00404"></a><span class="lineno"> 404</span>  <span class="keywordflow">if</span> ((l += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>) == r)</div><div class="line"><a name="l00405"></a><span class="lineno"> 405</span>  {r += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">if</span> (r != m) <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(r,m); r += <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>; <span class="keywordflow">goto</span> fin;}</div><div class="line"><a name="l00406"></a><span class="lineno"> 406</span>  <span class="keywordflow">if</span> (l == m) {m = r; <span class="keywordflow">break</span>;}</div><div class="line"><a name="l00407"></a><span class="lineno"> 407</span>  <span class="keywordflow">if</span> ((t = (*<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>)(l,m,d)) > 0) {eq_r = 0; <span class="keywordflow">break</span>;}</div><div class="line"><a name="l00408"></a><span class="lineno"> 408</span>  <span class="keywordflow">if</span> (t == 0) <span class="keywordflow">break</span>;</div><div class="line"><a name="l00409"></a><span class="lineno"> 409</span>  }</div><div class="line"><a name="l00410"></a><span class="lineno"> 410</span>  <a class="code" href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a>(l,r); <span class="comment">/* swap left and right */</span></div><div class="line"><a name="l00411"></a><span class="lineno"> 411</span>  }</div><div class="line"><a name="l00412"></a><span class="lineno"> 412</span> </div><div class="line"><a name="l00413"></a><span class="lineno"> 413</span>  fin:</div><div class="line"><a name="l00414"></a><span class="lineno"> 414</span>  <span class="keywordflow">if</span> (eq_l == 0) <span class="comment">/* need to sort left side */</span></div><div class="line"><a name="l00415"></a><span class="lineno"> 415</span>  <span class="keywordflow">if</span> (eq_r == 0) <span class="comment">/* need to sort right side */</span></div><div class="line"><a name="l00416"></a><span class="lineno"> 416</span>  <span class="keywordflow">if</span> (l-L < <a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>-r) {<a class="code" href="../../de/df1/util_8c.html#a7672c655e2032063f8a387b5e887e9ea">PUSH</a>(r,<a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a>); <a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a> = l;} <span class="comment">/* sort left side first */</span></div><div class="line"><a name="l00417"></a><span class="lineno"> 417</span>  <span class="keywordflow">else</span> {<a class="code" href="../../de/df1/util_8c.html#a7672c655e2032063f8a387b5e887e9ea">PUSH</a>(L,l); L = r;} <span class="comment">/* sort right side first */</span></div><div class="line"><a name="l00418"></a><span class="lineno"> 418</span>  <span class="keywordflow">else</span> <a class="code" href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a> = l; <span class="comment">/* need to sort left side only */</span></div><div class="line"><a name="l00419"></a><span class="lineno"> 419</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (eq_r == 0) L = r; <span class="comment">/* need to sort right side only */</span></div><div class="line"><a name="l00420"></a><span class="lineno"> 420</span>  <span class="keywordflow">else</span> <span class="keywordflow">goto</span> nxt; <span class="comment">/* need not to sort both sides */</span></div><div class="line"><a name="l00421"></a><span class="lineno"> 421</span>  }</div><div class="line"><a name="l00422"></a><span class="lineno"> 422</span> }</div><div class="line"><a name="l00423"></a><span class="lineno"> 423</span> </div><div class="line"><a name="l00424"></a><span class="lineno"> 424</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l00425"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a57b5174bb955510e4b50cd1fd84ed92a"> 425</a></span> <a class="code" href="../../de/df1/util_8c.html#a57b5174bb955510e4b50cd1fd84ed92a">ruby_strdup</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str)</div><div class="line"><a name="l00426"></a><span class="lineno"> 426</span> {</div><div class="line"><a name="l00427"></a><span class="lineno"> 427</span>  <span class="keywordtype">char</span> *tmp;</div><div class="line"><a name="l00428"></a><span class="lineno"> 428</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a> = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(str) + 1;</div><div class="line"><a name="l00429"></a><span class="lineno"> 429</span> </div><div class="line"><a name="l00430"></a><span class="lineno"> 430</span>  tmp = <a class="code" href="../../d8/db0/defines_8h.html#a6af5faec3f9662b20ffc9903f923dec0">xmalloc</a>(<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>);</div><div class="line"><a name="l00431"></a><span class="lineno"> 431</span>  memcpy(tmp, str, <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>);</div><div class="line"><a name="l00432"></a><span class="lineno"> 432</span> </div><div class="line"><a name="l00433"></a><span class="lineno"> 433</span>  <span class="keywordflow">return</span> tmp;</div><div class="line"><a name="l00434"></a><span class="lineno"> 434</span> }</div><div class="line"><a name="l00435"></a><span class="lineno"> 435</span> </div><div class="line"><a name="l00436"></a><span class="lineno"> 436</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l00437"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9a431d5ed7fad39e62d7c7cce764c865"> 437</a></span> <a class="code" href="../../de/df1/util_8c.html#a9a431d5ed7fad39e62d7c7cce764c865">ruby_getcwd</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l00438"></a><span class="lineno"> 438</span> {</div><div class="line"><a name="l00439"></a><span class="lineno"> 439</span> <span class="preprocessor">#ifdef HAVE_GETCWD</span></div><div class="line"><a name="l00440"></a><span class="lineno"> 440</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a> = 200;</div><div class="line"><a name="l00441"></a><span class="lineno"> 441</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../d8/db0/defines_8h.html#a6af5faec3f9662b20ffc9903f923dec0">xmalloc</a>(<a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>);</div><div class="line"><a name="l00442"></a><span class="lineno"> 442</span> </div><div class="line"><a name="l00443"></a><span class="lineno"> 443</span>  <span class="keywordflow">while</span> (!getcwd(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>)) {</div><div class="line"><a name="l00444"></a><span class="lineno"> 444</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> != ERANGE) {</div><div class="line"><a name="l00445"></a><span class="lineno"> 445</span>  <a class="code" href="../../d8/db0/defines_8h.html#afca9b96f6a61eebbcdd7e6b3fc31ed97">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l00446"></a><span class="lineno"> 446</span>  <a class="code" href="../../db/dcc/error_8c.html#aec0502b6d84cff19bb2071d1386ff177">rb_sys_fail</a>(<span class="stringliteral">"getcwd"</span>);</div><div class="line"><a name="l00447"></a><span class="lineno"> 447</span>  }</div><div class="line"><a name="l00448"></a><span class="lineno"> 448</span>  <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a> *= 2;</div><div class="line"><a name="l00449"></a><span class="lineno"> 449</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../d8/db0/defines_8h.html#a40740062faf2d95d4935112447c464ef">xrealloc</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>);</div><div class="line"><a name="l00450"></a><span class="lineno"> 450</span>  }</div><div class="line"><a name="l00451"></a><span class="lineno"> 451</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00452"></a><span class="lineno"> 452</span> <span class="preprocessor"># ifndef PATH_MAX</span></div><div class="line"><a name="l00453"></a><span class="lineno"> 453</span> <span class="preprocessor"># define PATH_MAX 8192</span></div><div class="line"><a name="l00454"></a><span class="lineno"> 454</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00455"></a><span class="lineno"> 455</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../d8/db0/defines_8h.html#a6af5faec3f9662b20ffc9903f923dec0">xmalloc</a>(<a class="code" href="../../de/df1/util_8c.html#ae688d728e1acdfe5988c7db45d6f0166">PATH_MAX</a>+1);</div><div class="line"><a name="l00456"></a><span class="lineno"> 456</span> </div><div class="line"><a name="l00457"></a><span class="lineno"> 457</span>  <span class="keywordflow">if</span> (!getwd(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>)) {</div><div class="line"><a name="l00458"></a><span class="lineno"> 458</span>  <a class="code" href="../../d8/db0/defines_8h.html#afca9b96f6a61eebbcdd7e6b3fc31ed97">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l00459"></a><span class="lineno"> 459</span>  <a class="code" href="../../db/dcc/error_8c.html#aec0502b6d84cff19bb2071d1386ff177">rb_sys_fail</a>(<span class="stringliteral">"getwd"</span>);</div><div class="line"><a name="l00460"></a><span class="lineno"> 460</span>  }</div><div class="line"><a name="l00461"></a><span class="lineno"> 461</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00462"></a><span class="lineno"> 462</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l00463"></a><span class="lineno"> 463</span> }</div><div class="line"><a name="l00464"></a><span class="lineno"> 464</span> </div><div class="line"><a name="l00465"></a><span class="lineno"> 465</span> <span class="comment">/****************************************************************</span></div><div class="line"><a name="l00466"></a><span class="lineno"> 466</span> <span class="comment"> *</span></div><div class="line"><a name="l00467"></a><span class="lineno"> 467</span> <span class="comment"> * The author of this software is David M. Gay.</span></div><div class="line"><a name="l00468"></a><span class="lineno"> 468</span> <span class="comment"> *</span></div><div class="line"><a name="l00469"></a><span class="lineno"> 469</span> <span class="comment"> * Copyright (c) 1991, 2000, 2001 by Lucent Technologies.</span></div><div class="line"><a name="l00470"></a><span class="lineno"> 470</span> <span class="comment"> *</span></div><div class="line"><a name="l00471"></a><span class="lineno"> 471</span> <span class="comment"> * Permission to use, copy, modify, and distribute this software for any</span></div><div class="line"><a name="l00472"></a><span class="lineno"> 472</span> <span class="comment"> * purpose without fee is hereby granted, provided that this entire notice</span></div><div class="line"><a name="l00473"></a><span class="lineno"> 473</span> <span class="comment"> * is included in all copies of any software which is or includes a copy</span></div><div class="line"><a name="l00474"></a><span class="lineno"> 474</span> <span class="comment"> * or modification of this software and in all copies of the supporting</span></div><div class="line"><a name="l00475"></a><span class="lineno"> 475</span> <span class="comment"> * documentation for such software.</span></div><div class="line"><a name="l00476"></a><span class="lineno"> 476</span> <span class="comment"> *</span></div><div class="line"><a name="l00477"></a><span class="lineno"> 477</span> <span class="comment"> * THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED</span></div><div class="line"><a name="l00478"></a><span class="lineno"> 478</span> <span class="comment"> * WARRANTY. IN PARTICULAR, NEITHER THE AUTHOR NOR LUCENT MAKES ANY</span></div><div class="line"><a name="l00479"></a><span class="lineno"> 479</span> <span class="comment"> * REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE MERCHANTABILITY</span></div><div class="line"><a name="l00480"></a><span class="lineno"> 480</span> <span class="comment"> * OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR PURPOSE.</span></div><div class="line"><a name="l00481"></a><span class="lineno"> 481</span> <span class="comment"> *</span></div><div class="line"><a name="l00482"></a><span class="lineno"> 482</span> <span class="comment"> ***************************************************************/</span></div><div class="line"><a name="l00483"></a><span class="lineno"> 483</span> </div><div class="line"><a name="l00484"></a><span class="lineno"> 484</span> <span class="comment">/* Please send bug reports to David M. Gay (dmg at acm dot org,</span></div><div class="line"><a name="l00485"></a><span class="lineno"> 485</span> <span class="comment"> * with " at " changed at "@" and " dot " changed to "."). */</span></div><div class="line"><a name="l00486"></a><span class="lineno"> 486</span> </div><div class="line"><a name="l00487"></a><span class="lineno"> 487</span> <span class="comment">/* On a machine with IEEE extended-precision registers, it is</span></div><div class="line"><a name="l00488"></a><span class="lineno"> 488</span> <span class="comment"> * necessary to specify double-precision (53-bit) rounding precision</span></div><div class="line"><a name="l00489"></a><span class="lineno"> 489</span> <span class="comment"> * before invoking strtod or dtoa. If the machine uses (the equivalent</span></div><div class="line"><a name="l00490"></a><span class="lineno"> 490</span> <span class="comment"> * of) Intel 80x87 arithmetic, the call</span></div><div class="line"><a name="l00491"></a><span class="lineno"> 491</span> <span class="comment"> * _control87(PC_53, MCW_PC);</span></div><div class="line"><a name="l00492"></a><span class="lineno"> 492</span> <span class="comment"> * does this with many compilers. Whether this or another call is</span></div><div class="line"><a name="l00493"></a><span class="lineno"> 493</span> <span class="comment"> * appropriate depends on the compiler; for this to work, it may be</span></div><div class="line"><a name="l00494"></a><span class="lineno"> 494</span> <span class="comment"> * necessary to #include "float.h" or another system-dependent header</span></div><div class="line"><a name="l00495"></a><span class="lineno"> 495</span> <span class="comment"> * file.</span></div><div class="line"><a name="l00496"></a><span class="lineno"> 496</span> <span class="comment"> */</span></div><div class="line"><a name="l00497"></a><span class="lineno"> 497</span> </div><div class="line"><a name="l00498"></a><span class="lineno"> 498</span> <span class="comment">/* strtod for IEEE-, VAX-, and IBM-arithmetic machines.</span></div><div class="line"><a name="l00499"></a><span class="lineno"> 499</span> <span class="comment"> *</span></div><div class="line"><a name="l00500"></a><span class="lineno"> 500</span> <span class="comment"> * This strtod returns a nearest machine number to the input decimal</span></div><div class="line"><a name="l00501"></a><span class="lineno"> 501</span> <span class="comment"> * string (or sets errno to ERANGE). With IEEE arithmetic, ties are</span></div><div class="line"><a name="l00502"></a><span class="lineno"> 502</span> <span class="comment"> * broken by the IEEE round-even rule. Otherwise ties are broken by</span></div><div class="line"><a name="l00503"></a><span class="lineno"> 503</span> <span class="comment"> * biased rounding (add half and chop).</span></div><div class="line"><a name="l00504"></a><span class="lineno"> 504</span> <span class="comment"> *</span></div><div class="line"><a name="l00505"></a><span class="lineno"> 505</span> <span class="comment"> * Inspired loosely by William D. Clinger's paper "How to Read Floating</span></div><div class="line"><a name="l00506"></a><span class="lineno"> 506</span> <span class="comment"> * Point Numbers Accurately" [Proc. ACM SIGPLAN '90, pp. 92-101].</span></div><div class="line"><a name="l00507"></a><span class="lineno"> 507</span> <span class="comment"> *</span></div><div class="line"><a name="l00508"></a><span class="lineno"> 508</span> <span class="comment"> * Modifications:</span></div><div class="line"><a name="l00509"></a><span class="lineno"> 509</span> <span class="comment"> *</span></div><div class="line"><a name="l00510"></a><span class="lineno"> 510</span> <span class="comment"> * 1. We only require IEEE, IBM, or VAX double-precision</span></div><div class="line"><a name="l00511"></a><span class="lineno"> 511</span> <span class="comment"> * arithmetic (not IEEE double-extended).</span></div><div class="line"><a name="l00512"></a><span class="lineno"> 512</span> <span class="comment"> * 2. We get by with floating-point arithmetic in a case that</span></div><div class="line"><a name="l00513"></a><span class="lineno"> 513</span> <span class="comment"> * Clinger missed -- when we're computing d * 10^n</span></div><div class="line"><a name="l00514"></a><span class="lineno"> 514</span> <span class="comment"> * for a small integer d and the integer n is not too</span></div><div class="line"><a name="l00515"></a><span class="lineno"> 515</span> <span class="comment"> * much larger than 22 (the maximum integer k for which</span></div><div class="line"><a name="l00516"></a><span class="lineno"> 516</span> <span class="comment"> * we can represent 10^k exactly), we may be able to</span></div><div class="line"><a name="l00517"></a><span class="lineno"> 517</span> <span class="comment"> * compute (d*10^k) * 10^(e-k) with just one roundoff.</span></div><div class="line"><a name="l00518"></a><span class="lineno"> 518</span> <span class="comment"> * 3. Rather than a bit-at-a-time adjustment of the binary</span></div><div class="line"><a name="l00519"></a><span class="lineno"> 519</span> <span class="comment"> * result in the hard case, we use floating-point</span></div><div class="line"><a name="l00520"></a><span class="lineno"> 520</span> <span class="comment"> * arithmetic to determine the adjustment to within</span></div><div class="line"><a name="l00521"></a><span class="lineno"> 521</span> <span class="comment"> * one bit; only in really hard cases do we need to</span></div><div class="line"><a name="l00522"></a><span class="lineno"> 522</span> <span class="comment"> * compute a second residual.</span></div><div class="line"><a name="l00523"></a><span class="lineno"> 523</span> <span class="comment"> * 4. Because of 3., we don't need a large table of powers of 10</span></div><div class="line"><a name="l00524"></a><span class="lineno"> 524</span> <span class="comment"> * for ten-to-e (just some small tables, e.g. of 10^k</span></div><div class="line"><a name="l00525"></a><span class="lineno"> 525</span> <span class="comment"> * for 0 <= k <= 22).</span></div><div class="line"><a name="l00526"></a><span class="lineno"> 526</span> <span class="comment"> */</span></div><div class="line"><a name="l00527"></a><span class="lineno"> 527</span> </div><div class="line"><a name="l00528"></a><span class="lineno"> 528</span> <span class="comment">/*</span></div><div class="line"><a name="l00529"></a><span class="lineno"> 529</span> <span class="comment"> * #define IEEE_LITTLE_ENDIAN for IEEE-arithmetic machines where the least</span></div><div class="line"><a name="l00530"></a><span class="lineno"> 530</span> <span class="comment"> * significant byte has the lowest address.</span></div><div class="line"><a name="l00531"></a><span class="lineno"> 531</span> <span class="comment"> * #define IEEE_BIG_ENDIAN for IEEE-arithmetic machines where the most</span></div><div class="line"><a name="l00532"></a><span class="lineno"> 532</span> <span class="comment"> * significant byte has the lowest address.</span></div><div class="line"><a name="l00533"></a><span class="lineno"> 533</span> <span class="comment"> * #define Long int on machines with 32-bit ints and 64-bit longs.</span></div><div class="line"><a name="l00534"></a><span class="lineno"> 534</span> <span class="comment"> * #define IBM for IBM mainframe-style floating-point arithmetic.</span></div><div class="line"><a name="l00535"></a><span class="lineno"> 535</span> <span class="comment"> * #define VAX for VAX-style floating-point arithmetic (D_floating).</span></div><div class="line"><a name="l00536"></a><span class="lineno"> 536</span> <span class="comment"> * #define No_leftright to omit left-right logic in fast floating-point</span></div><div class="line"><a name="l00537"></a><span class="lineno"> 537</span> <span class="comment"> * computation of dtoa.</span></div><div class="line"><a name="l00538"></a><span class="lineno"> 538</span> <span class="comment"> * #define Honor_FLT_ROUNDS if FLT_ROUNDS can assume the values 2 or 3</span></div><div class="line"><a name="l00539"></a><span class="lineno"> 539</span> <span class="comment"> * and strtod and dtoa should round accordingly.</span></div><div class="line"><a name="l00540"></a><span class="lineno"> 540</span> <span class="comment"> * #define Check_FLT_ROUNDS if FLT_ROUNDS can assume the values 2 or 3</span></div><div class="line"><a name="l00541"></a><span class="lineno"> 541</span> <span class="comment"> * and Honor_FLT_ROUNDS is not #defined.</span></div><div class="line"><a name="l00542"></a><span class="lineno"> 542</span> <span class="comment"> * #define RND_PRODQUOT to use rnd_prod and rnd_quot (assembly routines</span></div><div class="line"><a name="l00543"></a><span class="lineno"> 543</span> <span class="comment"> * that use extended-precision instructions to compute rounded</span></div><div class="line"><a name="l00544"></a><span class="lineno"> 544</span> <span class="comment"> * products and quotients) with IBM.</span></div><div class="line"><a name="l00545"></a><span class="lineno"> 545</span> <span class="comment"> * #define ROUND_BIASED for IEEE-format with biased rounding.</span></div><div class="line"><a name="l00546"></a><span class="lineno"> 546</span> <span class="comment"> * #define Inaccurate_Divide for IEEE-format with correctly rounded</span></div><div class="line"><a name="l00547"></a><span class="lineno"> 547</span> <span class="comment"> * products but inaccurate quotients, e.g., for Intel i860.</span></div><div class="line"><a name="l00548"></a><span class="lineno"> 548</span> <span class="comment"> * #define NO_LONG_LONG on machines that do not have a "long long"</span></div><div class="line"><a name="l00549"></a><span class="lineno"> 549</span> <span class="comment"> * integer type (of >= 64 bits). On such machines, you can</span></div><div class="line"><a name="l00550"></a><span class="lineno"> 550</span> <span class="comment"> * #define Just_16 to store 16 bits per 32-bit Long when doing</span></div><div class="line"><a name="l00551"></a><span class="lineno"> 551</span> <span class="comment"> * high-precision integer arithmetic. Whether this speeds things</span></div><div class="line"><a name="l00552"></a><span class="lineno"> 552</span> <span class="comment"> * up or slows things down depends on the machine and the number</span></div><div class="line"><a name="l00553"></a><span class="lineno"> 553</span> <span class="comment"> * being converted. If long long is available and the name is</span></div><div class="line"><a name="l00554"></a><span class="lineno"> 554</span> <span class="comment"> * something other than "long long", #define Llong to be the name,</span></div><div class="line"><a name="l00555"></a><span class="lineno"> 555</span> <span class="comment"> * and if "unsigned Llong" does not work as an unsigned version of</span></div><div class="line"><a name="l00556"></a><span class="lineno"> 556</span> <span class="comment"> * Llong, #define #ULLong to be the corresponding unsigned type.</span></div><div class="line"><a name="l00557"></a><span class="lineno"> 557</span> <span class="comment"> * #define KR_headers for old-style C function headers.</span></div><div class="line"><a name="l00558"></a><span class="lineno"> 558</span> <span class="comment"> * #define Bad_float_h if your system lacks a float.h or if it does not</span></div><div class="line"><a name="l00559"></a><span class="lineno"> 559</span> <span class="comment"> * define some or all of DBL_DIG, DBL_MAX_10_EXP, DBL_MAX_EXP,</span></div><div class="line"><a name="l00560"></a><span class="lineno"> 560</span> <span class="comment"> * FLT_RADIX, FLT_ROUNDS, and DBL_MAX.</span></div><div class="line"><a name="l00561"></a><span class="lineno"> 561</span> <span class="comment"> * #define MALLOC your_malloc, where your_malloc(n) acts like malloc(n)</span></div><div class="line"><a name="l00562"></a><span class="lineno"> 562</span> <span class="comment"> * if memory is available and otherwise does something you deem</span></div><div class="line"><a name="l00563"></a><span class="lineno"> 563</span> <span class="comment"> * appropriate. If MALLOC is undefined, malloc will be invoked</span></div><div class="line"><a name="l00564"></a><span class="lineno"> 564</span> <span class="comment"> * directly -- and assumed always to succeed.</span></div><div class="line"><a name="l00565"></a><span class="lineno"> 565</span> <span class="comment"> * #define Omit_Private_Memory to omit logic (added Jan. 1998) for making</span></div><div class="line"><a name="l00566"></a><span class="lineno"> 566</span> <span class="comment"> * memory allocations from a private pool of memory when possible.</span></div><div class="line"><a name="l00567"></a><span class="lineno"> 567</span> <span class="comment"> * When used, the private pool is PRIVATE_MEM bytes long: 2304 bytes,</span></div><div class="line"><a name="l00568"></a><span class="lineno"> 568</span> <span class="comment"> * unless #defined to be a different length. This default length</span></div><div class="line"><a name="l00569"></a><span class="lineno"> 569</span> <span class="comment"> * suffices to get rid of MALLOC calls except for unusual cases,</span></div><div class="line"><a name="l00570"></a><span class="lineno"> 570</span> <span class="comment"> * such as decimal-to-binary conversion of a very long string of</span></div><div class="line"><a name="l00571"></a><span class="lineno"> 571</span> <span class="comment"> * digits. The longest string dtoa can return is about 751 bytes</span></div><div class="line"><a name="l00572"></a><span class="lineno"> 572</span> <span class="comment"> * long. For conversions by strtod of strings of 800 digits and</span></div><div class="line"><a name="l00573"></a><span class="lineno"> 573</span> <span class="comment"> * all dtoa conversions in single-threaded executions with 8-byte</span></div><div class="line"><a name="l00574"></a><span class="lineno"> 574</span> <span class="comment"> * pointers, PRIVATE_MEM >= 7400 appears to suffice; with 4-byte</span></div><div class="line"><a name="l00575"></a><span class="lineno"> 575</span> <span class="comment"> * pointers, PRIVATE_MEM >= 7112 appears adequate.</span></div><div class="line"><a name="l00576"></a><span class="lineno"> 576</span> <span class="comment"> * #define INFNAN_CHECK on IEEE systems to cause strtod to check for</span></div><div class="line"><a name="l00577"></a><span class="lineno"> 577</span> <span class="comment"> * Infinity and NaN (case insensitively). On some systems (e.g.,</span></div><div class="line"><a name="l00578"></a><span class="lineno"> 578</span> <span class="comment"> * some HP systems), it may be necessary to #define NAN_WORD0</span></div><div class="line"><a name="l00579"></a><span class="lineno"> 579</span> <span class="comment"> * appropriately -- to the most significant word of a quiet NaN.</span></div><div class="line"><a name="l00580"></a><span class="lineno"> 580</span> <span class="comment"> * (On HP Series 700/800 machines, -DNAN_WORD0=0x7ff40000 works.)</span></div><div class="line"><a name="l00581"></a><span class="lineno"> 581</span> <span class="comment"> * When INFNAN_CHECK is #defined and No_Hex_NaN is not #defined,</span></div><div class="line"><a name="l00582"></a><span class="lineno"> 582</span> <span class="comment"> * strtod also accepts (case insensitively) strings of the form</span></div><div class="line"><a name="l00583"></a><span class="lineno"> 583</span> <span class="comment"> * NaN(x), where x is a string of hexadecimal digits and spaces;</span></div><div class="line"><a name="l00584"></a><span class="lineno"> 584</span> <span class="comment"> * if there is only one string of hexadecimal digits, it is taken</span></div><div class="line"><a name="l00585"></a><span class="lineno"> 585</span> <span class="comment"> * for the 52 fraction bits of the resulting NaN; if there are two</span></div><div class="line"><a name="l00586"></a><span class="lineno"> 586</span> <span class="comment"> * or more strings of hex digits, the first is for the high 20 bits,</span></div><div class="line"><a name="l00587"></a><span class="lineno"> 587</span> <span class="comment"> * the second and subsequent for the low 32 bits, with intervening</span></div><div class="line"><a name="l00588"></a><span class="lineno"> 588</span> <span class="comment"> * white space ignored; but if this results in none of the 52</span></div><div class="line"><a name="l00589"></a><span class="lineno"> 589</span> <span class="comment"> * fraction bits being on (an IEEE Infinity symbol), then NAN_WORD0</span></div><div class="line"><a name="l00590"></a><span class="lineno"> 590</span> <span class="comment"> * and NAN_WORD1 are used instead.</span></div><div class="line"><a name="l00591"></a><span class="lineno"> 591</span> <span class="comment"> * #define MULTIPLE_THREADS if the system offers preemptively scheduled</span></div><div class="line"><a name="l00592"></a><span class="lineno"> 592</span> <span class="comment"> * multiple threads. In this case, you must provide (or suitably</span></div><div class="line"><a name="l00593"></a><span class="lineno"> 593</span> <span class="comment"> * #define) two locks, acquired by ACQUIRE_DTOA_LOCK(n) and freed</span></div><div class="line"><a name="l00594"></a><span class="lineno"> 594</span> <span class="comment"> * by FREE_DTOA_LOCK(n) for n = 0 or 1. (The second lock, accessed</span></div><div class="line"><a name="l00595"></a><span class="lineno"> 595</span> <span class="comment"> * in pow5mult, ensures lazy evaluation of only one copy of high</span></div><div class="line"><a name="l00596"></a><span class="lineno"> 596</span> <span class="comment"> * powers of 5; omitting this lock would introduce a small</span></div><div class="line"><a name="l00597"></a><span class="lineno"> 597</span> <span class="comment"> * probability of wasting memory, but would otherwise be harmless.)</span></div><div class="line"><a name="l00598"></a><span class="lineno"> 598</span> <span class="comment"> * You must also invoke freedtoa(s) to free the value s returned by</span></div><div class="line"><a name="l00599"></a><span class="lineno"> 599</span> <span class="comment"> * dtoa. You may do so whether or not MULTIPLE_THREADS is #defined.</span></div><div class="line"><a name="l00600"></a><span class="lineno"> 600</span> <span class="comment"> * #define NO_IEEE_Scale to disable new (Feb. 1997) logic in strtod that</span></div><div class="line"><a name="l00601"></a><span class="lineno"> 601</span> <span class="comment"> * avoids underflows on inputs whose result does not underflow.</span></div><div class="line"><a name="l00602"></a><span class="lineno"> 602</span> <span class="comment"> * If you #define NO_IEEE_Scale on a machine that uses IEEE-format</span></div><div class="line"><a name="l00603"></a><span class="lineno"> 603</span> <span class="comment"> * floating-point numbers and flushes underflows to zero rather</span></div><div class="line"><a name="l00604"></a><span class="lineno"> 604</span> <span class="comment"> * than implementing gradual underflow, then you must also #define</span></div><div class="line"><a name="l00605"></a><span class="lineno"> 605</span> <span class="comment"> * Sudden_Underflow.</span></div><div class="line"><a name="l00606"></a><span class="lineno"> 606</span> <span class="comment"> * #define YES_ALIAS to permit aliasing certain double values with</span></div><div class="line"><a name="l00607"></a><span class="lineno"> 607</span> <span class="comment"> * arrays of ULongs. This leads to slightly better code with</span></div><div class="line"><a name="l00608"></a><span class="lineno"> 608</span> <span class="comment"> * some compilers and was always used prior to 19990916, but it</span></div><div class="line"><a name="l00609"></a><span class="lineno"> 609</span> <span class="comment"> * is not strictly legal and can cause trouble with aggressively</span></div><div class="line"><a name="l00610"></a><span class="lineno"> 610</span> <span class="comment"> * optimizing compilers (e.g., gcc 2.95.1 under -O2).</span></div><div class="line"><a name="l00611"></a><span class="lineno"> 611</span> <span class="comment"> * #define USE_LOCALE to use the current locale's decimal_point value.</span></div><div class="line"><a name="l00612"></a><span class="lineno"> 612</span> <span class="comment"> * #define SET_INEXACT if IEEE arithmetic is being used and extra</span></div><div class="line"><a name="l00613"></a><span class="lineno"> 613</span> <span class="comment"> * computation should be done to set the inexact flag when the</span></div><div class="line"><a name="l00614"></a><span class="lineno"> 614</span> <span class="comment"> * result is inexact and avoid setting inexact when the result</span></div><div class="line"><a name="l00615"></a><span class="lineno"> 615</span> <span class="comment"> * is exact. In this case, dtoa.c must be compiled in</span></div><div class="line"><a name="l00616"></a><span class="lineno"> 616</span> <span class="comment"> * an environment, perhaps provided by #include "dtoa.c" in a</span></div><div class="line"><a name="l00617"></a><span class="lineno"> 617</span> <span class="comment"> * suitable wrapper, that defines two functions,</span></div><div class="line"><a name="l00618"></a><span class="lineno"> 618</span> <span class="comment"> * int get_inexact(void);</span></div><div class="line"><a name="l00619"></a><span class="lineno"> 619</span> <span class="comment"> * void clear_inexact(void);</span></div><div class="line"><a name="l00620"></a><span class="lineno"> 620</span> <span class="comment"> * such that get_inexact() returns a nonzero value if the</span></div><div class="line"><a name="l00621"></a><span class="lineno"> 621</span> <span class="comment"> * inexact bit is already set, and clear_inexact() sets the</span></div><div class="line"><a name="l00622"></a><span class="lineno"> 622</span> <span class="comment"> * inexact bit to 0. When SET_INEXACT is #defined, strtod</span></div><div class="line"><a name="l00623"></a><span class="lineno"> 623</span> <span class="comment"> * also does extra computations to set the underflow and overflow</span></div><div class="line"><a name="l00624"></a><span class="lineno"> 624</span> <span class="comment"> * flags when appropriate (i.e., when the result is tiny and</span></div><div class="line"><a name="l00625"></a><span class="lineno"> 625</span> <span class="comment"> * inexact or when it is a numeric value rounded to +-infinity).</span></div><div class="line"><a name="l00626"></a><span class="lineno"> 626</span> <span class="comment"> * #define NO_ERRNO if strtod should not assign errno = ERANGE when</span></div><div class="line"><a name="l00627"></a><span class="lineno"> 627</span> <span class="comment"> * the result overflows to +-Infinity or underflows to 0.</span></div><div class="line"><a name="l00628"></a><span class="lineno"> 628</span> <span class="comment"> */</span></div><div class="line"><a name="l00629"></a><span class="lineno"> 629</span> </div><div class="line"><a name="l00630"></a><span class="lineno"> 630</span> <span class="preprocessor">#ifdef WORDS_BIGENDIAN</span></div><div class="line"><a name="l00631"></a><span class="lineno"> 631</span> <span class="preprocessor">#define IEEE_BIG_ENDIAN</span></div><div class="line"><a name="l00632"></a><span class="lineno"> 632</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00633"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3cdf09825a8bdf678dceeeaeb6d44ce2"> 633</a></span> <span class="preprocessor">#define IEEE_LITTLE_ENDIAN</span></div><div class="line"><a name="l00634"></a><span class="lineno"> 634</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00635"></a><span class="lineno"> 635</span> </div><div class="line"><a name="l00636"></a><span class="lineno"> 636</span> <span class="preprocessor">#ifdef __vax__</span></div><div class="line"><a name="l00637"></a><span class="lineno"> 637</span> <span class="preprocessor">#define VAX</span></div><div class="line"><a name="l00638"></a><span class="lineno"> 638</span> <span class="preprocessor">#undef IEEE_BIG_ENDIAN</span></div><div class="line"><a name="l00639"></a><span class="lineno"> 639</span> <span class="preprocessor">#undef IEEE_LITTLE_ENDIAN</span></div><div class="line"><a name="l00640"></a><span class="lineno"> 640</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00641"></a><span class="lineno"> 641</span> </div><div class="line"><a name="l00642"></a><span class="lineno"> 642</span> <span class="preprocessor">#if defined(__arm__) && !defined(__VFP_FP__)</span></div><div class="line"><a name="l00643"></a><span class="lineno"> 643</span> <span class="preprocessor">#define IEEE_BIG_ENDIAN</span></div><div class="line"><a name="l00644"></a><span class="lineno"> 644</span> <span class="preprocessor">#undef IEEE_LITTLE_ENDIAN</span></div><div class="line"><a name="l00645"></a><span class="lineno"> 645</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00646"></a><span class="lineno"> 646</span> </div><div class="line"><a name="l00647"></a><span class="lineno"> 647</span> <span class="preprocessor">#undef Long</span></div><div class="line"><a name="l00648"></a><span class="lineno"> 648</span> <span class="preprocessor">#undef ULong</span></div><div class="line"><a name="l00649"></a><span class="lineno"> 649</span> </div><div class="line"><a name="l00650"></a><span class="lineno"> 650</span> <span class="preprocessor">#if SIZEOF_INT == 4</span></div><div class="line"><a name="l00651"></a><span class="lineno"> 651</span> <span class="preprocessor">#define Long int</span></div><div class="line"><a name="l00652"></a><span class="lineno"> 652</span> <span class="preprocessor">#define ULong unsigned int</span></div><div class="line"><a name="l00653"></a><span class="lineno"> 653</span> <span class="preprocessor">#elif SIZEOF_LONG == 4</span></div><div class="line"><a name="l00654"></a><span class="lineno"> 654</span> <span class="preprocessor">#define Long long int</span></div><div class="line"><a name="l00655"></a><span class="lineno"> 655</span> <span class="preprocessor">#define ULong unsigned long int</span></div><div class="line"><a name="l00656"></a><span class="lineno"> 656</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00657"></a><span class="lineno"> 657</span> </div><div class="line"><a name="l00658"></a><span class="lineno"> 658</span> <span class="preprocessor">#if HAVE_LONG_LONG</span></div><div class="line"><a name="l00659"></a><span class="lineno"> 659</span> <span class="preprocessor">#define Llong LONG_LONG</span></div><div class="line"><a name="l00660"></a><span class="lineno"> 660</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00661"></a><span class="lineno"> 661</span> </div><div class="line"><a name="l00662"></a><span class="lineno"> 662</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l00663"></a><span class="lineno"> 663</span> <span class="preprocessor">#include "stdio.h"</span></div><div class="line"><a name="l00664"></a><span class="lineno"> 664</span> <span class="preprocessor">#define Bug(x) {fprintf(stderr, "%s\n", (x)); exit(EXIT_FAILURE);}</span></div><div class="line"><a name="l00665"></a><span class="lineno"> 665</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00666"></a><span class="lineno"> 666</span> </div><div class="line"><a name="l00667"></a><span class="lineno"> 667</span> <span class="preprocessor">#include "stdlib.h"</span></div><div class="line"><a name="l00668"></a><span class="lineno"> 668</span> <span class="preprocessor">#include "string.h"</span></div><div class="line"><a name="l00669"></a><span class="lineno"> 669</span> </div><div class="line"><a name="l00670"></a><span class="lineno"> 670</span> <span class="preprocessor">#ifdef USE_LOCALE</span></div><div class="line"><a name="l00671"></a><span class="lineno"> 671</span> <span class="preprocessor">#include "locale.h"</span></div><div class="line"><a name="l00672"></a><span class="lineno"> 672</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00673"></a><span class="lineno"> 673</span> </div><div class="line"><a name="l00674"></a><span class="lineno"> 674</span> <span class="preprocessor">#ifdef MALLOC</span></div><div class="line"><a name="l00675"></a><span class="lineno"> 675</span> <span class="keyword">extern</span> <span class="keywordtype">void</span> *<a class="code" href="../../de/df1/util_8c.html#a3e218828af7ddd3f4cd0d3772562b520">MALLOC</a>(<span class="keywordtype">size_t</span>);</div><div class="line"><a name="l00676"></a><span class="lineno"> 676</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00677"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3e218828af7ddd3f4cd0d3772562b520"> 677</a></span> <span class="preprocessor">#define MALLOC malloc</span></div><div class="line"><a name="l00678"></a><span class="lineno"> 678</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00679"></a><span class="lineno"> 679</span> <span class="preprocessor">#ifdef FREE</span></div><div class="line"><a name="l00680"></a><span class="lineno"> 680</span> <span class="keyword">extern</span> <span class="keywordtype">void</span> <a class="code" href="../../de/df1/util_8c.html#a9a8e700d56e7d858108b755ad3edb52e">FREE</a>(<span class="keywordtype">void</span>*);</div><div class="line"><a name="l00681"></a><span class="lineno"> 681</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00682"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9a8e700d56e7d858108b755ad3edb52e"> 682</a></span> <span class="preprocessor">#define FREE free</span></div><div class="line"><a name="l00683"></a><span class="lineno"> 683</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00684"></a><span class="lineno"> 684</span> </div><div class="line"><a name="l00685"></a><span class="lineno"> 685</span> <span class="preprocessor">#ifndef Omit_Private_Memory</span></div><div class="line"><a name="l00686"></a><span class="lineno"> 686</span> <span class="preprocessor">#ifndef PRIVATE_MEM</span></div><div class="line"><a name="l00687"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af4bea1000fe710351b41e8bc8eacebcf"> 687</a></span> <span class="preprocessor">#define PRIVATE_MEM 2304</span></div><div class="line"><a name="l00688"></a><span class="lineno"> 688</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00689"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a4c4c8560d0f1ca391ca934a0c8a3c068"> 689</a></span> <span class="preprocessor">#define PRIVATE_mem ((PRIVATE_MEM+sizeof(double)-1)/sizeof(double))</span></div><div class="line"><a name="l00690"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ae90ee92993a4c23db3d96d1e204e340d"> 690</a></span> <span class="keyword">static</span> <span class="keywordtype">double</span> <a class="code" href="../../de/df1/util_8c.html#ae90ee92993a4c23db3d96d1e204e340d">private_mem</a>[<a class="code" href="../../de/df1/util_8c.html#a4c4c8560d0f1ca391ca934a0c8a3c068">PRIVATE_mem</a>], *<a class="code" href="../../de/df1/util_8c.html#af76ccd58185261778dbfc0c5f13d9f83">pmem_next</a> = <a class="code" href="../../de/df1/util_8c.html#ae90ee92993a4c23db3d96d1e204e340d">private_mem</a>;</div><div class="line"><a name="l00691"></a><span class="lineno"> 691</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00692"></a><span class="lineno"> 692</span> </div><div class="line"><a name="l00693"></a><span class="lineno"> 693</span> <span class="preprocessor">#undef IEEE_Arith</span></div><div class="line"><a name="l00694"></a><span class="lineno"> 694</span> <span class="preprocessor">#undef Avoid_Underflow</span></div><div class="line"><a name="l00695"></a><span class="lineno"> 695</span> <span class="preprocessor">#ifdef IEEE_BIG_ENDIAN</span></div><div class="line"><a name="l00696"></a><span class="lineno"> 696</span> <span class="preprocessor">#define IEEE_Arith</span></div><div class="line"><a name="l00697"></a><span class="lineno"> 697</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00698"></a><span class="lineno"> 698</span> <span class="preprocessor">#ifdef IEEE_LITTLE_ENDIAN</span></div><div class="line"><a name="l00699"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a2d51cf120146e6ab93e413401201fdd8"> 699</a></span> <span class="preprocessor">#define IEEE_Arith</span></div><div class="line"><a name="l00700"></a><span class="lineno"> 700</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00701"></a><span class="lineno"> 701</span> </div><div class="line"><a name="l00702"></a><span class="lineno"> 702</span> <span class="preprocessor">#ifdef Bad_float_h</span></div><div class="line"><a name="l00703"></a><span class="lineno"> 703</span> </div><div class="line"><a name="l00704"></a><span class="lineno"> 704</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l00705"></a><span class="lineno"> 705</span> <span class="preprocessor">#define DBL_DIG 15</span></div><div class="line"><a name="l00706"></a><span class="lineno"> 706</span> <span class="preprocessor">#define DBL_MAX_10_EXP 308</span></div><div class="line"><a name="l00707"></a><span class="lineno"> 707</span> <span class="preprocessor">#define DBL_MAX_EXP 1024</span></div><div class="line"><a name="l00708"></a><span class="lineno"> 708</span> <span class="preprocessor">#define FLT_RADIX 2</span></div><div class="line"><a name="l00709"></a><span class="lineno"> 709</span> <span class="preprocessor">#endif </span><span class="comment">/*IEEE_Arith*/</span><span class="preprocessor"></span></div><div class="line"><a name="l00710"></a><span class="lineno"> 710</span> </div><div class="line"><a name="l00711"></a><span class="lineno"> 711</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l00712"></a><span class="lineno"> 712</span> <span class="preprocessor">#define DBL_DIG 16</span></div><div class="line"><a name="l00713"></a><span class="lineno"> 713</span> <span class="preprocessor">#define DBL_MAX_10_EXP 75</span></div><div class="line"><a name="l00714"></a><span class="lineno"> 714</span> <span class="preprocessor">#define DBL_MAX_EXP 63</span></div><div class="line"><a name="l00715"></a><span class="lineno"> 715</span> <span class="preprocessor">#define FLT_RADIX 16</span></div><div class="line"><a name="l00716"></a><span class="lineno"> 716</span> <span class="preprocessor">#define DBL_MAX 7.2370055773322621e+75</span></div><div class="line"><a name="l00717"></a><span class="lineno"> 717</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00718"></a><span class="lineno"> 718</span> </div><div class="line"><a name="l00719"></a><span class="lineno"> 719</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l00720"></a><span class="lineno"> 720</span> <span class="preprocessor">#define DBL_DIG 16</span></div><div class="line"><a name="l00721"></a><span class="lineno"> 721</span> <span class="preprocessor">#define DBL_MAX_10_EXP 38</span></div><div class="line"><a name="l00722"></a><span class="lineno"> 722</span> <span class="preprocessor">#define DBL_MAX_EXP 127</span></div><div class="line"><a name="l00723"></a><span class="lineno"> 723</span> <span class="preprocessor">#define FLT_RADIX 2</span></div><div class="line"><a name="l00724"></a><span class="lineno"> 724</span> <span class="preprocessor">#define DBL_MAX 1.7014118346046923e+38</span></div><div class="line"><a name="l00725"></a><span class="lineno"> 725</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00726"></a><span class="lineno"> 726</span> </div><div class="line"><a name="l00727"></a><span class="lineno"> 727</span> <span class="preprocessor">#ifndef LONG_MAX</span></div><div class="line"><a name="l00728"></a><span class="lineno"> 728</span> <span class="preprocessor">#define LONG_MAX 2147483647</span></div><div class="line"><a name="l00729"></a><span class="lineno"> 729</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00730"></a><span class="lineno"> 730</span> </div><div class="line"><a name="l00731"></a><span class="lineno"> 731</span> <span class="preprocessor">#else </span><span class="comment">/* ifndef Bad_float_h */</span><span class="preprocessor"></span></div><div class="line"><a name="l00732"></a><span class="lineno"> 732</span> <span class="preprocessor">#include "float.h"</span></div><div class="line"><a name="l00733"></a><span class="lineno"> 733</span> <span class="preprocessor">#endif </span><span class="comment">/* Bad_float_h */</span><span class="preprocessor"></span></div><div class="line"><a name="l00734"></a><span class="lineno"> 734</span> </div><div class="line"><a name="l00735"></a><span class="lineno"> 735</span> <span class="preprocessor">#ifndef __MATH_H__</span></div><div class="line"><a name="l00736"></a><span class="lineno"> 736</span> <span class="preprocessor">#include "math.h"</span></div><div class="line"><a name="l00737"></a><span class="lineno"> 737</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00738"></a><span class="lineno"> 738</span> </div><div class="line"><a name="l00739"></a><span class="lineno"> 739</span> <span class="preprocessor">#ifdef __cplusplus</span></div><div class="line"><a name="l00740"></a><span class="lineno"> 740</span> <span class="keyword">extern</span> <span class="stringliteral">"C"</span> {</div><div class="line"><a name="l00741"></a><span class="lineno"> 741</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l00742"></a><span class="lineno"> 742</span> }</div><div class="line"><a name="l00743"></a><span class="lineno"> 743</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00744"></a><span class="lineno"> 744</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00745"></a><span class="lineno"> 745</span> </div><div class="line"><a name="l00746"></a><span class="lineno"> 746</span> <span class="preprocessor">#if defined(IEEE_LITTLE_ENDIAN) + defined(IEEE_BIG_ENDIAN) + defined(VAX) + defined(IBM) != 1</span></div><div class="line"><a name="l00747"></a><span class="lineno"> 747</span> Exactly <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a> of <a class="code" href="../../de/df1/util_8c.html#a3cdf09825a8bdf678dceeeaeb6d44ce2">IEEE_LITTLE_ENDIAN</a>, IEEE_BIG_ENDIAN, VAX, or IBM should be defined.</div><div class="line"><a name="l00748"></a><span class="lineno"> 748</span> #endif</div><div class="line"><a name="l00749"></a><span class="lineno"> 749</span> </div><div class="line"><a name="l00750"></a><span class="lineno"><a class="line" href="../../d9/db2/union_u.html#aa72022b00fe1608edcdbc0a12e525164"> 750</a></span> <span class="keyword">typedef</span> <span class="keyword">union </span>{ <span class="keywordtype">double</span> d; ULong L[2]; } <a class="code" href="../../d9/db2/union_u.html">U</a>;</div><div class="line"><a name="l00751"></a><span class="lineno"> 751</span> </div><div class="line"><a name="l00752"></a><span class="lineno"> 752</span> <span class="preprocessor">#ifdef YES_ALIAS</span></div><div class="line"><a name="l00753"></a><span class="lineno"> 753</span> <span class="keyword">typedef</span> <span class="keywordtype">double</span> <a class="code" href="../../de/df1/util_8c.html#a74ecdf678c58c70da909748efeb0721b">double_u</a>;</div><div class="line"><a name="l00754"></a><span class="lineno"> 754</span> <span class="preprocessor"># define dval(x) (x)</span></div><div class="line"><a name="l00755"></a><span class="lineno"> 755</span> <span class="preprocessor"># ifdef IEEE_LITTLE_ENDIAN</span></div><div class="line"><a name="l00756"></a><span class="lineno"> 756</span> <span class="preprocessor"># define word0(x) (((ULong *)&(x))[1])</span></div><div class="line"><a name="l00757"></a><span class="lineno"> 757</span> <span class="preprocessor"># define word1(x) (((ULong *)&(x))[0])</span></div><div class="line"><a name="l00758"></a><span class="lineno"> 758</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00759"></a><span class="lineno"> 759</span> <span class="preprocessor"># define word0(x) (((ULong *)&(x))[0])</span></div><div class="line"><a name="l00760"></a><span class="lineno"> 760</span> <span class="preprocessor"># define word1(x) (((ULong *)&(x))[1])</span></div><div class="line"><a name="l00761"></a><span class="lineno"> 761</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00762"></a><span class="lineno"> 762</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00763"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a74ecdf678c58c70da909748efeb0721b"> 763</a></span> <span class="keyword">typedef</span> <a class="code" href="../../d9/db2/union_u.html">U</a> <a class="code" href="../../de/df1/util_8c.html#a74ecdf678c58c70da909748efeb0721b">double_u</a>;</div><div class="line"><a name="l00764"></a><span class="lineno"> 764</span> <span class="preprocessor"># ifdef IEEE_LITTLE_ENDIAN</span></div><div class="line"><a name="l00765"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890"> 765</a></span> <span class="preprocessor"># define word0(x) ((x).L[1])</span></div><div class="line"><a name="l00766"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03"> 766</a></span> <span class="preprocessor"># define word1(x) ((x).L[0])</span></div><div class="line"><a name="l00767"></a><span class="lineno"> 767</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00768"></a><span class="lineno"> 768</span> <span class="preprocessor"># define word0(x) ((x).L[0])</span></div><div class="line"><a name="l00769"></a><span class="lineno"> 769</span> <span class="preprocessor"># define word1(x) ((x).L[1])</span></div><div class="line"><a name="l00770"></a><span class="lineno"> 770</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00771"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836"> 771</a></span> <span class="preprocessor"># define dval(x) ((x).d)</span></div><div class="line"><a name="l00772"></a><span class="lineno"> 772</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00773"></a><span class="lineno"> 773</span> </div><div class="line"><a name="l00774"></a><span class="lineno"> 774</span> <span class="comment">/* The following definition of Storeinc is appropriate for MIPS processors.</span></div><div class="line"><a name="l00775"></a><span class="lineno"> 775</span> <span class="comment"> * An alternative that might be better on some machines is</span></div><div class="line"><a name="l00776"></a><span class="lineno"> 776</span> <span class="comment"> * #define Storeinc(a,b,c) (*a++ = b << 16 | c & 0xffff)</span></div><div class="line"><a name="l00777"></a><span class="lineno"> 777</span> <span class="comment"> */</span></div><div class="line"><a name="l00778"></a><span class="lineno"> 778</span> <span class="preprocessor">#if defined(IEEE_LITTLE_ENDIAN) + defined(VAX) + defined(__arm__)</span></div><div class="line"><a name="l00779"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886"> 779</a></span> <span class="preprocessor">#define Storeinc(a,b,c) (((unsigned short *)(a))[1] = (unsigned short)(b), \</span></div><div class="line"><a name="l00780"></a><span class="lineno"> 780</span> <span class="preprocessor">((unsigned short *)(a))[0] = (unsigned short)(c), (a)++)</span></div><div class="line"><a name="l00781"></a><span class="lineno"> 781</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00782"></a><span class="lineno"> 782</span> <span class="preprocessor">#define Storeinc(a,b,c) (((unsigned short *)(a))[0] = (unsigned short)(b), \</span></div><div class="line"><a name="l00783"></a><span class="lineno"> 783</span> <span class="preprocessor">((unsigned short *)(a))[1] = (unsigned short)(c), (a)++)</span></div><div class="line"><a name="l00784"></a><span class="lineno"> 784</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00785"></a><span class="lineno"> 785</span> </div><div class="line"><a name="l00786"></a><span class="lineno"> 786</span> <span class="comment">/* #define P DBL_MANT_DIG */</span></div><div class="line"><a name="l00787"></a><span class="lineno"> 787</span> <span class="comment">/* Ten_pmax = floor(P*log(2)/log(5)) */</span></div><div class="line"><a name="l00788"></a><span class="lineno"> 788</span> <span class="comment">/* Bletch = (highest power of 2 < DBL_MAX_10_EXP) / 16 */</span></div><div class="line"><a name="l00789"></a><span class="lineno"> 789</span> <span class="comment">/* Quick_max = floor((P-1)*log(FLT_RADIX)/log(10) - 1) */</span></div><div class="line"><a name="l00790"></a><span class="lineno"> 790</span> <span class="comment">/* Int_max = floor(P*log(FLT_RADIX)/log(10) - 1) */</span></div><div class="line"><a name="l00791"></a><span class="lineno"> 791</span> </div><div class="line"><a name="l00792"></a><span class="lineno"> 792</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l00793"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc"> 793</a></span> <span class="preprocessor">#define Exp_shift 20</span></div><div class="line"><a name="l00794"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ab48843da1ee5cd92ff22ff6f85c87d0b"> 794</a></span> <span class="preprocessor">#define Exp_shift1 20</span></div><div class="line"><a name="l00795"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b"> 795</a></span> <span class="preprocessor">#define Exp_msk1 0x100000</span></div><div class="line"><a name="l00796"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a0997add05e477b3a97fcb24f1600468e"> 796</a></span> <span class="preprocessor">#define Exp_msk11 0x100000</span></div><div class="line"><a name="l00797"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac"> 797</a></span> <span class="preprocessor">#define Exp_mask 0x7ff00000</span></div><div class="line"><a name="l00798"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe"> 798</a></span> <span class="preprocessor">#define P 53</span></div><div class="line"><a name="l00799"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01"> 799</a></span> <span class="preprocessor">#define Bias 1023</span></div><div class="line"><a name="l00800"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#abf22a1cc99d53140ccdf6c3952c7f508"> 800</a></span> <span class="preprocessor">#define Emin (-1022)</span></div><div class="line"><a name="l00801"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa"> 801</a></span> <span class="preprocessor">#define Exp_1 0x3ff00000</span></div><div class="line"><a name="l00802"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af184552d63b7337750b0fe90e478a3b1"> 802</a></span> <span class="preprocessor">#define Exp_11 0x3ff00000</span></div><div class="line"><a name="l00803"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9"> 803</a></span> <span class="preprocessor">#define Ebits 11</span></div><div class="line"><a name="l00804"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3e6dc09a955126ee74b3870ac287e370"> 804</a></span> <span class="preprocessor">#define Frac_mask 0xfffff</span></div><div class="line"><a name="l00805"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a43ee899575a77aa4154e188c522e7875"> 805</a></span> <span class="preprocessor">#define Frac_mask1 0xfffff</span></div><div class="line"><a name="l00806"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a60c21efe38979482c071108abd8431d0"> 806</a></span> <span class="preprocessor">#define Ten_pmax 22</span></div><div class="line"><a name="l00807"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a7c80938abca604122c8f7afb66d59331"> 807</a></span> <span class="preprocessor">#define Bletch 0x10</span></div><div class="line"><a name="l00808"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff"> 808</a></span> <span class="preprocessor">#define Bndry_mask 0xfffff</span></div><div class="line"><a name="l00809"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ad1db7929322cfb6d39c183e032d4c680"> 809</a></span> <span class="preprocessor">#define Bndry_mask1 0xfffff</span></div><div class="line"><a name="l00810"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a525d3ca9955b22e489a749a548831a1d"> 810</a></span> <span class="preprocessor">#define LSB 1</span></div><div class="line"><a name="l00811"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a63c55d45c8c26a4d0c9d2d5c1afe5caa"> 811</a></span> <span class="preprocessor">#define Sign_bit 0x80000000</span></div><div class="line"><a name="l00812"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142"> 812</a></span> <span class="preprocessor">#define Log2P 1</span></div><div class="line"><a name="l00813"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a0ff2aa401024cf1d9c294764d3989d5f"> 813</a></span> <span class="preprocessor">#define Tiny0 0</span></div><div class="line"><a name="l00814"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a41b55bb8829507cb221f0fa73f71bb64"> 814</a></span> <span class="preprocessor">#define Tiny1 1</span></div><div class="line"><a name="l00815"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a4a1aa87d88576b92517b427bb7e09e21"> 815</a></span> <span class="preprocessor">#define Quick_max 14</span></div><div class="line"><a name="l00816"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af2bdae8b2a1a2c6cc68215ef219d2673"> 816</a></span> <span class="preprocessor">#define Int_max 14</span></div><div class="line"><a name="l00817"></a><span class="lineno"> 817</span> <span class="preprocessor">#ifndef NO_IEEE_Scale</span></div><div class="line"><a name="l00818"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aed409c11e0ed29788b5988ea726cb30e"> 818</a></span> <span class="preprocessor">#define Avoid_Underflow</span></div><div class="line"><a name="l00819"></a><span class="lineno"> 819</span> <span class="preprocessor">#ifdef Flush_Denorm </span><span class="comment">/* debugging option */</span><span class="preprocessor"></span></div><div class="line"><a name="l00820"></a><span class="lineno"> 820</span> <span class="preprocessor">#undef Sudden_Underflow</span></div><div class="line"><a name="l00821"></a><span class="lineno"> 821</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00822"></a><span class="lineno"> 822</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00823"></a><span class="lineno"> 823</span> </div><div class="line"><a name="l00824"></a><span class="lineno"> 824</span> <span class="preprocessor">#ifndef Flt_Rounds</span></div><div class="line"><a name="l00825"></a><span class="lineno"> 825</span> <span class="preprocessor">#ifdef FLT_ROUNDS</span></div><div class="line"><a name="l00826"></a><span class="lineno"> 826</span> <span class="preprocessor">#define Flt_Rounds FLT_ROUNDS</span></div><div class="line"><a name="l00827"></a><span class="lineno"> 827</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00828"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a99e35e070982190437423aa4c0dfc963"> 828</a></span> <span class="preprocessor">#define Flt_Rounds 1</span></div><div class="line"><a name="l00829"></a><span class="lineno"> 829</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00830"></a><span class="lineno"> 830</span> <span class="preprocessor">#endif </span><span class="comment">/*Flt_Rounds*/</span><span class="preprocessor"></span></div><div class="line"><a name="l00831"></a><span class="lineno"> 831</span> </div><div class="line"><a name="l00832"></a><span class="lineno"> 832</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l00833"></a><span class="lineno"> 833</span> <span class="preprocessor">#define Rounding rounding</span></div><div class="line"><a name="l00834"></a><span class="lineno"> 834</span> <span class="preprocessor">#undef Check_FLT_ROUNDS</span></div><div class="line"><a name="l00835"></a><span class="lineno"> 835</span> <span class="preprocessor">#define Check_FLT_ROUNDS</span></div><div class="line"><a name="l00836"></a><span class="lineno"> 836</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00837"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ab925efe1cb96e8cfb4c70b5fcb7cbfbb"> 837</a></span> <span class="preprocessor">#define Rounding Flt_Rounds</span></div><div class="line"><a name="l00838"></a><span class="lineno"> 838</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00839"></a><span class="lineno"> 839</span> </div><div class="line"><a name="l00840"></a><span class="lineno"> 840</span> <span class="preprocessor">#else </span><span class="comment">/* ifndef IEEE_Arith */</span><span class="preprocessor"></span></div><div class="line"><a name="l00841"></a><span class="lineno"> 841</span> <span class="preprocessor">#undef Check_FLT_ROUNDS</span></div><div class="line"><a name="l00842"></a><span class="lineno"> 842</span> <span class="preprocessor">#undef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l00843"></a><span class="lineno"> 843</span> <span class="preprocessor">#undef SET_INEXACT</span></div><div class="line"><a name="l00844"></a><span class="lineno"> 844</span> <span class="preprocessor">#undef Sudden_Underflow</span></div><div class="line"><a name="l00845"></a><span class="lineno"> 845</span> <span class="preprocessor">#define Sudden_Underflow</span></div><div class="line"><a name="l00846"></a><span class="lineno"> 846</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l00847"></a><span class="lineno"> 847</span> <span class="preprocessor">#undef Flt_Rounds</span></div><div class="line"><a name="l00848"></a><span class="lineno"> 848</span> <span class="preprocessor">#define Flt_Rounds 0</span></div><div class="line"><a name="l00849"></a><span class="lineno"> 849</span> <span class="preprocessor">#define Exp_shift 24</span></div><div class="line"><a name="l00850"></a><span class="lineno"> 850</span> <span class="preprocessor">#define Exp_shift1 24</span></div><div class="line"><a name="l00851"></a><span class="lineno"> 851</span> <span class="preprocessor">#define Exp_msk1 0x1000000</span></div><div class="line"><a name="l00852"></a><span class="lineno"> 852</span> <span class="preprocessor">#define Exp_msk11 0x1000000</span></div><div class="line"><a name="l00853"></a><span class="lineno"> 853</span> <span class="preprocessor">#define Exp_mask 0x7f000000</span></div><div class="line"><a name="l00854"></a><span class="lineno"> 854</span> <span class="preprocessor">#define P 14</span></div><div class="line"><a name="l00855"></a><span class="lineno"> 855</span> <span class="preprocessor">#define Bias 65</span></div><div class="line"><a name="l00856"></a><span class="lineno"> 856</span> <span class="preprocessor">#define Exp_1 0x41000000</span></div><div class="line"><a name="l00857"></a><span class="lineno"> 857</span> <span class="preprocessor">#define Exp_11 0x41000000</span></div><div class="line"><a name="l00858"></a><span class="lineno"> 858</span> <span class="preprocessor">#define Ebits 8 </span><span class="comment">/* exponent has 7 bits, but 8 is the right value in b2d */</span><span class="preprocessor"></span></div><div class="line"><a name="l00859"></a><span class="lineno"> 859</span> <span class="preprocessor">#define Frac_mask 0xffffff</span></div><div class="line"><a name="l00860"></a><span class="lineno"> 860</span> <span class="preprocessor">#define Frac_mask1 0xffffff</span></div><div class="line"><a name="l00861"></a><span class="lineno"> 861</span> <span class="preprocessor">#define Bletch 4</span></div><div class="line"><a name="l00862"></a><span class="lineno"> 862</span> <span class="preprocessor">#define Ten_pmax 22</span></div><div class="line"><a name="l00863"></a><span class="lineno"> 863</span> <span class="preprocessor">#define Bndry_mask 0xefffff</span></div><div class="line"><a name="l00864"></a><span class="lineno"> 864</span> <span class="preprocessor">#define Bndry_mask1 0xffffff</span></div><div class="line"><a name="l00865"></a><span class="lineno"> 865</span> <span class="preprocessor">#define LSB 1</span></div><div class="line"><a name="l00866"></a><span class="lineno"> 866</span> <span class="preprocessor">#define Sign_bit 0x80000000</span></div><div class="line"><a name="l00867"></a><span class="lineno"> 867</span> <span class="preprocessor">#define Log2P 4</span></div><div class="line"><a name="l00868"></a><span class="lineno"> 868</span> <span class="preprocessor">#define Tiny0 0x100000</span></div><div class="line"><a name="l00869"></a><span class="lineno"> 869</span> <span class="preprocessor">#define Tiny1 0</span></div><div class="line"><a name="l00870"></a><span class="lineno"> 870</span> <span class="preprocessor">#define Quick_max 14</span></div><div class="line"><a name="l00871"></a><span class="lineno"> 871</span> <span class="preprocessor">#define Int_max 15</span></div><div class="line"><a name="l00872"></a><span class="lineno"> 872</span> <span class="preprocessor">#else </span><span class="comment">/* VAX */</span><span class="preprocessor"></span></div><div class="line"><a name="l00873"></a><span class="lineno"> 873</span> <span class="preprocessor">#undef Flt_Rounds</span></div><div class="line"><a name="l00874"></a><span class="lineno"> 874</span> <span class="preprocessor">#define Flt_Rounds 1</span></div><div class="line"><a name="l00875"></a><span class="lineno"> 875</span> <span class="preprocessor">#define Exp_shift 23</span></div><div class="line"><a name="l00876"></a><span class="lineno"> 876</span> <span class="preprocessor">#define Exp_shift1 7</span></div><div class="line"><a name="l00877"></a><span class="lineno"> 877</span> <span class="preprocessor">#define Exp_msk1 0x80</span></div><div class="line"><a name="l00878"></a><span class="lineno"> 878</span> <span class="preprocessor">#define Exp_msk11 0x800000</span></div><div class="line"><a name="l00879"></a><span class="lineno"> 879</span> <span class="preprocessor">#define Exp_mask 0x7f80</span></div><div class="line"><a name="l00880"></a><span class="lineno"> 880</span> <span class="preprocessor">#define P 56</span></div><div class="line"><a name="l00881"></a><span class="lineno"> 881</span> <span class="preprocessor">#define Bias 129</span></div><div class="line"><a name="l00882"></a><span class="lineno"> 882</span> <span class="preprocessor">#define Exp_1 0x40800000</span></div><div class="line"><a name="l00883"></a><span class="lineno"> 883</span> <span class="preprocessor">#define Exp_11 0x4080</span></div><div class="line"><a name="l00884"></a><span class="lineno"> 884</span> <span class="preprocessor">#define Ebits 8</span></div><div class="line"><a name="l00885"></a><span class="lineno"> 885</span> <span class="preprocessor">#define Frac_mask 0x7fffff</span></div><div class="line"><a name="l00886"></a><span class="lineno"> 886</span> <span class="preprocessor">#define Frac_mask1 0xffff007f</span></div><div class="line"><a name="l00887"></a><span class="lineno"> 887</span> <span class="preprocessor">#define Ten_pmax 24</span></div><div class="line"><a name="l00888"></a><span class="lineno"> 888</span> <span class="preprocessor">#define Bletch 2</span></div><div class="line"><a name="l00889"></a><span class="lineno"> 889</span> <span class="preprocessor">#define Bndry_mask 0xffff007f</span></div><div class="line"><a name="l00890"></a><span class="lineno"> 890</span> <span class="preprocessor">#define Bndry_mask1 0xffff007f</span></div><div class="line"><a name="l00891"></a><span class="lineno"> 891</span> <span class="preprocessor">#define LSB 0x10000</span></div><div class="line"><a name="l00892"></a><span class="lineno"> 892</span> <span class="preprocessor">#define Sign_bit 0x8000</span></div><div class="line"><a name="l00893"></a><span class="lineno"> 893</span> <span class="preprocessor">#define Log2P 1</span></div><div class="line"><a name="l00894"></a><span class="lineno"> 894</span> <span class="preprocessor">#define Tiny0 0x80</span></div><div class="line"><a name="l00895"></a><span class="lineno"> 895</span> <span class="preprocessor">#define Tiny1 0</span></div><div class="line"><a name="l00896"></a><span class="lineno"> 896</span> <span class="preprocessor">#define Quick_max 15</span></div><div class="line"><a name="l00897"></a><span class="lineno"> 897</span> <span class="preprocessor">#define Int_max 15</span></div><div class="line"><a name="l00898"></a><span class="lineno"> 898</span> <span class="preprocessor">#endif </span><span class="comment">/* IBM, VAX */</span><span class="preprocessor"></span></div><div class="line"><a name="l00899"></a><span class="lineno"> 899</span> <span class="preprocessor">#endif </span><span class="comment">/* IEEE_Arith */</span><span class="preprocessor"></span></div><div class="line"><a name="l00900"></a><span class="lineno"> 900</span> </div><div class="line"><a name="l00901"></a><span class="lineno"> 901</span> <span class="preprocessor">#ifndef IEEE_Arith</span></div><div class="line"><a name="l00902"></a><span class="lineno"> 902</span> <span class="preprocessor">#define ROUND_BIASED</span></div><div class="line"><a name="l00903"></a><span class="lineno"> 903</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00904"></a><span class="lineno"> 904</span> </div><div class="line"><a name="l00905"></a><span class="lineno"> 905</span> <span class="preprocessor">#ifdef RND_PRODQUOT</span></div><div class="line"><a name="l00906"></a><span class="lineno"> 906</span> <span class="preprocessor">#define rounded_product(a,b) ((a) = rnd_prod((a), (b)))</span></div><div class="line"><a name="l00907"></a><span class="lineno"> 907</span> <span class="preprocessor">#define rounded_quotient(a,b) ((a) = rnd_quot((a), (b)))</span></div><div class="line"><a name="l00908"></a><span class="lineno"> 908</span> <span class="keyword">extern</span> <span class="keywordtype">double</span> rnd_prod(<span class="keywordtype">double</span>, <span class="keywordtype">double</span>), rnd_quot(<span class="keywordtype">double</span>, <span class="keywordtype">double</span>);</div><div class="line"><a name="l00909"></a><span class="lineno"> 909</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00910"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a09227e189a0ccbe91a702ddd894940ee"> 910</a></span> <span class="preprocessor">#define rounded_product(a,b) ((a) *= (b))</span></div><div class="line"><a name="l00911"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a34f631126fba1aa87949f45721457cd1"> 911</a></span> <span class="preprocessor">#define rounded_quotient(a,b) ((a) /= (b))</span></div><div class="line"><a name="l00912"></a><span class="lineno"> 912</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00913"></a><span class="lineno"> 913</span> </div><div class="line"><a name="l00914"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec"> 914</a></span> <span class="preprocessor">#define Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1))</span></div><div class="line"><a name="l00915"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d"> 915</a></span> <span class="preprocessor">#define Big1 0xffffffff</span></div><div class="line"><a name="l00916"></a><span class="lineno"> 916</span> </div><div class="line"><a name="l00917"></a><span class="lineno"> 917</span> <span class="preprocessor">#ifndef Pack_32</span></div><div class="line"><a name="l00918"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af520e0ebe2ee2e65ed8e07305dc73bc9"> 918</a></span> <span class="preprocessor">#define Pack_32</span></div><div class="line"><a name="l00919"></a><span class="lineno"> 919</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00920"></a><span class="lineno"> 920</span> </div><div class="line"><a name="l00921"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb"> 921</a></span> <span class="preprocessor">#define FFFFFFFF 0xffffffffUL</span></div><div class="line"><a name="l00922"></a><span class="lineno"> 922</span> </div><div class="line"><a name="l00923"></a><span class="lineno"> 923</span> <span class="preprocessor">#ifdef NO_LONG_LONG</span></div><div class="line"><a name="l00924"></a><span class="lineno"> 924</span> <span class="preprocessor">#undef ULLong</span></div><div class="line"><a name="l00925"></a><span class="lineno"> 925</span> <span class="preprocessor">#ifdef Just_16</span></div><div class="line"><a name="l00926"></a><span class="lineno"> 926</span> <span class="preprocessor">#undef Pack_32</span></div><div class="line"><a name="l00927"></a><span class="lineno"> 927</span> <span class="comment">/* When Pack_32 is not defined, we store 16 bits per 32-bit Long.</span></div><div class="line"><a name="l00928"></a><span class="lineno"> 928</span> <span class="comment"> * This makes some inner loops simpler and sometimes saves work</span></div><div class="line"><a name="l00929"></a><span class="lineno"> 929</span> <span class="comment"> * during multiplications, but it often seems to make things slightly</span></div><div class="line"><a name="l00930"></a><span class="lineno"> 930</span> <span class="comment"> * slower. Hence the default is now to store 32 bits per Long.</span></div><div class="line"><a name="l00931"></a><span class="lineno"> 931</span> <span class="comment"> */</span></div><div class="line"><a name="l00932"></a><span class="lineno"> 932</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00933"></a><span class="lineno"> 933</span> <span class="preprocessor">#else </span><span class="comment">/* long long available */</span><span class="preprocessor"></span></div><div class="line"><a name="l00934"></a><span class="lineno"> 934</span> <span class="preprocessor">#ifndef Llong</span></div><div class="line"><a name="l00935"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a6301625eb2bb3ef4046677ceb8e935b8"> 935</a></span> <span class="preprocessor">#define Llong long long</span></div><div class="line"><a name="l00936"></a><span class="lineno"> 936</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00937"></a><span class="lineno"> 937</span> <span class="preprocessor">#ifndef ULLong</span></div><div class="line"><a name="l00938"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413"> 938</a></span> <span class="preprocessor">#define ULLong unsigned Llong</span></div><div class="line"><a name="l00939"></a><span class="lineno"> 939</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00940"></a><span class="lineno"> 940</span> <span class="preprocessor">#endif </span><span class="comment">/* NO_LONG_LONG */</span><span class="preprocessor"></span></div><div class="line"><a name="l00941"></a><span class="lineno"> 941</span> </div><div class="line"><a name="l00942"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af5d8ec006f5cfec565652be9953118d0"> 942</a></span> <span class="preprocessor">#define MULTIPLE_THREADS 1</span></div><div class="line"><a name="l00943"></a><span class="lineno"> 943</span> </div><div class="line"><a name="l00944"></a><span class="lineno"> 944</span> <span class="preprocessor">#ifndef MULTIPLE_THREADS</span></div><div class="line"><a name="l00945"></a><span class="lineno"> 945</span> <span class="preprocessor">#define ACQUIRE_DTOA_LOCK(n) </span><span class="comment">/*nothing*/</span><span class="preprocessor"></span></div><div class="line"><a name="l00946"></a><span class="lineno"> 946</span> <span class="preprocessor">#define FREE_DTOA_LOCK(n) </span><span class="comment">/*nothing*/</span><span class="preprocessor"></span></div><div class="line"><a name="l00947"></a><span class="lineno"> 947</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00948"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aa1ff217ff4152aa5d9a76f64bc4bbbf7"> 948</a></span> <span class="preprocessor">#define ACQUIRE_DTOA_LOCK(n) </span><span class="comment">/*unused right now*/</span><span class="preprocessor"></span></div><div class="line"><a name="l00949"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a1f3a0f9150a393b662d93578d7f0f581"> 949</a></span> <span class="preprocessor">#define FREE_DTOA_LOCK(n) </span><span class="comment">/*unused right now*/</span><span class="preprocessor"></span></div><div class="line"><a name="l00950"></a><span class="lineno"> 950</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00951"></a><span class="lineno"> 951</span> </div><div class="line"><a name="l00952"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a60a2b72a9437564147596c3308b55845"> 952</a></span> <span class="preprocessor">#define Kmax 15</span></div><div class="line"><a name="l00953"></a><span class="lineno"> 953</span> </div><div class="line"><a name="l00954"></a><span class="lineno"><a class="line" href="../../df/d49/struct_bigint.html"> 954</a></span> <span class="keyword">struct </span><a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> {</div><div class="line"><a name="l00955"></a><span class="lineno"><a class="line" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc"> 955</a></span>  <span class="keyword">struct </span><a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *<a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a>;</div><div class="line"><a name="l00956"></a><span class="lineno"><a class="line" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e"> 956</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>, <a class="code" href="../../df/d49/struct_bigint.html#a5ffcac6f95ded3bc1fc23204f46f10d0">maxwds</a>, <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>, <a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l00957"></a><span class="lineno"><a class="line" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99"> 957</a></span>  ULong <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1];</div><div class="line"><a name="l00958"></a><span class="lineno"> 958</span> };</div><div class="line"><a name="l00959"></a><span class="lineno"> 959</span> </div><div class="line"><a name="l00960"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af4d1f814f7bcd9a50ee45efea0942d99"> 960</a></span> <span class="keyword">typedef</span> <span class="keyword">struct </span><a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a>;</div><div class="line"><a name="l00961"></a><span class="lineno"> 961</span> </div><div class="line"><a name="l00962"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877"> 962</a></span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *<a class="code" href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877">freelist</a>[<a class="code" href="../../de/df1/util_8c.html#a60a2b72a9437564147596c3308b55845">Kmax</a>+1];</div><div class="line"><a name="l00963"></a><span class="lineno"> 963</span> </div><div class="line"><a name="l00964"></a><span class="lineno"> 964</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l00965"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5"> 965</a></span> <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>)</div><div class="line"><a name="l00966"></a><span class="lineno"> 966</span> {</div><div class="line"><a name="l00967"></a><span class="lineno"> 967</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l00968"></a><span class="lineno"> 968</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *rv;</div><div class="line"><a name="l00969"></a><span class="lineno"> 969</span> <span class="preprocessor">#ifndef Omit_Private_Memory</span></div><div class="line"><a name="l00970"></a><span class="lineno"> 970</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div><div class="line"><a name="l00971"></a><span class="lineno"> 971</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00972"></a><span class="lineno"> 972</span> </div><div class="line"><a name="l00973"></a><span class="lineno"> 973</span>  <a class="code" href="../../de/df1/util_8c.html#aa1ff217ff4152aa5d9a76f64bc4bbbf7">ACQUIRE_DTOA_LOCK</a>(0);</div><div class="line"><a name="l00974"></a><span class="lineno"> 974</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> <= <a class="code" href="../../de/df1/util_8c.html#a60a2b72a9437564147596c3308b55845">Kmax</a> && (rv = <a class="code" href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877">freelist</a>[<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>]) != 0) {</div><div class="line"><a name="l00975"></a><span class="lineno"> 975</span>  <a class="code" href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877">freelist</a>[<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>] = rv-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a>;</div><div class="line"><a name="l00976"></a><span class="lineno"> 976</span>  }</div><div class="line"><a name="l00977"></a><span class="lineno"> 977</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00978"></a><span class="lineno"> 978</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = 1 << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l00979"></a><span class="lineno"> 979</span> <span class="preprocessor">#ifdef Omit_Private_Memory</span></div><div class="line"><a name="l00980"></a><span class="lineno"> 980</span>  rv = (<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *)<a class="code" href="../../de/df1/util_8c.html#a3e218828af7ddd3f4cd0d3772562b520">MALLOC</a>(<span class="keyword">sizeof</span>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a>) + (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>-1)*<span class="keyword">sizeof</span>(ULong));</div><div class="line"><a name="l00981"></a><span class="lineno"> 981</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00982"></a><span class="lineno"> 982</span>  <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a> = (<span class="keyword">sizeof</span>(<a class="code" href="../../de/df1/util_8c.html#af4d1f814f7bcd9a50ee45efea0942d99">Bigint</a>) + (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>-1)*<span class="keyword">sizeof</span>(ULong) + <span class="keyword">sizeof</span>(<span class="keywordtype">double</span>) - 1)</div><div class="line"><a name="l00983"></a><span class="lineno"> 983</span>  /<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>);</div><div class="line"><a name="l00984"></a><span class="lineno"> 984</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> <= <a class="code" href="../../de/df1/util_8c.html#a60a2b72a9437564147596c3308b55845">Kmax</a> && <a class="code" href="../../de/df1/util_8c.html#af76ccd58185261778dbfc0c5f13d9f83">pmem_next</a> - <a class="code" href="../../de/df1/util_8c.html#ae90ee92993a4c23db3d96d1e204e340d">private_mem</a> + <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a> <= <a class="code" href="../../de/df1/util_8c.html#a4c4c8560d0f1ca391ca934a0c8a3c068">PRIVATE_mem</a>) {</div><div class="line"><a name="l00985"></a><span class="lineno"> 985</span>  rv = (<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a>*)<a class="code" href="../../de/df1/util_8c.html#af76ccd58185261778dbfc0c5f13d9f83">pmem_next</a>;</div><div class="line"><a name="l00986"></a><span class="lineno"> 986</span>  <a class="code" href="../../de/df1/util_8c.html#af76ccd58185261778dbfc0c5f13d9f83">pmem_next</a> += <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div><div class="line"><a name="l00987"></a><span class="lineno"> 987</span>  }</div><div class="line"><a name="l00988"></a><span class="lineno"> 988</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l00989"></a><span class="lineno"> 989</span>  rv = (<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a>*)<a class="code" href="../../de/df1/util_8c.html#a3e218828af7ddd3f4cd0d3772562b520">MALLOC</a>(<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));</div><div class="line"><a name="l00990"></a><span class="lineno"> 990</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00991"></a><span class="lineno"> 991</span>  rv-><a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l00992"></a><span class="lineno"> 992</span>  rv-><a class="code" href="../../df/d49/struct_bigint.html#a5ffcac6f95ded3bc1fc23204f46f10d0">maxwds</a> = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l00993"></a><span class="lineno"> 993</span>  }</div><div class="line"><a name="l00994"></a><span class="lineno"> 994</span>  <a class="code" href="../../de/df1/util_8c.html#a1f3a0f9150a393b662d93578d7f0f581">FREE_DTOA_LOCK</a>(0);</div><div class="line"><a name="l00995"></a><span class="lineno"> 995</span>  rv-><a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = rv-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = 0;</div><div class="line"><a name="l00996"></a><span class="lineno"> 996</span>  <span class="keywordflow">return</span> rv;</div><div class="line"><a name="l00997"></a><span class="lineno"> 997</span> }</div><div class="line"><a name="l00998"></a><span class="lineno"> 998</span> </div><div class="line"><a name="l00999"></a><span class="lineno"> 999</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01000"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a"> 1000</a></span> <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *<a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>)</div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span> {</div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>) {</div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>->k > <a class="code" href="../../de/df1/util_8c.html#a60a2b72a9437564147596c3308b55845">Kmax</a>) {</div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>  <a class="code" href="../../de/df1/util_8c.html#a9a8e700d56e7d858108b755ad3edb52e">FREE</a>(<a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>);</div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>  }</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>  <a class="code" href="../../de/df1/util_8c.html#aa1ff217ff4152aa5d9a76f64bc4bbbf7">ACQUIRE_DTOA_LOCK</a>(0);</div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>->next = <a class="code" href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877">freelist</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>->k];</div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>  <a class="code" href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877">freelist</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>->k] = <a class="code" href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a>;</div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>  <a class="code" href="../../de/df1/util_8c.html#a1f3a0f9150a393b662d93578d7f0f581">FREE_DTOA_LOCK</a>(0);</div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span>  }</div><div class="line"><a name="l01012"></a><span class="lineno"> 1012</span> }</div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span> </div><div class="line"><a name="l01014"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#acb2492181a9c5310befb7e45e65c35c9"> 1014</a></span> <span class="preprocessor">#define Bcopy(x,y) memcpy((char *)&(x)->sign, (char *)&(y)->sign, \</span></div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</span> <span class="preprocessor">(y)->wds*sizeof(Long) + 2*sizeof(int))</span></div><div class="line"><a name="l01016"></a><span class="lineno"> 1016</span> </div><div class="line"><a name="l01017"></a><span class="lineno"> 1017</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01018"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e"> 1018</a></span> <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b, <span class="keywordtype">int</span> m, <span class="keywordtype">int</span> a) <span class="comment">/* multiply by m and add a */</span></div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span> {</div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>  ULong *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>  <a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a> carry, y;</div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>  ULong carry, y;</div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>  ULong xi, z;</div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b1;</div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span> </div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>  <a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 0;</div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>  carry = a;</div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>  y = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> * (<a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a>)m + carry;</div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>  carry = y >> 32;</div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</span>  *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ = (ULong)(y & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>);</div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01043"></a><span class="lineno"> 1043</span>  xi = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01044"></a><span class="lineno"> 1044</span>  y = (xi & 0xffff) * m + carry;</div><div class="line"><a name="l01045"></a><span class="lineno"> 1045</span>  z = (xi >> 16) * m + (y >> 16);</div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span>  carry = z >> 16;</div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span>  *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ = (z << 16) + (y & 0xffff);</div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span>  y = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> * m + carry;</div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span>  carry = y >> 16;</div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span>  *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ = y & 0xffff;</div><div class="line"><a name="l01052"></a><span class="lineno"> 1052</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span>  } <span class="keywordflow">while</span> (++<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < <a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>);</div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span>  <span class="keywordflow">if</span> (carry) {</div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> >= b-><a class="code" href="../../df/d49/struct_bigint.html#a5ffcac6f95ded3bc1fc23204f46f10d0">maxwds</a>) {</div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span>  b1 = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(b-><a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>+1);</div><div class="line"><a name="l01058"></a><span class="lineno"> 1058</span>  <a class="code" href="../../de/df1/util_8c.html#acb2492181a9c5310befb7e45e65c35c9">Bcopy</a>(b1, b);</div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(b);</div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>  b = b1;</div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>  }</div><div class="line"><a name="l01062"></a><span class="lineno"> 1062</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[<a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>++] = (ULong)carry;</div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = <a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>  }</div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span>  <span class="keywordflow">return</span> b;</div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span> }</div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span> </div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01069"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a6ac718b5ee70bc12a8d8d315aa2d321c"> 1069</a></span> <a class="code" href="../../de/df1/util_8c.html#a6ac718b5ee70bc12a8d8d315aa2d321c">s2b</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *s, <span class="keywordtype">int</span> nd0, <span class="keywordtype">int</span> nd, ULong y9)</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span> {</div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b;</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>  Long <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, y;</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span> </div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = (nd + 8) / 9;</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>  <span class="keywordflow">for</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = 0, y = 1; <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> > y; y <<= 1, <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++) ;</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>  b = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y9;</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = 1;</div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>  b = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>+1);</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y9 & 0xffff;</div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = (b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = y9 >> 16) ? 2 : 1;</div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span> </div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 9;</div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span>  <span class="keywordflow">if</span> (9 < nd0) {</div><div class="line"><a name="l01089"></a><span class="lineno"> 1089</span>  s += 9;</div><div class="line"><a name="l01090"></a><span class="lineno"> 1090</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01091"></a><span class="lineno"> 1091</span>  b = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(b, 10, *s++ - <span class="charliteral">'0'</span>);</div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>  } <span class="keywordflow">while</span> (++<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < nd0);</div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>  s++;</div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>  }</div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>  s += 10;</div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>  <span class="keywordflow">for</span> (; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < nd; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++)</div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>  b = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(b, 10, *s++ - <span class="charliteral">'0'</span>);</div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>  <span class="keywordflow">return</span> b;</div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span> }</div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span> </div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01103"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d"> 1103</a></span> <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<span class="keyword">register</span> ULong <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>)</div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span> {</div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span>  <span class="keyword">register</span> <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = 0;</div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span> </div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xffff0000)) {</div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = 16;</div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> <<= 16;</div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span>  }</div><div class="line"><a name="l01111"></a><span class="lineno"> 1111</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xff000000)) {</div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 8;</div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> <<= 8;</div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span>  }</div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xf0000000)) {</div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 4;</div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> <<= 4;</div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</span>  }</div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xc0000000)) {</div><div class="line"><a name="l01120"></a><span class="lineno"> 1120</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 2;</div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> <<= 2;</div><div class="line"><a name="l01122"></a><span class="lineno"> 1122</span>  }</div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0x80000000)) {</div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++;</div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0x40000000))</div><div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>  <span class="keywordflow">return</span> 32;</div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>  }</div><div class="line"><a name="l01128"></a><span class="lineno"> 1128</span>  <span class="keywordflow">return</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01129"></a><span class="lineno"> 1129</span> }</div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span> </div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01132"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09"> 1132</a></span> <a class="code" href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09">lo0bits</a>(ULong *y)</div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span> {</div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span>  <span class="keyword">register</span> <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span>  <span class="keyword">register</span> ULong <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = *y;</div><div class="line"><a name="l01136"></a><span class="lineno"> 1136</span> </div><div class="line"><a name="l01137"></a><span class="lineno"> 1137</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 7) {</div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 1)</div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 2) {</div><div class="line"><a name="l01141"></a><span class="lineno"> 1141</span>  *y = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >> 1;</div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l01143"></a><span class="lineno"> 1143</span>  }</div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span>  *y = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >> 2;</div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span>  <span class="keywordflow">return</span> 2;</div><div class="line"><a name="l01146"></a><span class="lineno"> 1146</span>  }</div><div class="line"><a name="l01147"></a><span class="lineno"> 1147</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = 0;</div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xffff)) {</div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = 16;</div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >>= 16;</div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span>  }</div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xff)) {</div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 8;</div><div class="line"><a name="l01154"></a><span class="lineno"> 1154</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >>= 8;</div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>  }</div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xf)) {</div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 4;</div><div class="line"><a name="l01158"></a><span class="lineno"> 1158</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >>= 4;</div><div class="line"><a name="l01159"></a><span class="lineno"> 1159</span>  }</div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0x3)) {</div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 2;</div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >>= 2;</div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>  }</div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 1)) {</div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++;</div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> >>= 1;</div><div class="line"><a name="l01167"></a><span class="lineno"> 1167</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>)</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</span>  <span class="keywordflow">return</span> 32;</div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span>  }</div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span>  *y = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span>  <span class="keywordflow">return</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01172"></a><span class="lineno"> 1172</span> }</div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span> </div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01175"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f"> 1175</a></span> <a class="code" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a>(<span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>)</div><div class="line"><a name="l01176"></a><span class="lineno"> 1176</span> {</div><div class="line"><a name="l01177"></a><span class="lineno"> 1177</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b;</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span> </div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>  b = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(1);</div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = 1;</div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>  <span class="keywordflow">return</span> b;</div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</span> }</div><div class="line"><a name="l01184"></a><span class="lineno"> 1184</span> </div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01186"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3"> 1186</a></span> <a class="code" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *a, <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b)</div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span> {</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *c;</div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>, wa, wb, wc;</div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>  ULong *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, *xa, *xae, *xb, *xbe, *xc, *xc0;</div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span>  ULong y;</div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>  <a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a> carry, z;</div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>  ULong carry, z;</div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>  ULong z2;</div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01199"></a><span class="lineno"> 1199</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span> </div><div class="line"><a name="l01201"></a><span class="lineno"> 1201</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> < b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>) {</div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span>  c = a;</div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>  a = b;</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span>  b = c;</div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>  }</div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = a-><a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span>  wa = a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span>  wb = b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>  wc = wa + wb;</div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>  <span class="keywordflow">if</span> (wc > a-><a class="code" href="../../df/d49/struct_bigint.html#a5ffcac6f95ded3bc1fc23204f46f10d0">maxwds</a>)</div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++;</div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>  c = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</span>  <span class="keywordflow">for</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = c-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, xa = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> + wc; <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xa; <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++)</div><div class="line"><a name="l01214"></a><span class="lineno"> 1214</span>  *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = 0;</div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>  xa = a-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>  xae = xa + wa;</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>  xb = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>  xbe = xb + wb;</div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>  xc0 = c-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>  <span class="keywordflow">for</span> (; xb < xbe; xc0++) {</div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span>  <span class="keywordflow">if</span> ((y = *xb++) != 0) {</div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = xa;</div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>  xc = xc0;</div><div class="line"><a name="l01225"></a><span class="lineno"> 1225</span>  carry = 0;</div><div class="line"><a name="l01226"></a><span class="lineno"> 1226</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span>  z = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ * (<a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a>)y + *xc + carry;</div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span>  carry = z >> 32;</div><div class="line"><a name="l01229"></a><span class="lineno"> 1229</span>  *xc++ = (ULong)(z & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>);</div><div class="line"><a name="l01230"></a><span class="lineno"> 1230</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xae);</div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span>  *xc = (ULong)carry;</div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span>  }</div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span>  }</div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span>  <span class="keywordflow">for</span> (; xb < xbe; xb++, xc0++) {</div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</span>  <span class="keywordflow">if</span> (y = *xb & 0xffff) {</div><div class="line"><a name="l01238"></a><span class="lineno"> 1238</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = xa;</div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</span>  xc = xc0;</div><div class="line"><a name="l01240"></a><span class="lineno"> 1240</span>  carry = 0;</div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01242"></a><span class="lineno"> 1242</span>  z = (*<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xffff) * y + (*xc & 0xffff) + carry;</div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</span>  carry = z >> 16;</div><div class="line"><a name="l01244"></a><span class="lineno"> 1244</span>  z2 = (*<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ >> 16) * y + (*xc >> 16) + carry;</div><div class="line"><a name="l01245"></a><span class="lineno"> 1245</span>  carry = z2 >> 16;</div><div class="line"><a name="l01246"></a><span class="lineno"> 1246</span>  <a class="code" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a>(xc, z2, z);</div><div class="line"><a name="l01247"></a><span class="lineno"> 1247</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xae);</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span>  *xc = (ULong)carry;</div><div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>  }</div><div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>  <span class="keywordflow">if</span> (y = *xb >> 16) {</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = xa;</div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span>  xc = xc0;</div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span>  carry = 0;</div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span>  z2 = *xc;</div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span>  z = (*<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> & 0xffff) * y + (*xc >> 16) + carry;</div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span>  carry = z >> 16;</div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span>  <a class="code" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a>(xc, z, z2);</div><div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>  z2 = (*<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ >> 16) * y + (*xc & 0xffff) + carry;</div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>  carry = z2 >> 16;</div><div class="line"><a name="l01261"></a><span class="lineno"> 1261</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xae);</div><div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>  *xc = z2;</div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>  }</div><div class="line"><a name="l01264"></a><span class="lineno"> 1264</span>  }</div><div class="line"><a name="l01265"></a><span class="lineno"> 1265</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01266"></a><span class="lineno"> 1266</span>  <span class="keywordflow">for</span> (; xb < xbe; xc0++) {</div><div class="line"><a name="l01267"></a><span class="lineno"> 1267</span>  <span class="keywordflow">if</span> (y = *xb++) {</div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = xa;</div><div class="line"><a name="l01269"></a><span class="lineno"> 1269</span>  xc = xc0;</div><div class="line"><a name="l01270"></a><span class="lineno"> 1270</span>  carry = 0;</div><div class="line"><a name="l01271"></a><span class="lineno"> 1271</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01272"></a><span class="lineno"> 1272</span>  z = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ * y + *xc + carry;</div><div class="line"><a name="l01273"></a><span class="lineno"> 1273</span>  carry = z >> 16;</div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span>  *xc++ = z & 0xffff;</div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xae);</div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</span>  *xc = (ULong)carry;</div><div class="line"><a name="l01277"></a><span class="lineno"> 1277</span>  }</div><div class="line"><a name="l01278"></a><span class="lineno"> 1278</span>  }</div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>  <span class="keywordflow">for</span> (xc0 = c-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, xc = xc0 + wc; wc > 0 && !*--xc; --wc) ;</div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span>  c-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = wc;</div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>  <span class="keywordflow">return</span> c;</div><div class="line"><a name="l01284"></a><span class="lineno"> 1284</span> }</div><div class="line"><a name="l01285"></a><span class="lineno"> 1285</span> </div><div class="line"><a name="l01286"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea"> 1286</a></span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *<a class="code" href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea">p5s</a>;</div><div class="line"><a name="l01287"></a><span class="lineno"> 1287</span> </div><div class="line"><a name="l01288"></a><span class="lineno"> 1288</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01289"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f"> 1289</a></span> <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b, <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>)</div><div class="line"><a name="l01290"></a><span class="lineno"> 1290</span> {</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b1, *p5, *p51;</div><div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>  <span class="keyword">static</span> <span class="keywordtype">int</span> p05[3] = { 5, 25, 125 };</div><div class="line"><a name="l01294"></a><span class="lineno"> 1294</span> </div><div class="line"><a name="l01295"></a><span class="lineno"> 1295</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> & 3) != 0)</div><div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>  b = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(b, p05[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>-1], 0);</div><div class="line"><a name="l01297"></a><span class="lineno"> 1297</span> </div><div class="line"><a name="l01298"></a><span class="lineno"> 1298</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >>= 2))</div><div class="line"><a name="l01299"></a><span class="lineno"> 1299</span>  <span class="keywordflow">return</span> b;</div><div class="line"><a name="l01300"></a><span class="lineno"> 1300</span>  <span class="keywordflow">if</span> (!(p5 = <a class="code" href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea">p5s</a>)) {</div><div class="line"><a name="l01301"></a><span class="lineno"> 1301</span>  <span class="comment">/* first time */</span></div><div class="line"><a name="l01302"></a><span class="lineno"> 1302</span> <span class="preprocessor">#ifdef MULTIPLE_THREADS</span></div><div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>  <a class="code" href="../../de/df1/util_8c.html#aa1ff217ff4152aa5d9a76f64bc4bbbf7">ACQUIRE_DTOA_LOCK</a>(1);</div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</span>  <span class="keywordflow">if</span> (!(p5 = <a class="code" href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea">p5s</a>)) {</div><div class="line"><a name="l01305"></a><span class="lineno"> 1305</span>  p5 = <a class="code" href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea">p5s</a> = <a class="code" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a>(625);</div><div class="line"><a name="l01306"></a><span class="lineno"> 1306</span>  p5-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a> = 0;</div><div class="line"><a name="l01307"></a><span class="lineno"> 1307</span>  }</div><div class="line"><a name="l01308"></a><span class="lineno"> 1308</span>  <a class="code" href="../../de/df1/util_8c.html#a1f3a0f9150a393b662d93578d7f0f581">FREE_DTOA_LOCK</a>(1);</div><div class="line"><a name="l01309"></a><span class="lineno"> 1309</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01310"></a><span class="lineno"> 1310</span>  p5 = <a class="code" href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea">p5s</a> = <a class="code" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a>(625);</div><div class="line"><a name="l01311"></a><span class="lineno"> 1311</span>  p5-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a> = 0;</div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span>  }</div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> & 1) {</div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>  b1 = <a class="code" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a>(b, p5);</div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(b);</div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span>  b = b1;</div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</span>  }</div><div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >>= 1))</div><div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>  <span class="keywordflow">if</span> (!(p51 = p5-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a>)) {</div><div class="line"><a name="l01323"></a><span class="lineno"> 1323</span> <span class="preprocessor">#ifdef MULTIPLE_THREADS</span></div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>  <a class="code" href="../../de/df1/util_8c.html#aa1ff217ff4152aa5d9a76f64bc4bbbf7">ACQUIRE_DTOA_LOCK</a>(1);</div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</span>  <span class="keywordflow">if</span> (!(p51 = p5-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a>)) {</div><div class="line"><a name="l01326"></a><span class="lineno"> 1326</span>  p51 = p5-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a> = <a class="code" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a>(p5,p5);</div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>  p51-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a> = 0;</div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>  }</div><div class="line"><a name="l01329"></a><span class="lineno"> 1329</span>  <a class="code" href="../../de/df1/util_8c.html#a1f3a0f9150a393b662d93578d7f0f581">FREE_DTOA_LOCK</a>(1);</div><div class="line"><a name="l01330"></a><span class="lineno"> 1330</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01331"></a><span class="lineno"> 1331</span>  p51 = p5-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a> = <a class="code" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a>(p5,p5);</div><div class="line"><a name="l01332"></a><span class="lineno"> 1332</span>  p51-><a class="code" href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">next</a> = 0;</div><div class="line"><a name="l01333"></a><span class="lineno"> 1333</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>  }</div><div class="line"><a name="l01335"></a><span class="lineno"> 1335</span>  p5 = p51;</div><div class="line"><a name="l01336"></a><span class="lineno"> 1336</span>  }</div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>  <span class="keywordflow">return</span> b;</div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span> }</div><div class="line"><a name="l01339"></a><span class="lineno"> 1339</span> </div><div class="line"><a name="l01340"></a><span class="lineno"> 1340</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01341"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa"> 1341</a></span> <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b, <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>)</div><div class="line"><a name="l01342"></a><span class="lineno"> 1342</span> {</div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, k1, n, n1;</div><div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b1;</div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>  ULong *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, *x1, *xe, z;</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</span> </div><div class="line"><a name="l01347"></a><span class="lineno"> 1347</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span>  n = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >> 5;</div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01350"></a><span class="lineno"> 1350</span>  n = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >> 4;</div><div class="line"><a name="l01351"></a><span class="lineno"> 1351</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01352"></a><span class="lineno"> 1352</span>  k1 = b-><a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01353"></a><span class="lineno"> 1353</span>  n1 = n + b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> + 1;</div><div class="line"><a name="l01354"></a><span class="lineno"> 1354</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = b-><a class="code" href="../../df/d49/struct_bigint.html#a5ffcac6f95ded3bc1fc23204f46f10d0">maxwds</a>; n1 > <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> <<= 1)</div><div class="line"><a name="l01355"></a><span class="lineno"> 1355</span>  k1++;</div><div class="line"><a name="l01356"></a><span class="lineno"> 1356</span>  b1 = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(k1);</div><div class="line"><a name="l01357"></a><span class="lineno"> 1357</span>  x1 = b1-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01358"></a><span class="lineno"> 1358</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 0; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < n; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++)</div><div class="line"><a name="l01359"></a><span class="lineno"> 1359</span>  *x1++ = 0;</div><div class="line"><a name="l01360"></a><span class="lineno"> 1360</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01361"></a><span class="lineno"> 1361</span>  xe = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> + b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01362"></a><span class="lineno"> 1362</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01363"></a><span class="lineno"> 1363</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> &= 0x1f) {</div><div class="line"><a name="l01364"></a><span class="lineno"> 1364</span>  k1 = 32 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01365"></a><span class="lineno"> 1365</span>  z = 0;</div><div class="line"><a name="l01366"></a><span class="lineno"> 1366</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01367"></a><span class="lineno"> 1367</span>  *x1++ = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> | z;</div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span>  z = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ >> k1;</div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xe);</div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span>  <span class="keywordflow">if</span> ((*x1 = z) != 0)</div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span>  ++n1;</div><div class="line"><a name="l01372"></a><span class="lineno"> 1372</span>  }</div><div class="line"><a name="l01373"></a><span class="lineno"> 1373</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01374"></a><span class="lineno"> 1374</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> &= 0xf) {</div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span>  k1 = 16 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span>  z = 0;</div><div class="line"><a name="l01377"></a><span class="lineno"> 1377</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01378"></a><span class="lineno"> 1378</span>  *x1++ = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> & 0xffff | z;</div><div class="line"><a name="l01379"></a><span class="lineno"> 1379</span>  z = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++ >> k1;</div><div class="line"><a name="l01380"></a><span class="lineno"> 1380</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xe);</div><div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>  <span class="keywordflow">if</span> (*x1 = z)</div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>  ++n1;</div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>  }</div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01385"></a><span class="lineno"> 1385</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>  *x1++ = *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>++;</div><div class="line"><a name="l01388"></a><span class="lineno"> 1388</span>  } <span class="keywordflow">while</span> (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> < xe);</div><div class="line"><a name="l01389"></a><span class="lineno"> 1389</span>  b1-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = n1 - 1;</div><div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(b);</div><div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>  <span class="keywordflow">return</span> b1;</div><div class="line"><a name="l01392"></a><span class="lineno"> 1392</span> }</div><div class="line"><a name="l01393"></a><span class="lineno"> 1393</span> </div><div class="line"><a name="l01394"></a><span class="lineno"> 1394</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01395"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe"> 1395</a></span> <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *a, <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b)</div><div class="line"><a name="l01396"></a><span class="lineno"> 1396</span> {</div><div class="line"><a name="l01397"></a><span class="lineno"> 1397</span>  ULong *xa, *xa0, *xb, *xb0;</div><div class="line"><a name="l01398"></a><span class="lineno"> 1398</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, j;</div><div class="line"><a name="l01399"></a><span class="lineno"> 1399</span> </div><div class="line"><a name="l01400"></a><span class="lineno"> 1400</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01401"></a><span class="lineno"> 1401</span>  j = b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01402"></a><span class="lineno"> 1402</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l01403"></a><span class="lineno"> 1403</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> > 1 && !a-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>-1])</div><div class="line"><a name="l01404"></a><span class="lineno"> 1404</span>  Bug(<span class="stringliteral">"cmp called with a->x[a->wds-1] == 0"</span>);</div><div class="line"><a name="l01405"></a><span class="lineno"> 1405</span>  <span class="keywordflow">if</span> (j > 1 && !b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[j-1])</div><div class="line"><a name="l01406"></a><span class="lineno"> 1406</span>  Bug(<span class="stringliteral">"cmp called with b->x[b->wds-1] == 0"</span>);</div><div class="line"><a name="l01407"></a><span class="lineno"> 1407</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01408"></a><span class="lineno"> 1408</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> -= j)</div><div class="line"><a name="l01409"></a><span class="lineno"> 1409</span>  <span class="keywordflow">return</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>  xa0 = a-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01411"></a><span class="lineno"> 1411</span>  xa = xa0 + j;</div><div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>  xb0 = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01413"></a><span class="lineno"> 1413</span>  xb = xb0 + j;</div><div class="line"><a name="l01414"></a><span class="lineno"> 1414</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l01415"></a><span class="lineno"> 1415</span>  <span class="keywordflow">if</span> (*--xa != *--xb)</div><div class="line"><a name="l01416"></a><span class="lineno"> 1416</span>  <span class="keywordflow">return</span> *xa < *xb ? -1 : 1;</div><div class="line"><a name="l01417"></a><span class="lineno"> 1417</span>  <span class="keywordflow">if</span> (xa <= xa0)</div><div class="line"><a name="l01418"></a><span class="lineno"> 1418</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01419"></a><span class="lineno"> 1419</span>  }</div><div class="line"><a name="l01420"></a><span class="lineno"> 1420</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l01421"></a><span class="lineno"> 1421</span> }</div><div class="line"><a name="l01422"></a><span class="lineno"> 1422</span> </div><div class="line"><a name="l01423"></a><span class="lineno"> 1423</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01424"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a84207aa1bd71cbf7b683da325e61d0e5"> 1424</a></span> <a class="code" href="../../de/df1/util_8c.html#a84207aa1bd71cbf7b683da325e61d0e5">diff</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *a, <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b)</div><div class="line"><a name="l01425"></a><span class="lineno"> 1425</span> {</div><div class="line"><a name="l01426"></a><span class="lineno"> 1426</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *c;</div><div class="line"><a name="l01427"></a><span class="lineno"> 1427</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, wa, wb;</div><div class="line"><a name="l01428"></a><span class="lineno"> 1428</span>  ULong *xa, *xae, *xb, *xbe, *xc;</div><div class="line"><a name="l01429"></a><span class="lineno"> 1429</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l01430"></a><span class="lineno"> 1430</span>  <a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a> borrow, y;</div><div class="line"><a name="l01431"></a><span class="lineno"> 1431</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01432"></a><span class="lineno"> 1432</span>  ULong borrow, y;</div><div class="line"><a name="l01433"></a><span class="lineno"> 1433</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01434"></a><span class="lineno"> 1434</span>  ULong z;</div><div class="line"><a name="l01435"></a><span class="lineno"> 1435</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01436"></a><span class="lineno"> 1436</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01437"></a><span class="lineno"> 1437</span> </div><div class="line"><a name="l01438"></a><span class="lineno"> 1438</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(a,b);</div><div class="line"><a name="l01439"></a><span class="lineno"> 1439</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div><div class="line"><a name="l01440"></a><span class="lineno"> 1440</span>  c = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(0);</div><div class="line"><a name="l01441"></a><span class="lineno"> 1441</span>  c-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = 1;</div><div class="line"><a name="l01442"></a><span class="lineno"> 1442</span>  c-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = 0;</div><div class="line"><a name="l01443"></a><span class="lineno"> 1443</span>  <span class="keywordflow">return</span> c;</div><div class="line"><a name="l01444"></a><span class="lineno"> 1444</span>  }</div><div class="line"><a name="l01445"></a><span class="lineno"> 1445</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < 0) {</div><div class="line"><a name="l01446"></a><span class="lineno"> 1446</span>  c = a;</div><div class="line"><a name="l01447"></a><span class="lineno"> 1447</span>  a = b;</div><div class="line"><a name="l01448"></a><span class="lineno"> 1448</span>  b = c;</div><div class="line"><a name="l01449"></a><span class="lineno"> 1449</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;</div><div class="line"><a name="l01450"></a><span class="lineno"> 1450</span>  }</div><div class="line"><a name="l01451"></a><span class="lineno"> 1451</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l01452"></a><span class="lineno"> 1452</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 0;</div><div class="line"><a name="l01453"></a><span class="lineno"> 1453</span>  c = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(a-><a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01454"></a><span class="lineno"> 1454</span>  c-><a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l01455"></a><span class="lineno"> 1455</span>  wa = a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>  xa = a-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01457"></a><span class="lineno"> 1457</span>  xae = xa + wa;</div><div class="line"><a name="l01458"></a><span class="lineno"> 1458</span>  wb = b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01459"></a><span class="lineno"> 1459</span>  xb = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01460"></a><span class="lineno"> 1460</span>  xbe = xb + wb;</div><div class="line"><a name="l01461"></a><span class="lineno"> 1461</span>  xc = c-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01462"></a><span class="lineno"> 1462</span>  borrow = 0;</div><div class="line"><a name="l01463"></a><span class="lineno"> 1463</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l01464"></a><span class="lineno"> 1464</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01465"></a><span class="lineno"> 1465</span>  y = (<a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a>)*xa++ - *xb++ - borrow;</div><div class="line"><a name="l01466"></a><span class="lineno"> 1466</span>  borrow = y >> 32 & (ULong)1;</div><div class="line"><a name="l01467"></a><span class="lineno"> 1467</span>  *xc++ = (ULong)(y & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>);</div><div class="line"><a name="l01468"></a><span class="lineno"> 1468</span>  } <span class="keywordflow">while</span> (xb < xbe);</div><div class="line"><a name="l01469"></a><span class="lineno"> 1469</span>  <span class="keywordflow">while</span> (xa < xae) {</div><div class="line"><a name="l01470"></a><span class="lineno"> 1470</span>  y = *xa++ - borrow;</div><div class="line"><a name="l01471"></a><span class="lineno"> 1471</span>  borrow = y >> 32 & (ULong)1;</div><div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>  *xc++ = (ULong)(y & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>);</div><div class="line"><a name="l01473"></a><span class="lineno"> 1473</span>  }</div><div class="line"><a name="l01474"></a><span class="lineno"> 1474</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01475"></a><span class="lineno"> 1475</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01476"></a><span class="lineno"> 1476</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01477"></a><span class="lineno"> 1477</span>  y = (*xa & 0xffff) - (*xb & 0xffff) - borrow;</div><div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l01479"></a><span class="lineno"> 1479</span>  z = (*xa++ >> 16) - (*xb++ >> 16) - borrow;</div><div class="line"><a name="l01480"></a><span class="lineno"> 1480</span>  borrow = (z & 0x10000) >> 16;</div><div class="line"><a name="l01481"></a><span class="lineno"> 1481</span>  <a class="code" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a>(xc, z, y);</div><div class="line"><a name="l01482"></a><span class="lineno"> 1482</span>  } <span class="keywordflow">while</span> (xb < xbe);</div><div class="line"><a name="l01483"></a><span class="lineno"> 1483</span>  <span class="keywordflow">while</span> (xa < xae) {</div><div class="line"><a name="l01484"></a><span class="lineno"> 1484</span>  y = (*xa & 0xffff) - borrow;</div><div class="line"><a name="l01485"></a><span class="lineno"> 1485</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l01486"></a><span class="lineno"> 1486</span>  z = (*xa++ >> 16) - borrow;</div><div class="line"><a name="l01487"></a><span class="lineno"> 1487</span>  borrow = (z & 0x10000) >> 16;</div><div class="line"><a name="l01488"></a><span class="lineno"> 1488</span>  <a class="code" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a>(xc, z, y);</div><div class="line"><a name="l01489"></a><span class="lineno"> 1489</span>  }</div><div class="line"><a name="l01490"></a><span class="lineno"> 1490</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01491"></a><span class="lineno"> 1491</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01492"></a><span class="lineno"> 1492</span>  y = *xa++ - *xb++ - borrow;</div><div class="line"><a name="l01493"></a><span class="lineno"> 1493</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l01494"></a><span class="lineno"> 1494</span>  *xc++ = y & 0xffff;</div><div class="line"><a name="l01495"></a><span class="lineno"> 1495</span>  } <span class="keywordflow">while</span> (xb < xbe);</div><div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>  <span class="keywordflow">while</span> (xa < xae) {</div><div class="line"><a name="l01497"></a><span class="lineno"> 1497</span>  y = *xa++ - borrow;</div><div class="line"><a name="l01498"></a><span class="lineno"> 1498</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l01499"></a><span class="lineno"> 1499</span>  *xc++ = y & 0xffff;</div><div class="line"><a name="l01500"></a><span class="lineno"> 1500</span>  }</div><div class="line"><a name="l01501"></a><span class="lineno"> 1501</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01502"></a><span class="lineno"> 1502</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01503"></a><span class="lineno"> 1503</span>  <span class="keywordflow">while</span> (!*--xc)</div><div class="line"><a name="l01504"></a><span class="lineno"> 1504</span>  wa--;</div><div class="line"><a name="l01505"></a><span class="lineno"> 1505</span>  c-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = wa;</div><div class="line"><a name="l01506"></a><span class="lineno"> 1506</span>  <span class="keywordflow">return</span> c;</div><div class="line"><a name="l01507"></a><span class="lineno"> 1507</span> }</div><div class="line"><a name="l01508"></a><span class="lineno"> 1508</span> </div><div class="line"><a name="l01509"></a><span class="lineno"> 1509</span> <span class="keyword">static</span> <span class="keywordtype">double</span></div><div class="line"><a name="l01510"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31"> 1510</a></span> <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<span class="keywordtype">double</span> x_)</div><div class="line"><a name="l01511"></a><span class="lineno"> 1511</span> {</div><div class="line"><a name="l01512"></a><span class="lineno"> 1512</span>  <span class="keyword">register</span> Long L;</div><div class="line"><a name="l01513"></a><span class="lineno"> 1513</span>  <a class="code" href="../../d9/db2/union_u.html">double_u</a> <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, a;</div><div class="line"><a name="l01514"></a><span class="lineno"> 1514</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>) = x_;</div><div class="line"><a name="l01515"></a><span class="lineno"> 1515</span> </div><div class="line"><a name="l01516"></a><span class="lineno"> 1516</span>  L = (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) - (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l01517"></a><span class="lineno"> 1517</span> <span class="preprocessor">#ifndef Avoid_Underflow</span></div><div class="line"><a name="l01518"></a><span class="lineno"> 1518</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01519"></a><span class="lineno"> 1519</span>  <span class="keywordflow">if</span> (L > 0) {</div><div class="line"><a name="l01520"></a><span class="lineno"> 1520</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01521"></a><span class="lineno"> 1521</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01522"></a><span class="lineno"> 1522</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l01523"></a><span class="lineno"> 1523</span>  L |= <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> >> 4;</div><div class="line"><a name="l01524"></a><span class="lineno"> 1524</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01525"></a><span class="lineno"> 1525</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(a) = L;</div><div class="line"><a name="l01526"></a><span class="lineno"> 1526</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(a) = 0;</div><div class="line"><a name="l01527"></a><span class="lineno"> 1527</span> <span class="preprocessor">#ifndef Avoid_Underflow</span></div><div class="line"><a name="l01528"></a><span class="lineno"> 1528</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01529"></a><span class="lineno"> 1529</span>  }</div><div class="line"><a name="l01530"></a><span class="lineno"> 1530</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01531"></a><span class="lineno"> 1531</span>  L = -L >> <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>;</div><div class="line"><a name="l01532"></a><span class="lineno"> 1532</span>  <span class="keywordflow">if</span> (L < <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>) {</div><div class="line"><a name="l01533"></a><span class="lineno"> 1533</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(a) = 0x80000 >> L;</div><div class="line"><a name="l01534"></a><span class="lineno"> 1534</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(a) = 0;</div><div class="line"><a name="l01535"></a><span class="lineno"> 1535</span>  }</div><div class="line"><a name="l01536"></a><span class="lineno"> 1536</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01537"></a><span class="lineno"> 1537</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(a) = 0;</div><div class="line"><a name="l01538"></a><span class="lineno"> 1538</span>  L -= <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>;</div><div class="line"><a name="l01539"></a><span class="lineno"> 1539</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(a) = L >= 31 ? 1 : 1 << 31 - L;</div><div class="line"><a name="l01540"></a><span class="lineno"> 1540</span>  }</div><div class="line"><a name="l01541"></a><span class="lineno"> 1541</span>  }</div><div class="line"><a name="l01542"></a><span class="lineno"> 1542</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01543"></a><span class="lineno"> 1543</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01544"></a><span class="lineno"> 1544</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(a);</div><div class="line"><a name="l01545"></a><span class="lineno"> 1545</span> }</div><div class="line"><a name="l01546"></a><span class="lineno"> 1546</span> </div><div class="line"><a name="l01547"></a><span class="lineno"> 1547</span> <span class="keyword">static</span> <span class="keywordtype">double</span></div><div class="line"><a name="l01548"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a1064d3e97f2c0a459a42eed3e18dd9e5"> 1548</a></span> <a class="code" href="../../de/df1/util_8c.html#a1064d3e97f2c0a459a42eed3e18dd9e5">b2d</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *a, <span class="keywordtype">int</span> *e)</div><div class="line"><a name="l01549"></a><span class="lineno"> 1549</span> {</div><div class="line"><a name="l01550"></a><span class="lineno"> 1550</span>  ULong *xa, *xa0, w, y, z;</div><div class="line"><a name="l01551"></a><span class="lineno"> 1551</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>  <a class="code" href="../../d9/db2/union_u.html">double_u</a> d;</div><div class="line"><a name="l01553"></a><span class="lineno"> 1553</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l01554"></a><span class="lineno"> 1554</span>  ULong <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a>, <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a>;</div><div class="line"><a name="l01555"></a><span class="lineno"> 1555</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01556"></a><span class="lineno"> 1556</span> <span class="preprocessor">#define d0 word0(d)</span></div><div class="line"><a name="l01557"></a><span class="lineno"> 1557</span> <span class="preprocessor">#define d1 word1(d)</span></div><div class="line"><a name="l01558"></a><span class="lineno"> 1558</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01559"></a><span class="lineno"> 1559</span> </div><div class="line"><a name="l01560"></a><span class="lineno"> 1560</span>  xa0 = a-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01561"></a><span class="lineno"> 1561</span>  xa = xa0 + a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>;</div><div class="line"><a name="l01562"></a><span class="lineno"> 1562</span>  y = *--xa;</div><div class="line"><a name="l01563"></a><span class="lineno"> 1563</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l01564"></a><span class="lineno"> 1564</span>  <span class="keywordflow">if</span> (!y) Bug(<span class="stringliteral">"zero y in b2d"</span>);</div><div class="line"><a name="l01565"></a><span class="lineno"> 1565</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01566"></a><span class="lineno"> 1566</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(y);</div><div class="line"><a name="l01567"></a><span class="lineno"> 1567</span>  *e = 32 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01568"></a><span class="lineno"> 1568</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01569"></a><span class="lineno"> 1569</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> < <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a>) {</div><div class="line"><a name="l01570"></a><span class="lineno"> 1570</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> | y >> (<a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01571"></a><span class="lineno"> 1571</span>  w = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01572"></a><span class="lineno"> 1572</span>  <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> = y << ((32-<a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a>) + <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>) | w >> (<a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01573"></a><span class="lineno"> 1573</span>  <span class="keywordflow">goto</span> ret_d;</div><div class="line"><a name="l01574"></a><span class="lineno"> 1574</span>  }</div><div class="line"><a name="l01575"></a><span class="lineno"> 1575</span>  z = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01576"></a><span class="lineno"> 1576</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> -= <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a>) {</div><div class="line"><a name="l01577"></a><span class="lineno"> 1577</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> | y << k | z >> (32 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01578"></a><span class="lineno"> 1578</span>  y = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01579"></a><span class="lineno"> 1579</span>  <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> = z << k | y >> (32 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01580"></a><span class="lineno"> 1580</span>  }</div><div class="line"><a name="l01581"></a><span class="lineno"> 1581</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01582"></a><span class="lineno"> 1582</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> | y;</div><div class="line"><a name="l01583"></a><span class="lineno"> 1583</span>  <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> = z;</div><div class="line"><a name="l01584"></a><span class="lineno"> 1584</span>  }</div><div class="line"><a name="l01585"></a><span class="lineno"> 1585</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01586"></a><span class="lineno"> 1586</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> < <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> + 16) {</div><div class="line"><a name="l01587"></a><span class="lineno"> 1587</span>  z = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01588"></a><span class="lineno"> 1588</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> | y << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> - <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> | z >> <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> + 16 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01589"></a><span class="lineno"> 1589</span>  w = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01590"></a><span class="lineno"> 1590</span>  y = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01591"></a><span class="lineno"> 1591</span>  <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> = z << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> + 16 - <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> | w << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> - <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> | y >> 16 + <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01592"></a><span class="lineno"> 1592</span>  <span class="keywordflow">goto</span> ret_d;</div><div class="line"><a name="l01593"></a><span class="lineno"> 1593</span>  }</div><div class="line"><a name="l01594"></a><span class="lineno"> 1594</span>  z = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01595"></a><span class="lineno"> 1595</span>  w = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01596"></a><span class="lineno"> 1596</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> -= <a class="code" href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a> + 16;</div><div class="line"><a name="l01597"></a><span class="lineno"> 1597</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> | y << k + 16 | z << k | w >> 16 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01598"></a><span class="lineno"> 1598</span>  y = xa > xa0 ? *--xa : 0;</div><div class="line"><a name="l01599"></a><span class="lineno"> 1599</span>  <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> = w << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> + 16 | y << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01600"></a><span class="lineno"> 1600</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01601"></a><span class="lineno"> 1601</span> ret_d:</div><div class="line"><a name="l01602"></a><span class="lineno"> 1602</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l01603"></a><span class="lineno"> 1603</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) = <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> >> 16 | <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> << 16;</div><div class="line"><a name="l01604"></a><span class="lineno"> 1604</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) = <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> >> 16 | <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> << 16;</div><div class="line"><a name="l01605"></a><span class="lineno"> 1605</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01606"></a><span class="lineno"> 1606</span> <span class="preprocessor">#undef d0</span></div><div class="line"><a name="l01607"></a><span class="lineno"> 1607</span> <span class="preprocessor">#undef d1</span></div><div class="line"><a name="l01608"></a><span class="lineno"> 1608</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01609"></a><span class="lineno"> 1609</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d);</div><div class="line"><a name="l01610"></a><span class="lineno"> 1610</span> }</div><div class="line"><a name="l01611"></a><span class="lineno"> 1611</span> </div><div class="line"><a name="l01612"></a><span class="lineno"> 1612</span> <span class="keyword">static</span> <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *</div><div class="line"><a name="l01613"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a2a8c76789579ca99ff38f31fa59d9fb9"> 1613</a></span> <a class="code" href="../../de/df1/util_8c.html#a2a8c76789579ca99ff38f31fa59d9fb9">d2b</a>(<span class="keywordtype">double</span> d_, <span class="keywordtype">int</span> *e, <span class="keywordtype">int</span> *bits)</div><div class="line"><a name="l01614"></a><span class="lineno"> 1614</span> {</div><div class="line"><a name="l01615"></a><span class="lineno"> 1615</span>  <a class="code" href="../../d9/db2/union_u.html">double_u</a> d;</div><div class="line"><a name="l01616"></a><span class="lineno"> 1616</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b;</div><div class="line"><a name="l01617"></a><span class="lineno"> 1617</span>  <span class="keywordtype">int</span> de, <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01618"></a><span class="lineno"> 1618</span>  ULong *<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>, y, z;</div><div class="line"><a name="l01619"></a><span class="lineno"> 1619</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01620"></a><span class="lineno"> 1620</span>  <span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l01621"></a><span class="lineno"> 1621</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01622"></a><span class="lineno"> 1622</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l01623"></a><span class="lineno"> 1623</span>  ULong <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a>, <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a>;</div><div class="line"><a name="l01624"></a><span class="lineno"> 1624</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01625"></a><span class="lineno"> 1625</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) = d_;</div><div class="line"><a name="l01626"></a><span class="lineno"> 1626</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l01627"></a><span class="lineno"> 1627</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) >> 16 | <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) << 16;</div><div class="line"><a name="l01628"></a><span class="lineno"> 1628</span>  <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a> = <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) >> 16 | <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) << 16;</div><div class="line"><a name="l01629"></a><span class="lineno"> 1629</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01630"></a><span class="lineno"> 1630</span> <span class="preprocessor">#define d0 word0(d)</span></div><div class="line"><a name="l01631"></a><span class="lineno"> 1631</span> <span class="preprocessor">#define d1 word1(d)</span></div><div class="line"><a name="l01632"></a><span class="lineno"> 1632</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01633"></a><span class="lineno"> 1633</span> </div><div class="line"><a name="l01634"></a><span class="lineno"> 1634</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01635"></a><span class="lineno"> 1635</span>  b = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(1);</div><div class="line"><a name="l01636"></a><span class="lineno"> 1636</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>  b = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(2);</div><div class="line"><a name="l01638"></a><span class="lineno"> 1638</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01639"></a><span class="lineno"> 1639</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l01640"></a><span class="lineno"> 1640</span> </div><div class="line"><a name="l01641"></a><span class="lineno"> 1641</span>  z = <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> & <a class="code" href="../../de/df1/util_8c.html#a3e6dc09a955126ee74b3870ac287e370">Frac_mask</a>;</div><div class="line"><a name="l01642"></a><span class="lineno"> 1642</span>  <a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> &= 0x7fffffff; <span class="comment">/* clear sign bit, which we ignore */</span></div><div class="line"><a name="l01643"></a><span class="lineno"> 1643</span> <span class="preprocessor">#ifdef Sudden_Underflow</span></div><div class="line"><a name="l01644"></a><span class="lineno"> 1644</span>  de = (int)(<a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> >> <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>);</div><div class="line"><a name="l01645"></a><span class="lineno"> 1645</span> <span class="preprocessor">#ifndef IBM</span></div><div class="line"><a name="l01646"></a><span class="lineno"> 1646</span>  z |= <a class="code" href="../../de/df1/util_8c.html#a0997add05e477b3a97fcb24f1600468e">Exp_msk11</a>;</div><div class="line"><a name="l01647"></a><span class="lineno"> 1647</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01648"></a><span class="lineno"> 1648</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01649"></a><span class="lineno"> 1649</span>  <span class="keywordflow">if</span> ((de = (<span class="keywordtype">int</span>)(<a class="code" href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a> >> <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>)) != 0)</div><div class="line"><a name="l01650"></a><span class="lineno"> 1650</span>  z |= <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l01651"></a><span class="lineno"> 1651</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01652"></a><span class="lineno"> 1652</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01653"></a><span class="lineno"> 1653</span>  <span class="keywordflow">if</span> ((y = <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a>) != 0) {</div><div class="line"><a name="l01654"></a><span class="lineno"> 1654</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = <a class="code" href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09">lo0bits</a>(&y)) != 0) {</div><div class="line"><a name="l01655"></a><span class="lineno"> 1655</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y | z << (32 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l01656"></a><span class="lineno"> 1656</span>  z >>= <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01657"></a><span class="lineno"> 1657</span>  }</div><div class="line"><a name="l01658"></a><span class="lineno"> 1658</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l01659"></a><span class="lineno"> 1659</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y;</div><div class="line"><a name="l01660"></a><span class="lineno"> 1660</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01661"></a><span class="lineno"> 1661</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> =</div><div class="line"><a name="l01662"></a><span class="lineno"> 1662</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01663"></a><span class="lineno"> 1663</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = z) ? 2 : 1;</div><div class="line"><a name="l01664"></a><span class="lineno"> 1664</span>  }</div><div class="line"><a name="l01665"></a><span class="lineno"> 1665</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01666"></a><span class="lineno"> 1666</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l01667"></a><span class="lineno"> 1667</span>  <span class="keywordflow">if</span> (!z)</div><div class="line"><a name="l01668"></a><span class="lineno"> 1668</span>  Bug(<span class="stringliteral">"Zero passed to d2b"</span>);</div><div class="line"><a name="l01669"></a><span class="lineno"> 1669</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01670"></a><span class="lineno"> 1670</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = <a class="code" href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09">lo0bits</a>(&z);</div><div class="line"><a name="l01671"></a><span class="lineno"> 1671</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = z;</div><div class="line"><a name="l01672"></a><span class="lineno"> 1672</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> =</div><div class="line"><a name="l01674"></a><span class="lineno"> 1674</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = 1;</div><div class="line"><a name="l01676"></a><span class="lineno"> 1676</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 32;</div><div class="line"><a name="l01677"></a><span class="lineno"> 1677</span>  }</div><div class="line"><a name="l01678"></a><span class="lineno"> 1678</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01679"></a><span class="lineno"> 1679</span>  <span class="keywordflow">if</span> (y = <a class="code" href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a>) {</div><div class="line"><a name="l01680"></a><span class="lineno"> 1680</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = <a class="code" href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09">lo0bits</a>(&y))</div><div class="line"><a name="l01681"></a><span class="lineno"> 1681</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >= 16) {</div><div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y | z << 32 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> & 0xffff;</div><div class="line"><a name="l01683"></a><span class="lineno"> 1683</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = z >> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> - 16 & 0xffff;</div><div class="line"><a name="l01684"></a><span class="lineno"> 1684</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[2] = z >> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 2;</div><div class="line"><a name="l01686"></a><span class="lineno"> 1686</span>  }</div><div class="line"><a name="l01687"></a><span class="lineno"> 1687</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01688"></a><span class="lineno"> 1688</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y & 0xffff;</div><div class="line"><a name="l01689"></a><span class="lineno"> 1689</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = y >> 16 | z << 16 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> & 0xffff;</div><div class="line"><a name="l01690"></a><span class="lineno"> 1690</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[2] = z >> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> & 0xffff;</div><div class="line"><a name="l01691"></a><span class="lineno"> 1691</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[3] = z >> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>+16;</div><div class="line"><a name="l01692"></a><span class="lineno"> 1692</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 3;</div><div class="line"><a name="l01693"></a><span class="lineno"> 1693</span>  }</div><div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01695"></a><span class="lineno"> 1695</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = y & 0xffff;</div><div class="line"><a name="l01696"></a><span class="lineno"> 1696</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = y >> 16;</div><div class="line"><a name="l01697"></a><span class="lineno"> 1697</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[2] = z & 0xffff;</div><div class="line"><a name="l01698"></a><span class="lineno"> 1698</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[3] = z >> 16;</div><div class="line"><a name="l01699"></a><span class="lineno"> 1699</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 3;</div><div class="line"><a name="l01700"></a><span class="lineno"> 1700</span>  }</div><div class="line"><a name="l01701"></a><span class="lineno"> 1701</span>  }</div><div class="line"><a name="l01702"></a><span class="lineno"> 1702</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01703"></a><span class="lineno"> 1703</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l01704"></a><span class="lineno"> 1704</span>  <span class="keywordflow">if</span> (!z)</div><div class="line"><a name="l01705"></a><span class="lineno"> 1705</span>  Bug(<span class="stringliteral">"Zero passed to d2b"</span>);</div><div class="line"><a name="l01706"></a><span class="lineno"> 1706</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01707"></a><span class="lineno"> 1707</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = <a class="code" href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09">lo0bits</a>(&z);</div><div class="line"><a name="l01708"></a><span class="lineno"> 1708</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >= 16) {</div><div class="line"><a name="l01709"></a><span class="lineno"> 1709</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = z;</div><div class="line"><a name="l01710"></a><span class="lineno"> 1710</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 0;</div><div class="line"><a name="l01711"></a><span class="lineno"> 1711</span>  }</div><div class="line"><a name="l01712"></a><span class="lineno"> 1712</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01713"></a><span class="lineno"> 1713</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = z & 0xffff;</div><div class="line"><a name="l01714"></a><span class="lineno"> 1714</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = z >> 16;</div><div class="line"><a name="l01715"></a><span class="lineno"> 1715</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;</div><div class="line"><a name="l01716"></a><span class="lineno"> 1716</span>  }</div><div class="line"><a name="l01717"></a><span class="lineno"> 1717</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> += 32;</div><div class="line"><a name="l01718"></a><span class="lineno"> 1718</span>  }</div><div class="line"><a name="l01719"></a><span class="lineno"> 1719</span>  <span class="keywordflow">while</span> (!<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>])</div><div class="line"><a name="l01720"></a><span class="lineno"> 1720</span>  --<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l01721"></a><span class="lineno"> 1721</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> + 1;</div><div class="line"><a name="l01722"></a><span class="lineno"> 1722</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01723"></a><span class="lineno"> 1723</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01724"></a><span class="lineno"> 1724</span>  <span class="keywordflow">if</span> (de) {</div><div class="line"><a name="l01725"></a><span class="lineno"> 1725</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01726"></a><span class="lineno"> 1726</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l01727"></a><span class="lineno"> 1727</span>  *e = (de - <a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a> - (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1) << 2) + <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01728"></a><span class="lineno"> 1728</span>  *bits = 4*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> + 8 - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> - <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) & <a class="code" href="../../de/df1/util_8c.html#a3e6dc09a955126ee74b3870ac287e370">Frac_mask</a>);</div><div class="line"><a name="l01729"></a><span class="lineno"> 1729</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01730"></a><span class="lineno"> 1730</span>  *e = de - <a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a> - (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1) + <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01731"></a><span class="lineno"> 1731</span>  *bits = <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01732"></a><span class="lineno"> 1732</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01733"></a><span class="lineno"> 1733</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l01734"></a><span class="lineno"> 1734</span>  }</div><div class="line"><a name="l01735"></a><span class="lineno"> 1735</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01736"></a><span class="lineno"> 1736</span>  *e = de - <a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a> - (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1) + 1 + <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01737"></a><span class="lineno"> 1737</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01738"></a><span class="lineno"> 1738</span>  *bits = 32*<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> - <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>-1]);</div><div class="line"><a name="l01739"></a><span class="lineno"> 1739</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01740"></a><span class="lineno"> 1740</span>  *bits = (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>+2)*16 - <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>]);</div><div class="line"><a name="l01741"></a><span class="lineno"> 1741</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>  }</div><div class="line"><a name="l01743"></a><span class="lineno"> 1743</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01744"></a><span class="lineno"> 1744</span>  <span class="keywordflow">return</span> b;</div><div class="line"><a name="l01745"></a><span class="lineno"> 1745</span> }</div><div class="line"><a name="l01746"></a><span class="lineno"> 1746</span> <span class="preprocessor">#undef d0</span></div><div class="line"><a name="l01747"></a><span class="lineno"> 1747</span> <span class="preprocessor">#undef d1</span></div><div class="line"><a name="l01748"></a><span class="lineno"> 1748</span> </div><div class="line"><a name="l01749"></a><span class="lineno"> 1749</span> <span class="keyword">static</span> <span class="keywordtype">double</span></div><div class="line"><a name="l01750"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ae5567a2ba4448098128614fe9779209b"> 1750</a></span> <a class="code" href="../../de/df1/util_8c.html#ae5567a2ba4448098128614fe9779209b">ratio</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *a, <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b)</div><div class="line"><a name="l01751"></a><span class="lineno"> 1751</span> {</div><div class="line"><a name="l01752"></a><span class="lineno"> 1752</span>  <a class="code" href="../../d9/db2/union_u.html">double_u</a> da, db;</div><div class="line"><a name="l01753"></a><span class="lineno"> 1753</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>, ka, kb;</div><div class="line"><a name="l01754"></a><span class="lineno"> 1754</span> </div><div class="line"><a name="l01755"></a><span class="lineno"> 1755</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(da) = <a class="code" href="../../de/df1/util_8c.html#a1064d3e97f2c0a459a42eed3e18dd9e5">b2d</a>(a, &ka);</div><div class="line"><a name="l01756"></a><span class="lineno"> 1756</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(db) = <a class="code" href="../../de/df1/util_8c.html#a1064d3e97f2c0a459a42eed3e18dd9e5">b2d</a>(b, &kb);</div><div class="line"><a name="l01757"></a><span class="lineno"> 1757</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l01758"></a><span class="lineno"> 1758</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = ka - kb + 32*(a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> - b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>);</div><div class="line"><a name="l01759"></a><span class="lineno"> 1759</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01760"></a><span class="lineno"> 1760</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = ka - kb + 16*(a-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> - b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a>);</div><div class="line"><a name="l01761"></a><span class="lineno"> 1761</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01762"></a><span class="lineno"> 1762</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l01763"></a><span class="lineno"> 1763</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> > 0) {</div><div class="line"><a name="l01764"></a><span class="lineno"> 1764</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(da) += (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >> 2)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l01765"></a><span class="lineno"> 1765</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> &= 3)</div><div class="line"><a name="l01766"></a><span class="lineno"> 1766</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(da) *= 1 << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01767"></a><span class="lineno"> 1767</span>  }</div><div class="line"><a name="l01768"></a><span class="lineno"> 1768</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01769"></a><span class="lineno"> 1769</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = -<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01770"></a><span class="lineno"> 1770</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(db) += (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >> 2)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l01771"></a><span class="lineno"> 1771</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> &= 3)</div><div class="line"><a name="l01772"></a><span class="lineno"> 1772</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(db) *= 1 << <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01773"></a><span class="lineno"> 1773</span>  }</div><div class="line"><a name="l01774"></a><span class="lineno"> 1774</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01775"></a><span class="lineno"> 1775</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> > 0)</div><div class="line"><a name="l01776"></a><span class="lineno"> 1776</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(da) += <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l01777"></a><span class="lineno"> 1777</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01778"></a><span class="lineno"> 1778</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = -<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l01779"></a><span class="lineno"> 1779</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(db) += <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l01780"></a><span class="lineno"> 1780</span>  }</div><div class="line"><a name="l01781"></a><span class="lineno"> 1781</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01782"></a><span class="lineno"> 1782</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(da) / <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(db);</div><div class="line"><a name="l01783"></a><span class="lineno"> 1783</span> }</div><div class="line"><a name="l01784"></a><span class="lineno"> 1784</span> </div><div class="line"><a name="l01785"></a><span class="lineno"> 1785</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">double</span></div><div class="line"><a name="l01786"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23"> 1786</a></span> <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[] = {</div><div class="line"><a name="l01787"></a><span class="lineno"> 1787</span>  1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9,</div><div class="line"><a name="l01788"></a><span class="lineno"> 1788</span>  1e10, 1e11, 1e12, 1e13, 1e14, 1e15, 1e16, 1e17, 1e18, 1e19,</div><div class="line"><a name="l01789"></a><span class="lineno"> 1789</span>  1e20, 1e21, 1e22</div><div class="line"><a name="l01790"></a><span class="lineno"> 1790</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l01791"></a><span class="lineno"> 1791</span>  , 1e23, 1e24</div><div class="line"><a name="l01792"></a><span class="lineno"> 1792</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01793"></a><span class="lineno"> 1793</span> };</div><div class="line"><a name="l01794"></a><span class="lineno"> 1794</span> </div><div class="line"><a name="l01795"></a><span class="lineno"> 1795</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">double</span></div><div class="line"><a name="l01796"></a><span class="lineno"> 1796</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l01797"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21"> 1797</a></span> <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[] = { 1e16, 1e32, 1e64, 1e128, 1e256 };</div><div class="line"><a name="l01798"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167"> 1798</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">double</span> <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[] = { 1e-16, 1e-32, 1e-64, 1e-128,</div><div class="line"><a name="l01799"></a><span class="lineno"> 1799</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l01800"></a><span class="lineno"> 1800</span>  9007199254740992.*9007199254740992.e-256</div><div class="line"><a name="l01801"></a><span class="lineno"> 1801</span>  <span class="comment">/* = 2^106 * 1e-53 */</span></div><div class="line"><a name="l01802"></a><span class="lineno"> 1802</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01803"></a><span class="lineno"> 1803</span>  1e-256</div><div class="line"><a name="l01804"></a><span class="lineno"> 1804</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01805"></a><span class="lineno"> 1805</span> };</div><div class="line"><a name="l01806"></a><span class="lineno"> 1806</span> <span class="comment">/* The factor of 2^53 in tinytens[4] helps us avoid setting the underflow */</span></div><div class="line"><a name="l01807"></a><span class="lineno"> 1807</span> <span class="comment">/* flag unnecessarily. It leads to a song and dance at the end of strtod. */</span></div><div class="line"><a name="l01808"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ada662962a67790a41662e7f9bdef2fbe"> 1808</a></span> <span class="preprocessor">#define Scale_Bit 0x10</span></div><div class="line"><a name="l01809"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a4fd98445d772ae9d9b92f1f23fb228a5"> 1809</a></span> <span class="preprocessor">#define n_bigtens 5</span></div><div class="line"><a name="l01810"></a><span class="lineno"> 1810</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01811"></a><span class="lineno"> 1811</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l01812"></a><span class="lineno"> 1812</span> <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[] = { 1e16, 1e32, 1e64 };</div><div class="line"><a name="l01813"></a><span class="lineno"> 1813</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">double</span> <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[] = { 1e-16, 1e-32, 1e-64 };</div><div class="line"><a name="l01814"></a><span class="lineno"> 1814</span> <span class="preprocessor">#define n_bigtens 3</span></div><div class="line"><a name="l01815"></a><span class="lineno"> 1815</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01816"></a><span class="lineno"> 1816</span> <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[] = { 1e16, 1e32 };</div><div class="line"><a name="l01817"></a><span class="lineno"> 1817</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">double</span> <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[] = { 1e-16, 1e-32 };</div><div class="line"><a name="l01818"></a><span class="lineno"> 1818</span> <span class="preprocessor">#define n_bigtens 2</span></div><div class="line"><a name="l01819"></a><span class="lineno"> 1819</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01820"></a><span class="lineno"> 1820</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01821"></a><span class="lineno"> 1821</span> </div><div class="line"><a name="l01822"></a><span class="lineno"> 1822</span> <span class="preprocessor">#ifndef IEEE_Arith</span></div><div class="line"><a name="l01823"></a><span class="lineno"> 1823</span> <span class="preprocessor">#undef INFNAN_CHECK</span></div><div class="line"><a name="l01824"></a><span class="lineno"> 1824</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01825"></a><span class="lineno"> 1825</span> </div><div class="line"><a name="l01826"></a><span class="lineno"> 1826</span> <span class="preprocessor">#ifdef INFNAN_CHECK</span></div><div class="line"><a name="l01827"></a><span class="lineno"> 1827</span> </div><div class="line"><a name="l01828"></a><span class="lineno"> 1828</span> <span class="preprocessor">#ifndef NAN_WORD0</span></div><div class="line"><a name="l01829"></a><span class="lineno"> 1829</span> <span class="preprocessor">#define NAN_WORD0 0x7ff80000</span></div><div class="line"><a name="l01830"></a><span class="lineno"> 1830</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01831"></a><span class="lineno"> 1831</span> </div><div class="line"><a name="l01832"></a><span class="lineno"> 1832</span> <span class="preprocessor">#ifndef NAN_WORD1</span></div><div class="line"><a name="l01833"></a><span class="lineno"> 1833</span> <span class="preprocessor">#define NAN_WORD1 0</span></div><div class="line"><a name="l01834"></a><span class="lineno"> 1834</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01835"></a><span class="lineno"> 1835</span> </div><div class="line"><a name="l01836"></a><span class="lineno"> 1836</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01837"></a><span class="lineno"> 1837</span> <a class="code" href="../../dd/d9f/date__parse_8c.html#aafe6a0803e756e59e5af70fdb2dcc912">match</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> **sp, <span class="keywordtype">char</span> *t)</div><div class="line"><a name="l01838"></a><span class="lineno"> 1838</span> {</div><div class="line"><a name="l01839"></a><span class="lineno"> 1839</span>  <span class="keywordtype">int</span> c, d;</div><div class="line"><a name="l01840"></a><span class="lineno"> 1840</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *s = *sp;</div><div class="line"><a name="l01841"></a><span class="lineno"> 1841</span> </div><div class="line"><a name="l01842"></a><span class="lineno"> 1842</span>  <span class="keywordflow">while</span> (d = *t++) {</div><div class="line"><a name="l01843"></a><span class="lineno"> 1843</span>  <span class="keywordflow">if</span> ((c = *++s) >= <span class="charliteral">'A'</span> && c <= <span class="charliteral">'Z'</span>)</div><div class="line"><a name="l01844"></a><span class="lineno"> 1844</span>  c += <span class="charliteral">'a'</span> - <span class="charliteral">'A'</span>;</div><div class="line"><a name="l01845"></a><span class="lineno"> 1845</span>  <span class="keywordflow">if</span> (c != d)</div><div class="line"><a name="l01846"></a><span class="lineno"> 1846</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l01847"></a><span class="lineno"> 1847</span>  }</div><div class="line"><a name="l01848"></a><span class="lineno"> 1848</span>  *sp = s + 1;</div><div class="line"><a name="l01849"></a><span class="lineno"> 1849</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l01850"></a><span class="lineno"> 1850</span> }</div><div class="line"><a name="l01851"></a><span class="lineno"> 1851</span> </div><div class="line"><a name="l01852"></a><span class="lineno"> 1852</span> <span class="preprocessor">#ifndef No_Hex_NaN</span></div><div class="line"><a name="l01853"></a><span class="lineno"> 1853</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01854"></a><span class="lineno"> 1854</span> hexnan(<span class="keywordtype">double</span> *rvp, <span class="keyword">const</span> <span class="keywordtype">char</span> **sp)</div><div class="line"><a name="l01855"></a><span class="lineno"> 1855</span> {</div><div class="line"><a name="l01856"></a><span class="lineno"> 1856</span>  ULong c, <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[2];</div><div class="line"><a name="l01857"></a><span class="lineno"> 1857</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *s;</div><div class="line"><a name="l01858"></a><span class="lineno"> 1858</span>  <span class="keywordtype">int</span> havedig, udx0, xshift;</div><div class="line"><a name="l01859"></a><span class="lineno"> 1859</span> </div><div class="line"><a name="l01860"></a><span class="lineno"> 1860</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = 0;</div><div class="line"><a name="l01861"></a><span class="lineno"> 1861</span>  havedig = xshift = 0;</div><div class="line"><a name="l01862"></a><span class="lineno"> 1862</span>  udx0 = 1;</div><div class="line"><a name="l01863"></a><span class="lineno"> 1863</span>  s = *sp;</div><div class="line"><a name="l01864"></a><span class="lineno"> 1864</span>  <span class="keywordflow">while</span> (c = *(<span class="keyword">const</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span>*)++s) {</div><div class="line"><a name="l01865"></a><span class="lineno"> 1865</span>  <span class="keywordflow">if</span> (c >= <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>)</div><div class="line"><a name="l01866"></a><span class="lineno"> 1866</span>  c -= <span class="charliteral">'0'</span>;</div><div class="line"><a name="l01867"></a><span class="lineno"> 1867</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (c >= <span class="charliteral">'a'</span> && c <= <span class="charliteral">'f'</span>)</div><div class="line"><a name="l01868"></a><span class="lineno"> 1868</span>  c += 10 - <span class="charliteral">'a'</span>;</div><div class="line"><a name="l01869"></a><span class="lineno"> 1869</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (c >= <span class="charliteral">'A'</span> && c <= <span class="charliteral">'F'</span>)</div><div class="line"><a name="l01870"></a><span class="lineno"> 1870</span>  c += 10 - <span class="charliteral">'A'</span>;</div><div class="line"><a name="l01871"></a><span class="lineno"> 1871</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (c <= <span class="charliteral">' '</span>) {</div><div class="line"><a name="l01872"></a><span class="lineno"> 1872</span>  <span class="keywordflow">if</span> (udx0 && havedig) {</div><div class="line"><a name="l01873"></a><span class="lineno"> 1873</span>  udx0 = 0;</div><div class="line"><a name="l01874"></a><span class="lineno"> 1874</span>  xshift = 1;</div><div class="line"><a name="l01875"></a><span class="lineno"> 1875</span>  }</div><div class="line"><a name="l01876"></a><span class="lineno"> 1876</span>  <span class="keywordflow">continue</span>;</div><div class="line"><a name="l01877"></a><span class="lineno"> 1877</span>  }</div><div class="line"><a name="l01878"></a><span class="lineno"> 1878</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<span class="comment">/*(*/</span> c == <span class="charliteral">')'</span> && havedig) {</div><div class="line"><a name="l01879"></a><span class="lineno"> 1879</span>  *sp = s + 1;</div><div class="line"><a name="l01880"></a><span class="lineno"> 1880</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01881"></a><span class="lineno"> 1881</span>  }</div><div class="line"><a name="l01882"></a><span class="lineno"> 1882</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l01883"></a><span class="lineno"> 1883</span>  <span class="keywordflow">return</span>; <span class="comment">/* invalid form: don't change *sp */</span></div><div class="line"><a name="l01884"></a><span class="lineno"> 1884</span>  havedig = 1;</div><div class="line"><a name="l01885"></a><span class="lineno"> 1885</span>  <span class="keywordflow">if</span> (xshift) {</div><div class="line"><a name="l01886"></a><span class="lineno"> 1886</span>  xshift = 0;</div><div class="line"><a name="l01887"></a><span class="lineno"> 1887</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1];</div><div class="line"><a name="l01888"></a><span class="lineno"> 1888</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = 0;</div><div class="line"><a name="l01889"></a><span class="lineno"> 1889</span>  }</div><div class="line"><a name="l01890"></a><span class="lineno"> 1890</span>  <span class="keywordflow">if</span> (udx0)</div><div class="line"><a name="l01891"></a><span class="lineno"> 1891</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] = (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] << 4) | (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] >> 28);</div><div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] = (<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1] << 4) | c;</div><div class="line"><a name="l01893"></a><span class="lineno"> 1893</span>  }</div><div class="line"><a name="l01894"></a><span class="lineno"> 1894</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] &= 0xfffff) || <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1]) {</div><div class="line"><a name="l01895"></a><span class="lineno"> 1895</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(*rvp) = <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a> | <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0];</div><div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(*rvp) = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[1];</div><div class="line"><a name="l01897"></a><span class="lineno"> 1897</span>  }</div><div class="line"><a name="l01898"></a><span class="lineno"> 1898</span> }</div><div class="line"><a name="l01899"></a><span class="lineno"> 1899</span> <span class="preprocessor">#endif </span><span class="comment">/*No_Hex_NaN*/</span><span class="preprocessor"></span></div><div class="line"><a name="l01900"></a><span class="lineno"> 1900</span> <span class="preprocessor">#endif </span><span class="comment">/* INFNAN_CHECK */</span><span class="preprocessor"></span></div><div class="line"><a name="l01901"></a><span class="lineno"> 1901</span> </div><div class="line"><a name="l01902"></a><span class="lineno"> 1902</span> <span class="keywordtype">double</span></div><div class="line"><a name="l01903"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a436eaf8c1d2e32d0cb8b4ecd2352ec8f"> 1903</a></span> <a class="code" href="../../de/df1/util_8c.html#a436eaf8c1d2e32d0cb8b4ecd2352ec8f">ruby_strtod</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *s00, <span class="keywordtype">char</span> **se)</div><div class="line"><a name="l01904"></a><span class="lineno"> 1904</span> {</div><div class="line"><a name="l01905"></a><span class="lineno"> 1905</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l01906"></a><span class="lineno"> 1906</span>  <span class="keywordtype">int</span> scale;</div><div class="line"><a name="l01907"></a><span class="lineno"> 1907</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01908"></a><span class="lineno"> 1908</span>  <span class="keywordtype">int</span> bb2, bb5, bbe, bd2, bd5, bbbits, bs2, c, dsign,</div><div class="line"><a name="l01909"></a><span class="lineno"> 1909</span>  e, e1, esign, <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, j, <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>, nd, nd0, nf, nz, nz0, <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>;</div><div class="line"><a name="l01910"></a><span class="lineno"> 1910</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *s, *s0, *s1;</div><div class="line"><a name="l01911"></a><span class="lineno"> 1911</span>  <span class="keywordtype">double</span> aadj, adj;</div><div class="line"><a name="l01912"></a><span class="lineno"> 1912</span>  <a class="code" href="../../d9/db2/union_u.html">double_u</a> aadj1, rv, rv0;</div><div class="line"><a name="l01913"></a><span class="lineno"> 1913</span>  Long L;</div><div class="line"><a name="l01914"></a><span class="lineno"> 1914</span>  ULong y, z;</div><div class="line"><a name="l01915"></a><span class="lineno"> 1915</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *bb, *bb1, *bd, *bd0, *bs, *delta;</div><div class="line"><a name="l01916"></a><span class="lineno"> 1916</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l01917"></a><span class="lineno"> 1917</span>  <span class="keywordtype">int</span> inexact, oldinexact;</div><div class="line"><a name="l01918"></a><span class="lineno"> 1918</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01919"></a><span class="lineno"> 1919</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l01920"></a><span class="lineno"> 1920</span>  <span class="keywordtype">int</span> rounding;</div><div class="line"><a name="l01921"></a><span class="lineno"> 1921</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01922"></a><span class="lineno"> 1922</span> <span class="preprocessor">#ifdef USE_LOCALE</span></div><div class="line"><a name="l01923"></a><span class="lineno"> 1923</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *s2;</div><div class="line"><a name="l01924"></a><span class="lineno"> 1924</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01925"></a><span class="lineno"> 1925</span> </div><div class="line"><a name="l01926"></a><span class="lineno"> 1926</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = 0;</div><div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>  <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = nz0 = nz = 0;</div><div class="line"><a name="l01928"></a><span class="lineno"> 1928</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = 0.;</div><div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>  <span class="keywordflow">for</span> (s = s00;;s++)</div><div class="line"><a name="l01930"></a><span class="lineno"> 1930</span>  <span class="keywordflow">switch</span> (*s) {</div><div class="line"><a name="l01931"></a><span class="lineno"> 1931</span>  <span class="keywordflow">case</span> <span class="charliteral">'-'</span>:</div><div class="line"><a name="l01932"></a><span class="lineno"> 1932</span>  <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 1;</div><div class="line"><a name="l01933"></a><span class="lineno"> 1933</span>  <span class="comment">/* no break */</span></div><div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>  <span class="keywordflow">case</span> <span class="charliteral">'+'</span>:</div><div class="line"><a name="l01935"></a><span class="lineno"> 1935</span>  <span class="keywordflow">if</span> (*++s)</div><div class="line"><a name="l01936"></a><span class="lineno"> 1936</span>  <span class="keywordflow">goto</span> break2;</div><div class="line"><a name="l01937"></a><span class="lineno"> 1937</span>  <span class="comment">/* no break */</span></div><div class="line"><a name="l01938"></a><span class="lineno"> 1938</span>  <span class="keywordflow">case</span> 0:</div><div class="line"><a name="l01939"></a><span class="lineno"> 1939</span>  <span class="keywordflow">goto</span> ret0;</div><div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>  <span class="keywordflow">case</span> <span class="charliteral">'\t'</span>:</div><div class="line"><a name="l01941"></a><span class="lineno"> 1941</span>  <span class="keywordflow">case</span> <span class="charliteral">'\n'</span>:</div><div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>  <span class="keywordflow">case</span> <span class="charliteral">'\v'</span>:</div><div class="line"><a name="l01943"></a><span class="lineno"> 1943</span>  <span class="keywordflow">case</span> <span class="charliteral">'\f'</span>:</div><div class="line"><a name="l01944"></a><span class="lineno"> 1944</span>  <span class="keywordflow">case</span> <span class="charliteral">'\r'</span>:</div><div class="line"><a name="l01945"></a><span class="lineno"> 1945</span>  <span class="keywordflow">case</span> <span class="charliteral">' '</span>:</div><div class="line"><a name="l01946"></a><span class="lineno"> 1946</span>  <span class="keywordflow">continue</span>;</div><div class="line"><a name="l01947"></a><span class="lineno"> 1947</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>  <span class="keywordflow">goto</span> break2;</div><div class="line"><a name="l01949"></a><span class="lineno"> 1949</span>  }</div><div class="line"><a name="l01950"></a><span class="lineno"> 1950</span> break2:</div><div class="line"><a name="l01951"></a><span class="lineno"> 1951</span>  <span class="keywordflow">if</span> (*s == <span class="charliteral">'0'</span>) {</div><div class="line"><a name="l01952"></a><span class="lineno"> 1952</span>  <span class="keywordflow">if</span> (s[1] == <span class="charliteral">'x'</span> || s[1] == <span class="charliteral">'X'</span>) {</div><div class="line"><a name="l01953"></a><span class="lineno"> 1953</span>  <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> hexdigit[] = <span class="stringliteral">"0123456789abcdef0123456789ABCDEF"</span>;</div><div class="line"><a name="l01954"></a><span class="lineno"> 1954</span>  s0 = ++s;</div><div class="line"><a name="l01955"></a><span class="lineno"> 1955</span>  adj = 0;</div><div class="line"><a name="l01956"></a><span class="lineno"> 1956</span>  aadj = 1.0;</div><div class="line"><a name="l01957"></a><span class="lineno"> 1957</span>  nd0 = -4;</div><div class="line"><a name="l01958"></a><span class="lineno"> 1958</span> </div><div class="line"><a name="l01959"></a><span class="lineno"> 1959</span>  <span class="keywordflow">if</span> (!*++s || !(s1 = <a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *s))) <span class="keywordflow">goto</span> ret0;</div><div class="line"><a name="l01960"></a><span class="lineno"> 1960</span>  <span class="keywordflow">while</span> (*s == <span class="charliteral">'0'</span>) s++;</div><div class="line"><a name="l01961"></a><span class="lineno"> 1961</span>  <span class="keywordflow">if</span> ((s1 = <a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *s)) != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01962"></a><span class="lineno"> 1962</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01963"></a><span class="lineno"> 1963</span>  adj += aadj * ((s1 - hexdigit) & 15);</div><div class="line"><a name="l01964"></a><span class="lineno"> 1964</span>  nd0 += 4;</div><div class="line"><a name="l01965"></a><span class="lineno"> 1965</span>  aadj /= 16;</div><div class="line"><a name="l01966"></a><span class="lineno"> 1966</span>  } <span class="keywordflow">while</span> (*++s && (s1 = <a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *s)));</div><div class="line"><a name="l01967"></a><span class="lineno"> 1967</span>  }</div><div class="line"><a name="l01968"></a><span class="lineno"> 1968</span> </div><div class="line"><a name="l01969"></a><span class="lineno"> 1969</span>  <span class="keywordflow">if</span> (*s == <span class="charliteral">'.'</span>) {</div><div class="line"><a name="l01970"></a><span class="lineno"> 1970</span>  dsign = 1;</div><div class="line"><a name="l01971"></a><span class="lineno"> 1971</span>  <span class="keywordflow">if</span> (!*++s || !(s1 = <a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *s))) <span class="keywordflow">goto</span> ret0;</div><div class="line"><a name="l01972"></a><span class="lineno"> 1972</span>  <span class="keywordflow">if</span> (nd0 < 0) {</div><div class="line"><a name="l01973"></a><span class="lineno"> 1973</span>  <span class="keywordflow">while</span> (*s == <span class="charliteral">'0'</span>) {</div><div class="line"><a name="l01974"></a><span class="lineno"> 1974</span>  s++;</div><div class="line"><a name="l01975"></a><span class="lineno"> 1975</span>  nd0 -= 4;</div><div class="line"><a name="l01976"></a><span class="lineno"> 1976</span>  }</div><div class="line"><a name="l01977"></a><span class="lineno"> 1977</span>  }</div><div class="line"><a name="l01978"></a><span class="lineno"> 1978</span>  <span class="keywordflow">for</span> (; *s && (s1 = <a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *s)); ++s) {</div><div class="line"><a name="l01979"></a><span class="lineno"> 1979</span>  adj += aadj * ((s1 - hexdigit) & 15);</div><div class="line"><a name="l01980"></a><span class="lineno"> 1980</span>  <span class="keywordflow">if</span> ((aadj /= 16) == 0.0) {</div><div class="line"><a name="l01981"></a><span class="lineno"> 1981</span>  <span class="keywordflow">while</span> (<a class="code" href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a>(hexdigit, *++s));</div><div class="line"><a name="l01982"></a><span class="lineno"> 1982</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01983"></a><span class="lineno"> 1983</span>  }</div><div class="line"><a name="l01984"></a><span class="lineno"> 1984</span>  }</div><div class="line"><a name="l01985"></a><span class="lineno"> 1985</span>  }</div><div class="line"><a name="l01986"></a><span class="lineno"> 1986</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01987"></a><span class="lineno"> 1987</span>  dsign = 0;</div><div class="line"><a name="l01988"></a><span class="lineno"> 1988</span>  }</div><div class="line"><a name="l01989"></a><span class="lineno"> 1989</span> </div><div class="line"><a name="l01990"></a><span class="lineno"> 1990</span>  <span class="keywordflow">if</span> (*s == <span class="charliteral">'P'</span> || *s == <span class="charliteral">'p'</span>) {</div><div class="line"><a name="l01991"></a><span class="lineno"> 1991</span>  dsign = 0x2C - *++s; <span class="comment">/* +: 2B, -: 2D */</span></div><div class="line"><a name="l01992"></a><span class="lineno"> 1992</span>  <span class="keywordflow">if</span> (abs(dsign) == 1) s++;</div><div class="line"><a name="l01993"></a><span class="lineno"> 1993</span>  <span class="keywordflow">else</span> dsign = 1;</div><div class="line"><a name="l01994"></a><span class="lineno"> 1994</span> </div><div class="line"><a name="l01995"></a><span class="lineno"> 1995</span>  nd = 0;</div><div class="line"><a name="l01996"></a><span class="lineno"> 1996</span>  c = *s;</div><div class="line"><a name="l01997"></a><span class="lineno"> 1997</span>  <span class="keywordflow">if</span> (c < <span class="charliteral">'0'</span> || <span class="charliteral">'9'</span> < c) <span class="keywordflow">goto</span> ret0;</div><div class="line"><a name="l01998"></a><span class="lineno"> 1998</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l01999"></a><span class="lineno"> 1999</span>  nd *= 10;</div><div class="line"><a name="l02000"></a><span class="lineno"> 2000</span>  nd += c;</div><div class="line"><a name="l02001"></a><span class="lineno"> 2001</span>  nd -= <span class="charliteral">'0'</span>;</div><div class="line"><a name="l02002"></a><span class="lineno"> 2002</span>  c = *++s;</div><div class="line"><a name="l02003"></a><span class="lineno"> 2003</span>  <span class="comment">/* Float("0x0."+("0"*267)+"1fp2095") */</span></div><div class="line"><a name="l02004"></a><span class="lineno"> 2004</span>  <span class="keywordflow">if</span> (nd + dsign * nd0 > 2095) {</div><div class="line"><a name="l02005"></a><span class="lineno"> 2005</span>  <span class="keywordflow">while</span> (<span class="charliteral">'0'</span> <= c && c <= <span class="charliteral">'9'</span>) c = *++s;</div><div class="line"><a name="l02006"></a><span class="lineno"> 2006</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02007"></a><span class="lineno"> 2007</span>  }</div><div class="line"><a name="l02008"></a><span class="lineno"> 2008</span>  } <span class="keywordflow">while</span> (<span class="charliteral">'0'</span> <= c && c <= <span class="charliteral">'9'</span>);</div><div class="line"><a name="l02009"></a><span class="lineno"> 2009</span>  nd0 += nd * dsign;</div><div class="line"><a name="l02010"></a><span class="lineno"> 2010</span>  }</div><div class="line"><a name="l02011"></a><span class="lineno"> 2011</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02012"></a><span class="lineno"> 2012</span>  <span class="keywordflow">if</span> (dsign) <span class="keywordflow">goto</span> ret0;</div><div class="line"><a name="l02013"></a><span class="lineno"> 2013</span>  }</div><div class="line"><a name="l02014"></a><span class="lineno"> 2014</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = ldexp(adj, nd0);</div><div class="line"><a name="l02015"></a><span class="lineno"> 2015</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02016"></a><span class="lineno"> 2016</span>  }</div><div class="line"><a name="l02017"></a><span class="lineno"> 2017</span>  nz0 = 1;</div><div class="line"><a name="l02018"></a><span class="lineno"> 2018</span>  <span class="keywordflow">while</span> (*++s == <span class="charliteral">'0'</span>) ;</div><div class="line"><a name="l02019"></a><span class="lineno"> 2019</span>  <span class="keywordflow">if</span> (!*s)</div><div class="line"><a name="l02020"></a><span class="lineno"> 2020</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02021"></a><span class="lineno"> 2021</span>  }</div><div class="line"><a name="l02022"></a><span class="lineno"> 2022</span>  s0 = s;</div><div class="line"><a name="l02023"></a><span class="lineno"> 2023</span>  y = z = 0;</div><div class="line"><a name="l02024"></a><span class="lineno"> 2024</span>  <span class="keywordflow">for</span> (nd = nf = 0; (c = *s) >= <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>; nd++, s++)</div><div class="line"><a name="l02025"></a><span class="lineno"> 2025</span>  <span class="keywordflow">if</span> (nd < 9)</div><div class="line"><a name="l02026"></a><span class="lineno"> 2026</span>  y = 10*y + c - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l02027"></a><span class="lineno"> 2027</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (nd < 16)</div><div class="line"><a name="l02028"></a><span class="lineno"> 2028</span>  z = 10*z + c - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l02029"></a><span class="lineno"> 2029</span>  nd0 = nd;</div><div class="line"><a name="l02030"></a><span class="lineno"> 2030</span> <span class="preprocessor">#ifdef USE_LOCALE</span></div><div class="line"><a name="l02031"></a><span class="lineno"> 2031</span>  s1 = localeconv()->decimal_point;</div><div class="line"><a name="l02032"></a><span class="lineno"> 2032</span>  <span class="keywordflow">if</span> (c == *s1) {</div><div class="line"><a name="l02033"></a><span class="lineno"> 2033</span>  c = <span class="charliteral">'.'</span>;</div><div class="line"><a name="l02034"></a><span class="lineno"> 2034</span>  <span class="keywordflow">if</span> (*++s1) {</div><div class="line"><a name="l02035"></a><span class="lineno"> 2035</span>  s2 = s;</div><div class="line"><a name="l02036"></a><span class="lineno"> 2036</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l02037"></a><span class="lineno"> 2037</span>  <span class="keywordflow">if</span> (*++s2 != *s1) {</div><div class="line"><a name="l02038"></a><span class="lineno"> 2038</span>  c = 0;</div><div class="line"><a name="l02039"></a><span class="lineno"> 2039</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02040"></a><span class="lineno"> 2040</span>  }</div><div class="line"><a name="l02041"></a><span class="lineno"> 2041</span>  <span class="keywordflow">if</span> (!*++s1) {</div><div class="line"><a name="l02042"></a><span class="lineno"> 2042</span>  s = s2;</div><div class="line"><a name="l02043"></a><span class="lineno"> 2043</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>  }</div><div class="line"><a name="l02045"></a><span class="lineno"> 2045</span>  }</div><div class="line"><a name="l02046"></a><span class="lineno"> 2046</span>  }</div><div class="line"><a name="l02047"></a><span class="lineno"> 2047</span>  }</div><div class="line"><a name="l02048"></a><span class="lineno"> 2048</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02049"></a><span class="lineno"> 2049</span>  <span class="keywordflow">if</span> (c == <span class="charliteral">'.'</span>) {</div><div class="line"><a name="l02050"></a><span class="lineno"> 2050</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d1/dcc/bignum_8c.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(s[1]))</div><div class="line"><a name="l02051"></a><span class="lineno"> 2051</span>  <span class="keywordflow">goto</span> dig_done;</div><div class="line"><a name="l02052"></a><span class="lineno"> 2052</span>  c = *++s;</div><div class="line"><a name="l02053"></a><span class="lineno"> 2053</span>  <span class="keywordflow">if</span> (!nd) {</div><div class="line"><a name="l02054"></a><span class="lineno"> 2054</span>  <span class="keywordflow">for</span> (; c == <span class="charliteral">'0'</span>; c = *++s)</div><div class="line"><a name="l02055"></a><span class="lineno"> 2055</span>  nz++;</div><div class="line"><a name="l02056"></a><span class="lineno"> 2056</span>  <span class="keywordflow">if</span> (c > <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>) {</div><div class="line"><a name="l02057"></a><span class="lineno"> 2057</span>  s0 = s;</div><div class="line"><a name="l02058"></a><span class="lineno"> 2058</span>  nf += nz;</div><div class="line"><a name="l02059"></a><span class="lineno"> 2059</span>  nz = 0;</div><div class="line"><a name="l02060"></a><span class="lineno"> 2060</span>  <span class="keywordflow">goto</span> have_dig;</div><div class="line"><a name="l02061"></a><span class="lineno"> 2061</span>  }</div><div class="line"><a name="l02062"></a><span class="lineno"> 2062</span>  <span class="keywordflow">goto</span> dig_done;</div><div class="line"><a name="l02063"></a><span class="lineno"> 2063</span>  }</div><div class="line"><a name="l02064"></a><span class="lineno"> 2064</span>  <span class="keywordflow">for</span> (; c >= <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>; c = *++s) {</div><div class="line"><a name="l02065"></a><span class="lineno"> 2065</span> have_dig:</div><div class="line"><a name="l02066"></a><span class="lineno"> 2066</span>  nz++;</div><div class="line"><a name="l02067"></a><span class="lineno"> 2067</span>  <span class="keywordflow">if</span> (nf > <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a> * 4) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l02068"></a><span class="lineno"> 2068</span>  <span class="keywordflow">if</span> (c -= <span class="charliteral">'0'</span>) {</div><div class="line"><a name="l02069"></a><span class="lineno"> 2069</span>  nf += nz;</div><div class="line"><a name="l02070"></a><span class="lineno"> 2070</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < nz; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++)</div><div class="line"><a name="l02071"></a><span class="lineno"> 2071</span>  <span class="keywordflow">if</span> (nd++ < 9)</div><div class="line"><a name="l02072"></a><span class="lineno"> 2072</span>  y *= 10;</div><div class="line"><a name="l02073"></a><span class="lineno"> 2073</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (nd <= <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a> + 1)</div><div class="line"><a name="l02074"></a><span class="lineno"> 2074</span>  z *= 10;</div><div class="line"><a name="l02075"></a><span class="lineno"> 2075</span>  <span class="keywordflow">if</span> (nd++ < 9)</div><div class="line"><a name="l02076"></a><span class="lineno"> 2076</span>  y = 10*y + c;</div><div class="line"><a name="l02077"></a><span class="lineno"> 2077</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (nd <= <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a> + 1)</div><div class="line"><a name="l02078"></a><span class="lineno"> 2078</span>  z = 10*z + c;</div><div class="line"><a name="l02079"></a><span class="lineno"> 2079</span>  nz = 0;</div><div class="line"><a name="l02080"></a><span class="lineno"> 2080</span>  }</div><div class="line"><a name="l02081"></a><span class="lineno"> 2081</span>  }</div><div class="line"><a name="l02082"></a><span class="lineno"> 2082</span>  }</div><div class="line"><a name="l02083"></a><span class="lineno"> 2083</span> dig_done:</div><div class="line"><a name="l02084"></a><span class="lineno"> 2084</span>  e = 0;</div><div class="line"><a name="l02085"></a><span class="lineno"> 2085</span>  <span class="keywordflow">if</span> (c == <span class="charliteral">'e'</span> || c == <span class="charliteral">'E'</span>) {</div><div class="line"><a name="l02086"></a><span class="lineno"> 2086</span>  <span class="keywordflow">if</span> (!nd && !nz && !nz0) {</div><div class="line"><a name="l02087"></a><span class="lineno"> 2087</span>  <span class="keywordflow">goto</span> ret0;</div><div class="line"><a name="l02088"></a><span class="lineno"> 2088</span>  }</div><div class="line"><a name="l02089"></a><span class="lineno"> 2089</span>  s00 = s;</div><div class="line"><a name="l02090"></a><span class="lineno"> 2090</span>  esign = 0;</div><div class="line"><a name="l02091"></a><span class="lineno"> 2091</span>  <span class="keywordflow">switch</span> (c = *++s) {</div><div class="line"><a name="l02092"></a><span class="lineno"> 2092</span>  <span class="keywordflow">case</span> <span class="charliteral">'-'</span>:</div><div class="line"><a name="l02093"></a><span class="lineno"> 2093</span>  esign = 1;</div><div class="line"><a name="l02094"></a><span class="lineno"> 2094</span>  <span class="keywordflow">case</span> <span class="charliteral">'+'</span>:</div><div class="line"><a name="l02095"></a><span class="lineno"> 2095</span>  c = *++s;</div><div class="line"><a name="l02096"></a><span class="lineno"> 2096</span>  }</div><div class="line"><a name="l02097"></a><span class="lineno"> 2097</span>  <span class="keywordflow">if</span> (c >= <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>) {</div><div class="line"><a name="l02098"></a><span class="lineno"> 2098</span>  <span class="keywordflow">while</span> (c == <span class="charliteral">'0'</span>)</div><div class="line"><a name="l02099"></a><span class="lineno"> 2099</span>  c = *++s;</div><div class="line"><a name="l02100"></a><span class="lineno"> 2100</span>  <span class="keywordflow">if</span> (c > <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>) {</div><div class="line"><a name="l02101"></a><span class="lineno"> 2101</span>  L = c - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l02102"></a><span class="lineno"> 2102</span>  s1 = s;</div><div class="line"><a name="l02103"></a><span class="lineno"> 2103</span>  <span class="keywordflow">while</span> ((c = *++s) >= <span class="charliteral">'0'</span> && c <= <span class="charliteral">'9'</span>)</div><div class="line"><a name="l02104"></a><span class="lineno"> 2104</span>  L = 10*L + c - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l02105"></a><span class="lineno"> 2105</span>  <span class="keywordflow">if</span> (s - s1 > 8 || L > 19999)</div><div class="line"><a name="l02106"></a><span class="lineno"> 2106</span>  <span class="comment">/* Avoid confusion from exponents</span></div><div class="line"><a name="l02107"></a><span class="lineno"> 2107</span> <span class="comment"> * so large that e might overflow.</span></div><div class="line"><a name="l02108"></a><span class="lineno"> 2108</span> <span class="comment"> */</span></div><div class="line"><a name="l02109"></a><span class="lineno"> 2109</span>  e = 19999; <span class="comment">/* safe for 16 bit ints */</span></div><div class="line"><a name="l02110"></a><span class="lineno"> 2110</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02111"></a><span class="lineno"> 2111</span>  e = (int)L;</div><div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>  <span class="keywordflow">if</span> (esign)</div><div class="line"><a name="l02113"></a><span class="lineno"> 2113</span>  e = -e;</div><div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>  }</div><div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>  e = 0;</div><div class="line"><a name="l02117"></a><span class="lineno"> 2117</span>  }</div><div class="line"><a name="l02118"></a><span class="lineno"> 2118</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>  s = s00;</div><div class="line"><a name="l02120"></a><span class="lineno"> 2120</span>  }</div><div class="line"><a name="l02121"></a><span class="lineno"> 2121</span>  <span class="keywordflow">if</span> (!nd) {</div><div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>  <span class="keywordflow">if</span> (!nz && !nz0) {</div><div class="line"><a name="l02123"></a><span class="lineno"> 2123</span> <span class="preprocessor">#ifdef INFNAN_CHECK</span></div><div class="line"><a name="l02124"></a><span class="lineno"> 2124</span>  <span class="comment">/* Check for Nan and Infinity */</span></div><div class="line"><a name="l02125"></a><span class="lineno"> 2125</span>  <span class="keywordflow">switch</span> (c) {</div><div class="line"><a name="l02126"></a><span class="lineno"> 2126</span>  <span class="keywordflow">case</span> <span class="charliteral">'i'</span>:</div><div class="line"><a name="l02127"></a><span class="lineno"> 2127</span>  <span class="keywordflow">case</span> <span class="charliteral">'I'</span>:</div><div class="line"><a name="l02128"></a><span class="lineno"> 2128</span>  <span class="keywordflow">if</span> (<a class="code" href="../../dd/d9f/date__parse_8c.html#aafe6a0803e756e59e5af70fdb2dcc912">match</a>(&s,<span class="stringliteral">"nf"</span>)) {</div><div class="line"><a name="l02129"></a><span class="lineno"> 2129</span>  --s;</div><div class="line"><a name="l02130"></a><span class="lineno"> 2130</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../dd/d9f/date__parse_8c.html#aafe6a0803e756e59e5af70fdb2dcc912">match</a>(&s,<span class="stringliteral">"inity"</span>))</div><div class="line"><a name="l02131"></a><span class="lineno"> 2131</span>  ++s;</div><div class="line"><a name="l02132"></a><span class="lineno"> 2132</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = 0x7ff00000;</div><div class="line"><a name="l02133"></a><span class="lineno"> 2133</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = 0;</div><div class="line"><a name="l02134"></a><span class="lineno"> 2134</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02135"></a><span class="lineno"> 2135</span>  }</div><div class="line"><a name="l02136"></a><span class="lineno"> 2136</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02137"></a><span class="lineno"> 2137</span>  <span class="keywordflow">case</span> <span class="charliteral">'n'</span>:</div><div class="line"><a name="l02138"></a><span class="lineno"> 2138</span>  <span class="keywordflow">case</span> <span class="charliteral">'N'</span>:</div><div class="line"><a name="l02139"></a><span class="lineno"> 2139</span>  <span class="keywordflow">if</span> (<a class="code" href="../../dd/d9f/date__parse_8c.html#aafe6a0803e756e59e5af70fdb2dcc912">match</a>(&s, <span class="stringliteral">"an"</span>)) {</div><div class="line"><a name="l02140"></a><span class="lineno"> 2140</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = NAN_WORD0;</div><div class="line"><a name="l02141"></a><span class="lineno"> 2141</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = NAN_WORD1;</div><div class="line"><a name="l02142"></a><span class="lineno"> 2142</span> <span class="preprocessor">#ifndef No_Hex_NaN</span></div><div class="line"><a name="l02143"></a><span class="lineno"> 2143</span>  <span class="keywordflow">if</span> (*s == <span class="charliteral">'('</span>) <span class="comment">/*)*/</span></div><div class="line"><a name="l02144"></a><span class="lineno"> 2144</span>  hexnan(&rv, &s);</div><div class="line"><a name="l02145"></a><span class="lineno"> 2145</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02146"></a><span class="lineno"> 2146</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02147"></a><span class="lineno"> 2147</span>  }</div><div class="line"><a name="l02148"></a><span class="lineno"> 2148</span>  }</div><div class="line"><a name="l02149"></a><span class="lineno"> 2149</span> <span class="preprocessor">#endif </span><span class="comment">/* INFNAN_CHECK */</span><span class="preprocessor"></span></div><div class="line"><a name="l02150"></a><span class="lineno"> 2150</span> ret0:</div><div class="line"><a name="l02151"></a><span class="lineno"> 2151</span>  s = s00;</div><div class="line"><a name="l02152"></a><span class="lineno"> 2152</span>  <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l02153"></a><span class="lineno"> 2153</span>  }</div><div class="line"><a name="l02154"></a><span class="lineno"> 2154</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02155"></a><span class="lineno"> 2155</span>  }</div><div class="line"><a name="l02156"></a><span class="lineno"> 2156</span>  e1 = e -= nf;</div><div class="line"><a name="l02157"></a><span class="lineno"> 2157</span> </div><div class="line"><a name="l02158"></a><span class="lineno"> 2158</span>  <span class="comment">/* Now we have nd0 digits, starting at s0, followed by a</span></div><div class="line"><a name="l02159"></a><span class="lineno"> 2159</span> <span class="comment"> * decimal point, followed by nd-nd0 digits. The number we're</span></div><div class="line"><a name="l02160"></a><span class="lineno"> 2160</span> <span class="comment"> * after is the integer represented by those digits times</span></div><div class="line"><a name="l02161"></a><span class="lineno"> 2161</span> <span class="comment"> * 10**e */</span></div><div class="line"><a name="l02162"></a><span class="lineno"> 2162</span> </div><div class="line"><a name="l02163"></a><span class="lineno"> 2163</span>  <span class="keywordflow">if</span> (!nd0)</div><div class="line"><a name="l02164"></a><span class="lineno"> 2164</span>  nd0 = nd;</div><div class="line"><a name="l02165"></a><span class="lineno"> 2165</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = nd < <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a> + 1 ? nd : <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a> + 1;</div><div class="line"><a name="l02166"></a><span class="lineno"> 2166</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = y;</div><div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> > 9) {</div><div class="line"><a name="l02168"></a><span class="lineno"> 2168</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02169"></a><span class="lineno"> 2169</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> > <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>)</div><div class="line"><a name="l02170"></a><span class="lineno"> 2170</span>  oldinexact = get_inexact();</div><div class="line"><a name="l02171"></a><span class="lineno"> 2171</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02172"></a><span class="lineno"> 2172</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> - 9] * <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) + z;</div><div class="line"><a name="l02173"></a><span class="lineno"> 2173</span>  }</div><div class="line"><a name="l02174"></a><span class="lineno"> 2174</span>  bd0 = bb = bd = bs = delta = 0;</div><div class="line"><a name="l02175"></a><span class="lineno"> 2175</span>  <span class="keywordflow">if</span> (nd <= <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a></div><div class="line"><a name="l02176"></a><span class="lineno"> 2176</span> #ifndef RND_PRODQUOT</div><div class="line"><a name="l02177"></a><span class="lineno"> 2177</span> #ifndef Honor_FLT_ROUNDS</div><div class="line"><a name="l02178"></a><span class="lineno"> 2178</span>  && <a class="code" href="../../de/df1/util_8c.html#a99e35e070982190437423aa4c0dfc963">Flt_Rounds</a> == 1</div><div class="line"><a name="l02179"></a><span class="lineno"> 2179</span> #endif</div><div class="line"><a name="l02180"></a><span class="lineno"> 2180</span> #endif</div><div class="line"><a name="l02181"></a><span class="lineno"> 2181</span>  ) {</div><div class="line"><a name="l02182"></a><span class="lineno"> 2182</span>  <span class="keywordflow">if</span> (!e)</div><div class="line"><a name="l02183"></a><span class="lineno"> 2183</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02184"></a><span class="lineno"> 2184</span>  <span class="keywordflow">if</span> (e > 0) {</div><div class="line"><a name="l02185"></a><span class="lineno"> 2185</span>  <span class="keywordflow">if</span> (e <= <a class="code" href="../../de/df1/util_8c.html#a60c21efe38979482c071108abd8431d0">Ten_pmax</a>) {</div><div class="line"><a name="l02186"></a><span class="lineno"> 2186</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l02187"></a><span class="lineno"> 2187</span>  <span class="keywordflow">goto</span> vax_ovfl_check;</div><div class="line"><a name="l02188"></a><span class="lineno"> 2188</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02189"></a><span class="lineno"> 2189</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02190"></a><span class="lineno"> 2190</span>  <span class="comment">/* round correctly FLT_ROUNDS = 2 or 3 */</span></div><div class="line"><a name="l02191"></a><span class="lineno"> 2191</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>) {</div><div class="line"><a name="l02192"></a><span class="lineno"> 2192</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = -<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02193"></a><span class="lineno"> 2193</span>  <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l02194"></a><span class="lineno"> 2194</span>  }</div><div class="line"><a name="l02195"></a><span class="lineno"> 2195</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02196"></a><span class="lineno"> 2196</span>  <span class="comment">/* rv = */</span> <a class="code" href="../../de/df1/util_8c.html#a09227e189a0ccbe91a702ddd894940ee">rounded_product</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv), <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[e]);</div><div class="line"><a name="l02197"></a><span class="lineno"> 2197</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02198"></a><span class="lineno"> 2198</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02199"></a><span class="lineno"> 2199</span>  }</div><div class="line"><a name="l02200"></a><span class="lineno"> 2200</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a> - nd;</div><div class="line"><a name="l02201"></a><span class="lineno"> 2201</span>  <span class="keywordflow">if</span> (e <= <a class="code" href="../../de/df1/util_8c.html#a60c21efe38979482c071108abd8431d0">Ten_pmax</a> + <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div><div class="line"><a name="l02202"></a><span class="lineno"> 2202</span>  <span class="comment">/* A fancier test would sometimes let us do</span></div><div class="line"><a name="l02203"></a><span class="lineno"> 2203</span> <span class="comment"> * this for larger i values.</span></div><div class="line"><a name="l02204"></a><span class="lineno"> 2204</span> <span class="comment"> */</span></div><div class="line"><a name="l02205"></a><span class="lineno"> 2205</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02206"></a><span class="lineno"> 2206</span>  <span class="comment">/* round correctly FLT_ROUNDS = 2 or 3 */</span></div><div class="line"><a name="l02207"></a><span class="lineno"> 2207</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>) {</div><div class="line"><a name="l02208"></a><span class="lineno"> 2208</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = -<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02209"></a><span class="lineno"> 2209</span>  <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l02210"></a><span class="lineno"> 2210</span>  }</div><div class="line"><a name="l02211"></a><span class="lineno"> 2211</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02212"></a><span class="lineno"> 2212</span>  e -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l02213"></a><span class="lineno"> 2213</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div><div class="line"><a name="l02214"></a><span class="lineno"> 2214</span> <span class="preprocessor">#ifdef VAX</span></div><div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>  <span class="comment">/* VAX exponent range is so narrow we must</span></div><div class="line"><a name="l02216"></a><span class="lineno"> 2216</span> <span class="comment"> * worry about overflow here...</span></div><div class="line"><a name="l02217"></a><span class="lineno"> 2217</span> <span class="comment"> */</span></div><div class="line"><a name="l02218"></a><span class="lineno"> 2218</span> vax_ovfl_check:</div><div class="line"><a name="l02219"></a><span class="lineno"> 2219</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02220"></a><span class="lineno"> 2220</span>  <span class="comment">/* rv = */</span> <a class="code" href="../../de/df1/util_8c.html#a09227e189a0ccbe91a702ddd894940ee">rounded_product</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv), <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[e]);</div><div class="line"><a name="l02221"></a><span class="lineno"> 2221</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)</div><div class="line"><a name="l02222"></a><span class="lineno"> 2222</span>  > <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>*(<a class="code" href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a>+<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a>-1-<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>))</div><div class="line"><a name="l02223"></a><span class="lineno"> 2223</span>  <span class="keywordflow">goto</span> ovfl;</div><div class="line"><a name="l02224"></a><span class="lineno"> 2224</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02225"></a><span class="lineno"> 2225</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02226"></a><span class="lineno"> 2226</span>  <span class="comment">/* rv = */</span> <a class="code" href="../../de/df1/util_8c.html#a09227e189a0ccbe91a702ddd894940ee">rounded_product</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv), <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[e]);</div><div class="line"><a name="l02227"></a><span class="lineno"> 2227</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02228"></a><span class="lineno"> 2228</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>  }</div><div class="line"><a name="l02230"></a><span class="lineno"> 2230</span>  }</div><div class="line"><a name="l02231"></a><span class="lineno"> 2231</span> <span class="preprocessor">#ifndef Inaccurate_Divide</span></div><div class="line"><a name="l02232"></a><span class="lineno"> 2232</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (e >= -<a class="code" href="../../de/df1/util_8c.html#a60c21efe38979482c071108abd8431d0">Ten_pmax</a>) {</div><div class="line"><a name="l02233"></a><span class="lineno"> 2233</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02234"></a><span class="lineno"> 2234</span>  <span class="comment">/* round correctly FLT_ROUNDS = 2 or 3 */</span></div><div class="line"><a name="l02235"></a><span class="lineno"> 2235</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>) {</div><div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = -<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02237"></a><span class="lineno"> 2237</span>  <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l02238"></a><span class="lineno"> 2238</span>  }</div><div class="line"><a name="l02239"></a><span class="lineno"> 2239</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02240"></a><span class="lineno"> 2240</span>  <span class="comment">/* rv = */</span> <a class="code" href="../../de/df1/util_8c.html#a34f631126fba1aa87949f45721457cd1">rounded_quotient</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv), <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[-e]);</div><div class="line"><a name="l02241"></a><span class="lineno"> 2241</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02242"></a><span class="lineno"> 2242</span>  }</div><div class="line"><a name="l02243"></a><span class="lineno"> 2243</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02244"></a><span class="lineno"> 2244</span>  }</div><div class="line"><a name="l02245"></a><span class="lineno"> 2245</span>  e1 += nd - <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l02246"></a><span class="lineno"> 2246</span> </div><div class="line"><a name="l02247"></a><span class="lineno"> 2247</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l02248"></a><span class="lineno"> 2248</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02249"></a><span class="lineno"> 2249</span>  inexact = 1;</div><div class="line"><a name="l02250"></a><span class="lineno"> 2250</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> <= <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>)</div><div class="line"><a name="l02251"></a><span class="lineno"> 2251</span>  oldinexact = get_inexact();</div><div class="line"><a name="l02252"></a><span class="lineno"> 2252</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02253"></a><span class="lineno"> 2253</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02254"></a><span class="lineno"> 2254</span>  scale = 0;</div><div class="line"><a name="l02255"></a><span class="lineno"> 2255</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02256"></a><span class="lineno"> 2256</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>  <span class="keywordflow">if</span> ((rounding = <a class="code" href="../../de/df1/util_8c.html#a99e35e070982190437423aa4c0dfc963">Flt_Rounds</a>) >= 2) {</div><div class="line"><a name="l02258"></a><span class="lineno"> 2258</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>)</div><div class="line"><a name="l02259"></a><span class="lineno"> 2259</span>  rounding = rounding == 2 ? 0 : 2;</div><div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02261"></a><span class="lineno"> 2261</span>  <span class="keywordflow">if</span> (rounding != 2)</div><div class="line"><a name="l02262"></a><span class="lineno"> 2262</span>  rounding = 0;</div><div class="line"><a name="l02263"></a><span class="lineno"> 2263</span>  }</div><div class="line"><a name="l02264"></a><span class="lineno"> 2264</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02265"></a><span class="lineno"> 2265</span> <span class="preprocessor">#endif </span><span class="comment">/*IEEE_Arith*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02266"></a><span class="lineno"> 2266</span> </div><div class="line"><a name="l02267"></a><span class="lineno"> 2267</span>  <span class="comment">/* Get starting approximation = rv * 10**e1 */</span></div><div class="line"><a name="l02268"></a><span class="lineno"> 2268</span> </div><div class="line"><a name="l02269"></a><span class="lineno"> 2269</span>  <span class="keywordflow">if</span> (e1 > 0) {</div><div class="line"><a name="l02270"></a><span class="lineno"> 2270</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = e1 & 15) != 0)</div><div class="line"><a name="l02271"></a><span class="lineno"> 2271</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div><div class="line"><a name="l02272"></a><span class="lineno"> 2272</span>  <span class="keywordflow">if</span> (e1 &= ~15) {</div><div class="line"><a name="l02273"></a><span class="lineno"> 2273</span>  <span class="keywordflow">if</span> (e1 > <a class="code" href="../../d6/d27/numeric_8c.html#a75425646ce3c79cbc0a8e9613f3d9c17">DBL_MAX_10_EXP</a>) {</div><div class="line"><a name="l02274"></a><span class="lineno"> 2274</span> ovfl:</div><div class="line"><a name="l02275"></a><span class="lineno"> 2275</span> <span class="preprocessor">#ifndef NO_ERRNO</span></div><div class="line"><a name="l02276"></a><span class="lineno"> 2276</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = ERANGE;</div><div class="line"><a name="l02277"></a><span class="lineno"> 2277</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02278"></a><span class="lineno"> 2278</span>  <span class="comment">/* Can't trust HUGE_VAL */</span></div><div class="line"><a name="l02279"></a><span class="lineno"> 2279</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l02280"></a><span class="lineno"> 2280</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02281"></a><span class="lineno"> 2281</span>  <span class="keywordflow">switch</span> (rounding) {</div><div class="line"><a name="l02282"></a><span class="lineno"> 2282</span>  <span class="keywordflow">case</span> 0: <span class="comment">/* toward 0 */</span></div><div class="line"><a name="l02283"></a><span class="lineno"> 2283</span>  <span class="keywordflow">case</span> 3: <span class="comment">/* toward -infinity */</span></div><div class="line"><a name="l02284"></a><span class="lineno"> 2284</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec">Big0</a>;</div><div class="line"><a name="l02285"></a><span class="lineno"> 2285</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d">Big1</a>;</div><div class="line"><a name="l02286"></a><span class="lineno"> 2286</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02287"></a><span class="lineno"> 2287</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02288"></a><span class="lineno"> 2288</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02289"></a><span class="lineno"> 2289</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = 0;</div><div class="line"><a name="l02290"></a><span class="lineno"> 2290</span>  }</div><div class="line"><a name="l02291"></a><span class="lineno"> 2291</span> <span class="preprocessor">#else </span><span class="comment">/*Honor_FLT_ROUNDS*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02292"></a><span class="lineno"> 2292</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02293"></a><span class="lineno"> 2293</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = 0;</div><div class="line"><a name="l02294"></a><span class="lineno"> 2294</span> <span class="preprocessor">#endif </span><span class="comment">/*Honor_FLT_ROUNDS*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02295"></a><span class="lineno"> 2295</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02296"></a><span class="lineno"> 2296</span>  <span class="comment">/* set overflow bit */</span></div><div class="line"><a name="l02297"></a><span class="lineno"> 2297</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) = 1e300;</div><div class="line"><a name="l02298"></a><span class="lineno"> 2298</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) *= <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0);</div><div class="line"><a name="l02299"></a><span class="lineno"> 2299</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02300"></a><span class="lineno"> 2300</span> <span class="preprocessor">#else </span><span class="comment">/*IEEE_Arith*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02301"></a><span class="lineno"> 2301</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec">Big0</a>;</div><div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d">Big1</a>;</div><div class="line"><a name="l02303"></a><span class="lineno"> 2303</span> <span class="preprocessor">#endif </span><span class="comment">/*IEEE_Arith*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02304"></a><span class="lineno"> 2304</span>  <span class="keywordflow">if</span> (bd0)</div><div class="line"><a name="l02305"></a><span class="lineno"> 2305</span>  <span class="keywordflow">goto</span> retfree;</div><div class="line"><a name="l02306"></a><span class="lineno"> 2306</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02307"></a><span class="lineno"> 2307</span>  }</div><div class="line"><a name="l02308"></a><span class="lineno"> 2308</span>  e1 >>= 4;</div><div class="line"><a name="l02309"></a><span class="lineno"> 2309</span>  <span class="keywordflow">for</span> (j = 0; e1 > 1; j++, e1 >>= 1)</div><div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>  <span class="keywordflow">if</span> (e1 & 1)</div><div class="line"><a name="l02311"></a><span class="lineno"> 2311</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[j];</div><div class="line"><a name="l02312"></a><span class="lineno"> 2312</span>  <span class="comment">/* The last multiplication could overflow. */</span></div><div class="line"><a name="l02313"></a><span class="lineno"> 2313</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[j];</div><div class="line"><a name="l02315"></a><span class="lineno"> 2315</span>  <span class="keywordflow">if</span> ((z = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)</div><div class="line"><a name="l02316"></a><span class="lineno"> 2316</span>  > <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>*(<a class="code" href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a>+<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a>-<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>))</div><div class="line"><a name="l02317"></a><span class="lineno"> 2317</span>  <span class="keywordflow">goto</span> ovfl;</div><div class="line"><a name="l02318"></a><span class="lineno"> 2318</span>  <span class="keywordflow">if</span> (z > <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>*(<a class="code" href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a>+<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a>-1-<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>)) {</div><div class="line"><a name="l02319"></a><span class="lineno"> 2319</span>  <span class="comment">/* set to largest number */</span></div><div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>  <span class="comment">/* (Can't trust DBL_MAX) */</span></div><div class="line"><a name="l02321"></a><span class="lineno"> 2321</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec">Big0</a>;</div><div class="line"><a name="l02322"></a><span class="lineno"> 2322</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d">Big1</a>;</div><div class="line"><a name="l02323"></a><span class="lineno"> 2323</span>  }</div><div class="line"><a name="l02324"></a><span class="lineno"> 2324</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02325"></a><span class="lineno"> 2325</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02326"></a><span class="lineno"> 2326</span>  }</div><div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>  }</div><div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (e1 < 0) {</div><div class="line"><a name="l02329"></a><span class="lineno"> 2329</span>  e1 = -e1;</div><div class="line"><a name="l02330"></a><span class="lineno"> 2330</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = e1 & 15) != 0)</div><div class="line"><a name="l02331"></a><span class="lineno"> 2331</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) /= <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div><div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>  <span class="keywordflow">if</span> (e1 >>= 4) {</div><div class="line"><a name="l02333"></a><span class="lineno"> 2333</span>  <span class="keywordflow">if</span> (e1 >= 1 << <a class="code" href="../../de/df1/util_8c.html#a4fd98445d772ae9d9b92f1f23fb228a5">n_bigtens</a>)</div><div class="line"><a name="l02334"></a><span class="lineno"> 2334</span>  <span class="keywordflow">goto</span> undfl;</div><div class="line"><a name="l02335"></a><span class="lineno"> 2335</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02336"></a><span class="lineno"> 2336</span>  <span class="keywordflow">if</span> (e1 & <a class="code" href="../../de/df1/util_8c.html#ada662962a67790a41662e7f9bdef2fbe">Scale_Bit</a>)</div><div class="line"><a name="l02337"></a><span class="lineno"> 2337</span>  scale = 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>;</div><div class="line"><a name="l02338"></a><span class="lineno"> 2338</span>  <span class="keywordflow">for</span> (j = 0; e1 > 0; j++, e1 >>= 1)</div><div class="line"><a name="l02339"></a><span class="lineno"> 2339</span>  <span class="keywordflow">if</span> (e1 & 1)</div><div class="line"><a name="l02340"></a><span class="lineno"> 2340</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[j];</div><div class="line"><a name="l02341"></a><span class="lineno"> 2341</span>  <span class="keywordflow">if</span> (scale && (j = 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> + 1 - ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)</div><div class="line"><a name="l02342"></a><span class="lineno"> 2342</span>  >> <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>)) > 0) {</div><div class="line"><a name="l02343"></a><span class="lineno"> 2343</span>  <span class="comment">/* scaled rv is denormal; zap j low bits */</span></div><div class="line"><a name="l02344"></a><span class="lineno"> 2344</span>  <span class="keywordflow">if</span> (j >= 32) {</div><div class="line"><a name="l02345"></a><span class="lineno"> 2345</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = 0;</div><div class="line"><a name="l02346"></a><span class="lineno"> 2346</span>  <span class="keywordflow">if</span> (j >= 53)</div><div class="line"><a name="l02347"></a><span class="lineno"> 2347</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+2)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02348"></a><span class="lineno"> 2348</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02349"></a><span class="lineno"> 2349</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) &= 0xffffffff << (j-32);</div><div class="line"><a name="l02350"></a><span class="lineno"> 2350</span>  }</div><div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) &= 0xffffffff << j;</div><div class="line"><a name="l02353"></a><span class="lineno"> 2353</span>  }</div><div class="line"><a name="l02354"></a><span class="lineno"> 2354</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02355"></a><span class="lineno"> 2355</span>  <span class="keywordflow">for</span> (j = 0; e1 > 1; j++, e1 >>= 1)</div><div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>  <span class="keywordflow">if</span> (e1 & 1)</div><div class="line"><a name="l02357"></a><span class="lineno"> 2357</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[j];</div><div class="line"><a name="l02358"></a><span class="lineno"> 2358</span>  <span class="comment">/* The last multiplication could underflow. */</span></div><div class="line"><a name="l02359"></a><span class="lineno"> 2359</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[j];</div><div class="line"><a name="l02361"></a><span class="lineno"> 2361</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv)) {</div><div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = 2.*<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0);</div><div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a>[j];</div><div class="line"><a name="l02364"></a><span class="lineno"> 2364</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02365"></a><span class="lineno"> 2365</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv)) {</div><div class="line"><a name="l02366"></a><span class="lineno"> 2366</span> undfl:</div><div class="line"><a name="l02367"></a><span class="lineno"> 2367</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) = 0.;</div><div class="line"><a name="l02368"></a><span class="lineno"> 2368</span> <span class="preprocessor">#ifndef NO_ERRNO</span></div><div class="line"><a name="l02369"></a><span class="lineno"> 2369</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = ERANGE;</div><div class="line"><a name="l02370"></a><span class="lineno"> 2370</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02371"></a><span class="lineno"> 2371</span>  <span class="keywordflow">if</span> (bd0)</div><div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>  <span class="keywordflow">goto</span> retfree;</div><div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l02374"></a><span class="lineno"> 2374</span>  }</div><div class="line"><a name="l02375"></a><span class="lineno"> 2375</span> <span class="preprocessor">#ifndef Avoid_Underflow</span></div><div class="line"><a name="l02376"></a><span class="lineno"> 2376</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a0ff2aa401024cf1d9c294764d3989d5f">Tiny0</a>;</div><div class="line"><a name="l02377"></a><span class="lineno"> 2377</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a41b55bb8829507cb221f0fa73f71bb64">Tiny1</a>;</div><div class="line"><a name="l02378"></a><span class="lineno"> 2378</span>  <span class="comment">/* The refinement below will clean</span></div><div class="line"><a name="l02379"></a><span class="lineno"> 2379</span> <span class="comment"> * this approximation up.</span></div><div class="line"><a name="l02380"></a><span class="lineno"> 2380</span> <span class="comment"> */</span></div><div class="line"><a name="l02381"></a><span class="lineno"> 2381</span>  }</div><div class="line"><a name="l02382"></a><span class="lineno"> 2382</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02383"></a><span class="lineno"> 2383</span>  }</div><div class="line"><a name="l02384"></a><span class="lineno"> 2384</span>  }</div><div class="line"><a name="l02385"></a><span class="lineno"> 2385</span> </div><div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>  <span class="comment">/* Now the hard part -- adjusting rv to the correct value.*/</span></div><div class="line"><a name="l02387"></a><span class="lineno"> 2387</span> </div><div class="line"><a name="l02388"></a><span class="lineno"> 2388</span>  <span class="comment">/* Put digits into bd: true value = bd * 10^e */</span></div><div class="line"><a name="l02389"></a><span class="lineno"> 2389</span> </div><div class="line"><a name="l02390"></a><span class="lineno"> 2390</span>  bd0 = <a class="code" href="../../de/df1/util_8c.html#a6ac718b5ee70bc12a8d8d315aa2d321c">s2b</a>(s0, nd0, nd, y);</div><div class="line"><a name="l02391"></a><span class="lineno"> 2391</span> </div><div class="line"><a name="l02392"></a><span class="lineno"> 2392</span>  <span class="keywordflow">for</span> (;;) {</div><div class="line"><a name="l02393"></a><span class="lineno"> 2393</span>  bd = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(bd0-><a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>);</div><div class="line"><a name="l02394"></a><span class="lineno"> 2394</span>  <a class="code" href="../../de/df1/util_8c.html#acb2492181a9c5310befb7e45e65c35c9">Bcopy</a>(bd, bd0);</div><div class="line"><a name="l02395"></a><span class="lineno"> 2395</span>  bb = <a class="code" href="../../de/df1/util_8c.html#a2a8c76789579ca99ff38f31fa59d9fb9">d2b</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv), &bbe, &bbbits); <span class="comment">/* rv = bb * 2^bbe */</span></div><div class="line"><a name="l02396"></a><span class="lineno"> 2396</span>  bs = <a class="code" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a>(1);</div><div class="line"><a name="l02397"></a><span class="lineno"> 2397</span> </div><div class="line"><a name="l02398"></a><span class="lineno"> 2398</span>  <span class="keywordflow">if</span> (e >= 0) {</div><div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>  bb2 = bb5 = 0;</div><div class="line"><a name="l02400"></a><span class="lineno"> 2400</span>  bd2 = bd5 = e;</div><div class="line"><a name="l02401"></a><span class="lineno"> 2401</span>  }</div><div class="line"><a name="l02402"></a><span class="lineno"> 2402</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02403"></a><span class="lineno"> 2403</span>  bb2 = bb5 = -e;</div><div class="line"><a name="l02404"></a><span class="lineno"> 2404</span>  bd2 = bd5 = 0;</div><div class="line"><a name="l02405"></a><span class="lineno"> 2405</span>  }</div><div class="line"><a name="l02406"></a><span class="lineno"> 2406</span>  <span class="keywordflow">if</span> (bbe >= 0)</div><div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>  bb2 += bbe;</div><div class="line"><a name="l02408"></a><span class="lineno"> 2408</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>  bd2 -= bbe;</div><div class="line"><a name="l02410"></a><span class="lineno"> 2410</span>  bs2 = bb2;</div><div class="line"><a name="l02411"></a><span class="lineno"> 2411</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02412"></a><span class="lineno"> 2412</span>  <span class="keywordflow">if</span> (rounding != 1)</div><div class="line"><a name="l02413"></a><span class="lineno"> 2413</span>  bs2++;</div><div class="line"><a name="l02414"></a><span class="lineno"> 2414</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02415"></a><span class="lineno"> 2415</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02416"></a><span class="lineno"> 2416</span>  j = bbe - scale;</div><div class="line"><a name="l02417"></a><span class="lineno"> 2417</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = j + bbbits - 1; <span class="comment">/* logb(rv) */</span></div><div class="line"><a name="l02418"></a><span class="lineno"> 2418</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < <a class="code" href="../../de/df1/util_8c.html#abf22a1cc99d53140ccdf6c3952c7f508">Emin</a>) <span class="comment">/* denormal */</span></div><div class="line"><a name="l02419"></a><span class="lineno"> 2419</span>  j += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> - <a class="code" href="../../de/df1/util_8c.html#abf22a1cc99d53140ccdf6c3952c7f508">Emin</a>;</div><div class="line"><a name="l02420"></a><span class="lineno"> 2420</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02421"></a><span class="lineno"> 2421</span>  j = <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> + 1 - bbbits;</div><div class="line"><a name="l02422"></a><span class="lineno"> 2422</span> <span class="preprocessor">#else </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02423"></a><span class="lineno"> 2423</span> <span class="preprocessor">#ifdef Sudden_Underflow</span></div><div class="line"><a name="l02424"></a><span class="lineno"> 2424</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l02425"></a><span class="lineno"> 2425</span>  j = 1 + 4*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> - 3 - bbbits + ((bbe + bbbits - 1) & 3);</div><div class="line"><a name="l02426"></a><span class="lineno"> 2426</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02427"></a><span class="lineno"> 2427</span>  j = <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> + 1 - bbbits;</div><div class="line"><a name="l02428"></a><span class="lineno"> 2428</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02429"></a><span class="lineno"> 2429</span> <span class="preprocessor">#else </span><span class="comment">/*Sudden_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02430"></a><span class="lineno"> 2430</span>  j = bbe;</div><div class="line"><a name="l02431"></a><span class="lineno"> 2431</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = j + bbbits - 1; <span class="comment">/* logb(rv) */</span></div><div class="line"><a name="l02432"></a><span class="lineno"> 2432</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < <a class="code" href="../../de/df1/util_8c.html#abf22a1cc99d53140ccdf6c3952c7f508">Emin</a>) <span class="comment">/* denormal */</span></div><div class="line"><a name="l02433"></a><span class="lineno"> 2433</span>  j += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> - <a class="code" href="../../de/df1/util_8c.html#abf22a1cc99d53140ccdf6c3952c7f508">Emin</a>;</div><div class="line"><a name="l02434"></a><span class="lineno"> 2434</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02435"></a><span class="lineno"> 2435</span>  j = <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> + 1 - bbbits;</div><div class="line"><a name="l02436"></a><span class="lineno"> 2436</span> <span class="preprocessor">#endif </span><span class="comment">/*Sudden_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02437"></a><span class="lineno"> 2437</span> <span class="preprocessor">#endif </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02438"></a><span class="lineno"> 2438</span>  bb2 += j;</div><div class="line"><a name="l02439"></a><span class="lineno"> 2439</span>  bd2 += j;</div><div class="line"><a name="l02440"></a><span class="lineno"> 2440</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02441"></a><span class="lineno"> 2441</span>  bd2 += scale;</div><div class="line"><a name="l02442"></a><span class="lineno"> 2442</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02443"></a><span class="lineno"> 2443</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = bb2 < bd2 ? bb2 : bd2;</div><div class="line"><a name="l02444"></a><span class="lineno"> 2444</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> > bs2)</div><div class="line"><a name="l02445"></a><span class="lineno"> 2445</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = bs2;</div><div class="line"><a name="l02446"></a><span class="lineno"> 2446</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> > 0) {</div><div class="line"><a name="l02447"></a><span class="lineno"> 2447</span>  bb2 -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l02448"></a><span class="lineno"> 2448</span>  bd2 -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l02449"></a><span class="lineno"> 2449</span>  bs2 -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l02450"></a><span class="lineno"> 2450</span>  }</div><div class="line"><a name="l02451"></a><span class="lineno"> 2451</span>  <span class="keywordflow">if</span> (bb5 > 0) {</div><div class="line"><a name="l02452"></a><span class="lineno"> 2452</span>  bs = <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(bs, bb5);</div><div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>  bb1 = <a class="code" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a>(bs, bb);</div><div class="line"><a name="l02454"></a><span class="lineno"> 2454</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bb);</div><div class="line"><a name="l02455"></a><span class="lineno"> 2455</span>  bb = bb1;</div><div class="line"><a name="l02456"></a><span class="lineno"> 2456</span>  }</div><div class="line"><a name="l02457"></a><span class="lineno"> 2457</span>  <span class="keywordflow">if</span> (bb2 > 0)</div><div class="line"><a name="l02458"></a><span class="lineno"> 2458</span>  bb = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(bb, bb2);</div><div class="line"><a name="l02459"></a><span class="lineno"> 2459</span>  <span class="keywordflow">if</span> (bd5 > 0)</div><div class="line"><a name="l02460"></a><span class="lineno"> 2460</span>  bd = <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(bd, bd5);</div><div class="line"><a name="l02461"></a><span class="lineno"> 2461</span>  <span class="keywordflow">if</span> (bd2 > 0)</div><div class="line"><a name="l02462"></a><span class="lineno"> 2462</span>  bd = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(bd, bd2);</div><div class="line"><a name="l02463"></a><span class="lineno"> 2463</span>  <span class="keywordflow">if</span> (bs2 > 0)</div><div class="line"><a name="l02464"></a><span class="lineno"> 2464</span>  bs = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(bs, bs2);</div><div class="line"><a name="l02465"></a><span class="lineno"> 2465</span>  delta = <a class="code" href="../../de/df1/util_8c.html#a84207aa1bd71cbf7b683da325e61d0e5">diff</a>(bb, bd);</div><div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>  dsign = delta-><a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>;</div><div class="line"><a name="l02467"></a><span class="lineno"> 2467</span>  delta-><a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l02468"></a><span class="lineno"> 2468</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(delta, bs);</div><div class="line"><a name="l02469"></a><span class="lineno"> 2469</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l02470"></a><span class="lineno"> 2470</span>  <span class="keywordflow">if</span> (rounding != 1) {</div><div class="line"><a name="l02471"></a><span class="lineno"> 2471</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < 0) {</div><div class="line"><a name="l02472"></a><span class="lineno"> 2472</span>  <span class="comment">/* Error is less than an ulp */</span></div><div class="line"><a name="l02473"></a><span class="lineno"> 2473</span>  <span class="keywordflow">if</span> (!delta-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] && delta-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> <= 1) {</div><div class="line"><a name="l02474"></a><span class="lineno"> 2474</span>  <span class="comment">/* exact */</span></div><div class="line"><a name="l02475"></a><span class="lineno"> 2475</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02476"></a><span class="lineno"> 2476</span>  inexact = 0;</div><div class="line"><a name="l02477"></a><span class="lineno"> 2477</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02478"></a><span class="lineno"> 2478</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>  }</div><div class="line"><a name="l02480"></a><span class="lineno"> 2480</span>  <span class="keywordflow">if</span> (rounding) {</div><div class="line"><a name="l02481"></a><span class="lineno"> 2481</span>  <span class="keywordflow">if</span> (dsign) {</div><div class="line"><a name="l02482"></a><span class="lineno"> 2482</span>  adj = 1.;</div><div class="line"><a name="l02483"></a><span class="lineno"> 2483</span>  <span class="keywordflow">goto</span> apply_adj;</div><div class="line"><a name="l02484"></a><span class="lineno"> 2484</span>  }</div><div class="line"><a name="l02485"></a><span class="lineno"> 2485</span>  }</div><div class="line"><a name="l02486"></a><span class="lineno"> 2486</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (!dsign) {</div><div class="line"><a name="l02487"></a><span class="lineno"> 2487</span>  adj = -1.;</div><div class="line"><a name="l02488"></a><span class="lineno"> 2488</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv)</div><div class="line"><a name="l02489"></a><span class="lineno"> 2489</span>  && !(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a3e6dc09a955126ee74b3870ac287e370">Frac_mask</a>)) {</div><div class="line"><a name="l02490"></a><span class="lineno"> 2490</span>  y = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02491"></a><span class="lineno"> 2491</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02492"></a><span class="lineno"> 2492</span>  <span class="keywordflow">if</span> (!scale || y > 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02493"></a><span class="lineno"> 2493</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02494"></a><span class="lineno"> 2494</span>  <span class="keywordflow">if</span> (y)</div><div class="line"><a name="l02495"></a><span class="lineno"> 2495</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02496"></a><span class="lineno"> 2496</span>  {</div><div class="line"><a name="l02497"></a><span class="lineno"> 2497</span>  delta = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(delta,<a class="code" href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142">Log2P</a>);</div><div class="line"><a name="l02498"></a><span class="lineno"> 2498</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(delta, bs) <= 0)</div><div class="line"><a name="l02499"></a><span class="lineno"> 2499</span>  adj = -0.5;</div><div class="line"><a name="l02500"></a><span class="lineno"> 2500</span>  }</div><div class="line"><a name="l02501"></a><span class="lineno"> 2501</span>  }</div><div class="line"><a name="l02502"></a><span class="lineno"> 2502</span> apply_adj:</div><div class="line"><a name="l02503"></a><span class="lineno"> 2503</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>  <span class="keywordflow">if</span> (scale && (y = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)</div><div class="line"><a name="l02505"></a><span class="lineno"> 2505</span>  <= 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02506"></a><span class="lineno"> 2506</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(adj) += (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> - y;</div><div class="line"><a name="l02507"></a><span class="lineno"> 2507</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02508"></a><span class="lineno"> 2508</span> <span class="preprocessor">#ifdef Sudden_Underflow</span></div><div class="line"><a name="l02509"></a><span class="lineno"> 2509</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <=</div><div class="line"><a name="l02510"></a><span class="lineno"> 2510</span>  <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>) {</div><div class="line"><a name="l02511"></a><span class="lineno"> 2511</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02512"></a><span class="lineno"> 2512</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj*<a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02513"></a><span class="lineno"> 2513</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02514"></a><span class="lineno"> 2514</span>  }</div><div class="line"><a name="l02515"></a><span class="lineno"> 2515</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02516"></a><span class="lineno"> 2516</span> <span class="preprocessor">#endif </span><span class="comment">/*Sudden_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02517"></a><span class="lineno"> 2517</span> <span class="preprocessor">#endif </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02518"></a><span class="lineno"> 2518</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj*<a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02519"></a><span class="lineno"> 2519</span>  }</div><div class="line"><a name="l02520"></a><span class="lineno"> 2520</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02521"></a><span class="lineno"> 2521</span>  }</div><div class="line"><a name="l02522"></a><span class="lineno"> 2522</span>  adj = <a class="code" href="../../de/df1/util_8c.html#ae5567a2ba4448098128614fe9779209b">ratio</a>(delta, bs);</div><div class="line"><a name="l02523"></a><span class="lineno"> 2523</span>  <span class="keywordflow">if</span> (adj < 1.)</div><div class="line"><a name="l02524"></a><span class="lineno"> 2524</span>  adj = 1.;</div><div class="line"><a name="l02525"></a><span class="lineno"> 2525</span>  <span class="keywordflow">if</span> (adj <= 0x7ffffffe) {</div><div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>  <span class="comment">/* adj = rounding ? ceil(adj) : floor(adj); */</span></div><div class="line"><a name="l02527"></a><span class="lineno"> 2527</span>  y = adj;</div><div class="line"><a name="l02528"></a><span class="lineno"> 2528</span>  <span class="keywordflow">if</span> (y != adj) {</div><div class="line"><a name="l02529"></a><span class="lineno"> 2529</span>  <span class="keywordflow">if</span> (!((rounding>>1) ^ dsign))</div><div class="line"><a name="l02530"></a><span class="lineno"> 2530</span>  y++;</div><div class="line"><a name="l02531"></a><span class="lineno"> 2531</span>  adj = y;</div><div class="line"><a name="l02532"></a><span class="lineno"> 2532</span>  }</div><div class="line"><a name="l02533"></a><span class="lineno"> 2533</span>  }</div><div class="line"><a name="l02534"></a><span class="lineno"> 2534</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02535"></a><span class="lineno"> 2535</span>  <span class="keywordflow">if</span> (scale && (y = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02536"></a><span class="lineno"> 2536</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(adj) += (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> - y;</div><div class="line"><a name="l02537"></a><span class="lineno"> 2537</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02538"></a><span class="lineno"> 2538</span> <span class="preprocessor">#ifdef Sudden_Underflow</span></div><div class="line"><a name="l02539"></a><span class="lineno"> 2539</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>) {</div><div class="line"><a name="l02540"></a><span class="lineno"> 2540</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02541"></a><span class="lineno"> 2541</span>  adj *= <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02542"></a><span class="lineno"> 2542</span>  <span class="keywordflow">if</span> (dsign)</div><div class="line"><a name="l02543"></a><span class="lineno"> 2543</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02544"></a><span class="lineno"> 2544</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02545"></a><span class="lineno"> 2545</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) -= adj;</div><div class="line"><a name="l02546"></a><span class="lineno"> 2546</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02547"></a><span class="lineno"> 2547</span>  <span class="keywordflow">goto</span> cont;</div><div class="line"><a name="l02548"></a><span class="lineno"> 2548</span>  }</div><div class="line"><a name="l02549"></a><span class="lineno"> 2549</span> <span class="preprocessor">#endif </span><span class="comment">/*Sudden_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02550"></a><span class="lineno"> 2550</span> <span class="preprocessor">#endif </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02551"></a><span class="lineno"> 2551</span>  adj *= <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02552"></a><span class="lineno"> 2552</span>  <span class="keywordflow">if</span> (dsign)</div><div class="line"><a name="l02553"></a><span class="lineno"> 2553</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02554"></a><span class="lineno"> 2554</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02555"></a><span class="lineno"> 2555</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) -= adj;</div><div class="line"><a name="l02556"></a><span class="lineno"> 2556</span>  <span class="keywordflow">goto</span> cont;</div><div class="line"><a name="l02557"></a><span class="lineno"> 2557</span>  }</div><div class="line"><a name="l02558"></a><span class="lineno"> 2558</span> <span class="preprocessor">#endif </span><span class="comment">/*Honor_FLT_ROUNDS*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02559"></a><span class="lineno"> 2559</span> </div><div class="line"><a name="l02560"></a><span class="lineno"> 2560</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < 0) {</div><div class="line"><a name="l02561"></a><span class="lineno"> 2561</span>  <span class="comment">/* Error is less than half an ulp -- check for</span></div><div class="line"><a name="l02562"></a><span class="lineno"> 2562</span> <span class="comment"> * special case of mantissa a power of two.</span></div><div class="line"><a name="l02563"></a><span class="lineno"> 2563</span> <span class="comment"> */</span></div><div class="line"><a name="l02564"></a><span class="lineno"> 2564</span>  <span class="keywordflow">if</span> (dsign || <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) || <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff">Bndry_mask</a></div><div class="line"><a name="l02565"></a><span class="lineno"> 2565</span> #ifdef <a class="code" href="../../de/df1/util_8c.html#a2d51cf120146e6ab93e413401201fdd8">IEEE_Arith</a></div><div class="line"><a name="l02566"></a><span class="lineno"> 2566</span> #ifdef <a class="code" href="../../de/df1/util_8c.html#aed409c11e0ed29788b5988ea726cb30e">Avoid_Underflow</a></div><div class="line"><a name="l02567"></a><span class="lineno"> 2567</span>  || (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a></div><div class="line"><a name="l02568"></a><span class="lineno"> 2568</span> #<span class="keywordflow">else</span></div><div class="line"><a name="l02569"></a><span class="lineno"> 2569</span>  || (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a></div><div class="line"><a name="l02570"></a><span class="lineno"> 2570</span> #endif</div><div class="line"><a name="l02571"></a><span class="lineno"> 2571</span> #endif</div><div class="line"><a name="l02572"></a><span class="lineno"> 2572</span>  ) {</div><div class="line"><a name="l02573"></a><span class="lineno"> 2573</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02574"></a><span class="lineno"> 2574</span>  <span class="keywordflow">if</span> (!delta-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] && delta-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> <= 1)</div><div class="line"><a name="l02575"></a><span class="lineno"> 2575</span>  inexact = 0;</div><div class="line"><a name="l02576"></a><span class="lineno"> 2576</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02577"></a><span class="lineno"> 2577</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02578"></a><span class="lineno"> 2578</span>  }</div><div class="line"><a name="l02579"></a><span class="lineno"> 2579</span>  <span class="keywordflow">if</span> (!delta-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] && delta-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> <= 1) {</div><div class="line"><a name="l02580"></a><span class="lineno"> 2580</span>  <span class="comment">/* exact result */</span></div><div class="line"><a name="l02581"></a><span class="lineno"> 2581</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02582"></a><span class="lineno"> 2582</span>  inexact = 0;</div><div class="line"><a name="l02583"></a><span class="lineno"> 2583</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02584"></a><span class="lineno"> 2584</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02585"></a><span class="lineno"> 2585</span>  }</div><div class="line"><a name="l02586"></a><span class="lineno"> 2586</span>  delta = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(delta,<a class="code" href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142">Log2P</a>);</div><div class="line"><a name="l02587"></a><span class="lineno"> 2587</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(delta, bs) > 0)</div><div class="line"><a name="l02588"></a><span class="lineno"> 2588</span>  <span class="keywordflow">goto</span> drop_down;</div><div class="line"><a name="l02589"></a><span class="lineno"> 2589</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02590"></a><span class="lineno"> 2590</span>  }</div><div class="line"><a name="l02591"></a><span class="lineno"> 2591</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> == 0) {</div><div class="line"><a name="l02592"></a><span class="lineno"> 2592</span>  <span class="comment">/* exactly half-way between */</span></div><div class="line"><a name="l02593"></a><span class="lineno"> 2593</span>  <span class="keywordflow">if</span> (dsign) {</div><div class="line"><a name="l02594"></a><span class="lineno"> 2594</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#ad1db7929322cfb6d39c183e032d4c680">Bndry_mask1</a>) == <a class="code" href="../../de/df1/util_8c.html#ad1db7929322cfb6d39c183e032d4c680">Bndry_mask1</a></div><div class="line"><a name="l02595"></a><span class="lineno"> 2595</span>  && <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) == (</div><div class="line"><a name="l02596"></a><span class="lineno"> 2596</span> #ifdef <a class="code" href="../../de/df1/util_8c.html#aed409c11e0ed29788b5988ea726cb30e">Avoid_Underflow</a></div><div class="line"><a name="l02597"></a><span class="lineno"> 2597</span>  (scale && (y = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02598"></a><span class="lineno"> 2598</span>  ? (0xffffffff & (0xffffffff << (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1-(y>><a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>)))) :</div><div class="line"><a name="l02599"></a><span class="lineno"> 2599</span> #endif</div><div class="line"><a name="l02600"></a><span class="lineno"> 2600</span>  0xffffffff)) {</div><div class="line"><a name="l02601"></a><span class="lineno"> 2601</span>  <span class="comment">/*boundary case -- increment exponent*/</span></div><div class="line"><a name="l02602"></a><span class="lineno"> 2602</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)</div><div class="line"><a name="l02603"></a><span class="lineno"> 2603</span>  + <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a></div><div class="line"><a name="l02604"></a><span class="lineno"> 2604</span> #ifdef IBM</div><div class="line"><a name="l02605"></a><span class="lineno"> 2605</span>  | <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> >> 4</div><div class="line"><a name="l02606"></a><span class="lineno"> 2606</span> #endif</div><div class="line"><a name="l02607"></a><span class="lineno"> 2607</span>  ;</div><div class="line"><a name="l02608"></a><span class="lineno"> 2608</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = 0;</div><div class="line"><a name="l02609"></a><span class="lineno"> 2609</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02610"></a><span class="lineno"> 2610</span>  dsign = 0;</div><div class="line"><a name="l02611"></a><span class="lineno"> 2611</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02612"></a><span class="lineno"> 2612</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02613"></a><span class="lineno"> 2613</span>  }</div><div class="line"><a name="l02614"></a><span class="lineno"> 2614</span>  }</div><div class="line"><a name="l02615"></a><span class="lineno"> 2615</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (!(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff">Bndry_mask</a>) && !<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv)) {</div><div class="line"><a name="l02616"></a><span class="lineno"> 2616</span> drop_down:</div><div class="line"><a name="l02617"></a><span class="lineno"> 2617</span>  <span class="comment">/* boundary case -- decrement exponent */</span></div><div class="line"><a name="l02618"></a><span class="lineno"> 2618</span> <span class="preprocessor">#ifdef Sudden_Underflow </span><span class="comment">/*{{*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02619"></a><span class="lineno"> 2619</span>  L = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02620"></a><span class="lineno"> 2620</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l02621"></a><span class="lineno"> 2621</span>  <span class="keywordflow">if</span> (L < <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02622"></a><span class="lineno"> 2622</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02623"></a><span class="lineno"> 2623</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02624"></a><span class="lineno"> 2624</span>  <span class="keywordflow">if</span> (L <= (scale ? (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> : <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>))</div><div class="line"><a name="l02625"></a><span class="lineno"> 2625</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02626"></a><span class="lineno"> 2626</span>  <span class="keywordflow">if</span> (L <= <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02627"></a><span class="lineno"> 2627</span> <span class="preprocessor">#endif </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02628"></a><span class="lineno"> 2628</span> <span class="preprocessor">#endif </span><span class="comment">/*IBM*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02629"></a><span class="lineno"> 2629</span>  <span class="keywordflow">goto</span> undfl;</div><div class="line"><a name="l02630"></a><span class="lineno"> 2630</span>  L -= <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02631"></a><span class="lineno"> 2631</span> <span class="preprocessor">#else </span><span class="comment">/*Sudden_Underflow}{*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02632"></a><span class="lineno"> 2632</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02633"></a><span class="lineno"> 2633</span>  <span class="keywordflow">if</span> (scale) {</div><div class="line"><a name="l02634"></a><span class="lineno"> 2634</span>  L = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02635"></a><span class="lineno"> 2635</span>  <span class="keywordflow">if</span> (L <= (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>) {</div><div class="line"><a name="l02636"></a><span class="lineno"> 2636</span>  <span class="keywordflow">if</span> (L > (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+2)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02637"></a><span class="lineno"> 2637</span>  <span class="comment">/* round even ==> */</span></div><div class="line"><a name="l02638"></a><span class="lineno"> 2638</span>  <span class="comment">/* accept rv */</span></div><div class="line"><a name="l02639"></a><span class="lineno"> 2639</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02640"></a><span class="lineno"> 2640</span>  <span class="comment">/* rv = smallest denormal */</span></div><div class="line"><a name="l02641"></a><span class="lineno"> 2641</span>  <span class="keywordflow">goto</span> undfl;</div><div class="line"><a name="l02642"></a><span class="lineno"> 2642</span>  }</div><div class="line"><a name="l02643"></a><span class="lineno"> 2643</span>  }</div><div class="line"><a name="l02644"></a><span class="lineno"> 2644</span> <span class="preprocessor">#endif </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02645"></a><span class="lineno"> 2645</span>  L = (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) - <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02646"></a><span class="lineno"> 2646</span> <span class="preprocessor">#endif </span><span class="comment">/*Sudden_Underflow}}*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02647"></a><span class="lineno"> 2647</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = L | <a class="code" href="../../de/df1/util_8c.html#ad1db7929322cfb6d39c183e032d4c680">Bndry_mask1</a>;</div><div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = 0xffffffff;</div><div class="line"><a name="l02649"></a><span class="lineno"> 2649</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l02650"></a><span class="lineno"> 2650</span>  <span class="keywordflow">goto</span> cont;</div><div class="line"><a name="l02651"></a><span class="lineno"> 2651</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02652"></a><span class="lineno"> 2652</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02653"></a><span class="lineno"> 2653</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02654"></a><span class="lineno"> 2654</span>  }</div><div class="line"><a name="l02655"></a><span class="lineno"> 2655</span> <span class="preprocessor">#ifndef ROUND_BIASED</span></div><div class="line"><a name="l02656"></a><span class="lineno"> 2656</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a525d3ca9955b22e489a749a548831a1d">LSB</a>))</div><div class="line"><a name="l02657"></a><span class="lineno"> 2657</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02658"></a><span class="lineno"> 2658</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02659"></a><span class="lineno"> 2659</span>  <span class="keywordflow">if</span> (dsign)</div><div class="line"><a name="l02660"></a><span class="lineno"> 2660</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02661"></a><span class="lineno"> 2661</span> <span class="preprocessor">#ifndef ROUND_BIASED</span></div><div class="line"><a name="l02662"></a><span class="lineno"> 2662</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02663"></a><span class="lineno"> 2663</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02664"></a><span class="lineno"> 2664</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l02665"></a><span class="lineno"> 2665</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv))</div><div class="line"><a name="l02666"></a><span class="lineno"> 2666</span>  <span class="keywordflow">goto</span> undfl;</div><div class="line"><a name="l02667"></a><span class="lineno"> 2667</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02668"></a><span class="lineno"> 2668</span>  }</div><div class="line"><a name="l02669"></a><span class="lineno"> 2669</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02670"></a><span class="lineno"> 2670</span>  dsign = 1 - dsign;</div><div class="line"><a name="l02671"></a><span class="lineno"> 2671</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02672"></a><span class="lineno"> 2672</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02673"></a><span class="lineno"> 2673</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02674"></a><span class="lineno"> 2674</span>  }</div><div class="line"><a name="l02675"></a><span class="lineno"> 2675</span>  <span class="keywordflow">if</span> ((aadj = <a class="code" href="../../de/df1/util_8c.html#ae5567a2ba4448098128614fe9779209b">ratio</a>(delta, bs)) <= 2.) {</div><div class="line"><a name="l02676"></a><span class="lineno"> 2676</span>  <span class="keywordflow">if</span> (dsign)</div><div class="line"><a name="l02677"></a><span class="lineno"> 2677</span>  aadj = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = 1.;</div><div class="line"><a name="l02678"></a><span class="lineno"> 2678</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) || <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff">Bndry_mask</a>) {</div><div class="line"><a name="l02679"></a><span class="lineno"> 2679</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l02680"></a><span class="lineno"> 2680</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) == <a class="code" href="../../de/df1/util_8c.html#a41b55bb8829507cb221f0fa73f71bb64">Tiny1</a> && !<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv))</div><div class="line"><a name="l02681"></a><span class="lineno"> 2681</span>  <span class="keywordflow">goto</span> undfl;</div><div class="line"><a name="l02682"></a><span class="lineno"> 2682</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02683"></a><span class="lineno"> 2683</span>  aadj = 1.;</div><div class="line"><a name="l02684"></a><span class="lineno"> 2684</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = -1.;</div><div class="line"><a name="l02685"></a><span class="lineno"> 2685</span>  }</div><div class="line"><a name="l02686"></a><span class="lineno"> 2686</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02687"></a><span class="lineno"> 2687</span>  <span class="comment">/* special case -- power of FLT_RADIX to be */</span></div><div class="line"><a name="l02688"></a><span class="lineno"> 2688</span>  <span class="comment">/* rounded down... */</span></div><div class="line"><a name="l02689"></a><span class="lineno"> 2689</span> </div><div class="line"><a name="l02690"></a><span class="lineno"> 2690</span>  <span class="keywordflow">if</span> (aadj < 2./<a class="code" href="../../d6/d27/numeric_8c.html#a566d8859d1a43f73f0e76619833d4d98">FLT_RADIX</a>)</div><div class="line"><a name="l02691"></a><span class="lineno"> 2691</span>  aadj = 1./<a class="code" href="../../d6/d27/numeric_8c.html#a566d8859d1a43f73f0e76619833d4d98">FLT_RADIX</a>;</div><div class="line"><a name="l02692"></a><span class="lineno"> 2692</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02693"></a><span class="lineno"> 2693</span>  aadj *= 0.5;</div><div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = -aadj;</div><div class="line"><a name="l02695"></a><span class="lineno"> 2695</span>  }</div><div class="line"><a name="l02696"></a><span class="lineno"> 2696</span>  }</div><div class="line"><a name="l02697"></a><span class="lineno"> 2697</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02698"></a><span class="lineno"> 2698</span>  aadj *= 0.5;</div><div class="line"><a name="l02699"></a><span class="lineno"> 2699</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = dsign ? aadj : -aadj;</div><div class="line"><a name="l02700"></a><span class="lineno"> 2700</span> <span class="preprocessor">#ifdef Check_FLT_ROUNDS</span></div><div class="line"><a name="l02701"></a><span class="lineno"> 2701</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/df1/util_8c.html#ab925efe1cb96e8cfb4c70b5fcb7cbfbb">Rounding</a>) {</div><div class="line"><a name="l02702"></a><span class="lineno"> 2702</span>  <span class="keywordflow">case</span> 2: <span class="comment">/* towards +infinity */</span></div><div class="line"><a name="l02703"></a><span class="lineno"> 2703</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) -= 0.5;</div><div class="line"><a name="l02704"></a><span class="lineno"> 2704</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02705"></a><span class="lineno"> 2705</span>  <span class="keywordflow">case</span> 0: <span class="comment">/* towards 0 */</span></div><div class="line"><a name="l02706"></a><span class="lineno"> 2706</span>  <span class="keywordflow">case</span> 3: <span class="comment">/* towards -infinity */</span></div><div class="line"><a name="l02707"></a><span class="lineno"> 2707</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) += 0.5;</div><div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>  }</div><div class="line"><a name="l02709"></a><span class="lineno"> 2709</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02710"></a><span class="lineno"> 2710</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a99e35e070982190437423aa4c0dfc963">Flt_Rounds</a> == 0)</div><div class="line"><a name="l02711"></a><span class="lineno"> 2711</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) += 0.5;</div><div class="line"><a name="l02712"></a><span class="lineno"> 2712</span> <span class="preprocessor">#endif </span><span class="comment">/*Check_FLT_ROUNDS*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02713"></a><span class="lineno"> 2713</span>  }</div><div class="line"><a name="l02714"></a><span class="lineno"> 2714</span>  y = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02715"></a><span class="lineno"> 2715</span> </div><div class="line"><a name="l02716"></a><span class="lineno"> 2716</span>  <span class="comment">/* Check for overflow */</span></div><div class="line"><a name="l02717"></a><span class="lineno"> 2717</span> </div><div class="line"><a name="l02718"></a><span class="lineno"> 2718</span>  <span class="keywordflow">if</span> (y == <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>*(<a class="code" href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a>+<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a>-1)) {</div><div class="line"><a name="l02719"></a><span class="lineno"> 2719</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02720"></a><span class="lineno"> 2720</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02721"></a><span class="lineno"> 2721</span>  adj = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) * <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02722"></a><span class="lineno"> 2722</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02723"></a><span class="lineno"> 2723</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) >=</div><div class="line"><a name="l02724"></a><span class="lineno"> 2724</span>  <a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>*(<a class="code" href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a>+<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a>-<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>)) {</div><div class="line"><a name="l02725"></a><span class="lineno"> 2725</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv0) == <a class="code" href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec">Big0</a> && <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv0) == <a class="code" href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d">Big1</a>)</div><div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>  <span class="keywordflow">goto</span> ovfl;</div><div class="line"><a name="l02727"></a><span class="lineno"> 2727</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec">Big0</a>;</div><div class="line"><a name="l02728"></a><span class="lineno"> 2728</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d">Big1</a>;</div><div class="line"><a name="l02729"></a><span class="lineno"> 2729</span>  <span class="keywordflow">goto</span> cont;</div><div class="line"><a name="l02730"></a><span class="lineno"> 2730</span>  }</div><div class="line"><a name="l02731"></a><span class="lineno"> 2731</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02733"></a><span class="lineno"> 2733</span>  }</div><div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02735"></a><span class="lineno"> 2735</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>  <span class="keywordflow">if</span> (scale && y <= 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>) {</div><div class="line"><a name="l02737"></a><span class="lineno"> 2737</span>  <span class="keywordflow">if</span> (aadj <= 0x7fffffff) {</div><div class="line"><a name="l02738"></a><span class="lineno"> 2738</span>  <span class="keywordflow">if</span> ((z = (<span class="keywordtype">int</span>)aadj) <= 0)</div><div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>  z = 1;</div><div class="line"><a name="l02740"></a><span class="lineno"> 2740</span>  aadj = z;</div><div class="line"><a name="l02741"></a><span class="lineno"> 2741</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = dsign ? aadj : -aadj;</div><div class="line"><a name="l02742"></a><span class="lineno"> 2742</span>  }</div><div class="line"><a name="l02743"></a><span class="lineno"> 2743</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(aadj1) += (2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>+1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> - y;</div><div class="line"><a name="l02744"></a><span class="lineno"> 2744</span>  }</div><div class="line"><a name="l02745"></a><span class="lineno"> 2745</span>  adj = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) * <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02746"></a><span class="lineno"> 2746</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02747"></a><span class="lineno"> 2747</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02748"></a><span class="lineno"> 2748</span> <span class="preprocessor">#ifdef Sudden_Underflow</span></div><div class="line"><a name="l02749"></a><span class="lineno"> 2749</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>) {</div><div class="line"><a name="l02750"></a><span class="lineno"> 2750</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02751"></a><span class="lineno"> 2751</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) += <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02752"></a><span class="lineno"> 2752</span>  adj = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) * <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02753"></a><span class="lineno"> 2753</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02754"></a><span class="lineno"> 2754</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l02755"></a><span class="lineno"> 2755</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) < <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02756"></a><span class="lineno"> 2756</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02757"></a><span class="lineno"> 2757</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) <= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l02758"></a><span class="lineno"> 2758</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02759"></a><span class="lineno"> 2759</span>  {</div><div class="line"><a name="l02760"></a><span class="lineno"> 2760</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv0) == <a class="code" href="../../de/df1/util_8c.html#a0ff2aa401024cf1d9c294764d3989d5f">Tiny0</a> && <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv0) == <a class="code" href="../../de/df1/util_8c.html#a41b55bb8829507cb221f0fa73f71bb64">Tiny1</a>)</div><div class="line"><a name="l02761"></a><span class="lineno"> 2761</span>  <span class="keywordflow">goto</span> undfl;</div><div class="line"><a name="l02762"></a><span class="lineno"> 2762</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a0ff2aa401024cf1d9c294764d3989d5f">Tiny0</a>;</div><div class="line"><a name="l02763"></a><span class="lineno"> 2763</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) = <a class="code" href="../../de/df1/util_8c.html#a41b55bb8829507cb221f0fa73f71bb64">Tiny1</a>;</div><div class="line"><a name="l02764"></a><span class="lineno"> 2764</span>  <span class="keywordflow">goto</span> cont;</div><div class="line"><a name="l02765"></a><span class="lineno"> 2765</span>  }</div><div class="line"><a name="l02766"></a><span class="lineno"> 2766</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l02767"></a><span class="lineno"> 2767</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) -= <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02768"></a><span class="lineno"> 2768</span>  }</div><div class="line"><a name="l02769"></a><span class="lineno"> 2769</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02770"></a><span class="lineno"> 2770</span>  adj = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) * <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02771"></a><span class="lineno"> 2771</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02772"></a><span class="lineno"> 2772</span>  }</div><div class="line"><a name="l02773"></a><span class="lineno"> 2773</span> <span class="preprocessor">#else </span><span class="comment">/*Sudden_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02774"></a><span class="lineno"> 2774</span>  <span class="comment">/* Compute adj so that the IEEE rounding rules will</span></div><div class="line"><a name="l02775"></a><span class="lineno"> 2775</span> <span class="comment"> * correctly round rv + adj in some half-way cases.</span></div><div class="line"><a name="l02776"></a><span class="lineno"> 2776</span> <span class="comment"> * If rv * ulp(rv) is denormalized (i.e.,</span></div><div class="line"><a name="l02777"></a><span class="lineno"> 2777</span> <span class="comment"> * y <= (P-1)*Exp_msk1), we must adjust aadj to avoid</span></div><div class="line"><a name="l02778"></a><span class="lineno"> 2778</span> <span class="comment"> * trouble from bits lost to denormalization;</span></div><div class="line"><a name="l02779"></a><span class="lineno"> 2779</span> <span class="comment"> * example: 1.2e-307 .</span></div><div class="line"><a name="l02780"></a><span class="lineno"> 2780</span> <span class="comment"> */</span></div><div class="line"><a name="l02781"></a><span class="lineno"> 2781</span>  <span class="keywordflow">if</span> (y <= (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a> && aadj > 1.) {</div><div class="line"><a name="l02782"></a><span class="lineno"> 2782</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = (double)(<span class="keywordtype">int</span>)(aadj + 0.5);</div><div class="line"><a name="l02783"></a><span class="lineno"> 2783</span>  <span class="keywordflow">if</span> (!dsign)</div><div class="line"><a name="l02784"></a><span class="lineno"> 2784</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) = -<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1);</div><div class="line"><a name="l02785"></a><span class="lineno"> 2785</span>  }</div><div class="line"><a name="l02786"></a><span class="lineno"> 2786</span>  adj = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(aadj1) * <a class="code" href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv));</div><div class="line"><a name="l02787"></a><span class="lineno"> 2787</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) += adj;</div><div class="line"><a name="l02788"></a><span class="lineno"> 2788</span> <span class="preprocessor">#endif </span><span class="comment">/*Sudden_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02789"></a><span class="lineno"> 2789</span> <span class="preprocessor">#endif </span><span class="comment">/*Avoid_Underflow*/</span><span class="preprocessor"></span></div><div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>  }</div><div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>  z = <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>;</div><div class="line"><a name="l02792"></a><span class="lineno"> 2792</span> <span class="preprocessor">#ifndef SET_INEXACT</span></div><div class="line"><a name="l02793"></a><span class="lineno"> 2793</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02794"></a><span class="lineno"> 2794</span>  <span class="keywordflow">if</span> (!scale)</div><div class="line"><a name="l02795"></a><span class="lineno"> 2795</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>  <span class="keywordflow">if</span> (y == z) {</div><div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>  <span class="comment">/* Can we stop now? */</span></div><div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>  L = (Long)aadj;</div><div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>  aadj -= L;</div><div class="line"><a name="l02800"></a><span class="lineno"> 2800</span>  <span class="comment">/* The tolerances below are conservative. */</span></div><div class="line"><a name="l02801"></a><span class="lineno"> 2801</span>  <span class="keywordflow">if</span> (dsign || <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) || <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff">Bndry_mask</a>) {</div><div class="line"><a name="l02802"></a><span class="lineno"> 2802</span>  <span class="keywordflow">if</span> (aadj < .4999999 || aadj > .5000001)</div><div class="line"><a name="l02803"></a><span class="lineno"> 2803</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>  }</div><div class="line"><a name="l02805"></a><span class="lineno"> 2805</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (aadj < .4999999/<a class="code" href="../../d6/d27/numeric_8c.html#a566d8859d1a43f73f0e76619833d4d98">FLT_RADIX</a>)</div><div class="line"><a name="l02806"></a><span class="lineno"> 2806</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02807"></a><span class="lineno"> 2807</span>  }</div><div class="line"><a name="l02808"></a><span class="lineno"> 2808</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02809"></a><span class="lineno"> 2809</span> cont:</div><div class="line"><a name="l02810"></a><span class="lineno"> 2810</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bb);</div><div class="line"><a name="l02811"></a><span class="lineno"> 2811</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bd);</div><div class="line"><a name="l02812"></a><span class="lineno"> 2812</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bs);</div><div class="line"><a name="l02813"></a><span class="lineno"> 2813</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(delta);</div><div class="line"><a name="l02814"></a><span class="lineno"> 2814</span>  }</div><div class="line"><a name="l02815"></a><span class="lineno"> 2815</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02816"></a><span class="lineno"> 2816</span>  <span class="keywordflow">if</span> (inexact) {</div><div class="line"><a name="l02817"></a><span class="lineno"> 2817</span>  <span class="keywordflow">if</span> (!oldinexact) {</div><div class="line"><a name="l02818"></a><span class="lineno"> 2818</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv0) = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> + (70 << <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>);</div><div class="line"><a name="l02819"></a><span class="lineno"> 2819</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv0) = 0;</div><div class="line"><a name="l02820"></a><span class="lineno"> 2820</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) += 1.;</div><div class="line"><a name="l02821"></a><span class="lineno"> 2821</span>  }</div><div class="line"><a name="l02822"></a><span class="lineno"> 2822</span>  }</div><div class="line"><a name="l02823"></a><span class="lineno"> 2823</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (!oldinexact)</div><div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>  clear_inexact();</div><div class="line"><a name="l02825"></a><span class="lineno"> 2825</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02826"></a><span class="lineno"> 2826</span> <span class="preprocessor">#ifdef Avoid_Underflow</span></div><div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>  <span class="keywordflow">if</span> (scale) {</div><div class="line"><a name="l02828"></a><span class="lineno"> 2828</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv0) = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> - 2*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv0) = 0;</div><div class="line"><a name="l02830"></a><span class="lineno"> 2830</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) *= <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0);</div><div class="line"><a name="l02831"></a><span class="lineno"> 2831</span> <span class="preprocessor">#ifndef NO_ERRNO</span></div><div class="line"><a name="l02832"></a><span class="lineno"> 2832</span>  <span class="comment">/* try to avoid the bug of testing an 8087 register value */</span></div><div class="line"><a name="l02833"></a><span class="lineno"> 2833</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) == 0 && <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(rv) == 0)</div><div class="line"><a name="l02834"></a><span class="lineno"> 2834</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = ERANGE;</div><div class="line"><a name="l02835"></a><span class="lineno"> 2835</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02836"></a><span class="lineno"> 2836</span>  }</div><div class="line"><a name="l02837"></a><span class="lineno"> 2837</span> <span class="preprocessor">#endif </span><span class="comment">/* Avoid_Underflow */</span><span class="preprocessor"></span></div><div class="line"><a name="l02838"></a><span class="lineno"> 2838</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l02839"></a><span class="lineno"> 2839</span>  <span class="keywordflow">if</span> (inexact && !(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(rv) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)) {</div><div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>  <span class="comment">/* set underflow bit */</span></div><div class="line"><a name="l02841"></a><span class="lineno"> 2841</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) = 1e-300;</div><div class="line"><a name="l02842"></a><span class="lineno"> 2842</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0) *= <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv0);</div><div class="line"><a name="l02843"></a><span class="lineno"> 2843</span>  }</div><div class="line"><a name="l02844"></a><span class="lineno"> 2844</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02845"></a><span class="lineno"> 2845</span> retfree:</div><div class="line"><a name="l02846"></a><span class="lineno"> 2846</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bb);</div><div class="line"><a name="l02847"></a><span class="lineno"> 2847</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bd);</div><div class="line"><a name="l02848"></a><span class="lineno"> 2848</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bs);</div><div class="line"><a name="l02849"></a><span class="lineno"> 2849</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(bd0);</div><div class="line"><a name="l02850"></a><span class="lineno"> 2850</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(delta);</div><div class="line"><a name="l02851"></a><span class="lineno"> 2851</span> ret:</div><div class="line"><a name="l02852"></a><span class="lineno"> 2852</span>  <span class="keywordflow">if</span> (se)</div><div class="line"><a name="l02853"></a><span class="lineno"> 2853</span>  *se = (<span class="keywordtype">char</span> *)s;</div><div class="line"><a name="l02854"></a><span class="lineno"> 2854</span>  <span class="keywordflow">return</span> <a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> ? -<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv) : <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(rv);</div><div class="line"><a name="l02855"></a><span class="lineno"> 2855</span> }</div><div class="line"><a name="l02856"></a><span class="lineno"> 2856</span> </div><div class="line"><a name="l02857"></a><span class="lineno"> 2857</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02858"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a5259fef784f48e6d345d7c1338bc46cf"> 2858</a></span> <a class="code" href="../../de/df1/util_8c.html#a5259fef784f48e6d345d7c1338bc46cf">quorem</a>(<a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b, <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>)</div><div class="line"><a name="l02859"></a><span class="lineno"> 2859</span> {</div><div class="line"><a name="l02860"></a><span class="lineno"> 2860</span>  <span class="keywordtype">int</span> n;</div><div class="line"><a name="l02861"></a><span class="lineno"> 2861</span>  ULong *bx, *bxe, q, *sx, *sxe;</div><div class="line"><a name="l02862"></a><span class="lineno"> 2862</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l02863"></a><span class="lineno"> 2863</span>  <a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a> borrow, carry, y, ys;</div><div class="line"><a name="l02864"></a><span class="lineno"> 2864</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02865"></a><span class="lineno"> 2865</span>  ULong borrow, carry, y, ys;</div><div class="line"><a name="l02866"></a><span class="lineno"> 2866</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l02867"></a><span class="lineno"> 2867</span>  ULong si, z, zs;</div><div class="line"><a name="l02868"></a><span class="lineno"> 2868</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02869"></a><span class="lineno"> 2869</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02870"></a><span class="lineno"> 2870</span> </div><div class="line"><a name="l02871"></a><span class="lineno"> 2871</span>  n = <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->wds;</div><div class="line"><a name="l02872"></a><span class="lineno"> 2872</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l02873"></a><span class="lineno"> 2873</span>  <span class="comment">/*debug*/</span> <span class="keywordflow">if</span> (b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> > n)</div><div class="line"><a name="l02874"></a><span class="lineno"> 2874</span>  <span class="comment">/*debug*/</span> Bug(<span class="stringliteral">"oversize b in quorem"</span>);</div><div class="line"><a name="l02875"></a><span class="lineno"> 2875</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>  <span class="keywordflow">if</span> (b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> < n)</div><div class="line"><a name="l02877"></a><span class="lineno"> 2877</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02878"></a><span class="lineno"> 2878</span>  sx = <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->x;</div><div class="line"><a name="l02879"></a><span class="lineno"> 2879</span>  sxe = sx + --n;</div><div class="line"><a name="l02880"></a><span class="lineno"> 2880</span>  bx = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>  bxe = bx + n;</div><div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>  q = *bxe / (*sxe + 1); <span class="comment">/* ensure q <= true quotient */</span></div><div class="line"><a name="l02883"></a><span class="lineno"> 2883</span> <span class="preprocessor">#ifdef DEBUG</span></div><div class="line"><a name="l02884"></a><span class="lineno"> 2884</span>  <span class="comment">/*debug*/</span> <span class="keywordflow">if</span> (q > 9)</div><div class="line"><a name="l02885"></a><span class="lineno"> 2885</span>  <span class="comment">/*debug*/</span> Bug(<span class="stringliteral">"oversized quotient in quorem"</span>);</div><div class="line"><a name="l02886"></a><span class="lineno"> 2886</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>  <span class="keywordflow">if</span> (q) {</div><div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>  borrow = 0;</div><div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>  carry = 0;</div><div class="line"><a name="l02890"></a><span class="lineno"> 2890</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l02891"></a><span class="lineno"> 2891</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l02892"></a><span class="lineno"> 2892</span>  ys = *sx++ * (<a class="code" href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a>)q + carry;</div><div class="line"><a name="l02893"></a><span class="lineno"> 2893</span>  carry = ys >> 32;</div><div class="line"><a name="l02894"></a><span class="lineno"> 2894</span>  y = *bx - (ys & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>) - borrow;</div><div class="line"><a name="l02895"></a><span class="lineno"> 2895</span>  borrow = y >> 32 & (ULong)1;</div><div class="line"><a name="l02896"></a><span class="lineno"> 2896</span>  *bx++ = (ULong)(y & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>);</div><div class="line"><a name="l02897"></a><span class="lineno"> 2897</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02898"></a><span class="lineno"> 2898</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l02899"></a><span class="lineno"> 2899</span>  si = *sx++;</div><div class="line"><a name="l02900"></a><span class="lineno"> 2900</span>  ys = (si & 0xffff) * q + carry;</div><div class="line"><a name="l02901"></a><span class="lineno"> 2901</span>  zs = (si >> 16) * q + (ys >> 16);</div><div class="line"><a name="l02902"></a><span class="lineno"> 2902</span>  carry = zs >> 16;</div><div class="line"><a name="l02903"></a><span class="lineno"> 2903</span>  y = (*bx & 0xffff) - (ys & 0xffff) - borrow;</div><div class="line"><a name="l02904"></a><span class="lineno"> 2904</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l02905"></a><span class="lineno"> 2905</span>  z = (*bx >> 16) - (zs & 0xffff) - borrow;</div><div class="line"><a name="l02906"></a><span class="lineno"> 2906</span>  borrow = (z & 0x10000) >> 16;</div><div class="line"><a name="l02907"></a><span class="lineno"> 2907</span>  <a class="code" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a>(bx, z, y);</div><div class="line"><a name="l02908"></a><span class="lineno"> 2908</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02909"></a><span class="lineno"> 2909</span>  ys = *sx++ * q + carry;</div><div class="line"><a name="l02910"></a><span class="lineno"> 2910</span>  carry = ys >> 16;</div><div class="line"><a name="l02911"></a><span class="lineno"> 2911</span>  y = *bx - (ys & 0xffff) - borrow;</div><div class="line"><a name="l02912"></a><span class="lineno"> 2912</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l02913"></a><span class="lineno"> 2913</span>  *bx++ = y & 0xffff;</div><div class="line"><a name="l02914"></a><span class="lineno"> 2914</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02915"></a><span class="lineno"> 2915</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02916"></a><span class="lineno"> 2916</span>  } <span class="keywordflow">while</span> (sx <= sxe);</div><div class="line"><a name="l02917"></a><span class="lineno"> 2917</span>  <span class="keywordflow">if</span> (!*bxe) {</div><div class="line"><a name="l02918"></a><span class="lineno"> 2918</span>  bx = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l02919"></a><span class="lineno"> 2919</span>  <span class="keywordflow">while</span> (--bxe > bx && !*bxe)</div><div class="line"><a name="l02920"></a><span class="lineno"> 2920</span>  --n;</div><div class="line"><a name="l02921"></a><span class="lineno"> 2921</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = n;</div><div class="line"><a name="l02922"></a><span class="lineno"> 2922</span>  }</div><div class="line"><a name="l02923"></a><span class="lineno"> 2923</span>  }</div><div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b, <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>) >= 0) {</div><div class="line"><a name="l02925"></a><span class="lineno"> 2925</span>  q++;</div><div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>  borrow = 0;</div><div class="line"><a name="l02927"></a><span class="lineno"> 2927</span>  carry = 0;</div><div class="line"><a name="l02928"></a><span class="lineno"> 2928</span>  bx = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l02929"></a><span class="lineno"> 2929</span>  sx = <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->x;</div><div class="line"><a name="l02930"></a><span class="lineno"> 2930</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l02931"></a><span class="lineno"> 2931</span> <span class="preprocessor">#ifdef ULLong</span></div><div class="line"><a name="l02932"></a><span class="lineno"> 2932</span>  ys = *sx++ + carry;</div><div class="line"><a name="l02933"></a><span class="lineno"> 2933</span>  carry = ys >> 32;</div><div class="line"><a name="l02934"></a><span class="lineno"> 2934</span>  y = *bx - (ys & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>) - borrow;</div><div class="line"><a name="l02935"></a><span class="lineno"> 2935</span>  borrow = y >> 32 & (ULong)1;</div><div class="line"><a name="l02936"></a><span class="lineno"> 2936</span>  *bx++ = (ULong)(y & <a class="code" href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a>);</div><div class="line"><a name="l02937"></a><span class="lineno"> 2937</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02938"></a><span class="lineno"> 2938</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l02939"></a><span class="lineno"> 2939</span>  si = *sx++;</div><div class="line"><a name="l02940"></a><span class="lineno"> 2940</span>  ys = (si & 0xffff) + carry;</div><div class="line"><a name="l02941"></a><span class="lineno"> 2941</span>  zs = (si >> 16) + (ys >> 16);</div><div class="line"><a name="l02942"></a><span class="lineno"> 2942</span>  carry = zs >> 16;</div><div class="line"><a name="l02943"></a><span class="lineno"> 2943</span>  y = (*bx & 0xffff) - (ys & 0xffff) - borrow;</div><div class="line"><a name="l02944"></a><span class="lineno"> 2944</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l02945"></a><span class="lineno"> 2945</span>  z = (*bx >> 16) - (zs & 0xffff) - borrow;</div><div class="line"><a name="l02946"></a><span class="lineno"> 2946</span>  borrow = (z & 0x10000) >> 16;</div><div class="line"><a name="l02947"></a><span class="lineno"> 2947</span>  <a class="code" href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a>(bx, z, y);</div><div class="line"><a name="l02948"></a><span class="lineno"> 2948</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02949"></a><span class="lineno"> 2949</span>  ys = *sx++ + carry;</div><div class="line"><a name="l02950"></a><span class="lineno"> 2950</span>  carry = ys >> 16;</div><div class="line"><a name="l02951"></a><span class="lineno"> 2951</span>  y = *bx - (ys & 0xffff) - borrow;</div><div class="line"><a name="l02952"></a><span class="lineno"> 2952</span>  borrow = (y & 0x10000) >> 16;</div><div class="line"><a name="l02953"></a><span class="lineno"> 2953</span>  *bx++ = y & 0xffff;</div><div class="line"><a name="l02954"></a><span class="lineno"> 2954</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02955"></a><span class="lineno"> 2955</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02956"></a><span class="lineno"> 2956</span>  } <span class="keywordflow">while</span> (sx <= sxe);</div><div class="line"><a name="l02957"></a><span class="lineno"> 2957</span>  bx = b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>  bxe = bx + n;</div><div class="line"><a name="l02959"></a><span class="lineno"> 2959</span>  <span class="keywordflow">if</span> (!*bxe) {</div><div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>  <span class="keywordflow">while</span> (--bxe > bx && !*bxe)</div><div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>  --n;</div><div class="line"><a name="l02962"></a><span class="lineno"> 2962</span>  b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> = n;</div><div class="line"><a name="l02963"></a><span class="lineno"> 2963</span>  }</div><div class="line"><a name="l02964"></a><span class="lineno"> 2964</span>  }</div><div class="line"><a name="l02965"></a><span class="lineno"> 2965</span>  <span class="keywordflow">return</span> q;</div><div class="line"><a name="l02966"></a><span class="lineno"> 2966</span> }</div><div class="line"><a name="l02967"></a><span class="lineno"> 2967</span> </div><div class="line"><a name="l02968"></a><span class="lineno"> 2968</span> <span class="preprocessor">#ifndef MULTIPLE_THREADS</span></div><div class="line"><a name="l02969"></a><span class="lineno"> 2969</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *dtoa_result;</div><div class="line"><a name="l02970"></a><span class="lineno"> 2970</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02971"></a><span class="lineno"> 2971</span> </div><div class="line"><a name="l02972"></a><span class="lineno"> 2972</span> <span class="preprocessor">#ifndef MULTIPLE_THREADS</span></div><div class="line"><a name="l02973"></a><span class="lineno"> 2973</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l02974"></a><span class="lineno"> 2974</span> <a class="code" href="../../de/df1/util_8c.html#a9c3e0e30da9c15a129375aa7cc61e818">rv_alloc</a>(<span class="keywordtype">int</span> <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>)</div><div class="line"><a name="l02975"></a><span class="lineno"> 2975</span> {</div><div class="line"><a name="l02976"></a><span class="lineno"> 2976</span>  <span class="keywordflow">return</span> dtoa_result = <a class="code" href="../../d8/db0/defines_8h.html#a6af5faec3f9662b20ffc9903f923dec0">xmalloc</a>(<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>);</div><div class="line"><a name="l02977"></a><span class="lineno"> 2977</span> }</div><div class="line"><a name="l02978"></a><span class="lineno"> 2978</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02979"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9c3e0e30da9c15a129375aa7cc61e818"> 2979</a></span> <span class="preprocessor">#define rv_alloc(i) xmalloc(i)</span></div><div class="line"><a name="l02980"></a><span class="lineno"> 2980</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02981"></a><span class="lineno"> 2981</span> </div><div class="line"><a name="l02982"></a><span class="lineno"> 2982</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l02983"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a2093e4ecafa835f761719259cdd394ed"> 2983</a></span> <a class="code" href="../../de/df1/util_8c.html#a2093e4ecafa835f761719259cdd394ed">nrv_alloc</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *s, <span class="keywordtype">char</span> **rve, <span class="keywordtype">size_t</span> n)</div><div class="line"><a name="l02984"></a><span class="lineno"> 2984</span> {</div><div class="line"><a name="l02985"></a><span class="lineno"> 2985</span>  <span class="keywordtype">char</span> *rv, *t;</div><div class="line"><a name="l02986"></a><span class="lineno"> 2986</span> </div><div class="line"><a name="l02987"></a><span class="lineno"> 2987</span>  t = rv = <a class="code" href="../../de/df1/util_8c.html#a9c3e0e30da9c15a129375aa7cc61e818">rv_alloc</a>(n);</div><div class="line"><a name="l02988"></a><span class="lineno"> 2988</span>  <span class="keywordflow">while</span> ((*t = *s++) != 0) t++;</div><div class="line"><a name="l02989"></a><span class="lineno"> 2989</span>  <span class="keywordflow">if</span> (rve)</div><div class="line"><a name="l02990"></a><span class="lineno"> 2990</span>  *rve = t;</div><div class="line"><a name="l02991"></a><span class="lineno"> 2991</span>  <span class="keywordflow">return</span> rv;</div><div class="line"><a name="l02992"></a><span class="lineno"> 2992</span> }</div><div class="line"><a name="l02993"></a><span class="lineno"> 2993</span> </div><div class="line"><a name="l02994"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a"> 2994</a></span> <span class="preprocessor">#define rv_strdup(s, rve) nrv_alloc((s), (rve), strlen(s)+1)</span></div><div class="line"><a name="l02995"></a><span class="lineno"> 2995</span> </div><div class="line"><a name="l02996"></a><span class="lineno"> 2996</span> <span class="preprocessor">#ifndef MULTIPLE_THREADS</span></div><div class="line"><a name="l02997"></a><span class="lineno"> 2997</span> <span class="comment">/* freedtoa(s) must be used to free values s returned by dtoa</span></div><div class="line"><a name="l02998"></a><span class="lineno"> 2998</span> <span class="comment"> * when MULTIPLE_THREADS is #defined. It should be used in all cases,</span></div><div class="line"><a name="l02999"></a><span class="lineno"> 2999</span> <span class="comment"> * but for consistency with earlier versions of dtoa, it is optional</span></div><div class="line"><a name="l03000"></a><span class="lineno"> 3000</span> <span class="comment"> * when MULTIPLE_THREADS is not defined.</span></div><div class="line"><a name="l03001"></a><span class="lineno"> 3001</span> <span class="comment"> */</span></div><div class="line"><a name="l03002"></a><span class="lineno"> 3002</span> </div><div class="line"><a name="l03003"></a><span class="lineno"> 3003</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l03004"></a><span class="lineno"> 3004</span> freedtoa(<span class="keywordtype">char</span> *s)</div><div class="line"><a name="l03005"></a><span class="lineno"> 3005</span> {</div><div class="line"><a name="l03006"></a><span class="lineno"> 3006</span>  <a class="code" href="../../d8/db0/defines_8h.html#afca9b96f6a61eebbcdd7e6b3fc31ed97">xfree</a>(s);</div><div class="line"><a name="l03007"></a><span class="lineno"> 3007</span> }</div><div class="line"><a name="l03008"></a><span class="lineno"> 3008</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03009"></a><span class="lineno"> 3009</span> </div><div class="line"><a name="l03010"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a6d1975babb320c6088539b603b6d5d95"> 3010</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> <a class="code" href="../../de/df1/util_8c.html#a6d1975babb320c6088539b603b6d5d95">INFSTR</a>[] = <span class="stringliteral">"Infinity"</span>;</div><div class="line"><a name="l03011"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ab3239bcfc1383570ccf538974d7b7e86"> 3011</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> <a class="code" href="../../de/df1/util_8c.html#ab3239bcfc1383570ccf538974d7b7e86">NANSTR</a>[] = <span class="stringliteral">"NaN"</span>;</div><div class="line"><a name="l03012"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aadbad9fa5d0ffc6347c5d1e0d59eefa9"> 3012</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> <a class="code" href="../../de/df1/util_8c.html#aadbad9fa5d0ffc6347c5d1e0d59eefa9">ZEROSTR</a>[] = <span class="stringliteral">"0"</span>;</div><div class="line"><a name="l03013"></a><span class="lineno"> 3013</span> </div><div class="line"><a name="l03014"></a><span class="lineno"> 3014</span> <span class="comment">/* dtoa for IEEE arithmetic (dmg): convert double to ASCII string.</span></div><div class="line"><a name="l03015"></a><span class="lineno"> 3015</span> <span class="comment"> *</span></div><div class="line"><a name="l03016"></a><span class="lineno"> 3016</span> <span class="comment"> * Inspired by "How to Print Floating-Point Numbers Accurately" by</span></div><div class="line"><a name="l03017"></a><span class="lineno"> 3017</span> <span class="comment"> * Guy L. Steele, Jr. and Jon L. White [Proc. ACM SIGPLAN '90, pp. 112-126].</span></div><div class="line"><a name="l03018"></a><span class="lineno"> 3018</span> <span class="comment"> *</span></div><div class="line"><a name="l03019"></a><span class="lineno"> 3019</span> <span class="comment"> * Modifications:</span></div><div class="line"><a name="l03020"></a><span class="lineno"> 3020</span> <span class="comment"> * 1. Rather than iterating, we use a simple numeric overestimate</span></div><div class="line"><a name="l03021"></a><span class="lineno"> 3021</span> <span class="comment"> * to determine k = floor(log10(d)). We scale relevant</span></div><div class="line"><a name="l03022"></a><span class="lineno"> 3022</span> <span class="comment"> * quantities using O(log2(k)) rather than O(k) multiplications.</span></div><div class="line"><a name="l03023"></a><span class="lineno"> 3023</span> <span class="comment"> * 2. For some modes > 2 (corresponding to ecvt and fcvt), we don't</span></div><div class="line"><a name="l03024"></a><span class="lineno"> 3024</span> <span class="comment"> * try to generate digits strictly left to right. Instead, we</span></div><div class="line"><a name="l03025"></a><span class="lineno"> 3025</span> <span class="comment"> * compute with fewer bits and propagate the carry if necessary</span></div><div class="line"><a name="l03026"></a><span class="lineno"> 3026</span> <span class="comment"> * when rounding the final digit up. This is often faster.</span></div><div class="line"><a name="l03027"></a><span class="lineno"> 3027</span> <span class="comment"> * 3. Under the assumption that input will be rounded nearest,</span></div><div class="line"><a name="l03028"></a><span class="lineno"> 3028</span> <span class="comment"> * mode 0 renders 1e23 as 1e23 rather than 9.999999999999999e22.</span></div><div class="line"><a name="l03029"></a><span class="lineno"> 3029</span> <span class="comment"> * That is, we allow equality in stopping tests when the</span></div><div class="line"><a name="l03030"></a><span class="lineno"> 3030</span> <span class="comment"> * round-nearest rule will give the same floating-point value</span></div><div class="line"><a name="l03031"></a><span class="lineno"> 3031</span> <span class="comment"> * as would satisfaction of the stopping test with strict</span></div><div class="line"><a name="l03032"></a><span class="lineno"> 3032</span> <span class="comment"> * inequality.</span></div><div class="line"><a name="l03033"></a><span class="lineno"> 3033</span> <span class="comment"> * 4. We remove common factors of powers of 2 from relevant</span></div><div class="line"><a name="l03034"></a><span class="lineno"> 3034</span> <span class="comment"> * quantities.</span></div><div class="line"><a name="l03035"></a><span class="lineno"> 3035</span> <span class="comment"> * 5. When converting floating-point integers less than 1e16,</span></div><div class="line"><a name="l03036"></a><span class="lineno"> 3036</span> <span class="comment"> * we use floating-point arithmetic rather than resorting</span></div><div class="line"><a name="l03037"></a><span class="lineno"> 3037</span> <span class="comment"> * to multiple-precision integers.</span></div><div class="line"><a name="l03038"></a><span class="lineno"> 3038</span> <span class="comment"> * 6. When asked to produce fewer than 15 digits, we first try</span></div><div class="line"><a name="l03039"></a><span class="lineno"> 3039</span> <span class="comment"> * to get by with floating-point arithmetic; we resort to</span></div><div class="line"><a name="l03040"></a><span class="lineno"> 3040</span> <span class="comment"> * multiple-precision integer arithmetic only if we cannot</span></div><div class="line"><a name="l03041"></a><span class="lineno"> 3041</span> <span class="comment"> * guarantee that the floating-point calculation has given</span></div><div class="line"><a name="l03042"></a><span class="lineno"> 3042</span> <span class="comment"> * the correctly rounded result. For k requested digits and</span></div><div class="line"><a name="l03043"></a><span class="lineno"> 3043</span> <span class="comment"> * "uniformly" distributed input, the probability is</span></div><div class="line"><a name="l03044"></a><span class="lineno"> 3044</span> <span class="comment"> * something like 10^(k-15) that we must resort to the Long</span></div><div class="line"><a name="l03045"></a><span class="lineno"> 3045</span> <span class="comment"> * calculation.</span></div><div class="line"><a name="l03046"></a><span class="lineno"> 3046</span> <span class="comment"> */</span></div><div class="line"><a name="l03047"></a><span class="lineno"> 3047</span> </div><div class="line"><a name="l03048"></a><span class="lineno"> 3048</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l03049"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a3bf5a51c49d4b7747d3ef14982c6b74e"> 3049</a></span> <a class="code" href="../../de/df1/util_8c.html#a3bf5a51c49d4b7747d3ef14982c6b74e">ruby_dtoa</a>(<span class="keywordtype">double</span> d_, <span class="keywordtype">int</span> mode, <span class="keywordtype">int</span> ndigits, <span class="keywordtype">int</span> *decpt, <span class="keywordtype">int</span> *<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>, <span class="keywordtype">char</span> **rve)</div><div class="line"><a name="l03050"></a><span class="lineno"> 3050</span> {</div><div class="line"><a name="l03051"></a><span class="lineno"> 3051</span>  <span class="comment">/* Arguments ndigits, decpt, sign are similar to those</span></div><div class="line"><a name="l03052"></a><span class="lineno"> 3052</span> <span class="comment"> of ecvt and fcvt; trailing zeros are suppressed from</span></div><div class="line"><a name="l03053"></a><span class="lineno"> 3053</span> <span class="comment"> the returned string. If not null, *rve is set to point</span></div><div class="line"><a name="l03054"></a><span class="lineno"> 3054</span> <span class="comment"> to the end of the return value. If d is +-Infinity or NaN,</span></div><div class="line"><a name="l03055"></a><span class="lineno"> 3055</span> <span class="comment"> then *decpt is set to 9999.</span></div><div class="line"><a name="l03056"></a><span class="lineno"> 3056</span> <span class="comment"></span></div><div class="line"><a name="l03057"></a><span class="lineno"> 3057</span> <span class="comment"> mode:</span></div><div class="line"><a name="l03058"></a><span class="lineno"> 3058</span> <span class="comment"> 0 ==> shortest string that yields d when read in</span></div><div class="line"><a name="l03059"></a><span class="lineno"> 3059</span> <span class="comment"> and rounded to nearest.</span></div><div class="line"><a name="l03060"></a><span class="lineno"> 3060</span> <span class="comment"> 1 ==> like 0, but with Steele & White stopping rule;</span></div><div class="line"><a name="l03061"></a><span class="lineno"> 3061</span> <span class="comment"> e.g. with IEEE P754 arithmetic , mode 0 gives</span></div><div class="line"><a name="l03062"></a><span class="lineno"> 3062</span> <span class="comment"> 1e23 whereas mode 1 gives 9.999999999999999e22.</span></div><div class="line"><a name="l03063"></a><span class="lineno"> 3063</span> <span class="comment"> 2 ==> max(1,ndigits) significant digits. This gives a</span></div><div class="line"><a name="l03064"></a><span class="lineno"> 3064</span> <span class="comment"> return value similar to that of ecvt, except</span></div><div class="line"><a name="l03065"></a><span class="lineno"> 3065</span> <span class="comment"> that trailing zeros are suppressed.</span></div><div class="line"><a name="l03066"></a><span class="lineno"> 3066</span> <span class="comment"> 3 ==> through ndigits past the decimal point. This</span></div><div class="line"><a name="l03067"></a><span class="lineno"> 3067</span> <span class="comment"> gives a return value similar to that from fcvt,</span></div><div class="line"><a name="l03068"></a><span class="lineno"> 3068</span> <span class="comment"> except that trailing zeros are suppressed, and</span></div><div class="line"><a name="l03069"></a><span class="lineno"> 3069</span> <span class="comment"> ndigits can be negative.</span></div><div class="line"><a name="l03070"></a><span class="lineno"> 3070</span> <span class="comment"> 4,5 ==> similar to 2 and 3, respectively, but (in</span></div><div class="line"><a name="l03071"></a><span class="lineno"> 3071</span> <span class="comment"> round-nearest mode) with the tests of mode 0 to</span></div><div class="line"><a name="l03072"></a><span class="lineno"> 3072</span> <span class="comment"> possibly return a shorter string that rounds to d.</span></div><div class="line"><a name="l03073"></a><span class="lineno"> 3073</span> <span class="comment"> With IEEE arithmetic and compilation with</span></div><div class="line"><a name="l03074"></a><span class="lineno"> 3074</span> <span class="comment"> -DHonor_FLT_ROUNDS, modes 4 and 5 behave the same</span></div><div class="line"><a name="l03075"></a><span class="lineno"> 3075</span> <span class="comment"> as modes 2 and 3 when FLT_ROUNDS != 1.</span></div><div class="line"><a name="l03076"></a><span class="lineno"> 3076</span> <span class="comment"> 6-9 ==> Debugging modes similar to mode - 4: don't try</span></div><div class="line"><a name="l03077"></a><span class="lineno"> 3077</span> <span class="comment"> fast floating-point estimate (if applicable).</span></div><div class="line"><a name="l03078"></a><span class="lineno"> 3078</span> <span class="comment"></span></div><div class="line"><a name="l03079"></a><span class="lineno"> 3079</span> <span class="comment"> Values of mode other than 0-9 are treated as mode 0.</span></div><div class="line"><a name="l03080"></a><span class="lineno"> 3080</span> <span class="comment"></span></div><div class="line"><a name="l03081"></a><span class="lineno"> 3081</span> <span class="comment"> Sufficient space is allocated to the return value</span></div><div class="line"><a name="l03082"></a><span class="lineno"> 3082</span> <span class="comment"> to hold the suppressed trailing zeros.</span></div><div class="line"><a name="l03083"></a><span class="lineno"> 3083</span> <span class="comment"> */</span></div><div class="line"><a name="l03084"></a><span class="lineno"> 3084</span> </div><div class="line"><a name="l03085"></a><span class="lineno"> 3085</span>  <span class="keywordtype">int</span> bbits, b2, b5, be, dig, <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, ieps, ilim, ilim0, ilim1,</div><div class="line"><a name="l03086"></a><span class="lineno"> 3086</span>  j, j1, <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>, k0, k_check, leftright, m2, m5, s2, s5,</div><div class="line"><a name="l03087"></a><span class="lineno"> 3087</span>  spec_case, try_quick;</div><div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>  Long L;</div><div class="line"><a name="l03089"></a><span class="lineno"> 3089</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l03090"></a><span class="lineno"> 3090</span>  <span class="keywordtype">int</span> denorm;</div><div class="line"><a name="l03091"></a><span class="lineno"> 3091</span>  ULong <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l03092"></a><span class="lineno"> 3092</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03093"></a><span class="lineno"> 3093</span>  <a class="code" href="../../df/d49/struct_bigint.html">Bigint</a> *b, *b1, *delta, *mlo = 0, *mhi = 0, *<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>;</div><div class="line"><a name="l03094"></a><span class="lineno"> 3094</span>  <span class="keywordtype">double</span> ds;</div><div class="line"><a name="l03095"></a><span class="lineno"> 3095</span>  <a class="code" href="../../d9/db2/union_u.html">double_u</a> d, d2, eps;</div><div class="line"><a name="l03096"></a><span class="lineno"> 3096</span>  <span class="keywordtype">char</span> *s, *s0;</div><div class="line"><a name="l03097"></a><span class="lineno"> 3097</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03098"></a><span class="lineno"> 3098</span>  <span class="keywordtype">int</span> rounding;</div><div class="line"><a name="l03099"></a><span class="lineno"> 3099</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03100"></a><span class="lineno"> 3100</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>  <span class="keywordtype">int</span> inexact, oldinexact;</div><div class="line"><a name="l03102"></a><span class="lineno"> 3102</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03103"></a><span class="lineno"> 3103</span> </div><div class="line"><a name="l03104"></a><span class="lineno"> 3104</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) = d_;</div><div class="line"><a name="l03105"></a><span class="lineno"> 3105</span> </div><div class="line"><a name="l03106"></a><span class="lineno"> 3106</span> <span class="preprocessor">#ifndef MULTIPLE_THREADS</span></div><div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>  <span class="keywordflow">if</span> (dtoa_result) {</div><div class="line"><a name="l03108"></a><span class="lineno"> 3108</span>  freedtoa(dtoa_result);</div><div class="line"><a name="l03109"></a><span class="lineno"> 3109</span>  dtoa_result = 0;</div><div class="line"><a name="l03110"></a><span class="lineno"> 3110</span>  }</div><div class="line"><a name="l03111"></a><span class="lineno"> 3111</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03112"></a><span class="lineno"> 3112</span> </div><div class="line"><a name="l03113"></a><span class="lineno"> 3113</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) & <a class="code" href="../../de/df1/util_8c.html#a63c55d45c8c26a4d0c9d2d5c1afe5caa">Sign_bit</a>) {</div><div class="line"><a name="l03114"></a><span class="lineno"> 3114</span>  <span class="comment">/* set sign for everything, including 0's and NaNs */</span></div><div class="line"><a name="l03115"></a><span class="lineno"> 3115</span>  *<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 1;</div><div class="line"><a name="l03116"></a><span class="lineno"> 3116</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) &= ~<a class="code" href="../../de/df1/util_8c.html#a63c55d45c8c26a4d0c9d2d5c1afe5caa">Sign_bit</a>; <span class="comment">/* clear sign bit */</span></div><div class="line"><a name="l03117"></a><span class="lineno"> 3117</span>  }</div><div class="line"><a name="l03118"></a><span class="lineno"> 3118</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l03119"></a><span class="lineno"> 3119</span>  *<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l03120"></a><span class="lineno"> 3120</span> </div><div class="line"><a name="l03121"></a><span class="lineno"> 3121</span> <span class="preprocessor">#if defined(IEEE_Arith) + defined(VAX)</span></div><div class="line"><a name="l03122"></a><span class="lineno"> 3122</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l03123"></a><span class="lineno"> 3123</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) & <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>) == <a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>)</div><div class="line"><a name="l03124"></a><span class="lineno"> 3124</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03125"></a><span class="lineno"> 3125</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) == 0x8000)</div><div class="line"><a name="l03126"></a><span class="lineno"> 3126</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03127"></a><span class="lineno"> 3127</span>  {</div><div class="line"><a name="l03128"></a><span class="lineno"> 3128</span>  <span class="comment">/* Infinity or NaN */</span></div><div class="line"><a name="l03129"></a><span class="lineno"> 3129</span>  *decpt = 9999;</div><div class="line"><a name="l03130"></a><span class="lineno"> 3130</span> <span class="preprocessor">#ifdef IEEE_Arith</span></div><div class="line"><a name="l03131"></a><span class="lineno"> 3131</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) && !(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) & 0xfffff))</div><div class="line"><a name="l03132"></a><span class="lineno"> 3132</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a>(<a class="code" href="../../de/df1/util_8c.html#a6d1975babb320c6088539b603b6d5d95">INFSTR</a>, rve);</div><div class="line"><a name="l03133"></a><span class="lineno"> 3133</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03134"></a><span class="lineno"> 3134</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a>(<a class="code" href="../../de/df1/util_8c.html#ab3239bcfc1383570ccf538974d7b7e86">NANSTR</a>, rve);</div><div class="line"><a name="l03135"></a><span class="lineno"> 3135</span>  }</div><div class="line"><a name="l03136"></a><span class="lineno"> 3136</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03137"></a><span class="lineno"> 3137</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l03138"></a><span class="lineno"> 3138</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) += 0; <span class="comment">/* normalize */</span></div><div class="line"><a name="l03139"></a><span class="lineno"> 3139</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03140"></a><span class="lineno"> 3140</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d)) {</div><div class="line"><a name="l03141"></a><span class="lineno"> 3141</span>  *decpt = 1;</div><div class="line"><a name="l03142"></a><span class="lineno"> 3142</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a>(<a class="code" href="../../de/df1/util_8c.html#aadbad9fa5d0ffc6347c5d1e0d59eefa9">ZEROSTR</a>, rve);</div><div class="line"><a name="l03143"></a><span class="lineno"> 3143</span>  }</div><div class="line"><a name="l03144"></a><span class="lineno"> 3144</span> </div><div class="line"><a name="l03145"></a><span class="lineno"> 3145</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03146"></a><span class="lineno"> 3146</span>  try_quick = oldinexact = get_inexact();</div><div class="line"><a name="l03147"></a><span class="lineno"> 3147</span>  inexact = 1;</div><div class="line"><a name="l03148"></a><span class="lineno"> 3148</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03149"></a><span class="lineno"> 3149</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03150"></a><span class="lineno"> 3150</span>  <span class="keywordflow">if</span> ((rounding = <a class="code" href="../../de/df1/util_8c.html#a99e35e070982190437423aa4c0dfc963">Flt_Rounds</a>) >= 2) {</div><div class="line"><a name="l03151"></a><span class="lineno"> 3151</span>  <span class="keywordflow">if</span> (*<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>)</div><div class="line"><a name="l03152"></a><span class="lineno"> 3152</span>  rounding = rounding == 2 ? 0 : 2;</div><div class="line"><a name="l03153"></a><span class="lineno"> 3153</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l03154"></a><span class="lineno"> 3154</span>  <span class="keywordflow">if</span> (rounding != 2)</div><div class="line"><a name="l03155"></a><span class="lineno"> 3155</span>  rounding = 0;</div><div class="line"><a name="l03156"></a><span class="lineno"> 3156</span>  }</div><div class="line"><a name="l03157"></a><span class="lineno"> 3157</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03158"></a><span class="lineno"> 3158</span> </div><div class="line"><a name="l03159"></a><span class="lineno"> 3159</span>  b = <a class="code" href="../../de/df1/util_8c.html#a2a8c76789579ca99ff38f31fa59d9fb9">d2b</a>(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d), &be, &bbits);</div><div class="line"><a name="l03160"></a><span class="lineno"> 3160</span> <span class="preprocessor">#ifdef Sudden_Underflow</span></div><div class="line"><a name="l03161"></a><span class="lineno"> 3161</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = (int)(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) >> <a class="code" href="../../de/df1/util_8c.html#ab48843da1ee5cd92ff22ff6f85c87d0b">Exp_shift1</a> & (<a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>>><a class="code" href="../../de/df1/util_8c.html#ab48843da1ee5cd92ff22ff6f85c87d0b">Exp_shift1</a>));</div><div class="line"><a name="l03162"></a><span class="lineno"> 3162</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03163"></a><span class="lineno"> 3163</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = (<span class="keywordtype">int</span>)(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) >> <a class="code" href="../../de/df1/util_8c.html#ab48843da1ee5cd92ff22ff6f85c87d0b">Exp_shift1</a> & (<a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a>>><a class="code" href="../../de/df1/util_8c.html#ab48843da1ee5cd92ff22ff6f85c87d0b">Exp_shift1</a>))) != 0) {</div><div class="line"><a name="l03164"></a><span class="lineno"> 3164</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03165"></a><span class="lineno"> 3165</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d2) = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d);</div><div class="line"><a name="l03166"></a><span class="lineno"> 3166</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d2) &= <a class="code" href="../../de/df1/util_8c.html#a43ee899575a77aa4154e188c522e7875">Frac_mask1</a>;</div><div class="line"><a name="l03167"></a><span class="lineno"> 3167</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d2) |= <a class="code" href="../../de/df1/util_8c.html#af184552d63b7337750b0fe90e478a3b1">Exp_11</a>;</div><div class="line"><a name="l03168"></a><span class="lineno"> 3168</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l03169"></a><span class="lineno"> 3169</span>  <span class="keywordflow">if</span> (j = 11 - <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d2) & <a class="code" href="../../de/df1/util_8c.html#a3e6dc09a955126ee74b3870ac287e370">Frac_mask</a>))</div><div class="line"><a name="l03170"></a><span class="lineno"> 3170</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d2) /= 1 << j;</div><div class="line"><a name="l03171"></a><span class="lineno"> 3171</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03172"></a><span class="lineno"> 3172</span> </div><div class="line"><a name="l03173"></a><span class="lineno"> 3173</span>  <span class="comment">/* log(x) ~=~ log(1.5) + (x-1.5)/1.5</span></div><div class="line"><a name="l03174"></a><span class="lineno"> 3174</span> <span class="comment"> * log10(x) = log(x) / log(10)</span></div><div class="line"><a name="l03175"></a><span class="lineno"> 3175</span> <span class="comment"> * ~=~ log(1.5)/log(10) + (x-1.5)/(1.5*log(10))</span></div><div class="line"><a name="l03176"></a><span class="lineno"> 3176</span> <span class="comment"> * log10(d) = (i-Bias)*log(2)/log(10) + log10(d2)</span></div><div class="line"><a name="l03177"></a><span class="lineno"> 3177</span> <span class="comment"> *</span></div><div class="line"><a name="l03178"></a><span class="lineno"> 3178</span> <span class="comment"> * This suggests computing an approximation k to log10(d) by</span></div><div class="line"><a name="l03179"></a><span class="lineno"> 3179</span> <span class="comment"> *</span></div><div class="line"><a name="l03180"></a><span class="lineno"> 3180</span> <span class="comment"> * k = (i - Bias)*0.301029995663981</span></div><div class="line"><a name="l03181"></a><span class="lineno"> 3181</span> <span class="comment"> * + ( (d2-1.5)*0.289529654602168 + 0.176091259055681 );</span></div><div class="line"><a name="l03182"></a><span class="lineno"> 3182</span> <span class="comment"> *</span></div><div class="line"><a name="l03183"></a><span class="lineno"> 3183</span> <span class="comment"> * We want k to be too large rather than too small.</span></div><div class="line"><a name="l03184"></a><span class="lineno"> 3184</span> <span class="comment"> * The error in the first-order Taylor series approximation</span></div><div class="line"><a name="l03185"></a><span class="lineno"> 3185</span> <span class="comment"> * is in our favor, so we just round up the constant enough</span></div><div class="line"><a name="l03186"></a><span class="lineno"> 3186</span> <span class="comment"> * to compensate for any error in the multiplication of</span></div><div class="line"><a name="l03187"></a><span class="lineno"> 3187</span> <span class="comment"> * (i - Bias) by 0.301029995663981; since |i - Bias| <= 1077,</span></div><div class="line"><a name="l03188"></a><span class="lineno"> 3188</span> <span class="comment"> * and 1077 * 0.30103 * 2^-52 ~=~ 7.2e-14,</span></div><div class="line"><a name="l03189"></a><span class="lineno"> 3189</span> <span class="comment"> * adding 1e-13 to the constant term more than suffices.</span></div><div class="line"><a name="l03190"></a><span class="lineno"> 3190</span> <span class="comment"> * Hence we adjust the constant term to 0.1760912590558.</span></div><div class="line"><a name="l03191"></a><span class="lineno"> 3191</span> <span class="comment"> * (We could get a more accurate k by invoking log10,</span></div><div class="line"><a name="l03192"></a><span class="lineno"> 3192</span> <span class="comment"> * but this is probably not worthwhile.)</span></div><div class="line"><a name="l03193"></a><span class="lineno"> 3193</span> <span class="comment"> */</span></div><div class="line"><a name="l03194"></a><span class="lineno"> 3194</span> </div><div class="line"><a name="l03195"></a><span class="lineno"> 3195</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> -= <a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a>;</div><div class="line"><a name="l03196"></a><span class="lineno"> 3196</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l03197"></a><span class="lineno"> 3197</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> <<= 2;</div><div class="line"><a name="l03198"></a><span class="lineno"> 3198</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> += j;</div><div class="line"><a name="l03199"></a><span class="lineno"> 3199</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03200"></a><span class="lineno"> 3200</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l03201"></a><span class="lineno"> 3201</span>  denorm = 0;</div><div class="line"><a name="l03202"></a><span class="lineno"> 3202</span>  }</div><div class="line"><a name="l03203"></a><span class="lineno"> 3203</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03204"></a><span class="lineno"> 3204</span>  <span class="comment">/* d is denormalized */</span></div><div class="line"><a name="l03205"></a><span class="lineno"> 3205</span> </div><div class="line"><a name="l03206"></a><span class="lineno"> 3206</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = bbits + be + (<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a> + (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1) - 1);</div><div class="line"><a name="l03207"></a><span class="lineno"> 3207</span>  <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a> = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> > 32 ? <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) << (64 - <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) | <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) >> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> - 32)</div><div class="line"><a name="l03208"></a><span class="lineno"> 3208</span>  : <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) << (32 - <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>);</div><div class="line"><a name="l03209"></a><span class="lineno"> 3209</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d2) = <a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>;</div><div class="line"><a name="l03210"></a><span class="lineno"> 3210</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d2) -= 31*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>; <span class="comment">/* adjust exponent */</span></div><div class="line"><a name="l03211"></a><span class="lineno"> 3211</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> -= (<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a> + (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1) - 1) + 1;</div><div class="line"><a name="l03212"></a><span class="lineno"> 3212</span>  denorm = 1;</div><div class="line"><a name="l03213"></a><span class="lineno"> 3213</span>  }</div><div class="line"><a name="l03214"></a><span class="lineno"> 3214</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03215"></a><span class="lineno"> 3215</span>  ds = (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d2)-1.5)*0.289529654602168 + 0.1760912590558 + <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>*0.301029995663981;</div><div class="line"><a name="l03216"></a><span class="lineno"> 3216</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = (int)ds;</div><div class="line"><a name="l03217"></a><span class="lineno"> 3217</span>  <span class="keywordflow">if</span> (ds < 0. && ds != <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>)</div><div class="line"><a name="l03218"></a><span class="lineno"> 3218</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>--; <span class="comment">/* want k = floor(ds) */</span></div><div class="line"><a name="l03219"></a><span class="lineno"> 3219</span>  k_check = 1;</div><div class="line"><a name="l03220"></a><span class="lineno"> 3220</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >= 0 && <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> <= <a class="code" href="../../de/df1/util_8c.html#a60c21efe38979482c071108abd8431d0">Ten_pmax</a>) {</div><div class="line"><a name="l03221"></a><span class="lineno"> 3221</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>])</div><div class="line"><a name="l03222"></a><span class="lineno"> 3222</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>--;</div><div class="line"><a name="l03223"></a><span class="lineno"> 3223</span>  k_check = 0;</div><div class="line"><a name="l03224"></a><span class="lineno"> 3224</span>  }</div><div class="line"><a name="l03225"></a><span class="lineno"> 3225</span>  j = bbits - <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> - 1;</div><div class="line"><a name="l03226"></a><span class="lineno"> 3226</span>  <span class="keywordflow">if</span> (j >= 0) {</div><div class="line"><a name="l03227"></a><span class="lineno"> 3227</span>  b2 = 0;</div><div class="line"><a name="l03228"></a><span class="lineno"> 3228</span>  s2 = j;</div><div class="line"><a name="l03229"></a><span class="lineno"> 3229</span>  }</div><div class="line"><a name="l03230"></a><span class="lineno"> 3230</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03231"></a><span class="lineno"> 3231</span>  b2 = -j;</div><div class="line"><a name="l03232"></a><span class="lineno"> 3232</span>  s2 = 0;</div><div class="line"><a name="l03233"></a><span class="lineno"> 3233</span>  }</div><div class="line"><a name="l03234"></a><span class="lineno"> 3234</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >= 0) {</div><div class="line"><a name="l03235"></a><span class="lineno"> 3235</span>  b5 = 0;</div><div class="line"><a name="l03236"></a><span class="lineno"> 3236</span>  s5 = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l03237"></a><span class="lineno"> 3237</span>  s2 += <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l03238"></a><span class="lineno"> 3238</span>  }</div><div class="line"><a name="l03239"></a><span class="lineno"> 3239</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03240"></a><span class="lineno"> 3240</span>  b2 -= <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l03241"></a><span class="lineno"> 3241</span>  b5 = -<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l03242"></a><span class="lineno"> 3242</span>  s5 = 0;</div><div class="line"><a name="l03243"></a><span class="lineno"> 3243</span>  }</div><div class="line"><a name="l03244"></a><span class="lineno"> 3244</span>  <span class="keywordflow">if</span> (mode < 0 || mode > 9)</div><div class="line"><a name="l03245"></a><span class="lineno"> 3245</span>  mode = 0;</div><div class="line"><a name="l03246"></a><span class="lineno"> 3246</span> </div><div class="line"><a name="l03247"></a><span class="lineno"> 3247</span> <span class="preprocessor">#ifndef SET_INEXACT</span></div><div class="line"><a name="l03248"></a><span class="lineno"> 3248</span> <span class="preprocessor">#ifdef Check_FLT_ROUNDS</span></div><div class="line"><a name="l03249"></a><span class="lineno"> 3249</span>  try_quick = <a class="code" href="../../de/df1/util_8c.html#ab925efe1cb96e8cfb4c70b5fcb7cbfbb">Rounding</a> == 1;</div><div class="line"><a name="l03250"></a><span class="lineno"> 3250</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03251"></a><span class="lineno"> 3251</span>  try_quick = 1;</div><div class="line"><a name="l03252"></a><span class="lineno"> 3252</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03253"></a><span class="lineno"> 3253</span> <span class="preprocessor">#endif </span><span class="comment">/*SET_INEXACT*/</span><span class="preprocessor"></span></div><div class="line"><a name="l03254"></a><span class="lineno"> 3254</span> </div><div class="line"><a name="l03255"></a><span class="lineno"> 3255</span>  <span class="keywordflow">if</span> (mode > 5) {</div><div class="line"><a name="l03256"></a><span class="lineno"> 3256</span>  mode -= 4;</div><div class="line"><a name="l03257"></a><span class="lineno"> 3257</span>  try_quick = 0;</div><div class="line"><a name="l03258"></a><span class="lineno"> 3258</span>  }</div><div class="line"><a name="l03259"></a><span class="lineno"> 3259</span>  leftright = 1;</div><div class="line"><a name="l03260"></a><span class="lineno"> 3260</span>  ilim = ilim1 = -1;</div><div class="line"><a name="l03261"></a><span class="lineno"> 3261</span>  <span class="keywordflow">switch</span> (mode) {</div><div class="line"><a name="l03262"></a><span class="lineno"> 3262</span>  <span class="keywordflow">case</span> 0:</div><div class="line"><a name="l03263"></a><span class="lineno"> 3263</span>  <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l03264"></a><span class="lineno"> 3264</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 18;</div><div class="line"><a name="l03265"></a><span class="lineno"> 3265</span>  ndigits = 0;</div><div class="line"><a name="l03266"></a><span class="lineno"> 3266</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03267"></a><span class="lineno"> 3267</span>  <span class="keywordflow">case</span> 2:</div><div class="line"><a name="l03268"></a><span class="lineno"> 3268</span>  leftright = 0;</div><div class="line"><a name="l03269"></a><span class="lineno"> 3269</span>  <span class="comment">/* no break */</span></div><div class="line"><a name="l03270"></a><span class="lineno"> 3270</span>  <span class="keywordflow">case</span> 4:</div><div class="line"><a name="l03271"></a><span class="lineno"> 3271</span>  <span class="keywordflow">if</span> (ndigits <= 0)</div><div class="line"><a name="l03272"></a><span class="lineno"> 3272</span>  ndigits = 1;</div><div class="line"><a name="l03273"></a><span class="lineno"> 3273</span>  ilim = ilim1 = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = ndigits;</div><div class="line"><a name="l03274"></a><span class="lineno"> 3274</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03275"></a><span class="lineno"> 3275</span>  <span class="keywordflow">case</span> 3:</div><div class="line"><a name="l03276"></a><span class="lineno"> 3276</span>  leftright = 0;</div><div class="line"><a name="l03277"></a><span class="lineno"> 3277</span>  <span class="comment">/* no break */</span></div><div class="line"><a name="l03278"></a><span class="lineno"> 3278</span>  <span class="keywordflow">case</span> 5:</div><div class="line"><a name="l03279"></a><span class="lineno"> 3279</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = ndigits + <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> + 1;</div><div class="line"><a name="l03280"></a><span class="lineno"> 3280</span>  ilim = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03281"></a><span class="lineno"> 3281</span>  ilim1 = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> - 1;</div><div class="line"><a name="l03282"></a><span class="lineno"> 3282</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> <= 0)</div><div class="line"><a name="l03283"></a><span class="lineno"> 3283</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;</div><div class="line"><a name="l03284"></a><span class="lineno"> 3284</span>  }</div><div class="line"><a name="l03285"></a><span class="lineno"> 3285</span>  s = s0 = <a class="code" href="../../de/df1/util_8c.html#a9c3e0e30da9c15a129375aa7cc61e818">rv_alloc</a>(<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>+1);</div><div class="line"><a name="l03286"></a><span class="lineno"> 3286</span> </div><div class="line"><a name="l03287"></a><span class="lineno"> 3287</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03288"></a><span class="lineno"> 3288</span>  <span class="keywordflow">if</span> (mode > 1 && rounding != 1)</div><div class="line"><a name="l03289"></a><span class="lineno"> 3289</span>  leftright = 0;</div><div class="line"><a name="l03290"></a><span class="lineno"> 3290</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03291"></a><span class="lineno"> 3291</span> </div><div class="line"><a name="l03292"></a><span class="lineno"> 3292</span>  <span class="keywordflow">if</span> (ilim >= 0 && ilim <= <a class="code" href="../../de/df1/util_8c.html#a4a1aa87d88576b92517b427bb7e09e21">Quick_max</a> && try_quick) {</div><div class="line"><a name="l03293"></a><span class="lineno"> 3293</span> </div><div class="line"><a name="l03294"></a><span class="lineno"> 3294</span>  <span class="comment">/* Try to get by with floating-point arithmetic. */</span></div><div class="line"><a name="l03295"></a><span class="lineno"> 3295</span> </div><div class="line"><a name="l03296"></a><span class="lineno"> 3296</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 0;</div><div class="line"><a name="l03297"></a><span class="lineno"> 3297</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d2) = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d);</div><div class="line"><a name="l03298"></a><span class="lineno"> 3298</span>  k0 = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>;</div><div class="line"><a name="l03299"></a><span class="lineno"> 3299</span>  ilim0 = ilim;</div><div class="line"><a name="l03300"></a><span class="lineno"> 3300</span>  ieps = 2; <span class="comment">/* conservative */</span></div><div class="line"><a name="l03301"></a><span class="lineno"> 3301</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> > 0) {</div><div class="line"><a name="l03302"></a><span class="lineno"> 3302</span>  ds = <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>&0xf];</div><div class="line"><a name="l03303"></a><span class="lineno"> 3303</span>  j = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> >> 4;</div><div class="line"><a name="l03304"></a><span class="lineno"> 3304</span>  <span class="keywordflow">if</span> (j & <a class="code" href="../../de/df1/util_8c.html#a7c80938abca604122c8f7afb66d59331">Bletch</a>) {</div><div class="line"><a name="l03305"></a><span class="lineno"> 3305</span>  <span class="comment">/* prevent overflows */</span></div><div class="line"><a name="l03306"></a><span class="lineno"> 3306</span>  j &= <a class="code" href="../../de/df1/util_8c.html#a7c80938abca604122c8f7afb66d59331">Bletch</a> - 1;</div><div class="line"><a name="l03307"></a><span class="lineno"> 3307</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) /= <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[<a class="code" href="../../de/df1/util_8c.html#a4fd98445d772ae9d9b92f1f23fb228a5">n_bigtens</a>-1];</div><div class="line"><a name="l03308"></a><span class="lineno"> 3308</span>  ieps++;</div><div class="line"><a name="l03309"></a><span class="lineno"> 3309</span>  }</div><div class="line"><a name="l03310"></a><span class="lineno"> 3310</span>  <span class="keywordflow">for</span> (; j; j >>= 1, <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++)</div><div class="line"><a name="l03311"></a><span class="lineno"> 3311</span>  <span class="keywordflow">if</span> (j & 1) {</div><div class="line"><a name="l03312"></a><span class="lineno"> 3312</span>  ieps++;</div><div class="line"><a name="l03313"></a><span class="lineno"> 3313</span>  ds *= <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div><div class="line"><a name="l03314"></a><span class="lineno"> 3314</span>  }</div><div class="line"><a name="l03315"></a><span class="lineno"> 3315</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) /= ds;</div><div class="line"><a name="l03316"></a><span class="lineno"> 3316</span>  }</div><div class="line"><a name="l03317"></a><span class="lineno"> 3317</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((j1 = -<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>) != 0) {</div><div class="line"><a name="l03318"></a><span class="lineno"> 3318</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) *= <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[j1 & 0xf];</div><div class="line"><a name="l03319"></a><span class="lineno"> 3319</span>  <span class="keywordflow">for</span> (j = j1 >> 4; j; j >>= 1, <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++)</div><div class="line"><a name="l03320"></a><span class="lineno"> 3320</span>  <span class="keywordflow">if</span> (j & 1) {</div><div class="line"><a name="l03321"></a><span class="lineno"> 3321</span>  ieps++;</div><div class="line"><a name="l03322"></a><span class="lineno"> 3322</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) *= <a class="code" href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a>[<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div><div class="line"><a name="l03323"></a><span class="lineno"> 3323</span>  }</div><div class="line"><a name="l03324"></a><span class="lineno"> 3324</span>  }</div><div class="line"><a name="l03325"></a><span class="lineno"> 3325</span>  <span class="keywordflow">if</span> (k_check && <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < 1. && ilim > 0) {</div><div class="line"><a name="l03326"></a><span class="lineno"> 3326</span>  <span class="keywordflow">if</span> (ilim1 <= 0)</div><div class="line"><a name="l03327"></a><span class="lineno"> 3327</span>  <span class="keywordflow">goto</span> fast_failed;</div><div class="line"><a name="l03328"></a><span class="lineno"> 3328</span>  ilim = ilim1;</div><div class="line"><a name="l03329"></a><span class="lineno"> 3329</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>--;</div><div class="line"><a name="l03330"></a><span class="lineno"> 3330</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) *= 10.;</div><div class="line"><a name="l03331"></a><span class="lineno"> 3331</span>  ieps++;</div><div class="line"><a name="l03332"></a><span class="lineno"> 3332</span>  }</div><div class="line"><a name="l03333"></a><span class="lineno"> 3333</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps) = ieps*<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) + 7.;</div><div class="line"><a name="l03334"></a><span class="lineno"> 3334</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(eps) -= (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1)*<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>;</div><div class="line"><a name="l03335"></a><span class="lineno"> 3335</span>  <span class="keywordflow">if</span> (ilim == 0) {</div><div class="line"><a name="l03336"></a><span class="lineno"> 3336</span>  <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a> = mhi = 0;</div><div class="line"><a name="l03337"></a><span class="lineno"> 3337</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) -= 5.;</div><div class="line"><a name="l03338"></a><span class="lineno"> 3338</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) > <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps))</div><div class="line"><a name="l03339"></a><span class="lineno"> 3339</span>  <span class="keywordflow">goto</span> one_digit;</div><div class="line"><a name="l03340"></a><span class="lineno"> 3340</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < -<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps))</div><div class="line"><a name="l03341"></a><span class="lineno"> 3341</span>  <span class="keywordflow">goto</span> <a class="code" href="../../d5/d11/ripper_8c.html#a4109fdcadec8be93f3e91500b5f46fe4">no_digits</a>;</div><div class="line"><a name="l03342"></a><span class="lineno"> 3342</span>  <span class="keywordflow">goto</span> fast_failed;</div><div class="line"><a name="l03343"></a><span class="lineno"> 3343</span>  }</div><div class="line"><a name="l03344"></a><span class="lineno"> 3344</span> <span class="preprocessor">#ifndef No_leftright</span></div><div class="line"><a name="l03345"></a><span class="lineno"> 3345</span>  <span class="keywordflow">if</span> (leftright) {</div><div class="line"><a name="l03346"></a><span class="lineno"> 3346</span>  <span class="comment">/* Use Steele & White method of only</span></div><div class="line"><a name="l03347"></a><span class="lineno"> 3347</span> <span class="comment"> * generating digits needed.</span></div><div class="line"><a name="l03348"></a><span class="lineno"> 3348</span> <span class="comment"> */</span></div><div class="line"><a name="l03349"></a><span class="lineno"> 3349</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps) = 0.5/<a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[ilim-1] - <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps);</div><div class="line"><a name="l03350"></a><span class="lineno"> 3350</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 0;;) {</div><div class="line"><a name="l03351"></a><span class="lineno"> 3351</span>  L = (int)<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d);</div><div class="line"><a name="l03352"></a><span class="lineno"> 3352</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) -= L;</div><div class="line"><a name="l03353"></a><span class="lineno"> 3353</span>  *s++ = <span class="charliteral">'0'</span> + (int)L;</div><div class="line"><a name="l03354"></a><span class="lineno"> 3354</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps))</div><div class="line"><a name="l03355"></a><span class="lineno"> 3355</span>  <span class="keywordflow">goto</span> ret1;</div><div class="line"><a name="l03356"></a><span class="lineno"> 3356</span>  <span class="keywordflow">if</span> (1. - <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps))</div><div class="line"><a name="l03357"></a><span class="lineno"> 3357</span>  <span class="keywordflow">goto</span> bump_up;</div><div class="line"><a name="l03358"></a><span class="lineno"> 3358</span>  <span class="keywordflow">if</span> (++<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> >= ilim)</div><div class="line"><a name="l03359"></a><span class="lineno"> 3359</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03360"></a><span class="lineno"> 3360</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps) *= 10.;</div><div class="line"><a name="l03361"></a><span class="lineno"> 3361</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) *= 10.;</div><div class="line"><a name="l03362"></a><span class="lineno"> 3362</span>  }</div><div class="line"><a name="l03363"></a><span class="lineno"> 3363</span>  }</div><div class="line"><a name="l03364"></a><span class="lineno"> 3364</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03365"></a><span class="lineno"> 3365</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03366"></a><span class="lineno"> 3366</span>  <span class="comment">/* Generate ilim digits, then fix them up. */</span></div><div class="line"><a name="l03367"></a><span class="lineno"> 3367</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps) *= <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[ilim-1];</div><div class="line"><a name="l03368"></a><span class="lineno"> 3368</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++, <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) *= 10.) {</div><div class="line"><a name="l03369"></a><span class="lineno"> 3369</span>  L = (Long)(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d));</div><div class="line"><a name="l03370"></a><span class="lineno"> 3370</span>  <span class="keywordflow">if</span> (!(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) -= L))</div><div class="line"><a name="l03371"></a><span class="lineno"> 3371</span>  ilim = <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03372"></a><span class="lineno"> 3372</span>  *s++ = <span class="charliteral">'0'</span> + (int)L;</div><div class="line"><a name="l03373"></a><span class="lineno"> 3373</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> == ilim) {</div><div class="line"><a name="l03374"></a><span class="lineno"> 3374</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) > 0.5 + <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps))</div><div class="line"><a name="l03375"></a><span class="lineno"> 3375</span>  <span class="keywordflow">goto</span> bump_up;</div><div class="line"><a name="l03376"></a><span class="lineno"> 3376</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < 0.5 - <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(eps)) {</div><div class="line"><a name="l03377"></a><span class="lineno"> 3377</span>  <span class="keywordflow">while</span> (*--s == <span class="charliteral">'0'</span>) ;</div><div class="line"><a name="l03378"></a><span class="lineno"> 3378</span>  s++;</div><div class="line"><a name="l03379"></a><span class="lineno"> 3379</span>  <span class="keywordflow">goto</span> ret1;</div><div class="line"><a name="l03380"></a><span class="lineno"> 3380</span>  }</div><div class="line"><a name="l03381"></a><span class="lineno"> 3381</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03382"></a><span class="lineno"> 3382</span>  }</div><div class="line"><a name="l03383"></a><span class="lineno"> 3383</span>  }</div><div class="line"><a name="l03384"></a><span class="lineno"> 3384</span> <span class="preprocessor">#ifndef No_leftright</span></div><div class="line"><a name="l03385"></a><span class="lineno"> 3385</span>  }</div><div class="line"><a name="l03386"></a><span class="lineno"> 3386</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03387"></a><span class="lineno"> 3387</span> fast_failed:</div><div class="line"><a name="l03388"></a><span class="lineno"> 3388</span>  s = s0;</div><div class="line"><a name="l03389"></a><span class="lineno"> 3389</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) = <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d2);</div><div class="line"><a name="l03390"></a><span class="lineno"> 3390</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = k0;</div><div class="line"><a name="l03391"></a><span class="lineno"> 3391</span>  ilim = ilim0;</div><div class="line"><a name="l03392"></a><span class="lineno"> 3392</span>  }</div><div class="line"><a name="l03393"></a><span class="lineno"> 3393</span> </div><div class="line"><a name="l03394"></a><span class="lineno"> 3394</span>  <span class="comment">/* Do we have a "small" integer? */</span></div><div class="line"><a name="l03395"></a><span class="lineno"> 3395</span> </div><div class="line"><a name="l03396"></a><span class="lineno"> 3396</span>  <span class="keywordflow">if</span> (be >= 0 && <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> <= <a class="code" href="../../de/df1/util_8c.html#af2bdae8b2a1a2c6cc68215ef219d2673">Int_max</a>) {</div><div class="line"><a name="l03397"></a><span class="lineno"> 3397</span>  <span class="comment">/* Yes. */</span></div><div class="line"><a name="l03398"></a><span class="lineno"> 3398</span>  ds = <a class="code" href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a>[<a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>];</div><div class="line"><a name="l03399"></a><span class="lineno"> 3399</span>  <span class="keywordflow">if</span> (ndigits < 0 && ilim <= 0) {</div><div class="line"><a name="l03400"></a><span class="lineno"> 3400</span>  <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a> = mhi = 0;</div><div class="line"><a name="l03401"></a><span class="lineno"> 3401</span>  <span class="keywordflow">if</span> (ilim < 0 || <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) <= 5*ds)</div><div class="line"><a name="l03402"></a><span class="lineno"> 3402</span>  <span class="keywordflow">goto</span> <a class="code" href="../../d5/d11/ripper_8c.html#a4109fdcadec8be93f3e91500b5f46fe4">no_digits</a>;</div><div class="line"><a name="l03403"></a><span class="lineno"> 3403</span>  <span class="keywordflow">goto</span> one_digit;</div><div class="line"><a name="l03404"></a><span class="lineno"> 3404</span>  }</div><div class="line"><a name="l03405"></a><span class="lineno"> 3405</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++, <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) *= 10.) {</div><div class="line"><a name="l03406"></a><span class="lineno"> 3406</span>  L = (Long)(<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) / ds);</div><div class="line"><a name="l03407"></a><span class="lineno"> 3407</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) -= L*ds;</div><div class="line"><a name="l03408"></a><span class="lineno"> 3408</span> <span class="preprocessor">#ifdef Check_FLT_ROUNDS</span></div><div class="line"><a name="l03409"></a><span class="lineno"> 3409</span>  <span class="comment">/* If FLT_ROUNDS == 2, L will usually be high by 1 */</span></div><div class="line"><a name="l03410"></a><span class="lineno"> 3410</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) < 0) {</div><div class="line"><a name="l03411"></a><span class="lineno"> 3411</span>  L--;</div><div class="line"><a name="l03412"></a><span class="lineno"> 3412</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) += ds;</div><div class="line"><a name="l03413"></a><span class="lineno"> 3413</span>  }</div><div class="line"><a name="l03414"></a><span class="lineno"> 3414</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03415"></a><span class="lineno"> 3415</span>  *s++ = <span class="charliteral">'0'</span> + (int)L;</div><div class="line"><a name="l03416"></a><span class="lineno"> 3416</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d)) {</div><div class="line"><a name="l03417"></a><span class="lineno"> 3417</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03418"></a><span class="lineno"> 3418</span>  inexact = 0;</div><div class="line"><a name="l03419"></a><span class="lineno"> 3419</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03420"></a><span class="lineno"> 3420</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03421"></a><span class="lineno"> 3421</span>  }</div><div class="line"><a name="l03422"></a><span class="lineno"> 3422</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> == ilim) {</div><div class="line"><a name="l03423"></a><span class="lineno"> 3423</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03424"></a><span class="lineno"> 3424</span>  <span class="keywordflow">if</span> (mode > 1)</div><div class="line"><a name="l03425"></a><span class="lineno"> 3425</span>  <span class="keywordflow">switch</span> (rounding) {</div><div class="line"><a name="l03426"></a><span class="lineno"> 3426</span>  <span class="keywordflow">case</span> 0: <span class="keywordflow">goto</span> ret1;</div><div class="line"><a name="l03427"></a><span class="lineno"> 3427</span>  <span class="keywordflow">case</span> 2: <span class="keywordflow">goto</span> bump_up;</div><div class="line"><a name="l03428"></a><span class="lineno"> 3428</span>  }</div><div class="line"><a name="l03429"></a><span class="lineno"> 3429</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03430"></a><span class="lineno"> 3430</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) += <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d);</div><div class="line"><a name="l03431"></a><span class="lineno"> 3431</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) > ds || (<a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) == ds && (L & 1))) {</div><div class="line"><a name="l03432"></a><span class="lineno"> 3432</span> bump_up:</div><div class="line"><a name="l03433"></a><span class="lineno"> 3433</span>  <span class="keywordflow">while</span> (*--s == <span class="charliteral">'9'</span>)</div><div class="line"><a name="l03434"></a><span class="lineno"> 3434</span>  <span class="keywordflow">if</span> (s == s0) {</div><div class="line"><a name="l03435"></a><span class="lineno"> 3435</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++;</div><div class="line"><a name="l03436"></a><span class="lineno"> 3436</span>  *s = <span class="charliteral">'0'</span>;</div><div class="line"><a name="l03437"></a><span class="lineno"> 3437</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03438"></a><span class="lineno"> 3438</span>  }</div><div class="line"><a name="l03439"></a><span class="lineno"> 3439</span>  ++*s++;</div><div class="line"><a name="l03440"></a><span class="lineno"> 3440</span>  }</div><div class="line"><a name="l03441"></a><span class="lineno"> 3441</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03442"></a><span class="lineno"> 3442</span>  }</div><div class="line"><a name="l03443"></a><span class="lineno"> 3443</span>  }</div><div class="line"><a name="l03444"></a><span class="lineno"> 3444</span>  <span class="keywordflow">goto</span> ret1;</div><div class="line"><a name="l03445"></a><span class="lineno"> 3445</span>  }</div><div class="line"><a name="l03446"></a><span class="lineno"> 3446</span> </div><div class="line"><a name="l03447"></a><span class="lineno"> 3447</span>  m2 = b2;</div><div class="line"><a name="l03448"></a><span class="lineno"> 3448</span>  m5 = b5;</div><div class="line"><a name="l03449"></a><span class="lineno"> 3449</span>  <span class="keywordflow">if</span> (leftright) {</div><div class="line"><a name="l03450"></a><span class="lineno"> 3450</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> =</div><div class="line"><a name="l03451"></a><span class="lineno"> 3451</span> <span class="preprocessor">#ifndef Sudden_Underflow</span></div><div class="line"><a name="l03452"></a><span class="lineno"> 3452</span>  denorm ? be + (<a class="code" href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a> + (<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a>-1) - 1 + 1) :</div><div class="line"><a name="l03453"></a><span class="lineno"> 3453</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03454"></a><span class="lineno"> 3454</span> <span class="preprocessor">#ifdef IBM</span></div><div class="line"><a name="l03455"></a><span class="lineno"> 3455</span>  1 + 4*<a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> - 3 - bbits + ((bbits + be - 1) & 3);</div><div class="line"><a name="l03456"></a><span class="lineno"> 3456</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03457"></a><span class="lineno"> 3457</span>  1 + <a class="code" href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a> - bbits;</div><div class="line"><a name="l03458"></a><span class="lineno"> 3458</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03459"></a><span class="lineno"> 3459</span>  b2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03460"></a><span class="lineno"> 3460</span>  s2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03461"></a><span class="lineno"> 3461</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a>(1);</div><div class="line"><a name="l03462"></a><span class="lineno"> 3462</span>  }</div><div class="line"><a name="l03463"></a><span class="lineno"> 3463</span>  <span class="keywordflow">if</span> (m2 > 0 && s2 > 0) {</div><div class="line"><a name="l03464"></a><span class="lineno"> 3464</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = m2 < s2 ? m2 : s2;</div><div class="line"><a name="l03465"></a><span class="lineno"> 3465</span>  b2 -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03466"></a><span class="lineno"> 3466</span>  m2 -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03467"></a><span class="lineno"> 3467</span>  s2 -= <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03468"></a><span class="lineno"> 3468</span>  }</div><div class="line"><a name="l03469"></a><span class="lineno"> 3469</span>  <span class="keywordflow">if</span> (b5 > 0) {</div><div class="line"><a name="l03470"></a><span class="lineno"> 3470</span>  <span class="keywordflow">if</span> (leftright) {</div><div class="line"><a name="l03471"></a><span class="lineno"> 3471</span>  <span class="keywordflow">if</span> (m5 > 0) {</div><div class="line"><a name="l03472"></a><span class="lineno"> 3472</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(mhi, m5);</div><div class="line"><a name="l03473"></a><span class="lineno"> 3473</span>  b1 = <a class="code" href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a>(mhi, b);</div><div class="line"><a name="l03474"></a><span class="lineno"> 3474</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(b);</div><div class="line"><a name="l03475"></a><span class="lineno"> 3475</span>  b = b1;</div><div class="line"><a name="l03476"></a><span class="lineno"> 3476</span>  }</div><div class="line"><a name="l03477"></a><span class="lineno"> 3477</span>  <span class="keywordflow">if</span> ((j = b5 - m5) != 0)</div><div class="line"><a name="l03478"></a><span class="lineno"> 3478</span>  b = <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(b, j);</div><div class="line"><a name="l03479"></a><span class="lineno"> 3479</span>  }</div><div class="line"><a name="l03480"></a><span class="lineno"> 3480</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l03481"></a><span class="lineno"> 3481</span>  b = <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(b, b5);</div><div class="line"><a name="l03482"></a><span class="lineno"> 3482</span>  }</div><div class="line"><a name="l03483"></a><span class="lineno"> 3483</span>  <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a> = <a class="code" href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a>(1);</div><div class="line"><a name="l03484"></a><span class="lineno"> 3484</span>  <span class="keywordflow">if</span> (s5 > 0)</div><div class="line"><a name="l03485"></a><span class="lineno"> 3485</span>  <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a> = <a class="code" href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>, s5);</div><div class="line"><a name="l03486"></a><span class="lineno"> 3486</span> </div><div class="line"><a name="l03487"></a><span class="lineno"> 3487</span>  <span class="comment">/* Check for special case that d is a normalized power of 2. */</span></div><div class="line"><a name="l03488"></a><span class="lineno"> 3488</span> </div><div class="line"><a name="l03489"></a><span class="lineno"> 3489</span>  spec_case = 0;</div><div class="line"><a name="l03490"></a><span class="lineno"> 3490</span>  <span class="keywordflow">if</span> ((mode < 2 || leftright)</div><div class="line"><a name="l03491"></a><span class="lineno"> 3491</span> #ifdef Honor_FLT_ROUNDS</div><div class="line"><a name="l03492"></a><span class="lineno"> 3492</span>  && rounding == 1</div><div class="line"><a name="l03493"></a><span class="lineno"> 3493</span> #endif</div><div class="line"><a name="l03494"></a><span class="lineno"> 3494</span>  ) {</div><div class="line"><a name="l03495"></a><span class="lineno"> 3495</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) && !(<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) & <a class="code" href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff">Bndry_mask</a>)</div><div class="line"><a name="l03496"></a><span class="lineno"> 3496</span> #ifndef Sudden_Underflow</div><div class="line"><a name="l03497"></a><span class="lineno"> 3497</span>  && <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) & (<a class="code" href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a> & ~<a class="code" href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a>)</div><div class="line"><a name="l03498"></a><span class="lineno"> 3498</span> #endif</div><div class="line"><a name="l03499"></a><span class="lineno"> 3499</span>  ) {</div><div class="line"><a name="l03500"></a><span class="lineno"> 3500</span>  <span class="comment">/* The special case */</span></div><div class="line"><a name="l03501"></a><span class="lineno"> 3501</span>  b2 += <a class="code" href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142">Log2P</a>;</div><div class="line"><a name="l03502"></a><span class="lineno"> 3502</span>  s2 += <a class="code" href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142">Log2P</a>;</div><div class="line"><a name="l03503"></a><span class="lineno"> 3503</span>  spec_case = 1;</div><div class="line"><a name="l03504"></a><span class="lineno"> 3504</span>  }</div><div class="line"><a name="l03505"></a><span class="lineno"> 3505</span>  }</div><div class="line"><a name="l03506"></a><span class="lineno"> 3506</span> </div><div class="line"><a name="l03507"></a><span class="lineno"> 3507</span>  <span class="comment">/* Arrange for convenient computation of quotients:</span></div><div class="line"><a name="l03508"></a><span class="lineno"> 3508</span> <span class="comment"> * shift left if necessary so divisor has 4 leading 0 bits.</span></div><div class="line"><a name="l03509"></a><span class="lineno"> 3509</span> <span class="comment"> *</span></div><div class="line"><a name="l03510"></a><span class="lineno"> 3510</span> <span class="comment"> * Perhaps we should just compute leading 28 bits of S once</span></div><div class="line"><a name="l03511"></a><span class="lineno"> 3511</span> <span class="comment"> * and for all and pass them and a shift to quorem, so it</span></div><div class="line"><a name="l03512"></a><span class="lineno"> 3512</span> <span class="comment"> * can do shifts and ors to compute the numerator for q.</span></div><div class="line"><a name="l03513"></a><span class="lineno"> 3513</span> <span class="comment"> */</span></div><div class="line"><a name="l03514"></a><span class="lineno"> 3514</span> <span class="preprocessor">#ifdef Pack_32</span></div><div class="line"><a name="l03515"></a><span class="lineno"> 3515</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = ((s5 ? 32 - <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->x[<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->wds-1]) : 1) + s2) & 0x1f) != 0)</div><div class="line"><a name="l03516"></a><span class="lineno"> 3516</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 32 - <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03517"></a><span class="lineno"> 3517</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03518"></a><span class="lineno"> 3518</span>  <span class="keywordflow">if</span> ((<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = ((s5 ? 32 - <a class="code" href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->x[<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>->wds-1]) : 1) + s2) & 0xf) != 0)</div><div class="line"><a name="l03519"></a><span class="lineno"> 3519</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 16 - <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03520"></a><span class="lineno"> 3520</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03521"></a><span class="lineno"> 3521</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> > 4) {</div><div class="line"><a name="l03522"></a><span class="lineno"> 3522</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> -= 4;</div><div class="line"><a name="l03523"></a><span class="lineno"> 3523</span>  b2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03524"></a><span class="lineno"> 3524</span>  m2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03525"></a><span class="lineno"> 3525</span>  s2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03526"></a><span class="lineno"> 3526</span>  }</div><div class="line"><a name="l03527"></a><span class="lineno"> 3527</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> < 4) {</div><div class="line"><a name="l03528"></a><span class="lineno"> 3528</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> += 28;</div><div class="line"><a name="l03529"></a><span class="lineno"> 3529</span>  b2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03530"></a><span class="lineno"> 3530</span>  m2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03531"></a><span class="lineno"> 3531</span>  s2 += <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div><div class="line"><a name="l03532"></a><span class="lineno"> 3532</span>  }</div><div class="line"><a name="l03533"></a><span class="lineno"> 3533</span>  <span class="keywordflow">if</span> (b2 > 0)</div><div class="line"><a name="l03534"></a><span class="lineno"> 3534</span>  b = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(b, b2);</div><div class="line"><a name="l03535"></a><span class="lineno"> 3535</span>  <span class="keywordflow">if</span> (s2 > 0)</div><div class="line"><a name="l03536"></a><span class="lineno"> 3536</span>  <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a> = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>, s2);</div><div class="line"><a name="l03537"></a><span class="lineno"> 3537</span>  <span class="keywordflow">if</span> (k_check) {</div><div class="line"><a name="l03538"></a><span class="lineno"> 3538</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b,<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>) < 0) {</div><div class="line"><a name="l03539"></a><span class="lineno"> 3539</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>--;</div><div class="line"><a name="l03540"></a><span class="lineno"> 3540</span>  b = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(b, 10, 0); <span class="comment">/* we botched the k estimate */</span></div><div class="line"><a name="l03541"></a><span class="lineno"> 3541</span>  <span class="keywordflow">if</span> (leftright)</div><div class="line"><a name="l03542"></a><span class="lineno"> 3542</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(mhi, 10, 0);</div><div class="line"><a name="l03543"></a><span class="lineno"> 3543</span>  ilim = ilim1;</div><div class="line"><a name="l03544"></a><span class="lineno"> 3544</span>  }</div><div class="line"><a name="l03545"></a><span class="lineno"> 3545</span>  }</div><div class="line"><a name="l03546"></a><span class="lineno"> 3546</span>  <span class="keywordflow">if</span> (ilim <= 0 && (mode == 3 || mode == 5)) {</div><div class="line"><a name="l03547"></a><span class="lineno"> 3547</span>  <span class="keywordflow">if</span> (ilim < 0 || <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b,<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a> = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>,5,0)) <= 0) {</div><div class="line"><a name="l03548"></a><span class="lineno"> 3548</span>  <span class="comment">/* no digits, fcvt style */</span></div><div class="line"><a name="l03549"></a><span class="lineno"> 3549</span> <a class="code" href="../../d5/d11/ripper_8c.html#a4109fdcadec8be93f3e91500b5f46fe4">no_digits</a>:</div><div class="line"><a name="l03550"></a><span class="lineno"> 3550</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> = -1 - ndigits;</div><div class="line"><a name="l03551"></a><span class="lineno"> 3551</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03552"></a><span class="lineno"> 3552</span>  }</div><div class="line"><a name="l03553"></a><span class="lineno"> 3553</span> one_digit:</div><div class="line"><a name="l03554"></a><span class="lineno"> 3554</span>  *s++ = <span class="charliteral">'1'</span>;</div><div class="line"><a name="l03555"></a><span class="lineno"> 3555</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++;</div><div class="line"><a name="l03556"></a><span class="lineno"> 3556</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03557"></a><span class="lineno"> 3557</span>  }</div><div class="line"><a name="l03558"></a><span class="lineno"> 3558</span>  <span class="keywordflow">if</span> (leftright) {</div><div class="line"><a name="l03559"></a><span class="lineno"> 3559</span>  <span class="keywordflow">if</span> (m2 > 0)</div><div class="line"><a name="l03560"></a><span class="lineno"> 3560</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(mhi, m2);</div><div class="line"><a name="l03561"></a><span class="lineno"> 3561</span> </div><div class="line"><a name="l03562"></a><span class="lineno"> 3562</span>  <span class="comment">/* Compute mlo -- check for special case</span></div><div class="line"><a name="l03563"></a><span class="lineno"> 3563</span> <span class="comment"> * that d is a normalized power of 2.</span></div><div class="line"><a name="l03564"></a><span class="lineno"> 3564</span> <span class="comment"> */</span></div><div class="line"><a name="l03565"></a><span class="lineno"> 3565</span> </div><div class="line"><a name="l03566"></a><span class="lineno"> 3566</span>  mlo = mhi;</div><div class="line"><a name="l03567"></a><span class="lineno"> 3567</span>  <span class="keywordflow">if</span> (spec_case) {</div><div class="line"><a name="l03568"></a><span class="lineno"> 3568</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a>(mhi->k);</div><div class="line"><a name="l03569"></a><span class="lineno"> 3569</span>  <a class="code" href="../../de/df1/util_8c.html#acb2492181a9c5310befb7e45e65c35c9">Bcopy</a>(mhi, mlo);</div><div class="line"><a name="l03570"></a><span class="lineno"> 3570</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(mhi, <a class="code" href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142">Log2P</a>);</div><div class="line"><a name="l03571"></a><span class="lineno"> 3571</span>  }</div><div class="line"><a name="l03572"></a><span class="lineno"> 3572</span> </div><div class="line"><a name="l03573"></a><span class="lineno"> 3573</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;;<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++) {</div><div class="line"><a name="l03574"></a><span class="lineno"> 3574</span>  dig = <a class="code" href="../../de/df1/util_8c.html#a5259fef784f48e6d345d7c1338bc46cf">quorem</a>(b,<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>) + <span class="charliteral">'0'</span>;</div><div class="line"><a name="l03575"></a><span class="lineno"> 3575</span>  <span class="comment">/* Do we yet have the shortest decimal string</span></div><div class="line"><a name="l03576"></a><span class="lineno"> 3576</span> <span class="comment"> * that will round to d?</span></div><div class="line"><a name="l03577"></a><span class="lineno"> 3577</span> <span class="comment"> */</span></div><div class="line"><a name="l03578"></a><span class="lineno"> 3578</span>  j = <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b, mlo);</div><div class="line"><a name="l03579"></a><span class="lineno"> 3579</span>  delta = <a class="code" href="../../de/df1/util_8c.html#a84207aa1bd71cbf7b683da325e61d0e5">diff</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>, mhi);</div><div class="line"><a name="l03580"></a><span class="lineno"> 3580</span>  j1 = delta-><a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> ? 1 : <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b, delta);</div><div class="line"><a name="l03581"></a><span class="lineno"> 3581</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(delta);</div><div class="line"><a name="l03582"></a><span class="lineno"> 3582</span> <span class="preprocessor">#ifndef ROUND_BIASED</span></div><div class="line"><a name="l03583"></a><span class="lineno"> 3583</span>  <span class="keywordflow">if</span> (j1 == 0 && mode != 1 && !(<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) & 1)</div><div class="line"><a name="l03584"></a><span class="lineno"> 3584</span> #ifdef Honor_FLT_ROUNDS</div><div class="line"><a name="l03585"></a><span class="lineno"> 3585</span>  && rounding >= 1</div><div class="line"><a name="l03586"></a><span class="lineno"> 3586</span> #endif</div><div class="line"><a name="l03587"></a><span class="lineno"> 3587</span>  ) {</div><div class="line"><a name="l03588"></a><span class="lineno"> 3588</span>  <span class="keywordflow">if</span> (dig == <span class="charliteral">'9'</span>)</div><div class="line"><a name="l03589"></a><span class="lineno"> 3589</span>  <span class="keywordflow">goto</span> round_9_up;</div><div class="line"><a name="l03590"></a><span class="lineno"> 3590</span>  <span class="keywordflow">if</span> (j > 0)</div><div class="line"><a name="l03591"></a><span class="lineno"> 3591</span>  dig++;</div><div class="line"><a name="l03592"></a><span class="lineno"> 3592</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03593"></a><span class="lineno"> 3593</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (!b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] && b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> <= 1)</div><div class="line"><a name="l03594"></a><span class="lineno"> 3594</span>  inexact = 0;</div><div class="line"><a name="l03595"></a><span class="lineno"> 3595</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03596"></a><span class="lineno"> 3596</span>  *s++ = dig;</div><div class="line"><a name="l03597"></a><span class="lineno"> 3597</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03598"></a><span class="lineno"> 3598</span>  }</div><div class="line"><a name="l03599"></a><span class="lineno"> 3599</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03600"></a><span class="lineno"> 3600</span>  <span class="keywordflow">if</span> (j < 0 || (j == 0 && mode != 1</div><div class="line"><a name="l03601"></a><span class="lineno"> 3601</span> #ifndef ROUND_BIASED</div><div class="line"><a name="l03602"></a><span class="lineno"> 3602</span>  && !(<a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) & 1)</div><div class="line"><a name="l03603"></a><span class="lineno"> 3603</span> #endif</div><div class="line"><a name="l03604"></a><span class="lineno"> 3604</span>  )) {</div><div class="line"><a name="l03605"></a><span class="lineno"> 3605</span>  <span class="keywordflow">if</span> (!b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] && b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> <= 1) {</div><div class="line"><a name="l03606"></a><span class="lineno"> 3606</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03607"></a><span class="lineno"> 3607</span>  inexact = 0;</div><div class="line"><a name="l03608"></a><span class="lineno"> 3608</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03609"></a><span class="lineno"> 3609</span>  <span class="keywordflow">goto</span> accept_dig;</div><div class="line"><a name="l03610"></a><span class="lineno"> 3610</span>  }</div><div class="line"><a name="l03611"></a><span class="lineno"> 3611</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03612"></a><span class="lineno"> 3612</span>  <span class="keywordflow">if</span> (mode > 1)</div><div class="line"><a name="l03613"></a><span class="lineno"> 3613</span>  <span class="keywordflow">switch</span> (rounding) {</div><div class="line"><a name="l03614"></a><span class="lineno"> 3614</span>  <span class="keywordflow">case</span> 0: <span class="keywordflow">goto</span> accept_dig;</div><div class="line"><a name="l03615"></a><span class="lineno"> 3615</span>  <span class="keywordflow">case</span> 2: <span class="keywordflow">goto</span> keep_dig;</div><div class="line"><a name="l03616"></a><span class="lineno"> 3616</span>  }</div><div class="line"><a name="l03617"></a><span class="lineno"> 3617</span> <span class="preprocessor">#endif </span><span class="comment">/*Honor_FLT_ROUNDS*/</span><span class="preprocessor"></span></div><div class="line"><a name="l03618"></a><span class="lineno"> 3618</span>  <span class="keywordflow">if</span> (j1 > 0) {</div><div class="line"><a name="l03619"></a><span class="lineno"> 3619</span>  b = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(b, 1);</div><div class="line"><a name="l03620"></a><span class="lineno"> 3620</span>  j1 = <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b, <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>);</div><div class="line"><a name="l03621"></a><span class="lineno"> 3621</span>  <span class="keywordflow">if</span> ((j1 > 0 || (j1 == 0 && (dig & 1))) && dig++ == <span class="charliteral">'9'</span>)</div><div class="line"><a name="l03622"></a><span class="lineno"> 3622</span>  <span class="keywordflow">goto</span> round_9_up;</div><div class="line"><a name="l03623"></a><span class="lineno"> 3623</span>  }</div><div class="line"><a name="l03624"></a><span class="lineno"> 3624</span> accept_dig:</div><div class="line"><a name="l03625"></a><span class="lineno"> 3625</span>  *s++ = dig;</div><div class="line"><a name="l03626"></a><span class="lineno"> 3626</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03627"></a><span class="lineno"> 3627</span>  }</div><div class="line"><a name="l03628"></a><span class="lineno"> 3628</span>  <span class="keywordflow">if</span> (j1 > 0) {</div><div class="line"><a name="l03629"></a><span class="lineno"> 3629</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03630"></a><span class="lineno"> 3630</span>  <span class="keywordflow">if</span> (!rounding)</div><div class="line"><a name="l03631"></a><span class="lineno"> 3631</span>  <span class="keywordflow">goto</span> accept_dig;</div><div class="line"><a name="l03632"></a><span class="lineno"> 3632</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03633"></a><span class="lineno"> 3633</span>  <span class="keywordflow">if</span> (dig == <span class="charliteral">'9'</span>) { <span class="comment">/* possible if i == 1 */</span></div><div class="line"><a name="l03634"></a><span class="lineno"> 3634</span> round_9_up:</div><div class="line"><a name="l03635"></a><span class="lineno"> 3635</span>  *s++ = <span class="charliteral">'9'</span>;</div><div class="line"><a name="l03636"></a><span class="lineno"> 3636</span>  <span class="keywordflow">goto</span> roundoff;</div><div class="line"><a name="l03637"></a><span class="lineno"> 3637</span>  }</div><div class="line"><a name="l03638"></a><span class="lineno"> 3638</span>  *s++ = dig + 1;</div><div class="line"><a name="l03639"></a><span class="lineno"> 3639</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03640"></a><span class="lineno"> 3640</span>  }</div><div class="line"><a name="l03641"></a><span class="lineno"> 3641</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03642"></a><span class="lineno"> 3642</span> keep_dig:</div><div class="line"><a name="l03643"></a><span class="lineno"> 3643</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03644"></a><span class="lineno"> 3644</span>  *s++ = dig;</div><div class="line"><a name="l03645"></a><span class="lineno"> 3645</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> == ilim)</div><div class="line"><a name="l03646"></a><span class="lineno"> 3646</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03647"></a><span class="lineno"> 3647</span>  b = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(b, 10, 0);</div><div class="line"><a name="l03648"></a><span class="lineno"> 3648</span>  <span class="keywordflow">if</span> (mlo == mhi)</div><div class="line"><a name="l03649"></a><span class="lineno"> 3649</span>  mlo = mhi = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(mhi, 10, 0);</div><div class="line"><a name="l03650"></a><span class="lineno"> 3650</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03651"></a><span class="lineno"> 3651</span>  mlo = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(mlo, 10, 0);</div><div class="line"><a name="l03652"></a><span class="lineno"> 3652</span>  mhi = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(mhi, 10, 0);</div><div class="line"><a name="l03653"></a><span class="lineno"> 3653</span>  }</div><div class="line"><a name="l03654"></a><span class="lineno"> 3654</span>  }</div><div class="line"><a name="l03655"></a><span class="lineno"> 3655</span>  }</div><div class="line"><a name="l03656"></a><span class="lineno"> 3656</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l03657"></a><span class="lineno"> 3657</span>  <span class="keywordflow">for</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> = 1;; <a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>++) {</div><div class="line"><a name="l03658"></a><span class="lineno"> 3658</span>  *s++ = dig = <a class="code" href="../../de/df1/util_8c.html#a5259fef784f48e6d345d7c1338bc46cf">quorem</a>(b,<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>) + <span class="charliteral">'0'</span>;</div><div class="line"><a name="l03659"></a><span class="lineno"> 3659</span>  <span class="keywordflow">if</span> (!b-><a class="code" href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">x</a>[0] && b-><a class="code" href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">wds</a> <= 1) {</div><div class="line"><a name="l03660"></a><span class="lineno"> 3660</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03661"></a><span class="lineno"> 3661</span>  inexact = 0;</div><div class="line"><a name="l03662"></a><span class="lineno"> 3662</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03663"></a><span class="lineno"> 3663</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03664"></a><span class="lineno"> 3664</span>  }</div><div class="line"><a name="l03665"></a><span class="lineno"> 3665</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a> >= ilim)</div><div class="line"><a name="l03666"></a><span class="lineno"> 3666</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03667"></a><span class="lineno"> 3667</span>  b = <a class="code" href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a>(b, 10, 0);</div><div class="line"><a name="l03668"></a><span class="lineno"> 3668</span>  }</div><div class="line"><a name="l03669"></a><span class="lineno"> 3669</span> </div><div class="line"><a name="l03670"></a><span class="lineno"> 3670</span>  <span class="comment">/* Round off last digit */</span></div><div class="line"><a name="l03671"></a><span class="lineno"> 3671</span> </div><div class="line"><a name="l03672"></a><span class="lineno"> 3672</span> <span class="preprocessor">#ifdef Honor_FLT_ROUNDS</span></div><div class="line"><a name="l03673"></a><span class="lineno"> 3673</span>  <span class="keywordflow">switch</span> (rounding) {</div><div class="line"><a name="l03674"></a><span class="lineno"> 3674</span>  <span class="keywordflow">case</span> 0: <span class="keywordflow">goto</span> trimzeros;</div><div class="line"><a name="l03675"></a><span class="lineno"> 3675</span>  <span class="keywordflow">case</span> 2: <span class="keywordflow">goto</span> roundoff;</div><div class="line"><a name="l03676"></a><span class="lineno"> 3676</span>  }</div><div class="line"><a name="l03677"></a><span class="lineno"> 3677</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03678"></a><span class="lineno"> 3678</span>  b = <a class="code" href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a>(b, 1);</div><div class="line"><a name="l03679"></a><span class="lineno"> 3679</span>  j = <a class="code" href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a>(b, <a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>);</div><div class="line"><a name="l03680"></a><span class="lineno"> 3680</span>  <span class="keywordflow">if</span> (j > 0 || (j == 0 && (dig & 1))) {</div><div class="line"><a name="l03681"></a><span class="lineno"> 3681</span>  roundoff:</div><div class="line"><a name="l03682"></a><span class="lineno"> 3682</span>  <span class="keywordflow">while</span> (*--s == <span class="charliteral">'9'</span>)</div><div class="line"><a name="l03683"></a><span class="lineno"> 3683</span>  <span class="keywordflow">if</span> (s == s0) {</div><div class="line"><a name="l03684"></a><span class="lineno"> 3684</span>  <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a>++;</div><div class="line"><a name="l03685"></a><span class="lineno"> 3685</span>  *s++ = <span class="charliteral">'1'</span>;</div><div class="line"><a name="l03686"></a><span class="lineno"> 3686</span>  <span class="keywordflow">goto</span> ret;</div><div class="line"><a name="l03687"></a><span class="lineno"> 3687</span>  }</div><div class="line"><a name="l03688"></a><span class="lineno"> 3688</span>  ++*s++;</div><div class="line"><a name="l03689"></a><span class="lineno"> 3689</span>  }</div><div class="line"><a name="l03690"></a><span class="lineno"> 3690</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03691"></a><span class="lineno"> 3691</span>  <span class="keywordflow">while</span> (*--s == <span class="charliteral">'0'</span>) ;</div><div class="line"><a name="l03692"></a><span class="lineno"> 3692</span>  s++;</div><div class="line"><a name="l03693"></a><span class="lineno"> 3693</span>  }</div><div class="line"><a name="l03694"></a><span class="lineno"> 3694</span> ret:</div><div class="line"><a name="l03695"></a><span class="lineno"> 3695</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(<a class="code" href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a>);</div><div class="line"><a name="l03696"></a><span class="lineno"> 3696</span>  <span class="keywordflow">if</span> (mhi) {</div><div class="line"><a name="l03697"></a><span class="lineno"> 3697</span>  <span class="keywordflow">if</span> (mlo && mlo != mhi)</div><div class="line"><a name="l03698"></a><span class="lineno"> 3698</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(mlo);</div><div class="line"><a name="l03699"></a><span class="lineno"> 3699</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(mhi);</div><div class="line"><a name="l03700"></a><span class="lineno"> 3700</span>  }</div><div class="line"><a name="l03701"></a><span class="lineno"> 3701</span> ret1:</div><div class="line"><a name="l03702"></a><span class="lineno"> 3702</span> <span class="preprocessor">#ifdef SET_INEXACT</span></div><div class="line"><a name="l03703"></a><span class="lineno"> 3703</span>  <span class="keywordflow">if</span> (inexact) {</div><div class="line"><a name="l03704"></a><span class="lineno"> 3704</span>  <span class="keywordflow">if</span> (!oldinexact) {</div><div class="line"><a name="l03705"></a><span class="lineno"> 3705</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(d) = <a class="code" href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a> + (70 << <a class="code" href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a>);</div><div class="line"><a name="l03706"></a><span class="lineno"> 3706</span>  <a class="code" href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a>(d) = 0;</div><div class="line"><a name="l03707"></a><span class="lineno"> 3707</span>  <a class="code" href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a>(d) += 1.;</div><div class="line"><a name="l03708"></a><span class="lineno"> 3708</span>  }</div><div class="line"><a name="l03709"></a><span class="lineno"> 3709</span>  }</div><div class="line"><a name="l03710"></a><span class="lineno"> 3710</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (!oldinexact)</div><div class="line"><a name="l03711"></a><span class="lineno"> 3711</span>  clear_inexact();</div><div class="line"><a name="l03712"></a><span class="lineno"> 3712</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03713"></a><span class="lineno"> 3713</span>  <a class="code" href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a>(b);</div><div class="line"><a name="l03714"></a><span class="lineno"> 3714</span>  *s = 0;</div><div class="line"><a name="l03715"></a><span class="lineno"> 3715</span>  *decpt = <a class="code" href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">k</a> + 1;</div><div class="line"><a name="l03716"></a><span class="lineno"> 3716</span>  <span class="keywordflow">if</span> (rve)</div><div class="line"><a name="l03717"></a><span class="lineno"> 3717</span>  *rve = s;</div><div class="line"><a name="l03718"></a><span class="lineno"> 3718</span>  <span class="keywordflow">return</span> s0;</div><div class="line"><a name="l03719"></a><span class="lineno"> 3719</span> }</div><div class="line"><a name="l03720"></a><span class="lineno"> 3720</span> </div><div class="line"><a name="l03721"></a><span class="lineno"> 3721</span> <span class="keywordtype">void</span></div><div class="line"><a name="l03722"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a9a23542d2985646185cc8bc8e033112f"> 3722</a></span> <a class="code" href="../../de/df1/util_8c.html#a9a23542d2985646185cc8bc8e033112f">ruby_each_words</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">void</span> (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>)(<span class="keyword">const</span> <span class="keywordtype">char</span>*, <span class="keywordtype">int</span>, <span class="keywordtype">void</span>*), <span class="keywordtype">void</span> *arg)</div><div class="line"><a name="l03723"></a><span class="lineno"> 3723</span> {</div><div class="line"><a name="l03724"></a><span class="lineno"> 3724</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *end;</div><div class="line"><a name="l03725"></a><span class="lineno"> 3725</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div><div class="line"><a name="l03726"></a><span class="lineno"> 3726</span> </div><div class="line"><a name="l03727"></a><span class="lineno"> 3727</span>  <span class="keywordflow">if</span> (!str) <span class="keywordflow">return</span>;</div><div class="line"><a name="l03728"></a><span class="lineno"> 3728</span>  <span class="keywordflow">for</span> (; *str; str = end) {</div><div class="line"><a name="l03729"></a><span class="lineno"> 3729</span>  <span class="keywordflow">while</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(*str) || *str == <span class="charliteral">','</span>) str++;</div><div class="line"><a name="l03730"></a><span class="lineno"> 3730</span>  <span class="keywordflow">if</span> (!*str) <span class="keywordflow">break</span>;</div><div class="line"><a name="l03731"></a><span class="lineno"> 3731</span>  end = str;</div><div class="line"><a name="l03732"></a><span class="lineno"> 3732</span>  <span class="keywordflow">while</span> (*end && !<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(*end) && *end != <span class="charliteral">','</span>) end++;</div><div class="line"><a name="l03733"></a><span class="lineno"> 3733</span>  <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a> = (int)(end - str); <span class="comment">/* assume no string exceeds INT_MAX */</span></div><div class="line"><a name="l03734"></a><span class="lineno"> 3734</span>  (*func)(str, <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>, arg);</div><div class="line"><a name="l03735"></a><span class="lineno"> 3735</span>  }</div><div class="line"><a name="l03736"></a><span class="lineno"> 3736</span> }</div><div class="line"><a name="l03737"></a><span class="lineno"> 3737</span> </div><div class="line"><a name="l03738"></a><span class="lineno"> 3738</span> <span class="comment">/*-</span></div><div class="line"><a name="l03739"></a><span class="lineno"> 3739</span> <span class="comment"> * Copyright (c) 2004-2008 David Schultz <das@FreeBSD.ORG></span></div><div class="line"><a name="l03740"></a><span class="lineno"> 3740</span> <span class="comment"> * All rights reserved.</span></div><div class="line"><a name="l03741"></a><span class="lineno"> 3741</span> <span class="comment"> *</span></div><div class="line"><a name="l03742"></a><span class="lineno"> 3742</span> <span class="comment"> * Redistribution and use in source and binary forms, with or without</span></div><div class="line"><a name="l03743"></a><span class="lineno"> 3743</span> <span class="comment"> * modification, are permitted provided that the following conditions</span></div><div class="line"><a name="l03744"></a><span class="lineno"> 3744</span> <span class="comment"> * are met:</span></div><div class="line"><a name="l03745"></a><span class="lineno"> 3745</span> <span class="comment"> * 1. Redistributions of source code must retain the above copyright</span></div><div class="line"><a name="l03746"></a><span class="lineno"> 3746</span> <span class="comment"> * notice, this list of conditions and the following disclaimer.</span></div><div class="line"><a name="l03747"></a><span class="lineno"> 3747</span> <span class="comment"> * 2. Redistributions in binary form must reproduce the above copyright</span></div><div class="line"><a name="l03748"></a><span class="lineno"> 3748</span> <span class="comment"> * notice, this list of conditions and the following disclaimer in the</span></div><div class="line"><a name="l03749"></a><span class="lineno"> 3749</span> <span class="comment"> * documentation and/or other materials provided with the distribution.</span></div><div class="line"><a name="l03750"></a><span class="lineno"> 3750</span> <span class="comment"> *</span></div><div class="line"><a name="l03751"></a><span class="lineno"> 3751</span> <span class="comment"> * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND</span></div><div class="line"><a name="l03752"></a><span class="lineno"> 3752</span> <span class="comment"> * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE</span></div><div class="line"><a name="l03753"></a><span class="lineno"> 3753</span> <span class="comment"> * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE</span></div><div class="line"><a name="l03754"></a><span class="lineno"> 3754</span> <span class="comment"> * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE</span></div><div class="line"><a name="l03755"></a><span class="lineno"> 3755</span> <span class="comment"> * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL</span></div><div class="line"><a name="l03756"></a><span class="lineno"> 3756</span> <span class="comment"> * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS</span></div><div class="line"><a name="l03757"></a><span class="lineno"> 3757</span> <span class="comment"> * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)</span></div><div class="line"><a name="l03758"></a><span class="lineno"> 3758</span> <span class="comment"> * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT</span></div><div class="line"><a name="l03759"></a><span class="lineno"> 3759</span> <span class="comment"> * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY</span></div><div class="line"><a name="l03760"></a><span class="lineno"> 3760</span> <span class="comment"> * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF</span></div><div class="line"><a name="l03761"></a><span class="lineno"> 3761</span> <span class="comment"> * SUCH DAMAGE.</span></div><div class="line"><a name="l03762"></a><span class="lineno"> 3762</span> <span class="comment"> */</span></div><div class="line"><a name="l03763"></a><span class="lineno"> 3763</span> </div><div class="line"><a name="l03764"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#acf5cb44ae7677d260734f2a3c4300d40"> 3764</a></span> <span class="preprocessor">#define DBL_MANH_SIZE 20</span></div><div class="line"><a name="l03765"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a995bef2e60e116deb1c4ff1a048ef888"> 3765</a></span> <span class="preprocessor">#define DBL_MANL_SIZE 32</span></div><div class="line"><a name="l03766"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aa989068869dd496f72de53c9487c7928"> 3766</a></span> <span class="preprocessor">#define DBL_ADJ (DBL_MAX_EXP - 2)</span></div><div class="line"><a name="l03767"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#af1f952c71c795fb3b11fc916665fe2dc"> 3767</a></span> <span class="preprocessor">#define SIGFIGS ((DBL_MANT_DIG + 3) / 4 + 1)</span></div><div class="line"><a name="l03768"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a8e8fece1facbb8785a87eb032e731990"> 3768</a></span> <span class="preprocessor">#define dexp_get(u) ((int)(word0(u) >> Exp_shift) & ~Exp_msk1)</span></div><div class="line"><a name="l03769"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a01e84f08e31d73a0cac29f25478b1e8f"> 3769</a></span> <span class="preprocessor">#define dexp_set(u,v) (word0(u) = (((int)(word0(u)) & ~Exp_mask) | ((v) << Exp_shift)))</span></div><div class="line"><a name="l03770"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#a4d9112a7c5ed6d6405e518d4f10f997b"> 3770</a></span> <span class="preprocessor">#define dmanh_get(u) ((uint32_t)(word0(u) & Frac_mask))</span></div><div class="line"><a name="l03771"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#ac5848eab719d1538912e5ca5b011497d"> 3771</a></span> <span class="preprocessor">#define dmanl_get(u) ((uint32_t)word1(u))</span></div><div class="line"><a name="l03772"></a><span class="lineno"> 3772</span> </div><div class="line"><a name="l03773"></a><span class="lineno"> 3773</span> </div><div class="line"><a name="l03774"></a><span class="lineno"> 3774</span> <span class="comment">/*</span></div><div class="line"><a name="l03775"></a><span class="lineno"> 3775</span> <span class="comment"> * This procedure converts a double-precision number in IEEE format</span></div><div class="line"><a name="l03776"></a><span class="lineno"> 3776</span> <span class="comment"> * into a string of hexadecimal digits and an exponent of 2. Its</span></div><div class="line"><a name="l03777"></a><span class="lineno"> 3777</span> <span class="comment"> * behavior is bug-for-bug compatible with dtoa() in mode 2, with the</span></div><div class="line"><a name="l03778"></a><span class="lineno"> 3778</span> <span class="comment"> * following exceptions:</span></div><div class="line"><a name="l03779"></a><span class="lineno"> 3779</span> <span class="comment"> *</span></div><div class="line"><a name="l03780"></a><span class="lineno"> 3780</span> <span class="comment"> * - An ndigits < 0 causes it to use as many digits as necessary to</span></div><div class="line"><a name="l03781"></a><span class="lineno"> 3781</span> <span class="comment"> * represent the number exactly.</span></div><div class="line"><a name="l03782"></a><span class="lineno"> 3782</span> <span class="comment"> * - The additional xdigs argument should point to either the string</span></div><div class="line"><a name="l03783"></a><span class="lineno"> 3783</span> <span class="comment"> * "0123456789ABCDEF" or the string "0123456789abcdef", depending on</span></div><div class="line"><a name="l03784"></a><span class="lineno"> 3784</span> <span class="comment"> * which case is desired.</span></div><div class="line"><a name="l03785"></a><span class="lineno"> 3785</span> <span class="comment"> * - This routine does not repeat dtoa's mistake of setting decpt</span></div><div class="line"><a name="l03786"></a><span class="lineno"> 3786</span> <span class="comment"> * to 9999 in the case of an infinity or NaN. INT_MAX is used</span></div><div class="line"><a name="l03787"></a><span class="lineno"> 3787</span> <span class="comment"> * for this purpose instead.</span></div><div class="line"><a name="l03788"></a><span class="lineno"> 3788</span> <span class="comment"> *</span></div><div class="line"><a name="l03789"></a><span class="lineno"> 3789</span> <span class="comment"> * Note that the C99 standard does not specify what the leading digit</span></div><div class="line"><a name="l03790"></a><span class="lineno"> 3790</span> <span class="comment"> * should be for non-zero numbers. For instance, 0x1.3p3 is the same</span></div><div class="line"><a name="l03791"></a><span class="lineno"> 3791</span> <span class="comment"> * as 0x2.6p2 is the same as 0x4.cp3. This implementation always makes</span></div><div class="line"><a name="l03792"></a><span class="lineno"> 3792</span> <span class="comment"> * the leading digit a 1. This ensures that the exponent printed is the</span></div><div class="line"><a name="l03793"></a><span class="lineno"> 3793</span> <span class="comment"> * actual base-2 exponent, i.e., ilogb(d).</span></div><div class="line"><a name="l03794"></a><span class="lineno"> 3794</span> <span class="comment"> *</span></div><div class="line"><a name="l03795"></a><span class="lineno"> 3795</span> <span class="comment"> * Inputs: d, xdigs, ndigits</span></div><div class="line"><a name="l03796"></a><span class="lineno"> 3796</span> <span class="comment"> * Outputs: decpt, sign, rve</span></div><div class="line"><a name="l03797"></a><span class="lineno"> 3797</span> <span class="comment"> */</span></div><div class="line"><a name="l03798"></a><span class="lineno"> 3798</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l03799"></a><span class="lineno"><a class="line" href="../../de/df1/util_8c.html#aaae4bb31b93521be9692f9da0bc647fb"> 3799</a></span> <a class="code" href="../../de/df1/util_8c.html#aaae4bb31b93521be9692f9da0bc647fb">ruby_hdtoa</a>(<span class="keywordtype">double</span> d, <span class="keyword">const</span> <span class="keywordtype">char</span> *xdigs, <span class="keywordtype">int</span> ndigits, <span class="keywordtype">int</span> *decpt, <span class="keywordtype">int</span> *<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a>,</div><div class="line"><a name="l03800"></a><span class="lineno"> 3800</span>  <span class="keywordtype">char</span> **rve)</div><div class="line"><a name="l03801"></a><span class="lineno"> 3801</span> {</div><div class="line"><a name="l03802"></a><span class="lineno"> 3802</span>  <a class="code" href="../../d9/db2/union_u.html">U</a> u;</div><div class="line"><a name="l03803"></a><span class="lineno"> 3803</span>  <span class="keywordtype">char</span> *s, *s0;</div><div class="line"><a name="l03804"></a><span class="lineno"> 3804</span>  <span class="keywordtype">int</span> bufsize;</div><div class="line"><a name="l03805"></a><span class="lineno"> 3805</span>  <a class="code" href="../../db/d4d/sha2_8h.html#a435d1572bf3f880d55459d9805097f62">uint32_t</a> manh, manl;</div><div class="line"><a name="l03806"></a><span class="lineno"> 3806</span> </div><div class="line"><a name="l03807"></a><span class="lineno"> 3807</span>  u.<a class="code" href="../../d9/db2/union_u.html#a6379e5194213c802bb8c6786eca8ad50">d</a> = d;</div><div class="line"><a name="l03808"></a><span class="lineno"> 3808</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(u) & <a class="code" href="../../de/df1/util_8c.html#a63c55d45c8c26a4d0c9d2d5c1afe5caa">Sign_bit</a>) {</div><div class="line"><a name="l03809"></a><span class="lineno"> 3809</span>  <span class="comment">/* set sign for everything, including 0's and NaNs */</span></div><div class="line"><a name="l03810"></a><span class="lineno"> 3810</span>  *<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 1;</div><div class="line"><a name="l03811"></a><span class="lineno"> 3811</span>  <a class="code" href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a>(u) &= ~<a class="code" href="../../de/df1/util_8c.html#a63c55d45c8c26a4d0c9d2d5c1afe5caa">Sign_bit</a>; <span class="comment">/* clear sign bit */</span></div><div class="line"><a name="l03812"></a><span class="lineno"> 3812</span>  }</div><div class="line"><a name="l03813"></a><span class="lineno"> 3813</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l03814"></a><span class="lineno"> 3814</span>  *<a class="code" href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">sign</a> = 0;</div><div class="line"><a name="l03815"></a><span class="lineno"> 3815</span> </div><div class="line"><a name="l03816"></a><span class="lineno"> 3816</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(d)) { <span class="comment">/* FP_INFINITE */</span></div><div class="line"><a name="l03817"></a><span class="lineno"> 3817</span>  *decpt = INT_MAX;</div><div class="line"><a name="l03818"></a><span class="lineno"> 3818</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a>(<a class="code" href="../../de/df1/util_8c.html#a6d1975babb320c6088539b603b6d5d95">INFSTR</a>, rve);</div><div class="line"><a name="l03819"></a><span class="lineno"> 3819</span>  }</div><div class="line"><a name="l03820"></a><span class="lineno"> 3820</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a>(d)) { <span class="comment">/* FP_NAN */</span></div><div class="line"><a name="l03821"></a><span class="lineno"> 3821</span>  *decpt = INT_MAX;</div><div class="line"><a name="l03822"></a><span class="lineno"> 3822</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a>(<a class="code" href="../../de/df1/util_8c.html#ab3239bcfc1383570ccf538974d7b7e86">NANSTR</a>, rve);</div><div class="line"><a name="l03823"></a><span class="lineno"> 3823</span>  }</div><div class="line"><a name="l03824"></a><span class="lineno"> 3824</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (d == 0.0) { <span class="comment">/* FP_ZERO */</span></div><div class="line"><a name="l03825"></a><span class="lineno"> 3825</span>  *decpt = 1;</div><div class="line"><a name="l03826"></a><span class="lineno"> 3826</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a>(<a class="code" href="../../de/df1/util_8c.html#aadbad9fa5d0ffc6347c5d1e0d59eefa9">ZEROSTR</a>, rve);</div><div class="line"><a name="l03827"></a><span class="lineno"> 3827</span>  }</div><div class="line"><a name="l03828"></a><span class="lineno"> 3828</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#a8e8fece1facbb8785a87eb032e731990">dexp_get</a>(u)) { <span class="comment">/* FP_NORMAL */</span></div><div class="line"><a name="l03829"></a><span class="lineno"> 3829</span>  *decpt = <a class="code" href="../../de/df1/util_8c.html#a8e8fece1facbb8785a87eb032e731990">dexp_get</a>(u) - <a class="code" href="../../de/df1/util_8c.html#aa989068869dd496f72de53c9487c7928">DBL_ADJ</a>;</div><div class="line"><a name="l03830"></a><span class="lineno"> 3830</span>  }</div><div class="line"><a name="l03831"></a><span class="lineno"> 3831</span>  <span class="keywordflow">else</span> { <span class="comment">/* FP_SUBNORMAL */</span></div><div class="line"><a name="l03832"></a><span class="lineno"> 3832</span>  u.<a class="code" href="../../d9/db2/union_u.html#a6379e5194213c802bb8c6786eca8ad50">d</a> *= 5.363123171977039e+154 <span class="comment">/* 0x1p514 */</span>;</div><div class="line"><a name="l03833"></a><span class="lineno"> 3833</span>  *decpt = <a class="code" href="../../de/df1/util_8c.html#a8e8fece1facbb8785a87eb032e731990">dexp_get</a>(u) - (514 + <a class="code" href="../../de/df1/util_8c.html#aa989068869dd496f72de53c9487c7928">DBL_ADJ</a>);</div><div class="line"><a name="l03834"></a><span class="lineno"> 3834</span>  }</div><div class="line"><a name="l03835"></a><span class="lineno"> 3835</span> </div><div class="line"><a name="l03836"></a><span class="lineno"> 3836</span>  <span class="keywordflow">if</span> (ndigits == 0) <span class="comment">/* dtoa() compatibility */</span></div><div class="line"><a name="l03837"></a><span class="lineno"> 3837</span>  ndigits = 1;</div><div class="line"><a name="l03838"></a><span class="lineno"> 3838</span> </div><div class="line"><a name="l03839"></a><span class="lineno"> 3839</span>  <span class="comment">/*</span></div><div class="line"><a name="l03840"></a><span class="lineno"> 3840</span> <span class="comment"> * If ndigits < 0, we are expected to auto-size, so we allocate</span></div><div class="line"><a name="l03841"></a><span class="lineno"> 3841</span> <span class="comment"> * enough space for all the digits.</span></div><div class="line"><a name="l03842"></a><span class="lineno"> 3842</span> <span class="comment"> */</span></div><div class="line"><a name="l03843"></a><span class="lineno"> 3843</span>  bufsize = (ndigits > 0) ? ndigits : <a class="code" href="../../de/df1/util_8c.html#af1f952c71c795fb3b11fc916665fe2dc">SIGFIGS</a>;</div><div class="line"><a name="l03844"></a><span class="lineno"> 3844</span>  s0 = <a class="code" href="../../de/df1/util_8c.html#a9c3e0e30da9c15a129375aa7cc61e818">rv_alloc</a>(bufsize+1);</div><div class="line"><a name="l03845"></a><span class="lineno"> 3845</span> </div><div class="line"><a name="l03846"></a><span class="lineno"> 3846</span>  <span class="comment">/* Round to the desired number of digits. */</span></div><div class="line"><a name="l03847"></a><span class="lineno"> 3847</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/df1/util_8c.html#af1f952c71c795fb3b11fc916665fe2dc">SIGFIGS</a> > ndigits && ndigits > 0) {</div><div class="line"><a name="l03848"></a><span class="lineno"> 3848</span>  <span class="keywordtype">float</span> redux = 1.0f;</div><div class="line"><a name="l03849"></a><span class="lineno"> 3849</span>  <span class="keyword">volatile</span> <span class="keywordtype">double</span> d;</div><div class="line"><a name="l03850"></a><span class="lineno"> 3850</span>  <span class="keywordtype">int</span> offset = 4 * ndigits + <a class="code" href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a> - 4 - <a class="code" href="../../d7/deb/acosh_8c.html#aeb343417fe0051b641fc7921022c7b0d">DBL_MANT_DIG</a>;</div><div class="line"><a name="l03851"></a><span class="lineno"> 3851</span>  <a class="code" href="../../de/df1/util_8c.html#a01e84f08e31d73a0cac29f25478b1e8f">dexp_set</a>(u, offset);</div><div class="line"><a name="l03852"></a><span class="lineno"> 3852</span>  d = u.<a class="code" href="../../d9/db2/union_u.html#a6379e5194213c802bb8c6786eca8ad50">d</a>;</div><div class="line"><a name="l03853"></a><span class="lineno"> 3853</span>  d += redux;</div><div class="line"><a name="l03854"></a><span class="lineno"> 3854</span>  d -= redux;</div><div class="line"><a name="l03855"></a><span class="lineno"> 3855</span>  u.<a class="code" href="../../d9/db2/union_u.html#a6379e5194213c802bb8c6786eca8ad50">d</a> = d;</div><div class="line"><a name="l03856"></a><span class="lineno"> 3856</span>  *decpt += <a class="code" href="../../de/df1/util_8c.html#a8e8fece1facbb8785a87eb032e731990">dexp_get</a>(u) - offset;</div><div class="line"><a name="l03857"></a><span class="lineno"> 3857</span>  }</div><div class="line"><a name="l03858"></a><span class="lineno"> 3858</span> </div><div class="line"><a name="l03859"></a><span class="lineno"> 3859</span>  manh = <a class="code" href="../../de/df1/util_8c.html#a4d9112a7c5ed6d6405e518d4f10f997b">dmanh_get</a>(u);</div><div class="line"><a name="l03860"></a><span class="lineno"> 3860</span>  manl = <a class="code" href="../../de/df1/util_8c.html#ac5848eab719d1538912e5ca5b011497d">dmanl_get</a>(u);</div><div class="line"><a name="l03861"></a><span class="lineno"> 3861</span>  *s0 = <span class="charliteral">'1'</span>;</div><div class="line"><a name="l03862"></a><span class="lineno"> 3862</span>  <span class="keywordflow">for</span> (s = s0 + 1; s < s0 + bufsize; s++) {</div><div class="line"><a name="l03863"></a><span class="lineno"> 3863</span>  *s = xdigs[(manh >> (<a class="code" href="../../de/df1/util_8c.html#acf5cb44ae7677d260734f2a3c4300d40">DBL_MANH_SIZE</a> - 4)) & 0xf];</div><div class="line"><a name="l03864"></a><span class="lineno"> 3864</span>  manh = (manh << 4) | (manl >> (<a class="code" href="../../de/df1/util_8c.html#a995bef2e60e116deb1c4ff1a048ef888">DBL_MANL_SIZE</a> - 4));</div><div class="line"><a name="l03865"></a><span class="lineno"> 3865</span>  manl <<= 4;</div><div class="line"><a name="l03866"></a><span class="lineno"> 3866</span>  }</div><div class="line"><a name="l03867"></a><span class="lineno"> 3867</span> </div><div class="line"><a name="l03868"></a><span class="lineno"> 3868</span>  <span class="comment">/* If ndigits < 0, we are expected to auto-size the precision. */</span></div><div class="line"><a name="l03869"></a><span class="lineno"> 3869</span>  <span class="keywordflow">if</span> (ndigits < 0) {</div><div class="line"><a name="l03870"></a><span class="lineno"> 3870</span>  <span class="keywordflow">for</span> (ndigits = <a class="code" href="../../de/df1/util_8c.html#af1f952c71c795fb3b11fc916665fe2dc">SIGFIGS</a>; s0[ndigits - 1] == <span class="charliteral">'0'</span>; ndigits--)</div><div class="line"><a name="l03871"></a><span class="lineno"> 3871</span>  ;</div><div class="line"><a name="l03872"></a><span class="lineno"> 3872</span>  }</div><div class="line"><a name="l03873"></a><span class="lineno"> 3873</span> </div><div class="line"><a name="l03874"></a><span class="lineno"> 3874</span>  s = s0 + ndigits;</div><div class="line"><a name="l03875"></a><span class="lineno"> 3875</span>  *s = <span class="charliteral">'\0'</span>;</div><div class="line"><a name="l03876"></a><span class="lineno"> 3876</span>  <span class="keywordflow">if</span> (rve != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>)</div><div class="line"><a name="l03877"></a><span class="lineno"> 3877</span>  *rve = s;</div><div class="line"><a name="l03878"></a><span class="lineno"> 3878</span>  <span class="keywordflow">return</span> (s0);</div><div class="line"><a name="l03879"></a><span class="lineno"> 3879</span> }</div><div class="line"><a name="l03880"></a><span class="lineno"> 3880</span> </div><div class="line"><a name="l03881"></a><span class="lineno"> 3881</span> <span class="preprocessor">#ifdef __cplusplus</span></div><div class="line"><a name="l03882"></a><span class="lineno"> 3882</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l03883"></a><span class="lineno"> 3883</span> {</div><div class="line"><a name="l03884"></a><span class="lineno"> 3884</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03885"></a><span class="lineno"> 3885</span> }</div><div class="line"><a name="l03886"></a><span class="lineno"> 3886</span> <span class="preprocessor">#endif</span></div><div class="ttc" id="util_8c_html_ade11f3df9cc63f54fa743250c646e270"><div class="ttname"><a href="../../de/df1/util_8c.html#ade11f3df9cc63f54fa743250c646e270">d0</a></div><div class="ttdeci">#define d0</div></div>
<div class="ttc" id="util_8c_html_a63c55d45c8c26a4d0c9d2d5c1afe5caa"><div class="ttname"><a href="../../de/df1/util_8c.html#a63c55d45c8c26a4d0c9d2d5c1afe5caa">Sign_bit</a></div><div class="ttdeci">#define Sign_bit</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00811">util.c:811</a></div></div>
<div class="ttc" id="util_8c_html_a01e84f08e31d73a0cac29f25478b1e8f"><div class="ttname"><a href="../../de/df1/util_8c.html#a01e84f08e31d73a0cac29f25478b1e8f">dexp_set</a></div><div class="ttdeci">#define dexp_set(u, v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03769">util.c:3769</a></div></div>
<div class="ttc" id="util_8c_html_a27739a75589e9a8a9480855431e10f09"><div class="ttname"><a href="../../de/df1/util_8c.html#a27739a75589e9a8a9480855431e10f09">lo0bits</a></div><div class="ttdeci">static int lo0bits(ULong *y)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01132">util.c:1132</a></div></div>
<div class="ttc" id="numeric_8c_html_a566d8859d1a43f73f0e76619833d4d98"><div class="ttname"><a href="../../d6/d27/numeric_8c.html#a566d8859d1a43f73f0e76619833d4d98">FLT_RADIX</a></div><div class="ttdeci">#define FLT_RADIX</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00034">numeric.c:34</a></div></div>
<div class="ttc" id="util_8c_html_a16bd098794b12e962a30252ed02ee37d"><div class="ttname"><a href="../../de/df1/util_8c.html#a16bd098794b12e962a30252ed02ee37d">Big1</a></div><div class="ttdeci">#define Big1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00915">util.c:915</a></div></div>
<div class="ttc" id="sha2_8c_html_af299e0982ce71aad5027c4a7315e536f"><div class="ttname"><a href="../../d3/d80/sha2_8c.html#af299e0982ce71aad5027c4a7315e536f">R</a></div><div class="ttdeci">#define R(b, x)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/sha2_8c_source.html#l00203">sha2.c:203</a></div></div>
<div class="ttc" id="strchr_8c_html_a219836f542ce53545052bed5353820ca"><div class="ttname"><a href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a></div><div class="ttdeci">size_t strlen(const char *)</div></div>
<div class="ttc" id="win32ole_8c_html_acb559820d9ca11295b4500f179ef6392"><div class="ttname"><a href="../../d2/d99/win32ole_8c.html#acb559820d9ca11295b4500f179ef6392">i</a></div><div class="ttdeci">int i</div><div class="ttdef"><b>Definition:</b> <a href="../../d2/d99/win32ole_8c_source.html#l00776">win32ole.c:776</a></div></div>
<div class="ttc" id="crypt_8c_html_abe081f68ee621d157bd09424831be314"><div class="ttname"><a href="../../d6/de3/crypt_8c.html#abe081f68ee621d157bd09424831be314">S</a></div><div class="ttdeci">static unsigned char S[8][64]</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/de3/crypt_8c_source.html#l00382">crypt.c:382</a></div></div>
<div class="ttc" id="util_8c_html_aa1ff217ff4152aa5d9a76f64bc4bbbf7"><div class="ttname"><a href="../../de/df1/util_8c.html#aa1ff217ff4152aa5d9a76f64bc4bbbf7">ACQUIRE_DTOA_LOCK</a></div><div class="ttdeci">#define ACQUIRE_DTOA_LOCK(n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00948">util.c:948</a></div></div>
<div class="ttc" id="util_8c_html_a9c3e0e30da9c15a129375aa7cc61e818"><div class="ttname"><a href="../../de/df1/util_8c.html#a9c3e0e30da9c15a129375aa7cc61e818">rv_alloc</a></div><div class="ttdeci">#define rv_alloc(i)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l02979">util.c:2979</a></div></div>
<div class="ttc" id="util_8c_html_a1fe17aa2ff1722c937379044a27da68a"><div class="ttname"><a href="../../de/df1/util_8c.html#a1fe17aa2ff1722c937379044a27da68a">d1</a></div><div class="ttdeci">#define d1</div></div>
<div class="ttc" id="util_8c_html_a2748566f4c443ee77aa831e63dbb5ebe"><div class="ttname"><a href="../../de/df1/util_8c.html#a2748566f4c443ee77aa831e63dbb5ebe">P</a></div><div class="ttdeci">#define P</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00798">util.c:798</a></div></div>
<div class="ttc" id="util_8c_html_a9df0fa7f6d01e00c0fcbd0ff45c0f6d5"><div class="ttname"><a href="../../de/df1/util_8c.html#a9df0fa7f6d01e00c0fcbd0ff45c0f6d5">Balloc</a></div><div class="ttdeci">static Bigint * Balloc(int k)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00965">util.c:965</a></div></div>
<div class="ttc" id="util_8c_html_a9c742dd12ef70d28390998262abf6f8a"><div class="ttname"><a href="../../de/df1/util_8c.html#a9c742dd12ef70d28390998262abf6f8a">rv_strdup</a></div><div class="ttdeci">#define rv_strdup(s, rve)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l02994">util.c:2994</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html">ruby.h</a></div></div>
<div class="ttc" id="numeric_8c_html_ab51e57479919fd1978d19ccbb3e5b167"><div class="ttname"><a href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a></div><div class="ttdeci">#define DBL_DIG</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00058">numeric.c:58</a></div></div>
<div class="ttc" id="util_8c_html_a4d9112a7c5ed6d6405e518d4f10f997b"><div class="ttname"><a href="../../de/df1/util_8c.html#a4d9112a7c5ed6d6405e518d4f10f997b">dmanh_get</a></div><div class="ttdeci">#define dmanh_get(u)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03770">util.c:3770</a></div></div>
<div class="ttc" id="util_8c_html_ae688d728e1acdfe5988c7db45d6f0166"><div class="ttname"><a href="../../de/df1/util_8c.html#ae688d728e1acdfe5988c7db45d6f0166">PATH_MAX</a></div><div class="ttdeci">#define PATH_MAX</div></div>
<div class="ttc" id="util_8c_html_a09b1d0b06c3c96a5c909403d35df302f"><div class="ttname"><a href="../../de/df1/util_8c.html#a09b1d0b06c3c96a5c909403d35df302f">pow5mult</a></div><div class="ttdeci">static Bigint * pow5mult(Bigint *b, int k)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01289">util.c:1289</a></div></div>
<div class="ttc" id="structstack__node_html"><div class="ttname"><a href="../../d6/dc4/structstack__node.html">stack_node</a></div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00264">util.c:264</a></div></div>
<div class="ttc" id="util_8c_html_a29707662e44b4555806b7e10db37e229"><div class="ttname"><a href="../../de/df1/util_8c.html#a29707662e44b4555806b7e10db37e229">med3</a></div><div class="ttdeci">#define med3(a, b, c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00268">util.c:268</a></div></div>
<div class="ttc" id="util_8c_html_aa258ff5c9670492b514c622717c2f3fa"><div class="ttname"><a href="../../de/df1/util_8c.html#aa258ff5c9670492b514c622717c2f3fa">Exp_1</a></div><div class="ttdeci">#define Exp_1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00801">util.c:801</a></div></div>
<div class="ttc" id="util_8c_html_ad08b631b404348c194acf8fdf59e05ae"><div class="ttname"><a href="../../de/df1/util_8c.html#ad08b631b404348c194acf8fdf59e05ae">ruby_scan_hex</a></div><div class="ttdeci">unsigned long ruby_scan_hex(const char *start, size_t len, size_t *retlen)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00042">util.c:42</a></div></div>
<div class="ttc" id="util_8c_html_aadbad9fa5d0ffc6347c5d1e0d59eefa9"><div class="ttname"><a href="../../de/df1/util_8c.html#aadbad9fa5d0ffc6347c5d1e0d59eefa9">ZEROSTR</a></div><div class="ttdeci">static const char ZEROSTR[]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03012">util.c:3012</a></div></div>
<div class="ttc" id="util_8c_html_ac5848eab719d1538912e5ca5b011497d"><div class="ttname"><a href="../../de/df1/util_8c.html#ac5848eab719d1538912e5ca5b011497d">dmanl_get</a></div><div class="ttdeci">#define dmanl_get(u)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03771">util.c:3771</a></div></div>
<div class="ttc" id="util_8c_html_a60a2b72a9437564147596c3308b55845"><div class="ttname"><a href="../../de/df1/util_8c.html#a60a2b72a9437564147596c3308b55845">Kmax</a></div><div class="ttdeci">#define Kmax</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00952">util.c:952</a></div></div>
<div class="ttc" id="structstack__node_html_a03bbb7c8599400bbc9007111502fb2e3"><div class="ttname"><a href="../../d6/dc4/structstack__node.html#a03bbb7c8599400bbc9007111502fb2e3">stack_node::RR</a></div><div class="ttdeci">char * RR</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00264">util.c:264</a></div></div>
<div class="ttc" id="util_8c_html_a4a1aa87d88576b92517b427bb7e09e21"><div class="ttname"><a href="../../de/df1/util_8c.html#a4a1aa87d88576b92517b427bb7e09e21">Quick_max</a></div><div class="ttdeci">#define Quick_max</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00815">util.c:815</a></div></div>
<div class="ttc" id="ossl__ssl_8c_html_a86771351f4ef469ab9c94739a64fd7ea"><div class="ttname"><a href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a></div><div class="ttdeci">SSL_METHOD *(* func)(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dd1/ossl__ssl_8c_source.html#l00104">ossl_ssl.c:104</a></div></div>
<div class="ttc" id="util_8c_html_a995bef2e60e116deb1c4ff1a048ef888"><div class="ttname"><a href="../../de/df1/util_8c.html#a995bef2e60e116deb1c4ff1a048ef888">DBL_MANL_SIZE</a></div><div class="ttdeci">#define DBL_MANL_SIZE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03765">util.c:3765</a></div></div>
<div class="ttc" id="util_8c_html_a0ff2aa401024cf1d9c294764d3989d5f"><div class="ttname"><a href="../../de/df1/util_8c.html#a0ff2aa401024cf1d9c294764d3989d5f">Tiny0</a></div><div class="ttdeci">#define Tiny0</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00813">util.c:813</a></div></div>
<div class="ttc" id="struct_bigint_html_a4380eb98f7653bb74d8377c0d68d6cb7"><div class="ttname"><a href="../../df/d49/struct_bigint.html#a4380eb98f7653bb74d8377c0d68d6cb7">Bigint::sign</a></div><div class="ttdeci">int sign</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00956">util.c:956</a></div></div>
<div class="ttc" id="util_8c_html_a7c80938abca604122c8f7afb66d59331"><div class="ttname"><a href="../../de/df1/util_8c.html#a7c80938abca604122c8f7afb66d59331">Bletch</a></div><div class="ttdeci">#define Bletch</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00807">util.c:807</a></div></div>
<div class="ttc" id="util_8c_html_a399addec7e96fb94683a52a093e5512d"><div class="ttname"><a href="../../de/df1/util_8c.html#a399addec7e96fb94683a52a093e5512d">mmswap_</a></div><div class="ttdeci">static void mmswap_(register char *a, register char *b, int mmkind, size_t size, size_t high, size_t low)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00206">util.c:206</a></div></div>
<div class="ttc" id="util_8c_html_ac4cf4b2ab929bd23951a8676eeac086b"><div class="ttname"><a href="../../de/df1/util_8c.html#ac4cf4b2ab929bd23951a8676eeac086b">C</a></div><div class="ttdeci">#define C</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00192">util.c:192</a></div></div>
<div class="ttc" id="util_8c_html_a2cc18d072422c680e603ff5ee1d44e31"><div class="ttname"><a href="../../de/df1/util_8c.html#a2cc18d072422c680e603ff5ee1d44e31">ulp</a></div><div class="ttdeci">static double ulp(double x_)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01510">util.c:1510</a></div></div>
<div class="ttc" id="util_8c_html_a9b21b8e0cb3af7c9d736d923c0870886"><div class="ttname"><a href="../../de/df1/util_8c.html#a9b21b8e0cb3af7c9d736d923c0870886">Storeinc</a></div><div class="ttdeci">#define Storeinc(a, b, c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00779">util.c:779</a></div></div>
<div class="ttc" id="util_8c_html_af4d1f814f7bcd9a50ee45efea0942d99"><div class="ttname"><a href="../../de/df1/util_8c.html#af4d1f814f7bcd9a50ee45efea0942d99">Bigint</a></div><div class="ttdeci">struct Bigint Bigint</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00960">util.c:960</a></div></div>
<div class="ttc" id="util_8c_html_af2bdae8b2a1a2c6cc68215ef219d2673"><div class="ttname"><a href="../../de/df1/util_8c.html#af2bdae8b2a1a2c6cc68215ef219d2673">Int_max</a></div><div class="ttdeci">#define Int_max</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00816">util.c:816</a></div></div>
<div class="ttc" id="util_8c_html_a3390bb384fe7269bfb9b854a7de1d8c9"><div class="ttname"><a href="../../de/df1/util_8c.html#a3390bb384fe7269bfb9b854a7de1d8c9">Ebits</a></div><div class="ttdeci">#define Ebits</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00803">util.c:803</a></div></div>
<div class="ttc" id="util_8c_html_a4c4c8560d0f1ca391ca934a0c8a3c068"><div class="ttname"><a href="../../de/df1/util_8c.html#a4c4c8560d0f1ca391ca934a0c8a3c068">PRIVATE_mem</a></div><div class="ttdeci">#define PRIVATE_mem</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00689">util.c:689</a></div></div>
<div class="ttc" id="bignum_8c_html_ab615ddd0d086b80219cd7e0345d6b5ef"><div class="ttname"><a href="../../d1/dcc/bignum_8c.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a></div><div class="ttdeci">#define ISDIGIT(c)</div></div>
<div class="ttc" id="util_8c_html_a955f504eccf76b4eb2489c0adab03121"><div class="ttname"><a href="../../de/df1/util_8c.html#a955f504eccf76b4eb2489c0adab03121">A</a></div><div class="ttdeci">#define A</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00190">util.c:190</a></div></div>
<div class="ttc" id="util_8c_html_af57c0f364dc2d4844f7aeba09395fa3d"><div class="ttname"><a href="../../de/df1/util_8c.html#af57c0f364dc2d4844f7aeba09395fa3d">hi0bits</a></div><div class="ttdeci">static int hi0bits(register ULong x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01103">util.c:1103</a></div></div>
<div class="ttc" id="util_8c_html_a93c6f925a1400f6bd77bac0b25a616aa"><div class="ttname"><a href="../../de/df1/util_8c.html#a93c6f925a1400f6bd77bac0b25a616aa">lshift</a></div><div class="ttdeci">static Bigint * lshift(Bigint *b, int k)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01341">util.c:1341</a></div></div>
<div class="ttc" id="file_8h_html"><div class="ttname"><a href="../../d2/d4d/file_8h.html">file.h</a></div></div>
<div class="ttc" id="struct_bigint_html"><div class="ttname"><a href="../../df/d49/struct_bigint.html">Bigint</a></div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00954">util.c:954</a></div></div>
<div class="ttc" id="util_8c_html_ab3239bcfc1383570ccf538974d7b7e86"><div class="ttname"><a href="../../de/df1/util_8c.html#ab3239bcfc1383570ccf538974d7b7e86">NANSTR</a></div><div class="ttdeci">static const char NANSTR[]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03011">util.c:3011</a></div></div>
<div class="ttc" id="util_8c_html_ae90ee92993a4c23db3d96d1e204e340d"><div class="ttname"><a href="../../de/df1/util_8c.html#ae90ee92993a4c23db3d96d1e204e340d">private_mem</a></div><div class="ttdeci">static double private_mem[PRIVATE_mem]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00690">util.c:690</a></div></div>
<div class="ttc" id="numeric_8c_html_a75425646ce3c79cbc0a8e9613f3d9c17"><div class="ttname"><a href="../../d6/d27/numeric_8c.html#a75425646ce3c79cbc0a8e9613f3d9c17">DBL_MAX_10_EXP</a></div><div class="ttdeci">#define DBL_MAX_10_EXP</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00055">numeric.c:55</a></div></div>
<div class="ttc" id="util_8c_html_a525d3ca9955b22e489a749a548831a1d"><div class="ttname"><a href="../../de/df1/util_8c.html#a525d3ca9955b22e489a749a548831a1d">LSB</a></div><div class="ttdeci">#define LSB</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00810">util.c:810</a></div></div>
<div class="ttc" id="win32ole_8c_html_a4b5a598a4f53b3724549c48dcfbf7c48"><div class="ttname"><a href="../../d2/d99/win32ole_8c.html#a4b5a598a4f53b3724549c48dcfbf7c48">p</a></div><div class="ttdeci">Win32OLEIDispatch * p</div><div class="ttdef"><b>Definition:</b> <a href="../../d2/d99/win32ole_8c_source.html#l00778">win32ole.c:778</a></div></div>
<div class="ttc" id="struct_bigint_html_ae56981315f471a190603887aee98ca99"><div class="ttname"><a href="../../df/d49/struct_bigint.html#ae56981315f471a190603887aee98ca99">Bigint::x</a></div><div class="ttdeci">ULong x[1]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00957">util.c:957</a></div></div>
<div class="ttc" id="util_8c_html_abf22a1cc99d53140ccdf6c3952c7f508"><div class="ttname"><a href="../../de/df1/util_8c.html#abf22a1cc99d53140ccdf6c3952c7f508">Emin</a></div><div class="ttdeci">#define Emin</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00800">util.c:800</a></div></div>
<div class="ttc" id="util_8c_html_a2093e4ecafa835f761719259cdd394ed"><div class="ttname"><a href="../../de/df1/util_8c.html#a2093e4ecafa835f761719259cdd394ed">nrv_alloc</a></div><div class="ttdeci">static char * nrv_alloc(const char *s, char **rve, size_t n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l02983">util.c:2983</a></div></div>
<div class="ttc" id="date__strptime_8c_html_a73a3b169ac8c3419cbe15327e75ffcfd"><div class="ttname"><a href="../../d9/df5/date__strptime_8c.html#a73a3b169ac8c3419cbe15327e75ffcfd">fail</a></div><div class="ttdeci">#define fail()</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/df5/date__strptime_8c_source.html#l00117">date_strptime.c:117</a></div></div>
<div class="ttc" id="util_8c_html_a8e8fece1facbb8785a87eb032e731990"><div class="ttname"><a href="../../de/df1/util_8c.html#a8e8fece1facbb8785a87eb032e731990">dexp_get</a></div><div class="ttdeci">#define dexp_get(u)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03768">util.c:3768</a></div></div>
<div class="ttc" id="util_8c_html_a49789619ab490f1b59a5e3b6f5a12593"><div class="ttname"><a href="../../de/df1/util_8c.html#a49789619ab490f1b59a5e3b6f5a12593">scan_digits</a></div><div class="ttdeci">static unsigned long scan_digits(const char *str, int base, size_t *retlen, int *overflow)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00059">util.c:59</a></div></div>
<div class="ttc" id="util_8c_html_a111da81ae5883147168bbb8366377b10"><div class="ttname"><a href="../../de/df1/util_8c.html#a111da81ae5883147168bbb8366377b10">B</a></div><div class="ttdeci">#define B</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00191">util.c:191</a></div></div>
<div class="ttc" id="util_8c_html_a6017ed8769d5e61958b3a5e7344867ac"><div class="ttname"><a href="../../de/df1/util_8c.html#a6017ed8769d5e61958b3a5e7344867ac">Exp_mask</a></div><div class="ttdeci">#define Exp_mask</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00797">util.c:797</a></div></div>
<div class="ttc" id="util_8c_html_ab925efe1cb96e8cfb4c70b5fcb7cbfbb"><div class="ttname"><a href="../../de/df1/util_8c.html#ab925efe1cb96e8cfb4c70b5fcb7cbfbb">Rounding</a></div><div class="ttdeci">#define Rounding</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00837">util.c:837</a></div></div>
<div class="ttc" id="util_8c_html_a5259fef784f48e6d345d7c1338bc46cf"><div class="ttname"><a href="../../de/df1/util_8c.html#a5259fef784f48e6d345d7c1338bc46cf">quorem</a></div><div class="ttdeci">static int quorem(Bigint *b, Bigint *S)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l02858">util.c:2858</a></div></div>
<div class="ttc" id="util_8c_html_acf5cb44ae7677d260734f2a3c4300d40"><div class="ttname"><a href="../../de/df1/util_8c.html#acf5cb44ae7677d260734f2a3c4300d40">DBL_MANH_SIZE</a></div><div class="ttdeci">#define DBL_MANH_SIZE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03764">util.c:3764</a></div></div>
<div class="ttc" id="isinf_8c_html_a94762b8530d28b85e67db02b97f3ee37"><div class="ttname"><a href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a></div><div class="ttdeci">static double one(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00052">isinf.c:52</a></div></div>
<div class="ttc" id="util_8c_html_a4fd98445d772ae9d9b92f1f23fb228a5"><div class="ttname"><a href="../../de/df1/util_8c.html#a4fd98445d772ae9d9b92f1f23fb228a5">n_bigtens</a></div><div class="ttdeci">#define n_bigtens</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01809">util.c:1809</a></div></div>
<div class="ttc" id="util_8c_html_af1f952c71c795fb3b11fc916665fe2dc"><div class="ttname"><a href="../../de/df1/util_8c.html#af1f952c71c795fb3b11fc916665fe2dc">SIGFIGS</a></div><div class="ttdeci">#define SIGFIGS</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03767">util.c:3767</a></div></div>
<div class="ttc" id="util_8c_html_a7511246e9383c6f977262f72e2c97504"><div class="ttname"><a href="../../de/df1/util_8c.html#a7511246e9383c6f977262f72e2c97504">POP</a></div><div class="ttdeci">#define POP(ll, rr)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00266">util.c:266</a></div></div>
<div class="ttc" id="util_8c_html_ad1db7929322cfb6d39c183e032d4c680"><div class="ttname"><a href="../../de/df1/util_8c.html#ad1db7929322cfb6d39c183e032d4c680">Bndry_mask1</a></div><div class="ttdeci">#define Bndry_mask1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00809">util.c:809</a></div></div>
<div class="ttc" id="util_8c_html_a3c1e963e55f98f784bcbdc8391768b88"><div class="ttname"><a href="../../de/df1/util_8c.html#a3c1e963e55f98f784bcbdc8391768b88">ruby_qsort</a></div><div class="ttdeci">void ruby_qsort(void *base, const size_t nel, const size_t size, int(*cmp)(const void *, const void *, void *), void *d)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00273">util.c:273</a></div></div>
<div class="ttc" id="missing_8h_html_ae7a5ae88899707625ed6ab2ec7045583"><div class="ttname"><a href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a></div><div class="ttdeci">RUBY_EXTERN int isinf(double)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00056">isinf.c:56</a></div></div>
<div class="ttc" id="struct_bigint_html_a5ffcac6f95ded3bc1fc23204f46f10d0"><div class="ttname"><a href="../../df/d49/struct_bigint.html#a5ffcac6f95ded3bc1fc23204f46f10d0">Bigint::maxwds</a></div><div class="ttdeci">int maxwds</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00956">util.c:956</a></div></div>
<div class="ttc" id="union_u_html_a6379e5194213c802bb8c6786eca8ad50"><div class="ttname"><a href="../../d9/db2/union_u.html#a6379e5194213c802bb8c6786eca8ad50">U::d</a></div><div class="ttdeci">double d</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00750">util.c:750</a></div></div>
<div class="ttc" id="util_8c_html_a6ac718b5ee70bc12a8d8d315aa2d321c"><div class="ttname"><a href="../../de/df1/util_8c.html#a6ac718b5ee70bc12a8d8d315aa2d321c">s2b</a></div><div class="ttdeci">static Bigint * s2b(const char *s, int nd0, int nd, ULong y9)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01069">util.c:1069</a></div></div>
<div class="ttc" id="util_8c_html_af76ccd58185261778dbfc0c5f13d9f83"><div class="ttname"><a href="../../de/df1/util_8c.html#af76ccd58185261778dbfc0c5f13d9f83">pmem_next</a></div><div class="ttdeci">static double * pmem_next</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00690">util.c:690</a></div></div>
<div class="ttc" id="union_u_html"><div class="ttname"><a href="../../d9/db2/union_u.html">U</a></div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00750">util.c:750</a></div></div>
<div class="ttc" id="util_8c_html_a436eaf8c1d2e32d0cb8b4ecd2352ec8f"><div class="ttname"><a href="../../de/df1/util_8c.html#a436eaf8c1d2e32d0cb8b4ecd2352ec8f">ruby_strtod</a></div><div class="ttdeci">double ruby_strtod(const char *s00, char **se)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01903">util.c:1903</a></div></div>
<div class="ttc" id="util_8c_html_ada662962a67790a41662e7f9bdef2fbe"><div class="ttname"><a href="../../de/df1/util_8c.html#ada662962a67790a41662e7f9bdef2fbe">Scale_Bit</a></div><div class="ttdeci">#define Scale_Bit</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01808">util.c:1808</a></div></div>
<div class="ttc" id="util_8c_html_a2d51cf120146e6ab93e413401201fdd8"><div class="ttname"><a href="../../de/df1/util_8c.html#a2d51cf120146e6ab93e413401201fdd8">IEEE_Arith</a></div><div class="ttdeci">#define IEEE_Arith</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00699">util.c:699</a></div></div>
<div class="ttc" id="__sdbm_8c_html_ad65a8842cc674e3ddf69355898c0ecbf"><div class="ttname"><a href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a></div><div class="ttdeci">int errno</div></div>
<div class="ttc" id="util_8h_html"><div class="ttname"><a href="../../d8/d3c/util_8h.html">util.h</a></div></div>
<div class="ttc" id="util_8c_html_aa112b30f67ae87ee166cb9b5e25a7b23"><div class="ttname"><a href="../../de/df1/util_8c.html#aa112b30f67ae87ee166cb9b5e25a7b23">tens</a></div><div class="ttdeci">static const double tens[]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01786">util.c:1786</a></div></div>
<div class="ttc" id="util_8c_html_a09227e189a0ccbe91a702ddd894940ee"><div class="ttname"><a href="../../de/df1/util_8c.html#a09227e189a0ccbe91a702ddd894940ee">rounded_product</a></div><div class="ttdeci">#define rounded_product(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00910">util.c:910</a></div></div>
<div class="ttc" id="struct_bigint_html_aa737992ebddb9d6a7e2d23bfecdb080e"><div class="ttname"><a href="../../df/d49/struct_bigint.html#aa737992ebddb9d6a7e2d23bfecdb080e">Bigint::wds</a></div><div class="ttdeci">int wds</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00956">util.c:956</a></div></div>
<div class="ttc" id="util_8c_html_a6d1975babb320c6088539b603b6d5d95"><div class="ttname"><a href="../../de/df1/util_8c.html#a6d1975babb320c6088539b603b6d5d95">INFSTR</a></div><div class="ttdeci">static const char INFSTR[]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03010">util.c:3010</a></div></div>
<div class="ttc" id="util_8c_html_aed409c11e0ed29788b5988ea726cb30e"><div class="ttname"><a href="../../de/df1/util_8c.html#aed409c11e0ed29788b5988ea726cb30e">Avoid_Underflow</a></div><div class="ttdeci">#define Avoid_Underflow</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00818">util.c:818</a></div></div>
<div class="ttc" id="nkf-utf8_2nkf_8c_html_ac37f17a60c8b5533aac4840c681f62b8"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a></div><div class="ttdeci">unsigned char buf[MIME_BUF_SIZE]</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l03913">nkf.c:3913</a></div></div>
<div class="ttc" id="internal_8h_html"><div class="ttname"><a href="../../db/dde/internal_8h.html">internal.h</a></div></div>
<div class="ttc" id="ripper_8c_html_a4109fdcadec8be93f3e91500b5f46fe4"><div class="ttname"><a href="../../d5/d11/ripper_8c.html#a4109fdcadec8be93f3e91500b5f46fe4">no_digits</a></div><div class="ttdeci">#define no_digits()</div></div>
<div class="ttc" id="util_8c_html_a92490e11aa7d7a0444b9ba7187df2b21"><div class="ttname"><a href="../../de/df1/util_8c.html#a92490e11aa7d7a0444b9ba7187df2b21">bigtens</a></div><div class="ttdeci">static const double bigtens[]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01797">util.c:1797</a></div></div>
<div class="ttc" id="util_8c_html_ae3b60d76128298cf2780a4612b47befe"><div class="ttname"><a href="../../de/df1/util_8c.html#ae3b60d76128298cf2780a4612b47befe">cmp</a></div><div class="ttdeci">static int cmp(Bigint *a, Bigint *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01395">util.c:1395</a></div></div>
<div class="ttc" id="util_8c_html_ae4965879c4ea641940c6e8a190df8142"><div class="ttname"><a href="../../de/df1/util_8c.html#ae4965879c4ea641940c6e8a190df8142">Log2P</a></div><div class="ttdeci">#define Log2P</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00812">util.c:812</a></div></div>
<div class="ttc" id="util_8c_html_a34f631126fba1aa87949f45721457cd1"><div class="ttname"><a href="../../de/df1/util_8c.html#a34f631126fba1aa87949f45721457cd1">rounded_quotient</a></div><div class="ttdeci">#define rounded_quotient(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00911">util.c:911</a></div></div>
<div class="ttc" id="util_8c_html_a919786478066daa9220b388510221b6e"><div class="ttname"><a href="../../de/df1/util_8c.html#a919786478066daa9220b388510221b6e">multadd</a></div><div class="ttdeci">static Bigint * multadd(Bigint *b, int m, int a)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01018">util.c:1018</a></div></div>
<div class="ttc" id="dir_8c_html_a99c0c80536c9a3937814525bb5f8a7ad"><div class="ttname"><a href="../../de/d32/dir_8c.html#a99c0c80536c9a3937814525bb5f8a7ad">strchr</a></div><div class="ttdeci">char * strchr(char *, char)</div></div>
<div class="ttc" id="util_8c_html_a1064d3e97f2c0a459a42eed3e18dd9e5"><div class="ttname"><a href="../../de/df1/util_8c.html#a1064d3e97f2c0a459a42eed3e18dd9e5">b2d</a></div><div class="ttdeci">static double b2d(Bigint *a, int *e)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01548">util.c:1548</a></div></div>
<div class="ttc" id="util_8c_html_a60c21efe38979482c071108abd8431d0"><div class="ttname"><a href="../../de/df1/util_8c.html#a60c21efe38979482c071108abd8431d0">Ten_pmax</a></div><div class="ttdeci">#define Ten_pmax</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00806">util.c:806</a></div></div>
<div class="ttc" id="name2ctype_8h_html_aed1cc4dca5d94cb452f79691f54f7423"><div class="ttname"><a href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a></div><div class="ttdeci">register unsigned int len</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d15/name2ctype_8h_source.html#l22210">name2ctype.h:22210</a></div></div>
<div class="ttc" id="util_8c_html_a5332319460f12bab6814d4638130d2de"><div class="ttname"><a href="../../de/df1/util_8c.html#a5332319460f12bab6814d4638130d2de">mmswap</a></div><div class="ttdeci">#define mmswap(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00229">util.c:229</a></div></div>
<div class="ttc" id="win32_8h_html_a2e1baae9134e580910322362dc23290e"><div class="ttname"><a href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a></div><div class="ttdeci">#define isnan(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/db1/win32_8h_source.html#l00334">win32.h:334</a></div></div>
<div class="ttc" id="error_8c_html_aec0502b6d84cff19bb2071d1386ff177"><div class="ttname"><a href="../../db/dcc/error_8c.html#aec0502b6d84cff19bb2071d1386ff177">rb_sys_fail</a></div><div class="ttdeci">void rb_sys_fail(const char *mesg)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l01671">error.c:1671</a></div></div>
<div class="ttc" id="util_8c_html_a3e218828af7ddd3f4cd0d3772562b520"><div class="ttname"><a href="../../de/df1/util_8c.html#a3e218828af7ddd3f4cd0d3772562b520">MALLOC</a></div><div class="ttdeci">#define MALLOC</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00677">util.c:677</a></div></div>
<div class="ttc" id="acosh_8c_html_aeb343417fe0051b641fc7921022c7b0d"><div class="ttname"><a href="../../d7/deb/acosh_8c.html#aeb343417fe0051b641fc7921022c7b0d">DBL_MANT_DIG</a></div><div class="ttdeci">#define DBL_MANT_DIG</div><div class="ttdef"><b>Definition:</b> <a href="../../d7/deb/acosh_8c_source.html#l00019">acosh.c:19</a></div></div>
<div class="ttc" id="util_8c_html_a41b55bb8829507cb221f0fa73f71bb64"><div class="ttname"><a href="../../de/df1/util_8c.html#a41b55bb8829507cb221f0fa73f71bb64">Tiny1</a></div><div class="ttdeci">#define Tiny1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00814">util.c:814</a></div></div>
<div class="ttc" id="util_8c_html_a0378f05bb0539a1ed6149576a0919413"><div class="ttname"><a href="../../de/df1/util_8c.html#a0378f05bb0539a1ed6149576a0919413">ULLong</a></div><div class="ttdeci">#define ULLong</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00938">util.c:938</a></div></div>
<div class="ttc" id="util_8c_html_a3bd6bbe2f9344552f2f6f0bf75edcd03"><div class="ttname"><a href="../../de/df1/util_8c.html#a3bd6bbe2f9344552f2f6f0bf75edcd03">word1</a></div><div class="ttdeci">#define word1(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00766">util.c:766</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a308d9dd2c0028ddb184b455bbd7865de"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a308d9dd2c0028ddb184b455bbd7865de">CHAR_BIT</a></div><div class="ttdeci">#define CHAR_BIT</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00192">ruby.h:192</a></div></div>
<div class="ttc" id="numeric_8c_html_a539f2dd258b96fac8f4dc9bc139d75c9"><div class="ttname"><a href="../../d6/d27/numeric_8c.html#a539f2dd258b96fac8f4dc9bc139d75c9">DBL_MAX_EXP</a></div><div class="ttdeci">#define DBL_MAX_EXP</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00049">numeric.c:49</a></div></div>
<div class="ttc" id="defines_8h_html_afca9b96f6a61eebbcdd7e6b3fc31ed97"><div class="ttname"><a href="../../d8/db0/defines_8h.html#afca9b96f6a61eebbcdd7e6b3fc31ed97">xfree</a></div><div class="ttdeci">void xfree(void *)</div></div>
<div class="ttc" id="util_8c_html_ac5ad15d577e5f9f3bbb4838f6775642d"><div class="ttname"><a href="../../de/df1/util_8c.html#ac5ad15d577e5f9f3bbb4838f6775642d">ruby_scan_oct</a></div><div class="ttdeci">unsigned long ruby_scan_oct(const char *start, size_t len, size_t *retlen)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00028">util.c:28</a></div></div>
<div class="ttc" id="util_8c_html_a378d943248be35522176eb929d168dea"><div class="ttname"><a href="../../de/df1/util_8c.html#a378d943248be35522176eb929d168dea">p5s</a></div><div class="ttdeci">static Bigint * p5s</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01286">util.c:1286</a></div></div>
<div class="ttc" id="sha2_8h_html_a435d1572bf3f880d55459d9805097f62"><div class="ttname"><a href="../../db/d4d/sha2_8h.html#a435d1572bf3f880d55459d9805097f62">uint32_t</a></div><div class="ttdeci">unsigned int uint32_t</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d4d/sha2_8h_source.html#l00101">sha2.h:101</a></div></div>
<div class="ttc" id="util_8c_html_a328cff0f8990e802688af178354211ff"><div class="ttname"><a href="../../de/df1/util_8c.html#a328cff0f8990e802688af178354211ff">Bndry_mask</a></div><div class="ttdeci">#define Bndry_mask</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00808">util.c:808</a></div></div>
<div class="ttc" id="nkf-utf8_2nkf_8c_html_a3fdd42ea34070a54e696b3adc28c4be3"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#a3fdd42ea34070a54e696b3adc28c4be3">top</a></div><div class="ttdeci">unsigned int top</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l03914">nkf.c:3914</a></div></div>
<div class="ttc" id="util_8c_html_a3cdf09825a8bdf678dceeeaeb6d44ce2"><div class="ttname"><a href="../../de/df1/util_8c.html#a3cdf09825a8bdf678dceeeaeb6d44ce2">IEEE_LITTLE_ENDIAN</a></div><div class="ttdeci">#define IEEE_LITTLE_ENDIAN</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00633">util.c:633</a></div></div>
<div class="ttc" id="util_8c_html_ab48843da1ee5cd92ff22ff6f85c87d0b"><div class="ttname"><a href="../../de/df1/util_8c.html#ab48843da1ee5cd92ff22ff6f85c87d0b">Exp_shift1</a></div><div class="ttdeci">#define Exp_shift1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00794">util.c:794</a></div></div>
<div class="ttc" id="encoding_8c_html_a439227feff9d7f55384e8780cfc2eb82"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a></div><div class="ttdeci">int size</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00051">encoding.c:51</a></div></div>
<div class="ttc" id="util_8c_html_aa989068869dd496f72de53c9487c7928"><div class="ttname"><a href="../../de/df1/util_8c.html#aa989068869dd496f72de53c9487c7928">DBL_ADJ</a></div><div class="ttdeci">#define DBL_ADJ</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03766">util.c:3766</a></div></div>
<div class="ttc" id="util_8c_html_a2a8c76789579ca99ff38f31fa59d9fb9"><div class="ttname"><a href="../../de/df1/util_8c.html#a2a8c76789579ca99ff38f31fa59d9fb9">d2b</a></div><div class="ttdeci">static Bigint * d2b(double d_, int *e, int *bits)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01613">util.c:1613</a></div></div>
<div class="ttc" id="defines_8h_html_a6af5faec3f9662b20ffc9903f923dec0"><div class="ttname"><a href="../../d8/db0/defines_8h.html#a6af5faec3f9662b20ffc9903f923dec0">xmalloc</a></div><div class="ttdeci">#define xmalloc</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/db0/defines_8h_source.html#l00064">defines.h:64</a></div></div>
<div class="ttc" id="util_8c_html_a7672c655e2032063f8a387b5e887e9ea"><div class="ttname"><a href="../../de/df1/util_8c.html#a7672c655e2032063f8a387b5e887e9ea">PUSH</a></div><div class="ttdeci">#define PUSH(ll, rr)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00265">util.c:265</a></div></div>
<div class="ttc" id="util_8c_html_aaae4bb31b93521be9692f9da0bc647fb"><div class="ttname"><a href="../../de/df1/util_8c.html#aaae4bb31b93521be9692f9da0bc647fb">ruby_hdtoa</a></div><div class="ttdeci">char * ruby_hdtoa(double d, const char *xdigs, int ndigits, int *decpt, int *sign, char **rve)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03799">util.c:3799</a></div></div>
<div class="ttc" id="util_8c_html_a0997add05e477b3a97fcb24f1600468e"><div class="ttname"><a href="../../de/df1/util_8c.html#a0997add05e477b3a97fcb24f1600468e">Exp_msk11</a></div><div class="ttdeci">#define Exp_msk11</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00796">util.c:796</a></div></div>
<div class="ttc" id="util_8c_html_a74ecdf678c58c70da909748efeb0721b"><div class="ttname"><a href="../../de/df1/util_8c.html#a74ecdf678c58c70da909748efeb0721b">double_u</a></div><div class="ttdeci">U double_u</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00763">util.c:763</a></div></div>
<div class="ttc" id="util_8c_html_a43ee899575a77aa4154e188c522e7875"><div class="ttname"><a href="../../de/df1/util_8c.html#a43ee899575a77aa4154e188c522e7875">Frac_mask1</a></div><div class="ttdeci">#define Frac_mask1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00805">util.c:805</a></div></div>
<div class="ttc" id="util_8c_html_a1f3a0f9150a393b662d93578d7f0f581"><div class="ttname"><a href="../../de/df1/util_8c.html#a1f3a0f9150a393b662d93578d7f0f581">FREE_DTOA_LOCK</a></div><div class="ttdeci">#define FREE_DTOA_LOCK(n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00949">util.c:949</a></div></div>
<div class="ttc" id="util_8c_html_ad1cb12c7fed9a6ea098b7a4432b66ed8"><div class="ttname"><a href="../../de/df1/util_8c.html#ad1cb12c7fed9a6ea098b7a4432b66ed8">mmprepare</a></div><div class="ttdeci">#define mmprepare(base, size)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00195">util.c:195</a></div></div>
<div class="ttc" id="util_8c_html_aad99127d6afea8b64429276031c4e9d1"><div class="ttname"><a href="../../de/df1/util_8c.html#aad99127d6afea8b64429276031c4e9d1">mmrot3</a></div><div class="ttdeci">#define mmrot3(a, b, c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00253">util.c:253</a></div></div>
<div class="ttc" id="util_8c_html_a84207aa1bd71cbf7b683da325e61d0e5"><div class="ttname"><a href="../../de/df1/util_8c.html#a84207aa1bd71cbf7b683da325e61d0e5">diff</a></div><div class="ttdeci">static Bigint * diff(Bigint *a, Bigint *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01424">util.c:1424</a></div></div>
<div class="ttc" id="util_8c_html_ae709fda6b3328d495c3addb13d51c8ec"><div class="ttname"><a href="../../de/df1/util_8c.html#ae709fda6b3328d495c3addb13d51c8ec">Big0</a></div><div class="ttdeci">#define Big0</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00914">util.c:914</a></div></div>
<div class="ttc" id="struct_bigint_html_a3a1296e26ef617e775d5e366e390e7fc"><div class="ttname"><a href="../../df/d49/struct_bigint.html#a3a1296e26ef617e775d5e366e390e7fc">Bigint::next</a></div><div class="ttdeci">struct Bigint * next</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00955">util.c:955</a></div></div>
<div class="ttc" id="win32ole_8c_html_ac4055e3a20b6b3af3d10590ea446ef6c"><div class="ttname"><a href="../../d2/d99/win32ole_8c.html#ac4055e3a20b6b3af3d10590ea446ef6c">v</a></div><div class="ttdeci">v</div><div class="ttdef"><b>Definition:</b> <a href="../../d2/d99/win32ole_8c_source.html#l00790">win32ole.c:790</a></div></div>
<div class="ttc" id="util_8c_html_a17838ce0aab7b674b231fa855935ed1b"><div class="ttname"><a href="../../de/df1/util_8c.html#a17838ce0aab7b674b231fa855935ed1b">Exp_msk1</a></div><div class="ttdeci">#define Exp_msk1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00795">util.c:795</a></div></div>
<div class="ttc" id="util_8c_html_ae5567a2ba4448098128614fe9779209b"><div class="ttname"><a href="../../de/df1/util_8c.html#ae5567a2ba4448098128614fe9779209b">ratio</a></div><div class="ttdeci">static double ratio(Bigint *a, Bigint *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01750">util.c:1750</a></div></div>
<div class="ttc" id="struct_bigint_html_a032d76e80da2f21df10c0794244d12f2"><div class="ttname"><a href="../../df/d49/struct_bigint.html#a032d76e80da2f21df10c0794244d12f2">Bigint::k</a></div><div class="ttdeci">int k</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00956">util.c:956</a></div></div>
<div class="ttc" id="defines_8h_html_a40740062faf2d95d4935112447c464ef"><div class="ttname"><a href="../../d8/db0/defines_8h.html#a40740062faf2d95d4935112447c464ef">xrealloc</a></div><div class="ttdeci">#define xrealloc</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/db0/defines_8h_source.html#l00067">defines.h:67</a></div></div>
<div class="ttc" id="util_8c_html_a85ddc89f574bd6b2b89ffe317f795d9a"><div class="ttname"><a href="../../de/df1/util_8c.html#a85ddc89f574bd6b2b89ffe317f795d9a">Bfree</a></div><div class="ttdeci">static void Bfree(Bigint *v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01000">util.c:1000</a></div></div>
<div class="ttc" id="util_8c_html_ad617f62b0e8e52faab151e40342bbaeb"><div class="ttname"><a href="../../de/df1/util_8c.html#ad617f62b0e8e52faab151e40342bbaeb">FFFFFFFF</a></div><div class="ttdeci">#define FFFFFFFF</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00921">util.c:921</a></div></div>
<div class="ttc" id="util_8c_html_a9c3e4ecad2eec019d25f50673456ba6f"><div class="ttname"><a href="../../de/df1/util_8c.html#a9c3e4ecad2eec019d25f50673456ba6f">ruby_strtoul</a></div><div class="ttdeci">unsigned long ruby_strtoul(const char *str, char **endptr, int base)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00106">util.c:106</a></div></div>
<div class="ttc" id="util_8c_html_a99e35e070982190437423aa4c0dfc963"><div class="ttname"><a href="../../de/df1/util_8c.html#a99e35e070982190437423aa4c0dfc963">Flt_Rounds</a></div><div class="ttdeci">#define Flt_Rounds</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00828">util.c:828</a></div></div>
<div class="ttc" id="util_8c_html_a9a431d5ed7fad39e62d7c7cce764c865"><div class="ttname"><a href="../../de/df1/util_8c.html#a9a431d5ed7fad39e62d7c7cce764c865">ruby_getcwd</a></div><div class="ttdeci">char * ruby_getcwd(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00437">util.c:437</a></div></div>
<div class="ttc" id="util_8c_html_a9a23542d2985646185cc8bc8e033112f"><div class="ttname"><a href="../../de/df1/util_8c.html#a9a23542d2985646185cc8bc8e033112f">ruby_each_words</a></div><div class="ttdeci">void ruby_each_words(const char *str, void(*func)(const char *, int, void *), void *arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03722">util.c:3722</a></div></div>
<div class="ttc" id="util_8c_html_a13258ad04a61012d19875fde32893fd1"><div class="ttname"><a href="../../de/df1/util_8c.html#a13258ad04a61012d19875fde32893fd1">mmrot3_</a></div><div class="ttdeci">static void mmrot3_(register char *a, register char *b, register char *c, int mmkind, size_t size, size_t high, size_t low)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00231">util.c:231</a></div></div>
<div class="ttc" id="name2ctype_8h_html_a86f2415763322050063a5502f87c9422"><div class="ttname"><a href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a></div><div class="ttdeci">#define long</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d15/name2ctype_8h_source.html#l00037">name2ctype.h:37</a></div></div>
<div class="ttc" id="util_8c_html_aa35df39ef3e9737363c1f3976895c167"><div class="ttname"><a href="../../de/df1/util_8c.html#aa35df39ef3e9737363c1f3976895c167">tinytens</a></div><div class="ttdeci">static const double tinytens[]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01798">util.c:1798</a></div></div>
<div class="ttc" id="util_8c_html_acb2492181a9c5310befb7e45e65c35c9"><div class="ttname"><a href="../../de/df1/util_8c.html#acb2492181a9c5310befb7e45e65c35c9">Bcopy</a></div><div class="ttdeci">#define Bcopy(x, y)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01014">util.c:1014</a></div></div>
<div class="ttc" id="util_8c_html_a9f4fed61dce8a790b612a69fe51a5890"><div class="ttname"><a href="../../de/df1/util_8c.html#a9f4fed61dce8a790b612a69fe51a5890">word0</a></div><div class="ttdeci">#define word0(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00765">util.c:765</a></div></div>
<div class="ttc" id="__sdbm_8c_html_a070d2ce7b6bb7e5c05602aa8c308d0c4"><div class="ttname"><a href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="ttdeci">#define NULL</div><div class="ttdef"><b>Definition:</b> <a href="../../d4/db0/__sdbm_8c_source.html#l00107">_sdbm.c:107</a></div></div>
<div class="ttc" id="util_8c_html_ab674969b3d40f12cf0c6527741651877"><div class="ttname"><a href="../../de/df1/util_8c.html#ab674969b3d40f12cf0c6527741651877">freelist</a></div><div class="ttdeci">static Bigint * freelist[Kmax+1]</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00962">util.c:962</a></div></div>
<div class="ttc" id="date__parse_8c_html_aafe6a0803e756e59e5af70fdb2dcc912"><div class="ttname"><a href="../../dd/d9f/date__parse_8c.html#aafe6a0803e756e59e5af70fdb2dcc912">match</a></div><div class="ttdeci">static int match(VALUE str, VALUE pat, VALUE hash, int(*cb)(VALUE, VALUE))</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/d9f/date__parse_8c_source.html#l00245">date_parse.c:245</a></div></div>
<div class="ttc" id="util_8c_html_af184552d63b7337750b0fe90e478a3b1"><div class="ttname"><a href="../../de/df1/util_8c.html#af184552d63b7337750b0fe90e478a3b1">Exp_11</a></div><div class="ttdeci">#define Exp_11</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00802">util.c:802</a></div></div>
<div class="ttc" id="util_8c_html_a563b7321ed8e8cd9f8e385235e518836"><div class="ttname"><a href="../../de/df1/util_8c.html#a563b7321ed8e8cd9f8e385235e518836">dval</a></div><div class="ttdeci">#define dval(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00771">util.c:771</a></div></div>
<div class="ttc" id="util_8c_html_a57b5174bb955510e4b50cd1fd84ed92a"><div class="ttname"><a href="../../de/df1/util_8c.html#a57b5174bb955510e4b50cd1fd84ed92a">ruby_strdup</a></div><div class="ttdeci">char * ruby_strdup(const char *str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00425">util.c:425</a></div></div>
<div class="ttc" id="util_8c_html_a6c58a4f88ea80abb02400331c8d4cd6f"><div class="ttname"><a href="../../de/df1/util_8c.html#a6c58a4f88ea80abb02400331c8d4cd6f">i2b</a></div><div class="ttdeci">static Bigint * i2b(int i)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01175">util.c:1175</a></div></div>
<div class="ttc" id="util_8c_html_aef4a05dd713fb211f532a2d64f32b5b3"><div class="ttname"><a href="../../de/df1/util_8c.html#aef4a05dd713fb211f532a2d64f32b5b3">mult</a></div><div class="ttdeci">static Bigint * mult(Bigint *a, Bigint *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l01186">util.c:1186</a></div></div>
<div class="ttc" id="util_8c_html_a4a718198deb1f843bf9791779dee6b01"><div class="ttname"><a href="../../de/df1/util_8c.html#a4a718198deb1f843bf9791779dee6b01">Bias</a></div><div class="ttdeci">#define Bias</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00799">util.c:799</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ae8cdc17e44905c826bddf416b7bf621c"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a></div><div class="ttdeci">#define ISSPACE(c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01453">ruby.h:1453</a></div></div>
<div class="ttc" id="util_8c_html_a3e6dc09a955126ee74b3870ac287e370"><div class="ttname"><a href="../../de/df1/util_8c.html#a3e6dc09a955126ee74b3870ac287e370">Frac_mask</a></div><div class="ttdeci">#define Frac_mask</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00804">util.c:804</a></div></div>
<div class="ttc" id="util_8c_html_a07374c5f75e3cc6b3698571623a8b2fc"><div class="ttname"><a href="../../de/df1/util_8c.html#a07374c5f75e3cc6b3698571623a8b2fc">Exp_shift</a></div><div class="ttdeci">#define Exp_shift</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00793">util.c:793</a></div></div>
<div class="ttc" id="util_8c_html_a3bf5a51c49d4b7747d3ef14982c6b74e"><div class="ttname"><a href="../../de/df1/util_8c.html#a3bf5a51c49d4b7747d3ef14982c6b74e">ruby_dtoa</a></div><div class="ttdeci">char * ruby_dtoa(double d_, int mode, int ndigits, int *decpt, int *sign, char **rve)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l03049">util.c:3049</a></div></div>
<div class="ttc" id="util_8c_html_a9a8e700d56e7d858108b755ad3edb52e"><div class="ttname"><a href="../../de/df1/util_8c.html#a9a8e700d56e7d858108b755ad3edb52e">FREE</a></div><div class="ttdeci">#define FREE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/df1/util_8c_source.html#l00682">util.c:682</a></div></div>
</div><!-- fragment --></div><!-- contents -->
<!-- start footer part -->
<hr class="footer"/><address class="footer"><small>
Generated by  <a href="http://www.doxygen.org/index.html">
<img class="footer" src="../../doxygen.png" alt="doxygen"/>
</a> 1.8.14
</small></address>
</body>
</html>