PageRenderTime 78ms CodeModel.GetById 43ms RepoModel.GetById 0ms app.codeStats 0ms

/a00977_source.html

https://github.com/krackeroda/contiki-doxygen
HTML | 2001 lines | 2000 code | 0 blank | 1 comment | 0 complexity | c4bf3e180ae0be45677dc0db11e1f134 MD5 | raw file

Large files files are truncated, but you can click here to view the full file

  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
  5. <title>Contiki 2.5: cpu/stm32w108/e_stdio/src/small_mprec.c Source File</title>
  6. <link href="tabs.css" rel="stylesheet" type="text/css"/>
  7. <link href="doxygen.css" rel="stylesheet" type="text/css"/>
  8. </head>
  9. <body>
  10. <!-- Generated by Doxygen 1.6.1 -->
  11. <div class="navigation" id="top">
  12. <div class="tabs">
  13. <ul>
  14. <li><a href="main.html"><span>Main&nbsp;Page</span></a></li>
  15. <li><a href="pages.html"><span>Related&nbsp;Pages</span></a></li>
  16. <li><a href="modules.html"><span>Modules</span></a></li>
  17. <li><a href="annotated.html"><span>Data&nbsp;Structures</span></a></li>
  18. <li class="current"><a href="files.html"><span>Files</span></a></li>
  19. <li><a href="dirs.html"><span>Directories</span></a></li>
  20. <li><a href="examples.html"><span>Examples</span></a></li>
  21. </ul>
  22. </div>
  23. <div class="tabs">
  24. <ul>
  25. <li><a href="files.html"><span>File&nbsp;List</span></a></li>
  26. <li><a href="globals.html"><span>Globals</span></a></li>
  27. </ul>
  28. </div>
  29. <div class="navpath"><a class="el" href="dir_2bb2cfd8296a7c3e25e97aa2e3d0a212.html">cpu</a>&nbsp;&raquo&nbsp;<a class="el" href="dir_e68658a80db834fb0d1d37b2918a44a9.html">stm32w108</a>&nbsp;&raquo&nbsp;<a class="el" href="dir_3f7decbb5751dc5c993c752361ce029c.html">e_stdio</a>&nbsp;&raquo&nbsp;<a class="el" href="dir_93ef7220dffdb5a19e30c8138778adf2.html">src</a>
  30. </div>
  31. </div>
  32. <div class="contents">
  33. <h1>small_mprec.c</h1><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/****************************************************************</span>
  34. <a name="l00002"></a>00002 <span class="comment"> *</span>
  35. <a name="l00003"></a>00003 <span class="comment"> * The author of this software is David M. Gay.</span>
  36. <a name="l00004"></a>00004 <span class="comment"> *</span>
  37. <a name="l00005"></a>00005 <span class="comment"> * Copyright (c) 1991 by AT&amp;T.</span>
  38. <a name="l00006"></a>00006 <span class="comment"> *</span>
  39. <a name="l00007"></a>00007 <span class="comment"> * Permission to use, copy, modify, and distribute this software for any</span>
  40. <a name="l00008"></a>00008 <span class="comment"> * purpose without fee is hereby granted, provided that this entire notice</span>
  41. <a name="l00009"></a>00009 <span class="comment"> * is included in all copies of any software which is or includes a copy</span>
  42. <a name="l00010"></a>00010 <span class="comment"> * or modification of this software and in all copies of the supporting</span>
  43. <a name="l00011"></a>00011 <span class="comment"> * documentation for such software.</span>
  44. <a name="l00012"></a>00012 <span class="comment"> *</span>
  45. <a name="l00013"></a>00013 <span class="comment"> * THIS SOFTWARE IS BEING PROVIDED &quot;AS IS&quot;, WITHOUT ANY EXPRESS OR IMPLIED</span>
  46. <a name="l00014"></a>00014 <span class="comment"> * WARRANTY. IN PARTICULAR, NEITHER THE AUTHOR NOR AT&amp;T MAKES ANY</span>
  47. <a name="l00015"></a>00015 <span class="comment"> * REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE MERCHANTABILITY</span>
  48. <a name="l00016"></a>00016 <span class="comment"> * OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR PURPOSE.</span>
  49. <a name="l00017"></a>00017 <span class="comment"> *</span>
  50. <a name="l00018"></a>00018 <span class="comment"> ***************************************************************/</span>
  51. <a name="l00019"></a>00019
  52. <a name="l00020"></a>00020 <span class="comment">/* Please send bug reports to</span>
  53. <a name="l00021"></a>00021 <span class="comment"> David M. Gay</span>
  54. <a name="l00022"></a>00022 <span class="comment"> AT&amp;T Bell Laboratories, Room 2C-463</span>
  55. <a name="l00023"></a>00023 <span class="comment"> 600 Mountain Avenue</span>
  56. <a name="l00024"></a>00024 <span class="comment"> Murray Hill, NJ 07974-2070</span>
  57. <a name="l00025"></a>00025 <span class="comment"> U.S.A.</span>
  58. <a name="l00026"></a>00026 <span class="comment"> dmg@research.att.com or research!dmg</span>
  59. <a name="l00027"></a>00027 <span class="comment"> */</span>
  60. <a name="l00028"></a>00028
  61. <a name="l00029"></a>00029 <span class="comment">/* strtod for IEEE-, VAX-, and IBM-arithmetic machines.</span>
  62. <a name="l00030"></a>00030 <span class="comment"> *</span>
  63. <a name="l00031"></a>00031 <span class="comment"> * This strtod returns a nearest machine number to the input decimal</span>
  64. <a name="l00032"></a>00032 <span class="comment"> * string (or sets errno to ERANGE). With IEEE arithmetic, ties are</span>
  65. <a name="l00033"></a>00033 <span class="comment"> * broken by the IEEE round-even rule. Otherwise ties are broken by</span>
  66. <a name="l00034"></a>00034 <span class="comment"> * biased rounding (add half and chop).</span>
  67. <a name="l00035"></a>00035 <span class="comment"> *</span>
  68. <a name="l00036"></a>00036 <span class="comment"> * Inspired loosely by William D. Clinger&apos;s paper &quot;How to Read Floating</span>
  69. <a name="l00037"></a>00037 <span class="comment"> * Point Numbers Accurately&quot; [Proc. ACM SIGPLAN &apos;90, pp. 92-101].</span>
  70. <a name="l00038"></a>00038 <span class="comment"> *</span>
  71. <a name="l00039"></a>00039 <span class="comment"> * Modifications:</span>
  72. <a name="l00040"></a>00040 <span class="comment"> *</span>
  73. <a name="l00041"></a>00041 <span class="comment"> * 1. We only require IEEE, IBM, or VAX double-precision</span>
  74. <a name="l00042"></a>00042 <span class="comment"> * arithmetic (not IEEE double-extended).</span>
  75. <a name="l00043"></a>00043 <span class="comment"> * 2. We get by with floating-point arithmetic in a case that</span>
  76. <a name="l00044"></a>00044 <span class="comment"> * Clinger missed -- when we&apos;re computing d * 10^n</span>
  77. <a name="l00045"></a>00045 <span class="comment"> * for a small integer d and the integer n is not too</span>
  78. <a name="l00046"></a>00046 <span class="comment"> * much larger than 22 (the maximum integer k for which</span>
  79. <a name="l00047"></a>00047 <span class="comment"> * we can represent 10^k exactly), we may be able to</span>
  80. <a name="l00048"></a>00048 <span class="comment"> * compute (d*10^k) * 10^(e-k) with just one roundoff.</span>
  81. <a name="l00049"></a>00049 <span class="comment"> * 3. Rather than a bit-at-a-time adjustment of the binary</span>
  82. <a name="l00050"></a>00050 <span class="comment"> * result in the hard case, we use floating-point</span>
  83. <a name="l00051"></a>00051 <span class="comment"> * arithmetic to determine the adjustment to within</span>
  84. <a name="l00052"></a>00052 <span class="comment"> * one bit; only in really hard cases do we need to</span>
  85. <a name="l00053"></a>00053 <span class="comment"> * compute a second residual.</span>
  86. <a name="l00054"></a>00054 <span class="comment"> * 4. Because of 3., we don&apos;t need a large table of powers of 10</span>
  87. <a name="l00055"></a>00055 <span class="comment"> * for ten-to-e (just some small tables, e.g. of 10^k</span>
  88. <a name="l00056"></a>00056 <span class="comment"> * for 0 &lt;= k &lt;= 22).</span>
  89. <a name="l00057"></a>00057 <span class="comment"> */</span>
  90. <a name="l00058"></a>00058
  91. <a name="l00059"></a>00059 <span class="comment">/*</span>
  92. <a name="l00060"></a>00060 <span class="comment"> * #define IEEE_8087 for IEEE-arithmetic machines where the least</span>
  93. <a name="l00061"></a>00061 <span class="comment"> * significant byte has the lowest address.</span>
  94. <a name="l00062"></a>00062 <span class="comment"> * #define IEEE_MC68k for IEEE-arithmetic machines where the most</span>
  95. <a name="l00063"></a>00063 <span class="comment"> * significant byte has the lowest address.</span>
  96. <a name="l00064"></a>00064 <span class="comment"> * #define Sudden_Underflow for IEEE-format machines without gradual</span>
  97. <a name="l00065"></a>00065 <span class="comment"> * underflow (i.e., that flush to zero on underflow).</span>
  98. <a name="l00066"></a>00066 <span class="comment"> * #define IBM for IBM mainframe-style floating-point arithmetic.</span>
  99. <a name="l00067"></a>00067 <span class="comment"> * #define VAX for VAX-style floating-point arithmetic.</span>
  100. <a name="l00068"></a>00068 <span class="comment"> * #define Unsigned_Shifts if &gt;&gt; does treats its left operand as unsigned.</span>
  101. <a name="l00069"></a>00069 <span class="comment"> * #define No_leftright to omit left-right logic in fast floating-point</span>
  102. <a name="l00070"></a>00070 <span class="comment"> * computation of dtoa.</span>
  103. <a name="l00071"></a>00071 <span class="comment"> * #define Check_FLT_ROUNDS if FLT_ROUNDS can assume the values 2 or 3.</span>
  104. <a name="l00072"></a>00072 <span class="comment"> * #define RND_PRODQUOT to use rnd_prod and rnd_quot (assembly routines</span>
  105. <a name="l00073"></a>00073 <span class="comment"> * that use extended-precision instructions to compute rounded</span>
  106. <a name="l00074"></a>00074 <span class="comment"> * products and quotients) with IBM.</span>
  107. <a name="l00075"></a>00075 <span class="comment"> * #define ROUND_BIASED for IEEE-format with biased rounding.</span>
  108. <a name="l00076"></a>00076 <span class="comment"> * #define Inaccurate_Divide for IEEE-format with correctly rounded</span>
  109. <a name="l00077"></a>00077 <span class="comment"> * products but inaccurate quotients, e.g., for Intel i860.</span>
  110. <a name="l00078"></a>00078 <span class="comment"> * #define Just_16 to store 16 bits per 32-bit long when doing high-precision</span>
  111. <a name="l00079"></a>00079 <span class="comment"> * integer arithmetic. Whether this speeds things up or slows things</span>
  112. <a name="l00080"></a>00080 <span class="comment"> * down depends on the machine and the number being converted.</span>
  113. <a name="l00081"></a>00081 <span class="comment"> */</span>
  114. <a name="l00082"></a>00082
  115. <a name="l00083"></a>00083
  116. <a name="l00084"></a>00084
  117. <a name="l00085"></a>00085 <span class="preprocessor">#include &lt;_ansi.h&gt;</span>
  118. <a name="l00086"></a>00086 <span class="preprocessor">#include &lt;stdlib.h&gt;</span>
  119. <a name="l00087"></a>00087 <span class="preprocessor">#include &lt;string.h&gt;</span>
  120. <a name="l00088"></a>00088 <span class="preprocessor">#include &lt;reent.h&gt;</span>
  121. <a name="l00089"></a>00089 <span class="preprocessor">#include &quot;small_mprec.h&quot;</span>
  122. <a name="l00090"></a>00090
  123. <a name="l00091"></a>00091 <span class="comment">/* reent.c knows this value */</span>
  124. <a name="l00092"></a>00092 <span class="preprocessor">#define _Kmax 15</span>
  125. <a name="l00093"></a>00093 <span class="preprocessor"></span>
  126. <a name="l00094"></a>00094 <span class="preprocessor">#if defined (_SMALL_PRINTF) || defined(SMALL_SCANF)</span>
  127. <a name="l00095"></a>00095 <span class="preprocessor"></span><span class="preprocessor">#define SMALL_LIB</span>
  128. <a name="l00096"></a>00096 <span class="preprocessor"></span><span class="preprocessor">#else</span>
  129. <a name="l00097"></a>00097 <span class="preprocessor"></span><span class="preprocessor">#define FULL_LIB</span>
  130. <a name="l00098"></a>00098 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
  131. <a name="l00099"></a>00099 <span class="preprocessor"></span>
  132. <a name="l00100"></a>00100 <span class="comment">/* SMALL_LIB is only defined if _SMALL_PRINTF or SMALL_SCANF have been defined</span>
  133. <a name="l00101"></a>00101 <span class="comment"> * which means that if you do only specified _SMALL_PRINTF and not SMALL_SCANF</span>
  134. <a name="l00102"></a>00102 <span class="comment"> * optimization about call of balloc in small_dtoa_r.c or smal_strtod.c will be</span>
  135. <a name="l00103"></a>00103 <span class="comment"> * performed for both printf and scanf </span>
  136. <a name="l00104"></a>00104 <span class="comment"> */</span>
  137. <a name="l00105"></a>00105
  138. <a name="l00106"></a>00106
  139. <a name="l00107"></a>00107
  140. <a name="l00108"></a>00108 <span class="preprocessor">#ifdef FULL_LIB</span>
  141. <a name="l00109"></a>00109 <span class="preprocessor"></span>
  142. <a name="l00110"></a>00110
  143. <a name="l00111"></a>00111
  144. <a name="l00112"></a>00112 _Bigint *
  145. <a name="l00113"></a>00113 _DEFUN (Balloc, (ptr, k), <span class="keyword">struct</span> _reent *ptr _AND <span class="keywordtype">int</span> k)
  146. <a name="l00114"></a>00114 {
  147. <a name="l00115"></a>00115 <span class="keywordtype">int</span> x;
  148. <a name="l00116"></a>00116 _Bigint *rv ;
  149. <a name="l00117"></a>00117
  150. <a name="l00118"></a>00118 _REENT_CHECK_MP(ptr);
  151. <a name="l00119"></a>00119 <span class="keywordflow">if</span> (_REENT_MP_FREELIST(ptr) == NULL)
  152. <a name="l00120"></a>00120 {
  153. <a name="l00121"></a>00121 <span class="comment">/* Allocate a list of pointers to the mprec objects */</span>
  154. <a name="l00122"></a>00122 _REENT_MP_FREELIST(ptr) = (<span class="keyword">struct </span>_Bigint **) _calloc_r (ptr,
  155. <a name="l00123"></a>00123 <span class="keyword">sizeof</span> (<span class="keyword">struct</span> _Bigint *),
  156. <a name="l00124"></a>00124 _Kmax + 1);
  157. <a name="l00125"></a>00125 <span class="keywordflow">if</span> (_REENT_MP_FREELIST(ptr) == NULL)
  158. <a name="l00126"></a>00126 {
  159. <a name="l00127"></a>00127 <span class="keywordflow">return</span> NULL;
  160. <a name="l00128"></a>00128 }
  161. <a name="l00129"></a>00129 }
  162. <a name="l00130"></a>00130
  163. <a name="l00131"></a>00131 <span class="keywordflow">if</span> ((rv = _REENT_MP_FREELIST(ptr)[k]) != 0)
  164. <a name="l00132"></a>00132 {
  165. <a name="l00133"></a>00133 _REENT_MP_FREELIST(ptr)[k] = rv-&gt;_next;
  166. <a name="l00134"></a>00134 }
  167. <a name="l00135"></a>00135 <span class="keywordflow">else</span>
  168. <a name="l00136"></a>00136 {
  169. <a name="l00137"></a>00137 x = 1 &lt;&lt; k;
  170. <a name="l00138"></a>00138 <span class="comment">/* Allocate an mprec Bigint and stick in in the freelist */</span>
  171. <a name="l00139"></a>00139 rv = (_Bigint *) _calloc_r (ptr,
  172. <a name="l00140"></a>00140 1,
  173. <a name="l00141"></a>00141 <span class="keyword">sizeof</span> (_Bigint) +
  174. <a name="l00142"></a>00142 (x-1) * <span class="keyword">sizeof</span>(rv-&gt;_x));
  175. <a name="l00143"></a>00143 <span class="keywordflow">if</span> (rv == NULL) <span class="keywordflow">return</span> NULL;
  176. <a name="l00144"></a>00144 rv-&gt;_k = k;
  177. <a name="l00145"></a>00145 rv-&gt;_maxwds = x;
  178. <a name="l00146"></a>00146 }
  179. <a name="l00147"></a>00147 rv-&gt;_sign = rv-&gt;_wds = 0;
  180. <a name="l00148"></a>00148 <span class="keywordflow">return</span> rv;
  181. <a name="l00149"></a>00149 }
  182. <a name="l00150"></a>00150
  183. <a name="l00151"></a>00151 <span class="keywordtype">void</span>
  184. <a name="l00152"></a>00152 _DEFUN (Bfree, (ptr, v), <span class="keyword">struct</span> _reent *ptr _AND _Bigint * v)
  185. <a name="l00153"></a>00153 {
  186. <a name="l00154"></a>00154 _REENT_CHECK_MP(ptr);
  187. <a name="l00155"></a>00155 <span class="keywordflow">if</span> (v)
  188. <a name="l00156"></a>00156 {
  189. <a name="l00157"></a>00157 v-&gt;_next = _REENT_MP_FREELIST(ptr)[v-&gt;_k];
  190. <a name="l00158"></a>00158 _REENT_MP_FREELIST(ptr)[v-&gt;_k] = v;
  191. <a name="l00159"></a>00159 }
  192. <a name="l00160"></a>00160 }
  193. <a name="l00161"></a>00161
  194. <a name="l00162"></a>00162
  195. <a name="l00163"></a>00163 _Bigint *
  196. <a name="l00164"></a>00164 _DEFUN (multadd, (ptr, b, m, a),
  197. <a name="l00165"></a>00165 <span class="keyword">struct</span> _reent *ptr _AND
  198. <a name="l00166"></a>00166 _Bigint * b _AND
  199. <a name="l00167"></a>00167 <span class="keywordtype">int</span> m _AND
  200. <a name="l00168"></a>00168 <span class="keywordtype">int</span> a)
  201. <a name="l00169"></a>00169 {
  202. <a name="l00170"></a>00170 <span class="keywordtype">int</span> i, wds;
  203. <a name="l00171"></a>00171 __ULong *x, y;
  204. <a name="l00172"></a>00172 <span class="preprocessor">#ifdef Pack_32</span>
  205. <a name="l00173"></a>00173 <span class="preprocessor"></span> __ULong xi, z;
  206. <a name="l00174"></a>00174 <span class="preprocessor">#endif</span>
  207. <a name="l00175"></a>00175 <span class="preprocessor"></span> _Bigint *b1;
  208. <a name="l00176"></a>00176
  209. <a name="l00177"></a>00177 wds = b-&gt;_wds;
  210. <a name="l00178"></a>00178 x = b-&gt;_x;
  211. <a name="l00179"></a>00179 i = 0;
  212. <a name="l00180"></a>00180 <span class="keywordflow">do</span>
  213. <a name="l00181"></a>00181 {
  214. <a name="l00182"></a>00182 <span class="preprocessor">#ifdef Pack_32</span>
  215. <a name="l00183"></a>00183 <span class="preprocessor"></span> xi = *x;
  216. <a name="l00184"></a>00184 y = (xi &amp; 0xffff) * m + a;
  217. <a name="l00185"></a>00185 z = (xi &gt;&gt; 16) * m + (y &gt;&gt; 16);
  218. <a name="l00186"></a>00186 a = (int) (z &gt;&gt; 16);
  219. <a name="l00187"></a>00187 *x++ = (z &lt;&lt; 16) + (y &amp; 0xffff);
  220. <a name="l00188"></a>00188 <span class="preprocessor">#else</span>
  221. <a name="l00189"></a>00189 <span class="preprocessor"></span> y = *x * m + a;
  222. <a name="l00190"></a>00190 a = (int) (y &gt;&gt; 16);
  223. <a name="l00191"></a>00191 *x++ = y &amp; 0xffff;
  224. <a name="l00192"></a>00192 <span class="preprocessor">#endif</span>
  225. <a name="l00193"></a>00193 <span class="preprocessor"></span> }
  226. <a name="l00194"></a>00194 <span class="keywordflow">while</span> (++i &lt; wds);
  227. <a name="l00195"></a>00195 <span class="keywordflow">if</span> (a)
  228. <a name="l00196"></a>00196 {
  229. <a name="l00197"></a>00197 <span class="keywordflow">if</span> (wds &gt;= b-&gt;_maxwds)
  230. <a name="l00198"></a>00198 {
  231. <a name="l00199"></a>00199 b1 = Balloc (ptr, b-&gt;_k + 1);
  232. <a name="l00200"></a>00200 Bcopy (b1, b);
  233. <a name="l00201"></a>00201 Bfree (ptr, b);
  234. <a name="l00202"></a>00202 b = b1;
  235. <a name="l00203"></a>00203 }
  236. <a name="l00204"></a>00204 b-&gt;_x[wds++] = a;
  237. <a name="l00205"></a>00205 b-&gt;_wds = wds;
  238. <a name="l00206"></a>00206 }
  239. <a name="l00207"></a>00207 <span class="keywordflow">return</span> b;
  240. <a name="l00208"></a>00208 }
  241. <a name="l00209"></a>00209
  242. <a name="l00210"></a>00210 _Bigint *
  243. <a name="l00211"></a>00211 _DEFUN (s2b, (ptr, s, nd0, nd, y9),
  244. <a name="l00212"></a>00212 <span class="keyword">struct</span> _reent * ptr _AND
  245. <a name="l00213"></a>00213 _CONST <span class="keywordtype">char</span> *s _AND
  246. <a name="l00214"></a>00214 <span class="keywordtype">int</span> nd0 _AND
  247. <a name="l00215"></a>00215 <span class="keywordtype">int</span> nd _AND
  248. <a name="l00216"></a>00216 __ULong y9)
  249. <a name="l00217"></a>00217 {
  250. <a name="l00218"></a>00218 _Bigint *b;
  251. <a name="l00219"></a>00219 <span class="keywordtype">int</span> i, k;
  252. <a name="l00220"></a>00220 __Long x, y;
  253. <a name="l00221"></a>00221
  254. <a name="l00222"></a>00222 x = (nd + 8) / 9;
  255. <a name="l00223"></a>00223 <span class="keywordflow">for</span> (k = 0, y = 1; x &gt; y; y &lt;&lt;= 1, k++);
  256. <a name="l00224"></a>00224 <span class="preprocessor">#ifdef Pack_32</span>
  257. <a name="l00225"></a>00225 <span class="preprocessor"></span> b = Balloc (ptr, k);
  258. <a name="l00226"></a>00226 b-&gt;_x[0] = y9;
  259. <a name="l00227"></a>00227 b-&gt;_wds = 1;
  260. <a name="l00228"></a>00228 <span class="preprocessor">#else</span>
  261. <a name="l00229"></a>00229 <span class="preprocessor"></span> b = Balloc (ptr, k + 1);
  262. <a name="l00230"></a>00230 b-&gt;_x[0] = y9 &amp; 0xffff;
  263. <a name="l00231"></a>00231 b-&gt;_wds = (b-&gt;_x[1] = y9 &gt;&gt; 16) ? 2 : 1;
  264. <a name="l00232"></a>00232 <span class="preprocessor">#endif</span>
  265. <a name="l00233"></a>00233 <span class="preprocessor"></span>
  266. <a name="l00234"></a>00234 i = 9;
  267. <a name="l00235"></a>00235 <span class="keywordflow">if</span> (9 &lt; nd0)
  268. <a name="l00236"></a>00236 {
  269. <a name="l00237"></a>00237 s += 9;
  270. <a name="l00238"></a>00238 <span class="keywordflow">do</span>
  271. <a name="l00239"></a>00239 b = multadd (ptr, b, 10, *s++ - <span class="charliteral">&apos;0&apos;</span>);
  272. <a name="l00240"></a>00240 <span class="keywordflow">while</span> (++i &lt; nd0);
  273. <a name="l00241"></a>00241 s++;
  274. <a name="l00242"></a>00242 }
  275. <a name="l00243"></a>00243 <span class="keywordflow">else</span>
  276. <a name="l00244"></a>00244 s += 10;
  277. <a name="l00245"></a>00245 <span class="keywordflow">for</span> (; i &lt; nd; i++)
  278. <a name="l00246"></a>00246 b = multadd (ptr, b, 10, *s++ - <span class="charliteral">&apos;0&apos;</span>);
  279. <a name="l00247"></a>00247 <span class="keywordflow">return</span> b;
  280. <a name="l00248"></a>00248 }
  281. <a name="l00249"></a>00249
  282. <a name="l00250"></a>00250 <span class="keywordtype">int</span>
  283. <a name="l00251"></a>00251 _DEFUN (hi0bits,
  284. <a name="l00252"></a>00252 (x), <span class="keyword">register</span> __ULong x)
  285. <a name="l00253"></a>00253 {
  286. <a name="l00254"></a>00254 <span class="keyword">register</span> <span class="keywordtype">int</span> k = 0;
  287. <a name="l00255"></a>00255
  288. <a name="l00256"></a>00256 <span class="keywordflow">if</span> (!(x &amp; 0xffff0000))
  289. <a name="l00257"></a>00257 {
  290. <a name="l00258"></a>00258 k = 16;
  291. <a name="l00259"></a>00259 x &lt;&lt;= 16;
  292. <a name="l00260"></a>00260 }
  293. <a name="l00261"></a>00261 <span class="keywordflow">if</span> (!(x &amp; 0xff000000))
  294. <a name="l00262"></a>00262 {
  295. <a name="l00263"></a>00263 k += 8;
  296. <a name="l00264"></a>00264 x &lt;&lt;= 8;
  297. <a name="l00265"></a>00265 }
  298. <a name="l00266"></a>00266 <span class="keywordflow">if</span> (!(x &amp; 0xf0000000))
  299. <a name="l00267"></a>00267 {
  300. <a name="l00268"></a>00268 k += 4;
  301. <a name="l00269"></a>00269 x &lt;&lt;= 4;
  302. <a name="l00270"></a>00270 }
  303. <a name="l00271"></a>00271 <span class="keywordflow">if</span> (!(x &amp; 0xc0000000))
  304. <a name="l00272"></a>00272 {
  305. <a name="l00273"></a>00273 k += 2;
  306. <a name="l00274"></a>00274 x &lt;&lt;= 2;
  307. <a name="l00275"></a>00275 }
  308. <a name="l00276"></a>00276 <span class="keywordflow">if</span> (!(x &amp; 0x80000000))
  309. <a name="l00277"></a>00277 {
  310. <a name="l00278"></a>00278 k++;
  311. <a name="l00279"></a>00279 <span class="keywordflow">if</span> (!(x &amp; 0x40000000))
  312. <a name="l00280"></a>00280 <span class="keywordflow">return</span> 32;
  313. <a name="l00281"></a>00281 }
  314. <a name="l00282"></a>00282 <span class="keywordflow">return</span> k;
  315. <a name="l00283"></a>00283 }
  316. <a name="l00284"></a>00284
  317. <a name="l00285"></a>00285 <span class="keywordtype">int</span>
  318. <a name="l00286"></a>00286 _DEFUN (lo0bits, (y), __ULong *y)
  319. <a name="l00287"></a>00287 {
  320. <a name="l00288"></a>00288 <span class="keyword">register</span> <span class="keywordtype">int</span> k;
  321. <a name="l00289"></a>00289 <span class="keyword">register</span> __ULong x = *y;
  322. <a name="l00290"></a>00290
  323. <a name="l00291"></a>00291 <span class="keywordflow">if</span> (x &amp; 7)
  324. <a name="l00292"></a>00292 {
  325. <a name="l00293"></a>00293 <span class="keywordflow">if</span> (x &amp; 1)
  326. <a name="l00294"></a>00294 <span class="keywordflow">return</span> 0;
  327. <a name="l00295"></a>00295 <span class="keywordflow">if</span> (x &amp; 2)
  328. <a name="l00296"></a>00296 {
  329. <a name="l00297"></a>00297 *y = x &gt;&gt; 1;
  330. <a name="l00298"></a>00298 <span class="keywordflow">return</span> 1;
  331. <a name="l00299"></a>00299 }
  332. <a name="l00300"></a>00300 *y = x &gt;&gt; 2;
  333. <a name="l00301"></a>00301 <span class="keywordflow">return</span> 2;
  334. <a name="l00302"></a>00302 }
  335. <a name="l00303"></a>00303 k = 0;
  336. <a name="l00304"></a>00304 <span class="keywordflow">if</span> (!(x &amp; 0xffff))
  337. <a name="l00305"></a>00305 {
  338. <a name="l00306"></a>00306 k = 16;
  339. <a name="l00307"></a>00307 x &gt;&gt;= 16;
  340. <a name="l00308"></a>00308 }
  341. <a name="l00309"></a>00309 <span class="keywordflow">if</span> (!(x &amp; 0xff))
  342. <a name="l00310"></a>00310 {
  343. <a name="l00311"></a>00311 k += 8;
  344. <a name="l00312"></a>00312 x &gt;&gt;= 8;
  345. <a name="l00313"></a>00313 }
  346. <a name="l00314"></a>00314 <span class="keywordflow">if</span> (!(x &amp; 0xf))
  347. <a name="l00315"></a>00315 {
  348. <a name="l00316"></a>00316 k += 4;
  349. <a name="l00317"></a>00317 x &gt;&gt;= 4;
  350. <a name="l00318"></a>00318 }
  351. <a name="l00319"></a>00319 <span class="keywordflow">if</span> (!(x &amp; 0x3))
  352. <a name="l00320"></a>00320 {
  353. <a name="l00321"></a>00321 k += 2;
  354. <a name="l00322"></a>00322 x &gt;&gt;= 2;
  355. <a name="l00323"></a>00323 }
  356. <a name="l00324"></a>00324 <span class="keywordflow">if</span> (!(x &amp; 1))
  357. <a name="l00325"></a>00325 {
  358. <a name="l00326"></a>00326 k++;
  359. <a name="l00327"></a>00327 x &gt;&gt;= 1;
  360. <a name="l00328"></a>00328 <span class="keywordflow">if</span> (!x &amp; 1)
  361. <a name="l00329"></a>00329 <span class="keywordflow">return</span> 32;
  362. <a name="l00330"></a>00330 }
  363. <a name="l00331"></a>00331 *y = x;
  364. <a name="l00332"></a>00332 <span class="keywordflow">return</span> k;
  365. <a name="l00333"></a>00333 }
  366. <a name="l00334"></a>00334
  367. <a name="l00335"></a>00335 _Bigint *
  368. <a name="l00336"></a>00336 _DEFUN (i2b, (ptr, i), <span class="keyword">struct</span> _reent * ptr _AND <span class="keywordtype">int</span> i)
  369. <a name="l00337"></a>00337 {
  370. <a name="l00338"></a>00338 _Bigint *b;
  371. <a name="l00339"></a>00339
  372. <a name="l00340"></a>00340 b = Balloc (ptr, 1);
  373. <a name="l00341"></a>00341 b-&gt;_x[0] = i;
  374. <a name="l00342"></a>00342 b-&gt;_wds = 1;
  375. <a name="l00343"></a>00343 <span class="keywordflow">return</span> b;
  376. <a name="l00344"></a>00344 }
  377. <a name="l00345"></a>00345
  378. <a name="l00346"></a>00346 _Bigint *
  379. <a name="l00347"></a>00347 _DEFUN (mult, (ptr, a, b), <span class="keyword">struct</span> _reent * ptr _AND _Bigint * a _AND _Bigint * b)
  380. <a name="l00348"></a>00348 {
  381. <a name="l00349"></a>00349 _Bigint *c;
  382. <a name="l00350"></a>00350 <span class="keywordtype">int</span> k, wa, wb, wc;
  383. <a name="l00351"></a>00351 __ULong carry, y, z;
  384. <a name="l00352"></a>00352 __ULong *x, *xa, *xae, *xb, *xbe, *xc, *xc0;
  385. <a name="l00353"></a>00353 <span class="preprocessor">#ifdef Pack_32</span>
  386. <a name="l00354"></a>00354 <span class="preprocessor"></span> __ULong z2;
  387. <a name="l00355"></a>00355 <span class="preprocessor">#endif</span>
  388. <a name="l00356"></a>00356 <span class="preprocessor"></span>
  389. <a name="l00357"></a>00357 <span class="keywordflow">if</span> (a-&gt;_wds &lt; b-&gt;_wds)
  390. <a name="l00358"></a>00358 {
  391. <a name="l00359"></a>00359 c = a;
  392. <a name="l00360"></a>00360 a = b;
  393. <a name="l00361"></a>00361 b = c;
  394. <a name="l00362"></a>00362 }
  395. <a name="l00363"></a>00363 k = a-&gt;_k;
  396. <a name="l00364"></a>00364 wa = a-&gt;_wds;
  397. <a name="l00365"></a>00365 wb = b-&gt;_wds;
  398. <a name="l00366"></a>00366 wc = wa + wb;
  399. <a name="l00367"></a>00367 <span class="keywordflow">if</span> (wc &gt; a-&gt;_maxwds)
  400. <a name="l00368"></a>00368 k++;
  401. <a name="l00369"></a>00369 c = Balloc (ptr, k);
  402. <a name="l00370"></a>00370 <span class="keywordflow">for</span> (x = c-&gt;_x, xa = x + wc; x &lt; xa; x++)
  403. <a name="l00371"></a>00371 *x = 0;
  404. <a name="l00372"></a>00372 xa = a-&gt;_x;
  405. <a name="l00373"></a>00373 xae = xa + wa;
  406. <a name="l00374"></a>00374 xb = b-&gt;_x;
  407. <a name="l00375"></a>00375 xbe = xb + wb;
  408. <a name="l00376"></a>00376 xc0 = c-&gt;_x;
  409. <a name="l00377"></a>00377 <span class="preprocessor">#ifdef Pack_32</span>
  410. <a name="l00378"></a>00378 <span class="preprocessor"></span> <span class="keywordflow">for</span> (; xb &lt; xbe; xb++, xc0++)
  411. <a name="l00379"></a>00379 {
  412. <a name="l00380"></a>00380 <span class="keywordflow">if</span> ((y = *xb &amp; 0xffff) != 0)
  413. <a name="l00381"></a>00381 {
  414. <a name="l00382"></a>00382 x = xa;
  415. <a name="l00383"></a>00383 xc = xc0;
  416. <a name="l00384"></a>00384 carry = 0;
  417. <a name="l00385"></a>00385 <span class="keywordflow">do</span>
  418. <a name="l00386"></a>00386 {
  419. <a name="l00387"></a>00387 z = (*x &amp; 0xffff) * y + (*xc &amp; 0xffff) + carry;
  420. <a name="l00388"></a>00388 carry = z &gt;&gt; 16;
  421. <a name="l00389"></a>00389 z2 = (*x++ &gt;&gt; 16) * y + (*xc &gt;&gt; 16) + carry;
  422. <a name="l00390"></a>00390 carry = z2 &gt;&gt; 16;
  423. <a name="l00391"></a>00391 Storeinc (xc, z2, z);
  424. <a name="l00392"></a>00392 }
  425. <a name="l00393"></a>00393 <span class="keywordflow">while</span> (x &lt; xae);
  426. <a name="l00394"></a>00394 *xc = carry;
  427. <a name="l00395"></a>00395 }
  428. <a name="l00396"></a>00396 <span class="keywordflow">if</span> ((y = *xb &gt;&gt; 16) != 0)
  429. <a name="l00397"></a>00397 {
  430. <a name="l00398"></a>00398 x = xa;
  431. <a name="l00399"></a>00399 xc = xc0;
  432. <a name="l00400"></a>00400 carry = 0;
  433. <a name="l00401"></a>00401 z2 = *xc;
  434. <a name="l00402"></a>00402 <span class="keywordflow">do</span>
  435. <a name="l00403"></a>00403 {
  436. <a name="l00404"></a>00404 z = (*x &amp; 0xffff) * y + (*xc &gt;&gt; 16) + carry;
  437. <a name="l00405"></a>00405 carry = z &gt;&gt; 16;
  438. <a name="l00406"></a>00406 Storeinc (xc, z, z2);
  439. <a name="l00407"></a>00407 z2 = (*x++ &gt;&gt; 16) * y + (*xc &amp; 0xffff) + carry;
  440. <a name="l00408"></a>00408 carry = z2 &gt;&gt; 16;
  441. <a name="l00409"></a>00409 }
  442. <a name="l00410"></a>00410 <span class="keywordflow">while</span> (x &lt; xae);
  443. <a name="l00411"></a>00411 *xc = z2;
  444. <a name="l00412"></a>00412 }
  445. <a name="l00413"></a>00413 }
  446. <a name="l00414"></a>00414 <span class="preprocessor">#else</span>
  447. <a name="l00415"></a>00415 <span class="preprocessor"></span> <span class="keywordflow">for</span> (; xb &lt; xbe; xc0++)
  448. <a name="l00416"></a>00416 {
  449. <a name="l00417"></a>00417 <span class="keywordflow">if</span> (y = *xb++)
  450. <a name="l00418"></a>00418 {
  451. <a name="l00419"></a>00419 x = xa;
  452. <a name="l00420"></a>00420 xc = xc0;
  453. <a name="l00421"></a>00421 carry = 0;
  454. <a name="l00422"></a>00422 <span class="keywordflow">do</span>
  455. <a name="l00423"></a>00423 {
  456. <a name="l00424"></a>00424 z = *x++ * y + *xc + carry;
  457. <a name="l00425"></a>00425 carry = z &gt;&gt; 16;
  458. <a name="l00426"></a>00426 *xc++ = z &amp; 0xffff;
  459. <a name="l00427"></a>00427 }
  460. <a name="l00428"></a>00428 <span class="keywordflow">while</span> (x &lt; xae);
  461. <a name="l00429"></a>00429 *xc = carry;
  462. <a name="l00430"></a>00430 }
  463. <a name="l00431"></a>00431 }
  464. <a name="l00432"></a>00432 <span class="preprocessor">#endif</span>
  465. <a name="l00433"></a>00433 <span class="preprocessor"></span> <span class="keywordflow">for</span> (xc0 = c-&gt;_x, xc = xc0 + wc; wc &gt; 0 &amp;&amp; !*--xc; --wc);
  466. <a name="l00434"></a>00434 c-&gt;_wds = wc;
  467. <a name="l00435"></a>00435 <span class="keywordflow">return</span> c;
  468. <a name="l00436"></a>00436 }
  469. <a name="l00437"></a>00437
  470. <a name="l00438"></a>00438 _Bigint *
  471. <a name="l00439"></a>00439 _DEFUN (pow5mult,
  472. <a name="l00440"></a>00440 (ptr, b, k), <span class="keyword">struct</span> _reent * ptr _AND _Bigint * b _AND <span class="keywordtype">int</span> k)
  473. <a name="l00441"></a>00441 {
  474. <a name="l00442"></a>00442 _Bigint *b1, *p5, *p51;
  475. <a name="l00443"></a>00443 <span class="keywordtype">int</span> i;
  476. <a name="l00444"></a>00444 <span class="keyword">static</span> _CONST <span class="keywordtype">int</span> p05[3] = {5, 25, 125};
  477. <a name="l00445"></a>00445
  478. <a name="l00446"></a>00446 <span class="keywordflow">if</span> ((i = k &amp; 3) != 0)
  479. <a name="l00447"></a>00447 b = multadd (ptr, b, p05[i - 1], 0);
  480. <a name="l00448"></a>00448
  481. <a name="l00449"></a>00449 <span class="keywordflow">if</span> (!(k &gt;&gt;= 2))
  482. <a name="l00450"></a>00450 <span class="keywordflow">return</span> b;
  483. <a name="l00451"></a>00451 _REENT_CHECK_MP(ptr);
  484. <a name="l00452"></a>00452 <span class="keywordflow">if</span> (!(p5 = _REENT_MP_P5S(ptr)))
  485. <a name="l00453"></a>00453 {
  486. <a name="l00454"></a>00454 <span class="comment">/* first time */</span>
  487. <a name="l00455"></a>00455 p5 = _REENT_MP_P5S(ptr) = i2b (ptr, 625);
  488. <a name="l00456"></a>00456 p5-&gt;_next = 0;
  489. <a name="l00457"></a>00457 }
  490. <a name="l00458"></a>00458 <span class="keywordflow">for</span> (;;)
  491. <a name="l00459"></a>00459 {
  492. <a name="l00460"></a>00460 <span class="keywordflow">if</span> (k &amp; 1)
  493. <a name="l00461"></a>00461 {
  494. <a name="l00462"></a>00462 b1 = mult (ptr, b, p5);
  495. <a name="l00463"></a>00463 Bfree (ptr, b);
  496. <a name="l00464"></a>00464 b = b1;
  497. <a name="l00465"></a>00465 }
  498. <a name="l00466"></a>00466 <span class="keywordflow">if</span> (!(k &gt;&gt;= 1))
  499. <a name="l00467"></a>00467 <span class="keywordflow">break</span>;
  500. <a name="l00468"></a>00468 <span class="keywordflow">if</span> (!(p51 = p5-&gt;_next))
  501. <a name="l00469"></a>00469 {
  502. <a name="l00470"></a>00470 p51 = p5-&gt;_next = mult (ptr, p5, p5);
  503. <a name="l00471"></a>00471 p51-&gt;_next = 0;
  504. <a name="l00472"></a>00472 }
  505. <a name="l00473"></a>00473 p5 = p51;
  506. <a name="l00474"></a>00474 }
  507. <a name="l00475"></a>00475 <span class="keywordflow">return</span> b;
  508. <a name="l00476"></a>00476 }
  509. <a name="l00477"></a>00477
  510. <a name="l00478"></a>00478 _Bigint *
  511. <a name="l00479"></a>00479 _DEFUN (lshift, (ptr, b, k), <span class="keyword">struct</span> _reent * ptr _AND _Bigint * b _AND <span class="keywordtype">int</span> k)
  512. <a name="l00480"></a>00480 {
  513. <a name="l00481"></a>00481 <span class="keywordtype">int</span> i, k1, n, n1;
  514. <a name="l00482"></a>00482 _Bigint *b1;
  515. <a name="l00483"></a>00483 __ULong *x, *x1, *xe, z;
  516. <a name="l00484"></a>00484
  517. <a name="l00485"></a>00485 <span class="preprocessor">#ifdef Pack_32</span>
  518. <a name="l00486"></a>00486 <span class="preprocessor"></span> n = k &gt;&gt; 5;
  519. <a name="l00487"></a>00487 <span class="preprocessor">#else</span>
  520. <a name="l00488"></a>00488 <span class="preprocessor"></span> n = k &gt;&gt; 4;
  521. <a name="l00489"></a>00489 <span class="preprocessor">#endif</span>
  522. <a name="l00490"></a>00490 <span class="preprocessor"></span> k1 = b-&gt;_k;
  523. <a name="l00491"></a>00491 n1 = n + b-&gt;_wds + 1;
  524. <a name="l00492"></a>00492 <span class="keywordflow">for</span> (i = b-&gt;_maxwds; n1 &gt; i; i &lt;&lt;= 1)
  525. <a name="l00493"></a>00493 k1++;
  526. <a name="l00494"></a>00494 b1 = Balloc (ptr, k1);
  527. <a name="l00495"></a>00495 x1 = b1-&gt;_x;
  528. <a name="l00496"></a>00496 <span class="keywordflow">for</span> (i = 0; i &lt; n; i++)
  529. <a name="l00497"></a>00497 *x1++ = 0;
  530. <a name="l00498"></a>00498 x = b-&gt;_x;
  531. <a name="l00499"></a>00499 xe = x + b-&gt;_wds;
  532. <a name="l00500"></a>00500 <span class="preprocessor">#ifdef Pack_32</span>
  533. <a name="l00501"></a>00501 <span class="preprocessor"></span> <span class="keywordflow">if</span> (k &amp;= 0x1f)
  534. <a name="l00502"></a>00502 {
  535. <a name="l00503"></a>00503 k1 = 32 - k;
  536. <a name="l00504"></a>00504 z = 0;
  537. <a name="l00505"></a>00505 <span class="keywordflow">do</span>
  538. <a name="l00506"></a>00506 {
  539. <a name="l00507"></a>00507 *x1++ = *x &lt;&lt; k | z;
  540. <a name="l00508"></a>00508 z = *x++ &gt;&gt; k1;
  541. <a name="l00509"></a>00509 }
  542. <a name="l00510"></a>00510 <span class="keywordflow">while</span> (x &lt; xe);
  543. <a name="l00511"></a>00511 <span class="keywordflow">if</span> ((*x1 = z) != 0)
  544. <a name="l00512"></a>00512 ++n1;
  545. <a name="l00513"></a>00513 }
  546. <a name="l00514"></a>00514 <span class="preprocessor">#else</span>
  547. <a name="l00515"></a>00515 <span class="preprocessor"></span> <span class="keywordflow">if</span> (k &amp;= 0xf)
  548. <a name="l00516"></a>00516 {
  549. <a name="l00517"></a>00517 k1 = 16 - k;
  550. <a name="l00518"></a>00518 z = 0;
  551. <a name="l00519"></a>00519 <span class="keywordflow">do</span>
  552. <a name="l00520"></a>00520 {
  553. <a name="l00521"></a>00521 *x1++ = *x &lt;&lt; k &amp; 0xffff | z;
  554. <a name="l00522"></a>00522 z = *x++ &gt;&gt; k1;
  555. <a name="l00523"></a>00523 }
  556. <a name="l00524"></a>00524 <span class="keywordflow">while</span> (x &lt; xe);
  557. <a name="l00525"></a>00525 <span class="keywordflow">if</span> (*x1 = z)
  558. <a name="l00526"></a>00526 ++n1;
  559. <a name="l00527"></a>00527 }
  560. <a name="l00528"></a>00528 <span class="preprocessor">#endif</span>
  561. <a name="l00529"></a>00529 <span class="preprocessor"></span> <span class="keywordflow">else</span>
  562. <a name="l00530"></a>00530 <span class="keywordflow">do</span>
  563. <a name="l00531"></a>00531 *x1++ = *x++;
  564. <a name="l00532"></a>00532 <span class="keywordflow">while</span> (x &lt; xe);
  565. <a name="l00533"></a>00533 b1-&gt;_wds = n1 - 1;
  566. <a name="l00534"></a>00534 Bfree (ptr, b);
  567. <a name="l00535"></a>00535 <span class="keywordflow">return</span> b1;
  568. <a name="l00536"></a>00536 }
  569. <a name="l00537"></a>00537
  570. <a name="l00538"></a>00538 <span class="keywordtype">int</span>
  571. <a name="l00539"></a>00539 _DEFUN (cmp, (a, b), _Bigint * a _AND _Bigint * b)
  572. <a name="l00540"></a>00540 {
  573. <a name="l00541"></a>00541 __ULong *xa, *xa0, *xb, *xb0;
  574. <a name="l00542"></a>00542 <span class="keywordtype">int</span> i, j;
  575. <a name="l00543"></a>00543
  576. <a name="l00544"></a>00544 i = a-&gt;_wds;
  577. <a name="l00545"></a>00545 j = b-&gt;_wds;
  578. <a name="l00546"></a>00546 <span class="preprocessor">#ifdef DEBUG</span>
  579. <a name="l00547"></a>00547 <span class="preprocessor"></span> <span class="keywordflow">if</span> (i &gt; 1 &amp;&amp; !a-&gt;_x[i - 1])
  580. <a name="l00548"></a>00548 Bug (<span class="stringliteral">&quot;cmp called with a-&gt;_x[a-&gt;_wds-1] == 0&quot;</span>);
  581. <a name="l00549"></a>00549 <span class="keywordflow">if</span> (j &gt; 1 &amp;&amp; !b-&gt;_x[j - 1])
  582. <a name="l00550"></a>00550 Bug (<span class="stringliteral">&quot;cmp called with b-&gt;_x[b-&gt;_wds-1] == 0&quot;</span>);
  583. <a name="l00551"></a>00551 <span class="preprocessor">#endif</span>
  584. <a name="l00552"></a>00552 <span class="preprocessor"></span> <span class="keywordflow">if</span> (i -= j)
  585. <a name="l00553"></a>00553 <span class="keywordflow">return</span> i;
  586. <a name="l00554"></a>00554 xa0 = a-&gt;_x;
  587. <a name="l00555"></a>00555 xa = xa0 + j;
  588. <a name="l00556"></a>00556 xb0 = b-&gt;_x;
  589. <a name="l00557"></a>00557 xb = xb0 + j;
  590. <a name="l00558"></a>00558 <span class="keywordflow">for</span> (;;)
  591. <a name="l00559"></a>00559 {
  592. <a name="l00560"></a>00560 <span class="keywordflow">if</span> (*--xa != *--xb)
  593. <a name="l00561"></a>00561 <span class="keywordflow">return</span> *xa &lt; *xb ? -1 : 1;
  594. <a name="l00562"></a>00562 <span class="keywordflow">if</span> (xa &lt;= xa0)
  595. <a name="l00563"></a>00563 <span class="keywordflow">break</span>;
  596. <a name="l00564"></a>00564 }
  597. <a name="l00565"></a>00565 <span class="keywordflow">return</span> 0;
  598. <a name="l00566"></a>00566 }
  599. <a name="l00567"></a>00567
  600. <a name="l00568"></a>00568 _Bigint *
  601. <a name="l00569"></a>00569 _DEFUN (diff, (ptr, a, b), <span class="keyword">struct</span> _reent * ptr _AND
  602. <a name="l00570"></a>00570 _Bigint * a _AND _Bigint * b)
  603. <a name="l00571"></a>00571 {
  604. <a name="l00572"></a>00572 _Bigint *c;
  605. <a name="l00573"></a>00573 <span class="keywordtype">int</span> i, wa, wb;
  606. <a name="l00574"></a>00574 __Long borrow, y; <span class="comment">/* We need signed shifts here. */</span>
  607. <a name="l00575"></a>00575 __ULong *xa, *xae, *xb, *xbe, *xc;
  608. <a name="l00576"></a>00576 <span class="preprocessor">#ifdef Pack_32</span>
  609. <a name="l00577"></a>00577 <span class="preprocessor"></span> __Long z;
  610. <a name="l00578"></a>00578 <span class="preprocessor">#endif</span>
  611. <a name="l00579"></a>00579 <span class="preprocessor"></span>
  612. <a name="l00580"></a>00580 i = cmp (a, b);
  613. <a name="l00581"></a>00581 <span class="keywordflow">if</span> (!i)
  614. <a name="l00582"></a>00582 {
  615. <a name="l00583"></a>00583 c = Balloc (ptr, 0);
  616. <a name="l00584"></a>00584 c-&gt;_wds = 1;
  617. <a name="l00585"></a>00585 c-&gt;_x[0] = 0;
  618. <a name="l00586"></a>00586 <span class="keywordflow">return</span> c;
  619. <a name="l00587"></a>00587 }
  620. <a name="l00588"></a>00588 <span class="keywordflow">if</span> (i &lt; 0)
  621. <a name="l00589"></a>00589 {
  622. <a name="l00590"></a>00590 c = a;
  623. <a name="l00591"></a>00591 a = b;
  624. <a name="l00592"></a>00592 b = c;
  625. <a name="l00593"></a>00593 i = 1;
  626. <a name="l00594"></a>00594 }
  627. <a name="l00595"></a>00595 <span class="keywordflow">else</span>
  628. <a name="l00596"></a>00596 i = 0;
  629. <a name="l00597"></a>00597 c = Balloc (ptr, a-&gt;_k);
  630. <a name="l00598"></a>00598 c-&gt;_sign = i;
  631. <a name="l00599"></a>00599 wa = a-&gt;_wds;
  632. <a name="l00600"></a>00600 xa = a-&gt;_x;
  633. <a name="l00601"></a>00601 xae = xa + wa;
  634. <a name="l00602"></a>00602 wb = b-&gt;_wds;
  635. <a name="l00603"></a>00603 xb = b-&gt;_x;
  636. <a name="l00604"></a>00604 xbe = xb + wb;
  637. <a name="l00605"></a>00605 xc = c-&gt;_x;
  638. <a name="l00606"></a>00606 borrow = 0;
  639. <a name="l00607"></a>00607 <span class="preprocessor">#ifdef Pack_32</span>
  640. <a name="l00608"></a>00608 <span class="preprocessor"></span> <span class="keywordflow">do</span>
  641. <a name="l00609"></a>00609 {
  642. <a name="l00610"></a>00610 y = (*xa &amp; 0xffff) - (*xb &amp; 0xffff) + borrow;
  643. <a name="l00611"></a>00611 borrow = y &gt;&gt; 16;
  644. <a name="l00612"></a>00612 Sign_Extend (borrow, y);
  645. <a name="l00613"></a>00613 z = (*xa++ &gt;&gt; 16) - (*xb++ &gt;&gt; 16) + borrow;
  646. <a name="l00614"></a>00614 borrow = z &gt;&gt; 16;
  647. <a name="l00615"></a>00615 Sign_Extend (borrow, z);
  648. <a name="l00616"></a>00616 Storeinc (xc, z, y);
  649. <a name="l00617"></a>00617 }
  650. <a name="l00618"></a>00618 <span class="keywordflow">while</span> (xb &lt; xbe);
  651. <a name="l00619"></a>00619 <span class="keywordflow">while</span> (xa &lt; xae)
  652. <a name="l00620"></a>00620 {
  653. <a name="l00621"></a>00621 y = (*xa &amp; 0xffff) + borrow;
  654. <a name="l00622"></a>00622 borrow = y &gt;&gt; 16;
  655. <a name="l00623"></a>00623 Sign_Extend (borrow, y);
  656. <a name="l00624"></a>00624 z = (*xa++ &gt;&gt; 16) + borrow;
  657. <a name="l00625"></a>00625 borrow = z &gt;&gt; 16;
  658. <a name="l00626"></a>00626 Sign_Extend (borrow, z);
  659. <a name="l00627"></a>00627 Storeinc (xc, z, y);
  660. <a name="l00628"></a>00628 }
  661. <a name="l00629"></a>00629 <span class="preprocessor">#else</span>
  662. <a name="l00630"></a>00630 <span class="preprocessor"></span> <span class="keywordflow">do</span>
  663. <a name="l00631"></a>00631 {
  664. <a name="l00632"></a>00632 y = *xa++ - *xb++ + borrow;
  665. <a name="l00633"></a>00633 borrow = y &gt;&gt; 16;
  666. <a name="l00634"></a>00634 Sign_Extend (borrow, y);
  667. <a name="l00635"></a>00635 *xc++ = y &amp; 0xffff;
  668. <a name="l00636"></a>00636 }
  669. <a name="l00637"></a>00637 <span class="keywordflow">while</span> (xb &lt; xbe);
  670. <a name="l00638"></a>00638 <span class="keywordflow">while</span> (xa &lt; xae)
  671. <a name="l00639"></a>00639 {
  672. <a name="l00640"></a>00640 y = *xa++ + borrow;
  673. <a name="l00641"></a>00641 borrow = y &gt;&gt; 16;
  674. <a name="l00642"></a>00642 Sign_Extend (borrow, y);
  675. <a name="l00643"></a>00643 *xc++ = y &amp; 0xffff;
  676. <a name="l00644"></a>00644 }
  677. <a name="l00645"></a>00645 <span class="preprocessor">#endif</span>
  678. <a name="l00646"></a>00646 <span class="preprocessor"></span> <span class="keywordflow">while</span> (!*--xc)
  679. <a name="l00647"></a>00647 wa--;
  680. <a name="l00648"></a>00648 c-&gt;_wds = wa;
  681. <a name="l00649"></a>00649 <span class="keywordflow">return</span> c;
  682. <a name="l00650"></a>00650 }
  683. <a name="l00651"></a>00651
  684. <a name="l00652"></a>00652 <span class="keywordtype">double</span>
  685. <a name="l00653"></a>00653 _DEFUN (ulp, (_x), <span class="keywordtype">double</span> _x)
  686. <a name="l00654"></a>00654 {
  687. <a name="l00655"></a>00655 <span class="keyword">union </span>double_union x, a;
  688. <a name="l00656"></a>00656 <span class="keyword">register</span> __Long L;
  689. <a name="l00657"></a>00657
  690. <a name="l00658"></a>00658 x.d = _x;
  691. <a name="l00659"></a>00659
  692. <a name="l00660"></a>00660 L = (word0 (x) &amp; Exp_mask) - (P - 1) * Exp_msk1;
  693. <a name="l00661"></a>00661 <span class="preprocessor">#ifndef Sudden_Underflow</span>
  694. <a name="l00662"></a>00662 <span class="preprocessor"></span> <span class="keywordflow">if</span> (L &gt; 0)
  695. <a name="l00663"></a>00663 {
  696. <a name="l00664"></a>00664 <span class="preprocessor">#endif</span>
  697. <a name="l00665"></a>00665 <span class="preprocessor"></span><span class="preprocessor">#ifdef IBM</span>
  698. <a name="l00666"></a>00666 <span class="preprocessor"></span> L |= Exp_msk1 &gt;&gt; 4;
  699. <a name="l00667"></a>00667 <span class="preprocessor">#endif</span>
  700. <a name="l00668"></a>00668 <span class="preprocessor"></span> word0 (a) = L;
  701. <a name="l00669"></a>00669 <span class="preprocessor">#ifndef _DOUBLE_IS_32BITS</span>
  702. <a name="l00670"></a>00670 <span class="preprocessor"></span> word1 (a) = 0;
  703. <a name="l00671"></a>00671 <span class="preprocessor">#endif</span>
  704. <a name="l00672"></a>00672 <span class="preprocessor"></span>
  705. <a name="l00673"></a>00673 <span class="preprocessor">#ifndef Sudden_Underflow</span>
  706. <a name="l00674"></a>00674 <span class="preprocessor"></span> }
  707. <a name="l00675"></a>00675 <span class="keywordflow">else</span>
  708. <a name="l00676"></a>00676 {
  709. <a name="l00677"></a>00677 L = -L &gt;&gt; Exp_shift;
  710. <a name="l00678"></a>00678 <span class="keywordflow">if</span> (L &lt; Exp_shift)
  711. <a name="l00679"></a>00679 {
  712. <a name="l00680"></a>00680 word0 (a) = 0x80000 &gt;&gt; L;
  713. <a name="l00681"></a>00681 <span class="preprocessor">#ifndef _DOUBLE_IS_32BITS</span>
  714. <a name="l00682"></a>00682 <span class="preprocessor"></span> word1 (a) = 0;
  715. <a name="l00683"></a>00683 <span class="preprocessor">#endif</span>
  716. <a name="l00684"></a>00684 <span class="preprocessor"></span> }
  717. <a name="l00685"></a>00685 <span class="keywordflow">else</span>
  718. <a name="l00686"></a>00686 {
  719. <a name="l00687"></a>00687 word0 (a) = 0;
  720. <a name="l00688"></a>00688 L -= Exp_shift;
  721. <a name="l00689"></a>00689 <span class="preprocessor">#ifndef _DOUBLE_IS_32BITS</span>
  722. <a name="l00690"></a>00690 <span class="preprocessor"></span> word1 (a) = L &gt;= 31 ? 1 : 1 &lt;&lt; (31 - L);
  723. <a name="l00691"></a>00691 <span class="preprocessor">#endif</span>
  724. <a name="l00692"></a>00692 <span class="preprocessor"></span> }
  725. <a name="l00693"></a>00693 }
  726. <a name="l00694"></a>00694 <span class="preprocessor">#endif</span>
  727. <a name="l00695"></a>00695 <span class="preprocessor"></span> <span class="keywordflow">return</span> a.d;
  728. <a name="l00696"></a>00696 }
  729. <a name="l00697"></a>00697
  730. <a name="l00698"></a>00698 <span class="keywordtype">double</span>
  731. <a name="l00699"></a>00699 _DEFUN (b2d, (a, e),
  732. <a name="l00700"></a>00700 _Bigint * a _AND <span class="keywordtype">int</span> *e)
  733. <a name="l00701"></a>00701 {
  734. <a name="l00702"></a>00702 __ULong *xa, *xa0, w, y, z;
  735. <a name="l00703"></a>00703 <span class="keywordtype">int</span> k;
  736. <a name="l00704"></a>00704 <span class="keyword">union </span>double_union d;
  737. <a name="l00705"></a>00705 <span class="preprocessor">#ifdef VAX</span>
  738. <a name="l00706"></a>00706 <span class="preprocessor"></span> __ULong d0, d1;
  739. <a name="l00707"></a>00707 <span class="preprocessor">#else</span>
  740. <a name="l00708"></a>00708 <span class="preprocessor"></span><span class="preprocessor">#define d0 word0(d)</span>
  741. <a name="l00709"></a>00709 <span class="preprocessor"></span><span class="preprocessor">#define d1 word1(d)</span>
  742. <a name="l00710"></a>00710 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
  743. <a name="l00711"></a>00711 <span class="preprocessor"></span>
  744. <a name="l00712"></a>00712 xa0 = a-&gt;_x;
  745. <a name="l00713"></a>00713 xa = xa0 + a-&gt;_wds;
  746. <a name="l00714"></a>00714 y = *--xa;
  747. <a name="l00715"></a>00715 <span class="preprocessor">#ifdef DEBUG</span>
  748. <a name="l00716"></a>00716 <span class="preprocessor"></span> <span class="keywordflow">if</span> (!y)
  749. <a name="l00717"></a>00717 Bug (<span class="stringliteral">&quot;zero y in b2d&quot;</span>);
  750. <a name="l00718"></a>00718 <span class="preprocessor">#endif</span>
  751. <a name="l00719"></a>00719 <span class="preprocessor"></span> k = hi0bits (y);
  752. <a name="l00720"></a>00720 *e = 32 - k;
  753. <a name="l00721"></a>00721 <span class="preprocessor">#ifdef Pack_32</span>
  754. <a name="l00722"></a>00722 <span class="preprocessor"></span> <span class="keywordflow">if</span> (k &lt; Ebits)
  755. <a name="l00723"></a>00723 {
  756. <a name="l00724"></a>00724 d0 = Exp_1 | y &gt;&gt; (Ebits - k);
  757. <a name="l00725"></a>00725 w = xa &gt; xa0 ? *--xa : 0;
  758. <a name="l00726"></a>00726 <span class="preprocessor">#ifndef _DOUBLE_IS_32BITS</span>
  759. <a name="l00727"></a>00727 <span class="preprocessor"></span> d1 = y &lt;&lt; ((32 - Ebits) + k) | w &gt;&gt; (Ebits - k);
  760. <a name="l00728"></a>00728 <span class="preprocessor">#endif</span>
  761. <a name="l00729"></a>00729 <span class="preprocessor"></span> <span class="keywordflow">goto</span> ret_d;
  762. <a name="l00730"></a>00730 }
  763. <a name="l00731"></a>00731 z = xa &gt; xa0 ? *--xa : 0;
  764. <a name="l00732"></a>00732 <span class="keywordflow">if</span> (k -= Ebits)
  765. <a name="l00733"></a>00733 {
  766. <a name="l00734"></a>00734 d0 = Exp_1 |

Large files files are truncated, but you can click here to view the full file