Linux heracles.o2switch.net 4.18.0-553.62.1.lve.el8.x86_64 #1 SMP Mon Jul 21 17:50:35 UTC 2025 x86_64
/
opt
/
alt
/
ruby21
/
share
/
doc
/
ruby
/
capi
/
html
/
de
/
d07
/
//opt/alt/ruby21/share/doc/ruby/capi/html/de/d07/bigdecimal_8c_source.html
<!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: ext/bigdecimal/bigdecimal.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">2.1.10p492(2016-04-01revision54464)</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 id="nav-path" class="navpath"> <ul> <li class="navelem"><a class="el" href="../../dir_31cedd4509e06940f559c1ca2f722e02.html">ext</a></li><li class="navelem"><a class="el" href="../../dir_7e45bd65ef6fb61fff80234b1efdec17.html">bigdecimal</a></li> </ul> </div> </div><!-- top --> <div class="header"> <div class="headertitle"> <div class="title">bigdecimal.c</div> </div> </div><!--header--> <div class="contents"> <a href="../../de/d07/bigdecimal_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"> * Ruby BigDecimal(Variable decimal precision) extension library.</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"> * Copyright(C) 2002 by Shigeo Kobayashi(shigeo@tinyforest.gr.jp)</span></div><div class="line"><a name="l00006"></a><span class="lineno"> 6</span> <span class="comment"> *</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> </div><div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <span class="comment">/* #define BIGDECIMAL_DEBUG 1 */</span></div><div class="line"><a name="l00010"></a><span class="lineno"> 10</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l00011"></a><span class="lineno"> 11</span> <span class="preprocessor"># define BIGDECIMAL_ENABLE_VPRINT 1</span></div><div class="line"><a name="l00012"></a><span class="lineno"> 12</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00013"></a><span class="lineno"> 13</span> <span class="preprocessor">#include "<a class="code" href="../../d0/da5/bigdecimal_8h.html">bigdecimal.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">#ifndef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l00016"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8de3ed741dadc9c979a4ff17c0a9116e"> 16</a></span> <span class="preprocessor"># define NDEBUG</span></div><div class="line"><a name="l00017"></a><span class="lineno"> 17</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00018"></a><span class="lineno"> 18</span> <span class="preprocessor">#include <assert.h></span></div><div class="line"><a name="l00019"></a><span class="lineno"> 19</span> </div><div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="preprocessor">#include <ctype.h></span></div><div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="preprocessor">#include <stdio.h></span></div><div class="line"><a name="l00022"></a><span class="lineno"> 22</span> <span class="preprocessor">#include <stdlib.h></span></div><div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="preprocessor">#include <string.h></span></div><div class="line"><a name="l00024"></a><span class="lineno"> 24</span> <span class="preprocessor">#include <errno.h></span></div><div class="line"><a name="l00025"></a><span class="lineno"> 25</span> <span class="preprocessor">#include <math.h></span></div><div class="line"><a name="l00026"></a><span class="lineno"> 26</span> <span class="preprocessor">#include "math.h"</span></div><div class="line"><a name="l00027"></a><span class="lineno"> 27</span> </div><div class="line"><a name="l00028"></a><span class="lineno"> 28</span> <span class="preprocessor">#ifdef HAVE_IEEEFP_H</span></div><div class="line"><a name="l00029"></a><span class="lineno"> 29</span> <span class="preprocessor">#include <ieeefp.h></span></div><div class="line"><a name="l00030"></a><span class="lineno"> 30</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00031"></a><span class="lineno"> 31</span> </div><div class="line"><a name="l00032"></a><span class="lineno"> 32</span> <span class="comment">/* #define ENABLE_NUMERIC_STRING */</span></div><div class="line"><a name="l00033"></a><span class="lineno"> 33</span> </div><div class="line"><a name="l00034"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a13cda46f499699ea6847b5ffd43eded0"> 34</a></span> <span class="preprocessor">#define MUL_OVERFLOW_SIGNED_INTEGER_P(a, b, min, max) ( \</span></div><div class="line"><a name="l00035"></a><span class="lineno"> 35</span> <span class="preprocessor"> (a) == 0 ? 0 : \</span></div><div class="line"><a name="l00036"></a><span class="lineno"> 36</span> <span class="preprocessor"> (a) == -1 ? (b) < -(max) : \</span></div><div class="line"><a name="l00037"></a><span class="lineno"> 37</span> <span class="preprocessor"> (a) > 0 ? \</span></div><div class="line"><a name="l00038"></a><span class="lineno"> 38</span> <span class="preprocessor"> ((b) > 0 ? (max) / (a) < (b) : (min) / (a) > (b)) : \</span></div><div class="line"><a name="l00039"></a><span class="lineno"> 39</span> <span class="preprocessor"> ((b) > 0 ? (min) / (a) < (b) : (max) / (a) > (b)))</span></div><div class="line"><a name="l00040"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a1c3d020c4b98628c2f61124dd388b39d"> 40</a></span> <span class="preprocessor">#define SIGNED_VALUE_MAX INTPTR_MAX</span></div><div class="line"><a name="l00041"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#acf8994252010c5c53385753235ec0f19"> 41</a></span> <span class="preprocessor">#define SIGNED_VALUE_MIN INTPTR_MIN</span></div><div class="line"><a name="l00042"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83"> 42</a></span> <span class="preprocessor">#define MUL_OVERFLOW_SIGNED_VALUE_P(a, b) MUL_OVERFLOW_SIGNED_INTEGER_P(a, b, SIGNED_VALUE_MIN, SIGNED_VALUE_MAX)</span></div><div class="line"><a name="l00043"></a><span class="lineno"> 43</span> </div><div class="line"><a name="l00044"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a35d65a2fc42642866f63112a60f4ef1d"> 44</a></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>;</div><div class="line"><a name="l00045"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ad2171de399eb36babca44e372300f1ad"> 45</a></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad2171de399eb36babca44e372300f1ad">rb_mBigMath</a>;</div><div class="line"><a name="l00046"></a><span class="lineno"> 46</span> </div><div class="line"><a name="l00047"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#afe01563e1fb7a76dc4b4d8a8646a35da"> 47</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#afe01563e1fb7a76dc4b4d8a8646a35da">id_BigDecimal_exception_mode</a>;</div><div class="line"><a name="l00048"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a0ac8ed0a9c0540f4de2a1dc3417c8ea5"> 48</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0ac8ed0a9c0540f4de2a1dc3417c8ea5">id_BigDecimal_rounding_mode</a>;</div><div class="line"><a name="l00049"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a1d998377c2b3f6cd912a39f23c36e2e8"> 49</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a1d998377c2b3f6cd912a39f23c36e2e8">id_BigDecimal_precision_limit</a>;</div><div class="line"><a name="l00050"></a><span class="lineno"> 50</span> </div><div class="line"><a name="l00051"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aa33f1d5c5fafc96f132763c64f9cc9bf"> 51</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#aa33f1d5c5fafc96f132763c64f9cc9bf">id_up</a>;</div><div class="line"><a name="l00052"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a0393347c77fd136263e04f331e471422"> 52</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0393347c77fd136263e04f331e471422">id_down</a>;</div><div class="line"><a name="l00053"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ad819f88e9d71caaa088391040fab2092"> 53</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad819f88e9d71caaa088391040fab2092">id_truncate</a>;</div><div class="line"><a name="l00054"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aa284e4519eb2b478d5d86cf38d265ee3"> 54</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#aa284e4519eb2b478d5d86cf38d265ee3">id_half_up</a>;</div><div class="line"><a name="l00055"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a6e61d7e60f95e591efc4d7471e0ad3c5"> 55</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e61d7e60f95e591efc4d7471e0ad3c5">id_default</a>;</div><div class="line"><a name="l00056"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#abe745ac9a1616c208a89359a189df4ce"> 56</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#abe745ac9a1616c208a89359a189df4ce">id_half_down</a>;</div><div class="line"><a name="l00057"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a2f6d6d786ec3e7b4fe54474966f499ec"> 57</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2f6d6d786ec3e7b4fe54474966f499ec">id_half_even</a>;</div><div class="line"><a name="l00058"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8791cc94c323922410fc7dc6b19108ed"> 58</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8791cc94c323922410fc7dc6b19108ed">id_banker</a>;</div><div class="line"><a name="l00059"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a56e3f63a8d8066c0e546d88ca466faea"> 59</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a56e3f63a8d8066c0e546d88ca466faea">id_ceiling</a>;</div><div class="line"><a name="l00060"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a81007732e86b09360d5dc40cbbeb5ec3"> 60</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a81007732e86b09360d5dc40cbbeb5ec3">id_ceil</a>;</div><div class="line"><a name="l00061"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a43afc3f97918b9e125feee3ec92f9e9e"> 61</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a43afc3f97918b9e125feee3ec92f9e9e">id_floor</a>;</div><div class="line"><a name="l00062"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a2977fd605942ed760dd69cbd0053ba7d"> 62</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2977fd605942ed760dd69cbd0053ba7d">id_to_r</a>;</div><div class="line"><a name="l00063"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a304cbbab7bd5573ab33773f6506d3345"> 63</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a304cbbab7bd5573ab33773f6506d3345">id_eq</a>;</div><div class="line"><a name="l00064"></a><span class="lineno"> 64</span> </div><div class="line"><a name="l00065"></a><span class="lineno"> 65</span> <span class="comment">/* MACRO's to guard objects from GC by keeping them in stack */</span></div><div class="line"><a name="l00066"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae"> 66</a></span> <span class="preprocessor">#define ENTER(n) volatile VALUE RB_UNUSED_VAR(vStack[n]);int iStack=0</span></div><div class="line"><a name="l00067"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a070409486cc2c3c246d56a4c0db26185"> 67</a></span> <span class="preprocessor">#define PUSH(x) vStack[iStack++] = (VALUE)(x);</span></div><div class="line"><a name="l00068"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229"> 68</a></span> <span class="preprocessor">#define SAVE(p) PUSH(p->obj);</span></div><div class="line"><a name="l00069"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1"> 69</a></span> <span class="preprocessor">#define GUARD_OBJ(p,y) {p=y;SAVE(p);}</span></div><div class="line"><a name="l00070"></a><span class="lineno"> 70</span> </div><div class="line"><a name="l00071"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1"> 71</a></span> <span class="preprocessor">#define BASE_FIG RMPD_COMPONENT_FIGURES</span></div><div class="line"><a name="l00072"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7"> 72</a></span> <span class="preprocessor">#define BASE RMPD_BASE</span></div><div class="line"><a name="l00073"></a><span class="lineno"> 73</span> </div><div class="line"><a name="l00074"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac9e5231401deab458a0de942e03feeb8"> 74</a></span> <span class="preprocessor">#define HALF_BASE (BASE/2)</span></div><div class="line"><a name="l00075"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f"> 75</a></span> <span class="preprocessor">#define BASE1 (BASE/10)</span></div><div class="line"><a name="l00076"></a><span class="lineno"> 76</span> </div><div class="line"><a name="l00077"></a><span class="lineno"> 77</span> <span class="preprocessor">#ifndef DBLE_FIG</span></div><div class="line"><a name="l00078"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac9322094e0d6891589fca4ac9ef4fb8a"> 78</a></span> <span class="preprocessor">#define DBLE_FIG (DBL_DIG+1) </span><span class="comment">/* figure of double */</span><span class="preprocessor"></span></div><div class="line"><a name="l00079"></a><span class="lineno"> 79</span> <span class="preprocessor">#endif</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="preprocessor">#ifndef RBIGNUM_ZERO_P</span></div><div class="line"><a name="l00082"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a5c1b26ed157e5db3993f1d18cb44ec28"> 82</a></span> <span class="preprocessor"># define RBIGNUM_ZERO_P(x) rb_bigzero_p(x)</span></div><div class="line"><a name="l00083"></a><span class="lineno"> 83</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00084"></a><span class="lineno"> 84</span> </div><div class="line"><a name="l00085"></a><span class="lineno"> 85</span> <span class="preprocessor">#ifndef RRATIONAL_ZERO_P</span></div><div class="line"><a name="l00086"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#adad7ec3a29f1c795e3ce0ea7349c4dec"> 86</a></span> <span class="preprocessor"># define RRATIONAL_ZERO_P(x) (FIXNUM_P(RRATIONAL(x)->num) && \</span></div><div class="line"><a name="l00087"></a><span class="lineno"> 87</span> <span class="preprocessor"> FIX2LONG(RRATIONAL(x)->num) == 0)</span></div><div class="line"><a name="l00088"></a><span class="lineno"> 88</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00089"></a><span class="lineno"> 89</span> </div><div class="line"><a name="l00090"></a><span class="lineno"> 90</span> <span class="preprocessor">#ifndef RRATIONAL_NEGATIVE_P</span></div><div class="line"><a name="l00091"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a87f9f22c8e1a6bed3ee09e82437e2ec3"> 91</a></span> <span class="preprocessor"># define RRATIONAL_NEGATIVE_P(x) RTEST(rb_funcall((x), '<', 1, INT2FIX(0)))</span></div><div class="line"><a name="l00092"></a><span class="lineno"> 92</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00093"></a><span class="lineno"> 93</span> </div><div class="line"><a name="l00094"></a><span class="lineno"> 94</span> <span class="comment">/*</span></div><div class="line"><a name="l00095"></a><span class="lineno"> 95</span> <span class="comment"> * ================== Ruby Interface part ==========================</span></div><div class="line"><a name="l00096"></a><span class="lineno"> 96</span> <span class="comment"> */</span></div><div class="line"><a name="l00097"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158"> 97</a></span> <span class="preprocessor">#define DoSomeOne(x,y,f) rb_num_coerce_bin(x,y,f)</span></div><div class="line"><a name="l00098"></a><span class="lineno"> 98</span> </div><div class="line"><a name="l00099"></a><span class="lineno"> 99</span> <span class="comment">/*</span></div><div class="line"><a name="l00100"></a><span class="lineno"> 100</span> <span class="comment"> * Returns the BigDecimal version number.</span></div><div class="line"><a name="l00101"></a><span class="lineno"> 101</span> <span class="comment"> */</span></div><div class="line"><a name="l00102"></a><span class="lineno"> 102</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00103"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ace695af41191f48a09020f1d790aedba"> 103</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ace695af41191f48a09020f1d790aedba">BigDecimal_version</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</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="comment">/*</span></div><div class="line"><a name="l00106"></a><span class="lineno"> 106</span> <span class="comment"> * 1.0.0: Ruby 1.8.0</span></div><div class="line"><a name="l00107"></a><span class="lineno"> 107</span> <span class="comment"> * 1.0.1: Ruby 1.8.1</span></div><div class="line"><a name="l00108"></a><span class="lineno"> 108</span> <span class="comment"> * 1.1.0: Ruby 1.9.3</span></div><div class="line"><a name="l00109"></a><span class="lineno"> 109</span> <span class="comment"> */</span></div><div class="line"><a name="l00110"></a><span class="lineno"> 110</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"1.1.0"</span>);</div><div class="line"><a name="l00111"></a><span class="lineno"> 111</span> }</div><div class="line"><a name="l00112"></a><span class="lineno"> 112</span> </div><div class="line"><a name="l00113"></a><span class="lineno"> 113</span> <span class="comment">/*</span></div><div class="line"><a name="l00114"></a><span class="lineno"> 114</span> <span class="comment"> * VP routines used in BigDecimal part</span></div><div class="line"><a name="l00115"></a><span class="lineno"> 115</span> <span class="comment"> */</span></div><div class="line"><a name="l00116"></a><span class="lineno"> 116</span> <span class="keyword">static</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>(<span class="keywordtype">void</span>);</div><div class="line"><a name="l00117"></a><span class="lineno"> 117</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>(<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l00118"></a><span class="lineno"> 118</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <span class="keywordtype">size_t</span> ixDigit, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> vPrev, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> v);</div><div class="line"><a name="l00119"></a><span class="lineno"> 119</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad">VpLimitRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <span class="keywordtype">size_t</span> ixDigit);</div><div class="line"><a name="l00120"></a><span class="lineno"> 120</span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9">VpCopy</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> <span class="keyword">const</span>* <span class="keyword">const</span> x);</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="preprocessor">#ifdef BIGDECIMAL_ENABLE_VPRINT</span></div><div class="line"><a name="l00123"></a><span class="lineno"> 123</span> <span class="keyword">static</span> <span class="keywordtype">int</span> VPrint(<a class="code" href="../../db/ddf/struct____s_f_i_l_e.html">FILE</a> *fp,<span class="keyword">const</span> <span class="keywordtype">char</span> *cntl_chr,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a);</div><div class="line"><a name="l00124"></a><span class="lineno"> 124</span> <span class="preprocessor">#endif</span></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="comment">/*</span></div><div class="line"><a name="l00127"></a><span class="lineno"> 127</span> <span class="comment"> * **** BigDecimal part ****</span></div><div class="line"><a name="l00128"></a><span class="lineno"> 128</span> <span class="comment"> */</span></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> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00131"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#acd8468cea3ccfe4e95c788c63707af9e"> 131</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acd8468cea3ccfe4e95c788c63707af9e">BigDecimal_delete</a>(<span class="keywordtype">void</span> *pv)</div><div class="line"><a name="l00132"></a><span class="lineno"> 132</span> {</div><div class="line"><a name="l00133"></a><span class="lineno"> 133</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(pv);</div><div class="line"><a name="l00134"></a><span class="lineno"> 134</span> }</div><div class="line"><a name="l00135"></a><span class="lineno"> 135</span> </div><div class="line"><a name="l00136"></a><span class="lineno"> 136</span> <span class="keyword">static</span> <span class="keywordtype">size_t</span></div><div class="line"><a name="l00137"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aa22efc5bc8b21aac188e5f9c2a0c549e"> 137</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aa22efc5bc8b21aac188e5f9c2a0c549e">BigDecimal_memsize</a>(<span class="keyword">const</span> <span class="keywordtype">void</span> *ptr)</div><div class="line"><a name="l00138"></a><span class="lineno"> 138</span> {</div><div class="line"><a name="l00139"></a><span class="lineno"> 139</span>  <span class="keyword">const</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv = ptr;</div><div class="line"><a name="l00140"></a><span class="lineno"> 140</span>  <span class="keywordflow">return</span> pv ? (<span class="keyword">sizeof</span>(*pv) + pv-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> * <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)) : 0;</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"><a class="line" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7"> 143</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="../../d7/de2/structrb__data__type__struct.html">rb_data_type_t</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a> = {</div><div class="line"><a name="l00144"></a><span class="lineno"> 144</span>  <span class="stringliteral">"BigDecimal"</span>,</div><div class="line"><a name="l00145"></a><span class="lineno"> 145</span>  { 0, <a class="code" href="../../de/d07/bigdecimal_8c.html#acd8468cea3ccfe4e95c788c63707af9e">BigDecimal_delete</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#aa22efc5bc8b21aac188e5f9c2a0c549e">BigDecimal_memsize</a>, },</div><div class="line"><a name="l00146"></a><span class="lineno"> 146</span> <span class="preprocessor">#ifdef RUBY_TYPED_FREE_IMMEDIATELY</span></div><div class="line"><a name="l00147"></a><span class="lineno"> 147</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8ac9b7da4c384cb034bdf421d2c3467d">RUBY_TYPED_FREE_IMMEDIATELY</a></div><div class="line"><a name="l00148"></a><span class="lineno"> 148</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00149"></a><span class="lineno"> 149</span> };</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> <span class="keyword">static</span> <span class="keyword">inline</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00152"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636"> 152</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">const</span> v)</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">return</span> <a class="code" href="../../db/dcc/error_8c.html#a2a5803d0e60feb0ed8f37e7a38e8df47">rb_typeddata_is_kind_of</a>(v, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>);</div><div class="line"><a name="l00155"></a><span class="lineno"> 155</span> }</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00158"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8"> 158</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p)</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> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(p)) {</div><div class="line"><a name="l00161"></a><span class="lineno"> 161</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>, <span class="stringliteral">"Computation results to 'NaN'(Not a Number)"</span>, 0);</div><div class="line"><a name="l00162"></a><span class="lineno"> 162</span>  }</div><div class="line"><a name="l00163"></a><span class="lineno"> 163</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(p)) {</div><div class="line"><a name="l00164"></a><span class="lineno"> 164</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"Computation results to 'Infinity'"</span>, 0);</div><div class="line"><a name="l00165"></a><span class="lineno"> 165</span>  }</div><div class="line"><a name="l00166"></a><span class="lineno"> 166</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(p)) {</div><div class="line"><a name="l00167"></a><span class="lineno"> 167</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"Computation results to '-Infinity'"</span>, 0);</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">return</span> p-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l00170"></a><span class="lineno"> 170</span> }</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> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac9117e739e17157b3cbcccbf1fad427d">NORETURN</a>(<span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a">cannot_be_coerced_into_BigDecimal</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</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="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00175"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a"> 175</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a">cannot_be_coerced_into_BigDecimal</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc_class, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> v)</div><div class="line"><a name="l00176"></a><span class="lineno"> 176</span> {</div><div class="line"><a name="l00177"></a><span class="lineno"> 177</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l00178"></a><span class="lineno"> 178</span> </div><div class="line"><a name="l00179"></a><span class="lineno"> 179</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a71420fb92a2a1c8a3af58c50dff37ccb">rb_special_const_p</a>(v)) {</div><div class="line"><a name="l00180"></a><span class="lineno"> 180</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#acbb281bacf6b80f460143348e26142e9">rb_inspect</a>(v);</div><div class="line"><a name="l00181"></a><span class="lineno"> 181</span>  }</div><div class="line"><a name="l00182"></a><span class="lineno"> 182</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00183"></a><span class="lineno"> 183</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a006647827acc7cce9e940e5f7fa3a1b8">rb_class_name</a>(<a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(v));</div><div class="line"><a name="l00184"></a><span class="lineno"> 184</span>  }</div><div class="line"><a name="l00185"></a><span class="lineno"> 185</span> </div><div class="line"><a name="l00186"></a><span class="lineno"> 186</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a5bd27db3e38af6131db24321c7cf9ec6">rb_str_cat2</a>(<a class="code" href="../../db/d2e/intern_8h.html#ae2843c766c24b80116bb127ebf22d5bf">rb_str_dup</a>(str), <span class="stringliteral">" can't be coerced into BigDecimal"</span>);</div><div class="line"><a name="l00187"></a><span class="lineno"> 187</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">rb_exc_new3</a>(exc_class, str));</div><div class="line"><a name="l00188"></a><span class="lineno"> 188</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"> 190</span> <span class="keyword">static</span> <span class="keyword">inline</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>);</div><div class="line"><a name="l00191"></a><span class="lineno"> 191</span> </div><div class="line"><a name="l00192"></a><span class="lineno"> 192</span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a>*</div><div class="line"><a name="l00193"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1"> 193</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> v, <span class="keywordtype">long</span> prec, <span class="keywordtype">int</span> must)</div><div class="line"><a name="l00194"></a><span class="lineno"> 194</span> {</div><div class="line"><a name="l00195"></a><span class="lineno"> 195</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv;</div><div class="line"><a name="l00196"></a><span class="lineno"> 196</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> num, bg;</div><div class="line"><a name="l00197"></a><span class="lineno"> 197</span>  <span class="keywordtype">char</span> szD[128];</div><div class="line"><a name="l00198"></a><span class="lineno"> 198</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> orig = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2edf6990280eb2637623ccd421dee4f0">Qundef</a>;</div><div class="line"><a name="l00199"></a><span class="lineno"> 199</span>  <span class="keywordtype">double</span> d;</div><div class="line"><a name="l00200"></a><span class="lineno"> 200</span> </div><div class="line"><a name="l00201"></a><span class="lineno"> 201</span> again:</div><div class="line"><a name="l00202"></a><span class="lineno"> 202</span>  <span class="keywordflow">switch</span>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(v)) {</div><div class="line"><a name="l00203"></a><span class="lineno"> 203</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div><div class="line"><a name="l00204"></a><span class="lineno"> 204</span>  <span class="keywordflow">if</span> (prec < 0) <span class="keywordflow">goto</span> unable_to_coerce_without_prec;</div><div class="line"><a name="l00205"></a><span class="lineno"> 205</span>  <span class="keywordflow">if</span> (prec > <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1) <span class="keywordflow">goto</span> SomeOneMayDoIt;</div><div class="line"><a name="l00206"></a><span class="lineno"> 206</span>  d = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa7311e0d10f373b0bb50c41522dc3981">RFLOAT_VALUE</a>(v);</div><div class="line"><a name="l00207"></a><span class="lineno"> 207</span>  <span class="keywordflow">if</span> (d != 0.0) {</div><div class="line"><a name="l00208"></a><span class="lineno"> 208</span>  v = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(v, <a class="code" href="../../de/d07/bigdecimal_8c.html#a2977fd605942ed760dd69cbd0053ba7d">id_to_r</a>, 0);</div><div class="line"><a name="l00209"></a><span class="lineno"> 209</span>  <span class="keywordflow">goto</span> again;</div><div class="line"><a name="l00210"></a><span class="lineno"> 210</span>  }</div><div class="line"><a name="l00211"></a><span class="lineno"> 211</span>  <span class="keywordflow">if</span> (1/d < 0.0) {</div><div class="line"><a name="l00212"></a><span class="lineno"> 212</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(prec, <span class="stringliteral">"-0"</span>);</div><div class="line"><a name="l00213"></a><span class="lineno"> 213</span>  }</div><div class="line"><a name="l00214"></a><span class="lineno"> 214</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(prec, <span class="stringliteral">"0"</span>);</div><div class="line"><a name="l00215"></a><span class="lineno"> 215</span> </div><div class="line"><a name="l00216"></a><span class="lineno"> 216</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l00217"></a><span class="lineno"> 217</span>  <span class="keywordflow">if</span> (prec < 0) <span class="keywordflow">goto</span> unable_to_coerce_without_prec;</div><div class="line"><a name="l00218"></a><span class="lineno"> 218</span> </div><div class="line"><a name="l00219"></a><span class="lineno"> 219</span>  <span class="keywordflow">if</span> (orig == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2edf6990280eb2637623ccd421dee4f0">Qundef</a> ? (orig = v, 1) : orig != v) {</div><div class="line"><a name="l00220"></a><span class="lineno"> 220</span>  num = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(v)->num;</div><div class="line"><a name="l00221"></a><span class="lineno"> 221</span>  pv = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(num, -1, must);</div><div class="line"><a name="l00222"></a><span class="lineno"> 222</span>  <span class="keywordflow">if</span> (pv == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">goto</span> SomeOneMayDoIt;</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>  v = <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(pv), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(v)->den, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a854de1c520ed24a625d5a29f36a08f7a">LONG2NUM</a>(prec));</div><div class="line"><a name="l00225"></a><span class="lineno"> 225</span>  <span class="keywordflow">goto</span> again;</div><div class="line"><a name="l00226"></a><span class="lineno"> 226</span>  }</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>  v = orig;</div><div class="line"><a name="l00229"></a><span class="lineno"> 229</span>  <span class="keywordflow">goto</span> SomeOneMayDoIt;</div><div class="line"><a name="l00230"></a><span class="lineno"> 230</span> </div><div class="line"><a name="l00231"></a><span class="lineno"> 231</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a>:</div><div class="line"><a name="l00232"></a><span class="lineno"> 232</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(v)) {</div><div class="line"><a name="l00233"></a><span class="lineno"> 233</span>  pv = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(v);</div><div class="line"><a name="l00234"></a><span class="lineno"> 234</span>  <span class="keywordflow">return</span> pv;</div><div class="line"><a name="l00235"></a><span class="lineno"> 235</span>  }</div><div class="line"><a name="l00236"></a><span class="lineno"> 236</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00237"></a><span class="lineno"> 237</span>  <span class="keywordflow">goto</span> SomeOneMayDoIt;</div><div class="line"><a name="l00238"></a><span class="lineno"> 238</span>  }</div><div class="line"><a name="l00239"></a><span class="lineno"> 239</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00240"></a><span class="lineno"> 240</span> </div><div class="line"><a name="l00241"></a><span class="lineno"> 241</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l00242"></a><span class="lineno"> 242</span>  sprintf(szD, <span class="stringliteral">"%ld"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(v));</div><div class="line"><a name="l00243"></a><span class="lineno"> 243</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() * 2 + 1, szD);</div><div class="line"><a name="l00244"></a><span class="lineno"> 244</span> </div><div class="line"><a name="l00245"></a><span class="lineno"> 245</span> <span class="preprocessor">#ifdef ENABLE_NUMERIC_STRING</span></div><div class="line"><a name="l00246"></a><span class="lineno"> 246</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>:</div><div class="line"><a name="l00247"></a><span class="lineno"> 247</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0381640e2905c1b3e104194f91697ca4">SafeStringValue</a>(v);</div><div class="line"><a name="l00248"></a><span class="lineno"> 248</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(v)) + <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1,</div><div class="line"><a name="l00249"></a><span class="lineno"> 249</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(v));</div><div class="line"><a name="l00250"></a><span class="lineno"> 250</span> <span class="preprocessor">#endif </span><span class="comment">/* ENABLE_NUMERIC_STRING */</span><span class="preprocessor"></span></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>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l00253"></a><span class="lineno"> 253</span>  bg = <a class="code" href="../../d1/dcc/bignum_8c.html#a5cd9431ab7853e3adb7bf49cad4460f2">rb_big2str</a>(v, 10);</div><div class="line"><a name="l00254"></a><span class="lineno"> 254</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(bg)) + <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1,</div><div class="line"><a name="l00255"></a><span class="lineno"> 255</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(bg));</div><div class="line"><a name="l00256"></a><span class="lineno"> 256</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l00257"></a><span class="lineno"> 257</span>  <span class="keywordflow">goto</span> SomeOneMayDoIt;</div><div class="line"><a name="l00258"></a><span class="lineno"> 258</span>  }</div><div class="line"><a name="l00259"></a><span class="lineno"> 259</span> </div><div class="line"><a name="l00260"></a><span class="lineno"> 260</span> SomeOneMayDoIt:</div><div class="line"><a name="l00261"></a><span class="lineno"> 261</span>  <span class="keywordflow">if</span> (must) {</div><div class="line"><a name="l00262"></a><span class="lineno"> 262</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a">cannot_be_coerced_into_BigDecimal</a>(<a class="code" href="../../db/dcc/error_8c.html#a565ed9d70f4089e1b4a36e9b3381b8c6">rb_eTypeError</a>, v);</div><div class="line"><a name="l00263"></a><span class="lineno"> 263</span>  }</div><div class="line"><a name="l00264"></a><span class="lineno"> 264</span>  <span class="keywordflow">return</span> <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>; <span class="comment">/* NULL means to coerce */</span></div><div class="line"><a name="l00265"></a><span class="lineno"> 265</span> </div><div class="line"><a name="l00266"></a><span class="lineno"> 266</span> unable_to_coerce_without_prec:</div><div class="line"><a name="l00267"></a><span class="lineno"> 267</span>  <span class="keywordflow">if</span> (must) {</div><div class="line"><a name="l00268"></a><span class="lineno"> 268</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div><div class="line"><a name="l00269"></a><span class="lineno"> 269</span>  <span class="stringliteral">"%s can't be coerced into BigDecimal without a precision"</span>,</div><div class="line"><a name="l00270"></a><span class="lineno"> 270</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9b4f42ada717bfbe7a78830639476aed">rb_obj_classname</a>(v));</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="keywordflow">return</span> <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l00273"></a><span class="lineno"> 273</span> }</div><div class="line"><a name="l00274"></a><span class="lineno"> 274</span> </div><div class="line"><a name="l00275"></a><span class="lineno"> 275</span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a>*</div><div class="line"><a name="l00276"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6"> 276</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> v, <span class="keywordtype">int</span> must)</div><div class="line"><a name="l00277"></a><span class="lineno"> 277</span> {</div><div class="line"><a name="l00278"></a><span class="lineno"> 278</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(v, -1, must);</div><div class="line"><a name="l00279"></a><span class="lineno"> 279</span> }</div><div class="line"><a name="l00280"></a><span class="lineno"> 280</span> </div><div class="line"><a name="l00281"></a><span class="lineno"> 281</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l00282"></a><span class="lineno"> 282</span> <span class="comment"> * BigDecimal.double_fig</span></div><div class="line"><a name="l00283"></a><span class="lineno"> 283</span> <span class="comment"> *</span></div><div class="line"><a name="l00284"></a><span class="lineno"> 284</span> <span class="comment"> * The BigDecimal.double_fig class method returns the number of digits a</span></div><div class="line"><a name="l00285"></a><span class="lineno"> 285</span> <span class="comment"> * Float number is allowed to have. The result depends upon the CPU and OS</span></div><div class="line"><a name="l00286"></a><span class="lineno"> 286</span> <span class="comment"> * in use.</span></div><div class="line"><a name="l00287"></a><span class="lineno"> 287</span> <span class="comment"> */</span></div><div class="line"><a name="l00288"></a><span class="lineno"> 288</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00289"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#adfe3ba1c7c2dc320965ff2347d6eac9d"> 289</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adfe3ba1c7c2dc320965ff2347d6eac9d">BigDecimal_double_fig</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</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>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a62d613b3e8b07bf043833a3c1e86d092">VpDblFig</a>());</div><div class="line"><a name="l00292"></a><span class="lineno"> 292</span> }</div><div class="line"><a name="l00293"></a><span class="lineno"> 293</span> </div><div class="line"><a name="l00294"></a><span class="lineno"> 294</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l00295"></a><span class="lineno"> 295</span> <span class="comment"> * precs</span></div><div class="line"><a name="l00296"></a><span class="lineno"> 296</span> <span class="comment"> *</span></div><div class="line"><a name="l00297"></a><span class="lineno"> 297</span> <span class="comment"> * Returns an Array of two Integer values.</span></div><div class="line"><a name="l00298"></a><span class="lineno"> 298</span> <span class="comment"> *</span></div><div class="line"><a name="l00299"></a><span class="lineno"> 299</span> <span class="comment"> * The first value is the current number of significant digits in the</span></div><div class="line"><a name="l00300"></a><span class="lineno"> 300</span> <span class="comment"> * BigDecimal. The second value is the maximum number of significant digits</span></div><div class="line"><a name="l00301"></a><span class="lineno"> 301</span> <span class="comment"> * for the BigDecimal.</span></div><div class="line"><a name="l00302"></a><span class="lineno"> 302</span> <span class="comment"> */</span></div><div class="line"><a name="l00303"></a><span class="lineno"> 303</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00304"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac3fe6c73c4f33c17531316265dd89d52"> 304</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac3fe6c73c4f33c17531316265dd89d52">BigDecimal_prec</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00305"></a><span class="lineno"> 305</span> {</div><div class="line"><a name="l00306"></a><span class="lineno"> 306</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(1);</div><div class="line"><a name="l00307"></a><span class="lineno"> 307</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p;</div><div class="line"><a name="l00308"></a><span class="lineno"> 308</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l00309"></a><span class="lineno"> 309</span> </div><div class="line"><a name="l00310"></a><span class="lineno"> 310</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(p, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00311"></a><span class="lineno"> 311</span>  obj = <a class="code" href="../../dc/dcc/array_8c.html#af3085ceab406e3f4f4b90f383c440d6a">rb_assoc_new</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(p-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>()),</div><div class="line"><a name="l00312"></a><span class="lineno"> 312</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(p-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>()));</div><div class="line"><a name="l00313"></a><span class="lineno"> 313</span>  <span class="keywordflow">return</span> obj;</div><div class="line"><a name="l00314"></a><span class="lineno"> 314</span> }</div><div class="line"><a name="l00315"></a><span class="lineno"> 315</span> </div><div class="line"><a name="l00316"></a><span class="lineno"> 316</span> <span class="comment">/*</span></div><div class="line"><a name="l00317"></a><span class="lineno"> 317</span> <span class="comment"> * call-seq: hash</span></div><div class="line"><a name="l00318"></a><span class="lineno"> 318</span> <span class="comment"> *</span></div><div class="line"><a name="l00319"></a><span class="lineno"> 319</span> <span class="comment"> * Creates a hash for this BigDecimal.</span></div><div class="line"><a name="l00320"></a><span class="lineno"> 320</span> <span class="comment"> *</span></div><div class="line"><a name="l00321"></a><span class="lineno"> 321</span> <span class="comment"> * Two BigDecimals with equal sign,</span></div><div class="line"><a name="l00322"></a><span class="lineno"> 322</span> <span class="comment"> * fractional part and exponent have the same hash.</span></div><div class="line"><a name="l00323"></a><span class="lineno"> 323</span> <span class="comment"> */</span></div><div class="line"><a name="l00324"></a><span class="lineno"> 324</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00325"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a9df44346cf2f3ab824b826fd969fdee4"> 325</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a9df44346cf2f3ab824b826fd969fdee4">BigDecimal_hash</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00326"></a><span class="lineno"> 326</span> {</div><div class="line"><a name="l00327"></a><span class="lineno"> 327</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(1);</div><div class="line"><a name="l00328"></a><span class="lineno"> 328</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p;</div><div class="line"><a name="l00329"></a><span class="lineno"> 329</span>  <a class="code" href="../../dd/d24/st_8h.html#ac214e5cdcf0de6a2108b9643e7fc12e0">st_index_t</a> <a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a>;</div><div class="line"><a name="l00330"></a><span class="lineno"> 330</span> </div><div class="line"><a name="l00331"></a><span class="lineno"> 331</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(p, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00332"></a><span class="lineno"> 332</span>  <a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a> = (<a class="code" href="../../dd/d24/st_8h.html#ac214e5cdcf0de6a2108b9643e7fc12e0">st_index_t</a>)p-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a>;</div><div class="line"><a name="l00333"></a><span class="lineno"> 333</span>  <span class="comment">/* hash!=2: the case for 0(1),NaN(0) or +-Infinity(3) is sign itself */</span></div><div class="line"><a name="l00334"></a><span class="lineno"> 334</span>  <span class="keywordflow">if</span>(<a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a> == 2 || <a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a> == (<a class="code" href="../../dd/d24/st_8h.html#ac214e5cdcf0de6a2108b9643e7fc12e0">st_index_t</a>)-2) {</div><div class="line"><a name="l00335"></a><span class="lineno"> 335</span>  <a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a> ^= <a class="code" href="../../db/d2e/intern_8h.html#a467461650cee651125cdac471160b9cd">rb_memhash</a>(p-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)*p-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>);</div><div class="line"><a name="l00336"></a><span class="lineno"> 336</span>  <a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a> += p-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l00337"></a><span class="lineno"> 337</span>  }</div><div class="line"><a name="l00338"></a><span class="lineno"> 338</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a>);</div><div class="line"><a name="l00339"></a><span class="lineno"> 339</span> }</div><div class="line"><a name="l00340"></a><span class="lineno"> 340</span> </div><div class="line"><a name="l00341"></a><span class="lineno"> 341</span> <span class="comment">/*</span></div><div class="line"><a name="l00342"></a><span class="lineno"> 342</span> <span class="comment"> * call-seq: _dump</span></div><div class="line"><a name="l00343"></a><span class="lineno"> 343</span> <span class="comment"> *</span></div><div class="line"><a name="l00344"></a><span class="lineno"> 344</span> <span class="comment"> * Method used to provide marshalling support.</span></div><div class="line"><a name="l00345"></a><span class="lineno"> 345</span> <span class="comment"> *</span></div><div class="line"><a name="l00346"></a><span class="lineno"> 346</span> <span class="comment"> * inf = BigDecimal.new('Infinity')</span></div><div class="line"><a name="l00347"></a><span class="lineno"> 347</span> <span class="comment"> * => #<BigDecimal:1e16fa8,'Infinity',9(9)></span></div><div class="line"><a name="l00348"></a><span class="lineno"> 348</span> <span class="comment"> * BigDecimal._load(inf._dump)</span></div><div class="line"><a name="l00349"></a><span class="lineno"> 349</span> <span class="comment"> * => #<BigDecimal:1df8dc8,'Infinity',9(9)></span></div><div class="line"><a name="l00350"></a><span class="lineno"> 350</span> <span class="comment"> *</span></div><div class="line"><a name="l00351"></a><span class="lineno"> 351</span> <span class="comment"> * See the Marshal module.</span></div><div class="line"><a name="l00352"></a><span class="lineno"> 352</span> <span class="comment"> */</span></div><div class="line"><a name="l00353"></a><span class="lineno"> 353</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00354"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aeee2f166ec27c2e6aefc33468117fc83"> 354</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aeee2f166ec27c2e6aefc33468117fc83">BigDecimal_dump</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00355"></a><span class="lineno"> 355</span> {</div><div class="line"><a name="l00356"></a><span class="lineno"> 356</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l00357"></a><span class="lineno"> 357</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *vp;</div><div class="line"><a name="l00358"></a><span class="lineno"> 358</span>  <span class="keywordtype">char</span> *psz;</div><div class="line"><a name="l00359"></a><span class="lineno"> 359</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> dummy;</div><div class="line"><a name="l00360"></a><span class="lineno"> 360</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> dump;</div><div class="line"><a name="l00361"></a><span class="lineno"> 361</span> </div><div class="line"><a name="l00362"></a><span class="lineno"> 362</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &dummy);</div><div class="line"><a name="l00363"></a><span class="lineno"> 363</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(vp,<a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00364"></a><span class="lineno"> 364</span>  dump = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(vp, <span class="stringliteral">"E"</span>)+50);</div><div class="line"><a name="l00365"></a><span class="lineno"> 365</span>  psz = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(dump);</div><div class="line"><a name="l00366"></a><span class="lineno"> 366</span>  sprintf(psz, <span class="stringliteral">"%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">":"</span>, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1018c17daa626eb4946c20bbd6de2e3d">VpMaxPrec</a>(vp)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>());</div><div class="line"><a name="l00367"></a><span class="lineno"> 367</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a211c1231a80bd2b30ead108f0b6029a6">VpToString</a>(vp, psz+<a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz), 0, 0);</div><div class="line"><a name="l00368"></a><span class="lineno"> 368</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(dump, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz));</div><div class="line"><a name="l00369"></a><span class="lineno"> 369</span>  <span class="keywordflow">return</span> dump;</div><div class="line"><a name="l00370"></a><span class="lineno"> 370</span> }</div><div class="line"><a name="l00371"></a><span class="lineno"> 371</span> </div><div class="line"><a name="l00372"></a><span class="lineno"> 372</span> <span class="comment">/*</span></div><div class="line"><a name="l00373"></a><span class="lineno"> 373</span> <span class="comment"> * Internal method used to provide marshalling support. See the Marshal module.</span></div><div class="line"><a name="l00374"></a><span class="lineno"> 374</span> <span class="comment"> */</span></div><div class="line"><a name="l00375"></a><span class="lineno"> 375</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00376"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac8975974ba962574fb9b99ffb18c0ce1"> 376</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac8975974ba962574fb9b99ffb18c0ce1">BigDecimal_load</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str)</div><div class="line"><a name="l00377"></a><span class="lineno"> 377</span> {</div><div class="line"><a name="l00378"></a><span class="lineno"> 378</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(2);</div><div class="line"><a name="l00379"></a><span class="lineno"> 379</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv;</div><div class="line"><a name="l00380"></a><span class="lineno"> 380</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> *pch;</div><div class="line"><a name="l00381"></a><span class="lineno"> 381</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> ch;</div><div class="line"><a name="l00382"></a><span class="lineno"> 382</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> m=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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0381640e2905c1b3e104194f91697ca4">SafeStringValue</a>(str);</div><div class="line"><a name="l00385"></a><span class="lineno"> 385</span>  pch = (<span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> *)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str);</div><div class="line"><a name="l00386"></a><span class="lineno"> 386</span>  <span class="comment">/* First get max prec */</span></div><div class="line"><a name="l00387"></a><span class="lineno"> 387</span>  <span class="keywordflow">while</span>((*pch) != (<span class="keywordtype">unsigned</span> char)<span class="charliteral">'\0'</span> && (ch = *pch++) != (<span class="keywordtype">unsigned</span> char)<span class="charliteral">':'</span>) {</div><div class="line"><a name="l00388"></a><span class="lineno"> 388</span>  <span class="keywordflow">if</span>(!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(ch)) {</div><div class="line"><a name="l00389"></a><span class="lineno"> 389</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a565ed9d70f4089e1b4a36e9b3381b8c6">rb_eTypeError</a>, <span class="stringliteral">"load failed: invalid character in the marshaled string"</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>  m = m*10 + (<span class="keywordtype">unsigned</span> long)(ch-<span class="charliteral">'0'</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>  <span class="keywordflow">if</span> (m > <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>()) m -= <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>();</div><div class="line"><a name="l00394"></a><span class="lineno"> 394</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(pv, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b22d7e4fa63b870de87082a06e7c875">VpNewRbClass</a>(m, (<span class="keywordtype">char</span> *)pch, <span class="keyword">self</span>));</div><div class="line"><a name="l00395"></a><span class="lineno"> 395</span>  m /= <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>();</div><div class="line"><a name="l00396"></a><span class="lineno"> 396</span>  <span class="keywordflow">if</span> (m && pv-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> > m) {</div><div class="line"><a name="l00397"></a><span class="lineno"> 397</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = m+1;</div><div class="line"><a name="l00398"></a><span class="lineno"> 398</span>  }</div><div class="line"><a name="l00399"></a><span class="lineno"> 399</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(pv);</div><div class="line"><a name="l00400"></a><span class="lineno"> 400</span> }</div><div class="line"><a name="l00401"></a><span class="lineno"> 401</span> </div><div class="line"><a name="l00402"></a><span class="lineno"> 402</span> <span class="keyword">static</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span></div><div class="line"><a name="l00403"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a0e4cb8ae95acd6379bd22e1f6195a387"> 403</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0e4cb8ae95acd6379bd22e1f6195a387">check_rounding_mode</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">const</span> v)</div><div class="line"><a name="l00404"></a><span class="lineno"> 404</span> {</div><div class="line"><a name="l00405"></a><span class="lineno"> 405</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> sw;</div><div class="line"><a name="l00406"></a><span class="lineno"> 406</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a64ae40793ade89d800a8c5646d2980fc">id</a>;</div><div class="line"><a name="l00407"></a><span class="lineno"> 407</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(v)) {</div><div class="line"><a name="l00408"></a><span class="lineno"> 408</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac9aadbc1e9c456506a4d7eef5cdc787e">T_SYMBOL</a>:</div><div class="line"><a name="l00409"></a><span class="lineno"> 409</span>  <span class="keywordtype">id</span> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5a8a0a36dbacb1ec73a860b8fd6a61a1">SYM2ID</a>(v);</div><div class="line"><a name="l00410"></a><span class="lineno"> 410</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#aa33f1d5c5fafc96f132763c64f9cc9bf">id_up</a>)</div><div class="line"><a name="l00411"></a><span class="lineno"> 411</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#acc54e540534a259d314f5be704e41dbd">VP_ROUND_UP</a>;</div><div class="line"><a name="l00412"></a><span class="lineno"> 412</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a0393347c77fd136263e04f331e471422">id_down</a> || <span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#ad819f88e9d71caaa088391040fab2092">id_truncate</a>)</div><div class="line"><a name="l00413"></a><span class="lineno"> 413</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>;</div><div class="line"><a name="l00414"></a><span class="lineno"> 414</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#aa284e4519eb2b478d5d86cf38d265ee3">id_half_up</a> || <span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e61d7e60f95e591efc4d7471e0ad3c5">id_default</a>)</div><div class="line"><a name="l00415"></a><span class="lineno"> 415</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aee9c0b939acd1671730ec28bb6fedf6e">VP_ROUND_HALF_UP</a>;</div><div class="line"><a name="l00416"></a><span class="lineno"> 416</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#abe745ac9a1616c208a89359a189df4ce">id_half_down</a>)</div><div class="line"><a name="l00417"></a><span class="lineno"> 417</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77487cab033862462c80f665bb3693b0">VP_ROUND_HALF_DOWN</a>;</div><div class="line"><a name="l00418"></a><span class="lineno"> 418</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a2f6d6d786ec3e7b4fe54474966f499ec">id_half_even</a> || <span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a8791cc94c323922410fc7dc6b19108ed">id_banker</a>)</div><div class="line"><a name="l00419"></a><span class="lineno"> 419</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a2372d42c88c84f677d64f400574f730c">VP_ROUND_HALF_EVEN</a>;</div><div class="line"><a name="l00420"></a><span class="lineno"> 420</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a56e3f63a8d8066c0e546d88ca466faea">id_ceiling</a> || <span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a81007732e86b09360d5dc40cbbeb5ec3">id_ceil</a>)</div><div class="line"><a name="l00421"></a><span class="lineno"> 421</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a>;</div><div class="line"><a name="l00422"></a><span class="lineno"> 422</span>  <span class="keywordflow">if</span> (<span class="keywordtype">id</span> == <a class="code" href="../../de/d07/bigdecimal_8c.html#a43afc3f97918b9e125feee3ec92f9e9e">id_floor</a>)</div><div class="line"><a name="l00423"></a><span class="lineno"> 423</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>;</div><div class="line"><a name="l00424"></a><span class="lineno"> 424</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"invalid rounding mode"</span>);</div><div class="line"><a name="l00425"></a><span class="lineno"> 425</span> </div><div class="line"><a name="l00426"></a><span class="lineno"> 426</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l00427"></a><span class="lineno"> 427</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00428"></a><span class="lineno"> 428</span>  }</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(v, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l00431"></a><span class="lineno"> 431</span>  sw = (<span class="keywordtype">unsigned</span> short)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aaf9c568541e720d34bda2d7009c69365">FIX2UINT</a>(v);</div><div class="line"><a name="l00432"></a><span class="lineno"> 432</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a2080f29dbc4005c2b343ebd59ef45bc0">VpIsRoundMode</a>(sw)) {</div><div class="line"><a name="l00433"></a><span class="lineno"> 433</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"invalid rounding mode"</span>);</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>  <span class="keywordflow">return</span> sw;</div><div class="line"><a name="l00436"></a><span class="lineno"> 436</span> }</div><div class="line"><a name="l00437"></a><span class="lineno"> 437</span> </div><div class="line"><a name="l00438"></a><span class="lineno"> 438</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l00439"></a><span class="lineno"> 439</span> <span class="comment"> * BigDecimal.mode(mode, value)</span></div><div class="line"><a name="l00440"></a><span class="lineno"> 440</span> <span class="comment"> *</span></div><div class="line"><a name="l00441"></a><span class="lineno"> 441</span> <span class="comment"> * Controls handling of arithmetic exceptions and rounding. If no value</span></div><div class="line"><a name="l00442"></a><span class="lineno"> 442</span> <span class="comment"> * is supplied, the current value is returned.</span></div><div class="line"><a name="l00443"></a><span class="lineno"> 443</span> <span class="comment"> *</span></div><div class="line"><a name="l00444"></a><span class="lineno"> 444</span> <span class="comment"> * Six values of the mode parameter control the handling of arithmetic</span></div><div class="line"><a name="l00445"></a><span class="lineno"> 445</span> <span class="comment"> * exceptions:</span></div><div class="line"><a name="l00446"></a><span class="lineno"> 446</span> <span class="comment"> *</span></div><div class="line"><a name="l00447"></a><span class="lineno"> 447</span> <span class="comment"> * BigDecimal::EXCEPTION_NaN</span></div><div class="line"><a name="l00448"></a><span class="lineno"> 448</span> <span class="comment"> * BigDecimal::EXCEPTION_INFINITY</span></div><div class="line"><a name="l00449"></a><span class="lineno"> 449</span> <span class="comment"> * BigDecimal::EXCEPTION_UNDERFLOW</span></div><div class="line"><a name="l00450"></a><span class="lineno"> 450</span> <span class="comment"> * BigDecimal::EXCEPTION_OVERFLOW</span></div><div class="line"><a name="l00451"></a><span class="lineno"> 451</span> <span class="comment"> * BigDecimal::EXCEPTION_ZERODIVIDE</span></div><div class="line"><a name="l00452"></a><span class="lineno"> 452</span> <span class="comment"> * BigDecimal::EXCEPTION_ALL</span></div><div class="line"><a name="l00453"></a><span class="lineno"> 453</span> <span class="comment"> *</span></div><div class="line"><a name="l00454"></a><span class="lineno"> 454</span> <span class="comment"> * For each mode parameter above, if the value set is false, computation</span></div><div class="line"><a name="l00455"></a><span class="lineno"> 455</span> <span class="comment"> * continues after an arithmetic exception of the appropriate type.</span></div><div class="line"><a name="l00456"></a><span class="lineno"> 456</span> <span class="comment"> * When computation continues, results are as follows:</span></div><div class="line"><a name="l00457"></a><span class="lineno"> 457</span> <span class="comment"> *</span></div><div class="line"><a name="l00458"></a><span class="lineno"> 458</span> <span class="comment"> * EXCEPTION_NaN:: NaN</span></div><div class="line"><a name="l00459"></a><span class="lineno"> 459</span> <span class="comment"> * EXCEPTION_INFINITY:: +Infinity or -Infinity</span></div><div class="line"><a name="l00460"></a><span class="lineno"> 460</span> <span class="comment"> * EXCEPTION_UNDERFLOW:: 0</span></div><div class="line"><a name="l00461"></a><span class="lineno"> 461</span> <span class="comment"> * EXCEPTION_OVERFLOW:: +Infinity or -Infinity</span></div><div class="line"><a name="l00462"></a><span class="lineno"> 462</span> <span class="comment"> * EXCEPTION_ZERODIVIDE:: +Infinity or -Infinity</span></div><div class="line"><a name="l00463"></a><span class="lineno"> 463</span> <span class="comment"> *</span></div><div class="line"><a name="l00464"></a><span class="lineno"> 464</span> <span class="comment"> * One value of the mode parameter controls the rounding of numeric values:</span></div><div class="line"><a name="l00465"></a><span class="lineno"> 465</span> <span class="comment"> * BigDecimal::ROUND_MODE. The values it can take are:</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"> * ROUND_UP, :up:: round away from zero</span></div><div class="line"><a name="l00468"></a><span class="lineno"> 468</span> <span class="comment"> * ROUND_DOWN, :down, :truncate:: round towards zero (truncate)</span></div><div class="line"><a name="l00469"></a><span class="lineno"> 469</span> <span class="comment"> * ROUND_HALF_UP, :half_up, :default:: round towards the nearest neighbor, unless both neighbors are equidistant, in which case round away from zero. (default)</span></div><div class="line"><a name="l00470"></a><span class="lineno"> 470</span> <span class="comment"> * ROUND_HALF_DOWN, :half_down:: round towards the nearest neighbor, unless both neighbors are equidistant, in which case round towards zero.</span></div><div class="line"><a name="l00471"></a><span class="lineno"> 471</span> <span class="comment"> * ROUND_HALF_EVEN, :half_even, :banker:: round towards the nearest neighbor, unless both neighbors are equidistant, in which case round towards the even neighbor (Banker's rounding)</span></div><div class="line"><a name="l00472"></a><span class="lineno"> 472</span> <span class="comment"> * ROUND_CEILING, :ceiling, :ceil:: round towards positive infinity (ceil)</span></div><div class="line"><a name="l00473"></a><span class="lineno"> 473</span> <span class="comment"> * ROUND_FLOOR, :floor:: round towards negative infinity (floor)</span></div><div class="line"><a name="l00474"></a><span class="lineno"> 474</span> <span class="comment"> *</span></div><div class="line"><a name="l00475"></a><span class="lineno"> 475</span> <span class="comment"> */</span></div><div class="line"><a name="l00476"></a><span class="lineno"> 476</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00477"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a9fbcfa2c2698e10a718e768ceab49468"> 477</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a9fbcfa2c2698e10a718e768ceab49468">BigDecimal_mode</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00478"></a><span class="lineno"> 478</span> {</div><div class="line"><a name="l00479"></a><span class="lineno"> 479</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> which;</div><div class="line"><a name="l00480"></a><span class="lineno"> 480</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l00481"></a><span class="lineno"> 481</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>,fo;</div><div class="line"><a name="l00482"></a><span class="lineno"> 482</span> </div><div class="line"><a name="l00483"></a><span class="lineno"> 483</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &which, &<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>);</div><div class="line"><a name="l00484"></a><span class="lineno"> 484</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(which, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l00485"></a><span class="lineno"> 485</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = (<span class="keywordtype">unsigned</span> long)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(which);</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="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> & <a class="code" href="../../d0/da5/bigdecimal_8h.html#abec6bb5a28206ba19d42a7ef58329505">VP_EXCEPTION_ALL</a>) {</div><div class="line"><a name="l00488"></a><span class="lineno"> 488</span>  <span class="comment">/* Exception mode setting */</span></div><div class="line"><a name="l00489"></a><span class="lineno"> 489</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l00490"></a><span class="lineno"> 490</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(fo);</div><div class="line"><a name="l00491"></a><span class="lineno"> 491</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> != <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a> && <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>!=<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>) {</div><div class="line"><a name="l00492"></a><span class="lineno"> 492</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"second argument must be true or false"</span>);</div><div class="line"><a name="l00493"></a><span class="lineno"> 493</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>; <span class="comment">/* Not reached */</span></div><div class="line"><a name="l00494"></a><span class="lineno"> 494</span>  }</div><div class="line"><a name="l00495"></a><span class="lineno"> 495</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> & <a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>) {</div><div class="line"><a name="l00496"></a><span class="lineno"> 496</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>((<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span>)((<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>) ? (fo | <a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>) :</div><div class="line"><a name="l00497"></a><span class="lineno"> 497</span>  (fo & (~<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>))));</div><div class="line"><a name="l00498"></a><span class="lineno"> 498</span>  }</div><div class="line"><a name="l00499"></a><span class="lineno"> 499</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l00500"></a><span class="lineno"> 500</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> & <a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>) {</div><div class="line"><a name="l00501"></a><span class="lineno"> 501</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>((<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span>)((<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>) ? (fo | <a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>) :</div><div class="line"><a name="l00502"></a><span class="lineno"> 502</span>  (fo & (~<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>))));</div><div class="line"><a name="l00503"></a><span class="lineno"> 503</span>  }</div><div class="line"><a name="l00504"></a><span class="lineno"> 504</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l00505"></a><span class="lineno"> 505</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> & <a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>) {</div><div class="line"><a name="l00506"></a><span class="lineno"> 506</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>((<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span>)((<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>) ? (fo | <a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>) :</div><div class="line"><a name="l00507"></a><span class="lineno"> 507</span>  (fo & (~<a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>))));</div><div class="line"><a name="l00508"></a><span class="lineno"> 508</span>  }</div><div class="line"><a name="l00509"></a><span class="lineno"> 509</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l00510"></a><span class="lineno"> 510</span>  <span class="keywordflow">if</span>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> & <a class="code" href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a>) {</div><div class="line"><a name="l00511"></a><span class="lineno"> 511</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>((<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span>)((<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>) ? (fo | <a class="code" href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a>) :</div><div class="line"><a name="l00512"></a><span class="lineno"> 512</span>  (fo & (~<a class="code" href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a>))));</div><div class="line"><a name="l00513"></a><span class="lineno"> 513</span>  }</div><div class="line"><a name="l00514"></a><span class="lineno"> 514</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l00515"></a><span class="lineno"> 515</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(fo);</div><div class="line"><a name="l00516"></a><span class="lineno"> 516</span>  }</div><div class="line"><a name="l00517"></a><span class="lineno"> 517</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae80ec6562f2f6a9efdcadbc9206f6a2e">VP_ROUND_MODE</a> == <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>) {</div><div class="line"><a name="l00518"></a><span class="lineno"> 518</span>  <span class="comment">/* Rounding mode setting */</span></div><div class="line"><a name="l00519"></a><span class="lineno"> 519</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> sw;</div><div class="line"><a name="l00520"></a><span class="lineno"> 520</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>();</div><div class="line"><a name="l00521"></a><span class="lineno"> 521</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(fo);</div><div class="line"><a name="l00522"></a><span class="lineno"> 522</span>  sw = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0e4cb8ae95acd6379bd22e1f6195a387">check_rounding_mode</a>(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>);</div><div class="line"><a name="l00523"></a><span class="lineno"> 523</span>  fo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a73e5550509e9695d11bcb1ce410e6ea0">VpSetRoundMode</a>(sw);</div><div class="line"><a name="l00524"></a><span class="lineno"> 524</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(fo);</div><div class="line"><a name="l00525"></a><span class="lineno"> 525</span>  }</div><div class="line"><a name="l00526"></a><span class="lineno"> 526</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a565ed9d70f4089e1b4a36e9b3381b8c6">rb_eTypeError</a>, <span class="stringliteral">"first argument for BigDecimal#mode invalid"</span>);</div><div class="line"><a name="l00527"></a><span class="lineno"> 527</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l00528"></a><span class="lineno"> 528</span> }</div><div class="line"><a name="l00529"></a><span class="lineno"> 529</span> </div><div class="line"><a name="l00530"></a><span class="lineno"> 530</span> <span class="keyword">static</span> <span class="keywordtype">size_t</span></div><div class="line"><a name="l00531"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a21925945f9868efeff9d4fc708745526"> 531</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a21925945f9868efeff9d4fc708745526">GetAddSubPrec</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b)</div><div class="line"><a name="l00532"></a><span class="lineno"> 532</span> {</div><div class="line"><a name="l00533"></a><span class="lineno"> 533</span>  <span class="keywordtype">size_t</span> mxs;</div><div class="line"><a name="l00534"></a><span class="lineno"> 534</span>  <span class="keywordtype">size_t</span> mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l00535"></a><span class="lineno"> 535</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> d;</div><div class="line"><a name="l00536"></a><span class="lineno"> 536</span> </div><div class="line"><a name="l00537"></a><span class="lineno"> 537</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(a) || !<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(b)) <span class="keywordflow">return</span> (<span class="keywordtype">size_t</span>)-1L;</div><div class="line"><a name="l00538"></a><span class="lineno"> 538</span>  <span class="keywordflow">if</span> (mx < b->Prec) mx = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l00539"></a><span class="lineno"> 539</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> != b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>) {</div><div class="line"><a name="l00540"></a><span class="lineno"> 540</span>  mxs = mx;</div><div class="line"><a name="l00541"></a><span class="lineno"> 541</span>  d = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> - b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l00542"></a><span class="lineno"> 542</span>  <span class="keywordflow">if</span> (d < 0) d = -d;</div><div class="line"><a name="l00543"></a><span class="lineno"> 543</span>  mx = mx + (size_t)d;</div><div class="line"><a name="l00544"></a><span class="lineno"> 544</span>  <span class="keywordflow">if</span> (mx < mxs) {</div><div class="line"><a name="l00545"></a><span class="lineno"> 545</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"Exponent overflow"</span>, 0);</div><div class="line"><a name="l00546"></a><span class="lineno"> 546</span>  }</div><div class="line"><a name="l00547"></a><span class="lineno"> 547</span>  }</div><div class="line"><a name="l00548"></a><span class="lineno"> 548</span>  <span class="keywordflow">return</span> mx;</div><div class="line"><a name="l00549"></a><span class="lineno"> 549</span> }</div><div class="line"><a name="l00550"></a><span class="lineno"> 550</span> </div><div class="line"><a name="l00551"></a><span class="lineno"> 551</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a></div><div class="line"><a name="l00552"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a"> 552</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> v)</div><div class="line"><a name="l00553"></a><span class="lineno"> 553</span> {</div><div class="line"><a name="l00554"></a><span class="lineno"> 554</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> n;</div><div class="line"><a name="l00555"></a><span class="lineno"> 555</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(v, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l00556"></a><span class="lineno"> 556</span>  n = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(v);</div><div class="line"><a name="l00557"></a><span class="lineno"> 557</span>  <span class="keywordflow">if</span> (n < 0) {</div><div class="line"><a name="l00558"></a><span class="lineno"> 558</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"argument must be positive"</span>);</div><div class="line"><a name="l00559"></a><span class="lineno"> 559</span>  }</div><div class="line"><a name="l00560"></a><span class="lineno"> 560</span>  <span class="keywordflow">return</span> n;</div><div class="line"><a name="l00561"></a><span class="lineno"> 561</span> }</div><div class="line"><a name="l00562"></a><span class="lineno"> 562</span> </div><div class="line"><a name="l00563"></a><span class="lineno"> 563</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *</div><div class="line"><a name="l00564"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#ad81eb002aa8d4ddb65ffb4d1ad33affa"> 564</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b22d7e4fa63b870de87082a06e7c875">VpNewRbClass</a>(<span class="keywordtype">size_t</span> mx, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> klass)</div><div class="line"><a name="l00565"></a><span class="lineno"> 565</span> {</div><div class="line"><a name="l00566"></a><span class="lineno"> 566</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(mx,str);</div><div class="line"><a name="l00567"></a><span class="lineno"> 567</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa3094c0054b80ec2a7e50f9fe1e5f4b2">TypedData_Wrap_Struct</a>(klass, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>, pv);</div><div class="line"><a name="l00568"></a><span class="lineno"> 568</span>  <span class="keywordflow">return</span> pv;</div><div class="line"><a name="l00569"></a><span class="lineno"> 569</span> }</div><div class="line"><a name="l00570"></a><span class="lineno"> 570</span> </div><div class="line"><a name="l00571"></a><span class="lineno"> 571</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *</div><div class="line"><a name="l00572"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#ad29861371973b03f2b91cb3c74839756"> 572</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<span class="keywordtype">size_t</span> mx, <span class="keyword">const</span> <span class="keywordtype">char</span> *str)</div><div class="line"><a name="l00573"></a><span class="lineno"> 573</span> {</div><div class="line"><a name="l00574"></a><span class="lineno"> 574</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(mx,str);</div><div class="line"><a name="l00575"></a><span class="lineno"> 575</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa3094c0054b80ec2a7e50f9fe1e5f4b2">TypedData_Wrap_Struct</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>, pv);</div><div class="line"><a name="l00576"></a><span class="lineno"> 576</span>  <span class="keywordflow">return</span> pv;</div><div class="line"><a name="l00577"></a><span class="lineno"> 577</span> }</div><div class="line"><a name="l00578"></a><span class="lineno"> 578</span> </div><div class="line"><a name="l00579"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0"> 579</a></span> <span class="preprocessor">#define VpAllocReal(prec) (Real *)VpMemAlloc(offsetof(Real, frac) + (prec) * sizeof(BDIGIT))</span></div><div class="line"><a name="l00580"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#af848c92a8eb5467e23e8e60dbddfa80a"> 580</a></span> <span class="preprocessor">#define VpReallocReal(ptr, prec) (Real *)VpMemRealloc((ptr), offsetof(Real, frac) + (prec) * sizeof(BDIGIT))</span></div><div class="line"><a name="l00581"></a><span class="lineno"> 581</span> </div><div class="line"><a name="l00582"></a><span class="lineno"> 582</span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *</div><div class="line"><a name="l00583"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9"> 583</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9">VpCopy</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> <span class="keyword">const</span>* <span class="keyword">const</span> x)</div><div class="line"><a name="l00584"></a><span class="lineno"> 584</span> {</div><div class="line"><a name="l00585"></a><span class="lineno"> 585</span>  <a class="code" href="../../d5/dac/ossl_8h.html#acdcc5aaebf3f273c1762f24a6ece2e5e">assert</a>(x != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l00586"></a><span class="lineno"> 586</span> </div><div class="line"><a name="l00587"></a><span class="lineno"> 587</span>  pv = <a class="code" href="../../de/d07/bigdecimal_8c.html#af848c92a8eb5467e23e8e60dbddfa80a">VpReallocReal</a>(pv, x-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l00588"></a><span class="lineno"> 588</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = x-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l00589"></a><span class="lineno"> 589</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = x-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l00590"></a><span class="lineno"> 590</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l00591"></a><span class="lineno"> 591</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a> = x-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a>;</div><div class="line"><a name="l00592"></a><span class="lineno"> 592</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#a80c119986de14ffcb3a7af06267af1e5">flag</a> = x-><a class="code" href="../../d9/d5a/struct_real.html#a80c119986de14ffcb3a7af06267af1e5">flag</a>;</div><div class="line"><a name="l00593"></a><span class="lineno"> 593</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a04ab67335215e8362c63ed27ae2d1c40">MEMCPY</a>(pv-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, x-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>, pv-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l00594"></a><span class="lineno"> 594</span> </div><div class="line"><a name="l00595"></a><span class="lineno"> 595</span>  <span class="keywordflow">return</span> pv;</div><div class="line"><a name="l00596"></a><span class="lineno"> 596</span> }</div><div class="line"><a name="l00597"></a><span class="lineno"> 597</span> </div><div class="line"><a name="l00598"></a><span class="lineno"> 598</span> <span class="comment">/* Returns True if the value is Not a Number */</span></div><div class="line"><a name="l00599"></a><span class="lineno"> 599</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00600"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a73a35dd676615ec30b0e8941977efd8e"> 600</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a73a35dd676615ec30b0e8941977efd8e">BigDecimal_IsNaN</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00601"></a><span class="lineno"> 601</span> {</div><div class="line"><a name="l00602"></a><span class="lineno"> 602</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1);</div><div class="line"><a name="l00603"></a><span class="lineno"> 603</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(p)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l00604"></a><span class="lineno"> 604</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l00605"></a><span class="lineno"> 605</span> }</div><div class="line"><a name="l00606"></a><span class="lineno"> 606</span> </div><div class="line"><a name="l00607"></a><span class="lineno"> 607</span> <span class="comment">/* Returns nil, -1, or +1 depending on whether the value is finite,</span></div><div class="line"><a name="l00608"></a><span class="lineno"> 608</span> <span class="comment"> * -Infinity, or +Infinity.</span></div><div class="line"><a name="l00609"></a><span class="lineno"> 609</span> <span class="comment"> */</span></div><div class="line"><a name="l00610"></a><span class="lineno"> 610</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00611"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac42ff2e6703730f1bc0d047b0234e200"> 611</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac42ff2e6703730f1bc0d047b0234e200">BigDecimal_IsInfinite</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00612"></a><span class="lineno"> 612</span> {</div><div class="line"><a name="l00613"></a><span class="lineno"> 613</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1);</div><div class="line"><a name="l00614"></a><span class="lineno"> 614</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(p)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(1);</div><div class="line"><a name="l00615"></a><span class="lineno"> 615</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(p)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(-1);</div><div class="line"><a name="l00616"></a><span class="lineno"> 616</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l00617"></a><span class="lineno"> 617</span> }</div><div class="line"><a name="l00618"></a><span class="lineno"> 618</span> </div><div class="line"><a name="l00619"></a><span class="lineno"> 619</span> <span class="comment">/* Returns True if the value is finite (not NaN or infinite) */</span></div><div class="line"><a name="l00620"></a><span class="lineno"> 620</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00621"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac2534915c2fb0fa8ba8108928b5899f4"> 621</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac2534915c2fb0fa8ba8108928b5899f4">BigDecimal_IsFinite</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00622"></a><span class="lineno"> 622</span> {</div><div class="line"><a name="l00623"></a><span class="lineno"> 623</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1);</div><div class="line"><a name="l00624"></a><span class="lineno"> 624</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(p)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l00625"></a><span class="lineno"> 625</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(p)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l00626"></a><span class="lineno"> 626</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l00627"></a><span class="lineno"> 627</span> }</div><div class="line"><a name="l00628"></a><span class="lineno"> 628</span> </div><div class="line"><a name="l00629"></a><span class="lineno"> 629</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00630"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a99a616753fe28f318fca70fcb7937cc5"> 630</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a99a616753fe28f318fca70fcb7937cc5">BigDecimal_check_num</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p)</div><div class="line"><a name="l00631"></a><span class="lineno"> 631</span> {</div><div class="line"><a name="l00632"></a><span class="lineno"> 632</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(p)) {</div><div class="line"><a name="l00633"></a><span class="lineno"> 633</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>, <span class="stringliteral">"Computation results to 'NaN'(Not a Number)"</span>, 1);</div><div class="line"><a name="l00634"></a><span class="lineno"> 634</span>  }</div><div class="line"><a name="l00635"></a><span class="lineno"> 635</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(p)) {</div><div class="line"><a name="l00636"></a><span class="lineno"> 636</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"Computation results to 'Infinity'"</span>, 1);</div><div class="line"><a name="l00637"></a><span class="lineno"> 637</span>  }</div><div class="line"><a name="l00638"></a><span class="lineno"> 638</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(p)) {</div><div class="line"><a name="l00639"></a><span class="lineno"> 639</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"Computation results to '-Infinity'"</span>, 1);</div><div class="line"><a name="l00640"></a><span class="lineno"> 640</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> </div><div class="line"><a name="l00643"></a><span class="lineno"> 643</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc">BigDecimal_split</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>);</div><div class="line"><a name="l00644"></a><span class="lineno"> 644</span> </div><div class="line"><a name="l00645"></a><span class="lineno"> 645</span> <span class="comment">/* Returns the value as an integer (Fixnum or Bignum).</span></div><div class="line"><a name="l00646"></a><span class="lineno"> 646</span> <span class="comment"> *</span></div><div class="line"><a name="l00647"></a><span class="lineno"> 647</span> <span class="comment"> * If the BigNumber is infinity or NaN, raises FloatDomainError.</span></div><div class="line"><a name="l00648"></a><span class="lineno"> 648</span> <span class="comment"> */</span></div><div class="line"><a name="l00649"></a><span class="lineno"> 649</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00650"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274"> 650</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00651"></a><span class="lineno"> 651</span> {</div><div class="line"><a name="l00652"></a><span class="lineno"> 652</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l00653"></a><span class="lineno"> 653</span>  ssize_t e, nf;</div><div class="line"><a name="l00654"></a><span class="lineno"> 654</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p;</div><div class="line"><a name="l00655"></a><span class="lineno"> 655</span> </div><div class="line"><a name="l00656"></a><span class="lineno"> 656</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(p, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00657"></a><span class="lineno"> 657</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a99a616753fe28f318fca70fcb7937cc5">BigDecimal_check_num</a>(p);</div><div class="line"><a name="l00658"></a><span class="lineno"> 658</span> </div><div class="line"><a name="l00659"></a><span class="lineno"> 659</span>  e = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(p);</div><div class="line"><a name="l00660"></a><span class="lineno"> 660</span>  <span class="keywordflow">if</span> (e <= 0) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0);</div><div class="line"><a name="l00661"></a><span class="lineno"> 661</span>  nf = <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>();</div><div class="line"><a name="l00662"></a><span class="lineno"> 662</span>  <span class="keywordflow">if</span> (e <= nf) {</div><div class="line"><a name="l00663"></a><span class="lineno"> 663</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a854de1c520ed24a625d5a29f36a08f7a">LONG2NUM</a>((<span class="keywordtype">long</span>)(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(p) * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a5902b03e516c67fa93228f1b45fef7a1">BDIGIT_DBL_SIGNED</a>)p-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0]));</div><div class="line"><a name="l00664"></a><span class="lineno"> 664</span>  }</div><div class="line"><a name="l00665"></a><span class="lineno"> 665</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00666"></a><span class="lineno"> 666</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> a = <a class="code" href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc">BigDecimal_split</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l00667"></a><span class="lineno"> 667</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> digits = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(a)[1];</div><div class="line"><a name="l00668"></a><span class="lineno"> 668</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> numerator = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(digits, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"to_i"</span>), 0);</div><div class="line"><a name="l00669"></a><span class="lineno"> 669</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l00670"></a><span class="lineno"> 670</span>  ssize_t dpower = e - (ssize_t)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(digits);</div><div class="line"><a name="l00671"></a><span class="lineno"> 671</span> </div><div class="line"><a name="l00672"></a><span class="lineno"> 672</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(p) < 0) {</div><div class="line"><a name="l00673"></a><span class="lineno"> 673</span>  numerator = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(numerator, <span class="charliteral">'*'</span>, 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(-1));</div><div class="line"><a name="l00674"></a><span class="lineno"> 674</span>  }</div><div class="line"><a name="l00675"></a><span class="lineno"> 675</span>  <span class="keywordflow">if</span> (dpower < 0) {</div><div class="line"><a name="l00676"></a><span class="lineno"> 676</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(numerator, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"div"</span>), 1,</div><div class="line"><a name="l00677"></a><span class="lineno"> 677</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(10), <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"**"</span>), 1,</div><div class="line"><a name="l00678"></a><span class="lineno"> 678</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(-dpower)));</div><div class="line"><a name="l00679"></a><span class="lineno"> 679</span>  }</div><div class="line"><a name="l00680"></a><span class="lineno"> 680</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00681"></a><span class="lineno"> 681</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(numerator, <span class="charliteral">'*'</span>, 1,</div><div class="line"><a name="l00682"></a><span class="lineno"> 682</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(10), <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"**"</span>), 1,</div><div class="line"><a name="l00683"></a><span class="lineno"> 683</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(dpower)));</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="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(ret, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l00686"></a><span class="lineno"> 686</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9d3707fd42dad026e217ea7c9dfb4948">rb_eFloatDomainError</a>, <span class="stringliteral">"Infinity"</span>);</div><div class="line"><a name="l00687"></a><span class="lineno"> 687</span>  }</div><div class="line"><a name="l00688"></a><span class="lineno"> 688</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00689"></a><span class="lineno"> 689</span>  }</div><div class="line"><a name="l00690"></a><span class="lineno"> 690</span> }</div><div class="line"><a name="l00691"></a><span class="lineno"> 691</span> </div><div class="line"><a name="l00692"></a><span class="lineno"> 692</span> <span class="comment">/* Returns a new Float object having approximately the same value as the</span></div><div class="line"><a name="l00693"></a><span class="lineno"> 693</span> <span class="comment"> * BigDecimal number. Normal accuracy limits and built-in errors of binary</span></div><div class="line"><a name="l00694"></a><span class="lineno"> 694</span> <span class="comment"> * Float arithmetic apply.</span></div><div class="line"><a name="l00695"></a><span class="lineno"> 695</span> <span class="comment"> */</span></div><div class="line"><a name="l00696"></a><span class="lineno"> 696</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00697"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a132ae3fa1a22725c315f229d7b629a51"> 697</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a132ae3fa1a22725c315f229d7b629a51">BigDecimal_to_f</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00698"></a><span class="lineno"> 698</span> {</div><div class="line"><a name="l00699"></a><span class="lineno"> 699</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(1);</div><div class="line"><a name="l00700"></a><span class="lineno"> 700</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p;</div><div class="line"><a name="l00701"></a><span class="lineno"> 701</span>  <span class="keywordtype">double</span> d;</div><div class="line"><a name="l00702"></a><span class="lineno"> 702</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> e;</div><div class="line"><a name="l00703"></a><span class="lineno"> 703</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l00704"></a><span class="lineno"> 704</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l00705"></a><span class="lineno"> 705</span> </div><div class="line"><a name="l00706"></a><span class="lineno"> 706</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(p, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00707"></a><span class="lineno"> 707</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#aea51d27b9066ae3647c1451fce515a74">VpVtoD</a>(&d, &e, p) != 1)</div><div class="line"><a name="l00708"></a><span class="lineno"> 708</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a>(d);</div><div class="line"><a name="l00709"></a><span class="lineno"> 709</span>  <span class="keywordflow">if</span> (e > (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)(<a class="code" href="../../d6/d27/numeric_8c.html#a75425646ce3c79cbc0a8e9613f3d9c17">DBL_MAX_10_EXP</a>+<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>))</div><div class="line"><a name="l00710"></a><span class="lineno"> 710</span>  <span class="keywordflow">goto</span> overflow;</div><div class="line"><a name="l00711"></a><span class="lineno"> 711</span>  <span class="keywordflow">if</span> (e < (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)(<a class="code" href="../../d6/d27/numeric_8c.html#a5b731624df926496f4fc19001447d3e7">DBL_MIN_10_EXP</a>-<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>))</div><div class="line"><a name="l00712"></a><span class="lineno"> 712</span>  <span class="keywordflow">goto</span> underflow;</div><div class="line"><a name="l00713"></a><span class="lineno"> 713</span> </div><div class="line"><a name="l00714"></a><span class="lineno"> 714</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(p, <span class="stringliteral">"E"</span>));</div><div class="line"><a name="l00715"></a><span class="lineno"> 715</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str);</div><div class="line"><a name="l00716"></a><span class="lineno"> 716</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a211c1231a80bd2b30ead108f0b6029a6">VpToString</a>(p, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, 0, 0);</div><div class="line"><a name="l00717"></a><span class="lineno"> 717</span>  <a class="code" href="../../d4/db0/__sdbm_8c.html#ad65a8842cc674e3ddf69355898c0ecbf">errno</a> = 0;</div><div class="line"><a name="l00718"></a><span class="lineno"> 718</span>  d = <a class="code" href="../../d8/d3c/util_8h.html#a9242b69e04b02654598efa37fb6c2185">strtod</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, 0);</div><div class="line"><a name="l00719"></a><span class="lineno"> 719</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="l00720"></a><span class="lineno"> 720</span>  <span class="keywordflow">if</span> (d == 0.0) <span class="keywordflow">goto</span> underflow;</div><div class="line"><a name="l00721"></a><span class="lineno"> 721</span>  <span class="keywordflow">if</span> (fabs(d) >= HUGE_VAL) <span class="keywordflow">goto</span> overflow;</div><div class="line"><a name="l00722"></a><span class="lineno"> 722</span>  }</div><div class="line"><a name="l00723"></a><span class="lineno"> 723</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a>(d);</div><div class="line"><a name="l00724"></a><span class="lineno"> 724</span> </div><div class="line"><a name="l00725"></a><span class="lineno"> 725</span> overflow:</div><div class="line"><a name="l00726"></a><span class="lineno"> 726</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ab2726f87fe36be3177b3aef61eb82c46">VP_EXCEPTION_OVERFLOW</a>, <span class="stringliteral">"BigDecimal to Float conversion"</span>, 0);</div><div class="line"><a name="l00727"></a><span class="lineno"> 727</span>  <span class="keywordflow">if</span> (p-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a> >= 0)</div><div class="line"><a name="l00728"></a><span class="lineno"> 728</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#afa988d7eb61defaac42ece03d19c2e66">VpGetDoublePosInf</a>());</div><div class="line"><a name="l00729"></a><span class="lineno"> 729</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l00730"></a><span class="lineno"> 730</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a39cee6a07315ceb32c6e25024197b054">VpGetDoubleNegInf</a>());</div><div class="line"><a name="l00731"></a><span class="lineno"> 731</span> </div><div class="line"><a name="l00732"></a><span class="lineno"> 732</span> underflow:</div><div class="line"><a name="l00733"></a><span class="lineno"> 733</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>, <span class="stringliteral">"BigDecimal to Float conversion"</span>, 0);</div><div class="line"><a name="l00734"></a><span class="lineno"> 734</span>  <span class="keywordflow">if</span> (p-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a> >= 0)</div><div class="line"><a name="l00735"></a><span class="lineno"> 735</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a>(0.0);</div><div class="line"><a name="l00736"></a><span class="lineno"> 736</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l00737"></a><span class="lineno"> 737</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a>(-0.0);</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> </div><div class="line"><a name="l00740"></a><span class="lineno"> 740</span> </div><div class="line"><a name="l00741"></a><span class="lineno"> 741</span> <span class="comment">/* Converts a BigDecimal to a Rational.</span></div><div class="line"><a name="l00742"></a><span class="lineno"> 742</span> <span class="comment"> */</span></div><div class="line"><a name="l00743"></a><span class="lineno"> 743</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00744"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a6c872656b86006154c1c08219e863cf5"> 744</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a6c872656b86006154c1c08219e863cf5">BigDecimal_to_r</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</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>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *p;</div><div class="line"><a name="l00747"></a><span class="lineno"> 747</span>  ssize_t sign, power, denomi_power;</div><div class="line"><a name="l00748"></a><span class="lineno"> 748</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> a, digits, numerator;</div><div class="line"><a name="l00749"></a><span class="lineno"> 749</span> </div><div class="line"><a name="l00750"></a><span class="lineno"> 750</span>  p = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1);</div><div class="line"><a name="l00751"></a><span class="lineno"> 751</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a99a616753fe28f318fca70fcb7937cc5">BigDecimal_check_num</a>(p);</div><div class="line"><a name="l00752"></a><span class="lineno"> 752</span> </div><div class="line"><a name="l00753"></a><span class="lineno"> 753</span>  sign = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(p);</div><div class="line"><a name="l00754"></a><span class="lineno"> 754</span>  power = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(p);</div><div class="line"><a name="l00755"></a><span class="lineno"> 755</span>  a = <a class="code" href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc">BigDecimal_split</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l00756"></a><span class="lineno"> 756</span>  digits = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(a)[1];</div><div class="line"><a name="l00757"></a><span class="lineno"> 757</span>  denomi_power = power - <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(digits);</div><div class="line"><a name="l00758"></a><span class="lineno"> 758</span>  numerator = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(digits, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"to_i"</span>), 0);</div><div class="line"><a name="l00759"></a><span class="lineno"> 759</span> </div><div class="line"><a name="l00760"></a><span class="lineno"> 760</span>  <span class="keywordflow">if</span> (sign < 0) {</div><div class="line"><a name="l00761"></a><span class="lineno"> 761</span>  numerator = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(numerator, <span class="charliteral">'*'</span>, 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(-1));</div><div class="line"><a name="l00762"></a><span class="lineno"> 762</span>  }</div><div class="line"><a name="l00763"></a><span class="lineno"> 763</span>  <span class="keywordflow">if</span> (denomi_power < 0) {</div><div class="line"><a name="l00764"></a><span class="lineno"> 764</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a17cabf4b55fb751395d380fae6174b3e">rb_Rational</a>(numerator,</div><div class="line"><a name="l00765"></a><span class="lineno"> 765</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(10), <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"**"</span>), 1,</div><div class="line"><a name="l00766"></a><span class="lineno"> 766</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(-denomi_power)));</div><div class="line"><a name="l00767"></a><span class="lineno"> 767</span>  }</div><div class="line"><a name="l00768"></a><span class="lineno"> 768</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00769"></a><span class="lineno"> 769</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a66ae6cf2e34e643e8956f70071e4a2fe">rb_Rational1</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(numerator, <span class="charliteral">'*'</span>, 1,</div><div class="line"><a name="l00770"></a><span class="lineno"> 770</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(10), <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"**"</span>), 1,</div><div class="line"><a name="l00771"></a><span class="lineno"> 771</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(denomi_power))));</div><div class="line"><a name="l00772"></a><span class="lineno"> 772</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> </div><div class="line"><a name="l00775"></a><span class="lineno"> 775</span> <span class="comment">/* The coerce method provides support for Ruby type coercion. It is not</span></div><div class="line"><a name="l00776"></a><span class="lineno"> 776</span> <span class="comment"> * enabled by default.</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="comment"> * This means that binary operations like + * / or - can often be performed</span></div><div class="line"><a name="l00779"></a><span class="lineno"> 779</span> <span class="comment"> * on a BigDecimal and an object of another type, if the other object can</span></div><div class="line"><a name="l00780"></a><span class="lineno"> 780</span> <span class="comment"> * be coerced into a BigDecimal value.</span></div><div class="line"><a name="l00781"></a><span class="lineno"> 781</span> <span class="comment"> *</span></div><div class="line"><a name="l00782"></a><span class="lineno"> 782</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l00783"></a><span class="lineno"> 783</span> <span class="comment"> * a = BigDecimal.new("1.0")</span></div><div class="line"><a name="l00784"></a><span class="lineno"> 784</span> <span class="comment"> * b = a / 2.0 -> 0.5</span></div><div class="line"><a name="l00785"></a><span class="lineno"> 785</span> <span class="comment"> *</span></div><div class="line"><a name="l00786"></a><span class="lineno"> 786</span> <span class="comment"> * Note that coercing a String to a BigDecimal is not supported by default;</span></div><div class="line"><a name="l00787"></a><span class="lineno"> 787</span> <span class="comment"> * it requires a special compile-time option when building Ruby.</span></div><div class="line"><a name="l00788"></a><span class="lineno"> 788</span> <span class="comment"> */</span></div><div class="line"><a name="l00789"></a><span class="lineno"> 789</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00790"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a55eb47e6caadf7d8c9f124377115577b"> 790</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a55eb47e6caadf7d8c9f124377115577b">BigDecimal_coerce</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> other)</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(2);</div><div class="line"><a name="l00793"></a><span class="lineno"> 793</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l00794"></a><span class="lineno"> 794</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b;</div><div class="line"><a name="l00795"></a><span class="lineno"> 795</span> </div><div class="line"><a name="l00796"></a><span class="lineno"> 796</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(other, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l00797"></a><span class="lineno"> 797</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(b, <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(other, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1));</div><div class="line"><a name="l00798"></a><span class="lineno"> 798</span>  obj = <a class="code" href="../../dc/dcc/array_8c.html#af3085ceab406e3f4f4b90f383c440d6a">rb_assoc_new</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(b), <span class="keyword">self</span>);</div><div class="line"><a name="l00799"></a><span class="lineno"> 799</span>  }</div><div class="line"><a name="l00800"></a><span class="lineno"> 800</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00801"></a><span class="lineno"> 801</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(other, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l00802"></a><span class="lineno"> 802</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* pv = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l00803"></a><span class="lineno"> 803</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(b, <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(other, pv-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1));</div><div class="line"><a name="l00804"></a><span class="lineno"> 804</span>  }</div><div class="line"><a name="l00805"></a><span class="lineno"> 805</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00806"></a><span class="lineno"> 806</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(b, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(other, 1));</div><div class="line"><a name="l00807"></a><span class="lineno"> 807</span>  }</div><div class="line"><a name="l00808"></a><span class="lineno"> 808</span>  obj = <a class="code" href="../../dc/dcc/array_8c.html#af3085ceab406e3f4f4b90f383c440d6a">rb_assoc_new</a>(b-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l00809"></a><span class="lineno"> 809</span>  }</div><div class="line"><a name="l00810"></a><span class="lineno"> 810</span> </div><div class="line"><a name="l00811"></a><span class="lineno"> 811</span>  <span class="keywordflow">return</span> obj;</div><div class="line"><a name="l00812"></a><span class="lineno"> 812</span> }</div><div class="line"><a name="l00813"></a><span class="lineno"> 813</span> </div><div class="line"><a name="l00814"></a><span class="lineno"> 814</span> <span class="comment">/*</span></div><div class="line"><a name="l00815"></a><span class="lineno"> 815</span> <span class="comment"> * call-seq: +@</span></div><div class="line"><a name="l00816"></a><span class="lineno"> 816</span> <span class="comment"> *</span></div><div class="line"><a name="l00817"></a><span class="lineno"> 817</span> <span class="comment"> * Return self.</span></div><div class="line"><a name="l00818"></a><span class="lineno"> 818</span> <span class="comment"> *</span></div><div class="line"><a name="l00819"></a><span class="lineno"> 819</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l00820"></a><span class="lineno"> 820</span> <span class="comment"> * b = +a # b == a</span></div><div class="line"><a name="l00821"></a><span class="lineno"> 821</span> <span class="comment"> */</span></div><div class="line"><a name="l00822"></a><span class="lineno"> 822</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00823"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ab1cd60a85dc47ced3b66f7f3434eed11"> 823</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab1cd60a85dc47ced3b66f7f3434eed11">BigDecimal_uplus</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l00824"></a><span class="lineno"> 824</span> {</div><div class="line"><a name="l00825"></a><span class="lineno"> 825</span>  <span class="keywordflow">return</span> <span class="keyword">self</span>;</div><div class="line"><a name="l00826"></a><span class="lineno"> 826</span> }</div><div class="line"><a name="l00827"></a><span class="lineno"> 827</span> </div><div class="line"><a name="l00828"></a><span class="lineno"> 828</span>  <span class="comment">/*</span></div><div class="line"><a name="l00829"></a><span class="lineno"> 829</span> <span class="comment"> * Document-method: BigDecimal#add</span></div><div class="line"><a name="l00830"></a><span class="lineno"> 830</span> <span class="comment"> * Document-method: BigDecimal#+</span></div><div class="line"><a name="l00831"></a><span class="lineno"> 831</span> <span class="comment"> *</span></div><div class="line"><a name="l00832"></a><span class="lineno"> 832</span> <span class="comment"> * call-seq:</span></div><div class="line"><a name="l00833"></a><span class="lineno"> 833</span> <span class="comment"> * add(value, digits)</span></div><div class="line"><a name="l00834"></a><span class="lineno"> 834</span> <span class="comment"> *</span></div><div class="line"><a name="l00835"></a><span class="lineno"> 835</span> <span class="comment"> * Add the specified value.</span></div><div class="line"><a name="l00836"></a><span class="lineno"> 836</span> <span class="comment"> *</span></div><div class="line"><a name="l00837"></a><span class="lineno"> 837</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l00838"></a><span class="lineno"> 838</span> <span class="comment"> * c = a.add(b,n)</span></div><div class="line"><a name="l00839"></a><span class="lineno"> 839</span> <span class="comment"> * c = a + b</span></div><div class="line"><a name="l00840"></a><span class="lineno"> 840</span> <span class="comment"> *</span></div><div class="line"><a name="l00841"></a><span class="lineno"> 841</span> <span class="comment"> * digits:: If specified and less than the number of significant digits of the</span></div><div class="line"><a name="l00842"></a><span class="lineno"> 842</span> <span class="comment"> * result, the result is rounded to that number of digits, according to</span></div><div class="line"><a name="l00843"></a><span class="lineno"> 843</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l00844"></a><span class="lineno"> 844</span> <span class="comment"> */</span></div><div class="line"><a name="l00845"></a><span class="lineno"> 845</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00846"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd"> 846</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l00847"></a><span class="lineno"> 847</span> {</div><div class="line"><a name="l00848"></a><span class="lineno"> 848</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l00849"></a><span class="lineno"> 849</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a, *b;</div><div class="line"><a name="l00850"></a><span class="lineno"> 850</span>  <span class="keywordtype">size_t</span> mx;</div><div class="line"><a name="l00851"></a><span class="lineno"> 851</span> </div><div class="line"><a name="l00852"></a><span class="lineno"> 852</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00853"></a><span class="lineno"> 853</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l00854"></a><span class="lineno"> 854</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l00855"></a><span class="lineno"> 855</span>  }</div><div class="line"><a name="l00856"></a><span class="lineno"> 856</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l00857"></a><span class="lineno"> 857</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1);</div><div class="line"><a name="l00858"></a><span class="lineno"> 858</span>  }</div><div class="line"><a name="l00859"></a><span class="lineno"> 859</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00860"></a><span class="lineno"> 860</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r, 0);</div><div class="line"><a name="l00861"></a><span class="lineno"> 861</span>  }</div><div class="line"><a name="l00862"></a><span class="lineno"> 862</span> </div><div class="line"><a name="l00863"></a><span class="lineno"> 863</span>  <span class="keywordflow">if</span> (!b) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>,r,<span class="charliteral">'+'</span>);</div><div class="line"><a name="l00864"></a><span class="lineno"> 864</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</div><div class="line"><a name="l00865"></a><span class="lineno"> 865</span> </div><div class="line"><a name="l00866"></a><span class="lineno"> 866</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(b)) <span class="keywordflow">return</span> b-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l00867"></a><span class="lineno"> 867</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a)) <span class="keywordflow">return</span> a-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l00868"></a><span class="lineno"> 868</span> </div><div class="line"><a name="l00869"></a><span class="lineno"> 869</span>  mx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a21925945f9868efeff9d4fc708745526">GetAddSubPrec</a>(a, b);</div><div class="line"><a name="l00870"></a><span class="lineno"> 870</span>  <span class="keywordflow">if</span> (mx == (<span class="keywordtype">size_t</span>)-1L) {</div><div class="line"><a name="l00871"></a><span class="lineno"> 871</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c,<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l00872"></a><span class="lineno"> 872</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(c, a, b, 1);</div><div class="line"><a name="l00873"></a><span class="lineno"> 873</span>  }</div><div class="line"><a name="l00874"></a><span class="lineno"> 874</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00875"></a><span class="lineno"> 875</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l00876"></a><span class="lineno"> 876</span>  <span class="keywordflow">if</span>(!mx) {</div><div class="line"><a name="l00877"></a><span class="lineno"> 877</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l00878"></a><span class="lineno"> 878</span>  }</div><div class="line"><a name="l00879"></a><span class="lineno"> 879</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00880"></a><span class="lineno"> 880</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(c, a, b, 1);</div><div class="line"><a name="l00881"></a><span class="lineno"> 881</span>  }</div><div class="line"><a name="l00882"></a><span class="lineno"> 882</span>  }</div><div class="line"><a name="l00883"></a><span class="lineno"> 883</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l00884"></a><span class="lineno"> 884</span> }</div><div class="line"><a name="l00885"></a><span class="lineno"> 885</span> </div><div class="line"><a name="l00886"></a><span class="lineno"> 886</span>  <span class="comment">/* call-seq:</span></div><div class="line"><a name="l00887"></a><span class="lineno"> 887</span> <span class="comment"> * value - digits -> bigdecimal</span></div><div class="line"><a name="l00888"></a><span class="lineno"> 888</span> <span class="comment"> *</span></div><div class="line"><a name="l00889"></a><span class="lineno"> 889</span> <span class="comment"> * Subtract the specified value.</span></div><div class="line"><a name="l00890"></a><span class="lineno"> 890</span> <span class="comment"> *</span></div><div class="line"><a name="l00891"></a><span class="lineno"> 891</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l00892"></a><span class="lineno"> 892</span> <span class="comment"> * c = a - b</span></div><div class="line"><a name="l00893"></a><span class="lineno"> 893</span> <span class="comment"> *</span></div><div class="line"><a name="l00894"></a><span class="lineno"> 894</span> <span class="comment"> * The precision of the result value depends on the type of +b+.</span></div><div class="line"><a name="l00895"></a><span class="lineno"> 895</span> <span class="comment"> *</span></div><div class="line"><a name="l00896"></a><span class="lineno"> 896</span> <span class="comment"> * If +b+ is a Float, the precision of the result is Float::DIG+1.</span></div><div class="line"><a name="l00897"></a><span class="lineno"> 897</span> <span class="comment"> *</span></div><div class="line"><a name="l00898"></a><span class="lineno"> 898</span> <span class="comment"> * If +b+ is a BigDecimal, the precision of the result is +b+'s precision of</span></div><div class="line"><a name="l00899"></a><span class="lineno"> 899</span> <span class="comment"> * internal representation from platform. So, it's return value is platform</span></div><div class="line"><a name="l00900"></a><span class="lineno"> 900</span> <span class="comment"> * dependent.</span></div><div class="line"><a name="l00901"></a><span class="lineno"> 901</span> <span class="comment"> *</span></div><div class="line"><a name="l00902"></a><span class="lineno"> 902</span> <span class="comment"> */</span></div><div class="line"><a name="l00903"></a><span class="lineno"> 903</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00904"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b"> 904</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b">BigDecimal_sub</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l00905"></a><span class="lineno"> 905</span> {</div><div class="line"><a name="l00906"></a><span class="lineno"> 906</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l00907"></a><span class="lineno"> 907</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a, *b;</div><div class="line"><a name="l00908"></a><span class="lineno"> 908</span>  <span class="keywordtype">size_t</span> mx;</div><div class="line"><a name="l00909"></a><span class="lineno"> 909</span> </div><div class="line"><a name="l00910"></a><span class="lineno"> 910</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>,1));</div><div class="line"><a name="l00911"></a><span class="lineno"> 911</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l00912"></a><span class="lineno"> 912</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l00913"></a><span class="lineno"> 913</span>  }</div><div class="line"><a name="l00914"></a><span class="lineno"> 914</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l00915"></a><span class="lineno"> 915</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1);</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="keywordflow">else</span> {</div><div class="line"><a name="l00918"></a><span class="lineno"> 918</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r,0);</div><div class="line"><a name="l00919"></a><span class="lineno"> 919</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"> 921</span>  <span class="keywordflow">if</span> (!b) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>,r,<span class="charliteral">'-'</span>);</div><div class="line"><a name="l00922"></a><span class="lineno"> 922</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</div><div class="line"><a name="l00923"></a><span class="lineno"> 923</span> </div><div class="line"><a name="l00924"></a><span class="lineno"> 924</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(b)) <span class="keywordflow">return</span> b-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l00925"></a><span class="lineno"> 925</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a)) <span class="keywordflow">return</span> a-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l00926"></a><span class="lineno"> 926</span> </div><div class="line"><a name="l00927"></a><span class="lineno"> 927</span>  mx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a21925945f9868efeff9d4fc708745526">GetAddSubPrec</a>(a,b);</div><div class="line"><a name="l00928"></a><span class="lineno"> 928</span>  <span class="keywordflow">if</span> (mx == (<span class="keywordtype">size_t</span>)-1L) {</div><div class="line"><a name="l00929"></a><span class="lineno"> 929</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c,<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l00930"></a><span class="lineno"> 930</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(c, a, b, -1);</div><div class="line"><a name="l00931"></a><span class="lineno"> 931</span>  }</div><div class="line"><a name="l00932"></a><span class="lineno"> 932</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00933"></a><span class="lineno"> 933</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c,<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx *(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l00934"></a><span class="lineno"> 934</span>  <span class="keywordflow">if</span> (!mx) {</div><div class="line"><a name="l00935"></a><span class="lineno"> 935</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c,<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l00936"></a><span class="lineno"> 936</span>  }</div><div class="line"><a name="l00937"></a><span class="lineno"> 937</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l00938"></a><span class="lineno"> 938</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(c, a, b, -1);</div><div class="line"><a name="l00939"></a><span class="lineno"> 939</span>  }</div><div class="line"><a name="l00940"></a><span class="lineno"> 940</span>  }</div><div class="line"><a name="l00941"></a><span class="lineno"> 941</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l00942"></a><span class="lineno"> 942</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00945"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27"> 945</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r,<span class="keywordtype">char</span> op)</div><div class="line"><a name="l00946"></a><span class="lineno"> 946</span> {</div><div class="line"><a name="l00947"></a><span class="lineno"> 947</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l00948"></a><span class="lineno"> 948</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> e;</div><div class="line"><a name="l00949"></a><span class="lineno"> 949</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, *b=0;</div><div class="line"><a name="l00950"></a><span class="lineno"> 950</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l00951"></a><span class="lineno"> 951</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(r)) {</div><div class="line"><a name="l00952"></a><span class="lineno"> 952</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a>:</div><div class="line"><a name="l00953"></a><span class="lineno"> 953</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(r)) <span class="keywordflow">break</span>;</div><div class="line"><a name="l00954"></a><span class="lineno"> 954</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l00955"></a><span class="lineno"> 955</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l00956"></a><span class="lineno"> 956</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l00957"></a><span class="lineno"> 957</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l00958"></a><span class="lineno"> 958</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(b, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r, 0));</div><div class="line"><a name="l00959"></a><span class="lineno"> 959</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00960"></a><span class="lineno"> 960</span> </div><div class="line"><a name="l00961"></a><span class="lineno"> 961</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div><div class="line"><a name="l00962"></a><span class="lineno"> 962</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(b, <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 0));</div><div class="line"><a name="l00963"></a><span class="lineno"> 963</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00964"></a><span class="lineno"> 964</span> </div><div class="line"><a name="l00965"></a><span class="lineno"> 965</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l00966"></a><span class="lineno"> 966</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(b, <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 0));</div><div class="line"><a name="l00967"></a><span class="lineno"> 967</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00968"></a><span class="lineno"> 968</span> </div><div class="line"><a name="l00969"></a><span class="lineno"> 969</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l00970"></a><span class="lineno"> 970</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00971"></a><span class="lineno"> 971</span>  }</div><div class="line"><a name="l00972"></a><span class="lineno"> 972</span>  <span class="keywordflow">if</span> (b == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l00973"></a><span class="lineno"> 973</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 0;</div><div class="line"><a name="l00974"></a><span class="lineno"> 974</span> </div><div class="line"><a name="l00975"></a><span class="lineno"> 975</span>  <span class="keywordflow">switch</span> (op) {</div><div class="line"><a name="l00976"></a><span class="lineno"> 976</span>  <span class="keywordflow">case</span> <span class="charliteral">'*'</span>:</div><div class="line"><a name="l00977"></a><span class="lineno"> 977</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#aa9ef0eef5110cc98ba79a40a876c3d1c">rb_num_coerce_cmp</a>(<span class="keyword">self</span>, r, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"<=>"</span>));</div><div class="line"><a name="l00978"></a><span class="lineno"> 978</span> </div><div class="line"><a name="l00979"></a><span class="lineno"> 979</span>  <span class="keywordflow">case</span> <span class="charliteral">'='</span>:</div><div class="line"><a name="l00980"></a><span class="lineno"> 980</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../db/d2e/intern_8h.html#aa9ef0eef5110cc98ba79a40a876c3d1c">rb_num_coerce_cmp</a>(<span class="keyword">self</span>, r, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"=="</span>))) ? <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l00981"></a><span class="lineno"> 981</span> </div><div class="line"><a name="l00982"></a><span class="lineno"> 982</span>  <span class="keywordflow">case</span> <span class="charliteral">'G'</span>:</div><div class="line"><a name="l00983"></a><span class="lineno"> 983</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">">="</span>);</div><div class="line"><a name="l00984"></a><span class="lineno"> 984</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00985"></a><span class="lineno"> 985</span> </div><div class="line"><a name="l00986"></a><span class="lineno"> 986</span>  <span class="keywordflow">case</span> <span class="charliteral">'L'</span>:</div><div class="line"><a name="l00987"></a><span class="lineno"> 987</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"<="</span>);</div><div class="line"><a name="l00988"></a><span class="lineno"> 988</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00989"></a><span class="lineno"> 989</span> </div><div class="line"><a name="l00990"></a><span class="lineno"> 990</span>  <span class="keywordflow">case</span> <span class="charliteral">'>'</span>:</div><div class="line"><a name="l00991"></a><span class="lineno"> 991</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l00992"></a><span class="lineno"> 992</span>  <span class="keywordflow">case</span> <span class="charliteral">'<'</span>:</div><div class="line"><a name="l00993"></a><span class="lineno"> 993</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a>)op;</div><div class="line"><a name="l00994"></a><span class="lineno"> 994</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l00995"></a><span class="lineno"> 995</span> </div><div class="line"><a name="l00996"></a><span class="lineno"> 996</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l00997"></a><span class="lineno"> 997</span>  <span class="keywordflow">break</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="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ac7a89c076f8710df7f3974af601e2b6d">rb_num_coerce_relop</a>(<span class="keyword">self</span>, r, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l01000"></a><span class="lineno"> 1000</span>  }</div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>  e = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6b6adf3ebcd85281ee3c158a738824d">VpComp</a>(a, b);</div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>  <span class="keywordflow">if</span> (e == 999)</div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>  <span class="keywordflow">return</span> (op == <span class="charliteral">'*'</span>) ? <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>  <span class="keywordflow">switch</span> (op) {</div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>  <span class="keywordflow">case</span> <span class="charliteral">'*'</span>:</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(e); <span class="comment">/* any op */</span></div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span> </div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>  <span class="keywordflow">case</span> <span class="charliteral">'='</span>:</div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>  <span class="keywordflow">if</span> (e == 0) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</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>  <span class="keywordflow">case</span> <span class="charliteral">'G'</span>:</div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>  <span class="keywordflow">if</span> (e >= 0) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</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="keywordflow">case</span> <span class="charliteral">'>'</span>:</div><div class="line"><a name="l01018"></a><span class="lineno"> 1018</span>  <span class="keywordflow">if</span> (e > 0) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span> </div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>  <span class="keywordflow">case</span> <span class="charliteral">'L'</span>:</div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span>  <span class="keywordflow">if</span> (e <= 0) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span> </div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>  <span class="keywordflow">case</span> <span class="charliteral">'<'</span>:</div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>  <span class="keywordflow">if</span> (e < 0) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span> </div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>  <span class="keywordflow">break</span>;</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> </div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"Undefined operation in BigDecimalCmp()"</span>);</div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span> </div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a>;</div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span> }</div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span> </div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span> <span class="comment">/* Returns True if the value is zero. */</span></div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01040"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#af212dc7d8469aede930b124e7bc4bf30"> 1040</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#af212dc7d8469aede930b124e7bc4bf30">BigDecimal_zero</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span> {</div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1);</div><div class="line"><a name="l01043"></a><span class="lineno"> 1043</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a) ? <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01044"></a><span class="lineno"> 1044</span> }</div><div class="line"><a name="l01045"></a><span class="lineno"> 1045</span> </div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span> <span class="comment">/* Returns self if the value is non-zero, nil otherwise. */</span></div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01048"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a69cff086fca954a9b0f141a03511a6a3"> 1048</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a69cff086fca954a9b0f141a03511a6a3">BigDecimal_nonzero</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span> {</div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1);</div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a) ? <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a> : <span class="keyword">self</span>;</div><div class="line"><a name="l01052"></a><span class="lineno"> 1052</span> }</div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span> </div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span> <span class="comment">/* The comparison operator.</span></div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span> <span class="comment"> * a <=> b is 0 if a == b, 1 if a > b, -1 if a < b.</span></div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span> <span class="comment"> */</span></div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01058"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#acf27c16d35c11ac6e00ad7d5ed2c4f95"> 1058</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acf27c16d35c11ac6e00ad7d5ed2c4f95">BigDecimal_comp</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span> {</div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<span class="keyword">self</span>, r, <span class="charliteral">'*'</span>);</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> </div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span> <span class="comment">/*</span></div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span> <span class="comment"> * Tests for value equality; returns true if the values are equal.</span></div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span> <span class="comment"> *</span></div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span> <span class="comment"> * The == and === operators and the eql? method have the same implementation</span></div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span> <span class="comment"> * for BigDecimal.</span></div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span> <span class="comment"> *</span></div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span> <span class="comment"> * Values may be coerced to perform the comparison:</span></div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span> <span class="comment"> *</span></div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span> <span class="comment"> * BigDecimal.new('1.0') == 1.0 -> true</span></div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span> <span class="comment"> */</span></div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01074"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62"> 1074</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62">BigDecimal_eq</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span> {</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<span class="keyword">self</span>, r, <span class="charliteral">'='</span>);</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span> }</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span> </div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span> <span class="comment"> * a < b</span></div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span> <span class="comment"> *</span></div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span> <span class="comment"> * Returns true if a is less than b.</span></div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span> <span class="comment"> *</span></div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span> <span class="comment"> * Values may be coerced to perform the comparison (see ==, BigDecimal#coerce).</span></div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</span> <span class="comment"> */</span></div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01087"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac678ecb00699b93cc8a02d61a36a38f2"> 1087</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac678ecb00699b93cc8a02d61a36a38f2">BigDecimal_lt</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span> {</div><div class="line"><a name="l01089"></a><span class="lineno"> 1089</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<span class="keyword">self</span>, r, <span class="charliteral">'<'</span>);</div><div class="line"><a name="l01090"></a><span class="lineno"> 1090</span> }</div><div class="line"><a name="l01091"></a><span class="lineno"> 1091</span> </div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span> <span class="comment"> * a <= b</span></div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span> <span class="comment"> *</span></div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span> <span class="comment"> * Returns true if a is less than or equal to b.</span></div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span> <span class="comment"> *</span></div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span> <span class="comment"> * Values may be coerced to perform the comparison (see ==, BigDecimal#coerce).</span></div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span> <span class="comment"> */</span></div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01100"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a1072f4d98b73dd535ca26013cc61a48c"> 1100</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a1072f4d98b73dd535ca26013cc61a48c">BigDecimal_le</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</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="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<span class="keyword">self</span>, r, <span class="charliteral">'L'</span>);</div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span> }</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="comment">/* call-seq:</span></div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span> <span class="comment"> * a > b</span></div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span> <span class="comment"> *</span></div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span> <span class="comment"> * Returns true if a is greater than b.</span></div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span> <span class="comment"> *</span></div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span> <span class="comment"> * Values may be coerced to perform the comparison (see ==, BigDecimal#coerce).</span></div><div class="line"><a name="l01111"></a><span class="lineno"> 1111</span> <span class="comment"> */</span></div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01113"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a75a72d6e307a9061dab0146cfea01624"> 1113</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a72d6e307a9061dab0146cfea01624">BigDecimal_gt</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</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">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<span class="keyword">self</span>, r, <span class="charliteral">'>'</span>);</div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span> }</div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span> </div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</span> <span class="comment"> * a >= b</span></div><div class="line"><a name="l01120"></a><span class="lineno"> 1120</span> <span class="comment"> *</span></div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</span> <span class="comment"> * Returns true if a is greater than or equal to b.</span></div><div class="line"><a name="l01122"></a><span class="lineno"> 1122</span> <span class="comment"> *</span></div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span> <span class="comment"> * Values may be coerced to perform the comparison (see ==, BigDecimal#coerce)</span></div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span> <span class="comment"> */</span></div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01126"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a720e6653b29830a27680d35566f6ea6b"> 1126</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a720e6653b29830a27680d35566f6ea6b">BigDecimal_ge</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</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="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a>(<span class="keyword">self</span>, r, <span class="charliteral">'G'</span>);</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="comment">/*</span></div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span> <span class="comment"> * call-seq: -@</span></div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span> <span class="comment"> *</span></div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span> <span class="comment"> * Return the negation of self.</span></div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span> <span class="comment"> *</span></div><div class="line"><a name="l01136"></a><span class="lineno"> 1136</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l01137"></a><span class="lineno"> 1137</span> <span class="comment"> * b = -a</span></div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</span> <span class="comment"> * b == a * -1</span></div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span> <span class="comment"> */</span></div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01141"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7dce62c291131453c45d5e76ca49be70"> 1141</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7dce62c291131453c45d5e76ca49be70">BigDecimal_neg</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</span> {</div><div class="line"><a name="l01143"></a><span class="lineno"> 1143</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01146"></a><span class="lineno"> 1146</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> *(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01147"></a><span class="lineno"> 1147</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, -1);</div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span> }</div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span> </div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span>  <span class="comment">/*</span></div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span> <span class="comment"> * Document-method: BigDecimal#mult</span></div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span> <span class="comment"> *</span></div><div class="line"><a name="l01154"></a><span class="lineno"> 1154</span> <span class="comment"> * call-seq: mult(value, digits)</span></div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span> <span class="comment"> *</span></div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span> <span class="comment"> * Multiply by the specified value.</span></div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span> <span class="comment"> *</span></div><div class="line"><a name="l01158"></a><span class="lineno"> 1158</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l01159"></a><span class="lineno"> 1159</span> <span class="comment"> * c = a.mult(b,n)</span></div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span> <span class="comment"> * c = a * b</span></div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span> <span class="comment"> *</span></div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span> <span class="comment"> * digits:: If specified and less than the number of significant digits of the</span></div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span> <span class="comment"> * result, the result is rounded to that number of digits, according to</span></div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span> <span class="comment"> */</span></div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01167"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f"> 1167</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</span> {</div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a, *b;</div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span>  <span class="keywordtype">size_t</span> mx;</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l01175"></a><span class="lineno"> 1175</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</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>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1);</div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>  }</div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r,0);</div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>  }</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>  <span class="keywordflow">if</span> (!b) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>, r, <span class="charliteral">'*'</span>);</div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span> </div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx *(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(c, a, b);</div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span> }</div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span> </div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01194"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aafbb8f3393d0988ab9c37becd37d2394"> 1194</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aafbb8f3393d0988ab9c37becd37d2394">BigDecimal_divide</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> **c, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> **res, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> **<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span> <span class="comment">/* For c = self.div(r): with round operation */</span></div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span> {</div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, *b;</div><div class="line"><a name="l01199"></a><span class="lineno"> 1199</span>  <span class="keywordtype">size_t</span> mx;</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span>  }</div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1);</div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span>  }</div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r, 0);</div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>  }</div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span> </div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>  <span class="keywordflow">if</span> (!b) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>, r, <span class="charliteral">'/'</span>);</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</div><div class="line"><a name="l01214"></a><span class="lineno"> 1214</span> </div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = b;</div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>  <span class="keywordflow">if</span> (mx < b->Prec + <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>)) mx = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>  mx++; <span class="comment">/* NOTE: An additional digit is needed for the compatibility to</span></div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span> <span class="comment"> the version 1.2.1 and the former. */</span></div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>  mx = (mx + 1) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>();</div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>((*c), <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>((*res), <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>((mx+1) * 2 +(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(*c, *res, a, b);</div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l01225"></a><span class="lineno"> 1225</span> }</div><div class="line"><a name="l01226"></a><span class="lineno"> 1226</span> </div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span>  <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span> <span class="comment"> * div(value, digits)</span></div><div class="line"><a name="l01229"></a><span class="lineno"> 1229</span> <span class="comment"> * quo(value)</span></div><div class="line"><a name="l01230"></a><span class="lineno"> 1230</span> <span class="comment"> *</span></div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span> <span class="comment"> * Divide by the specified value.</span></div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span> <span class="comment"> *</span></div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span> <span class="comment"> * c = a.div(b,n)</span></div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span> <span class="comment"> *</span></div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span> <span class="comment"> * digits:: If specified and less than the number of significant digits of the</span></div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</span> <span class="comment"> * result, the result is rounded to that number of digits, according to</span></div><div class="line"><a name="l01238"></a><span class="lineno"> 1238</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</span> <span class="comment"> *</span></div><div class="line"><a name="l01240"></a><span class="lineno"> 1240</span> <span class="comment"> * If digits is 0, the result is the same as the / operator. If not, the</span></div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</span> <span class="comment"> * result is an integer BigDecimal, by analogy with Float#div.</span></div><div class="line"><a name="l01242"></a><span class="lineno"> 1242</span> <span class="comment"> *</span></div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</span> <span class="comment"> * The alias quo is provided since <code>div(value, 0)</code> is the same as</span></div><div class="line"><a name="l01244"></a><span class="lineno"> 1244</span> <span class="comment"> * computing the quotient; see BigDecimal#divmod.</span></div><div class="line"><a name="l01245"></a><span class="lineno"> 1245</span> <span class="comment"> */</span></div><div class="line"><a name="l01246"></a><span class="lineno"> 1246</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01247"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a3a26d3aa5dd8105d1adf6a064b5345cd"> 1247</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a3a26d3aa5dd8105d1adf6a064b5345cd">BigDecimal_div</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span> <span class="comment">/* For c = self/r: with round operation */</span></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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c=<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *res=<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span>  r = <a class="code" href="../../de/d07/bigdecimal_8c.html#aafbb8f3393d0988ab9c37becd37d2394">BigDecimal_divide</a>(&c, &res, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>, <span class="keyword">self</span>, r);</div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(r)) <span class="keywordflow">return</span> r; <span class="comment">/* coerced by other */</span></div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(c); <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(res); <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>);</div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>  <span class="comment">/* a/b = c + r/b */</span></div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span>  <span class="comment">/* c xxxxx</span></div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span> <span class="comment"> r 00000yyyyy ==> (y/b)*BASE >= HALF_BASE</span></div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span> <span class="comment"> */</span></div><div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>  <span class="comment">/* Round */</span></div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a8425bde5e3250f1f2a4387812658771c">VpHasVal</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>)) { <span class="comment">/* frac[0] must be zero for NaN,INF,Zero */</span></div><div class="line"><a name="l01261"></a><span class="lineno"> 1261</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a>(c, 0, c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>-1], (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a394f908a36012a7fe5901cb16c96498e">VpBaseVal</a>() * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a>)res->frac[0] / <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>->frac[0]));</div><div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>  }</div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</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> </div><div class="line"><a name="l01266"></a><span class="lineno"> 1266</span> <span class="comment">/*</span></div><div class="line"><a name="l01267"></a><span class="lineno"> 1267</span> <span class="comment"> * %: mod = a%b = a - (a.to_f/b).floor * b</span></div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span> <span class="comment"> * div = (a.to_f/b).floor</span></div><div class="line"><a name="l01269"></a><span class="lineno"> 1269</span> <span class="comment"> */</span></div><div class="line"><a name="l01270"></a><span class="lineno"> 1270</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01271"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ab8cc007385a8d225a46de99d71402ef8"> 1271</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab8cc007385a8d225a46de99d71402ef8">BigDecimal_DoDivmod</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> **<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> **<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>)</div><div class="line"><a name="l01272"></a><span class="lineno"> 1272</span> {</div><div class="line"><a name="l01273"></a><span class="lineno"> 1273</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(8);</div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c=<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *d=<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *res=<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, *b;</div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</span>  <span class="keywordtype">size_t</span> mx;</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>  }</div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1);</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>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01286"></a><span class="lineno"> 1286</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r, 0);</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> </div><div class="line"><a name="l01289"></a><span class="lineno"> 1289</span>  <span class="keywordflow">if</span> (!b) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01290"></a><span class="lineno"> 1290</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</span> </div><div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(b)) <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(a) && <a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(b)) <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l01294"></a><span class="lineno"> 1294</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l01295"></a><span class="lineno"> 1295</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a45a88487484351b69eac82ffb7d87c10">rb_eZeroDivError</a>, <span class="stringliteral">"divided by 0"</span>);</div><div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>  }</div><div class="line"><a name="l01297"></a><span class="lineno"> 1297</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(a)) {</div><div class="line"><a name="l01298"></a><span class="lineno"> 1298</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01299"></a><span class="lineno"> 1299</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(d, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) == <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b) ? 1 : -1));</div><div class="line"><a name="l01300"></a><span class="lineno"> 1300</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"NaN"</span>));</div><div class="line"><a name="l01301"></a><span class="lineno"> 1301</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = d;</div><div class="line"><a name="l01302"></a><span class="lineno"> 1302</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = c;</div><div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</span>  }</div><div class="line"><a name="l01305"></a><span class="lineno"> 1305</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(b)) {</div><div class="line"><a name="l01306"></a><span class="lineno"> 1306</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01307"></a><span class="lineno"> 1307</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = d;</div><div class="line"><a name="l01308"></a><span class="lineno"> 1308</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = a;</div><div class="line"><a name="l01309"></a><span class="lineno"> 1309</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01310"></a><span class="lineno"> 1310</span>  }</div><div class="line"><a name="l01311"></a><span class="lineno"> 1311</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = d;</div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = c;</div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>  }</div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span> </div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>  <span class="keywordflow">if</span> (mx<b->Prec + <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>)) mx = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>  mx = (mx + 1) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>();</div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01323"></a><span class="lineno"> 1323</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(res, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>((mx+1) * 2 +(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(c, res, a, b);</div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</span>  mx = c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01326"></a><span class="lineno"> 1326</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(d, c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>, 0);</div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(res, d, b);</div><div class="line"><a name="l01329"></a><span class="lineno"> 1329</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(c, a, res, -1);</div><div class="line"><a name="l01330"></a><span class="lineno"> 1330</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(c) && (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b) < 0)) {</div><div class="line"><a name="l01331"></a><span class="lineno"> 1331</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(res, d, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4ac23be3d17896c15da333d6bfa0bf8b">VpOne</a>(), -1);</div><div class="line"><a name="l01332"></a><span class="lineno"> 1332</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a21925945f9868efeff9d4fc708745526">GetAddSubPrec</a>(c, b)*(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01333"></a><span class="lineno"> 1333</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(d, c, b, 1);</div><div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = res;</div><div class="line"><a name="l01335"></a><span class="lineno"> 1335</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = d;</div><div class="line"><a name="l01336"></a><span class="lineno"> 1336</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = d;</div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = c;</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="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01341"></a><span class="lineno"> 1341</span> </div><div class="line"><a name="l01342"></a><span class="lineno"> 1342</span> NaN:</div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"NaN"</span>));</div><div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"NaN"</span>));</div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = d;</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</span>  *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = c;</div><div class="line"><a name="l01347"></a><span class="lineno"> 1347</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span> }</div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</span> </div><div class="line"><a name="l01350"></a><span class="lineno"> 1350</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01351"></a><span class="lineno"> 1351</span> <span class="comment"> * a % b</span></div><div class="line"><a name="l01352"></a><span class="lineno"> 1352</span> <span class="comment"> * a.modulo(b)</span></div><div class="line"><a name="l01353"></a><span class="lineno"> 1353</span> <span class="comment"> *</span></div><div class="line"><a name="l01354"></a><span class="lineno"> 1354</span> <span class="comment"> * Returns the modulus from dividing by b.</span></div><div class="line"><a name="l01355"></a><span class="lineno"> 1355</span> <span class="comment"> *</span></div><div class="line"><a name="l01356"></a><span class="lineno"> 1356</span> <span class="comment"> * See BigDecimal#divmod.</span></div><div class="line"><a name="l01357"></a><span class="lineno"> 1357</span> <span class="comment"> */</span></div><div class="line"><a name="l01358"></a><span class="lineno"> 1358</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01359"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a349fa12d5399ab7c1fc7b3b7373ccdf2"> 1359</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a349fa12d5399ab7c1fc7b3b7373ccdf2">BigDecimal_mod</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r) <span class="comment">/* %: a%b = a - (a.to_f/b).floor * b */</span></div><div class="line"><a name="l01360"></a><span class="lineno"> 1360</span> {</div><div class="line"><a name="l01361"></a><span class="lineno"> 1361</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(3);</div><div class="line"><a name="l01362"></a><span class="lineno"> 1362</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01363"></a><span class="lineno"> 1363</span> </div><div class="line"><a name="l01364"></a><span class="lineno"> 1364</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#ab8cc007385a8d225a46de99d71402ef8">BigDecimal_DoDivmod</a>(<span class="keyword">self</span>, r, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>)) {</div><div class="line"><a name="l01365"></a><span class="lineno"> 1365</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>); <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>);</div><div class="line"><a name="l01366"></a><span class="lineno"> 1366</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>);</div><div class="line"><a name="l01367"></a><span class="lineno"> 1367</span>  }</div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>, r, <span class="charliteral">'%'</span>);</div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span> }</div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span> </div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01372"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a069d7dbdff146ec66a1548176db4ee91"> 1372</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a069d7dbdff146ec66a1548176db4ee91">BigDecimal_divremain</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> **<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a555e4f17d8dc6f6cae4bcfd2dcbea9ce">dv</a>, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> **rv)</div><div class="line"><a name="l01373"></a><span class="lineno"> 1373</span> {</div><div class="line"><a name="l01374"></a><span class="lineno"> 1374</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(10);</div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span>  <span class="keywordtype">size_t</span> mx;</div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *b = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *c = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *res = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *d = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *rr = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *ff = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01377"></a><span class="lineno"> 1377</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01378"></a><span class="lineno"> 1378</span> </div><div class="line"><a name="l01379"></a><span class="lineno"> 1379</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01380"></a><span class="lineno"> 1380</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>  }</div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(r, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>)) {</div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(r, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), 1);</div><div class="line"><a name="l01385"></a><span class="lineno"> 1385</span>  }</div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>  b = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(r, 0);</div><div class="line"><a name="l01388"></a><span class="lineno"> 1388</span>  }</div><div class="line"><a name="l01389"></a><span class="lineno"> 1389</span> </div><div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>  <span class="keywordflow">if</span> (!b) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>, r, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"remainder"</span>));</div><div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(b);</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>  mx = (a-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> + b->MaxPrec) *<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>();</div><div class="line"><a name="l01394"></a><span class="lineno"> 1394</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01395"></a><span class="lineno"> 1395</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(res, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>((mx+1) * 2 + (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01396"></a><span class="lineno"> 1396</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(rr, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>((mx+1) * 2 + (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01397"></a><span class="lineno"> 1397</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(ff, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>((mx+1) * 2 + (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1), <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01398"></a><span class="lineno"> 1398</span> </div><div class="line"><a name="l01399"></a><span class="lineno"> 1399</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(c, res, a, b);</div><div class="line"><a name="l01400"></a><span class="lineno"> 1400</span> </div><div class="line"><a name="l01401"></a><span class="lineno"> 1401</span>  mx = c->Prec *(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01402"></a><span class="lineno"> 1402</span> </div><div class="line"><a name="l01403"></a><span class="lineno"> 1403</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(d, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01404"></a><span class="lineno"> 1404</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01405"></a><span class="lineno"> 1405</span> </div><div class="line"><a name="l01406"></a><span class="lineno"> 1406</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(d, c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>, 0); <span class="comment">/* 0: round off */</span></div><div class="line"><a name="l01407"></a><span class="lineno"> 1407</span> </div><div class="line"><a name="l01408"></a><span class="lineno"> 1408</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a61b4400d4f983db01b999edf52387ced">VpFrac</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, c);</div><div class="line"><a name="l01409"></a><span class="lineno"> 1409</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(rr, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, b);</div><div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(ff, res, rr, 1);</div><div class="line"><a name="l01411"></a><span class="lineno"> 1411</span> </div><div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>  *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a555e4f17d8dc6f6cae4bcfd2dcbea9ce">dv</a> = d;</div><div class="line"><a name="l01413"></a><span class="lineno"> 1413</span>  *rv = ff;</div><div class="line"><a name="l01414"></a><span class="lineno"> 1414</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l01415"></a><span class="lineno"> 1415</span> }</div><div class="line"><a name="l01416"></a><span class="lineno"> 1416</span> </div><div class="line"><a name="l01417"></a><span class="lineno"> 1417</span> <span class="comment">/* Returns the remainder from dividing by the value.</span></div><div class="line"><a name="l01418"></a><span class="lineno"> 1418</span> <span class="comment"> *</span></div><div class="line"><a name="l01419"></a><span class="lineno"> 1419</span> <span class="comment"> * x.remainder(y) means x-y*(x/y).truncate</span></div><div class="line"><a name="l01420"></a><span class="lineno"> 1420</span> <span class="comment"> */</span></div><div class="line"><a name="l01421"></a><span class="lineno"> 1421</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01422"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a83711d728e30b364c9e235c96a0c5241"> 1422</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a83711d728e30b364c9e235c96a0c5241">BigDecimal_remainder</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r) <span class="comment">/* remainder */</span></div><div class="line"><a name="l01423"></a><span class="lineno"> 1423</span> {</div><div class="line"><a name="l01424"></a><span class="lineno"> 1424</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>;</div><div class="line"><a name="l01425"></a><span class="lineno"> 1425</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *d, *rv = 0;</div><div class="line"><a name="l01426"></a><span class="lineno"> 1426</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#a069d7dbdff146ec66a1548176db4ee91">BigDecimal_divremain</a>(<span class="keyword">self</span>, r, &d, &rv);</div><div class="line"><a name="l01427"></a><span class="lineno"> 1427</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>)) <span class="keywordflow">return</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>;</div><div class="line"><a name="l01428"></a><span class="lineno"> 1428</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(rv);</div><div class="line"><a name="l01429"></a><span class="lineno"> 1429</span> }</div><div class="line"><a name="l01430"></a><span class="lineno"> 1430</span> </div><div class="line"><a name="l01431"></a><span class="lineno"> 1431</span> <span class="comment">/* Divides by the specified value, and returns the quotient and modulus</span></div><div class="line"><a name="l01432"></a><span class="lineno"> 1432</span> <span class="comment"> * as BigDecimal numbers. The quotient is rounded towards negative infinity.</span></div><div class="line"><a name="l01433"></a><span class="lineno"> 1433</span> <span class="comment"> *</span></div><div class="line"><a name="l01434"></a><span class="lineno"> 1434</span> <span class="comment"> * For example:</span></div><div class="line"><a name="l01435"></a><span class="lineno"> 1435</span> <span class="comment"> *</span></div><div class="line"><a name="l01436"></a><span class="lineno"> 1436</span> <span class="comment"> * require 'bigdecimal'</span></div><div class="line"><a name="l01437"></a><span class="lineno"> 1437</span> <span class="comment"> *</span></div><div class="line"><a name="l01438"></a><span class="lineno"> 1438</span> <span class="comment"> * a = BigDecimal.new("42")</span></div><div class="line"><a name="l01439"></a><span class="lineno"> 1439</span> <span class="comment"> * b = BigDecimal.new("9")</span></div><div class="line"><a name="l01440"></a><span class="lineno"> 1440</span> <span class="comment"> *</span></div><div class="line"><a name="l01441"></a><span class="lineno"> 1441</span> <span class="comment"> * q,m = a.divmod(b)</span></div><div class="line"><a name="l01442"></a><span class="lineno"> 1442</span> <span class="comment"> *</span></div><div class="line"><a name="l01443"></a><span class="lineno"> 1443</span> <span class="comment"> * c = q * b + m</span></div><div class="line"><a name="l01444"></a><span class="lineno"> 1444</span> <span class="comment"> *</span></div><div class="line"><a name="l01445"></a><span class="lineno"> 1445</span> <span class="comment"> * a == c -> true</span></div><div class="line"><a name="l01446"></a><span class="lineno"> 1446</span> <span class="comment"> *</span></div><div class="line"><a name="l01447"></a><span class="lineno"> 1447</span> <span class="comment"> * The quotient q is (a/b).floor, and the modulus is the amount that must be</span></div><div class="line"><a name="l01448"></a><span class="lineno"> 1448</span> <span class="comment"> * added to q * b to get a.</span></div><div class="line"><a name="l01449"></a><span class="lineno"> 1449</span> <span class="comment"> */</span></div><div class="line"><a name="l01450"></a><span class="lineno"> 1450</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01451"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a4b778538ce920f9d867c79af0f6b1b74"> 1451</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b778538ce920f9d867c79af0f6b1b74">BigDecimal_divmod</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> r)</div><div class="line"><a name="l01452"></a><span class="lineno"> 1452</span> {</div><div class="line"><a name="l01453"></a><span class="lineno"> 1453</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01454"></a><span class="lineno"> 1454</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01455"></a><span class="lineno"> 1455</span> </div><div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#ab8cc007385a8d225a46de99d71402ef8">BigDecimal_DoDivmod</a>(<span class="keyword">self</span>, r, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>)) {</div><div class="line"><a name="l01457"></a><span class="lineno"> 1457</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>); <a class="code" href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>);</div><div class="line"><a name="l01458"></a><span class="lineno"> 1458</span>  <span class="keywordflow">return</span> <a class="code" href="../../dc/dcc/array_8c.html#af3085ceab406e3f4f4b90f383c440d6a">rb_assoc_new</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>), <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>));</div><div class="line"><a name="l01459"></a><span class="lineno"> 1459</span>  }</div><div class="line"><a name="l01460"></a><span class="lineno"> 1460</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>,r,<a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"divmod"</span>));</div><div class="line"><a name="l01461"></a><span class="lineno"> 1461</span> }</div><div class="line"><a name="l01462"></a><span class="lineno"> 1462</span> </div><div class="line"><a name="l01463"></a><span class="lineno"> 1463</span> <span class="comment">/*</span></div><div class="line"><a name="l01464"></a><span class="lineno"> 1464</span> <span class="comment"> * See BigDecimal#quo</span></div><div class="line"><a name="l01465"></a><span class="lineno"> 1465</span> <span class="comment"> */</span></div><div class="line"><a name="l01466"></a><span class="lineno"> 1466</span> <span class="keyword">static</span> <span class="keyword">inline</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01467"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4"> 1467</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> b, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> n)</div><div class="line"><a name="l01468"></a><span class="lineno"> 1468</span> {</div><div class="line"><a name="l01469"></a><span class="lineno"> 1469</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01470"></a><span class="lineno"> 1470</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> ix;</div><div class="line"><a name="l01471"></a><span class="lineno"> 1471</span> </div><div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(n)) { <span class="comment">/* div in Float sense */</span></div><div class="line"><a name="l01473"></a><span class="lineno"> 1473</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01474"></a><span class="lineno"> 1474</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>;</div><div class="line"><a name="l01475"></a><span class="lineno"> 1475</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#ab8cc007385a8d225a46de99d71402ef8">BigDecimal_DoDivmod</a>(<span class="keyword">self</span>, b, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>, &<a class="code" href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a>)) {</div><div class="line"><a name="l01476"></a><span class="lineno"> 1476</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>));</div><div class="line"><a name="l01477"></a><span class="lineno"> 1477</span>  }</div><div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a>(<span class="keyword">self</span>, b, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"div"</span>));</div><div class="line"><a name="l01479"></a><span class="lineno"> 1479</span>  }</div><div class="line"><a name="l01480"></a><span class="lineno"> 1480</span> </div><div class="line"><a name="l01481"></a><span class="lineno"> 1481</span>  <span class="comment">/* div in BigDecimal sense */</span></div><div class="line"><a name="l01482"></a><span class="lineno"> 1482</span>  ix = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(n);</div><div class="line"><a name="l01483"></a><span class="lineno"> 1483</span>  <span class="keywordflow">if</span> (ix == 0) {</div><div class="line"><a name="l01484"></a><span class="lineno"> 1484</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a3a26d3aa5dd8105d1adf6a064b5345cd">BigDecimal_div</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01485"></a><span class="lineno"> 1485</span>  }</div><div class="line"><a name="l01486"></a><span class="lineno"> 1486</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01487"></a><span class="lineno"> 1487</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *res = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01488"></a><span class="lineno"> 1488</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *av = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *bv = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01489"></a><span class="lineno"> 1489</span>  <span class="keywordtype">size_t</span> mx = ix + <a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>()*2;</div><div class="line"><a name="l01490"></a><span class="lineno"> 1490</span>  <span class="keywordtype">size_t</span> pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01491"></a><span class="lineno"> 1491</span> </div><div class="line"><a name="l01492"></a><span class="lineno"> 1492</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01493"></a><span class="lineno"> 1493</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(av, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01494"></a><span class="lineno"> 1494</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(bv, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(b, 1));</div><div class="line"><a name="l01495"></a><span class="lineno"> 1495</span>  mx = av-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + bv->Prec + 2;</div><div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>  <span class="keywordflow">if</span> (mx <= cv->MaxPrec) mx = <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>->MaxPrec + 1;</div><div class="line"><a name="l01497"></a><span class="lineno"> 1497</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(res, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>((mx * 2 + 2)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), <span class="stringliteral">"#0"</span>));</div><div class="line"><a name="l01498"></a><span class="lineno"> 1498</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, res, av, bv);</div><div class="line"><a name="l01499"></a><span class="lineno"> 1499</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01500"></a><span class="lineno"> 1500</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(), ix);</div><div class="line"><a name="l01501"></a><span class="lineno"> 1501</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>);</div><div class="line"><a name="l01502"></a><span class="lineno"> 1502</span>  }</div><div class="line"><a name="l01503"></a><span class="lineno"> 1503</span> }</div><div class="line"><a name="l01504"></a><span class="lineno"> 1504</span> </div><div class="line"><a name="l01505"></a><span class="lineno"> 1505</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01506"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ae25191e34dc51c7c90bdc007f22c7720"> 1506</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ae25191e34dc51c7c90bdc007f22c7720">BigDecimal_div3</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> b,n;</div><div class="line"><a name="l01509"></a><span class="lineno"> 1509</span> </div><div class="line"><a name="l01510"></a><span class="lineno"> 1510</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &b, &n);</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="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(<span class="keyword">self</span>, b, n);</div><div class="line"><a name="l01513"></a><span class="lineno"> 1513</span> }</div><div class="line"><a name="l01514"></a><span class="lineno"> 1514</span> </div><div class="line"><a name="l01515"></a><span class="lineno"> 1515</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01516"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aaf63eb20d95e99fc7e40717dec7f07a7"> 1516</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aaf63eb20d95e99fc7e40717dec7f07a7">BigDecimal_add2</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> b, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> n)</div><div class="line"><a name="l01517"></a><span class="lineno"> 1517</span> {</div><div class="line"><a name="l01518"></a><span class="lineno"> 1518</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(2);</div><div class="line"><a name="l01519"></a><span class="lineno"> 1519</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>;</div><div class="line"><a name="l01520"></a><span class="lineno"> 1520</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> mx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(n);</div><div class="line"><a name="l01521"></a><span class="lineno"> 1521</span>  <span class="keywordflow">if</span> (mx == 0) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01522"></a><span class="lineno"> 1522</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01523"></a><span class="lineno"> 1523</span>  <span class="keywordtype">size_t</span> pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01524"></a><span class="lineno"> 1524</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> c = <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01525"></a><span class="lineno"> 1525</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01526"></a><span class="lineno"> 1526</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(c, 1));</div><div class="line"><a name="l01527"></a><span class="lineno"> 1527</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(), mx);</div><div class="line"><a name="l01528"></a><span class="lineno"> 1528</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>);</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> }</div><div class="line"><a name="l01531"></a><span class="lineno"> 1531</span> </div><div class="line"><a name="l01532"></a><span class="lineno"> 1532</span> <span class="comment">/*</span></div><div class="line"><a name="l01533"></a><span class="lineno"> 1533</span> <span class="comment"> * sub(value, digits) -> bigdecimal</span></div><div class="line"><a name="l01534"></a><span class="lineno"> 1534</span> <span class="comment"> *</span></div><div class="line"><a name="l01535"></a><span class="lineno"> 1535</span> <span class="comment"> * Subtract the specified value.</span></div><div class="line"><a name="l01536"></a><span class="lineno"> 1536</span> <span class="comment"> *</span></div><div class="line"><a name="l01537"></a><span class="lineno"> 1537</span> <span class="comment"> * e.g.</span></div><div class="line"><a name="l01538"></a><span class="lineno"> 1538</span> <span class="comment"> * c = a.sub(b,n)</span></div><div class="line"><a name="l01539"></a><span class="lineno"> 1539</span> <span class="comment"> *</span></div><div class="line"><a name="l01540"></a><span class="lineno"> 1540</span> <span class="comment"> * digits:: If specified and less than the number of significant digits of the</span></div><div class="line"><a name="l01541"></a><span class="lineno"> 1541</span> <span class="comment"> * result, the result is rounded to that number of digits, according to</span></div><div class="line"><a name="l01542"></a><span class="lineno"> 1542</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l01543"></a><span class="lineno"> 1543</span> <span class="comment"> *</span></div><div class="line"><a name="l01544"></a><span class="lineno"> 1544</span> <span class="comment"> */</span></div><div class="line"><a name="l01545"></a><span class="lineno"> 1545</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01546"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a442bcf9d63bf053f7f5e7f384685a7e4"> 1546</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a442bcf9d63bf053f7f5e7f384685a7e4">BigDecimal_sub2</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> b, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> n)</div><div class="line"><a name="l01547"></a><span class="lineno"> 1547</span> {</div><div class="line"><a name="l01548"></a><span class="lineno"> 1548</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(2);</div><div class="line"><a name="l01549"></a><span class="lineno"> 1549</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>;</div><div class="line"><a name="l01550"></a><span class="lineno"> 1550</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> mx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(n);</div><div class="line"><a name="l01551"></a><span class="lineno"> 1551</span>  <span class="keywordflow">if</span> (mx == 0) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b">BigDecimal_sub</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01553"></a><span class="lineno"> 1553</span>  <span class="keywordtype">size_t</span> pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01554"></a><span class="lineno"> 1554</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> c = <a class="code" href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b">BigDecimal_sub</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01555"></a><span class="lineno"> 1555</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01556"></a><span class="lineno"> 1556</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(c, 1));</div><div class="line"><a name="l01557"></a><span class="lineno"> 1557</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(), mx);</div><div class="line"><a name="l01558"></a><span class="lineno"> 1558</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>);</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> }</div><div class="line"><a name="l01561"></a><span class="lineno"> 1561</span> </div><div class="line"><a name="l01562"></a><span class="lineno"> 1562</span> </div><div class="line"><a name="l01563"></a><span class="lineno"> 1563</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01564"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8"> 1564</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> b, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> n)</div><div class="line"><a name="l01565"></a><span class="lineno"> 1565</span> {</div><div class="line"><a name="l01566"></a><span class="lineno"> 1566</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(2);</div><div class="line"><a name="l01567"></a><span class="lineno"> 1567</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>;</div><div class="line"><a name="l01568"></a><span class="lineno"> 1568</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> mx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(n);</div><div class="line"><a name="l01569"></a><span class="lineno"> 1569</span>  <span class="keywordflow">if</span> (mx == 0) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01570"></a><span class="lineno"> 1570</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01571"></a><span class="lineno"> 1571</span>  <span class="keywordtype">size_t</span> pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01572"></a><span class="lineno"> 1572</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> c = <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>(<span class="keyword">self</span>, b);</div><div class="line"><a name="l01573"></a><span class="lineno"> 1573</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01574"></a><span class="lineno"> 1574</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(c, 1));</div><div class="line"><a name="l01575"></a><span class="lineno"> 1575</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(), mx);</div><div class="line"><a name="l01576"></a><span class="lineno"> 1576</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a>);</div><div class="line"><a name="l01577"></a><span class="lineno"> 1577</span>  }</div><div class="line"><a name="l01578"></a><span class="lineno"> 1578</span> }</div><div class="line"><a name="l01579"></a><span class="lineno"> 1579</span> </div><div class="line"><a name="l01580"></a><span class="lineno"> 1580</span> <span class="comment">/* Returns the absolute value.</span></div><div class="line"><a name="l01581"></a><span class="lineno"> 1581</span> <span class="comment"> *</span></div><div class="line"><a name="l01582"></a><span class="lineno"> 1582</span> <span class="comment"> * BigDecimal('5').abs -> 5</span></div><div class="line"><a name="l01583"></a><span class="lineno"> 1583</span> <span class="comment"> *</span></div><div class="line"><a name="l01584"></a><span class="lineno"> 1584</span> <span class="comment"> * BigDecimal('-3').abs -> 3</span></div><div class="line"><a name="l01585"></a><span class="lineno"> 1585</span> <span class="comment"> */</span></div><div class="line"><a name="l01586"></a><span class="lineno"> 1586</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01587"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aa82f785f0abe75a1569197552afa61b9"> 1587</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aa82f785f0abe75a1569197552afa61b9">BigDecimal_abs</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01588"></a><span class="lineno"> 1588</span> {</div><div class="line"><a name="l01589"></a><span class="lineno"> 1589</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01590"></a><span class="lineno"> 1590</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01591"></a><span class="lineno"> 1591</span>  <span class="keywordtype">size_t</span> mx;</div><div class="line"><a name="l01592"></a><span class="lineno"> 1592</span> </div><div class="line"><a name="l01593"></a><span class="lineno"> 1593</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01594"></a><span class="lineno"> 1594</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> *(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01595"></a><span class="lineno"> 1595</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01596"></a><span class="lineno"> 1596</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, 1);</div><div class="line"><a name="l01597"></a><span class="lineno"> 1597</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a26e8ca52288bcfb6a58376d71764d7a2">VpChangeSign</a>(c, 1);</div><div class="line"><a name="l01598"></a><span class="lineno"> 1598</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01599"></a><span class="lineno"> 1599</span> }</div><div class="line"><a name="l01600"></a><span class="lineno"> 1600</span> </div><div class="line"><a name="l01601"></a><span class="lineno"> 1601</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01602"></a><span class="lineno"> 1602</span> <span class="comment"> * sqrt(n)</span></div><div class="line"><a name="l01603"></a><span class="lineno"> 1603</span> <span class="comment"> *</span></div><div class="line"><a name="l01604"></a><span class="lineno"> 1604</span> <span class="comment"> * Returns the square root of the value.</span></div><div class="line"><a name="l01605"></a><span class="lineno"> 1605</span> <span class="comment"> *</span></div><div class="line"><a name="l01606"></a><span class="lineno"> 1606</span> <span class="comment"> * Result has at least n significant digits.</span></div><div class="line"><a name="l01607"></a><span class="lineno"> 1607</span> <span class="comment"> */</span></div><div class="line"><a name="l01608"></a><span class="lineno"> 1608</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01609"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a563728ffb7fcfed5a35175b4643fac56"> 1609</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a563728ffb7fcfed5a35175b4643fac56">BigDecimal_sqrt</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> nFig)</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01612"></a><span class="lineno"> 1612</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01613"></a><span class="lineno"> 1613</span>  <span class="keywordtype">size_t</span> mx, n;</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="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01616"></a><span class="lineno"> 1616</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01617"></a><span class="lineno"> 1617</span> </div><div class="line"><a name="l01618"></a><span class="lineno"> 1618</span>  n = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(nFig) + <a class="code" href="../../d0/da5/bigdecimal_8h.html#a62d613b3e8b07bf043833a3c1e86d092">VpDblFig</a>() + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l01619"></a><span class="lineno"> 1619</span>  <span class="keywordflow">if</span> (mx <= n) mx = n;</div><div class="line"><a name="l01620"></a><span class="lineno"> 1620</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01621"></a><span class="lineno"> 1621</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a814bbbe6c0e4d9242e89f96dd259a984">VpSqrt</a>(c, a);</div><div class="line"><a name="l01622"></a><span class="lineno"> 1622</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01623"></a><span class="lineno"> 1623</span> }</div><div class="line"><a name="l01624"></a><span class="lineno"> 1624</span> </div><div class="line"><a name="l01625"></a><span class="lineno"> 1625</span> <span class="comment">/* Return the integer part of the number.</span></div><div class="line"><a name="l01626"></a><span class="lineno"> 1626</span> <span class="comment"> */</span></div><div class="line"><a name="l01627"></a><span class="lineno"> 1627</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01628"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a149cf9b34f9e0208b56678120e603855"> 1628</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a149cf9b34f9e0208b56678120e603855">BigDecimal_fix</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01629"></a><span class="lineno"> 1629</span> {</div><div class="line"><a name="l01630"></a><span class="lineno"> 1630</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01631"></a><span class="lineno"> 1631</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01632"></a><span class="lineno"> 1632</span>  <span class="keywordtype">size_t</span> mx;</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01635"></a><span class="lineno"> 1635</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> *(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01636"></a><span class="lineno"> 1636</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(c, a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>, 0); <span class="comment">/* 0: round off */</span></div><div class="line"><a name="l01638"></a><span class="lineno"> 1638</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01639"></a><span class="lineno"> 1639</span> }</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> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01642"></a><span class="lineno"> 1642</span> <span class="comment"> * round(n, mode)</span></div><div class="line"><a name="l01643"></a><span class="lineno"> 1643</span> <span class="comment"> *</span></div><div class="line"><a name="l01644"></a><span class="lineno"> 1644</span> <span class="comment"> * Round to the nearest 1 (by default), returning the result as a BigDecimal.</span></div><div class="line"><a name="l01645"></a><span class="lineno"> 1645</span> <span class="comment"> *</span></div><div class="line"><a name="l01646"></a><span class="lineno"> 1646</span> <span class="comment"> * BigDecimal('3.14159').round #=> 3</span></div><div class="line"><a name="l01647"></a><span class="lineno"> 1647</span> <span class="comment"> * BigDecimal('8.7').round #=> 9</span></div><div class="line"><a name="l01648"></a><span class="lineno"> 1648</span> <span class="comment"> *</span></div><div class="line"><a name="l01649"></a><span class="lineno"> 1649</span> <span class="comment"> * If n is specified and positive, the fractional part of the result has no</span></div><div class="line"><a name="l01650"></a><span class="lineno"> 1650</span> <span class="comment"> * more than that many digits.</span></div><div class="line"><a name="l01651"></a><span class="lineno"> 1651</span> <span class="comment"> *</span></div><div class="line"><a name="l01652"></a><span class="lineno"> 1652</span> <span class="comment"> * If n is specified and negative, at least that many digits to the left of the</span></div><div class="line"><a name="l01653"></a><span class="lineno"> 1653</span> <span class="comment"> * decimal point will be 0 in the result.</span></div><div class="line"><a name="l01654"></a><span class="lineno"> 1654</span> <span class="comment"> *</span></div><div class="line"><a name="l01655"></a><span class="lineno"> 1655</span> <span class="comment"> * BigDecimal('3.14159').round(3) #=> 3.142</span></div><div class="line"><a name="l01656"></a><span class="lineno"> 1656</span> <span class="comment"> * BigDecimal('13345.234').round(-2) #=> 13300.0</span></div><div class="line"><a name="l01657"></a><span class="lineno"> 1657</span> <span class="comment"> *</span></div><div class="line"><a name="l01658"></a><span class="lineno"> 1658</span> <span class="comment"> * The value of the optional mode argument can be used to determine how</span></div><div class="line"><a name="l01659"></a><span class="lineno"> 1659</span> <span class="comment"> * rounding is performed; see BigDecimal.mode.</span></div><div class="line"><a name="l01660"></a><span class="lineno"> 1660</span> <span class="comment"> */</span></div><div class="line"><a name="l01661"></a><span class="lineno"> 1661</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01662"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7d3b9883faa31ad8eb1e53e8c70bccf1"> 1662</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7d3b9883faa31ad8eb1e53e8c70bccf1">BigDecimal_round</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01663"></a><span class="lineno"> 1663</span> {</div><div class="line"><a name="l01664"></a><span class="lineno"> 1664</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01665"></a><span class="lineno"> 1665</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01666"></a><span class="lineno"> 1666</span>  <span class="keywordtype">int</span> iLoc = 0;</div><div class="line"><a name="l01667"></a><span class="lineno"> 1667</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vLoc;</div><div class="line"><a name="l01668"></a><span class="lineno"> 1668</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vRound;</div><div class="line"><a name="l01669"></a><span class="lineno"> 1669</span>  <span class="keywordtype">size_t</span> mx, pl;</div><div class="line"><a name="l01670"></a><span class="lineno"> 1670</span> </div><div class="line"><a name="l01671"></a><span class="lineno"> 1671</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> sw = <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>();</div><div class="line"><a name="l01672"></a><span class="lineno"> 1672</span> </div><div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"02"</span>, &vLoc, &vRound)) {</div><div class="line"><a name="l01674"></a><span class="lineno"> 1674</span>  <span class="keywordflow">case</span> 0:</div><div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>  iLoc = 0;</div><div class="line"><a name="l01676"></a><span class="lineno"> 1676</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01677"></a><span class="lineno"> 1677</span>  <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l01678"></a><span class="lineno"> 1678</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(vLoc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l01679"></a><span class="lineno"> 1679</span>  iLoc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vLoc);</div><div class="line"><a name="l01680"></a><span class="lineno"> 1680</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01681"></a><span class="lineno"> 1681</span>  <span class="keywordflow">case</span> 2:</div><div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(vLoc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l01683"></a><span class="lineno"> 1683</span>  iLoc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vLoc);</div><div class="line"><a name="l01684"></a><span class="lineno"> 1684</span>  sw = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0e4cb8ae95acd6379bd22e1f6195a387">check_rounding_mode</a>(vRound);</div><div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01686"></a><span class="lineno"> 1686</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01687"></a><span class="lineno"> 1687</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01688"></a><span class="lineno"> 1688</span>  }</div><div class="line"><a name="l01689"></a><span class="lineno"> 1689</span> </div><div class="line"><a name="l01690"></a><span class="lineno"> 1690</span>  pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01691"></a><span class="lineno"> 1691</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01692"></a><span class="lineno"> 1692</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01693"></a><span class="lineno"> 1693</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01695"></a><span class="lineno"> 1695</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(c, a, sw, iLoc);</div><div class="line"><a name="l01696"></a><span class="lineno"> 1696</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> == 0) {</div><div class="line"><a name="l01697"></a><span class="lineno"> 1697</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c));</div><div class="line"><a name="l01698"></a><span class="lineno"> 1698</span>  }</div><div class="line"><a name="l01699"></a><span class="lineno"> 1699</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</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="comment">/* call-seq:</span></div><div class="line"><a name="l01703"></a><span class="lineno"> 1703</span> <span class="comment"> * truncate(n)</span></div><div class="line"><a name="l01704"></a><span class="lineno"> 1704</span> <span class="comment"> *</span></div><div class="line"><a name="l01705"></a><span class="lineno"> 1705</span> <span class="comment"> * Truncate to the nearest 1, returning the result as a BigDecimal.</span></div><div class="line"><a name="l01706"></a><span class="lineno"> 1706</span> <span class="comment"> *</span></div><div class="line"><a name="l01707"></a><span class="lineno"> 1707</span> <span class="comment"> * BigDecimal('3.14159').truncate #=> 3</span></div><div class="line"><a name="l01708"></a><span class="lineno"> 1708</span> <span class="comment"> * BigDecimal('8.7').truncate #=> 8</span></div><div class="line"><a name="l01709"></a><span class="lineno"> 1709</span> <span class="comment"> *</span></div><div class="line"><a name="l01710"></a><span class="lineno"> 1710</span> <span class="comment"> * If n is specified and positive, the fractional part of the result has no</span></div><div class="line"><a name="l01711"></a><span class="lineno"> 1711</span> <span class="comment"> * more than that many digits.</span></div><div class="line"><a name="l01712"></a><span class="lineno"> 1712</span> <span class="comment"> *</span></div><div class="line"><a name="l01713"></a><span class="lineno"> 1713</span> <span class="comment"> * If n is specified and negative, at least that many digits to the left of the</span></div><div class="line"><a name="l01714"></a><span class="lineno"> 1714</span> <span class="comment"> * decimal point will be 0 in the result.</span></div><div class="line"><a name="l01715"></a><span class="lineno"> 1715</span> <span class="comment"> *</span></div><div class="line"><a name="l01716"></a><span class="lineno"> 1716</span> <span class="comment"> * BigDecimal('3.14159').truncate(3) #=> 3.141</span></div><div class="line"><a name="l01717"></a><span class="lineno"> 1717</span> <span class="comment"> * BigDecimal('13345.234').truncate(-2) #=> 13300.0</span></div><div class="line"><a name="l01718"></a><span class="lineno"> 1718</span> <span class="comment"> */</span></div><div class="line"><a name="l01719"></a><span class="lineno"> 1719</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01720"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aeadb5e4d0b30269ffc034396c5b5e53f"> 1720</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aeadb5e4d0b30269ffc034396c5b5e53f">BigDecimal_truncate</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01721"></a><span class="lineno"> 1721</span> {</div><div class="line"><a name="l01722"></a><span class="lineno"> 1722</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01723"></a><span class="lineno"> 1723</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01724"></a><span class="lineno"> 1724</span>  <span class="keywordtype">int</span> iLoc;</div><div class="line"><a name="l01725"></a><span class="lineno"> 1725</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vLoc;</div><div class="line"><a name="l01726"></a><span class="lineno"> 1726</span>  <span class="keywordtype">size_t</span> mx, pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01727"></a><span class="lineno"> 1727</span> </div><div class="line"><a name="l01728"></a><span class="lineno"> 1728</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &vLoc) == 0) {</div><div class="line"><a name="l01729"></a><span class="lineno"> 1729</span>  iLoc = 0;</div><div class="line"><a name="l01730"></a><span class="lineno"> 1730</span>  }</div><div class="line"><a name="l01731"></a><span class="lineno"> 1731</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01732"></a><span class="lineno"> 1732</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(vLoc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l01733"></a><span class="lineno"> 1733</span>  iLoc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vLoc);</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> </div><div class="line"><a name="l01736"></a><span class="lineno"> 1736</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01737"></a><span class="lineno"> 1737</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01738"></a><span class="lineno"> 1738</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01739"></a><span class="lineno"> 1739</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01740"></a><span class="lineno"> 1740</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(c, a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>, iLoc); <span class="comment">/* 0: truncate */</span></div><div class="line"><a name="l01741"></a><span class="lineno"> 1741</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> == 0) {</div><div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c));</div><div class="line"><a name="l01743"></a><span class="lineno"> 1743</span>  }</div><div class="line"><a name="l01744"></a><span class="lineno"> 1744</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</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> </div><div class="line"><a name="l01747"></a><span class="lineno"> 1747</span> <span class="comment">/* Return the fractional part of the number.</span></div><div class="line"><a name="l01748"></a><span class="lineno"> 1748</span> <span class="comment"> */</span></div><div class="line"><a name="l01749"></a><span class="lineno"> 1749</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01750"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a39fe9fc5399c155238c324987da36d06"> 1750</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a39fe9fc5399c155238c324987da36d06">BigDecimal_frac</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</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="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01753"></a><span class="lineno"> 1753</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01754"></a><span class="lineno"> 1754</span>  <span class="keywordtype">size_t</span> mx;</div><div class="line"><a name="l01755"></a><span class="lineno"> 1755</span> </div><div class="line"><a name="l01756"></a><span class="lineno"> 1756</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01757"></a><span class="lineno"> 1757</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01758"></a><span class="lineno"> 1758</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01759"></a><span class="lineno"> 1759</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a61b4400d4f983db01b999edf52387ced">VpFrac</a>(c, a);</div><div class="line"><a name="l01760"></a><span class="lineno"> 1760</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01761"></a><span class="lineno"> 1761</span> }</div><div class="line"><a name="l01762"></a><span class="lineno"> 1762</span> </div><div class="line"><a name="l01763"></a><span class="lineno"> 1763</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01764"></a><span class="lineno"> 1764</span> <span class="comment"> * floor(n)</span></div><div class="line"><a name="l01765"></a><span class="lineno"> 1765</span> <span class="comment"> *</span></div><div class="line"><a name="l01766"></a><span class="lineno"> 1766</span> <span class="comment"> * Return the largest integer less than or equal to the value, as a BigDecimal.</span></div><div class="line"><a name="l01767"></a><span class="lineno"> 1767</span> <span class="comment"> *</span></div><div class="line"><a name="l01768"></a><span class="lineno"> 1768</span> <span class="comment"> * BigDecimal('3.14159').floor #=> 3</span></div><div class="line"><a name="l01769"></a><span class="lineno"> 1769</span> <span class="comment"> * BigDecimal('-9.1').floor #=> -10</span></div><div class="line"><a name="l01770"></a><span class="lineno"> 1770</span> <span class="comment"> *</span></div><div class="line"><a name="l01771"></a><span class="lineno"> 1771</span> <span class="comment"> * If n is specified and positive, the fractional part of the result has no</span></div><div class="line"><a name="l01772"></a><span class="lineno"> 1772</span> <span class="comment"> * more than that many digits.</span></div><div class="line"><a name="l01773"></a><span class="lineno"> 1773</span> <span class="comment"> *</span></div><div class="line"><a name="l01774"></a><span class="lineno"> 1774</span> <span class="comment"> * If n is specified and negative, at least that</span></div><div class="line"><a name="l01775"></a><span class="lineno"> 1775</span> <span class="comment"> * many digits to the left of the decimal point will be 0 in the result.</span></div><div class="line"><a name="l01776"></a><span class="lineno"> 1776</span> <span class="comment"> *</span></div><div class="line"><a name="l01777"></a><span class="lineno"> 1777</span> <span class="comment"> * BigDecimal('3.14159').floor(3) #=> 3.141</span></div><div class="line"><a name="l01778"></a><span class="lineno"> 1778</span> <span class="comment"> * BigDecimal('13345.234').floor(-2) #=> 13300.0</span></div><div class="line"><a name="l01779"></a><span class="lineno"> 1779</span> <span class="comment"> */</span></div><div class="line"><a name="l01780"></a><span class="lineno"> 1780</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01781"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#abbdf162048a03359f27ce733cacc3e59"> 1781</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#abbdf162048a03359f27ce733cacc3e59">BigDecimal_floor</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01782"></a><span class="lineno"> 1782</span> {</div><div class="line"><a name="l01783"></a><span class="lineno"> 1783</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01784"></a><span class="lineno"> 1784</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01785"></a><span class="lineno"> 1785</span>  <span class="keywordtype">int</span> iLoc;</div><div class="line"><a name="l01786"></a><span class="lineno"> 1786</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vLoc;</div><div class="line"><a name="l01787"></a><span class="lineno"> 1787</span>  <span class="keywordtype">size_t</span> mx, pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01788"></a><span class="lineno"> 1788</span> </div><div class="line"><a name="l01789"></a><span class="lineno"> 1789</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &vLoc)==0) {</div><div class="line"><a name="l01790"></a><span class="lineno"> 1790</span>  iLoc = 0;</div><div class="line"><a name="l01791"></a><span class="lineno"> 1791</span>  }</div><div class="line"><a name="l01792"></a><span class="lineno"> 1792</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01793"></a><span class="lineno"> 1793</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(vLoc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l01794"></a><span class="lineno"> 1794</span>  iLoc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vLoc);</div><div class="line"><a name="l01795"></a><span class="lineno"> 1795</span>  }</div><div class="line"><a name="l01796"></a><span class="lineno"> 1796</span> </div><div class="line"><a name="l01797"></a><span class="lineno"> 1797</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01798"></a><span class="lineno"> 1798</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01799"></a><span class="lineno"> 1799</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01800"></a><span class="lineno"> 1800</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01801"></a><span class="lineno"> 1801</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(c, a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>, iLoc);</div><div class="line"><a name="l01802"></a><span class="lineno"> 1802</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l01803"></a><span class="lineno"> 1803</span>  VPrint(stderr, <span class="stringliteral">"floor: c=%\n"</span>, c);</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>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> == 0) {</div><div class="line"><a name="l01806"></a><span class="lineno"> 1806</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c));</div><div class="line"><a name="l01807"></a><span class="lineno"> 1807</span>  }</div><div class="line"><a name="l01808"></a><span class="lineno"> 1808</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01809"></a><span class="lineno"> 1809</span> }</div><div class="line"><a name="l01810"></a><span class="lineno"> 1810</span> </div><div class="line"><a name="l01811"></a><span class="lineno"> 1811</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01812"></a><span class="lineno"> 1812</span> <span class="comment"> * ceil(n)</span></div><div class="line"><a name="l01813"></a><span class="lineno"> 1813</span> <span class="comment"> *</span></div><div class="line"><a name="l01814"></a><span class="lineno"> 1814</span> <span class="comment"> * Return the smallest integer greater than or equal to the value, as a BigDecimal.</span></div><div class="line"><a name="l01815"></a><span class="lineno"> 1815</span> <span class="comment"> *</span></div><div class="line"><a name="l01816"></a><span class="lineno"> 1816</span> <span class="comment"> * BigDecimal('3.14159').ceil #=> 4</span></div><div class="line"><a name="l01817"></a><span class="lineno"> 1817</span> <span class="comment"> * BigDecimal('-9.1').ceil #=> -9</span></div><div class="line"><a name="l01818"></a><span class="lineno"> 1818</span> <span class="comment"> *</span></div><div class="line"><a name="l01819"></a><span class="lineno"> 1819</span> <span class="comment"> * If n is specified and positive, the fractional part of the result has no</span></div><div class="line"><a name="l01820"></a><span class="lineno"> 1820</span> <span class="comment"> * more than that many digits.</span></div><div class="line"><a name="l01821"></a><span class="lineno"> 1821</span> <span class="comment"> *</span></div><div class="line"><a name="l01822"></a><span class="lineno"> 1822</span> <span class="comment"> * If n is specified and negative, at least that</span></div><div class="line"><a name="l01823"></a><span class="lineno"> 1823</span> <span class="comment"> * many digits to the left of the decimal point will be 0 in the result.</span></div><div class="line"><a name="l01824"></a><span class="lineno"> 1824</span> <span class="comment"> *</span></div><div class="line"><a name="l01825"></a><span class="lineno"> 1825</span> <span class="comment"> * BigDecimal('3.14159').ceil(3) #=> 3.142</span></div><div class="line"><a name="l01826"></a><span class="lineno"> 1826</span> <span class="comment"> * BigDecimal('13345.234').ceil(-2) #=> 13400.0</span></div><div class="line"><a name="l01827"></a><span class="lineno"> 1827</span> <span class="comment"> */</span></div><div class="line"><a name="l01828"></a><span class="lineno"> 1828</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01829"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a5b2fbf236ac0dbbaee2c84fc3ac3fa6f"> 1829</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a5b2fbf236ac0dbbaee2c84fc3ac3fa6f">BigDecimal_ceil</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01830"></a><span class="lineno"> 1830</span> {</div><div class="line"><a name="l01831"></a><span class="lineno"> 1831</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01832"></a><span class="lineno"> 1832</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, *a;</div><div class="line"><a name="l01833"></a><span class="lineno"> 1833</span>  <span class="keywordtype">int</span> iLoc;</div><div class="line"><a name="l01834"></a><span class="lineno"> 1834</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vLoc;</div><div class="line"><a name="l01835"></a><span class="lineno"> 1835</span>  <span class="keywordtype">size_t</span> mx, pl = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(0);</div><div class="line"><a name="l01836"></a><span class="lineno"> 1836</span> </div><div class="line"><a name="l01837"></a><span class="lineno"> 1837</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &vLoc) == 0) {</div><div class="line"><a name="l01838"></a><span class="lineno"> 1838</span>  iLoc = 0;</div><div class="line"><a name="l01839"></a><span class="lineno"> 1839</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01840"></a><span class="lineno"> 1840</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(vLoc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l01841"></a><span class="lineno"> 1841</span>  iLoc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vLoc);</div><div class="line"><a name="l01842"></a><span class="lineno"> 1842</span>  }</div><div class="line"><a name="l01843"></a><span class="lineno"> 1843</span> </div><div class="line"><a name="l01844"></a><span class="lineno"> 1844</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(a, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01845"></a><span class="lineno"> 1845</span>  mx = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l01846"></a><span class="lineno"> 1846</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mx, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l01847"></a><span class="lineno"> 1847</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(pl);</div><div class="line"><a name="l01848"></a><span class="lineno"> 1848</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(c, a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a>, iLoc);</div><div class="line"><a name="l01849"></a><span class="lineno"> 1849</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> == 0) {</div><div class="line"><a name="l01850"></a><span class="lineno"> 1850</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c));</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="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(c);</div><div class="line"><a name="l01853"></a><span class="lineno"> 1853</span> }</div><div class="line"><a name="l01854"></a><span class="lineno"> 1854</span> </div><div class="line"><a name="l01855"></a><span class="lineno"> 1855</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l01856"></a><span class="lineno"> 1856</span> <span class="comment"> * to_s(s)</span></div><div class="line"><a name="l01857"></a><span class="lineno"> 1857</span> <span class="comment"> *</span></div><div class="line"><a name="l01858"></a><span class="lineno"> 1858</span> <span class="comment"> * Converts the value to a string.</span></div><div class="line"><a name="l01859"></a><span class="lineno"> 1859</span> <span class="comment"> *</span></div><div class="line"><a name="l01860"></a><span class="lineno"> 1860</span> <span class="comment"> * The default format looks like 0.xxxxEnn.</span></div><div class="line"><a name="l01861"></a><span class="lineno"> 1861</span> <span class="comment"> *</span></div><div class="line"><a name="l01862"></a><span class="lineno"> 1862</span> <span class="comment"> * The optional parameter s consists of either an integer; or an optional '+'</span></div><div class="line"><a name="l01863"></a><span class="lineno"> 1863</span> <span class="comment"> * or ' ', followed by an optional number, followed by an optional 'E' or 'F'.</span></div><div class="line"><a name="l01864"></a><span class="lineno"> 1864</span> <span class="comment"> *</span></div><div class="line"><a name="l01865"></a><span class="lineno"> 1865</span> <span class="comment"> * If there is a '+' at the start of s, positive values are returned with</span></div><div class="line"><a name="l01866"></a><span class="lineno"> 1866</span> <span class="comment"> * a leading '+'.</span></div><div class="line"><a name="l01867"></a><span class="lineno"> 1867</span> <span class="comment"> *</span></div><div class="line"><a name="l01868"></a><span class="lineno"> 1868</span> <span class="comment"> * A space at the start of s returns positive values with a leading space.</span></div><div class="line"><a name="l01869"></a><span class="lineno"> 1869</span> <span class="comment"> *</span></div><div class="line"><a name="l01870"></a><span class="lineno"> 1870</span> <span class="comment"> * If s contains a number, a space is inserted after each group of that many</span></div><div class="line"><a name="l01871"></a><span class="lineno"> 1871</span> <span class="comment"> * fractional digits.</span></div><div class="line"><a name="l01872"></a><span class="lineno"> 1872</span> <span class="comment"> *</span></div><div class="line"><a name="l01873"></a><span class="lineno"> 1873</span> <span class="comment"> * If s ends with an 'E', engineering notation (0.xxxxEnn) is used.</span></div><div class="line"><a name="l01874"></a><span class="lineno"> 1874</span> <span class="comment"> *</span></div><div class="line"><a name="l01875"></a><span class="lineno"> 1875</span> <span class="comment"> * If s ends with an 'F', conventional floating point notation is used.</span></div><div class="line"><a name="l01876"></a><span class="lineno"> 1876</span> <span class="comment"> *</span></div><div class="line"><a name="l01877"></a><span class="lineno"> 1877</span> <span class="comment"> * Examples:</span></div><div class="line"><a name="l01878"></a><span class="lineno"> 1878</span> <span class="comment"> *</span></div><div class="line"><a name="l01879"></a><span class="lineno"> 1879</span> <span class="comment"> * BigDecimal.new('-123.45678901234567890').to_s('5F')</span></div><div class="line"><a name="l01880"></a><span class="lineno"> 1880</span> <span class="comment"> * #=> '-123.45678 90123 45678 9'</span></div><div class="line"><a name="l01881"></a><span class="lineno"> 1881</span> <span class="comment"> *</span></div><div class="line"><a name="l01882"></a><span class="lineno"> 1882</span> <span class="comment"> * BigDecimal.new('123.45678901234567890').to_s('+8F')</span></div><div class="line"><a name="l01883"></a><span class="lineno"> 1883</span> <span class="comment"> * #=> '+123.45678901 23456789'</span></div><div class="line"><a name="l01884"></a><span class="lineno"> 1884</span> <span class="comment"> *</span></div><div class="line"><a name="l01885"></a><span class="lineno"> 1885</span> <span class="comment"> * BigDecimal.new('123.45678901234567890').to_s(' F')</span></div><div class="line"><a name="l01886"></a><span class="lineno"> 1886</span> <span class="comment"> * #=> ' 123.4567890123456789'</span></div><div class="line"><a name="l01887"></a><span class="lineno"> 1887</span> <span class="comment"> */</span></div><div class="line"><a name="l01888"></a><span class="lineno"> 1888</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01889"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a52756fbeab6f1a1e646b6fff19d8b680"> 1889</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a52756fbeab6f1a1e646b6fff19d8b680">BigDecimal_to_s</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01890"></a><span class="lineno"> 1890</span> {</div><div class="line"><a name="l01891"></a><span class="lineno"> 1891</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>  <span class="keywordtype">int</span> fmt = 0; <span class="comment">/* 0:E format */</span></div><div class="line"><a name="l01893"></a><span class="lineno"> 1893</span>  <span class="keywordtype">int</span> fPlus = 0; <span class="comment">/* =0:default,=1: set ' ' before digits ,set '+' before digits. */</span></div><div class="line"><a name="l01894"></a><span class="lineno"> 1894</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *vp;</div><div class="line"><a name="l01895"></a><span class="lineno"> 1895</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>  <span class="keywordtype">char</span> *psz;</div><div class="line"><a name="l01897"></a><span class="lineno"> 1897</span>  <span class="keywordtype">char</span> ch;</div><div class="line"><a name="l01898"></a><span class="lineno"> 1898</span>  <span class="keywordtype">size_t</span> nc, mc = 0;</div><div class="line"><a name="l01899"></a><span class="lineno"> 1899</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>;</div><div class="line"><a name="l01900"></a><span class="lineno"> 1900</span> </div><div class="line"><a name="l01901"></a><span class="lineno"> 1901</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(vp, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01902"></a><span class="lineno"> 1902</span> </div><div class="line"><a name="l01903"></a><span class="lineno"> 1903</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>) == 1) {</div><div class="line"><a name="l01904"></a><span class="lineno"> 1904</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>)) {</div><div class="line"><a name="l01905"></a><span class="lineno"> 1905</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0381640e2905c1b3e104194f91697ca4">SafeStringValue</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l01906"></a><span class="lineno"> 1906</span>  psz = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l01907"></a><span class="lineno"> 1907</span>  <span class="keywordflow">if</span> (*psz == <span class="charliteral">' '</span>) {</div><div class="line"><a name="l01908"></a><span class="lineno"> 1908</span>  fPlus = 1;</div><div class="line"><a name="l01909"></a><span class="lineno"> 1909</span>  psz++;</div><div class="line"><a name="l01910"></a><span class="lineno"> 1910</span>  }</div><div class="line"><a name="l01911"></a><span class="lineno"> 1911</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (*psz == <span class="charliteral">'+'</span>) {</div><div class="line"><a name="l01912"></a><span class="lineno"> 1912</span>  fPlus = 2;</div><div class="line"><a name="l01913"></a><span class="lineno"> 1913</span>  psz++;</div><div class="line"><a name="l01914"></a><span class="lineno"> 1914</span>  }</div><div class="line"><a name="l01915"></a><span class="lineno"> 1915</span>  <span class="keywordflow">while</span> ((ch = *psz++) != 0) {</div><div class="line"><a name="l01916"></a><span class="lineno"> 1916</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(ch)) {</div><div class="line"><a name="l01917"></a><span class="lineno"> 1917</span>  <span class="keywordflow">continue</span>;</div><div class="line"><a name="l01918"></a><span class="lineno"> 1918</span>  }</div><div class="line"><a name="l01919"></a><span class="lineno"> 1919</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(ch)) {</div><div class="line"><a name="l01920"></a><span class="lineno"> 1920</span>  <span class="keywordflow">if</span> (ch == <span class="charliteral">'F'</span> || ch == <span class="charliteral">'f'</span>) {</div><div class="line"><a name="l01921"></a><span class="lineno"> 1921</span>  fmt = 1; <span class="comment">/* F format */</span></div><div class="line"><a name="l01922"></a><span class="lineno"> 1922</span>  }</div><div class="line"><a name="l01923"></a><span class="lineno"> 1923</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01924"></a><span class="lineno"> 1924</span>  }</div><div class="line"><a name="l01925"></a><span class="lineno"> 1925</span>  mc = mc*10 + ch - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l01926"></a><span class="lineno"> 1926</span>  }</div><div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>  }</div><div class="line"><a name="l01928"></a><span class="lineno"> 1928</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>  mc = (size_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l01930"></a><span class="lineno"> 1930</span>  }</div><div class="line"><a name="l01931"></a><span class="lineno"> 1931</span>  }</div><div class="line"><a name="l01932"></a><span class="lineno"> 1932</span>  <span class="keywordflow">if</span> (fmt) {</div><div class="line"><a name="l01933"></a><span class="lineno"> 1933</span>  nc = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(vp, <span class="stringliteral">"F"</span>);</div><div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>  }</div><div class="line"><a name="l01935"></a><span class="lineno"> 1935</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01936"></a><span class="lineno"> 1936</span>  nc = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(vp, <span class="stringliteral">"E"</span>);</div><div class="line"><a name="l01937"></a><span class="lineno"> 1937</span>  }</div><div class="line"><a name="l01938"></a><span class="lineno"> 1938</span>  <span class="keywordflow">if</span> (mc > 0) {</div><div class="line"><a name="l01939"></a><span class="lineno"> 1939</span>  nc += (nc + mc - 1) / mc + 1;</div><div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>  }</div><div class="line"><a name="l01941"></a><span class="lineno"> 1941</span> </div><div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, nc);</div><div class="line"><a name="l01943"></a><span class="lineno"> 1943</span>  psz = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str);</div><div class="line"><a name="l01944"></a><span class="lineno"> 1944</span> </div><div class="line"><a name="l01945"></a><span class="lineno"> 1945</span>  <span class="keywordflow">if</span> (fmt) {</div><div class="line"><a name="l01946"></a><span class="lineno"> 1946</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#aea58d43c3de31eb0d21df5b2c55667a5">VpToFString</a>(vp, psz, mc, fPlus);</div><div class="line"><a name="l01947"></a><span class="lineno"> 1947</span>  }</div><div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l01949"></a><span class="lineno"> 1949</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a211c1231a80bd2b30ead108f0b6029a6">VpToString</a> (vp, psz, mc, fPlus);</div><div class="line"><a name="l01950"></a><span class="lineno"> 1950</span>  }</div><div class="line"><a name="l01951"></a><span class="lineno"> 1951</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(str, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz));</div><div class="line"><a name="l01952"></a><span class="lineno"> 1952</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l01953"></a><span class="lineno"> 1953</span> }</div><div class="line"><a name="l01954"></a><span class="lineno"> 1954</span> </div><div class="line"><a name="l01955"></a><span class="lineno"> 1955</span> <span class="comment">/* Splits a BigDecimal number into four parts, returned as an array of values.</span></div><div class="line"><a name="l01956"></a><span class="lineno"> 1956</span> <span class="comment"> *</span></div><div class="line"><a name="l01957"></a><span class="lineno"> 1957</span> <span class="comment"> * The first value represents the sign of the BigDecimal, and is -1 or 1, or 0</span></div><div class="line"><a name="l01958"></a><span class="lineno"> 1958</span> <span class="comment"> * if the BigDecimal is Not a Number.</span></div><div class="line"><a name="l01959"></a><span class="lineno"> 1959</span> <span class="comment"> *</span></div><div class="line"><a name="l01960"></a><span class="lineno"> 1960</span> <span class="comment"> * The second value is a string representing the significant digits of the</span></div><div class="line"><a name="l01961"></a><span class="lineno"> 1961</span> <span class="comment"> * BigDecimal, with no leading zeros.</span></div><div class="line"><a name="l01962"></a><span class="lineno"> 1962</span> <span class="comment"> *</span></div><div class="line"><a name="l01963"></a><span class="lineno"> 1963</span> <span class="comment"> * The third value is the base used for arithmetic (currently always 10) as an</span></div><div class="line"><a name="l01964"></a><span class="lineno"> 1964</span> <span class="comment"> * Integer.</span></div><div class="line"><a name="l01965"></a><span class="lineno"> 1965</span> <span class="comment"> *</span></div><div class="line"><a name="l01966"></a><span class="lineno"> 1966</span> <span class="comment"> * The fourth value is an Integer exponent.</span></div><div class="line"><a name="l01967"></a><span class="lineno"> 1967</span> <span class="comment"> *</span></div><div class="line"><a name="l01968"></a><span class="lineno"> 1968</span> <span class="comment"> * If the BigDecimal can be represented as 0.xxxxxx*10**n, then xxxxxx is the</span></div><div class="line"><a name="l01969"></a><span class="lineno"> 1969</span> <span class="comment"> * string of significant digits with no leading zeros, and n is the exponent.</span></div><div class="line"><a name="l01970"></a><span class="lineno"> 1970</span> <span class="comment"> *</span></div><div class="line"><a name="l01971"></a><span class="lineno"> 1971</span> <span class="comment"> * From these values, you can translate a BigDecimal to a float as follows:</span></div><div class="line"><a name="l01972"></a><span class="lineno"> 1972</span> <span class="comment"> *</span></div><div class="line"><a name="l01973"></a><span class="lineno"> 1973</span> <span class="comment"> * sign, significant_digits, base, exponent = a.split</span></div><div class="line"><a name="l01974"></a><span class="lineno"> 1974</span> <span class="comment"> * f = sign * "0.#{significant_digits}".to_f * (base ** exponent)</span></div><div class="line"><a name="l01975"></a><span class="lineno"> 1975</span> <span class="comment"> *</span></div><div class="line"><a name="l01976"></a><span class="lineno"> 1976</span> <span class="comment"> * (Note that the to_f method is provided as a more convenient way to translate</span></div><div class="line"><a name="l01977"></a><span class="lineno"> 1977</span> <span class="comment"> * a BigDecimal to a Float.)</span></div><div class="line"><a name="l01978"></a><span class="lineno"> 1978</span> <span class="comment"> */</span></div><div class="line"><a name="l01979"></a><span class="lineno"> 1979</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01980"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc"> 1980</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc">BigDecimal_split</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l01981"></a><span class="lineno"> 1981</span> {</div><div class="line"><a name="l01982"></a><span class="lineno"> 1982</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l01983"></a><span class="lineno"> 1983</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *vp;</div><div class="line"><a name="l01984"></a><span class="lineno"> 1984</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj,str;</div><div class="line"><a name="l01985"></a><span class="lineno"> 1985</span>  ssize_t e, s;</div><div class="line"><a name="l01986"></a><span class="lineno"> 1986</span>  <span class="keywordtype">char</span> *psz1;</div><div class="line"><a name="l01987"></a><span class="lineno"> 1987</span> </div><div class="line"><a name="l01988"></a><span class="lineno"> 1988</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(vp, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l01989"></a><span class="lineno"> 1989</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(vp, <span class="stringliteral">"E"</span>));</div><div class="line"><a name="l01990"></a><span class="lineno"> 1990</span>  psz1 = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str);</div><div class="line"><a name="l01991"></a><span class="lineno"> 1991</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7d6a953aa9a638c5215f8de7af8988f8">VpSzMantissa</a>(vp, psz1);</div><div class="line"><a name="l01992"></a><span class="lineno"> 1992</span>  s = 1;</div><div class="line"><a name="l01993"></a><span class="lineno"> 1993</span>  <span class="keywordflow">if</span>(psz1[0] == <span class="charliteral">'-'</span>) {</div><div class="line"><a name="l01994"></a><span class="lineno"> 1994</span>  <span class="keywordtype">size_t</span> len = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz1 + 1);</div><div class="line"><a name="l01995"></a><span class="lineno"> 1995</span> </div><div class="line"><a name="l01996"></a><span class="lineno"> 1996</span>  <a class="code" href="../../d3/d90/missing_8h.html#a809a3e9326a0d3e5aa549b17085b057d">memmove</a>(psz1, psz1 + 1, len);</div><div class="line"><a name="l01997"></a><span class="lineno"> 1997</span>  psz1[len] = <span class="charliteral">'\0'</span>;</div><div class="line"><a name="l01998"></a><span class="lineno"> 1998</span>  s = -1;</div><div class="line"><a name="l01999"></a><span class="lineno"> 1999</span>  }</div><div class="line"><a name="l02000"></a><span class="lineno"> 2000</span>  <span class="keywordflow">if</span> (psz1[0] == <span class="charliteral">'N'</span>) s = 0; <span class="comment">/* NaN */</span></div><div class="line"><a name="l02001"></a><span class="lineno"> 2001</span>  e = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(vp);</div><div class="line"><a name="l02002"></a><span class="lineno"> 2002</span>  obj = <a class="code" href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a>(4);</div><div class="line"><a name="l02003"></a><span class="lineno"> 2003</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(obj, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(s));</div><div class="line"><a name="l02004"></a><span class="lineno"> 2004</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(obj, str);</div><div class="line"><a name="l02005"></a><span class="lineno"> 2005</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(str, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz1));</div><div class="line"><a name="l02006"></a><span class="lineno"> 2006</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(obj, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(10));</div><div class="line"><a name="l02007"></a><span class="lineno"> 2007</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(obj, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(e));</div><div class="line"><a name="l02008"></a><span class="lineno"> 2008</span>  <span class="keywordflow">return</span> obj;</div><div class="line"><a name="l02009"></a><span class="lineno"> 2009</span> }</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="comment">/* Returns the exponent of the BigDecimal number, as an Integer.</span></div><div class="line"><a name="l02012"></a><span class="lineno"> 2012</span> <span class="comment"> *</span></div><div class="line"><a name="l02013"></a><span class="lineno"> 2013</span> <span class="comment"> * If the number can be represented as 0.xxxxxx*10**n where xxxxxx is a string</span></div><div class="line"><a name="l02014"></a><span class="lineno"> 2014</span> <span class="comment"> * of digits with no leading zeros, then n is the exponent.</span></div><div class="line"><a name="l02015"></a><span class="lineno"> 2015</span> <span class="comment"> */</span></div><div class="line"><a name="l02016"></a><span class="lineno"> 2016</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02017"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ad7eddd4134da50fae112846346e4556b"> 2017</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad7eddd4134da50fae112846346e4556b">BigDecimal_exponent</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02018"></a><span class="lineno"> 2018</span> {</div><div class="line"><a name="l02019"></a><span class="lineno"> 2019</span>  ssize_t e = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l02020"></a><span class="lineno"> 2020</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(e);</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> </div><div class="line"><a name="l02023"></a><span class="lineno"> 2023</span> <span class="comment">/* Returns debugging information about the value as a string of comma-separated</span></div><div class="line"><a name="l02024"></a><span class="lineno"> 2024</span> <span class="comment"> * values in angle brackets with a leading #:</span></div><div class="line"><a name="l02025"></a><span class="lineno"> 2025</span> <span class="comment"> *</span></div><div class="line"><a name="l02026"></a><span class="lineno"> 2026</span> <span class="comment"> * BigDecimal.new("1234.5678").inspect -></span></div><div class="line"><a name="l02027"></a><span class="lineno"> 2027</span> <span class="comment"> * "#<BigDecimal:b7ea1130,'0.12345678E4',8(12)>"</span></div><div class="line"><a name="l02028"></a><span class="lineno"> 2028</span> <span class="comment"> *</span></div><div class="line"><a name="l02029"></a><span class="lineno"> 2029</span> <span class="comment"> * The first part is the address, the second is the value as a string, and</span></div><div class="line"><a name="l02030"></a><span class="lineno"> 2030</span> <span class="comment"> * the final part ss(mm) is the current number of significant digits and the</span></div><div class="line"><a name="l02031"></a><span class="lineno"> 2031</span> <span class="comment"> * maximum number of significant digits, respectively.</span></div><div class="line"><a name="l02032"></a><span class="lineno"> 2032</span> <span class="comment"> */</span></div><div class="line"><a name="l02033"></a><span class="lineno"> 2033</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02034"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a92b8fe4240f0322f58b8b1b73e33fb6a"> 2034</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a92b8fe4240f0322f58b8b1b73e33fb6a">BigDecimal_inspect</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02035"></a><span class="lineno"> 2035</span> {</div><div class="line"><a name="l02036"></a><span class="lineno"> 2036</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l02037"></a><span class="lineno"> 2037</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *vp;</div><div class="line"><a name="l02038"></a><span class="lineno"> 2038</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l02039"></a><span class="lineno"> 2039</span>  <span class="keywordtype">size_t</span> nc;</div><div class="line"><a name="l02040"></a><span class="lineno"> 2040</span>  <span class="keywordtype">char</span> *psz, *tmp;</div><div class="line"><a name="l02041"></a><span class="lineno"> 2041</span> </div><div class="line"><a name="l02042"></a><span class="lineno"> 2042</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(vp, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l02043"></a><span class="lineno"> 2043</span>  nc = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(vp, <span class="stringliteral">"E"</span>);</div><div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>  nc += (nc + 9) / 10;</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>  obj = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, nc+256);</div><div class="line"><a name="l02047"></a><span class="lineno"> 2047</span>  psz = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(obj);</div><div class="line"><a name="l02048"></a><span class="lineno"> 2048</span>  sprintf(psz, <span class="stringliteral">"#<BigDecimal:%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa1bf33f94a5de592de48c16fcfe86db2">PRIxVALUE</a><span class="stringliteral">",'"</span>, <span class="keyword">self</span>);</div><div class="line"><a name="l02049"></a><span class="lineno"> 2049</span>  tmp = psz + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz);</div><div class="line"><a name="l02050"></a><span class="lineno"> 2050</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a211c1231a80bd2b30ead108f0b6029a6">VpToString</a>(vp, tmp, 10, 0);</div><div class="line"><a name="l02051"></a><span class="lineno"> 2051</span>  tmp += <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(tmp);</div><div class="line"><a name="l02052"></a><span class="lineno"> 2052</span>  sprintf(tmp, <span class="stringliteral">"',%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">"(%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">")>"</span>, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a2f2ca8f714fe9aa28d6e8720c761c5b9">VpPrec</a>(vp)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>(), <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1018c17daa626eb4946c20bbd6de2e3d">VpMaxPrec</a>(vp)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>());</div><div class="line"><a name="l02053"></a><span class="lineno"> 2053</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(obj, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz));</div><div class="line"><a name="l02054"></a><span class="lineno"> 2054</span>  <span class="keywordflow">return</span> obj;</div><div class="line"><a name="l02055"></a><span class="lineno"> 2055</span> }</div><div class="line"><a name="l02056"></a><span class="lineno"> 2056</span> </div><div class="line"><a name="l02057"></a><span class="lineno"> 2057</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a889731484a3e17594f791993d5a0a41e">BigMath_s_exp</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>);</div><div class="line"><a name="l02058"></a><span class="lineno"> 2058</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2b905921255a1053b11290702e4b035a">BigMath_s_log</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>);</div><div class="line"><a name="l02059"></a><span class="lineno"> 2059</span> </div><div class="line"><a name="l02060"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a1a4b9912b0bc65738fd2df90414f9c1a"> 2060</a></span> <span class="preprocessor">#define BigMath_exp(x, n) BigMath_s_exp(rb_mBigMath, (x), (n))</span></div><div class="line"><a name="l02061"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ad03e4f40f4cfde2d5173e64e0dd8684d"> 2061</a></span> <span class="preprocessor">#define BigMath_log(x, n) BigMath_s_log(rb_mBigMath, (x), (n))</span></div><div class="line"><a name="l02062"></a><span class="lineno"> 2062</span> </div><div class="line"><a name="l02063"></a><span class="lineno"> 2063</span> <span class="keyword">inline</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02064"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc"> 2064</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc">is_integer</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x)</div><div class="line"><a name="l02065"></a><span class="lineno"> 2065</span> {</div><div class="line"><a name="l02066"></a><span class="lineno"> 2066</span>  <span class="keywordflow">return</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>) || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>));</div><div class="line"><a name="l02067"></a><span class="lineno"> 2067</span> }</div><div class="line"><a name="l02068"></a><span class="lineno"> 2068</span> </div><div class="line"><a name="l02069"></a><span class="lineno"> 2069</span> <span class="keyword">inline</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02070"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a43efbda3561d65882e66b786f6244888"> 2070</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a43efbda3561d65882e66b786f6244888">is_negative</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x)</div><div class="line"><a name="l02071"></a><span class="lineno"> 2071</span> {</div><div class="line"><a name="l02072"></a><span class="lineno"> 2072</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#acf2fcf97dcf9c7c35452730eb3e2aeb2">FIXNUM_P</a>(x)) {</div><div class="line"><a name="l02073"></a><span class="lineno"> 2073</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(x) < 0;</div><div class="line"><a name="l02074"></a><span class="lineno"> 2074</span>  }</div><div class="line"><a name="l02075"></a><span class="lineno"> 2075</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>)) {</div><div class="line"><a name="l02076"></a><span class="lineno"> 2076</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#af7ad03fdaa27fc55ae639d1da22758ad">RBIGNUM_NEGATIVE_P</a>(x);</div><div class="line"><a name="l02077"></a><span class="lineno"> 2077</span>  }</div><div class="line"><a name="l02078"></a><span class="lineno"> 2078</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>)) {</div><div class="line"><a name="l02079"></a><span class="lineno"> 2079</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa7311e0d10f373b0bb50c41522dc3981">RFLOAT_VALUE</a>(x) < 0.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>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(x, <span class="charliteral">'<'</span>, 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0)));</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> </div><div class="line"><a name="l02084"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac25039bb994269327db8790acb58f570"> 2084</a></span> <span class="preprocessor">#define is_positive(x) (!is_negative(x))</span></div><div class="line"><a name="l02085"></a><span class="lineno"> 2085</span> </div><div class="line"><a name="l02086"></a><span class="lineno"> 2086</span> <span class="keyword">inline</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02087"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a85a84ce53e8d757a725709841505a302"> 2087</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a85a84ce53e8d757a725709841505a302">is_zero</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x)</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> num;</div><div class="line"><a name="l02090"></a><span class="lineno"> 2090</span> </div><div class="line"><a name="l02091"></a><span class="lineno"> 2091</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(x)) {</div><div class="line"><a name="l02092"></a><span class="lineno"> 2092</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02093"></a><span class="lineno"> 2093</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(x) == 0;</div><div class="line"><a name="l02094"></a><span class="lineno"> 2094</span> </div><div class="line"><a name="l02095"></a><span class="lineno"> 2095</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02096"></a><span class="lineno"> 2096</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l02097"></a><span class="lineno"> 2097</span> </div><div class="line"><a name="l02098"></a><span class="lineno"> 2098</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l02099"></a><span class="lineno"> 2099</span>  num = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(x)->num;</div><div class="line"><a name="l02100"></a><span class="lineno"> 2100</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#acf2fcf97dcf9c7c35452730eb3e2aeb2">FIXNUM_P</a>(num) && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(num) == 0;</div><div class="line"><a name="l02101"></a><span class="lineno"> 2101</span> </div><div class="line"><a name="l02102"></a><span class="lineno"> 2102</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02103"></a><span class="lineno"> 2103</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02104"></a><span class="lineno"> 2104</span>  }</div><div class="line"><a name="l02105"></a><span class="lineno"> 2105</span> </div><div class="line"><a name="l02106"></a><span class="lineno"> 2106</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(x, <a class="code" href="../../de/d07/bigdecimal_8c.html#a304cbbab7bd5573ab33773f6506d3345">id_eq</a>, 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0)));</div><div class="line"><a name="l02107"></a><span class="lineno"> 2107</span> }</div><div class="line"><a name="l02108"></a><span class="lineno"> 2108</span> </div><div class="line"><a name="l02109"></a><span class="lineno"> 2109</span> <span class="keyword">inline</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02110"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7b27e69a4dc2f42c91e306b98cb2b148"> 2110</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b27e69a4dc2f42c91e306b98cb2b148">is_one</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x)</div><div class="line"><a name="l02111"></a><span class="lineno"> 2111</span> {</div><div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> num, den;</div><div class="line"><a name="l02113"></a><span class="lineno"> 2113</span> </div><div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(x)) {</div><div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(x) == 1;</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">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</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">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>  num = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(x)->num;</div><div class="line"><a name="l02123"></a><span class="lineno"> 2123</span>  den = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(x)->den;</div><div class="line"><a name="l02124"></a><span class="lineno"> 2124</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#acf2fcf97dcf9c7c35452730eb3e2aeb2">FIXNUM_P</a>(den) && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(den) == 1 &&</div><div class="line"><a name="l02125"></a><span class="lineno"> 2125</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#acf2fcf97dcf9c7c35452730eb3e2aeb2">FIXNUM_P</a>(num) && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(num) == 1;</div><div class="line"><a name="l02126"></a><span class="lineno"> 2126</span> </div><div class="line"><a name="l02127"></a><span class="lineno"> 2127</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02128"></a><span class="lineno"> 2128</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02129"></a><span class="lineno"> 2129</span>  }</div><div class="line"><a name="l02130"></a><span class="lineno"> 2130</span> </div><div class="line"><a name="l02131"></a><span class="lineno"> 2131</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(x, <a class="code" href="../../de/d07/bigdecimal_8c.html#a304cbbab7bd5573ab33773f6506d3345">id_eq</a>, 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(1)));</div><div class="line"><a name="l02132"></a><span class="lineno"> 2132</span> }</div><div class="line"><a name="l02133"></a><span class="lineno"> 2133</span> </div><div class="line"><a name="l02134"></a><span class="lineno"> 2134</span> <span class="keyword">inline</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02135"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182"> 2135</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x)</div><div class="line"><a name="l02136"></a><span class="lineno"> 2136</span> {</div><div class="line"><a name="l02137"></a><span class="lineno"> 2137</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(x)) {</div><div class="line"><a name="l02138"></a><span class="lineno"> 2138</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02139"></a><span class="lineno"> 2139</span>  <span class="keywordflow">return</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(x) % 2) == 0;</div><div class="line"><a name="l02140"></a><span class="lineno"> 2140</span> </div><div class="line"><a name="l02141"></a><span class="lineno"> 2141</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02142"></a><span class="lineno"> 2142</span>  {</div><div class="line"><a name="l02143"></a><span class="lineno"> 2143</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> l;</div><div class="line"><a name="l02144"></a><span class="lineno"> 2144</span>  <a class="code" href="../../d1/dcc/bignum_8c.html#ad3ac9992e7f6cc6ce07ea0ee59302aa8">rb_big_pack</a>(x, &l, 1);</div><div class="line"><a name="l02145"></a><span class="lineno"> 2145</span>  <span class="keywordflow">return</span> l % 2 == 0;</div><div class="line"><a name="l02146"></a><span class="lineno"> 2146</span>  }</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>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02149"></a><span class="lineno"> 2149</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02150"></a><span class="lineno"> 2150</span>  }</div><div class="line"><a name="l02151"></a><span class="lineno"> 2151</span> </div><div class="line"><a name="l02152"></a><span class="lineno"> 2152</span>  <span class="keywordflow">return</span> 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> </div><div class="line"><a name="l02155"></a><span class="lineno"> 2155</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02156"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a0fad6ba9f8ae3cc3f3896404610576d1"> 2156</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fad6ba9f8ae3cc3f3896404610576d1">rmpd_power_by_big_decimal</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> <span class="keyword">const</span>* x, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> <span class="keyword">const</span>* exp, ssize_t <span class="keyword">const</span> n)</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> log_x, multiplied, y;</div><div class="line"><a name="l02159"></a><span class="lineno"> 2159</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj = exp-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l02160"></a><span class="lineno"> 2160</span> </div><div class="line"><a name="l02161"></a><span class="lineno"> 2161</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(exp)) {</div><div class="line"><a name="l02162"></a><span class="lineno"> 2162</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"1"</span>));</div><div class="line"><a name="l02163"></a><span class="lineno"> 2163</span>  }</div><div class="line"><a name="l02164"></a><span class="lineno"> 2164</span> </div><div class="line"><a name="l02165"></a><span class="lineno"> 2165</span>  log_x = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad03e4f40f4cfde2d5173e64e0dd8684d">BigMath_log</a>(x-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(n+1));</div><div class="line"><a name="l02166"></a><span class="lineno"> 2166</span>  multiplied = <a class="code" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a>(exp-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>, log_x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(n+1));</div><div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#a1a4b9912b0bc65738fd2df90414f9c1a">BigMath_exp</a>(multiplied, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(n));</div><div class="line"><a name="l02168"></a><span class="lineno"> 2168</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(obj);</div><div class="line"><a name="l02169"></a><span class="lineno"> 2169</span> </div><div class="line"><a name="l02170"></a><span class="lineno"> 2170</span>  <span class="keywordflow">return</span> y;</div><div class="line"><a name="l02171"></a><span class="lineno"> 2171</span> }</div><div class="line"><a name="l02172"></a><span class="lineno"> 2172</span> </div><div class="line"><a name="l02173"></a><span class="lineno"> 2173</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l02174"></a><span class="lineno"> 2174</span> <span class="comment"> * power(n)</span></div><div class="line"><a name="l02175"></a><span class="lineno"> 2175</span> <span class="comment"> * power(n, prec)</span></div><div class="line"><a name="l02176"></a><span class="lineno"> 2176</span> <span class="comment"> *</span></div><div class="line"><a name="l02177"></a><span class="lineno"> 2177</span> <span class="comment"> * Returns the value raised to the power of n.</span></div><div class="line"><a name="l02178"></a><span class="lineno"> 2178</span> <span class="comment"> *</span></div><div class="line"><a name="l02179"></a><span class="lineno"> 2179</span> <span class="comment"> * Note that n must be an Integer.</span></div><div class="line"><a name="l02180"></a><span class="lineno"> 2180</span> <span class="comment"> *</span></div><div class="line"><a name="l02181"></a><span class="lineno"> 2181</span> <span class="comment"> * Also available as the operator **</span></div><div class="line"><a name="l02182"></a><span class="lineno"> 2182</span> <span class="comment"> */</span></div><div class="line"><a name="l02183"></a><span class="lineno"> 2183</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02184"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a5cea7f6f29d3c527b43b035e4a404611"> 2184</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a5cea7f6f29d3c527b43b035e4a404611">BigDecimal_power</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02185"></a><span class="lineno"> 2185</span> {</div><div class="line"><a name="l02186"></a><span class="lineno"> 2186</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(5);</div><div class="line"><a name="l02187"></a><span class="lineno"> 2187</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vexp, prec;</div><div class="line"><a name="l02188"></a><span class="lineno"> 2188</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* exp = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l02189"></a><span class="lineno"> 2189</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x, *y;</div><div class="line"><a name="l02190"></a><span class="lineno"> 2190</span>  ssize_t mp, ma, n;</div><div class="line"><a name="l02191"></a><span class="lineno"> 2191</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> int_exp;</div><div class="line"><a name="l02192"></a><span class="lineno"> 2192</span>  <span class="keywordtype">double</span> d;</div><div class="line"><a name="l02193"></a><span class="lineno"> 2193</span> </div><div class="line"><a name="l02194"></a><span class="lineno"> 2194</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &vexp, &prec);</div><div class="line"><a name="l02195"></a><span class="lineno"> 2195</span> </div><div class="line"><a name="l02196"></a><span class="lineno"> 2196</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(x, <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1));</div><div class="line"><a name="l02197"></a><span class="lineno"> 2197</span>  n = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(prec) ? (ssize_t)(x-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>()) : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5c55d652f4496a625bddf94264d277d0">NUM2SSIZET</a>(prec);</div><div class="line"><a name="l02198"></a><span class="lineno"> 2198</span> </div><div class="line"><a name="l02199"></a><span class="lineno"> 2199</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(x)) {</div><div class="line"><a name="l02200"></a><span class="lineno"> 2200</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0#"</span>);</div><div class="line"><a name="l02201"></a><span class="lineno"> 2201</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(y-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>);</div><div class="line"><a name="l02202"></a><span class="lineno"> 2202</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(y);</div><div class="line"><a name="l02203"></a><span class="lineno"> 2203</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(y);</div><div class="line"><a name="l02204"></a><span class="lineno"> 2204</span>  }</div><div class="line"><a name="l02205"></a><span class="lineno"> 2205</span> </div><div class="line"><a name="l02206"></a><span class="lineno"> 2206</span>  retry:</div><div class="line"><a name="l02207"></a><span class="lineno"> 2207</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(vexp)) {</div><div class="line"><a name="l02208"></a><span class="lineno"> 2208</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02209"></a><span class="lineno"> 2209</span>  <span class="keywordflow">break</span>;</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="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02212"></a><span class="lineno"> 2212</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02213"></a><span class="lineno"> 2213</span> </div><div class="line"><a name="l02214"></a><span class="lineno"> 2214</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div><div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>  d = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa7311e0d10f373b0bb50c41522dc3981">RFLOAT_VALUE</a>(vexp);</div><div class="line"><a name="l02216"></a><span class="lineno"> 2216</span>  <span class="keywordflow">if</span> (d == <a class="code" href="../../d3/d90/missing_8h.html#a8a34ea96a46e86d80f06052188b4433f">round</a>(d)) {</div><div class="line"><a name="l02217"></a><span class="lineno"> 2217</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac493d4e1ca36d6a84215aad4e6ea1b4d">FIXABLE</a>(d)) {</div><div class="line"><a name="l02218"></a><span class="lineno"> 2218</span>  vexp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2ead2f64c81efed352e79e89f29b8fc8">LONG2FIX</a>((<span class="keywordtype">long</span>)d);</div><div class="line"><a name="l02219"></a><span class="lineno"> 2219</span>  }</div><div class="line"><a name="l02220"></a><span class="lineno"> 2220</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02221"></a><span class="lineno"> 2221</span>  vexp = <a class="code" href="../../d1/dcc/bignum_8c.html#a7cf59f449a9f516aa7d781db3357dd94">rb_dbl2big</a>(d);</div><div class="line"><a name="l02222"></a><span class="lineno"> 2222</span>  }</div><div class="line"><a name="l02223"></a><span class="lineno"> 2223</span>  <span class="keywordflow">goto</span> retry;</div><div class="line"><a name="l02224"></a><span class="lineno"> 2224</span>  }</div><div class="line"><a name="l02225"></a><span class="lineno"> 2225</span>  exp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(vexp, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l02226"></a><span class="lineno"> 2226</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02227"></a><span class="lineno"> 2227</span> </div><div class="line"><a name="l02228"></a><span class="lineno"> 2228</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a85a84ce53e8d757a725709841505a302">is_zero</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(vexp)->num)) {</div><div class="line"><a name="l02230"></a><span class="lineno"> 2230</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#ac25039bb994269327db8790acb58f570">is_positive</a>(vexp)) {</div><div class="line"><a name="l02231"></a><span class="lineno"> 2231</span>  vexp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0);</div><div class="line"><a name="l02232"></a><span class="lineno"> 2232</span>  <span class="keywordflow">goto</span> retry;</div><div class="line"><a name="l02233"></a><span class="lineno"> 2233</span>  }</div><div class="line"><a name="l02234"></a><span class="lineno"> 2234</span>  }</div><div class="line"><a name="l02235"></a><span class="lineno"> 2235</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a7b27e69a4dc2f42c91e306b98cb2b148">is_one</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(vexp)->den)) {</div><div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>  vexp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a>(vexp)->num;</div><div class="line"><a name="l02237"></a><span class="lineno"> 2237</span>  <span class="keywordflow">goto</span> retry;</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>  exp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(vexp, n, 1);</div><div class="line"><a name="l02240"></a><span class="lineno"> 2240</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02241"></a><span class="lineno"> 2241</span> </div><div class="line"><a name="l02242"></a><span class="lineno"> 2242</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a>:</div><div class="line"><a name="l02243"></a><span class="lineno"> 2243</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(vexp)) {</div><div class="line"><a name="l02244"></a><span class="lineno"> 2244</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0);</div><div class="line"><a name="l02245"></a><span class="lineno"> 2245</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> rounded = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7d3b9883faa31ad8eb1e53e8c70bccf1">BigDecimal_round</a>(1, &<a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a>, vexp);</div><div class="line"><a name="l02246"></a><span class="lineno"> 2246</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62">BigDecimal_eq</a>(vexp, rounded))) {</div><div class="line"><a name="l02247"></a><span class="lineno"> 2247</span>  vexp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>(vexp);</div><div class="line"><a name="l02248"></a><span class="lineno"> 2248</span>  <span class="keywordflow">goto</span> retry;</div><div class="line"><a name="l02249"></a><span class="lineno"> 2249</span>  }</div><div class="line"><a name="l02250"></a><span class="lineno"> 2250</span>  exp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(vexp);</div><div class="line"><a name="l02251"></a><span class="lineno"> 2251</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02252"></a><span class="lineno"> 2252</span>  }</div><div class="line"><a name="l02253"></a><span class="lineno"> 2253</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l02254"></a><span class="lineno"> 2254</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02255"></a><span class="lineno"> 2255</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a565ed9d70f4089e1b4a36e9b3381b8c6">rb_eTypeError</a>,</div><div class="line"><a name="l02256"></a><span class="lineno"> 2256</span>  <span class="stringliteral">"wrong argument type %s (expected scalar Numeric)"</span>,</div><div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9b4f42ada717bfbe7a78830639476aed">rb_obj_classname</a>(vexp));</div><div class="line"><a name="l02258"></a><span class="lineno"> 2258</span>  }</div><div class="line"><a name="l02259"></a><span class="lineno"> 2259</span> </div><div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(x)) {</div><div class="line"><a name="l02261"></a><span class="lineno"> 2261</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a43efbda3561d65882e66b786f6244888">is_negative</a>(vexp)) {</div><div class="line"><a name="l02262"></a><span class="lineno"> 2262</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l02263"></a><span class="lineno"> 2263</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(y-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>);</div><div class="line"><a name="l02264"></a><span class="lineno"> 2264</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) < 0) {</div><div class="line"><a name="l02265"></a><span class="lineno"> 2265</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc">is_integer</a>(vexp)) {</div><div class="line"><a name="l02266"></a><span class="lineno"> 2266</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02267"></a><span class="lineno"> 2267</span>  <span class="comment">/* (-0) ** (-even_integer) -> Infinity */</span></div><div class="line"><a name="l02268"></a><span class="lineno"> 2268</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(y);</div><div class="line"><a name="l02269"></a><span class="lineno"> 2269</span>  }</div><div class="line"><a name="l02270"></a><span class="lineno"> 2270</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02271"></a><span class="lineno"> 2271</span>  <span class="comment">/* (-0) ** (-odd_integer) -> -Infinity */</span></div><div class="line"><a name="l02272"></a><span class="lineno"> 2272</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a96b2e932934d1a83d0dfe9f02f4a17e9">VpSetNegInf</a>(y);</div><div class="line"><a name="l02273"></a><span class="lineno"> 2273</span>  }</div><div class="line"><a name="l02274"></a><span class="lineno"> 2274</span>  }</div><div class="line"><a name="l02275"></a><span class="lineno"> 2275</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02276"></a><span class="lineno"> 2276</span>  <span class="comment">/* (-0) ** (-non_integer) -> Infinity */</span></div><div class="line"><a name="l02277"></a><span class="lineno"> 2277</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(y);</div><div class="line"><a name="l02278"></a><span class="lineno"> 2278</span>  }</div><div class="line"><a name="l02279"></a><span class="lineno"> 2279</span>  }</div><div class="line"><a name="l02280"></a><span class="lineno"> 2280</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02281"></a><span class="lineno"> 2281</span>  <span class="comment">/* (+0) ** (-num) -> Infinity */</span></div><div class="line"><a name="l02282"></a><span class="lineno"> 2282</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(y);</div><div class="line"><a name="l02283"></a><span class="lineno"> 2283</span>  }</div><div class="line"><a name="l02284"></a><span class="lineno"> 2284</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(y);</div><div class="line"><a name="l02285"></a><span class="lineno"> 2285</span>  }</div><div class="line"><a name="l02286"></a><span class="lineno"> 2286</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a85a84ce53e8d757a725709841505a302">is_zero</a>(vexp)) {</div><div class="line"><a name="l02287"></a><span class="lineno"> 2287</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"1"</span>));</div><div class="line"><a name="l02288"></a><span class="lineno"> 2288</span>  }</div><div class="line"><a name="l02289"></a><span class="lineno"> 2289</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02290"></a><span class="lineno"> 2290</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l02291"></a><span class="lineno"> 2291</span>  }</div><div class="line"><a name="l02292"></a><span class="lineno"> 2292</span>  }</div><div class="line"><a name="l02293"></a><span class="lineno"> 2293</span> </div><div class="line"><a name="l02294"></a><span class="lineno"> 2294</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a85a84ce53e8d757a725709841505a302">is_zero</a>(vexp)) {</div><div class="line"><a name="l02295"></a><span class="lineno"> 2295</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"1"</span>));</div><div class="line"><a name="l02296"></a><span class="lineno"> 2296</span>  }</div><div class="line"><a name="l02297"></a><span class="lineno"> 2297</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a7b27e69a4dc2f42c91e306b98cb2b148">is_one</a>(vexp)) {</div><div class="line"><a name="l02298"></a><span class="lineno"> 2298</span>  <span class="keywordflow">return</span> <span class="keyword">self</span>;</div><div class="line"><a name="l02299"></a><span class="lineno"> 2299</span>  }</div><div class="line"><a name="l02300"></a><span class="lineno"> 2300</span> </div><div class="line"><a name="l02301"></a><span class="lineno"> 2301</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(x)) {</div><div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a43efbda3561d65882e66b786f6244888">is_negative</a>(vexp)) {</div><div class="line"><a name="l02303"></a><span class="lineno"> 2303</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) < 0) {</div><div class="line"><a name="l02304"></a><span class="lineno"> 2304</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc">is_integer</a>(vexp)) {</div><div class="line"><a name="l02305"></a><span class="lineno"> 2305</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02306"></a><span class="lineno"> 2306</span>  <span class="comment">/* (-Infinity) ** (-even_integer) -> +0 */</span></div><div class="line"><a name="l02307"></a><span class="lineno"> 2307</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l02308"></a><span class="lineno"> 2308</span>  }</div><div class="line"><a name="l02309"></a><span class="lineno"> 2309</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>  <span class="comment">/* (-Infinity) ** (-odd_integer) -> -0 */</span></div><div class="line"><a name="l02311"></a><span class="lineno"> 2311</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"-0"</span>));</div><div class="line"><a name="l02312"></a><span class="lineno"> 2312</span>  }</div><div class="line"><a name="l02313"></a><span class="lineno"> 2313</span>  }</div><div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02315"></a><span class="lineno"> 2315</span>  <span class="comment">/* (-Infinity) ** (-non_integer) -> -0 */</span></div><div class="line"><a name="l02316"></a><span class="lineno"> 2316</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"-0"</span>));</div><div class="line"><a name="l02317"></a><span class="lineno"> 2317</span>  }</div><div class="line"><a name="l02318"></a><span class="lineno"> 2318</span>  }</div><div class="line"><a name="l02319"></a><span class="lineno"> 2319</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l02321"></a><span class="lineno"> 2321</span>  }</div><div class="line"><a name="l02322"></a><span class="lineno"> 2322</span>  }</div><div class="line"><a name="l02323"></a><span class="lineno"> 2323</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02324"></a><span class="lineno"> 2324</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0#"</span>);</div><div class="line"><a name="l02325"></a><span class="lineno"> 2325</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) < 0) {</div><div class="line"><a name="l02326"></a><span class="lineno"> 2326</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc">is_integer</a>(vexp)) {</div><div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(y);</div><div class="line"><a name="l02329"></a><span class="lineno"> 2329</span>  }</div><div class="line"><a name="l02330"></a><span class="lineno"> 2330</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02331"></a><span class="lineno"> 2331</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a96b2e932934d1a83d0dfe9f02f4a17e9">VpSetNegInf</a>(y);</div><div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>  }</div><div class="line"><a name="l02333"></a><span class="lineno"> 2333</span>  }</div><div class="line"><a name="l02334"></a><span class="lineno"> 2334</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02335"></a><span class="lineno"> 2335</span>  <span class="comment">/* TODO: support complex */</span></div><div class="line"><a name="l02336"></a><span class="lineno"> 2336</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afbfe440decf2cbee08b00b297fa8d727">rb_eMathDomainError</a>,</div><div class="line"><a name="l02337"></a><span class="lineno"> 2337</span>  <span class="stringliteral">"a non-integral exponent for a negative base"</span>);</div><div class="line"><a name="l02338"></a><span class="lineno"> 2338</span>  }</div><div class="line"><a name="l02339"></a><span class="lineno"> 2339</span>  }</div><div class="line"><a name="l02340"></a><span class="lineno"> 2340</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02341"></a><span class="lineno"> 2341</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(y);</div><div class="line"><a name="l02342"></a><span class="lineno"> 2342</span>  }</div><div class="line"><a name="l02343"></a><span class="lineno"> 2343</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(y);</div><div class="line"><a name="l02344"></a><span class="lineno"> 2344</span>  }</div><div class="line"><a name="l02345"></a><span class="lineno"> 2345</span>  }</div><div class="line"><a name="l02346"></a><span class="lineno"> 2346</span> </div><div class="line"><a name="l02347"></a><span class="lineno"> 2347</span>  <span class="keywordflow">if</span> (exp != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02348"></a><span class="lineno"> 2348</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fad6ba9f8ae3cc3f3896404610576d1">rmpd_power_by_big_decimal</a>(x, exp, n);</div><div class="line"><a name="l02349"></a><span class="lineno"> 2349</span>  }</div><div class="line"><a name="l02350"></a><span class="lineno"> 2350</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a>(vexp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>)) {</div><div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> abs_value = <a class="code" href="../../de/d07/bigdecimal_8c.html#aa82f785f0abe75a1569197552afa61b9">BigDecimal_abs</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a7b27e69a4dc2f42c91e306b98cb2b148">is_one</a>(abs_value)) {</div><div class="line"><a name="l02353"></a><span class="lineno"> 2353</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"1"</span>));</div><div class="line"><a name="l02354"></a><span class="lineno"> 2354</span>  }</div><div class="line"><a name="l02355"></a><span class="lineno"> 2355</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(abs_value, <span class="charliteral">'<'</span>, 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(1)))) {</div><div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a43efbda3561d65882e66b786f6244888">is_negative</a>(vexp)) {</div><div class="line"><a name="l02357"></a><span class="lineno"> 2357</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0#"</span>);</div><div class="line"><a name="l02358"></a><span class="lineno"> 2358</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02359"></a><span class="lineno"> 2359</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(y, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x));</div><div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>  }</div><div class="line"><a name="l02361"></a><span class="lineno"> 2361</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(y, -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x));</div><div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>  }</div><div class="line"><a name="l02364"></a><span class="lineno"> 2364</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(y);</div><div class="line"><a name="l02365"></a><span class="lineno"> 2365</span>  }</div><div class="line"><a name="l02366"></a><span class="lineno"> 2366</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) < 0 && <a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02367"></a><span class="lineno"> 2367</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"-0"</span>));</div><div class="line"><a name="l02368"></a><span class="lineno"> 2368</span>  }</div><div class="line"><a name="l02369"></a><span class="lineno"> 2369</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02370"></a><span class="lineno"> 2370</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l02371"></a><span class="lineno"> 2371</span>  }</div><div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>  }</div><div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02374"></a><span class="lineno"> 2374</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#ac25039bb994269327db8790acb58f570">is_positive</a>(vexp)) {</div><div class="line"><a name="l02375"></a><span class="lineno"> 2375</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0#"</span>);</div><div class="line"><a name="l02376"></a><span class="lineno"> 2376</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02377"></a><span class="lineno"> 2377</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(y, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x));</div><div class="line"><a name="l02378"></a><span class="lineno"> 2378</span>  }</div><div class="line"><a name="l02379"></a><span class="lineno"> 2379</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02380"></a><span class="lineno"> 2380</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(y, -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x));</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="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(y);</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>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) < 0 && <a class="code" href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a>(vexp)) {</div><div class="line"><a name="l02385"></a><span class="lineno"> 2385</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"-0"</span>));</div><div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>  }</div><div class="line"><a name="l02387"></a><span class="lineno"> 2387</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02388"></a><span class="lineno"> 2388</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(n, <span class="stringliteral">"0"</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>  }</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> </div><div class="line"><a name="l02393"></a><span class="lineno"> 2393</span>  int_exp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(vexp);</div><div class="line"><a name="l02394"></a><span class="lineno"> 2394</span>  ma = int_exp;</div><div class="line"><a name="l02395"></a><span class="lineno"> 2395</span>  <span class="keywordflow">if</span> (ma < 0) ma = -ma;</div><div class="line"><a name="l02396"></a><span class="lineno"> 2396</span>  <span class="keywordflow">if</span> (ma == 0) ma = 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> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(x)) {</div><div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>  mp = x-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a>() + 1);</div><div class="line"><a name="l02400"></a><span class="lineno"> 2400</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(y, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(mp * (ma + 1), <span class="stringliteral">"0"</span>));</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>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(y, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"0"</span>));</div><div class="line"><a name="l02404"></a><span class="lineno"> 2404</span>  }</div><div class="line"><a name="l02405"></a><span class="lineno"> 2405</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ae29a5249c8de18d0273189734679ac84">VpPower</a>(y, x, int_exp);</div><div class="line"><a name="l02406"></a><span class="lineno"> 2406</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(prec) && <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(y)) {</div><div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#abddd7d4048c1702709da58ecadda0bda">VpMidRound</a>(y, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(), n);</div><div class="line"><a name="l02408"></a><span class="lineno"> 2408</span>  }</div><div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(y);</div><div class="line"><a name="l02410"></a><span class="lineno"> 2410</span> }</div><div class="line"><a name="l02411"></a><span class="lineno"> 2411</span> </div><div class="line"><a name="l02412"></a><span class="lineno"> 2412</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l02413"></a><span class="lineno"> 2413</span> <span class="comment"> * big_decimal ** exp -> big_decimal</span></div><div class="line"><a name="l02414"></a><span class="lineno"> 2414</span> <span class="comment"> *</span></div><div class="line"><a name="l02415"></a><span class="lineno"> 2415</span> <span class="comment"> * It is a synonym of BigDecimal#power(exp).</span></div><div class="line"><a name="l02416"></a><span class="lineno"> 2416</span> <span class="comment"> */</span></div><div class="line"><a name="l02417"></a><span class="lineno"> 2417</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02418"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#abe0044576d28bd76c2b6e9664015feb9"> 2418</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#abe0044576d28bd76c2b6e9664015feb9">BigDecimal_power_op</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exp)</div><div class="line"><a name="l02419"></a><span class="lineno"> 2419</span> {</div><div class="line"><a name="l02420"></a><span class="lineno"> 2420</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a5cea7f6f29d3c527b43b035e4a404611">BigDecimal_power</a>(1, &exp, <span class="keyword">self</span>);</div><div class="line"><a name="l02421"></a><span class="lineno"> 2421</span> }</div><div class="line"><a name="l02422"></a><span class="lineno"> 2422</span> </div><div class="line"><a name="l02423"></a><span class="lineno"> 2423</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02424"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ad23fb921b0f5c8bce1e126b2a65c28f5"> 2424</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ad23fb921b0f5c8bce1e126b2a65c28f5">BigDecimal_s_allocate</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> klass)</div><div class="line"><a name="l02425"></a><span class="lineno"> 2425</span> {</div><div class="line"><a name="l02426"></a><span class="lineno"> 2426</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b22d7e4fa63b870de87082a06e7c875">VpNewRbClass</a>(0, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, klass)-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l02427"></a><span class="lineno"> 2427</span> }</div><div class="line"><a name="l02428"></a><span class="lineno"> 2428</span> </div><div class="line"><a name="l02429"></a><span class="lineno"> 2429</span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../de/d07/bigdecimal_8c.html#af7b554cc7460085460ba76ec2662946d">BigDecimal_new</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l02430"></a><span class="lineno"> 2430</span> </div><div class="line"><a name="l02431"></a><span class="lineno"> 2431</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l02432"></a><span class="lineno"> 2432</span> <span class="comment"> * new(initial, digits)</span></div><div class="line"><a name="l02433"></a><span class="lineno"> 2433</span> <span class="comment"> *</span></div><div class="line"><a name="l02434"></a><span class="lineno"> 2434</span> <span class="comment"> * Create a new BigDecimal object.</span></div><div class="line"><a name="l02435"></a><span class="lineno"> 2435</span> <span class="comment"> *</span></div><div class="line"><a name="l02436"></a><span class="lineno"> 2436</span> <span class="comment"> * initial:: The initial value, as an Integer, a Float, a Rational,</span></div><div class="line"><a name="l02437"></a><span class="lineno"> 2437</span> <span class="comment"> * a BigDecimal, or a String.</span></div><div class="line"><a name="l02438"></a><span class="lineno"> 2438</span> <span class="comment"> *</span></div><div class="line"><a name="l02439"></a><span class="lineno"> 2439</span> <span class="comment"> * If it is a String, spaces are ignored and unrecognized characters</span></div><div class="line"><a name="l02440"></a><span class="lineno"> 2440</span> <span class="comment"> * terminate the value.</span></div><div class="line"><a name="l02441"></a><span class="lineno"> 2441</span> <span class="comment"> *</span></div><div class="line"><a name="l02442"></a><span class="lineno"> 2442</span> <span class="comment"> * digits:: The number of significant digits, as a Fixnum. If omitted or 0,</span></div><div class="line"><a name="l02443"></a><span class="lineno"> 2443</span> <span class="comment"> * the number of significant digits is determined from the initial</span></div><div class="line"><a name="l02444"></a><span class="lineno"> 2444</span> <span class="comment"> * value.</span></div><div class="line"><a name="l02445"></a><span class="lineno"> 2445</span> <span class="comment"> *</span></div><div class="line"><a name="l02446"></a><span class="lineno"> 2446</span> <span class="comment"> * The actual number of significant digits used in computation is usually</span></div><div class="line"><a name="l02447"></a><span class="lineno"> 2447</span> <span class="comment"> * larger than the specified number.</span></div><div class="line"><a name="l02448"></a><span class="lineno"> 2448</span> <span class="comment"> */</span></div><div class="line"><a name="l02449"></a><span class="lineno"> 2449</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02450"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a65f5f3594a4305ee3413931ba0c0bdec"> 2450</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a65f5f3594a4305ee3413931ba0c0bdec">BigDecimal_initialize</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02451"></a><span class="lineno"> 2451</span> {</div><div class="line"><a name="l02452"></a><span class="lineno"> 2452</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(1);</div><div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv = <a class="code" href="../../db/dcc/error_8c.html#a01f11924b05ac5d4df94383f39a14d6c">rb_check_typeddata</a>(<span class="keyword">self</span>, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>);</div><div class="line"><a name="l02454"></a><span class="lineno"> 2454</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x;</div><div class="line"><a name="l02455"></a><span class="lineno"> 2455</span> </div><div class="line"><a name="l02456"></a><span class="lineno"> 2456</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(x, <a class="code" href="../../de/d07/bigdecimal_8c.html#af7b554cc7460085460ba76ec2662946d">BigDecimal_new</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>));</div><div class="line"><a name="l02457"></a><span class="lineno"> 2457</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(x)) {</div><div class="line"><a name="l02458"></a><span class="lineno"> 2458</span>  pv = <a class="code" href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9">VpCopy</a>(pv, x);</div><div class="line"><a name="l02459"></a><span class="lineno"> 2459</span>  }</div><div class="line"><a name="l02460"></a><span class="lineno"> 2460</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02461"></a><span class="lineno"> 2461</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(pv);</div><div class="line"><a name="l02462"></a><span class="lineno"> 2462</span>  pv = x;</div><div class="line"><a name="l02463"></a><span class="lineno"> 2463</span>  }</div><div class="line"><a name="l02464"></a><span class="lineno"> 2464</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(<span class="keyword">self</span>) = pv;</div><div class="line"><a name="l02465"></a><span class="lineno"> 2465</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a> = <span class="keyword">self</span>;</div><div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>  <span class="keywordflow">return</span> <span class="keyword">self</span>;</div><div class="line"><a name="l02467"></a><span class="lineno"> 2467</span> }</div><div class="line"><a name="l02468"></a><span class="lineno"> 2468</span> </div><div class="line"><a name="l02469"></a><span class="lineno"> 2469</span> <span class="comment">/* :nodoc:</span></div><div class="line"><a name="l02470"></a><span class="lineno"> 2470</span> <span class="comment"> *</span></div><div class="line"><a name="l02471"></a><span class="lineno"> 2471</span> <span class="comment"> * private method to dup and clone the provided BigDecimal +other+</span></div><div class="line"><a name="l02472"></a><span class="lineno"> 2472</span> <span class="comment"> */</span></div><div class="line"><a name="l02473"></a><span class="lineno"> 2473</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02474"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#acb1055f4ad25d6bdac7a385c534b38eb"> 2474</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb1055f4ad25d6bdac7a385c534b38eb">BigDecimal_initialize_copy</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> other)</div><div class="line"><a name="l02475"></a><span class="lineno"> 2475</span> {</div><div class="line"><a name="l02476"></a><span class="lineno"> 2476</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv = <a class="code" href="../../db/dcc/error_8c.html#a01f11924b05ac5d4df94383f39a14d6c">rb_check_typeddata</a>(<span class="keyword">self</span>, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>);</div><div class="line"><a name="l02477"></a><span class="lineno"> 2477</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x = <a class="code" href="../../db/dcc/error_8c.html#a01f11924b05ac5d4df94383f39a14d6c">rb_check_typeddata</a>(other, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>);</div><div class="line"><a name="l02478"></a><span class="lineno"> 2478</span> </div><div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>  <span class="keywordflow">if</span> (<span class="keyword">self</span> != other) {</div><div class="line"><a name="l02480"></a><span class="lineno"> 2480</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(<span class="keyword">self</span>) = <a class="code" href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9">VpCopy</a>(pv, x);</div><div class="line"><a name="l02481"></a><span class="lineno"> 2481</span>  }</div><div class="line"><a name="l02482"></a><span class="lineno"> 2482</span>  <span class="keywordflow">return</span> <span class="keyword">self</span>;</div><div class="line"><a name="l02483"></a><span class="lineno"> 2483</span> }</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> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *</div><div class="line"><a name="l02486"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#af7b554cc7460085460ba76ec2662946d"> 2486</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#af7b554cc7460085460ba76ec2662946d">BigDecimal_new</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l02487"></a><span class="lineno"> 2487</span> {</div><div class="line"><a name="l02488"></a><span class="lineno"> 2488</span>  <span class="keywordtype">size_t</span> mf;</div><div class="line"><a name="l02489"></a><span class="lineno"> 2489</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> nFig;</div><div class="line"><a name="l02490"></a><span class="lineno"> 2490</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> iniValue;</div><div class="line"><a name="l02491"></a><span class="lineno"> 2491</span> </div><div class="line"><a name="l02492"></a><span class="lineno"> 2492</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &iniValue, &nFig) == 1) {</div><div class="line"><a name="l02493"></a><span class="lineno"> 2493</span>  mf = 0;</div><div class="line"><a name="l02494"></a><span class="lineno"> 2494</span>  }</div><div class="line"><a name="l02495"></a><span class="lineno"> 2495</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02496"></a><span class="lineno"> 2496</span>  mf = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a>(nFig);</div><div class="line"><a name="l02497"></a><span class="lineno"> 2497</span>  }</div><div class="line"><a name="l02498"></a><span class="lineno"> 2498</span> </div><div class="line"><a name="l02499"></a><span class="lineno"> 2499</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(iniValue)) {</div><div class="line"><a name="l02500"></a><span class="lineno"> 2500</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a>:</div><div class="line"><a name="l02501"></a><span class="lineno"> 2501</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(iniValue)) {</div><div class="line"><a name="l02502"></a><span class="lineno"> 2502</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(iniValue);</div><div class="line"><a name="l02503"></a><span class="lineno"> 2503</span>  }</div><div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02505"></a><span class="lineno"> 2505</span> </div><div class="line"><a name="l02506"></a><span class="lineno"> 2506</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02507"></a><span class="lineno"> 2507</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l02508"></a><span class="lineno"> 2508</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02509"></a><span class="lineno"> 2509</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(iniValue, 1);</div><div class="line"><a name="l02510"></a><span class="lineno"> 2510</span> </div><div class="line"><a name="l02511"></a><span class="lineno"> 2511</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div><div class="line"><a name="l02512"></a><span class="lineno"> 2512</span>  <span class="keywordflow">if</span> (mf > <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1) {</div><div class="line"><a name="l02513"></a><span class="lineno"> 2513</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"precision too large."</span>);</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="comment">/* fall through */</span></div><div class="line"><a name="l02516"></a><span class="lineno"> 2516</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l02517"></a><span class="lineno"> 2517</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(nFig)) {</div><div class="line"><a name="l02518"></a><span class="lineno"> 2518</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div><div class="line"><a name="l02519"></a><span class="lineno"> 2519</span>  <span class="stringliteral">"can't omit precision for a %"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8e362fd0b6f28e246f5d689a4b5ee1b8">PRIsVALUE</a><span class="stringliteral">"."</span>,</div><div class="line"><a name="l02520"></a><span class="lineno"> 2520</span>  <a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(iniValue));</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>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(iniValue, mf, 1);</div><div class="line"><a name="l02523"></a><span class="lineno"> 2523</span> </div><div class="line"><a name="l02524"></a><span class="lineno"> 2524</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>:</div><div class="line"><a name="l02525"></a><span class="lineno"> 2525</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02527"></a><span class="lineno"> 2527</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02528"></a><span class="lineno"> 2528</span>  }</div><div class="line"><a name="l02529"></a><span class="lineno"> 2529</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a>(iniValue);</div><div class="line"><a name="l02530"></a><span class="lineno"> 2530</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(mf, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(iniValue));</div><div class="line"><a name="l02531"></a><span class="lineno"> 2531</span> }</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> <span class="comment">/* See also BigDecimal::new */</span></div><div class="line"><a name="l02534"></a><span class="lineno"> 2534</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02535"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a1abd021043d9063b2fce9e9c614b827f"> 2535</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a1abd021043d9063b2fce9e9c614b827f">BigDecimal_global_new</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02536"></a><span class="lineno"> 2536</span> {</div><div class="line"><a name="l02537"></a><span class="lineno"> 2537</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a>(1);</div><div class="line"><a name="l02538"></a><span class="lineno"> 2538</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv;</div><div class="line"><a name="l02539"></a><span class="lineno"> 2539</span> </div><div class="line"><a name="l02540"></a><span class="lineno"> 2540</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a>(pv, <a class="code" href="../../de/d07/bigdecimal_8c.html#af7b554cc7460085460ba76ec2662946d">BigDecimal_new</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>));</div><div class="line"><a name="l02541"></a><span class="lineno"> 2541</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(pv)) pv = <a class="code" href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9">VpCopy</a>(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, pv);</div><div class="line"><a name="l02542"></a><span class="lineno"> 2542</span>  pv-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa3094c0054b80ec2a7e50f9fe1e5f4b2">TypedData_Wrap_Struct</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, &<a class="code" href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a>, pv);</div><div class="line"><a name="l02543"></a><span class="lineno"> 2543</span>  <span class="keywordflow">return</span> pv-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l02544"></a><span class="lineno"> 2544</span> }</div><div class="line"><a name="l02545"></a><span class="lineno"> 2545</span> </div><div class="line"><a name="l02546"></a><span class="lineno"> 2546</span>  <span class="comment">/* call-seq:</span></div><div class="line"><a name="l02547"></a><span class="lineno"> 2547</span> <span class="comment"> * BigDecimal.limit(digits)</span></div><div class="line"><a name="l02548"></a><span class="lineno"> 2548</span> <span class="comment"> *</span></div><div class="line"><a name="l02549"></a><span class="lineno"> 2549</span> <span class="comment"> * Limit the number of significant digits in newly created BigDecimal</span></div><div class="line"><a name="l02550"></a><span class="lineno"> 2550</span> <span class="comment"> * numbers to the specified value. Rounding is performed as necessary,</span></div><div class="line"><a name="l02551"></a><span class="lineno"> 2551</span> <span class="comment"> * as specified by BigDecimal.mode.</span></div><div class="line"><a name="l02552"></a><span class="lineno"> 2552</span> <span class="comment"> *</span></div><div class="line"><a name="l02553"></a><span class="lineno"> 2553</span> <span class="comment"> * A limit of 0, the default, means no upper limit.</span></div><div class="line"><a name="l02554"></a><span class="lineno"> 2554</span> <span class="comment"> *</span></div><div class="line"><a name="l02555"></a><span class="lineno"> 2555</span> <span class="comment"> * The limit specified by this method takes less priority over any limit</span></div><div class="line"><a name="l02556"></a><span class="lineno"> 2556</span> <span class="comment"> * specified to instance methods such as ceil, floor, truncate, or round.</span></div><div class="line"><a name="l02557"></a><span class="lineno"> 2557</span> <span class="comment"> */</span></div><div class="line"><a name="l02558"></a><span class="lineno"> 2558</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02559"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a72a65531369f3e92b0c9d239b6c46c5d"> 2559</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a72a65531369f3e92b0c9d239b6c46c5d">BigDecimal_limit</a>(<span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02560"></a><span class="lineno"> 2560</span> {</div><div class="line"><a name="l02561"></a><span class="lineno"> 2561</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> nFig;</div><div class="line"><a name="l02562"></a><span class="lineno"> 2562</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> nCur = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>());</div><div class="line"><a name="l02563"></a><span class="lineno"> 2563</span> </div><div class="line"><a name="l02564"></a><span class="lineno"> 2564</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &nFig) == 1) {</div><div class="line"><a name="l02565"></a><span class="lineno"> 2565</span>  <span class="keywordtype">int</span> nf;</div><div class="line"><a name="l02566"></a><span class="lineno"> 2566</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(nFig)) <span class="keywordflow">return</span> nCur;</div><div class="line"><a name="l02567"></a><span class="lineno"> 2567</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(nFig, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div><div class="line"><a name="l02568"></a><span class="lineno"> 2568</span>  nf = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(nFig);</div><div class="line"><a name="l02569"></a><span class="lineno"> 2569</span>  <span class="keywordflow">if</span> (nf < 0) {</div><div class="line"><a name="l02570"></a><span class="lineno"> 2570</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"argument must be positive"</span>);</div><div class="line"><a name="l02571"></a><span class="lineno"> 2571</span>  }</div><div class="line"><a name="l02572"></a><span class="lineno"> 2572</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(nf);</div><div class="line"><a name="l02573"></a><span class="lineno"> 2573</span>  }</div><div class="line"><a name="l02574"></a><span class="lineno"> 2574</span>  <span class="keywordflow">return</span> nCur;</div><div class="line"><a name="l02575"></a><span class="lineno"> 2575</span> }</div><div class="line"><a name="l02576"></a><span class="lineno"> 2576</span> </div><div class="line"><a name="l02577"></a><span class="lineno"> 2577</span> <span class="comment">/* Returns the sign of the value.</span></div><div class="line"><a name="l02578"></a><span class="lineno"> 2578</span> <span class="comment"> *</span></div><div class="line"><a name="l02579"></a><span class="lineno"> 2579</span> <span class="comment"> * Returns a positive value if > 0, a negative value if < 0, and a</span></div><div class="line"><a name="l02580"></a><span class="lineno"> 2580</span> <span class="comment"> * zero if == 0.</span></div><div class="line"><a name="l02581"></a><span class="lineno"> 2581</span> <span class="comment"> *</span></div><div class="line"><a name="l02582"></a><span class="lineno"> 2582</span> <span class="comment"> * The specific value returned indicates the type and sign of the BigDecimal,</span></div><div class="line"><a name="l02583"></a><span class="lineno"> 2583</span> <span class="comment"> * as follows:</span></div><div class="line"><a name="l02584"></a><span class="lineno"> 2584</span> <span class="comment"> *</span></div><div class="line"><a name="l02585"></a><span class="lineno"> 2585</span> <span class="comment"> * BigDecimal::SIGN_NaN:: value is Not a Number</span></div><div class="line"><a name="l02586"></a><span class="lineno"> 2586</span> <span class="comment"> * BigDecimal::SIGN_POSITIVE_ZERO:: value is +0</span></div><div class="line"><a name="l02587"></a><span class="lineno"> 2587</span> <span class="comment"> * BigDecimal::SIGN_NEGATIVE_ZERO:: value is -0</span></div><div class="line"><a name="l02588"></a><span class="lineno"> 2588</span> <span class="comment"> * BigDecimal::SIGN_POSITIVE_INFINITE:: value is +Infinity</span></div><div class="line"><a name="l02589"></a><span class="lineno"> 2589</span> <span class="comment"> * BigDecimal::SIGN_NEGATIVE_INFINITE:: value is -Infinity</span></div><div class="line"><a name="l02590"></a><span class="lineno"> 2590</span> <span class="comment"> * BigDecimal::SIGN_POSITIVE_FINITE:: value is positive</span></div><div class="line"><a name="l02591"></a><span class="lineno"> 2591</span> <span class="comment"> * BigDecimal::SIGN_NEGATIVE_FINITE:: value is negative</span></div><div class="line"><a name="l02592"></a><span class="lineno"> 2592</span> <span class="comment"> */</span></div><div class="line"><a name="l02593"></a><span class="lineno"> 2593</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02594"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a2576fd6820d58e17b081278528117b5a"> 2594</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2576fd6820d58e17b081278528117b5a">BigDecimal_sign</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02595"></a><span class="lineno"> 2595</span> { <span class="comment">/* sign */</span></div><div class="line"><a name="l02596"></a><span class="lineno"> 2596</span>  <span class="keywordtype">int</span> s = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<span class="keyword">self</span>, 1)-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a>;</div><div class="line"><a name="l02597"></a><span class="lineno"> 2597</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(s);</div><div class="line"><a name="l02598"></a><span class="lineno"> 2598</span> }</div><div class="line"><a name="l02599"></a><span class="lineno"> 2599</span> </div><div class="line"><a name="l02600"></a><span class="lineno"> 2600</span> <span class="comment">/*</span></div><div class="line"><a name="l02601"></a><span class="lineno"> 2601</span> <span class="comment"> * call-seq: BigDecimal.save_exception_mode { ... }</span></div><div class="line"><a name="l02602"></a><span class="lineno"> 2602</span> <span class="comment"> *</span></div><div class="line"><a name="l02603"></a><span class="lineno"> 2603</span> <span class="comment"> * Execute the provided block, but preserve the exception mode</span></div><div class="line"><a name="l02604"></a><span class="lineno"> 2604</span> <span class="comment"> *</span></div><div class="line"><a name="l02605"></a><span class="lineno"> 2605</span> <span class="comment"> * BigDecimal.save_exception_mode do</span></div><div class="line"><a name="l02606"></a><span class="lineno"> 2606</span> <span class="comment"> * BigDecimal.mode(BigDecimal::EXCEPTION_OVERFLOW, false)</span></div><div class="line"><a name="l02607"></a><span class="lineno"> 2607</span> <span class="comment"> * BigDecimal.mode(BigDecimal::EXCEPTION_NaN, false)</span></div><div class="line"><a name="l02608"></a><span class="lineno"> 2608</span> <span class="comment"> *</span></div><div class="line"><a name="l02609"></a><span class="lineno"> 2609</span> <span class="comment"> * BigDecimal.new(BigDecimal('Infinity'))</span></div><div class="line"><a name="l02610"></a><span class="lineno"> 2610</span> <span class="comment"> * BigDecimal.new(BigDecimal('-Infinity'))</span></div><div class="line"><a name="l02611"></a><span class="lineno"> 2611</span> <span class="comment"> * BigDecimal(BigDecimal.new('NaN'))</span></div><div class="line"><a name="l02612"></a><span class="lineno"> 2612</span> <span class="comment"> * end</span></div><div class="line"><a name="l02613"></a><span class="lineno"> 2613</span> <span class="comment"> *</span></div><div class="line"><a name="l02614"></a><span class="lineno"> 2614</span> <span class="comment"> * For use with the BigDecimal::EXCEPTION_*</span></div><div class="line"><a name="l02615"></a><span class="lineno"> 2615</span> <span class="comment"> *</span></div><div class="line"><a name="l02616"></a><span class="lineno"> 2616</span> <span class="comment"> * See BigDecimal.mode</span></div><div class="line"><a name="l02617"></a><span class="lineno"> 2617</span> <span class="comment"> */</span></div><div class="line"><a name="l02618"></a><span class="lineno"> 2618</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02619"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac33500d52ee47a5ad8a8d6b3360190b2"> 2619</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac33500d52ee47a5ad8a8d6b3360190b2">BigDecimal_save_exception_mode</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02620"></a><span class="lineno"> 2620</span> {</div><div class="line"><a name="l02621"></a><span class="lineno"> 2621</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keyword">const</span> exception_mode = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l02622"></a><span class="lineno"> 2622</span>  <span class="keywordtype">int</span> state;</div><div class="line"><a name="l02623"></a><span class="lineno"> 2623</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae6bd0c4ea4db971ebd569ca8f05c6b4a">rb_yield</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, &state);</div><div class="line"><a name="l02624"></a><span class="lineno"> 2624</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>(exception_mode);</div><div class="line"><a name="l02625"></a><span class="lineno"> 2625</span>  <span class="keywordflow">if</span> (state) <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(state);</div><div class="line"><a name="l02626"></a><span class="lineno"> 2626</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l02627"></a><span class="lineno"> 2627</span> }</div><div class="line"><a name="l02628"></a><span class="lineno"> 2628</span> </div><div class="line"><a name="l02629"></a><span class="lineno"> 2629</span> <span class="comment">/*</span></div><div class="line"><a name="l02630"></a><span class="lineno"> 2630</span> <span class="comment"> * call-seq: BigDecimal.save_rounding_mode { ... }</span></div><div class="line"><a name="l02631"></a><span class="lineno"> 2631</span> <span class="comment"> *</span></div><div class="line"><a name="l02632"></a><span class="lineno"> 2632</span> <span class="comment"> * Execute the provided block, but preserve the rounding mode</span></div><div class="line"><a name="l02633"></a><span class="lineno"> 2633</span> <span class="comment"> *</span></div><div class="line"><a name="l02634"></a><span class="lineno"> 2634</span> <span class="comment"> * BigDecimal.save_rounding_mode do</span></div><div class="line"><a name="l02635"></a><span class="lineno"> 2635</span> <span class="comment"> * BigDecimal.mode(BigDecimal::ROUND_MODE, :up)</span></div><div class="line"><a name="l02636"></a><span class="lineno"> 2636</span> <span class="comment"> * puts BigDecimal.mode(BigDecimal::ROUND_MODE)</span></div><div class="line"><a name="l02637"></a><span class="lineno"> 2637</span> <span class="comment"> * end</span></div><div class="line"><a name="l02638"></a><span class="lineno"> 2638</span> <span class="comment"> *</span></div><div class="line"><a name="l02639"></a><span class="lineno"> 2639</span> <span class="comment"> * For use with the BigDecimal::ROUND_*</span></div><div class="line"><a name="l02640"></a><span class="lineno"> 2640</span> <span class="comment"> *</span></div><div class="line"><a name="l02641"></a><span class="lineno"> 2641</span> <span class="comment"> * See BigDecimal.mode</span></div><div class="line"><a name="l02642"></a><span class="lineno"> 2642</span> <span class="comment"> */</span></div><div class="line"><a name="l02643"></a><span class="lineno"> 2643</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02644"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a75be8c999b5d4423cccde9a1488671e7"> 2644</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a75be8c999b5d4423cccde9a1488671e7">BigDecimal_save_rounding_mode</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02645"></a><span class="lineno"> 2645</span> {</div><div class="line"><a name="l02646"></a><span class="lineno"> 2646</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keyword">const</span> round_mode = <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>();</div><div class="line"><a name="l02647"></a><span class="lineno"> 2647</span>  <span class="keywordtype">int</span> state;</div><div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae6bd0c4ea4db971ebd569ca8f05c6b4a">rb_yield</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, &state);</div><div class="line"><a name="l02649"></a><span class="lineno"> 2649</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a73e5550509e9695d11bcb1ce410e6ea0">VpSetRoundMode</a>(round_mode);</div><div class="line"><a name="l02650"></a><span class="lineno"> 2650</span>  <span class="keywordflow">if</span> (state) <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(state);</div><div class="line"><a name="l02651"></a><span class="lineno"> 2651</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l02652"></a><span class="lineno"> 2652</span> }</div><div class="line"><a name="l02653"></a><span class="lineno"> 2653</span> </div><div class="line"><a name="l02654"></a><span class="lineno"> 2654</span> <span class="comment">/*</span></div><div class="line"><a name="l02655"></a><span class="lineno"> 2655</span> <span class="comment"> * call-seq: BigDecimal.save_limit { ... }</span></div><div class="line"><a name="l02656"></a><span class="lineno"> 2656</span> <span class="comment"> *</span></div><div class="line"><a name="l02657"></a><span class="lineno"> 2657</span> <span class="comment"> * Execute the provided block, but preserve the precision limit</span></div><div class="line"><a name="l02658"></a><span class="lineno"> 2658</span> <span class="comment"> *</span></div><div class="line"><a name="l02659"></a><span class="lineno"> 2659</span> <span class="comment"> * BigDecimal.limit(100)</span></div><div class="line"><a name="l02660"></a><span class="lineno"> 2660</span> <span class="comment"> * puts BigDecimal.limit</span></div><div class="line"><a name="l02661"></a><span class="lineno"> 2661</span> <span class="comment"> * BigDecimal.save_limit do</span></div><div class="line"><a name="l02662"></a><span class="lineno"> 2662</span> <span class="comment"> * BigDecimal.limit(200)</span></div><div class="line"><a name="l02663"></a><span class="lineno"> 2663</span> <span class="comment"> * puts BigDecimal.limit</span></div><div class="line"><a name="l02664"></a><span class="lineno"> 2664</span> <span class="comment"> * end</span></div><div class="line"><a name="l02665"></a><span class="lineno"> 2665</span> <span class="comment"> * puts BigDecimal.limit</span></div><div class="line"><a name="l02666"></a><span class="lineno"> 2666</span> <span class="comment"> *</span></div><div class="line"><a name="l02667"></a><span class="lineno"> 2667</span> <span class="comment"> */</span></div><div class="line"><a name="l02668"></a><span class="lineno"> 2668</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02669"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ac4f5ca0bbea5b3103cb155ca01ae9e67"> 2669</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ac4f5ca0bbea5b3103cb155ca01ae9e67">BigDecimal_save_limit</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l02670"></a><span class="lineno"> 2670</span> {</div><div class="line"><a name="l02671"></a><span class="lineno"> 2671</span>  <span class="keywordtype">size_t</span> <span class="keyword">const</span> limit = <a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>();</div><div class="line"><a name="l02672"></a><span class="lineno"> 2672</span>  <span class="keywordtype">int</span> state;</div><div class="line"><a name="l02673"></a><span class="lineno"> 2673</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae6bd0c4ea4db971ebd569ca8f05c6b4a">rb_yield</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, &state);</div><div class="line"><a name="l02674"></a><span class="lineno"> 2674</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(limit);</div><div class="line"><a name="l02675"></a><span class="lineno"> 2675</span>  <span class="keywordflow">if</span> (state) <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(state);</div><div class="line"><a name="l02676"></a><span class="lineno"> 2676</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l02677"></a><span class="lineno"> 2677</span> }</div><div class="line"><a name="l02678"></a><span class="lineno"> 2678</span> </div><div class="line"><a name="l02679"></a><span class="lineno"> 2679</span> <span class="comment">/* call-seq:</span></div><div class="line"><a name="l02680"></a><span class="lineno"> 2680</span> <span class="comment"> * BigMath.exp(decimal, numeric) -> BigDecimal</span></div><div class="line"><a name="l02681"></a><span class="lineno"> 2681</span> <span class="comment"> *</span></div><div class="line"><a name="l02682"></a><span class="lineno"> 2682</span> <span class="comment"> * Computes the value of e (the base of natural logarithms) raised to the</span></div><div class="line"><a name="l02683"></a><span class="lineno"> 2683</span> <span class="comment"> * power of +decimal+, to the specified number of digits of precision.</span></div><div class="line"><a name="l02684"></a><span class="lineno"> 2684</span> <span class="comment"> *</span></div><div class="line"><a name="l02685"></a><span class="lineno"> 2685</span> <span class="comment"> * If +decimal+ is infinity, returns Infinity.</span></div><div class="line"><a name="l02686"></a><span class="lineno"> 2686</span> <span class="comment"> *</span></div><div class="line"><a name="l02687"></a><span class="lineno"> 2687</span> <span class="comment"> * If +decimal+ is NaN, returns NaN.</span></div><div class="line"><a name="l02688"></a><span class="lineno"> 2688</span> <span class="comment"> */</span></div><div class="line"><a name="l02689"></a><span class="lineno"> 2689</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02690"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a889731484a3e17594f791993d5a0a41e"> 2690</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a889731484a3e17594f791993d5a0a41e">BigMath_s_exp</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> klass, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vprec)</div><div class="line"><a name="l02691"></a><span class="lineno"> 2691</span> {</div><div class="line"><a name="l02692"></a><span class="lineno"> 2692</span>  ssize_t prec, n, i;</div><div class="line"><a name="l02693"></a><span class="lineno"> 2693</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* vx = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>, d, y;</div><div class="line"><a name="l02695"></a><span class="lineno"> 2695</span>  <span class="keywordtype">int</span> negative = 0;</div><div class="line"><a name="l02696"></a><span class="lineno"> 2696</span>  <span class="keywordtype">int</span> infinite = 0;</div><div class="line"><a name="l02697"></a><span class="lineno"> 2697</span>  <span class="keywordtype">int</span> nan = 0;</div><div class="line"><a name="l02698"></a><span class="lineno"> 2698</span>  <span class="keywordtype">double</span> flo;</div><div class="line"><a name="l02699"></a><span class="lineno"> 2699</span> </div><div class="line"><a name="l02700"></a><span class="lineno"> 2700</span>  prec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5c55d652f4496a625bddf94264d277d0">NUM2SSIZET</a>(vprec);</div><div class="line"><a name="l02701"></a><span class="lineno"> 2701</span>  <span class="keywordflow">if</span> (prec <= 0) {</div><div class="line"><a name="l02702"></a><span class="lineno"> 2702</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"Zero or negative precision for exp"</span>);</div><div class="line"><a name="l02703"></a><span class="lineno"> 2703</span>  }</div><div class="line"><a name="l02704"></a><span class="lineno"> 2704</span> </div><div class="line"><a name="l02705"></a><span class="lineno"> 2705</span>  <span class="comment">/* TODO: the following switch statement is almostly the same as one in the</span></div><div class="line"><a name="l02706"></a><span class="lineno"> 2706</span> <span class="comment"> * BigDecimalCmp function. */</span></div><div class="line"><a name="l02707"></a><span class="lineno"> 2707</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(x)) {</div><div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a>:</div><div class="line"><a name="l02709"></a><span class="lineno"> 2709</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(x)) <span class="keywordflow">break</span>;</div><div class="line"><a name="l02710"></a><span class="lineno"> 2710</span>  vx = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(x);</div><div class="line"><a name="l02711"></a><span class="lineno"> 2711</span>  negative = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(vx) < 0;</div><div class="line"><a name="l02712"></a><span class="lineno"> 2712</span>  infinite = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(vx) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(vx);</div><div class="line"><a name="l02713"></a><span class="lineno"> 2713</span>  nan = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(vx);</div><div class="line"><a name="l02714"></a><span class="lineno"> 2714</span>  <span class="keywordflow">break</span>;</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="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02717"></a><span class="lineno"> 2717</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l02718"></a><span class="lineno"> 2718</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02719"></a><span class="lineno"> 2719</span>  vx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(x, 0);</div><div class="line"><a name="l02720"></a><span class="lineno"> 2720</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02721"></a><span class="lineno"> 2721</span> </div><div class="line"><a name="l02722"></a><span class="lineno"> 2722</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div><div class="line"><a name="l02723"></a><span class="lineno"> 2723</span>  flo = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa7311e0d10f373b0bb50c41522dc3981">RFLOAT_VALUE</a>(x);</div><div class="line"><a name="l02724"></a><span class="lineno"> 2724</span>  negative = flo < 0;</div><div class="line"><a name="l02725"></a><span class="lineno"> 2725</span>  infinite = <a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(flo);</div><div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>  nan = <a class="code" href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a>(flo);</div><div class="line"><a name="l02727"></a><span class="lineno"> 2727</span>  <span class="keywordflow">if</span> (!infinite && !nan) {</div><div class="line"><a name="l02728"></a><span class="lineno"> 2728</span>  vx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(x, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 0);</div><div class="line"><a name="l02729"></a><span class="lineno"> 2729</span>  }</div><div class="line"><a name="l02730"></a><span class="lineno"> 2730</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02731"></a><span class="lineno"> 2731</span> </div><div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l02733"></a><span class="lineno"> 2733</span>  vx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(x, prec, 0);</div><div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02735"></a><span class="lineno"> 2735</span> </div><div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02737"></a><span class="lineno"> 2737</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02738"></a><span class="lineno"> 2738</span>  }</div><div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>  <span class="keywordflow">if</span> (infinite) {</div><div class="line"><a name="l02740"></a><span class="lineno"> 2740</span>  <span class="keywordflow">if</span> (negative) {</div><div class="line"><a name="l02741"></a><span class="lineno"> 2741</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0), prec, 1));</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>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02744"></a><span class="lineno"> 2744</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* vy;</div><div class="line"><a name="l02745"></a><span class="lineno"> 2745</span>  vy = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(prec, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l02746"></a><span class="lineno"> 2746</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(vy, <a class="code" href="../../d0/da5/bigdecimal_8h.html#ab1bc31d57e2eecadb93b4a90d29a1a28">VP_SIGN_POSITIVE_INFINITE</a>);</div><div class="line"><a name="l02747"></a><span class="lineno"> 2747</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(vy-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>);</div><div class="line"><a name="l02748"></a><span class="lineno"> 2748</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(vy);</div><div class="line"><a name="l02749"></a><span class="lineno"> 2749</span>  }</div><div class="line"><a name="l02750"></a><span class="lineno"> 2750</span>  }</div><div class="line"><a name="l02751"></a><span class="lineno"> 2751</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (nan) {</div><div class="line"><a name="l02752"></a><span class="lineno"> 2752</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* vy;</div><div class="line"><a name="l02753"></a><span class="lineno"> 2753</span>  vy = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(prec, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l02754"></a><span class="lineno"> 2754</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(vy);</div><div class="line"><a name="l02755"></a><span class="lineno"> 2755</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(vy-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>);</div><div class="line"><a name="l02756"></a><span class="lineno"> 2756</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(vy);</div><div class="line"><a name="l02757"></a><span class="lineno"> 2757</span>  }</div><div class="line"><a name="l02758"></a><span class="lineno"> 2758</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (vx == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02759"></a><span class="lineno"> 2759</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a">cannot_be_coerced_into_BigDecimal</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, x);</div><div class="line"><a name="l02760"></a><span class="lineno"> 2760</span>  }</div><div class="line"><a name="l02761"></a><span class="lineno"> 2761</span>  x = vx-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>;</div><div class="line"><a name="l02762"></a><span class="lineno"> 2762</span> </div><div class="line"><a name="l02763"></a><span class="lineno"> 2763</span>  n = prec + <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>();</div><div class="line"><a name="l02764"></a><span class="lineno"> 2764</span>  negative = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(vx) < 0;</div><div class="line"><a name="l02765"></a><span class="lineno"> 2765</span>  <span class="keywordflow">if</span> (negative) {</div><div class="line"><a name="l02766"></a><span class="lineno"> 2766</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(vx, 1);</div><div class="line"><a name="l02767"></a><span class="lineno"> 2767</span>  }</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>  <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"1"</span>));</div><div class="line"><a name="l02770"></a><span class="lineno"> 2770</span>  y = <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>;</div><div class="line"><a name="l02771"></a><span class="lineno"> 2771</span>  d = y;</div><div class="line"><a name="l02772"></a><span class="lineno"> 2772</span>  i = 1;</div><div class="line"><a name="l02773"></a><span class="lineno"> 2773</span> </div><div class="line"><a name="l02774"></a><span class="lineno"> 2774</span>  <span class="keywordflow">while</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>((<a class="code" href="../../d9/d5a/struct_real.html">Real</a>*)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(d))) {</div><div class="line"><a name="l02775"></a><span class="lineno"> 2775</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> <span class="keyword">const</span> ey = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(y));</div><div class="line"><a name="l02776"></a><span class="lineno"> 2776</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> <span class="keyword">const</span> ed = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(d));</div><div class="line"><a name="l02777"></a><span class="lineno"> 2777</span>  ssize_t m = n - <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(ey - ed);</div><div class="line"><a name="l02778"></a><span class="lineno"> 2778</span> </div><div class="line"><a name="l02779"></a><span class="lineno"> 2779</span>  <a class="code" href="../../db/d2e/intern_8h.html#a9c9bfa5b17b2be949b3ca843e6a0ee9e">rb_thread_check_ints</a>();</div><div class="line"><a name="l02780"></a><span class="lineno"> 2780</span> </div><div class="line"><a name="l02781"></a><span class="lineno"> 2781</span>  <span class="keywordflow">if</span> (m <= 0) {</div><div class="line"><a name="l02782"></a><span class="lineno"> 2782</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02783"></a><span class="lineno"> 2783</span>  }</div><div class="line"><a name="l02784"></a><span class="lineno"> 2784</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((<span class="keywordtype">size_t</span>)m < <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>()) {</div><div class="line"><a name="l02785"></a><span class="lineno"> 2785</span>  m = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>();</div><div class="line"><a name="l02786"></a><span class="lineno"> 2786</span>  }</div><div class="line"><a name="l02787"></a><span class="lineno"> 2787</span> </div><div class="line"><a name="l02788"></a><span class="lineno"> 2788</span>  d = <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>(d, x); <span class="comment">/* d <- d * x */</span></div><div class="line"><a name="l02789"></a><span class="lineno"> 2789</span>  d = <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(d, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(i), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(m)); <span class="comment">/* d <- d / i */</span></div><div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(y, d); <span class="comment">/* y <- y + d */</span></div><div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>  ++i; <span class="comment">/* i <- i + 1 */</span></div><div class="line"><a name="l02792"></a><span class="lineno"> 2792</span>  }</div><div class="line"><a name="l02793"></a><span class="lineno"> 2793</span> </div><div class="line"><a name="l02794"></a><span class="lineno"> 2794</span>  <span class="keywordflow">if</span> (negative) {</div><div class="line"><a name="l02795"></a><span class="lineno"> 2795</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(<a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>, y, vprec);</div><div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>  }</div><div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>  vprec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(prec - <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(y)));</div><div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7d3b9883faa31ad8eb1e53e8c70bccf1">BigDecimal_round</a>(1, &vprec, y);</div><div class="line"><a name="l02800"></a><span class="lineno"> 2800</span>  }</div><div class="line"><a name="l02801"></a><span class="lineno"> 2801</span> </div><div class="line"><a name="l02802"></a><span class="lineno"> 2802</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(<a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>);</div><div class="line"><a name="l02803"></a><span class="lineno"> 2803</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(x);</div><div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(y);</div><div class="line"><a name="l02805"></a><span class="lineno"> 2805</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(d);</div><div class="line"><a name="l02806"></a><span class="lineno"> 2806</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="comment">/* call-seq:</span></div><div class="line"><a name="l02809"></a><span class="lineno"> 2809</span> <span class="comment"> * BigMath.log(decimal, numeric) -> BigDecimal</span></div><div class="line"><a name="l02810"></a><span class="lineno"> 2810</span> <span class="comment"> *</span></div><div class="line"><a name="l02811"></a><span class="lineno"> 2811</span> <span class="comment"> * Computes the natural logarithm of +decimal+ to the specified number of</span></div><div class="line"><a name="l02812"></a><span class="lineno"> 2812</span> <span class="comment"> * digits of precision, +numeric+.</span></div><div class="line"><a name="l02813"></a><span class="lineno"> 2813</span> <span class="comment"> *</span></div><div class="line"><a name="l02814"></a><span class="lineno"> 2814</span> <span class="comment"> * If +decimal+ is zero or negative, raises Math::DomainError.</span></div><div class="line"><a name="l02815"></a><span class="lineno"> 2815</span> <span class="comment"> *</span></div><div class="line"><a name="l02816"></a><span class="lineno"> 2816</span> <span class="comment"> * If +decimal+ is positive infinity, returns Infinity.</span></div><div class="line"><a name="l02817"></a><span class="lineno"> 2817</span> <span class="comment"> *</span></div><div class="line"><a name="l02818"></a><span class="lineno"> 2818</span> <span class="comment"> * If +decimal+ is NaN, returns NaN.</span></div><div class="line"><a name="l02819"></a><span class="lineno"> 2819</span> <span class="comment"> */</span></div><div class="line"><a name="l02820"></a><span class="lineno"> 2820</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02821"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a2b905921255a1053b11290702e4b035a"> 2821</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2b905921255a1053b11290702e4b035a">BigMath_s_log</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> klass, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vprec)</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>  ssize_t prec, n, i;</div><div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> expo;</div><div class="line"><a name="l02825"></a><span class="lineno"> 2825</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* vx = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l02826"></a><span class="lineno"> 2826</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vn, <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>, two, w, x2, y, d;</div><div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>  <span class="keywordtype">int</span> <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = 0;</div><div class="line"><a name="l02828"></a><span class="lineno"> 2828</span>  <span class="keywordtype">int</span> negative = 0;</div><div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>  <span class="keywordtype">int</span> infinite = 0;</div><div class="line"><a name="l02830"></a><span class="lineno"> 2830</span>  <span class="keywordtype">int</span> nan = 0;</div><div class="line"><a name="l02831"></a><span class="lineno"> 2831</span>  <span class="keywordtype">double</span> flo;</div><div class="line"><a name="l02832"></a><span class="lineno"> 2832</span>  <span class="keywordtype">long</span> fix;</div><div class="line"><a name="l02833"></a><span class="lineno"> 2833</span> </div><div class="line"><a name="l02834"></a><span class="lineno"> 2834</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc">is_integer</a>(vprec)) {</div><div class="line"><a name="l02835"></a><span class="lineno"> 2835</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"precision must be an Integer"</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> </div><div class="line"><a name="l02838"></a><span class="lineno"> 2838</span>  prec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5c55d652f4496a625bddf94264d277d0">NUM2SSIZET</a>(vprec);</div><div class="line"><a name="l02839"></a><span class="lineno"> 2839</span>  <span class="keywordflow">if</span> (prec <= 0) {</div><div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"Zero or negative precision for exp"</span>);</div><div class="line"><a name="l02841"></a><span class="lineno"> 2841</span>  }</div><div class="line"><a name="l02842"></a><span class="lineno"> 2842</span> </div><div class="line"><a name="l02843"></a><span class="lineno"> 2843</span>  <span class="comment">/* TODO: the following switch statement is almostly the same as one in the</span></div><div class="line"><a name="l02844"></a><span class="lineno"> 2844</span> <span class="comment"> * BigDecimalCmp function. */</span></div><div class="line"><a name="l02845"></a><span class="lineno"> 2845</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(x)) {</div><div class="line"><a name="l02846"></a><span class="lineno"> 2846</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a>:</div><div class="line"><a name="l02847"></a><span class="lineno"> 2847</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a>(x)) <span class="keywordflow">break</span>;</div><div class="line"><a name="l02848"></a><span class="lineno"> 2848</span>  vx = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(x);</div><div class="line"><a name="l02849"></a><span class="lineno"> 2849</span>  <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(vx);</div><div class="line"><a name="l02850"></a><span class="lineno"> 2850</span>  negative = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(vx) < 0;</div><div class="line"><a name="l02851"></a><span class="lineno"> 2851</span>  infinite = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(vx) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(vx);</div><div class="line"><a name="l02852"></a><span class="lineno"> 2852</span>  nan = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(vx);</div><div class="line"><a name="l02853"></a><span class="lineno"> 2853</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02854"></a><span class="lineno"> 2854</span> </div><div class="line"><a name="l02855"></a><span class="lineno"> 2855</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div><div class="line"><a name="l02856"></a><span class="lineno"> 2856</span>  fix = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a>(x);</div><div class="line"><a name="l02857"></a><span class="lineno"> 2857</span>  <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = fix == 0;</div><div class="line"><a name="l02858"></a><span class="lineno"> 2858</span>  negative = fix < 0;</div><div class="line"><a name="l02859"></a><span class="lineno"> 2859</span>  <span class="keywordflow">goto</span> get_vp_value;</div><div class="line"><a name="l02860"></a><span class="lineno"> 2860</span> </div><div class="line"><a name="l02861"></a><span class="lineno"> 2861</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div><div class="line"><a name="l02862"></a><span class="lineno"> 2862</span>  <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#a5c1b26ed157e5db3993f1d18cb44ec28">RBIGNUM_ZERO_P</a>(x);</div><div class="line"><a name="l02863"></a><span class="lineno"> 2863</span>  negative = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#af7ad03fdaa27fc55ae639d1da22758ad">RBIGNUM_NEGATIVE_P</a>(x);</div><div class="line"><a name="l02864"></a><span class="lineno"> 2864</span> get_vp_value:</div><div class="line"><a name="l02865"></a><span class="lineno"> 2865</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> || negative) <span class="keywordflow">break</span>;</div><div class="line"><a name="l02866"></a><span class="lineno"> 2866</span>  vx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(x, 0);</div><div class="line"><a name="l02867"></a><span class="lineno"> 2867</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02868"></a><span class="lineno"> 2868</span> </div><div class="line"><a name="l02869"></a><span class="lineno"> 2869</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div><div class="line"><a name="l02870"></a><span class="lineno"> 2870</span>  flo = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa7311e0d10f373b0bb50c41522dc3981">RFLOAT_VALUE</a>(x);</div><div class="line"><a name="l02871"></a><span class="lineno"> 2871</span>  <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = flo == 0;</div><div class="line"><a name="l02872"></a><span class="lineno"> 2872</span>  negative = flo < 0;</div><div class="line"><a name="l02873"></a><span class="lineno"> 2873</span>  infinite = <a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(flo);</div><div class="line"><a name="l02874"></a><span class="lineno"> 2874</span>  nan = <a class="code" href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a>(flo);</div><div class="line"><a name="l02875"></a><span class="lineno"> 2875</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> && !negative && !infinite && !nan) {</div><div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>  vx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(x, <a class="code" href="../../d6/d27/numeric_8c.html#ab51e57479919fd1978d19ccbb3e5b167">DBL_DIG</a>+1, 1);</div><div class="line"><a name="l02877"></a><span class="lineno"> 2877</span>  }</div><div class="line"><a name="l02878"></a><span class="lineno"> 2878</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02879"></a><span class="lineno"> 2879</span> </div><div class="line"><a name="l02880"></a><span class="lineno"> 2880</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a>:</div><div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>  <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#adad7ec3a29f1c795e3ce0ea7349c4dec">RRATIONAL_ZERO_P</a>(x);</div><div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>  negative = <a class="code" href="../../de/d07/bigdecimal_8c.html#a87f9f22c8e1a6bed3ee09e82437e2ec3">RRATIONAL_NEGATIVE_P</a>(x);</div><div class="line"><a name="l02883"></a><span class="lineno"> 2883</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> || negative) <span class="keywordflow">break</span>;</div><div class="line"><a name="l02884"></a><span class="lineno"> 2884</span>  vx = <a class="code" href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a>(x, prec, 1);</div><div class="line"><a name="l02885"></a><span class="lineno"> 2885</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02886"></a><span class="lineno"> 2886</span> </div><div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a05f3b14562e8d1e2d09e7a4438c1d2fa">T_COMPLEX</a>:</div><div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afbfe440decf2cbee08b00b297fa8d727">rb_eMathDomainError</a>,</div><div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>  <span class="stringliteral">"Complex argument for BigMath.log"</span>);</div><div class="line"><a name="l02890"></a><span class="lineno"> 2890</span> </div><div class="line"><a name="l02891"></a><span class="lineno"> 2891</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l02892"></a><span class="lineno"> 2892</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02893"></a><span class="lineno"> 2893</span>  }</div><div class="line"><a name="l02894"></a><span class="lineno"> 2894</span>  <span class="keywordflow">if</span> (infinite && !negative) {</div><div class="line"><a name="l02895"></a><span class="lineno"> 2895</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* vy;</div><div class="line"><a name="l02896"></a><span class="lineno"> 2896</span>  vy = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(prec, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l02897"></a><span class="lineno"> 2897</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(vy-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>);</div><div class="line"><a name="l02898"></a><span class="lineno"> 2898</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(vy, <a class="code" href="../../d0/da5/bigdecimal_8h.html#ab1bc31d57e2eecadb93b4a90d29a1a28">VP_SIGN_POSITIVE_INFINITE</a>);</div><div class="line"><a name="l02899"></a><span class="lineno"> 2899</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(vy);</div><div class="line"><a name="l02900"></a><span class="lineno"> 2900</span>  }</div><div class="line"><a name="l02901"></a><span class="lineno"> 2901</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (nan) {</div><div class="line"><a name="l02902"></a><span class="lineno"> 2902</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a>* vy;</div><div class="line"><a name="l02903"></a><span class="lineno"> 2903</span>  vy = <a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(prec, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l02904"></a><span class="lineno"> 2904</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(vy-><a class="code" href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">obj</a>);</div><div class="line"><a name="l02905"></a><span class="lineno"> 2905</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(vy);</div><div class="line"><a name="l02906"></a><span class="lineno"> 2906</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(vy);</div><div class="line"><a name="l02907"></a><span class="lineno"> 2907</span>  }</div><div class="line"><a name="l02908"></a><span class="lineno"> 2908</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> || negative) {</div><div class="line"><a name="l02909"></a><span class="lineno"> 2909</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afbfe440decf2cbee08b00b297fa8d727">rb_eMathDomainError</a>,</div><div class="line"><a name="l02910"></a><span class="lineno"> 2910</span>  <span class="stringliteral">"Zero or negative argument for log"</span>);</div><div class="line"><a name="l02911"></a><span class="lineno"> 2911</span>  }</div><div class="line"><a name="l02912"></a><span class="lineno"> 2912</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (vx == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02913"></a><span class="lineno"> 2913</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a">cannot_be_coerced_into_BigDecimal</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, x);</div><div class="line"><a name="l02914"></a><span class="lineno"> 2914</span>  }</div><div class="line"><a name="l02915"></a><span class="lineno"> 2915</span>  x = <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(vx);</div><div class="line"><a name="l02916"></a><span class="lineno"> 2916</span> </div><div class="line"><a name="l02917"></a><span class="lineno"> 2917</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(<a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>) = <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"1"</span>));</div><div class="line"><a name="l02918"></a><span class="lineno"> 2918</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(two) = <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <span class="stringliteral">"2"</span>));</div><div class="line"><a name="l02919"></a><span class="lineno"> 2919</span> </div><div class="line"><a name="l02920"></a><span class="lineno"> 2920</span>  n = prec + <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>();</div><div class="line"><a name="l02921"></a><span class="lineno"> 2921</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(vn) = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(n);</div><div class="line"><a name="l02922"></a><span class="lineno"> 2922</span>  expo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(vx);</div><div class="line"><a name="l02923"></a><span class="lineno"> 2923</span>  <span class="keywordflow">if</span> (expo < 0 || expo >= 3) {</div><div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>  <span class="keywordtype">char</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[16];</div><div class="line"><a name="l02925"></a><span class="lineno"> 2925</span>  <a class="code" href="../../d7/d72/subst_8h.html#aa367b75c5aed883fef5befbdf04835a4">snprintf</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, 16, <span class="stringliteral">"1E%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a158b527584596ec1f7cf812a0d2fd16a">PRIdVALUE</a>, -expo);</div><div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>  x = <a class="code" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a>(x, <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a>(1, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>)), vn);</div><div class="line"><a name="l02927"></a><span class="lineno"> 2927</span>  }</div><div class="line"><a name="l02928"></a><span class="lineno"> 2928</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02929"></a><span class="lineno"> 2929</span>  expo = 0;</div><div class="line"><a name="l02930"></a><span class="lineno"> 2930</span>  }</div><div class="line"><a name="l02931"></a><span class="lineno"> 2931</span>  w = <a class="code" href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b">BigDecimal_sub</a>(x, <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>);</div><div class="line"><a name="l02932"></a><span class="lineno"> 2932</span>  x = <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(w, <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(x, <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>), vn);</div><div class="line"><a name="l02933"></a><span class="lineno"> 2933</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(x2) = <a class="code" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a>(x, x, vn);</div><div class="line"><a name="l02934"></a><span class="lineno"> 2934</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(y) = x;</div><div class="line"><a name="l02935"></a><span class="lineno"> 2935</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a>(d) = y;</div><div class="line"><a name="l02936"></a><span class="lineno"> 2936</span>  i = 1;</div><div class="line"><a name="l02937"></a><span class="lineno"> 2937</span>  <span class="keywordflow">while</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>((<a class="code" href="../../d9/d5a/struct_real.html">Real</a>*)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(d))) {</div><div class="line"><a name="l02938"></a><span class="lineno"> 2938</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> <span class="keyword">const</span> ey = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(y));</div><div class="line"><a name="l02939"></a><span class="lineno"> 2939</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> <span class="keyword">const</span> ed = <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(d));</div><div class="line"><a name="l02940"></a><span class="lineno"> 2940</span>  ssize_t m = n - <a class="code" href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a>(ey - ed);</div><div class="line"><a name="l02941"></a><span class="lineno"> 2941</span>  <span class="keywordflow">if</span> (m <= 0) {</div><div class="line"><a name="l02942"></a><span class="lineno"> 2942</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02943"></a><span class="lineno"> 2943</span>  }</div><div class="line"><a name="l02944"></a><span class="lineno"> 2944</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((<span class="keywordtype">size_t</span>)m < <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>()) {</div><div class="line"><a name="l02945"></a><span class="lineno"> 2945</span>  m = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>();</div><div class="line"><a name="l02946"></a><span class="lineno"> 2946</span>  }</div><div class="line"><a name="l02947"></a><span class="lineno"> 2947</span> </div><div class="line"><a name="l02948"></a><span class="lineno"> 2948</span>  x = <a class="code" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a>(x2, x, vn);</div><div class="line"><a name="l02949"></a><span class="lineno"> 2949</span>  i += 2;</div><div class="line"><a name="l02950"></a><span class="lineno"> 2950</span>  d = <a class="code" href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a>(x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(i), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(m));</div><div class="line"><a name="l02951"></a><span class="lineno"> 2951</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(y, d);</div><div class="line"><a name="l02952"></a><span class="lineno"> 2952</span>  }</div><div class="line"><a name="l02953"></a><span class="lineno"> 2953</span> </div><div class="line"><a name="l02954"></a><span class="lineno"> 2954</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>(y, two);</div><div class="line"><a name="l02955"></a><span class="lineno"> 2955</span>  <span class="keywordflow">if</span> (expo != 0) {</div><div class="line"><a name="l02956"></a><span class="lineno"> 2956</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> log10, vexpo, dy;</div><div class="line"><a name="l02957"></a><span class="lineno"> 2957</span>  log10 = <a class="code" href="../../de/d07/bigdecimal_8c.html#a2b905921255a1053b11290702e4b035a">BigMath_s_log</a>(klass, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(10), vprec);</div><div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>  vexpo = <a class="code" href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a>(expo), 1));</div><div class="line"><a name="l02959"></a><span class="lineno"> 2959</span>  dy = <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>(log10, vexpo);</div><div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>  y = <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>(y, dy);</div><div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>  }</div><div class="line"><a name="l02962"></a><span class="lineno"> 2962</span> </div><div class="line"><a name="l02963"></a><span class="lineno"> 2963</span>  <span class="keywordflow">return</span> y;</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> </div><div class="line"><a name="l02966"></a><span class="lineno"> 2966</span> <span class="comment">/* Document-class: BigDecimal</span></div><div class="line"><a name="l02967"></a><span class="lineno"> 2967</span> <span class="comment"> * BigDecimal provides arbitrary-precision floating point decimal arithmetic.</span></div><div class="line"><a name="l02968"></a><span class="lineno"> 2968</span> <span class="comment"> *</span></div><div class="line"><a name="l02969"></a><span class="lineno"> 2969</span> <span class="comment"> * == Introduction</span></div><div class="line"><a name="l02970"></a><span class="lineno"> 2970</span> <span class="comment"> *</span></div><div class="line"><a name="l02971"></a><span class="lineno"> 2971</span> <span class="comment"> * Ruby provides built-in support for arbitrary precision integer arithmetic.</span></div><div class="line"><a name="l02972"></a><span class="lineno"> 2972</span> <span class="comment"> *</span></div><div class="line"><a name="l02973"></a><span class="lineno"> 2973</span> <span class="comment"> * For example:</span></div><div class="line"><a name="l02974"></a><span class="lineno"> 2974</span> <span class="comment"> *</span></div><div class="line"><a name="l02975"></a><span class="lineno"> 2975</span> <span class="comment"> * 42**13 #=> 1265437718438866624512</span></div><div class="line"><a name="l02976"></a><span class="lineno"> 2976</span> <span class="comment"> *</span></div><div class="line"><a name="l02977"></a><span class="lineno"> 2977</span> <span class="comment"> * BigDecimal provides similar support for very large or very accurate floating</span></div><div class="line"><a name="l02978"></a><span class="lineno"> 2978</span> <span class="comment"> * point numbers.</span></div><div class="line"><a name="l02979"></a><span class="lineno"> 2979</span> <span class="comment"> *</span></div><div class="line"><a name="l02980"></a><span class="lineno"> 2980</span> <span class="comment"> * Decimal arithmetic is also useful for general calculation, because it</span></div><div class="line"><a name="l02981"></a><span class="lineno"> 2981</span> <span class="comment"> * provides the correct answers people expect--whereas normal binary floating</span></div><div class="line"><a name="l02982"></a><span class="lineno"> 2982</span> <span class="comment"> * point arithmetic often introduces subtle errors because of the conversion</span></div><div class="line"><a name="l02983"></a><span class="lineno"> 2983</span> <span class="comment"> * between base 10 and base 2.</span></div><div class="line"><a name="l02984"></a><span class="lineno"> 2984</span> <span class="comment"> *</span></div><div class="line"><a name="l02985"></a><span class="lineno"> 2985</span> <span class="comment"> * For example, try:</span></div><div class="line"><a name="l02986"></a><span class="lineno"> 2986</span> <span class="comment"> *</span></div><div class="line"><a name="l02987"></a><span class="lineno"> 2987</span> <span class="comment"> * sum = 0</span></div><div class="line"><a name="l02988"></a><span class="lineno"> 2988</span> <span class="comment"> * 10_000.times do</span></div><div class="line"><a name="l02989"></a><span class="lineno"> 2989</span> <span class="comment"> * sum = sum + 0.0001</span></div><div class="line"><a name="l02990"></a><span class="lineno"> 2990</span> <span class="comment"> * end</span></div><div class="line"><a name="l02991"></a><span class="lineno"> 2991</span> <span class="comment"> * print sum #=> 0.9999999999999062</span></div><div class="line"><a name="l02992"></a><span class="lineno"> 2992</span> <span class="comment"> *</span></div><div class="line"><a name="l02993"></a><span class="lineno"> 2993</span> <span class="comment"> * and contrast with the output from:</span></div><div class="line"><a name="l02994"></a><span class="lineno"> 2994</span> <span class="comment"> *</span></div><div class="line"><a name="l02995"></a><span class="lineno"> 2995</span> <span class="comment"> * require 'bigdecimal'</span></div><div class="line"><a name="l02996"></a><span class="lineno"> 2996</span> <span class="comment"> *</span></div><div class="line"><a name="l02997"></a><span class="lineno"> 2997</span> <span class="comment"> * sum = BigDecimal.new("0")</span></div><div class="line"><a name="l02998"></a><span class="lineno"> 2998</span> <span class="comment"> * 10_000.times do</span></div><div class="line"><a name="l02999"></a><span class="lineno"> 2999</span> <span class="comment"> * sum = sum + BigDecimal.new("0.0001")</span></div><div class="line"><a name="l03000"></a><span class="lineno"> 3000</span> <span class="comment"> * end</span></div><div class="line"><a name="l03001"></a><span class="lineno"> 3001</span> <span class="comment"> * print sum #=> 0.1E1</span></div><div class="line"><a name="l03002"></a><span class="lineno"> 3002</span> <span class="comment"> *</span></div><div class="line"><a name="l03003"></a><span class="lineno"> 3003</span> <span class="comment"> * Similarly:</span></div><div class="line"><a name="l03004"></a><span class="lineno"> 3004</span> <span class="comment"> *</span></div><div class="line"><a name="l03005"></a><span class="lineno"> 3005</span> <span class="comment"> * (BigDecimal.new("1.2") - BigDecimal("1.0")) == BigDecimal("0.2") #=> true</span></div><div class="line"><a name="l03006"></a><span class="lineno"> 3006</span> <span class="comment"> *</span></div><div class="line"><a name="l03007"></a><span class="lineno"> 3007</span> <span class="comment"> * (1.2 - 1.0) == 0.2 #=> false</span></div><div class="line"><a name="l03008"></a><span class="lineno"> 3008</span> <span class="comment"> *</span></div><div class="line"><a name="l03009"></a><span class="lineno"> 3009</span> <span class="comment"> * == Special features of accurate decimal arithmetic</span></div><div class="line"><a name="l03010"></a><span class="lineno"> 3010</span> <span class="comment"> *</span></div><div class="line"><a name="l03011"></a><span class="lineno"> 3011</span> <span class="comment"> * Because BigDecimal is more accurate than normal binary floating point</span></div><div class="line"><a name="l03012"></a><span class="lineno"> 3012</span> <span class="comment"> * arithmetic, it requires some special values.</span></div><div class="line"><a name="l03013"></a><span class="lineno"> 3013</span> <span class="comment"> *</span></div><div class="line"><a name="l03014"></a><span class="lineno"> 3014</span> <span class="comment"> * === Infinity</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"> * BigDecimal sometimes needs to return infinity, for example if you divide</span></div><div class="line"><a name="l03017"></a><span class="lineno"> 3017</span> <span class="comment"> * a value by zero.</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"> * BigDecimal.new("1.0") / BigDecimal.new("0.0") #=> Infinity</span></div><div class="line"><a name="l03020"></a><span class="lineno"> 3020</span> <span class="comment"> * BigDecimal.new("-1.0") / BigDecimal.new("0.0") #=> -Infinity</span></div><div class="line"><a name="l03021"></a><span class="lineno"> 3021</span> <span class="comment"> *</span></div><div class="line"><a name="l03022"></a><span class="lineno"> 3022</span> <span class="comment"> * You can represent infinite numbers to BigDecimal using the strings</span></div><div class="line"><a name="l03023"></a><span class="lineno"> 3023</span> <span class="comment"> * <code>'Infinity'</code>, <code>'+Infinity'</code> and</span></div><div class="line"><a name="l03024"></a><span class="lineno"> 3024</span> <span class="comment"> * <code>'-Infinity'</code> (case-sensitive)</span></div><div class="line"><a name="l03025"></a><span class="lineno"> 3025</span> <span class="comment"> *</span></div><div class="line"><a name="l03026"></a><span class="lineno"> 3026</span> <span class="comment"> * === Not a Number</span></div><div class="line"><a name="l03027"></a><span class="lineno"> 3027</span> <span class="comment"> *</span></div><div class="line"><a name="l03028"></a><span class="lineno"> 3028</span> <span class="comment"> * When a computation results in an undefined value, the special value +NaN+</span></div><div class="line"><a name="l03029"></a><span class="lineno"> 3029</span> <span class="comment"> * (for 'not a number') is returned.</span></div><div class="line"><a name="l03030"></a><span class="lineno"> 3030</span> <span class="comment"> *</span></div><div class="line"><a name="l03031"></a><span class="lineno"> 3031</span> <span class="comment"> * Example:</span></div><div class="line"><a name="l03032"></a><span class="lineno"> 3032</span> <span class="comment"> *</span></div><div class="line"><a name="l03033"></a><span class="lineno"> 3033</span> <span class="comment"> * BigDecimal.new("0.0") / BigDecimal.new("0.0") #=> NaN</span></div><div class="line"><a name="l03034"></a><span class="lineno"> 3034</span> <span class="comment"> *</span></div><div class="line"><a name="l03035"></a><span class="lineno"> 3035</span> <span class="comment"> * You can also create undefined values.</span></div><div class="line"><a name="l03036"></a><span class="lineno"> 3036</span> <span class="comment"> *</span></div><div class="line"><a name="l03037"></a><span class="lineno"> 3037</span> <span class="comment"> * NaN is never considered to be the same as any other value, even NaN itself:</span></div><div class="line"><a name="l03038"></a><span class="lineno"> 3038</span> <span class="comment"> *</span></div><div class="line"><a name="l03039"></a><span class="lineno"> 3039</span> <span class="comment"> * n = BigDecimal.new('NaN')</span></div><div class="line"><a name="l03040"></a><span class="lineno"> 3040</span> <span class="comment"> * n == 0.0 #=> false</span></div><div class="line"><a name="l03041"></a><span class="lineno"> 3041</span> <span class="comment"> * n == n #=> false</span></div><div class="line"><a name="l03042"></a><span class="lineno"> 3042</span> <span class="comment"> *</span></div><div class="line"><a name="l03043"></a><span class="lineno"> 3043</span> <span class="comment"> * === Positive and negative zero</span></div><div class="line"><a name="l03044"></a><span class="lineno"> 3044</span> <span class="comment"> *</span></div><div class="line"><a name="l03045"></a><span class="lineno"> 3045</span> <span class="comment"> * If a computation results in a value which is too small to be represented as</span></div><div class="line"><a name="l03046"></a><span class="lineno"> 3046</span> <span class="comment"> * a BigDecimal within the currently specified limits of precision, zero must</span></div><div class="line"><a name="l03047"></a><span class="lineno"> 3047</span> <span class="comment"> * be returned.</span></div><div class="line"><a name="l03048"></a><span class="lineno"> 3048</span> <span class="comment"> *</span></div><div class="line"><a name="l03049"></a><span class="lineno"> 3049</span> <span class="comment"> * If the value which is too small to be represented is negative, a BigDecimal</span></div><div class="line"><a name="l03050"></a><span class="lineno"> 3050</span> <span class="comment"> * value of negative zero is returned.</span></div><div class="line"><a name="l03051"></a><span class="lineno"> 3051</span> <span class="comment"> *</span></div><div class="line"><a name="l03052"></a><span class="lineno"> 3052</span> <span class="comment"> * BigDecimal.new("1.0") / BigDecimal.new("-Infinity") #=> -0.0</span></div><div class="line"><a name="l03053"></a><span class="lineno"> 3053</span> <span class="comment"> *</span></div><div class="line"><a name="l03054"></a><span class="lineno"> 3054</span> <span class="comment"> * If the value is positive, a value of positive zero is returned.</span></div><div class="line"><a name="l03055"></a><span class="lineno"> 3055</span> <span class="comment"> *</span></div><div class="line"><a name="l03056"></a><span class="lineno"> 3056</span> <span class="comment"> * BigDecimal.new("1.0") / BigDecimal.new("Infinity") #=> 0.0</span></div><div class="line"><a name="l03057"></a><span class="lineno"> 3057</span> <span class="comment"> *</span></div><div class="line"><a name="l03058"></a><span class="lineno"> 3058</span> <span class="comment"> * (See BigDecimal.mode for how to specify limits of precision.)</span></div><div class="line"><a name="l03059"></a><span class="lineno"> 3059</span> <span class="comment"> *</span></div><div class="line"><a name="l03060"></a><span class="lineno"> 3060</span> <span class="comment"> * Note that +-0.0+ and +0.0+ are considered to be the same for the purposes of</span></div><div class="line"><a name="l03061"></a><span class="lineno"> 3061</span> <span class="comment"> * comparison.</span></div><div class="line"><a name="l03062"></a><span class="lineno"> 3062</span> <span class="comment"> *</span></div><div class="line"><a name="l03063"></a><span class="lineno"> 3063</span> <span class="comment"> * Note also that in mathematics, there is no particular concept of negative</span></div><div class="line"><a name="l03064"></a><span class="lineno"> 3064</span> <span class="comment"> * or positive zero; true mathematical zero has no sign.</span></div><div class="line"><a name="l03065"></a><span class="lineno"> 3065</span> <span class="comment"> *</span></div><div class="line"><a name="l03066"></a><span class="lineno"> 3066</span> <span class="comment"> * == License</span></div><div class="line"><a name="l03067"></a><span class="lineno"> 3067</span> <span class="comment"> *</span></div><div class="line"><a name="l03068"></a><span class="lineno"> 3068</span> <span class="comment"> * Copyright (C) 2002 by Shigeo Kobayashi <shigeo@tinyforest.gr.jp>.</span></div><div class="line"><a name="l03069"></a><span class="lineno"> 3069</span> <span class="comment"> *</span></div><div class="line"><a name="l03070"></a><span class="lineno"> 3070</span> <span class="comment"> * You may distribute under the terms of either the GNU General Public</span></div><div class="line"><a name="l03071"></a><span class="lineno"> 3071</span> <span class="comment"> * License or the Artistic License, as specified in the README file</span></div><div class="line"><a name="l03072"></a><span class="lineno"> 3072</span> <span class="comment"> * of the BigDecimal distribution.</span></div><div class="line"><a name="l03073"></a><span class="lineno"> 3073</span> <span class="comment"> *</span></div><div class="line"><a name="l03074"></a><span class="lineno"> 3074</span> <span class="comment"> * Maintained by mrkn <mrkn@mrkn.jp> and ruby-core members.</span></div><div class="line"><a name="l03075"></a><span class="lineno"> 3075</span> <span class="comment"> *</span></div><div class="line"><a name="l03076"></a><span class="lineno"> 3076</span> <span class="comment"> * Documented by zzak <zachary@zacharyscott.net>, mathew <meta@pobox.com>, and</span></div><div class="line"><a name="l03077"></a><span class="lineno"> 3077</span> <span class="comment"> * many other contributors.</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="keywordtype">void</span></div><div class="line"><a name="l03080"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a6353e0267d2b42ab89e4855e7bdca94c"> 3080</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a6353e0267d2b42ab89e4855e7bdca94c">Init_bigdecimal</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l03081"></a><span class="lineno"> 3081</span> {</div><div class="line"><a name="l03082"></a><span class="lineno"> 3082</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l03083"></a><span class="lineno"> 3083</span> </div><div class="line"><a name="l03084"></a><span class="lineno"> 3084</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#afe01563e1fb7a76dc4b4d8a8646a35da">id_BigDecimal_exception_mode</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"BigDecimal.exception_mode"</span>);</div><div class="line"><a name="l03085"></a><span class="lineno"> 3085</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a0ac8ed0a9c0540f4de2a1dc3417c8ea5">id_BigDecimal_rounding_mode</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"BigDecimal.rounding_mode"</span>);</div><div class="line"><a name="l03086"></a><span class="lineno"> 3086</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a1d998377c2b3f6cd912a39f23c36e2e8">id_BigDecimal_precision_limit</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"BigDecimal.precision_limit"</span>);</div><div class="line"><a name="l03087"></a><span class="lineno"> 3087</span> </div><div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>  <span class="comment">/* Initialize VP routines */</span></div><div class="line"><a name="l03089"></a><span class="lineno"> 3089</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a234ec5ef29b45597dd84498046e76bbc">VpInit</a>(0UL);</div><div class="line"><a name="l03090"></a><span class="lineno"> 3090</span> </div><div class="line"><a name="l03091"></a><span class="lineno"> 3091</span>  <span class="comment">/* Class and method registration */</span></div><div class="line"><a name="l03092"></a><span class="lineno"> 3092</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a> = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"BigDecimal"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6e2fb52974af4f37fee056d8b734e913">rb_cNumeric</a>);</div><div class="line"><a name="l03093"></a><span class="lineno"> 3093</span>  <a class="code" href="../../db/d2e/intern_8h.html#a6c99ed7f070458b961026d43d27d0642">rb_define_alloc_func</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad23fb921b0f5c8bce1e126b2a65c28f5">BigDecimal_s_allocate</a>);</div><div class="line"><a name="l03094"></a><span class="lineno"> 3094</span> </div><div class="line"><a name="l03095"></a><span class="lineno"> 3095</span>  <span class="comment">/* Global function */</span></div><div class="line"><a name="l03096"></a><span class="lineno"> 3096</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gac08f58e00836e4e2586689e45b781bdd">rb_define_global_function</a>(<span class="stringliteral">"BigDecimal"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a1abd021043d9063b2fce9e9c614b827f">BigDecimal_global_new</a>, -1);</div><div class="line"><a name="l03097"></a><span class="lineno"> 3097</span> </div><div class="line"><a name="l03098"></a><span class="lineno"> 3098</span>  <span class="comment">/* Class methods */</span></div><div class="line"><a name="l03099"></a><span class="lineno"> 3099</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"mode"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a9fbcfa2c2698e10a718e768ceab49468">BigDecimal_mode</a>, -1);</div><div class="line"><a name="l03100"></a><span class="lineno"> 3100</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"limit"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a72a65531369f3e92b0c9d239b6c46c5d">BigDecimal_limit</a>, -1);</div><div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"double_fig"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#adfe3ba1c7c2dc320965ff2347d6eac9d">BigDecimal_double_fig</a>, 0);</div><div class="line"><a name="l03102"></a><span class="lineno"> 3102</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"_load"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac8975974ba962574fb9b99ffb18c0ce1">BigDecimal_load</a>, 1);</div><div class="line"><a name="l03103"></a><span class="lineno"> 3103</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ver"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ace695af41191f48a09020f1d790aedba">BigDecimal_version</a>, 0);</div><div class="line"><a name="l03104"></a><span class="lineno"> 3104</span> </div><div class="line"><a name="l03105"></a><span class="lineno"> 3105</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"save_exception_mode"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac33500d52ee47a5ad8a8d6b3360190b2">BigDecimal_save_exception_mode</a>, 0);</div><div class="line"><a name="l03106"></a><span class="lineno"> 3106</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"save_rounding_mode"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a75be8c999b5d4423cccde9a1488671e7">BigDecimal_save_rounding_mode</a>, 0);</div><div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"save_limit"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac4f5ca0bbea5b3103cb155ca01ae9e67">BigDecimal_save_limit</a>, 0);</div><div class="line"><a name="l03108"></a><span class="lineno"> 3108</span> </div><div class="line"><a name="l03109"></a><span class="lineno"> 3109</span>  <span class="comment">/* Constants definition */</span></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="comment">/*</span></div><div class="line"><a name="l03112"></a><span class="lineno"> 3112</span> <span class="comment"> * Base value used in internal calculations. On a 32 bit system, BASE</span></div><div class="line"><a name="l03113"></a><span class="lineno"> 3113</span> <span class="comment"> * is 10000, indicating that calculation is done in groups of 4 digits.</span></div><div class="line"><a name="l03114"></a><span class="lineno"> 3114</span> <span class="comment"> * (If it were larger, BASE**2 wouldn't fit in 32 bits, so you couldn't</span></div><div class="line"><a name="l03115"></a><span class="lineno"> 3115</span> <span class="comment"> * guarantee that two groups could always be multiplied together without</span></div><div class="line"><a name="l03116"></a><span class="lineno"> 3116</span> <span class="comment"> * overflow.)</span></div><div class="line"><a name="l03117"></a><span class="lineno"> 3117</span> <span class="comment"> */</span></div><div class="line"><a name="l03118"></a><span class="lineno"> 3118</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"BASE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../d0/da5/bigdecimal_8h.html#a394f908a36012a7fe5901cb16c96498e">VpBaseVal</a>()));</div><div class="line"><a name="l03119"></a><span class="lineno"> 3119</span> </div><div class="line"><a name="l03120"></a><span class="lineno"> 3120</span>  <span class="comment">/* Exceptions */</span></div><div class="line"><a name="l03121"></a><span class="lineno"> 3121</span> </div><div class="line"><a name="l03122"></a><span class="lineno"> 3122</span>  <span class="comment">/*</span></div><div class="line"><a name="l03123"></a><span class="lineno"> 3123</span> <span class="comment"> * 0xff: Determines whether overflow, underflow or zero divide result in</span></div><div class="line"><a name="l03124"></a><span class="lineno"> 3124</span> <span class="comment"> * an exception being thrown. See BigDecimal.mode.</span></div><div class="line"><a name="l03125"></a><span class="lineno"> 3125</span> <span class="comment"> */</span></div><div class="line"><a name="l03126"></a><span class="lineno"> 3126</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"EXCEPTION_ALL"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#abec6bb5a28206ba19d42a7ef58329505">VP_EXCEPTION_ALL</a>));</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">/*</span></div><div class="line"><a name="l03129"></a><span class="lineno"> 3129</span> <span class="comment"> * 0x02: Determines what happens when the result of a computation is not a</span></div><div class="line"><a name="l03130"></a><span class="lineno"> 3130</span> <span class="comment"> * number (NaN). See BigDecimal.mode.</span></div><div class="line"><a name="l03131"></a><span class="lineno"> 3131</span> <span class="comment"> */</span></div><div class="line"><a name="l03132"></a><span class="lineno"> 3132</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"EXCEPTION_NaN"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>));</div><div class="line"><a name="l03133"></a><span class="lineno"> 3133</span> </div><div class="line"><a name="l03134"></a><span class="lineno"> 3134</span>  <span class="comment">/*</span></div><div class="line"><a name="l03135"></a><span class="lineno"> 3135</span> <span class="comment"> * 0x01: Determines what happens when the result of a computation is</span></div><div class="line"><a name="l03136"></a><span class="lineno"> 3136</span> <span class="comment"> * infinity. See BigDecimal.mode.</span></div><div class="line"><a name="l03137"></a><span class="lineno"> 3137</span> <span class="comment"> */</span></div><div class="line"><a name="l03138"></a><span class="lineno"> 3138</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"EXCEPTION_INFINITY"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>));</div><div class="line"><a name="l03139"></a><span class="lineno"> 3139</span> </div><div class="line"><a name="l03140"></a><span class="lineno"> 3140</span>  <span class="comment">/*</span></div><div class="line"><a name="l03141"></a><span class="lineno"> 3141</span> <span class="comment"> * 0x04: Determines what happens when the result of a computation is an</span></div><div class="line"><a name="l03142"></a><span class="lineno"> 3142</span> <span class="comment"> * underflow (a result too small to be represented). See BigDecimal.mode.</span></div><div class="line"><a name="l03143"></a><span class="lineno"> 3143</span> <span class="comment"> */</span></div><div class="line"><a name="l03144"></a><span class="lineno"> 3144</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"EXCEPTION_UNDERFLOW"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>));</div><div class="line"><a name="l03145"></a><span class="lineno"> 3145</span> </div><div class="line"><a name="l03146"></a><span class="lineno"> 3146</span>  <span class="comment">/*</span></div><div class="line"><a name="l03147"></a><span class="lineno"> 3147</span> <span class="comment"> * 0x01: Determines what happens when the result of a computation is an</span></div><div class="line"><a name="l03148"></a><span class="lineno"> 3148</span> <span class="comment"> * overflow (a result too large to be represented). See BigDecimal.mode.</span></div><div class="line"><a name="l03149"></a><span class="lineno"> 3149</span> <span class="comment"> */</span></div><div class="line"><a name="l03150"></a><span class="lineno"> 3150</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"EXCEPTION_OVERFLOW"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ab2726f87fe36be3177b3aef61eb82c46">VP_EXCEPTION_OVERFLOW</a>));</div><div class="line"><a name="l03151"></a><span class="lineno"> 3151</span> </div><div class="line"><a name="l03152"></a><span class="lineno"> 3152</span>  <span class="comment">/*</span></div><div class="line"><a name="l03153"></a><span class="lineno"> 3153</span> <span class="comment"> * 0x01: Determines what happens when a division by zero is performed.</span></div><div class="line"><a name="l03154"></a><span class="lineno"> 3154</span> <span class="comment"> * See BigDecimal.mode.</span></div><div class="line"><a name="l03155"></a><span class="lineno"> 3155</span> <span class="comment"> */</span></div><div class="line"><a name="l03156"></a><span class="lineno"> 3156</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"EXCEPTION_ZERODIVIDE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a>));</div><div class="line"><a name="l03157"></a><span class="lineno"> 3157</span> </div><div class="line"><a name="l03158"></a><span class="lineno"> 3158</span>  <span class="comment">/*</span></div><div class="line"><a name="l03159"></a><span class="lineno"> 3159</span> <span class="comment"> * 0x100: Determines what happens when a result must be rounded in order to</span></div><div class="line"><a name="l03160"></a><span class="lineno"> 3160</span> <span class="comment"> * fit in the appropriate number of significant digits. See</span></div><div class="line"><a name="l03161"></a><span class="lineno"> 3161</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l03162"></a><span class="lineno"> 3162</span> <span class="comment"> */</span></div><div class="line"><a name="l03163"></a><span class="lineno"> 3163</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_MODE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae80ec6562f2f6a9efdcadbc9206f6a2e">VP_ROUND_MODE</a>));</div><div class="line"><a name="l03164"></a><span class="lineno"> 3164</span> </div><div class="line"><a name="l03165"></a><span class="lineno"> 3165</span>  <span class="comment">/* 1: Indicates that values should be rounded away from zero. See</span></div><div class="line"><a name="l03166"></a><span class="lineno"> 3166</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l03167"></a><span class="lineno"> 3167</span> <span class="comment"> */</span></div><div class="line"><a name="l03168"></a><span class="lineno"> 3168</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_UP"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#acc54e540534a259d314f5be704e41dbd">VP_ROUND_UP</a>));</div><div class="line"><a name="l03169"></a><span class="lineno"> 3169</span> </div><div class="line"><a name="l03170"></a><span class="lineno"> 3170</span>  <span class="comment">/* 2: Indicates that values should be rounded towards zero. See</span></div><div class="line"><a name="l03171"></a><span class="lineno"> 3171</span> <span class="comment"> * BigDecimal.mode.</span></div><div class="line"><a name="l03172"></a><span class="lineno"> 3172</span> <span class="comment"> */</span></div><div class="line"><a name="l03173"></a><span class="lineno"> 3173</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_DOWN"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>));</div><div class="line"><a name="l03174"></a><span class="lineno"> 3174</span> </div><div class="line"><a name="l03175"></a><span class="lineno"> 3175</span>  <span class="comment">/* 3: Indicates that digits >= 5 should be rounded up, others rounded down.</span></div><div class="line"><a name="l03176"></a><span class="lineno"> 3176</span> <span class="comment"> * See BigDecimal.mode. */</span></div><div class="line"><a name="l03177"></a><span class="lineno"> 3177</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_HALF_UP"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aee9c0b939acd1671730ec28bb6fedf6e">VP_ROUND_HALF_UP</a>));</div><div class="line"><a name="l03178"></a><span class="lineno"> 3178</span> </div><div class="line"><a name="l03179"></a><span class="lineno"> 3179</span>  <span class="comment">/* 4: Indicates that digits >= 6 should be rounded up, others rounded down.</span></div><div class="line"><a name="l03180"></a><span class="lineno"> 3180</span> <span class="comment"> * See BigDecimal.mode.</span></div><div class="line"><a name="l03181"></a><span class="lineno"> 3181</span> <span class="comment"> */</span></div><div class="line"><a name="l03182"></a><span class="lineno"> 3182</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_HALF_DOWN"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a77487cab033862462c80f665bb3693b0">VP_ROUND_HALF_DOWN</a>));</div><div class="line"><a name="l03183"></a><span class="lineno"> 3183</span>  <span class="comment">/* 5: Round towards +Infinity. See BigDecimal.mode. */</span></div><div class="line"><a name="l03184"></a><span class="lineno"> 3184</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_CEILING"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a>));</div><div class="line"><a name="l03185"></a><span class="lineno"> 3185</span> </div><div class="line"><a name="l03186"></a><span class="lineno"> 3186</span>  <span class="comment">/* 6: Round towards -Infinity. See BigDecimal.mode. */</span></div><div class="line"><a name="l03187"></a><span class="lineno"> 3187</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_FLOOR"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>));</div><div class="line"><a name="l03188"></a><span class="lineno"> 3188</span> </div><div class="line"><a name="l03189"></a><span class="lineno"> 3189</span>  <span class="comment">/* 7: Round towards the even neighbor. See BigDecimal.mode. */</span></div><div class="line"><a name="l03190"></a><span class="lineno"> 3190</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ROUND_HALF_EVEN"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a2372d42c88c84f677d64f400574f730c">VP_ROUND_HALF_EVEN</a>));</div><div class="line"><a name="l03191"></a><span class="lineno"> 3191</span> </div><div class="line"><a name="l03192"></a><span class="lineno"> 3192</span>  <span class="comment">/* 0: Indicates that a value is not a number. See BigDecimal.sign. */</span></div><div class="line"><a name="l03193"></a><span class="lineno"> 3193</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_NaN"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a0195dac9e7a72161fc32a26dd8408dae">VP_SIGN_NaN</a>));</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>  <span class="comment">/* 1: Indicates that a value is +0. See BigDecimal.sign. */</span></div><div class="line"><a name="l03196"></a><span class="lineno"> 3196</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_POSITIVE_ZERO"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a22784e02086ce1ef3f4d8394804e76fa">VP_SIGN_POSITIVE_ZERO</a>));</div><div class="line"><a name="l03197"></a><span class="lineno"> 3197</span> </div><div class="line"><a name="l03198"></a><span class="lineno"> 3198</span>  <span class="comment">/* -1: Indicates that a value is -0. See BigDecimal.sign. */</span></div><div class="line"><a name="l03199"></a><span class="lineno"> 3199</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_NEGATIVE_ZERO"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa8f544c7ad94d9b0e0e6d5ca550f709c">VP_SIGN_NEGATIVE_ZERO</a>));</div><div class="line"><a name="l03200"></a><span class="lineno"> 3200</span> </div><div class="line"><a name="l03201"></a><span class="lineno"> 3201</span>  <span class="comment">/* 2: Indicates that a value is positive and finite. See BigDecimal.sign. */</span></div><div class="line"><a name="l03202"></a><span class="lineno"> 3202</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_POSITIVE_FINITE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ad0c8fd5bcbd21b0a8e0cf974faf48d6f">VP_SIGN_POSITIVE_FINITE</a>));</div><div class="line"><a name="l03203"></a><span class="lineno"> 3203</span> </div><div class="line"><a name="l03204"></a><span class="lineno"> 3204</span>  <span class="comment">/* -2: Indicates that a value is negative and finite. See BigDecimal.sign. */</span></div><div class="line"><a name="l03205"></a><span class="lineno"> 3205</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_NEGATIVE_FINITE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a7daa3bf02d8ef9d59675ae5b83abd70c">VP_SIGN_NEGATIVE_FINITE</a>));</div><div class="line"><a name="l03206"></a><span class="lineno"> 3206</span> </div><div class="line"><a name="l03207"></a><span class="lineno"> 3207</span>  <span class="comment">/* 3: Indicates that a value is positive and infinite. See BigDecimal.sign. */</span></div><div class="line"><a name="l03208"></a><span class="lineno"> 3208</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_POSITIVE_INFINITE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ab1bc31d57e2eecadb93b4a90d29a1a28">VP_SIGN_POSITIVE_INFINITE</a>));</div><div class="line"><a name="l03209"></a><span class="lineno"> 3209</span> </div><div class="line"><a name="l03210"></a><span class="lineno"> 3210</span>  <span class="comment">/* -3: Indicates that a value is negative and infinite. See BigDecimal.sign. */</span></div><div class="line"><a name="l03211"></a><span class="lineno"> 3211</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"SIGN_NEGATIVE_INFINITE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a220d58cb4a7494b09bd0a4bf3ad23ddb">VP_SIGN_NEGATIVE_INFINITE</a>));</div><div class="line"><a name="l03212"></a><span class="lineno"> 3212</span> </div><div class="line"><a name="l03213"></a><span class="lineno"> 3213</span>  arg = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"+Infinity"</span>);</div><div class="line"><a name="l03214"></a><span class="lineno"> 3214</span>  <span class="comment">/* Positive infinity value. */</span></div><div class="line"><a name="l03215"></a><span class="lineno"> 3215</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"INFINITY"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a1abd021043d9063b2fce9e9c614b827f">BigDecimal_global_new</a>(1, &arg, <a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>));</div><div class="line"><a name="l03216"></a><span class="lineno"> 3216</span>  arg = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"NaN"</span>);</div><div class="line"><a name="l03217"></a><span class="lineno"> 3217</span>  <span class="comment">/* 'Not a Number' value. */</span></div><div class="line"><a name="l03218"></a><span class="lineno"> 3218</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"NAN"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a1abd021043d9063b2fce9e9c614b827f">BigDecimal_global_new</a>(1, &arg, <a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>));</div><div class="line"><a name="l03219"></a><span class="lineno"> 3219</span> </div><div class="line"><a name="l03220"></a><span class="lineno"> 3220</span> </div><div class="line"><a name="l03221"></a><span class="lineno"> 3221</span>  <span class="comment">/* instance methods */</span></div><div class="line"><a name="l03222"></a><span class="lineno"> 3222</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"initialize"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a65f5f3594a4305ee3413931ba0c0bdec">BigDecimal_initialize</a>, -1);</div><div class="line"><a name="l03223"></a><span class="lineno"> 3223</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"initialize_copy"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#acb1055f4ad25d6bdac7a385c534b38eb">BigDecimal_initialize_copy</a>, 1);</div><div class="line"><a name="l03224"></a><span class="lineno"> 3224</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"precs"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac3fe6c73c4f33c17531316265dd89d52">BigDecimal_prec</a>, 0);</div><div class="line"><a name="l03225"></a><span class="lineno"> 3225</span> </div><div class="line"><a name="l03226"></a><span class="lineno"> 3226</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"add"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#aaf63eb20d95e99fc7e40717dec7f07a7">BigDecimal_add2</a>, 2);</div><div class="line"><a name="l03227"></a><span class="lineno"> 3227</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"sub"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a442bcf9d63bf053f7f5e7f384685a7e4">BigDecimal_sub2</a>, 2);</div><div class="line"><a name="l03228"></a><span class="lineno"> 3228</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"mult"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a>, 2);</div><div class="line"><a name="l03229"></a><span class="lineno"> 3229</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"div"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ae25191e34dc51c7c90bdc007f22c7720">BigDecimal_div3</a>, -1);</div><div class="line"><a name="l03230"></a><span class="lineno"> 3230</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"hash"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a9df44346cf2f3ab824b826fd969fdee4">BigDecimal_hash</a>, 0);</div><div class="line"><a name="l03231"></a><span class="lineno"> 3231</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"to_s"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a52756fbeab6f1a1e646b6fff19d8b680">BigDecimal_to_s</a>, -1);</div><div class="line"><a name="l03232"></a><span class="lineno"> 3232</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"to_i"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>, 0);</div><div class="line"><a name="l03233"></a><span class="lineno"> 3233</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"to_int"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a>, 0);</div><div class="line"><a name="l03234"></a><span class="lineno"> 3234</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"to_r"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a6c872656b86006154c1c08219e863cf5">BigDecimal_to_r</a>, 0);</div><div class="line"><a name="l03235"></a><span class="lineno"> 3235</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"split"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc">BigDecimal_split</a>, 0);</div><div class="line"><a name="l03236"></a><span class="lineno"> 3236</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"+"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a>, 1);</div><div class="line"><a name="l03237"></a><span class="lineno"> 3237</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"-"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b">BigDecimal_sub</a>, 1);</div><div class="line"><a name="l03238"></a><span class="lineno"> 3238</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"+@"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ab1cd60a85dc47ced3b66f7f3434eed11">BigDecimal_uplus</a>, 0);</div><div class="line"><a name="l03239"></a><span class="lineno"> 3239</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"-@"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7dce62c291131453c45d5e76ca49be70">BigDecimal_neg</a>, 0);</div><div class="line"><a name="l03240"></a><span class="lineno"> 3240</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"*"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a>, 1);</div><div class="line"><a name="l03241"></a><span class="lineno"> 3241</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"/"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a3a26d3aa5dd8105d1adf6a064b5345cd">BigDecimal_div</a>, 1);</div><div class="line"><a name="l03242"></a><span class="lineno"> 3242</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"quo"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a3a26d3aa5dd8105d1adf6a064b5345cd">BigDecimal_div</a>, 1);</div><div class="line"><a name="l03243"></a><span class="lineno"> 3243</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"%"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a349fa12d5399ab7c1fc7b3b7373ccdf2">BigDecimal_mod</a>, 1);</div><div class="line"><a name="l03244"></a><span class="lineno"> 3244</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"modulo"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a349fa12d5399ab7c1fc7b3b7373ccdf2">BigDecimal_mod</a>, 1);</div><div class="line"><a name="l03245"></a><span class="lineno"> 3245</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"remainder"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a83711d728e30b364c9e235c96a0c5241">BigDecimal_remainder</a>, 1);</div><div class="line"><a name="l03246"></a><span class="lineno"> 3246</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"divmod"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b778538ce920f9d867c79af0f6b1b74">BigDecimal_divmod</a>, 1);</div><div class="line"><a name="l03247"></a><span class="lineno"> 3247</span>  <span class="comment">/* rb_define_method(rb_cBigDecimal, "dup", BigDecimal_dup, 0); */</span></div><div class="line"><a name="l03248"></a><span class="lineno"> 3248</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"to_f"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a132ae3fa1a22725c315f229d7b629a51">BigDecimal_to_f</a>, 0);</div><div class="line"><a name="l03249"></a><span class="lineno"> 3249</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"abs"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#aa82f785f0abe75a1569197552afa61b9">BigDecimal_abs</a>, 0);</div><div class="line"><a name="l03250"></a><span class="lineno"> 3250</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"sqrt"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a563728ffb7fcfed5a35175b4643fac56">BigDecimal_sqrt</a>, 1);</div><div class="line"><a name="l03251"></a><span class="lineno"> 3251</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"fix"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a149cf9b34f9e0208b56678120e603855">BigDecimal_fix</a>, 0);</div><div class="line"><a name="l03252"></a><span class="lineno"> 3252</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"round"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7d3b9883faa31ad8eb1e53e8c70bccf1">BigDecimal_round</a>, -1);</div><div class="line"><a name="l03253"></a><span class="lineno"> 3253</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"frac"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a39fe9fc5399c155238c324987da36d06">BigDecimal_frac</a>, 0);</div><div class="line"><a name="l03254"></a><span class="lineno"> 3254</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"floor"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#abbdf162048a03359f27ce733cacc3e59">BigDecimal_floor</a>, -1);</div><div class="line"><a name="l03255"></a><span class="lineno"> 3255</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"ceil"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a5b2fbf236ac0dbbaee2c84fc3ac3fa6f">BigDecimal_ceil</a>, -1);</div><div class="line"><a name="l03256"></a><span class="lineno"> 3256</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"power"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a5cea7f6f29d3c527b43b035e4a404611">BigDecimal_power</a>, -1);</div><div class="line"><a name="l03257"></a><span class="lineno"> 3257</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"**"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#abe0044576d28bd76c2b6e9664015feb9">BigDecimal_power_op</a>, 1);</div><div class="line"><a name="l03258"></a><span class="lineno"> 3258</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"<=>"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#acf27c16d35c11ac6e00ad7d5ed2c4f95">BigDecimal_comp</a>, 1);</div><div class="line"><a name="l03259"></a><span class="lineno"> 3259</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"=="</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62">BigDecimal_eq</a>, 1);</div><div class="line"><a name="l03260"></a><span class="lineno"> 3260</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"==="</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62">BigDecimal_eq</a>, 1);</div><div class="line"><a name="l03261"></a><span class="lineno"> 3261</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"eql?"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62">BigDecimal_eq</a>, 1);</div><div class="line"><a name="l03262"></a><span class="lineno"> 3262</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"<"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac678ecb00699b93cc8a02d61a36a38f2">BigDecimal_lt</a>, 1);</div><div class="line"><a name="l03263"></a><span class="lineno"> 3263</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"<="</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a1072f4d98b73dd535ca26013cc61a48c">BigDecimal_le</a>, 1);</div><div class="line"><a name="l03264"></a><span class="lineno"> 3264</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">">"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a72d6e307a9061dab0146cfea01624">BigDecimal_gt</a>, 1);</div><div class="line"><a name="l03265"></a><span class="lineno"> 3265</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">">="</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a720e6653b29830a27680d35566f6ea6b">BigDecimal_ge</a>, 1);</div><div class="line"><a name="l03266"></a><span class="lineno"> 3266</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"zero?"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#af212dc7d8469aede930b124e7bc4bf30">BigDecimal_zero</a>, 0);</div><div class="line"><a name="l03267"></a><span class="lineno"> 3267</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"nonzero?"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a69cff086fca954a9b0f141a03511a6a3">BigDecimal_nonzero</a>, 0);</div><div class="line"><a name="l03268"></a><span class="lineno"> 3268</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"coerce"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a55eb47e6caadf7d8c9f124377115577b">BigDecimal_coerce</a>, 1);</div><div class="line"><a name="l03269"></a><span class="lineno"> 3269</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"inspect"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a92b8fe4240f0322f58b8b1b73e33fb6a">BigDecimal_inspect</a>, 0);</div><div class="line"><a name="l03270"></a><span class="lineno"> 3270</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"exponent"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ad7eddd4134da50fae112846346e4556b">BigDecimal_exponent</a>, 0);</div><div class="line"><a name="l03271"></a><span class="lineno"> 3271</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"sign"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a2576fd6820d58e17b081278528117b5a">BigDecimal_sign</a>, 0);</div><div class="line"><a name="l03272"></a><span class="lineno"> 3272</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"nan?"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a73a35dd676615ec30b0e8941977efd8e">BigDecimal_IsNaN</a>, 0);</div><div class="line"><a name="l03273"></a><span class="lineno"> 3273</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"infinite?"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac42ff2e6703730f1bc0d047b0234e200">BigDecimal_IsInfinite</a>, 0);</div><div class="line"><a name="l03274"></a><span class="lineno"> 3274</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"finite?"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac2534915c2fb0fa8ba8108928b5899f4">BigDecimal_IsFinite</a>, 0);</div><div class="line"><a name="l03275"></a><span class="lineno"> 3275</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"truncate"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#aeadb5e4d0b30269ffc034396c5b5e53f">BigDecimal_truncate</a>, -1);</div><div class="line"><a name="l03276"></a><span class="lineno"> 3276</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a>, <span class="stringliteral">"_dump"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#aeee2f166ec27c2e6aefc33468117fc83">BigDecimal_dump</a>, -1);</div><div class="line"><a name="l03277"></a><span class="lineno"> 3277</span> </div><div class="line"><a name="l03278"></a><span class="lineno"> 3278</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ad2171de399eb36babca44e372300f1ad">rb_mBigMath</a> = <a class="code" href="../../de/ddf/group__class.html#ga911071d40f9312e49a774ea0e1b12869">rb_define_module</a>(<span class="stringliteral">"BigMath"</span>);</div><div class="line"><a name="l03279"></a><span class="lineno"> 3279</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad2171de399eb36babca44e372300f1ad">rb_mBigMath</a>, <span class="stringliteral">"exp"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a889731484a3e17594f791993d5a0a41e">BigMath_s_exp</a>, 2);</div><div class="line"><a name="l03280"></a><span class="lineno"> 3280</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#ad2171de399eb36babca44e372300f1ad">rb_mBigMath</a>, <span class="stringliteral">"log"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a2b905921255a1053b11290702e4b035a">BigMath_s_log</a>, 2);</div><div class="line"><a name="l03281"></a><span class="lineno"> 3281</span> </div><div class="line"><a name="l03282"></a><span class="lineno"> 3282</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#aa33f1d5c5fafc96f132763c64f9cc9bf">id_up</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"up"</span>);</div><div class="line"><a name="l03283"></a><span class="lineno"> 3283</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a0393347c77fd136263e04f331e471422">id_down</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"down"</span>);</div><div class="line"><a name="l03284"></a><span class="lineno"> 3284</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ad819f88e9d71caaa088391040fab2092">id_truncate</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"truncate"</span>);</div><div class="line"><a name="l03285"></a><span class="lineno"> 3285</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#aa284e4519eb2b478d5d86cf38d265ee3">id_half_up</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"half_up"</span>);</div><div class="line"><a name="l03286"></a><span class="lineno"> 3286</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e61d7e60f95e591efc4d7471e0ad3c5">id_default</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"default"</span>);</div><div class="line"><a name="l03287"></a><span class="lineno"> 3287</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#abe745ac9a1616c208a89359a189df4ce">id_half_down</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"half_down"</span>);</div><div class="line"><a name="l03288"></a><span class="lineno"> 3288</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a2f6d6d786ec3e7b4fe54474966f499ec">id_half_even</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"half_even"</span>);</div><div class="line"><a name="l03289"></a><span class="lineno"> 3289</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a8791cc94c323922410fc7dc6b19108ed">id_banker</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"banker"</span>);</div><div class="line"><a name="l03290"></a><span class="lineno"> 3290</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a56e3f63a8d8066c0e546d88ca466faea">id_ceiling</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"ceiling"</span>);</div><div class="line"><a name="l03291"></a><span class="lineno"> 3291</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a81007732e86b09360d5dc40cbbeb5ec3">id_ceil</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"ceil"</span>);</div><div class="line"><a name="l03292"></a><span class="lineno"> 3292</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a43afc3f97918b9e125feee3ec92f9e9e">id_floor</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"floor"</span>);</div><div class="line"><a name="l03293"></a><span class="lineno"> 3293</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a2977fd605942ed760dd69cbd0053ba7d">id_to_r</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"to_r"</span>);</div><div class="line"><a name="l03294"></a><span class="lineno"> 3294</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a304cbbab7bd5573ab33773f6506d3345">id_eq</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a>(<span class="stringliteral">"=="</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> </div><div class="line"><a name="l03297"></a><span class="lineno"> 3297</span> <span class="comment">/*</span></div><div class="line"><a name="l03298"></a><span class="lineno"> 3298</span> <span class="comment"> *</span></div><div class="line"><a name="l03299"></a><span class="lineno"> 3299</span> <span class="comment"> * ============================================================================</span></div><div class="line"><a name="l03300"></a><span class="lineno"> 3300</span> <span class="comment"> *</span></div><div class="line"><a name="l03301"></a><span class="lineno"> 3301</span> <span class="comment"> * vp_ routines begin from here.</span></div><div class="line"><a name="l03302"></a><span class="lineno"> 3302</span> <span class="comment"> *</span></div><div class="line"><a name="l03303"></a><span class="lineno"> 3303</span> <span class="comment"> * ============================================================================</span></div><div class="line"><a name="l03304"></a><span class="lineno"> 3304</span> <span class="comment"> *</span></div><div class="line"><a name="l03305"></a><span class="lineno"> 3305</span> <span class="comment"> */</span></div><div class="line"><a name="l03306"></a><span class="lineno"> 3306</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l03307"></a><span class="lineno"> 3307</span> <span class="keyword">static</span> <span class="keywordtype">int</span> gfDebug = 1; <span class="comment">/* Debug switch */</span></div><div class="line"><a name="l03308"></a><span class="lineno"> 3308</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l03309"></a><span class="lineno"> 3309</span> <span class="keyword">static</span> <span class="keywordtype">int</span> gfCheckVal = 1; <span class="comment">/* Value checking flag in VpNmlz() */</span></div><div class="line"><a name="l03310"></a><span class="lineno"> 3310</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03311"></a><span class="lineno"> 3311</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l03312"></a><span class="lineno"> 3312</span> </div><div class="line"><a name="l03313"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7ec724265fbe57c34f54875aa958460d"> 3313</a></span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../de/d07/bigdecimal_8c.html#a7ec724265fbe57c34f54875aa958460d">VpConstOne</a>; <span class="comment">/* constant 1.0 */</span></div><div class="line"><a name="l03314"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#adc26687ac6864e8400f8d9710a02e3ea"> 3314</a></span> <span class="keyword">static</span> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../de/d07/bigdecimal_8c.html#adc26687ac6864e8400f8d9710a02e3ea">VpPt5</a>; <span class="comment">/* constant 0.5 */</span></div><div class="line"><a name="l03315"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a5297fe57e42f0bba45b6588901f84ade"> 3315</a></span> <span class="preprocessor">#define maxnr 100UL </span><span class="comment">/* Maximum iterations for calculating sqrt. */</span><span class="preprocessor"></span></div><div class="line"><a name="l03316"></a><span class="lineno"> 3316</span>  <span class="comment">/* used in VpSqrt() */</span></div><div class="line"><a name="l03317"></a><span class="lineno"> 3317</span> </div><div class="line"><a name="l03318"></a><span class="lineno"> 3318</span> <span class="comment">/* ETC */</span></div><div class="line"><a name="l03319"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aead9bf90b2370d9aabf6e43b8a629681"> 3319</a></span> <span class="preprocessor">#define MemCmp(x,y,z) memcmp(x,y,z)</span></div><div class="line"><a name="l03320"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7b2a344e05c55a7f12df3b958b6634df"> 3320</a></span> <span class="preprocessor">#define StrCmp(x,y) strcmp(x,y)</span></div><div class="line"><a name="l03321"></a><span class="lineno"> 3321</span> </div><div class="line"><a name="l03322"></a><span class="lineno"> 3322</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0">VpIsDefOP</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b,<span class="keywordtype">int</span> sw);</div><div class="line"><a name="l03323"></a><span class="lineno"> 3323</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> n);</div><div class="line"><a name="l03324"></a><span class="lineno"> 3324</span> <span class="keyword">static</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2eccbb6caa890a42323c4264e5af745e">VpAddAbs</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c);</div><div class="line"><a name="l03325"></a><span class="lineno"> 3325</span> <span class="keyword">static</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#adc53c7002c68cb8c52a6491521c5a432">VpSubAbs</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c);</div><div class="line"><a name="l03326"></a><span class="lineno"> 3326</span> <span class="keyword">static</span> <span class="keywordtype">size_t</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b2b55e7e49ea2dc6f032078d76f4a38">VpSetPTR</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <span class="keywordtype">size_t</span> *a_pos, <span class="keywordtype">size_t</span> *b_pos, <span class="keywordtype">size_t</span> *c_pos, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> *av, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> *bv);</div><div class="line"><a name="l03327"></a><span class="lineno"> 3327</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a);</div><div class="line"><a name="l03328"></a><span class="lineno"> 3328</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a695266ada901d83aa2f8e6bc06e2f8d8">VpFormatSt</a>(<span class="keywordtype">char</span> *psz, <span class="keywordtype">size_t</span> fFmt);</div><div class="line"><a name="l03329"></a><span class="lineno"> 3329</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a776970a589bbbd27eda68a5089273b11">VpRdup</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *m, <span class="keywordtype">size_t</span> ind_m);</div><div class="line"><a name="l03330"></a><span class="lineno"> 3330</span> </div><div class="line"><a name="l03331"></a><span class="lineno"> 3331</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l03332"></a><span class="lineno"> 3332</span> <span class="keyword">static</span> <span class="keywordtype">int</span> gnAlloc = 0; <span class="comment">/* Memory allocation counter */</span></div><div class="line"><a name="l03333"></a><span class="lineno"> 3333</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l03334"></a><span class="lineno"> 3334</span> </div><div class="line"><a name="l03335"></a><span class="lineno"> 3335</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span> *</div><div class="line"><a name="l03336"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a944776a89be837f13996b7da03db6b75"> 3336</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a944776a89be837f13996b7da03db6b75">VpMemAlloc</a>(<span class="keywordtype">size_t</span> mb)</div><div class="line"><a name="l03337"></a><span class="lineno"> 3337</span> {</div><div class="line"><a name="l03338"></a><span class="lineno"> 3338</span>  <span class="keywordtype">void</span> *p = <a class="code" href="../../d8/db0/defines_8h.html#a6af5faec3f9662b20ffc9903f923dec0">xmalloc</a>(mb);</div><div class="line"><a name="l03339"></a><span class="lineno"> 3339</span>  <span class="keywordflow">if</span> (!p) {</div><div class="line"><a name="l03340"></a><span class="lineno"> 3340</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ad9466c565e6130efe66aba4ee4262ce2">VP_EXCEPTION_MEMORY</a>, <span class="stringliteral">"failed to allocate memory"</span>, 1);</div><div class="line"><a name="l03341"></a><span class="lineno"> 3341</span>  }</div><div class="line"><a name="l03342"></a><span class="lineno"> 3342</span>  memset(p, 0, mb);</div><div class="line"><a name="l03343"></a><span class="lineno"> 3343</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l03344"></a><span class="lineno"> 3344</span>  gnAlloc++; <span class="comment">/* Count allocation call */</span></div><div class="line"><a name="l03345"></a><span class="lineno"> 3345</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l03346"></a><span class="lineno"> 3346</span>  <span class="keywordflow">return</span> p;</div><div class="line"><a name="l03347"></a><span class="lineno"> 3347</span> }</div><div class="line"><a name="l03348"></a><span class="lineno"> 3348</span> </div><div class="line"><a name="l03349"></a><span class="lineno"> 3349</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span> *</div><div class="line"><a name="l03350"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a26e0e280cf86ef12914c203fc0ed051e"> 3350</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a26e0e280cf86ef12914c203fc0ed051e">VpMemRealloc</a>(<span class="keywordtype">void</span> *ptr, <span class="keywordtype">size_t</span> mb)</div><div class="line"><a name="l03351"></a><span class="lineno"> 3351</span> {</div><div class="line"><a name="l03352"></a><span class="lineno"> 3352</span>  <span class="keywordtype">void</span> *p = <a class="code" href="../../d8/db0/defines_8h.html#a40740062faf2d95d4935112447c464ef">xrealloc</a>(ptr, mb);</div><div class="line"><a name="l03353"></a><span class="lineno"> 3353</span>  <span class="keywordflow">if</span> (!p) {</div><div class="line"><a name="l03354"></a><span class="lineno"> 3354</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ad9466c565e6130efe66aba4ee4262ce2">VP_EXCEPTION_MEMORY</a>, <span class="stringliteral">"failed to allocate memory"</span>, 1);</div><div class="line"><a name="l03355"></a><span class="lineno"> 3355</span>  }</div><div class="line"><a name="l03356"></a><span class="lineno"> 3356</span>  <span class="keywordflow">return</span> p;</div><div class="line"><a name="l03357"></a><span class="lineno"> 3357</span> }</div><div class="line"><a name="l03358"></a><span class="lineno"> 3358</span> </div><div class="line"><a name="l03359"></a><span class="lineno"> 3359</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l03360"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#af88c239a6c13cbdb27f0a36531f81e87"> 3360</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *pv)</div><div class="line"><a name="l03361"></a><span class="lineno"> 3361</span> {</div><div class="line"><a name="l03362"></a><span class="lineno"> 3362</span>  <span class="keywordflow">if</span> (pv != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l03363"></a><span class="lineno"> 3363</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(pv);</div><div class="line"><a name="l03364"></a><span class="lineno"> 3364</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l03365"></a><span class="lineno"> 3365</span>  gnAlloc--; <span class="comment">/* Decrement allocation count */</span></div><div class="line"><a name="l03366"></a><span class="lineno"> 3366</span>  <span class="keywordflow">if</span> (gnAlloc == 0) {</div><div class="line"><a name="l03367"></a><span class="lineno"> 3367</span>  printf(<span class="stringliteral">" *************** All memories allocated freed ****************"</span>);</div><div class="line"><a name="l03368"></a><span class="lineno"> 3368</span>  <a class="code" href="../../dc/db1/win32_8h.html#ac0484b3e3a4d8361d91c3322440f9195">getchar</a>();</div><div class="line"><a name="l03369"></a><span class="lineno"> 3369</span>  }</div><div class="line"><a name="l03370"></a><span class="lineno"> 3370</span>  <span class="keywordflow">if</span> (gnAlloc < 0) {</div><div class="line"><a name="l03371"></a><span class="lineno"> 3371</span>  printf(<span class="stringliteral">" ??????????? Too many memory free calls(%d) ?????????????\n"</span>, gnAlloc);</div><div class="line"><a name="l03372"></a><span class="lineno"> 3372</span>  <a class="code" href="../../dc/db1/win32_8h.html#ac0484b3e3a4d8361d91c3322440f9195">getchar</a>();</div><div class="line"><a name="l03373"></a><span class="lineno"> 3373</span>  }</div><div class="line"><a name="l03374"></a><span class="lineno"> 3374</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l03375"></a><span class="lineno"> 3375</span>  }</div><div class="line"><a name="l03376"></a><span class="lineno"> 3376</span> }</div><div class="line"><a name="l03377"></a><span class="lineno"> 3377</span> </div><div class="line"><a name="l03378"></a><span class="lineno"> 3378</span> <span class="comment">/*</span></div><div class="line"><a name="l03379"></a><span class="lineno"> 3379</span> <span class="comment"> * EXCEPTION Handling.</span></div><div class="line"><a name="l03380"></a><span class="lineno"> 3380</span> <span class="comment"> */</span></div><div class="line"><a name="l03381"></a><span class="lineno"> 3381</span> </div><div class="line"><a name="l03382"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#aed1d47de5b194e2a3b3ba1e8d268c0f5"> 3382</a></span> <span class="preprocessor">#define rmpd_set_thread_local_exception_mode(mode) \</span></div><div class="line"><a name="l03383"></a><span class="lineno"> 3383</span> <span class="preprocessor"> rb_thread_local_aset( \</span></div><div class="line"><a name="l03384"></a><span class="lineno"> 3384</span> <span class="preprocessor"> rb_thread_current(), \</span></div><div class="line"><a name="l03385"></a><span class="lineno"> 3385</span> <span class="preprocessor"> id_BigDecimal_exception_mode, \</span></div><div class="line"><a name="l03386"></a><span class="lineno"> 3386</span> <span class="preprocessor"> INT2FIX((int)(mode)) \</span></div><div class="line"><a name="l03387"></a><span class="lineno"> 3387</span> <span class="preprocessor"> )</span></div><div class="line"><a name="l03388"></a><span class="lineno"> 3388</span> </div><div class="line"><a name="l03389"></a><span class="lineno"> 3389</span> <span class="keyword">static</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span></div><div class="line"><a name="l03390"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7"> 3390</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a> (<span class="keywordtype">void</span>)</div><div class="line"><a name="l03391"></a><span class="lineno"> 3391</span> {</div><div class="line"><a name="l03392"></a><span class="lineno"> 3392</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">const</span> vmode = <a class="code" href="../../db/d2e/intern_8h.html#a15b098e747732bb38336dc5a41cff43f">rb_thread_local_aref</a>(</div><div class="line"><a name="l03393"></a><span class="lineno"> 3393</span>  <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>(),</div><div class="line"><a name="l03394"></a><span class="lineno"> 3394</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#afe01563e1fb7a76dc4b4d8a8646a35da">id_BigDecimal_exception_mode</a></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> </div><div class="line"><a name="l03397"></a><span class="lineno"> 3397</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(vmode)) {</div><div class="line"><a name="l03398"></a><span class="lineno"> 3398</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#aed1d47de5b194e2a3b3ba1e8d268c0f5">rmpd_set_thread_local_exception_mode</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a9828831d7d8bbd6188470806e6d35e1d">RMPD_EXCEPTION_MODE_DEFAULT</a>);</div><div class="line"><a name="l03399"></a><span class="lineno"> 3399</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a9828831d7d8bbd6188470806e6d35e1d">RMPD_EXCEPTION_MODE_DEFAULT</a>;</div><div class="line"><a name="l03400"></a><span class="lineno"> 3400</span>  }</div><div class="line"><a name="l03401"></a><span class="lineno"> 3401</span> </div><div class="line"><a name="l03402"></a><span class="lineno"> 3402</span>  <span class="keywordflow">return</span> (<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span>)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aaf9c568541e720d34bda2d7009c69365">FIX2UINT</a>(vmode);</div><div class="line"><a name="l03403"></a><span class="lineno"> 3403</span> }</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="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l03406"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52"> 3406</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a>(<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>)</div><div class="line"><a name="l03407"></a><span class="lineno"> 3407</span> {</div><div class="line"><a name="l03408"></a><span class="lineno"> 3408</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#aed1d47de5b194e2a3b3ba1e8d268c0f5">rmpd_set_thread_local_exception_mode</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l03409"></a><span class="lineno"> 3409</span> }</div><div class="line"><a name="l03410"></a><span class="lineno"> 3410</span> </div><div class="line"><a name="l03411"></a><span class="lineno"> 3411</span> <span class="comment">/*</span></div><div class="line"><a name="l03412"></a><span class="lineno"> 3412</span> <span class="comment"> * Precision limit.</span></div><div class="line"><a name="l03413"></a><span class="lineno"> 3413</span> <span class="comment"> */</span></div><div class="line"><a name="l03414"></a><span class="lineno"> 3414</span> </div><div class="line"><a name="l03415"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#ad557ba0a2e86ef027442c059a6ef0d13"> 3415</a></span> <span class="preprocessor">#define rmpd_set_thread_local_precision_limit(limit) \</span></div><div class="line"><a name="l03416"></a><span class="lineno"> 3416</span> <span class="preprocessor"> rb_thread_local_aset( \</span></div><div class="line"><a name="l03417"></a><span class="lineno"> 3417</span> <span class="preprocessor"> rb_thread_current(), \</span></div><div class="line"><a name="l03418"></a><span class="lineno"> 3418</span> <span class="preprocessor"> id_BigDecimal_precision_limit, \</span></div><div class="line"><a name="l03419"></a><span class="lineno"> 3419</span> <span class="preprocessor"> SIZET2NUM(limit) \</span></div><div class="line"><a name="l03420"></a><span class="lineno"> 3420</span> <span class="preprocessor"> )</span></div><div class="line"><a name="l03421"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a5726d1427982c1c9ccfb01920690b7f7"> 3421</a></span> <span class="preprocessor">#define RMPD_PRECISION_LIMIT_DEFAULT ((size_t)0)</span></div><div class="line"><a name="l03422"></a><span class="lineno"> 3422</span> </div><div class="line"><a name="l03423"></a><span class="lineno"> 3423</span> <span class="comment">/* These 2 functions added at v1.1.7 */</span></div><div class="line"><a name="l03424"></a><span class="lineno"> 3424</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l03425"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a71e22bd0fe22d9368aa1e77c45211a55"> 3425</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l03426"></a><span class="lineno"> 3426</span> {</div><div class="line"><a name="l03427"></a><span class="lineno"> 3427</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">const</span> vlimit = <a class="code" href="../../db/d2e/intern_8h.html#a15b098e747732bb38336dc5a41cff43f">rb_thread_local_aref</a>(</div><div class="line"><a name="l03428"></a><span class="lineno"> 3428</span>  <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>(),</div><div class="line"><a name="l03429"></a><span class="lineno"> 3429</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a1d998377c2b3f6cd912a39f23c36e2e8">id_BigDecimal_precision_limit</a></div><div class="line"><a name="l03430"></a><span class="lineno"> 3430</span>  );</div><div class="line"><a name="l03431"></a><span class="lineno"> 3431</span> </div><div class="line"><a name="l03432"></a><span class="lineno"> 3432</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(vlimit)) {</div><div class="line"><a name="l03433"></a><span class="lineno"> 3433</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ad557ba0a2e86ef027442c059a6ef0d13">rmpd_set_thread_local_precision_limit</a>(<a class="code" href="../../de/d07/bigdecimal_8c.html#a5726d1427982c1c9ccfb01920690b7f7">RMPD_PRECISION_LIMIT_DEFAULT</a>);</div><div class="line"><a name="l03434"></a><span class="lineno"> 3434</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a5726d1427982c1c9ccfb01920690b7f7">RMPD_PRECISION_LIMIT_DEFAULT</a>;</div><div class="line"><a name="l03435"></a><span class="lineno"> 3435</span>  }</div><div class="line"><a name="l03436"></a><span class="lineno"> 3436</span> </div><div class="line"><a name="l03437"></a><span class="lineno"> 3437</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa7b5f3993e9c39423dd38f430257d0e7">NUM2SIZET</a>(vlimit);</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> </div><div class="line"><a name="l03440"></a><span class="lineno"> 3440</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l03441"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a7b89f69d68840615f8b978c791579624"> 3441</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a>(<span class="keywordtype">size_t</span> n)</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>  <span class="keywordtype">size_t</span> <span class="keyword">const</span> s = <a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>();</div><div class="line"><a name="l03444"></a><span class="lineno"> 3444</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ad557ba0a2e86ef027442c059a6ef0d13">rmpd_set_thread_local_precision_limit</a>(n);</div><div class="line"><a name="l03445"></a><span class="lineno"> 3445</span>  <span class="keywordflow">return</span> s;</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> </div><div class="line"><a name="l03448"></a><span class="lineno"> 3448</span> <span class="comment">/*</span></div><div class="line"><a name="l03449"></a><span class="lineno"> 3449</span> <span class="comment"> * Rounding mode.</span></div><div class="line"><a name="l03450"></a><span class="lineno"> 3450</span> <span class="comment"> */</span></div><div class="line"><a name="l03451"></a><span class="lineno"> 3451</span> </div><div class="line"><a name="l03452"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a269ea752b14ff07ccd4c041b3f840055"> 3452</a></span> <span class="preprocessor">#define rmpd_set_thread_local_rounding_mode(mode) \</span></div><div class="line"><a name="l03453"></a><span class="lineno"> 3453</span> <span class="preprocessor"> rb_thread_local_aset( \</span></div><div class="line"><a name="l03454"></a><span class="lineno"> 3454</span> <span class="preprocessor"> rb_thread_current(), \</span></div><div class="line"><a name="l03455"></a><span class="lineno"> 3455</span> <span class="preprocessor"> id_BigDecimal_rounding_mode, \</span></div><div class="line"><a name="l03456"></a><span class="lineno"> 3456</span> <span class="preprocessor"> INT2FIX((int)(mode)) \</span></div><div class="line"><a name="l03457"></a><span class="lineno"> 3457</span> <span class="preprocessor"> )</span></div><div class="line"><a name="l03458"></a><span class="lineno"> 3458</span> </div><div class="line"><a name="l03459"></a><span class="lineno"> 3459</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span></div><div class="line"><a name="l03460"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a4b6c6a842817d1e9093a218dee48b0ce"> 3460</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l03461"></a><span class="lineno"> 3461</span> {</div><div class="line"><a name="l03462"></a><span class="lineno"> 3462</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">const</span> vmode = <a class="code" href="../../db/d2e/intern_8h.html#a15b098e747732bb38336dc5a41cff43f">rb_thread_local_aref</a>(</div><div class="line"><a name="l03463"></a><span class="lineno"> 3463</span>  <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>(),</div><div class="line"><a name="l03464"></a><span class="lineno"> 3464</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a0ac8ed0a9c0540f4de2a1dc3417c8ea5">id_BigDecimal_rounding_mode</a></div><div class="line"><a name="l03465"></a><span class="lineno"> 3465</span>  );</div><div class="line"><a name="l03466"></a><span class="lineno"> 3466</span> </div><div class="line"><a name="l03467"></a><span class="lineno"> 3467</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(vmode)) {</div><div class="line"><a name="l03468"></a><span class="lineno"> 3468</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a269ea752b14ff07ccd4c041b3f840055">rmpd_set_thread_local_rounding_mode</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a787f6068d92a99906fbaf26bb598d23c">RMPD_ROUNDING_MODE_DEFAULT</a>);</div><div class="line"><a name="l03469"></a><span class="lineno"> 3469</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a787f6068d92a99906fbaf26bb598d23c">RMPD_ROUNDING_MODE_DEFAULT</a>;</div><div class="line"><a name="l03470"></a><span class="lineno"> 3470</span>  }</div><div class="line"><a name="l03471"></a><span class="lineno"> 3471</span> </div><div class="line"><a name="l03472"></a><span class="lineno"> 3472</span>  <span class="keywordflow">return</span> (<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span>)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vmode);</div><div class="line"><a name="l03473"></a><span class="lineno"> 3473</span> }</div><div class="line"><a name="l03474"></a><span class="lineno"> 3474</span> </div><div class="line"><a name="l03475"></a><span class="lineno"> 3475</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l03476"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a2080f29dbc4005c2b343ebd59ef45bc0"> 3476</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2080f29dbc4005c2b343ebd59ef45bc0">VpIsRoundMode</a>(<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> n)</div><div class="line"><a name="l03477"></a><span class="lineno"> 3477</span> {</div><div class="line"><a name="l03478"></a><span class="lineno"> 3478</span>  <span class="keywordflow">switch</span> (n) {</div><div class="line"><a name="l03479"></a><span class="lineno"> 3479</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#acc54e540534a259d314f5be704e41dbd">VP_ROUND_UP</a>:</div><div class="line"><a name="l03480"></a><span class="lineno"> 3480</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>:</div><div class="line"><a name="l03481"></a><span class="lineno"> 3481</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aee9c0b939acd1671730ec28bb6fedf6e">VP_ROUND_HALF_UP</a>:</div><div class="line"><a name="l03482"></a><span class="lineno"> 3482</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77487cab033862462c80f665bb3693b0">VP_ROUND_HALF_DOWN</a>:</div><div class="line"><a name="l03483"></a><span class="lineno"> 3483</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a>:</div><div class="line"><a name="l03484"></a><span class="lineno"> 3484</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>:</div><div class="line"><a name="l03485"></a><span class="lineno"> 3485</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a2372d42c88c84f677d64f400574f730c">VP_ROUND_HALF_EVEN</a>:</div><div class="line"><a name="l03486"></a><span class="lineno"> 3486</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l03487"></a><span class="lineno"> 3487</span> </div><div class="line"><a name="l03488"></a><span class="lineno"> 3488</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03489"></a><span class="lineno"> 3489</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l03490"></a><span class="lineno"> 3490</span>  }</div><div class="line"><a name="l03491"></a><span class="lineno"> 3491</span> }</div><div class="line"><a name="l03492"></a><span class="lineno"> 3492</span> </div><div class="line"><a name="l03493"></a><span class="lineno"> 3493</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span></div><div class="line"><a name="l03494"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a73e5550509e9695d11bcb1ce410e6ea0"> 3494</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a73e5550509e9695d11bcb1ce410e6ea0">VpSetRoundMode</a>(<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> n)</div><div class="line"><a name="l03495"></a><span class="lineno"> 3495</span> {</div><div class="line"><a name="l03496"></a><span class="lineno"> 3496</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a2080f29dbc4005c2b343ebd59ef45bc0">VpIsRoundMode</a>(n)) {</div><div class="line"><a name="l03497"></a><span class="lineno"> 3497</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a269ea752b14ff07ccd4c041b3f840055">rmpd_set_thread_local_rounding_mode</a>(n);</div><div class="line"><a name="l03498"></a><span class="lineno"> 3498</span>  <span class="keywordflow">return</span> n;</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> </div><div class="line"><a name="l03501"></a><span class="lineno"> 3501</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>();</div><div class="line"><a name="l03502"></a><span class="lineno"> 3502</span> }</div><div class="line"><a name="l03503"></a><span class="lineno"> 3503</span> </div><div class="line"><a name="l03504"></a><span class="lineno"> 3504</span> <span class="comment">/*</span></div><div class="line"><a name="l03505"></a><span class="lineno"> 3505</span> <span class="comment"> * 0.0 & 1.0 generator</span></div><div class="line"><a name="l03506"></a><span class="lineno"> 3506</span> <span class="comment"> * These gZero_..... and gOne_..... can be any name</span></div><div class="line"><a name="l03507"></a><span class="lineno"> 3507</span> <span class="comment"> * referenced from nowhere except Zero() and One().</span></div><div class="line"><a name="l03508"></a><span class="lineno"> 3508</span> <span class="comment"> * gZero_..... and gOne_..... must have global scope</span></div><div class="line"><a name="l03509"></a><span class="lineno"> 3509</span> <span class="comment"> * (to let the compiler know they may be changed in outside</span></div><div class="line"><a name="l03510"></a><span class="lineno"> 3510</span> <span class="comment"> * (... but not actually..)).</span></div><div class="line"><a name="l03511"></a><span class="lineno"> 3511</span> <span class="comment"> */</span></div><div class="line"><a name="l03512"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a3f036ce4930cc2eb33a2161b1b7217f2"> 3512</a></span> <span class="keyword">volatile</span> <span class="keyword">const</span> <span class="keywordtype">double</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a3f036ce4930cc2eb33a2161b1b7217f2">gZero_ABCED9B1_CE73__00400511F31D</a> = 0.0;</div><div class="line"><a name="l03513"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8403ff882bf89f59fa3e3f0477c1b54e"> 3513</a></span> <span class="keyword">volatile</span> <span class="keyword">const</span> <span class="keywordtype">double</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8403ff882bf89f59fa3e3f0477c1b54e">gOne_ABCED9B4_CE73__00400511F31D</a> = 1.0;</div><div class="line"><a name="l03514"></a><span class="lineno"> 3514</span> <span class="keyword">static</span> <span class="keywordtype">double</span></div><div class="line"><a name="l03515"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353"> 3515</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353">Zero</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l03516"></a><span class="lineno"> 3516</span> {</div><div class="line"><a name="l03517"></a><span class="lineno"> 3517</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a3f036ce4930cc2eb33a2161b1b7217f2">gZero_ABCED9B1_CE73__00400511F31D</a>;</div><div class="line"><a name="l03518"></a><span class="lineno"> 3518</span> }</div><div class="line"><a name="l03519"></a><span class="lineno"> 3519</span> </div><div class="line"><a name="l03520"></a><span class="lineno"> 3520</span> <span class="keyword">static</span> <span class="keywordtype">double</span></div><div class="line"><a name="l03521"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a8853041af7ed7e3b5220f3ae797fabc2"> 3521</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8853041af7ed7e3b5220f3ae797fabc2">One</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l03522"></a><span class="lineno"> 3522</span> {</div><div class="line"><a name="l03523"></a><span class="lineno"> 3523</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8403ff882bf89f59fa3e3f0477c1b54e">gOne_ABCED9B4_CE73__00400511F31D</a>;</div><div class="line"><a name="l03524"></a><span class="lineno"> 3524</span> }</div><div class="line"><a name="l03525"></a><span class="lineno"> 3525</span> </div><div class="line"><a name="l03526"></a><span class="lineno"> 3526</span> <span class="comment">/*</span></div><div class="line"><a name="l03527"></a><span class="lineno"> 3527</span> <span class="comment"> ----------------------------------------------------------------</span></div><div class="line"><a name="l03528"></a><span class="lineno"> 3528</span> <span class="comment"> Value of sign in Real structure is reserved for future use.</span></div><div class="line"><a name="l03529"></a><span class="lineno"> 3529</span> <span class="comment"> short sign;</span></div><div class="line"><a name="l03530"></a><span class="lineno"> 3530</span> <span class="comment"> ==0 : NaN</span></div><div class="line"><a name="l03531"></a><span class="lineno"> 3531</span> <span class="comment"> 1 : Positive zero</span></div><div class="line"><a name="l03532"></a><span class="lineno"> 3532</span> <span class="comment"> -1 : Negative zero</span></div><div class="line"><a name="l03533"></a><span class="lineno"> 3533</span> <span class="comment"> 2 : Positive number</span></div><div class="line"><a name="l03534"></a><span class="lineno"> 3534</span> <span class="comment"> -2 : Negative number</span></div><div class="line"><a name="l03535"></a><span class="lineno"> 3535</span> <span class="comment"> 3 : Positive infinite number</span></div><div class="line"><a name="l03536"></a><span class="lineno"> 3536</span> <span class="comment"> -3 : Negative infinite number</span></div><div class="line"><a name="l03537"></a><span class="lineno"> 3537</span> <span class="comment"> ----------------------------------------------------------------</span></div><div class="line"><a name="l03538"></a><span class="lineno"> 3538</span> <span class="comment">*/</span></div><div class="line"><a name="l03539"></a><span class="lineno"> 3539</span> </div><div class="line"><a name="l03540"></a><span class="lineno"> 3540</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">double</span></div><div class="line"><a name="l03541"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a29ab437440f914874fe2b27230788da5"> 3541</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a29ab437440f914874fe2b27230788da5">VpGetDoubleNaN</a>(<span class="keywordtype">void</span>) <span class="comment">/* Returns the value of NaN */</span></div><div class="line"><a name="l03542"></a><span class="lineno"> 3542</span> {</div><div class="line"><a name="l03543"></a><span class="lineno"> 3543</span>  <span class="keyword">static</span> <span class="keywordtype">double</span> fNaN = 0.0;</div><div class="line"><a name="l03544"></a><span class="lineno"> 3544</span>  <span class="keywordflow">if</span> (fNaN == 0.0) fNaN = <a class="code" href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353">Zero</a>()/<a class="code" href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353">Zero</a>();</div><div class="line"><a name="l03545"></a><span class="lineno"> 3545</span>  <span class="keywordflow">return</span> fNaN;</div><div class="line"><a name="l03546"></a><span class="lineno"> 3546</span> }</div><div class="line"><a name="l03547"></a><span class="lineno"> 3547</span> </div><div class="line"><a name="l03548"></a><span class="lineno"> 3548</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">double</span></div><div class="line"><a name="l03549"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#afa988d7eb61defaac42ece03d19c2e66"> 3549</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#afa988d7eb61defaac42ece03d19c2e66">VpGetDoublePosInf</a>(<span class="keywordtype">void</span>) <span class="comment">/* Returns the value of +Infinity */</span></div><div class="line"><a name="l03550"></a><span class="lineno"> 3550</span> {</div><div class="line"><a name="l03551"></a><span class="lineno"> 3551</span>  <span class="keyword">static</span> <span class="keywordtype">double</span> fInf = 0.0;</div><div class="line"><a name="l03552"></a><span class="lineno"> 3552</span>  <span class="keywordflow">if</span> (fInf == 0.0) fInf = <a class="code" href="../../de/d07/bigdecimal_8c.html#a8853041af7ed7e3b5220f3ae797fabc2">One</a>()/<a class="code" href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353">Zero</a>();</div><div class="line"><a name="l03553"></a><span class="lineno"> 3553</span>  <span class="keywordflow">return</span> fInf;</div><div class="line"><a name="l03554"></a><span class="lineno"> 3554</span> }</div><div class="line"><a name="l03555"></a><span class="lineno"> 3555</span> </div><div class="line"><a name="l03556"></a><span class="lineno"> 3556</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">double</span></div><div class="line"><a name="l03557"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a39cee6a07315ceb32c6e25024197b054"> 3557</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a39cee6a07315ceb32c6e25024197b054">VpGetDoubleNegInf</a>(<span class="keywordtype">void</span>) <span class="comment">/* Returns the value of -Infinity */</span></div><div class="line"><a name="l03558"></a><span class="lineno"> 3558</span> {</div><div class="line"><a name="l03559"></a><span class="lineno"> 3559</span>  <span class="keyword">static</span> <span class="keywordtype">double</span> fInf = 0.0;</div><div class="line"><a name="l03560"></a><span class="lineno"> 3560</span>  <span class="keywordflow">if</span> (fInf == 0.0) fInf = -(<a class="code" href="../../de/d07/bigdecimal_8c.html#a8853041af7ed7e3b5220f3ae797fabc2">One</a>()/<a class="code" href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353">Zero</a>());</div><div class="line"><a name="l03561"></a><span class="lineno"> 3561</span>  <span class="keywordflow">return</span> fInf;</div><div class="line"><a name="l03562"></a><span class="lineno"> 3562</span> }</div><div class="line"><a name="l03563"></a><span class="lineno"> 3563</span> </div><div class="line"><a name="l03564"></a><span class="lineno"> 3564</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">double</span></div><div class="line"><a name="l03565"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a00dc82065d4f33b92dce7ae4bf136476"> 3565</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a00dc82065d4f33b92dce7ae4bf136476">VpGetDoubleNegZero</a>(<span class="keywordtype">void</span>) <span class="comment">/* Returns the value of -0 */</span></div><div class="line"><a name="l03566"></a><span class="lineno"> 3566</span> {</div><div class="line"><a name="l03567"></a><span class="lineno"> 3567</span>  <span class="keyword">static</span> <span class="keywordtype">double</span> nzero = 1000.0;</div><div class="line"><a name="l03568"></a><span class="lineno"> 3568</span>  <span class="keywordflow">if</span> (nzero != 0.0) nzero = (<a class="code" href="../../de/d07/bigdecimal_8c.html#a8853041af7ed7e3b5220f3ae797fabc2">One</a>()/<a class="code" href="../../de/d07/bigdecimal_8c.html#a39cee6a07315ceb32c6e25024197b054">VpGetDoubleNegInf</a>());</div><div class="line"><a name="l03569"></a><span class="lineno"> 3569</span>  <span class="keywordflow">return</span> nzero;</div><div class="line"><a name="l03570"></a><span class="lineno"> 3570</span> }</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> <span class="preprocessor">#if 0 </span><span class="comment">/* unused */</span><span class="preprocessor"></span></div><div class="line"><a name="l03573"></a><span class="lineno"> 3573</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l03574"></a><span class="lineno"> 3574</span> VpIsNegDoubleZero(<span class="keywordtype">double</span> v)</div><div class="line"><a name="l03575"></a><span class="lineno"> 3575</span> {</div><div class="line"><a name="l03576"></a><span class="lineno"> 3576</span>  <span class="keywordtype">double</span> z = <a class="code" href="../../de/d07/bigdecimal_8c.html#a00dc82065d4f33b92dce7ae4bf136476">VpGetDoubleNegZero</a>();</div><div class="line"><a name="l03577"></a><span class="lineno"> 3577</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aead9bf90b2370d9aabf6e43b8a629681">MemCmp</a>(&v,&z,<span class="keyword">sizeof</span>(v))==0;</div><div class="line"><a name="l03578"></a><span class="lineno"> 3578</span> }</div><div class="line"><a name="l03579"></a><span class="lineno"> 3579</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03580"></a><span class="lineno"> 3580</span> </div><div class="line"><a name="l03581"></a><span class="lineno"> 3581</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l03582"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#adb416501e79900f33e8d5f41d8b6d56a"> 3582</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, <span class="keyword">const</span> <span class="keywordtype">char</span> *str,<span class="keywordtype">int</span> always)</div><div class="line"><a name="l03583"></a><span class="lineno"> 3583</span> {</div><div class="line"><a name="l03584"></a><span class="lineno"> 3584</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keyword">const</span> exception_mode = <a class="code" href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a>();</div><div class="line"><a name="l03585"></a><span class="lineno"> 3585</span> </div><div class="line"><a name="l03586"></a><span class="lineno"> 3586</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> == <a class="code" href="../../d0/da5/bigdecimal_8h.html#a43b90532bc1f6dd50659892aef2b2886">VP_EXCEPTION_OP</a> || <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> == <a class="code" href="../../d0/da5/bigdecimal_8h.html#ad9466c565e6130efe66aba4ee4262ce2">VP_EXCEPTION_MEMORY</a>) always = 1;</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> (always || (exception_mode & <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>)) {</div><div class="line"><a name="l03589"></a><span class="lineno"> 3589</span>  <span class="keywordflow">switch</span>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>) {</div><div class="line"><a name="l03590"></a><span class="lineno"> 3590</span>  <span class="comment">/* case VP_EXCEPTION_OVERFLOW: */</span></div><div class="line"><a name="l03591"></a><span class="lineno"> 3591</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a>:</div><div class="line"><a name="l03592"></a><span class="lineno"> 3592</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>:</div><div class="line"><a name="l03593"></a><span class="lineno"> 3593</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>:</div><div class="line"><a name="l03594"></a><span class="lineno"> 3594</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>:</div><div class="line"><a name="l03595"></a><span class="lineno"> 3595</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a43b90532bc1f6dd50659892aef2b2886">VP_EXCEPTION_OP</a>:</div><div class="line"><a name="l03596"></a><span class="lineno"> 3596</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9d3707fd42dad026e217ea7c9dfb4948">rb_eFloatDomainError</a>, <span class="stringliteral">"%s"</span>, str);</div><div class="line"><a name="l03597"></a><span class="lineno"> 3597</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03598"></a><span class="lineno"> 3598</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#ad9466c565e6130efe66aba4ee4262ce2">VP_EXCEPTION_MEMORY</a>:</div><div class="line"><a name="l03599"></a><span class="lineno"> 3599</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03600"></a><span class="lineno"> 3600</span>  <a class="code" href="../../db/dcc/error_8c.html#a643ceabe39fa1f8c99066a321397a115">rb_fatal</a>(<span class="stringliteral">"%s"</span>, str);</div><div class="line"><a name="l03601"></a><span class="lineno"> 3601</span>  }</div><div class="line"><a name="l03602"></a><span class="lineno"> 3602</span>  }</div><div class="line"><a name="l03603"></a><span class="lineno"> 3603</span>  <span class="keywordflow">return</span> 0; <span class="comment">/* 0 Means VpException() raised no exception */</span></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> </div><div class="line"><a name="l03606"></a><span class="lineno"> 3606</span> <span class="comment">/* Throw exception or returns 0,when resulting c is Inf or NaN */</span></div><div class="line"><a name="l03607"></a><span class="lineno"> 3607</span> <span class="comment">/* sw=1:+ 2:- 3:* 4:/ */</span></div><div class="line"><a name="l03608"></a><span class="lineno"> 3608</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03609"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0"> 3609</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0">VpIsDefOP</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a,<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b,<span class="keywordtype">int</span> sw)</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="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(b)) {</div><div class="line"><a name="l03612"></a><span class="lineno"> 3612</span>  <span class="comment">/* at least a or b is NaN */</span></div><div class="line"><a name="l03613"></a><span class="lineno"> 3613</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03614"></a><span class="lineno"> 3614</span>  <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l03615"></a><span class="lineno"> 3615</span>  }</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="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(a)) {</div><div class="line"><a name="l03618"></a><span class="lineno"> 3618</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(b)) {</div><div class="line"><a name="l03619"></a><span class="lineno"> 3619</span>  <span class="keywordflow">switch</span>(sw) {</div><div class="line"><a name="l03620"></a><span class="lineno"> 3620</span>  <span class="keywordflow">case</span> 1: <span class="comment">/* + */</span></div><div class="line"><a name="l03621"></a><span class="lineno"> 3621</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) == <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b)) {</div><div class="line"><a name="l03622"></a><span class="lineno"> 3622</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l03623"></a><span class="lineno"> 3623</span>  <span class="keywordflow">goto</span> Inf;</div><div class="line"><a name="l03624"></a><span class="lineno"> 3624</span>  }</div><div class="line"><a name="l03625"></a><span class="lineno"> 3625</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03626"></a><span class="lineno"> 3626</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03627"></a><span class="lineno"> 3627</span>  <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l03628"></a><span class="lineno"> 3628</span>  }</div><div class="line"><a name="l03629"></a><span class="lineno"> 3629</span>  <span class="keywordflow">case</span> 2: <span class="comment">/* - */</span></div><div class="line"><a name="l03630"></a><span class="lineno"> 3630</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) != <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b)) {</div><div class="line"><a name="l03631"></a><span class="lineno"> 3631</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l03632"></a><span class="lineno"> 3632</span>  <span class="keywordflow">goto</span> Inf;</div><div class="line"><a name="l03633"></a><span class="lineno"> 3633</span>  }</div><div class="line"><a name="l03634"></a><span class="lineno"> 3634</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03635"></a><span class="lineno"> 3635</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03636"></a><span class="lineno"> 3636</span>  <span class="keywordflow">goto</span> NaN;</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>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03639"></a><span class="lineno"> 3639</span>  <span class="keywordflow">case</span> 3: <span class="comment">/* * */</span></div><div class="line"><a name="l03640"></a><span class="lineno"> 3640</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03641"></a><span class="lineno"> 3641</span>  <span class="keywordflow">goto</span> Inf;</div><div class="line"><a name="l03642"></a><span class="lineno"> 3642</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03643"></a><span class="lineno"> 3643</span>  <span class="keywordflow">case</span> 4: <span class="comment">/* / */</span></div><div class="line"><a name="l03644"></a><span class="lineno"> 3644</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03645"></a><span class="lineno"> 3645</span>  <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l03646"></a><span class="lineno"> 3646</span>  }</div><div class="line"><a name="l03647"></a><span class="lineno"> 3647</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03648"></a><span class="lineno"> 3648</span>  <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l03649"></a><span class="lineno"> 3649</span>  }</div><div class="line"><a name="l03650"></a><span class="lineno"> 3650</span>  <span class="comment">/* Inf op Finite */</span></div><div class="line"><a name="l03651"></a><span class="lineno"> 3651</span>  <span class="keywordflow">switch</span>(sw) {</div><div class="line"><a name="l03652"></a><span class="lineno"> 3652</span>  <span class="keywordflow">case</span> 1: <span class="comment">/* + */</span></div><div class="line"><a name="l03653"></a><span class="lineno"> 3653</span>  <span class="keywordflow">case</span> 2: <span class="comment">/* - */</span></div><div class="line"><a name="l03654"></a><span class="lineno"> 3654</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l03655"></a><span class="lineno"> 3655</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03656"></a><span class="lineno"> 3656</span>  <span class="keywordflow">case</span> 3: <span class="comment">/* * */</span></div><div class="line"><a name="l03657"></a><span class="lineno"> 3657</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l03658"></a><span class="lineno"> 3658</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03659"></a><span class="lineno"> 3659</span>  <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l03660"></a><span class="lineno"> 3660</span>  }</div><div class="line"><a name="l03661"></a><span class="lineno"> 3661</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03662"></a><span class="lineno"> 3662</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03663"></a><span class="lineno"> 3663</span>  <span class="keywordflow">case</span> 4: <span class="comment">/* / */</span></div><div class="line"><a name="l03664"></a><span class="lineno"> 3664</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03665"></a><span class="lineno"> 3665</span>  }</div><div class="line"><a name="l03666"></a><span class="lineno"> 3666</span>  <span class="keywordflow">goto</span> Inf;</div><div class="line"><a name="l03667"></a><span class="lineno"> 3667</span>  }</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>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(b)) {</div><div class="line"><a name="l03670"></a><span class="lineno"> 3670</span>  <span class="keywordflow">switch</span>(sw) {</div><div class="line"><a name="l03671"></a><span class="lineno"> 3671</span>  <span class="keywordflow">case</span> 1: <span class="comment">/* + */</span></div><div class="line"><a name="l03672"></a><span class="lineno"> 3672</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03673"></a><span class="lineno"> 3673</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03674"></a><span class="lineno"> 3674</span>  <span class="keywordflow">case</span> 2: <span class="comment">/* - */</span></div><div class="line"><a name="l03675"></a><span class="lineno"> 3675</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03676"></a><span class="lineno"> 3676</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03677"></a><span class="lineno"> 3677</span>  <span class="keywordflow">case</span> 3: <span class="comment">/* * */</span></div><div class="line"><a name="l03678"></a><span class="lineno"> 3678</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l03679"></a><span class="lineno"> 3679</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03680"></a><span class="lineno"> 3680</span>  <span class="keywordflow">goto</span> NaN;</div><div class="line"><a name="l03681"></a><span class="lineno"> 3681</span>  }</div><div class="line"><a name="l03682"></a><span class="lineno"> 3682</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03683"></a><span class="lineno"> 3683</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03684"></a><span class="lineno"> 3684</span>  <span class="keywordflow">case</span> 4: <span class="comment">/* / */</span></div><div class="line"><a name="l03685"></a><span class="lineno"> 3685</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a)*<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l03686"></a><span class="lineno"> 3686</span>  }</div><div class="line"><a name="l03687"></a><span class="lineno"> 3687</span>  <span class="keywordflow">goto</span> Inf;</div><div class="line"><a name="l03688"></a><span class="lineno"> 3688</span>  }</div><div class="line"><a name="l03689"></a><span class="lineno"> 3689</span>  <span class="keywordflow">return</span> 1; <span class="comment">/* Results OK */</span></div><div class="line"><a name="l03690"></a><span class="lineno"> 3690</span> </div><div class="line"><a name="l03691"></a><span class="lineno"> 3691</span> Inf:</div><div class="line"><a name="l03692"></a><span class="lineno"> 3692</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"Computation results to 'Infinity'"</span>, 0);</div><div class="line"><a name="l03693"></a><span class="lineno"> 3693</span> NaN:</div><div class="line"><a name="l03694"></a><span class="lineno"> 3694</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>, <span class="stringliteral">"Computation results to 'NaN'"</span>, 0);</div><div class="line"><a name="l03695"></a><span class="lineno"> 3695</span> }</div><div class="line"><a name="l03696"></a><span class="lineno"> 3696</span> </div><div class="line"><a name="l03697"></a><span class="lineno"> 3697</span> <span class="comment">/*</span></div><div class="line"><a name="l03698"></a><span class="lineno"> 3698</span> <span class="comment"> ----------------------------------------------------------------</span></div><div class="line"><a name="l03699"></a><span class="lineno"> 3699</span> <span class="comment">*/</span></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> <span class="comment">/*</span></div><div class="line"><a name="l03702"></a><span class="lineno"> 3702</span> <span class="comment"> * returns number of chars needed to represent vp in specified format.</span></div><div class="line"><a name="l03703"></a><span class="lineno"> 3703</span> <span class="comment"> */</span></div><div class="line"><a name="l03704"></a><span class="lineno"> 3704</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l03705"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a7e19bc6386622de700e993bbd70d731c"> 3705</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *vp,<span class="keyword">const</span> <span class="keywordtype">char</span> *pszFmt)</div><div class="line"><a name="l03706"></a><span class="lineno"> 3706</span> {</div><div class="line"><a name="l03707"></a><span class="lineno"> 3707</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> ex;</div><div class="line"><a name="l03708"></a><span class="lineno"> 3708</span>  <span class="keywordtype">size_t</span> nc;</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">if</span> (vp == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>*2+6;</div><div class="line"><a name="l03711"></a><span class="lineno"> 3711</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(vp)) <span class="keywordflow">return</span> 32; <span class="comment">/* not sure,may be OK */</span></div><div class="line"><a name="l03712"></a><span class="lineno"> 3712</span> </div><div class="line"><a name="l03713"></a><span class="lineno"> 3713</span>  <span class="keywordflow">switch</span>(*pszFmt) {</div><div class="line"><a name="l03714"></a><span class="lineno"> 3714</span>  <span class="keywordflow">case</span> <span class="charliteral">'F'</span>:</div><div class="line"><a name="l03715"></a><span class="lineno"> 3715</span>  nc = <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>*(vp-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + 1)+2;</div><div class="line"><a name="l03716"></a><span class="lineno"> 3716</span>  ex = vp-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l03717"></a><span class="lineno"> 3717</span>  <span class="keywordflow">if</span> (ex < 0) {</div><div class="line"><a name="l03718"></a><span class="lineno"> 3718</span>  nc += <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>*(size_t)(-ex);</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>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03721"></a><span class="lineno"> 3721</span>  <span class="keywordflow">if</span> ((<span class="keywordtype">size_t</span>)ex > vp-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) {</div><div class="line"><a name="l03722"></a><span class="lineno"> 3722</span>  nc += <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>*((size_t)ex - vp-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>);</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>  }</div><div class="line"><a name="l03725"></a><span class="lineno"> 3725</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03726"></a><span class="lineno"> 3726</span>  <span class="keywordflow">case</span> <span class="charliteral">'E'</span>:</div><div class="line"><a name="l03727"></a><span class="lineno"> 3727</span>  <span class="comment">/* fall through */</span></div><div class="line"><a name="l03728"></a><span class="lineno"> 3728</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03729"></a><span class="lineno"> 3729</span>  nc = <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>*(vp-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + 2)+6; <span class="comment">/* 3: sign + exponent chars */</span></div><div class="line"><a name="l03730"></a><span class="lineno"> 3730</span>  }</div><div class="line"><a name="l03731"></a><span class="lineno"> 3731</span>  <span class="keywordflow">return</span> nc;</div><div class="line"><a name="l03732"></a><span class="lineno"> 3732</span> }</div><div class="line"><a name="l03733"></a><span class="lineno"> 3733</span> </div><div class="line"><a name="l03734"></a><span class="lineno"> 3734</span> <span class="comment">/*</span></div><div class="line"><a name="l03735"></a><span class="lineno"> 3735</span> <span class="comment"> * Initializer for Vp routines and constants used.</span></div><div class="line"><a name="l03736"></a><span class="lineno"> 3736</span> <span class="comment"> * [Input]</span></div><div class="line"><a name="l03737"></a><span class="lineno"> 3737</span> <span class="comment"> * BaseVal: Base value(assigned to BASE) for Vp calculation.</span></div><div class="line"><a name="l03738"></a><span class="lineno"> 3738</span> <span class="comment"> * It must be the form BaseVal=10**n.(n=1,2,3,...)</span></div><div class="line"><a name="l03739"></a><span class="lineno"> 3739</span> <span class="comment"> * If Base <= 0L,then the BASE will be calculated so</span></div><div class="line"><a name="l03740"></a><span class="lineno"> 3740</span> <span class="comment"> * that BASE is as large as possible satisfying the</span></div><div class="line"><a name="l03741"></a><span class="lineno"> 3741</span> <span class="comment"> * relation MaxVal <= BASE*(BASE+1). Where the value</span></div><div class="line"><a name="l03742"></a><span class="lineno"> 3742</span> <span class="comment"> * MaxVal is the largest value which can be represented</span></div><div class="line"><a name="l03743"></a><span class="lineno"> 3743</span> <span class="comment"> * by one BDIGIT word in the computer used.</span></div><div class="line"><a name="l03744"></a><span class="lineno"> 3744</span> <span class="comment"> *</span></div><div class="line"><a name="l03745"></a><span class="lineno"> 3745</span> <span class="comment"> * [Returns]</span></div><div class="line"><a name="l03746"></a><span class="lineno"> 3746</span> <span class="comment"> * 1+DBL_DIG ... OK</span></div><div class="line"><a name="l03747"></a><span class="lineno"> 3747</span> <span class="comment"> */</span></div><div class="line"><a name="l03748"></a><span class="lineno"> 3748</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l03749"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a234ec5ef29b45597dd84498046e76bbc"> 3749</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a234ec5ef29b45597dd84498046e76bbc">VpInit</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> BaseVal)</div><div class="line"><a name="l03750"></a><span class="lineno"> 3750</span> {</div><div class="line"><a name="l03751"></a><span class="lineno"> 3751</span>  <span class="comment">/* Setup +/- Inf NaN -0 */</span></div><div class="line"><a name="l03752"></a><span class="lineno"> 3752</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a29ab437440f914874fe2b27230788da5">VpGetDoubleNaN</a>();</div><div class="line"><a name="l03753"></a><span class="lineno"> 3753</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#afa988d7eb61defaac42ece03d19c2e66">VpGetDoublePosInf</a>();</div><div class="line"><a name="l03754"></a><span class="lineno"> 3754</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a39cee6a07315ceb32c6e25024197b054">VpGetDoubleNegInf</a>();</div><div class="line"><a name="l03755"></a><span class="lineno"> 3755</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a00dc82065d4f33b92dce7ae4bf136476">VpGetDoubleNegZero</a>();</div><div class="line"><a name="l03756"></a><span class="lineno"> 3756</span> </div><div class="line"><a name="l03757"></a><span class="lineno"> 3757</span>  <span class="comment">/* Allocates Vp constants. */</span></div><div class="line"><a name="l03758"></a><span class="lineno"> 3758</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a7ec724265fbe57c34f54875aa958460d">VpConstOne</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(1UL, <span class="stringliteral">"1"</span>);</div><div class="line"><a name="l03759"></a><span class="lineno"> 3759</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adc26687ac6864e8400f8d9710a02e3ea">VpPt5</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(1UL, <span class="stringliteral">".5"</span>);</div><div class="line"><a name="l03760"></a><span class="lineno"> 3760</span> </div><div class="line"><a name="l03761"></a><span class="lineno"> 3761</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l03762"></a><span class="lineno"> 3762</span>  gnAlloc = 0;</div><div class="line"><a name="l03763"></a><span class="lineno"> 3763</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l03764"></a><span class="lineno"> 3764</span> </div><div class="line"><a name="l03765"></a><span class="lineno"> 3765</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l03766"></a><span class="lineno"> 3766</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l03767"></a><span class="lineno"> 3767</span>  printf(<span class="stringliteral">"VpInit: BaseVal = %lu\n"</span>, BaseVal);</div><div class="line"><a name="l03768"></a><span class="lineno"> 3768</span>  printf(<span class="stringliteral">" BASE = %lu\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>);</div><div class="line"><a name="l03769"></a><span class="lineno"> 3769</span>  printf(<span class="stringliteral">" HALF_BASE = %lu\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac9e5231401deab458a0de942e03feeb8">HALF_BASE</a>);</div><div class="line"><a name="l03770"></a><span class="lineno"> 3770</span>  printf(<span class="stringliteral">" BASE1 = %lu\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>);</div><div class="line"><a name="l03771"></a><span class="lineno"> 3771</span>  printf(<span class="stringliteral">" BASE_FIG = %u\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>);</div><div class="line"><a name="l03772"></a><span class="lineno"> 3772</span>  printf(<span class="stringliteral">" DBLE_FIG = %d\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac9322094e0d6891589fca4ac9ef4fb8a">DBLE_FIG</a>);</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="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l03775"></a><span class="lineno"> 3775</span> </div><div class="line"><a name="l03776"></a><span class="lineno"> 3776</span>  <span class="keywordflow">return</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a>();</div><div class="line"><a name="l03777"></a><span class="lineno"> 3777</span> }</div><div class="line"><a name="l03778"></a><span class="lineno"> 3778</span> </div><div class="line"><a name="l03779"></a><span class="lineno"> 3779</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *</div><div class="line"><a name="l03780"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a4ac23be3d17896c15da333d6bfa0bf8b"> 3780</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4ac23be3d17896c15da333d6bfa0bf8b">VpOne</a>(<span class="keywordtype">void</span>)</div><div class="line"><a name="l03781"></a><span class="lineno"> 3781</span> {</div><div class="line"><a name="l03782"></a><span class="lineno"> 3782</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7ec724265fbe57c34f54875aa958460d">VpConstOne</a>;</div><div class="line"><a name="l03783"></a><span class="lineno"> 3783</span> }</div><div class="line"><a name="l03784"></a><span class="lineno"> 3784</span> </div><div class="line"><a name="l03785"></a><span class="lineno"> 3785</span> <span class="comment">/* If exponent overflows,then raise exception or returns 0 */</span></div><div class="line"><a name="l03786"></a><span class="lineno"> 3786</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03787"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775"> 3787</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> n)</div><div class="line"><a name="l03788"></a><span class="lineno"> 3788</span> {</div><div class="line"><a name="l03789"></a><span class="lineno"> 3789</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> e = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l03790"></a><span class="lineno"> 3790</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> m = e+n;</div><div class="line"><a name="l03791"></a><span class="lineno"> 3791</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> eb, mb;</div><div class="line"><a name="l03792"></a><span class="lineno"> 3792</span>  <span class="keywordflow">if</span> (e > 0) {</div><div class="line"><a name="l03793"></a><span class="lineno"> 3793</span>  <span class="keywordflow">if</span> (n > 0) {</div><div class="line"><a name="l03794"></a><span class="lineno"> 3794</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(m, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>) ||</div><div class="line"><a name="l03795"></a><span class="lineno"> 3795</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(e, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>))</div><div class="line"><a name="l03796"></a><span class="lineno"> 3796</span>  <span class="keywordflow">goto</span> overflow;</div><div class="line"><a name="l03797"></a><span class="lineno"> 3797</span>  mb = m*(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l03798"></a><span class="lineno"> 3798</span>  eb = e*(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l03799"></a><span class="lineno"> 3799</span>  <span class="keywordflow">if</span> (mb < eb) <span class="keywordflow">goto</span> overflow;</div><div class="line"><a name="l03800"></a><span class="lineno"> 3800</span>  }</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>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (n < 0) {</div><div class="line"><a name="l03803"></a><span class="lineno"> 3803</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(m, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>) ||</div><div class="line"><a name="l03804"></a><span class="lineno"> 3804</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(e, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>))</div><div class="line"><a name="l03805"></a><span class="lineno"> 3805</span>  <span class="keywordflow">goto</span> underflow;</div><div class="line"><a name="l03806"></a><span class="lineno"> 3806</span>  mb = m*(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l03807"></a><span class="lineno"> 3807</span>  eb = e*(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l03808"></a><span class="lineno"> 3808</span>  <span class="keywordflow">if</span> (mb > eb) <span class="keywordflow">goto</span> underflow;</div><div class="line"><a name="l03809"></a><span class="lineno"> 3809</span>  }</div><div class="line"><a name="l03810"></a><span class="lineno"> 3810</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = m;</div><div class="line"><a name="l03811"></a><span class="lineno"> 3811</span>  <span class="keywordflow">return</span> 1;</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="comment">/* Overflow/Underflow ==> Raise exception or returns 0 */</span></div><div class="line"><a name="l03814"></a><span class="lineno"> 3814</span> underflow:</div><div class="line"><a name="l03815"></a><span class="lineno"> 3815</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l03816"></a><span class="lineno"> 3816</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a>, <span class="stringliteral">"Exponent underflow"</span>, 0);</div><div class="line"><a name="l03817"></a><span class="lineno"> 3817</span> </div><div class="line"><a name="l03818"></a><span class="lineno"> 3818</span> overflow:</div><div class="line"><a name="l03819"></a><span class="lineno"> 3819</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l03820"></a><span class="lineno"> 3820</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ab2726f87fe36be3177b3aef61eb82c46">VP_EXCEPTION_OVERFLOW</a>, <span class="stringliteral">"Exponent overflow"</span>, 0);</div><div class="line"><a name="l03821"></a><span class="lineno"> 3821</span> }</div><div class="line"><a name="l03822"></a><span class="lineno"> 3822</span> </div><div class="line"><a name="l03823"></a><span class="lineno"> 3823</span> <span class="comment">/*</span></div><div class="line"><a name="l03824"></a><span class="lineno"> 3824</span> <span class="comment"> * Allocates variable.</span></div><div class="line"><a name="l03825"></a><span class="lineno"> 3825</span> <span class="comment"> * [Input]</span></div><div class="line"><a name="l03826"></a><span class="lineno"> 3826</span> <span class="comment"> * mx ... allocation unit, if zero then mx is determined by szVal.</span></div><div class="line"><a name="l03827"></a><span class="lineno"> 3827</span> <span class="comment"> * The mx is the number of effective digits can to be stored.</span></div><div class="line"><a name="l03828"></a><span class="lineno"> 3828</span> <span class="comment"> * szVal ... value assigned(char). If szVal==NULL,then zero is assumed.</span></div><div class="line"><a name="l03829"></a><span class="lineno"> 3829</span> <span class="comment"> * If szVal[0]=='#' then Max. Prec. will not be considered(1.1.7),</span></div><div class="line"><a name="l03830"></a><span class="lineno"> 3830</span> <span class="comment"> * full precision specified by szVal is allocated.</span></div><div class="line"><a name="l03831"></a><span class="lineno"> 3831</span> <span class="comment"> *</span></div><div class="line"><a name="l03832"></a><span class="lineno"> 3832</span> <span class="comment"> * [Returns]</span></div><div class="line"><a name="l03833"></a><span class="lineno"> 3833</span> <span class="comment"> * Pointer to the newly allocated variable, or</span></div><div class="line"><a name="l03834"></a><span class="lineno"> 3834</span> <span class="comment"> * NULL be returned if memory allocation is failed,or any error.</span></div><div class="line"><a name="l03835"></a><span class="lineno"> 3835</span> <span class="comment"> */</span></div><div class="line"><a name="l03836"></a><span class="lineno"> 3836</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *</div><div class="line"><a name="l03837"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#ab58e7165de25d4d6346c5a3f05c8c5f5"> 3837</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(<span class="keywordtype">size_t</span> mx, <span class="keyword">const</span> <span class="keywordtype">char</span> *szVal)</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="keywordtype">size_t</span> i, ni, ipn, ipf, nf, ipe, <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>, nalloc;</div><div class="line"><a name="l03840"></a><span class="lineno"> 3840</span>  <span class="keywordtype">char</span> v, *psz;</div><div class="line"><a name="l03841"></a><span class="lineno"> 3841</span>  <span class="keywordtype">int</span> sign=1;</div><div class="line"><a name="l03842"></a><span class="lineno"> 3842</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *vp = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l03843"></a><span class="lineno"> 3843</span>  <span class="keywordtype">size_t</span> mf = <a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>();</div><div class="line"><a name="l03844"></a><span class="lineno"> 3844</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</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>  mx = (mx + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>; <span class="comment">/* Determine allocation unit. */</span></div><div class="line"><a name="l03847"></a><span class="lineno"> 3847</span>  <span class="keywordflow">if</span> (mx == 0) ++mx;</div><div class="line"><a name="l03848"></a><span class="lineno"> 3848</span> </div><div class="line"><a name="l03849"></a><span class="lineno"> 3849</span>  <span class="keywordflow">if</span> (szVal) {</div><div class="line"><a name="l03850"></a><span class="lineno"> 3850</span>  <span class="keywordflow">while</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(*szVal)) szVal++;</div><div class="line"><a name="l03851"></a><span class="lineno"> 3851</span>  <span class="keywordflow">if</span> (*szVal != <span class="charliteral">'#'</span>) {</div><div class="line"><a name="l03852"></a><span class="lineno"> 3852</span>  <span class="keywordflow">if</span> (mf) {</div><div class="line"><a name="l03853"></a><span class="lineno"> 3853</span>  mf = (mf + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> + 2; <span class="comment">/* Needs 1 more for div */</span></div><div class="line"><a name="l03854"></a><span class="lineno"> 3854</span>  <span class="keywordflow">if</span> (mx > mf) {</div><div class="line"><a name="l03855"></a><span class="lineno"> 3855</span>  mx = mf;</div><div class="line"><a name="l03856"></a><span class="lineno"> 3856</span>  }</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>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03860"></a><span class="lineno"> 3860</span>  ++szVal;</div><div class="line"><a name="l03861"></a><span class="lineno"> 3861</span>  }</div><div class="line"><a name="l03862"></a><span class="lineno"> 3862</span>  }</div><div class="line"><a name="l03863"></a><span class="lineno"> 3863</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l03864"></a><span class="lineno"> 3864</span>  <span class="comment">/* necessary to be able to store */</span></div><div class="line"><a name="l03865"></a><span class="lineno"> 3865</span>  <span class="comment">/* at least mx digits. */</span></div><div class="line"><a name="l03866"></a><span class="lineno"> 3866</span>  <span class="comment">/* szVal==NULL ==> allocate zero value. */</span></div><div class="line"><a name="l03867"></a><span class="lineno"> 3867</span>  vp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0">VpAllocReal</a>(mx);</div><div class="line"><a name="l03868"></a><span class="lineno"> 3868</span>  <span class="comment">/* xmalloc() alway returns(or throw interruption) */</span></div><div class="line"><a name="l03869"></a><span class="lineno"> 3869</span>  vp-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = mx; <span class="comment">/* set max precision */</span></div><div class="line"><a name="l03870"></a><span class="lineno"> 3870</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(vp, 1); <span class="comment">/* initialize vp to zero. */</span></div><div class="line"><a name="l03871"></a><span class="lineno"> 3871</span>  <span class="keywordflow">return</span> vp;</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>  <span class="comment">/* Skip all '_' after digit: 2006-6-30 */</span></div><div class="line"><a name="l03875"></a><span class="lineno"> 3875</span>  ni = 0;</div><div class="line"><a name="l03876"></a><span class="lineno"> 3876</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../db/d2e/intern_8h.html#a9c93a5402138185ceff87cb1f483c4f5">rb_str_tmp_new</a>(<a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(szVal) + 1);</div><div class="line"><a name="l03877"></a><span class="lineno"> 3877</span>  psz = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l03878"></a><span class="lineno"> 3878</span>  i = 0;</div><div class="line"><a name="l03879"></a><span class="lineno"> 3879</span>  ipn = 0;</div><div class="line"><a name="l03880"></a><span class="lineno"> 3880</span>  <span class="keywordflow">while</span> ((psz[i] = szVal[ipn]) != 0) {</div><div class="line"><a name="l03881"></a><span class="lineno"> 3881</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(psz[i])) ++ni;</div><div class="line"><a name="l03882"></a><span class="lineno"> 3882</span>  <span class="keywordflow">if</span> (psz[i] == <span class="charliteral">'_'</span>) {</div><div class="line"><a name="l03883"></a><span class="lineno"> 3883</span>  <span class="keywordflow">if</span> (ni > 0) {</div><div class="line"><a name="l03884"></a><span class="lineno"> 3884</span>  ipn++;</div><div class="line"><a name="l03885"></a><span class="lineno"> 3885</span>  <span class="keywordflow">continue</span>;</div><div class="line"><a name="l03886"></a><span class="lineno"> 3886</span>  }</div><div class="line"><a name="l03887"></a><span class="lineno"> 3887</span>  psz[i] = 0;</div><div class="line"><a name="l03888"></a><span class="lineno"> 3888</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03889"></a><span class="lineno"> 3889</span>  }</div><div class="line"><a name="l03890"></a><span class="lineno"> 3890</span>  ++i;</div><div class="line"><a name="l03891"></a><span class="lineno"> 3891</span>  ++ipn;</div><div class="line"><a name="l03892"></a><span class="lineno"> 3892</span>  }</div><div class="line"><a name="l03893"></a><span class="lineno"> 3893</span>  <span class="comment">/* Skip trailing spaces */</span></div><div class="line"><a name="l03894"></a><span class="lineno"> 3894</span>  <span class="keywordflow">while</span> (--i > 0) {</div><div class="line"><a name="l03895"></a><span class="lineno"> 3895</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(psz[i])) psz[i] = 0;</div><div class="line"><a name="l03896"></a><span class="lineno"> 3896</span>  <span class="keywordflow">else</span> <span class="keywordflow">break</span>;</div><div class="line"><a name="l03897"></a><span class="lineno"> 3897</span>  }</div><div class="line"><a name="l03898"></a><span class="lineno"> 3898</span>  szVal = psz;</div><div class="line"><a name="l03899"></a><span class="lineno"> 3899</span> </div><div class="line"><a name="l03900"></a><span class="lineno"> 3900</span>  <span class="comment">/* Check on Inf & NaN */</span></div><div class="line"><a name="l03901"></a><span class="lineno"> 3901</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a7b2a344e05c55a7f12df3b958b6634df">StrCmp</a>(szVal, <a class="code" href="../../d0/da5/bigdecimal_8h.html#ad1624a0486f932d09473f3dd9483918d">SZ_PINF</a>) == 0 || <a class="code" href="../../de/d07/bigdecimal_8c.html#a7b2a344e05c55a7f12df3b958b6634df">StrCmp</a>(szVal, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a187abc9b9b2cc7e2e5fe8201d95b5a8b">SZ_INF</a>) == 0 ) {</div><div class="line"><a name="l03902"></a><span class="lineno"> 3902</span>  vp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0">VpAllocReal</a>(1);</div><div class="line"><a name="l03903"></a><span class="lineno"> 3903</span>  vp-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = 1; <span class="comment">/* set max precision */</span></div><div class="line"><a name="l03904"></a><span class="lineno"> 3904</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(vp);</div><div class="line"><a name="l03905"></a><span class="lineno"> 3905</span>  <span class="keywordflow">return</span> vp;</div><div class="line"><a name="l03906"></a><span class="lineno"> 3906</span>  }</div><div class="line"><a name="l03907"></a><span class="lineno"> 3907</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a7b2a344e05c55a7f12df3b958b6634df">StrCmp</a>(szVal, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a019dcf0bc571a8243d08d531df7914cf">SZ_NINF</a>) == 0) {</div><div class="line"><a name="l03908"></a><span class="lineno"> 3908</span>  vp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0">VpAllocReal</a>(1);</div><div class="line"><a name="l03909"></a><span class="lineno"> 3909</span>  vp-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = 1; <span class="comment">/* set max precision */</span></div><div class="line"><a name="l03910"></a><span class="lineno"> 3910</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a96b2e932934d1a83d0dfe9f02f4a17e9">VpSetNegInf</a>(vp);</div><div class="line"><a name="l03911"></a><span class="lineno"> 3911</span>  <span class="keywordflow">return</span> vp;</div><div class="line"><a name="l03912"></a><span class="lineno"> 3912</span>  }</div><div class="line"><a name="l03913"></a><span class="lineno"> 3913</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a7b2a344e05c55a7f12df3b958b6634df">StrCmp</a>(szVal, <a class="code" href="../../d0/da5/bigdecimal_8h.html#ac475b913ca9cacf8ca385497984443ed">SZ_NaN</a>) == 0) {</div><div class="line"><a name="l03914"></a><span class="lineno"> 3914</span>  vp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0">VpAllocReal</a>(1);</div><div class="line"><a name="l03915"></a><span class="lineno"> 3915</span>  vp-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = 1; <span class="comment">/* set max precision */</span></div><div class="line"><a name="l03916"></a><span class="lineno"> 3916</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(vp);</div><div class="line"><a name="l03917"></a><span class="lineno"> 3917</span>  <span class="keywordflow">return</span> vp;</div><div class="line"><a name="l03918"></a><span class="lineno"> 3918</span>  }</div><div class="line"><a name="l03919"></a><span class="lineno"> 3919</span> </div><div class="line"><a name="l03920"></a><span class="lineno"> 3920</span>  <span class="comment">/* check on number szVal[] */</span></div><div class="line"><a name="l03921"></a><span class="lineno"> 3921</span>  ipn = i = 0;</div><div class="line"><a name="l03922"></a><span class="lineno"> 3922</span>  <span class="keywordflow">if</span> (szVal[i] == <span class="charliteral">'-'</span>) { sign=-1; ++i; }</div><div class="line"><a name="l03923"></a><span class="lineno"> 3923</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (szVal[i] == <span class="charliteral">'+'</span>) ++i;</div><div class="line"><a name="l03924"></a><span class="lineno"> 3924</span>  <span class="comment">/* Skip digits */</span></div><div class="line"><a name="l03925"></a><span class="lineno"> 3925</span>  ni = 0; <span class="comment">/* digits in mantissa */</span></div><div class="line"><a name="l03926"></a><span class="lineno"> 3926</span>  <span class="keywordflow">while</span> ((v = szVal[i]) != 0) {</div><div class="line"><a name="l03927"></a><span class="lineno"> 3927</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(v)) <span class="keywordflow">break</span>;</div><div class="line"><a name="l03928"></a><span class="lineno"> 3928</span>  ++i;</div><div class="line"><a name="l03929"></a><span class="lineno"> 3929</span>  ++ni;</div><div class="line"><a name="l03930"></a><span class="lineno"> 3930</span>  }</div><div class="line"><a name="l03931"></a><span class="lineno"> 3931</span>  nf = 0;</div><div class="line"><a name="l03932"></a><span class="lineno"> 3932</span>  ipf = 0;</div><div class="line"><a name="l03933"></a><span class="lineno"> 3933</span>  ipe = 0;</div><div class="line"><a name="l03934"></a><span class="lineno"> 3934</span>  <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a> = 0;</div><div class="line"><a name="l03935"></a><span class="lineno"> 3935</span>  <span class="keywordflow">if</span> (v) {</div><div class="line"><a name="l03936"></a><span class="lineno"> 3936</span>  <span class="comment">/* other than digit nor \0 */</span></div><div class="line"><a name="l03937"></a><span class="lineno"> 3937</span>  <span class="keywordflow">if</span> (szVal[i] == <span class="charliteral">'.'</span>) { <span class="comment">/* xxx. */</span></div><div class="line"><a name="l03938"></a><span class="lineno"> 3938</span>  ++i;</div><div class="line"><a name="l03939"></a><span class="lineno"> 3939</span>  ipf = i;</div><div class="line"><a name="l03940"></a><span class="lineno"> 3940</span>  <span class="keywordflow">while</span> ((v = szVal[i]) != 0) { <span class="comment">/* get fraction part. */</span></div><div class="line"><a name="l03941"></a><span class="lineno"> 3941</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(v)) <span class="keywordflow">break</span>;</div><div class="line"><a name="l03942"></a><span class="lineno"> 3942</span>  ++i;</div><div class="line"><a name="l03943"></a><span class="lineno"> 3943</span>  ++nf;</div><div class="line"><a name="l03944"></a><span class="lineno"> 3944</span>  }</div><div class="line"><a name="l03945"></a><span class="lineno"> 3945</span>  }</div><div class="line"><a name="l03946"></a><span class="lineno"> 3946</span>  ipe = 0; <span class="comment">/* Exponent */</span></div><div class="line"><a name="l03947"></a><span class="lineno"> 3947</span> </div><div class="line"><a name="l03948"></a><span class="lineno"> 3948</span>  <span class="keywordflow">switch</span> (szVal[i]) {</div><div class="line"><a name="l03949"></a><span class="lineno"> 3949</span>  <span class="keywordflow">case</span> <span class="charliteral">'\0'</span>:</div><div class="line"><a name="l03950"></a><span class="lineno"> 3950</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03951"></a><span class="lineno"> 3951</span>  <span class="keywordflow">case</span> <span class="charliteral">'e'</span>: <span class="keywordflow">case</span> <span class="charliteral">'E'</span>:</div><div class="line"><a name="l03952"></a><span class="lineno"> 3952</span>  <span class="keywordflow">case</span> <span class="charliteral">'d'</span>: <span class="keywordflow">case</span> <span class="charliteral">'D'</span>:</div><div class="line"><a name="l03953"></a><span class="lineno"> 3953</span>  ++i;</div><div class="line"><a name="l03954"></a><span class="lineno"> 3954</span>  ipe = i;</div><div class="line"><a name="l03955"></a><span class="lineno"> 3955</span>  v = szVal[i];</div><div class="line"><a name="l03956"></a><span class="lineno"> 3956</span>  <span class="keywordflow">if</span> ((v == <span class="charliteral">'-'</span>) || (v == <span class="charliteral">'+'</span>)) ++i;</div><div class="line"><a name="l03957"></a><span class="lineno"> 3957</span>  <span class="keywordflow">while</span> ((v=szVal[i]) != 0) {</div><div class="line"><a name="l03958"></a><span class="lineno"> 3958</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a>(v)) <span class="keywordflow">break</span>;</div><div class="line"><a name="l03959"></a><span class="lineno"> 3959</span>  ++i;</div><div class="line"><a name="l03960"></a><span class="lineno"> 3960</span>  ++<a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l03961"></a><span class="lineno"> 3961</span>  }</div><div class="line"><a name="l03962"></a><span class="lineno"> 3962</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03963"></a><span class="lineno"> 3963</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03964"></a><span class="lineno"> 3964</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03965"></a><span class="lineno"> 3965</span>  }</div><div class="line"><a name="l03966"></a><span class="lineno"> 3966</span>  }</div><div class="line"><a name="l03967"></a><span class="lineno"> 3967</span>  nalloc = (ni + nf + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> + 1; <span class="comment">/* set effective allocation */</span></div><div class="line"><a name="l03968"></a><span class="lineno"> 3968</span>  <span class="comment">/* units for szVal[] */</span></div><div class="line"><a name="l03969"></a><span class="lineno"> 3969</span>  <span class="keywordflow">if</span> (mx == 0) mx = 1;</div><div class="line"><a name="l03970"></a><span class="lineno"> 3970</span>  nalloc = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a4886a8f966a69949cefc46a6a3468006">Max</a>(nalloc, mx);</div><div class="line"><a name="l03971"></a><span class="lineno"> 3971</span>  mx = nalloc;</div><div class="line"><a name="l03972"></a><span class="lineno"> 3972</span>  vp = <a class="code" href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0">VpAllocReal</a>(mx);</div><div class="line"><a name="l03973"></a><span class="lineno"> 3973</span>  <span class="comment">/* xmalloc() alway returns(or throw interruption) */</span></div><div class="line"><a name="l03974"></a><span class="lineno"> 3974</span>  vp-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = mx; <span class="comment">/* set max precision */</span></div><div class="line"><a name="l03975"></a><span class="lineno"> 3975</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(vp, sign);</div><div class="line"><a name="l03976"></a><span class="lineno"> 3976</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af80e9f5558a00f504e05021fddfbf09f">VpCtoV</a>(vp, &szVal[ipn], ni, &szVal[ipf], nf, &szVal[ipe], <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>);</div><div class="line"><a name="l03977"></a><span class="lineno"> 3977</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, 0);</div><div class="line"><a name="l03978"></a><span class="lineno"> 3978</span>  <span class="keywordflow">return</span> vp;</div><div class="line"><a name="l03979"></a><span class="lineno"> 3979</span> }</div><div class="line"><a name="l03980"></a><span class="lineno"> 3980</span> </div><div class="line"><a name="l03981"></a><span class="lineno"> 3981</span> <span class="comment">/*</span></div><div class="line"><a name="l03982"></a><span class="lineno"> 3982</span> <span class="comment"> * Assignment(c=a).</span></div><div class="line"><a name="l03983"></a><span class="lineno"> 3983</span> <span class="comment"> * [Input]</span></div><div class="line"><a name="l03984"></a><span class="lineno"> 3984</span> <span class="comment"> * a ... RHSV</span></div><div class="line"><a name="l03985"></a><span class="lineno"> 3985</span> <span class="comment"> * isw ... switch for assignment.</span></div><div class="line"><a name="l03986"></a><span class="lineno"> 3986</span> <span class="comment"> * c = a when isw > 0</span></div><div class="line"><a name="l03987"></a><span class="lineno"> 3987</span> <span class="comment"> * c = -a when isw < 0</span></div><div class="line"><a name="l03988"></a><span class="lineno"> 3988</span> <span class="comment"> * if c->MaxPrec < a->Prec,then round operation</span></div><div class="line"><a name="l03989"></a><span class="lineno"> 3989</span> <span class="comment"> * will be performed.</span></div><div class="line"><a name="l03990"></a><span class="lineno"> 3990</span> <span class="comment"> * [Output]</span></div><div class="line"><a name="l03991"></a><span class="lineno"> 3991</span> <span class="comment"> * c ... LHSV</span></div><div class="line"><a name="l03992"></a><span class="lineno"> 3992</span> <span class="comment"> */</span></div><div class="line"><a name="l03993"></a><span class="lineno"> 3993</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l03994"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e"> 3994</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <span class="keywordtype">int</span> isw)</div><div class="line"><a name="l03995"></a><span class="lineno"> 3995</span> {</div><div class="line"><a name="l03996"></a><span class="lineno"> 3996</span>  <span class="keywordtype">size_t</span> n;</div><div class="line"><a name="l03997"></a><span class="lineno"> 3997</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a)) {</div><div class="line"><a name="l03998"></a><span class="lineno"> 3998</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l03999"></a><span class="lineno"> 3999</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04000"></a><span class="lineno"> 4000</span>  }</div><div class="line"><a name="l04001"></a><span class="lineno"> 4001</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(a)) {</div><div class="line"><a name="l04002"></a><span class="lineno"> 4002</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, isw * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04003"></a><span class="lineno"> 4003</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04004"></a><span class="lineno"> 4004</span>  }</div><div class="line"><a name="l04005"></a><span class="lineno"> 4005</span> </div><div class="line"><a name="l04006"></a><span class="lineno"> 4006</span>  <span class="comment">/* check if the RHS is zero */</span></div><div class="line"><a name="l04007"></a><span class="lineno"> 4007</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l04008"></a><span class="lineno"> 4008</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>; <span class="comment">/* store exponent */</span></div><div class="line"><a name="l04009"></a><span class="lineno"> 4009</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, isw * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a)); <span class="comment">/* set sign */</span></div><div class="line"><a name="l04010"></a><span class="lineno"> 4010</span>  n = (a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> < c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>) ? (a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) : (c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l04011"></a><span class="lineno"> 4011</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = n;</div><div class="line"><a name="l04012"></a><span class="lineno"> 4012</span>  memcpy(c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, n * <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>));</div><div class="line"><a name="l04013"></a><span class="lineno"> 4013</span>  <span class="comment">/* Needs round ? */</span></div><div class="line"><a name="l04014"></a><span class="lineno"> 4014</span>  <span class="keywordflow">if</span> (isw != 10) {</div><div class="line"><a name="l04015"></a><span class="lineno"> 4015</span>  <span class="comment">/* Not in ActiveRound */</span></div><div class="line"><a name="l04016"></a><span class="lineno"> 4016</span>  <span class="keywordflow">if</span>(c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> < a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) {</div><div class="line"><a name="l04017"></a><span class="lineno"> 4017</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a>(c, n, (n>0) ? a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[n-1] : 0, a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[n]);</div><div class="line"><a name="l04018"></a><span class="lineno"> 4018</span>  }</div><div class="line"><a name="l04019"></a><span class="lineno"> 4019</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04020"></a><span class="lineno"> 4020</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad">VpLimitRound</a>(c,0);</div><div class="line"><a name="l04021"></a><span class="lineno"> 4021</span>  }</div><div class="line"><a name="l04022"></a><span class="lineno"> 4022</span>  }</div><div class="line"><a name="l04023"></a><span class="lineno"> 4023</span>  }</div><div class="line"><a name="l04024"></a><span class="lineno"> 4024</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04025"></a><span class="lineno"> 4025</span>  <span class="comment">/* The value of 'a' is zero. */</span></div><div class="line"><a name="l04026"></a><span class="lineno"> 4026</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, isw * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04027"></a><span class="lineno"> 4027</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l04028"></a><span class="lineno"> 4028</span>  }</div><div class="line"><a name="l04029"></a><span class="lineno"> 4029</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04030"></a><span class="lineno"> 4030</span> }</div><div class="line"><a name="l04031"></a><span class="lineno"> 4031</span> </div><div class="line"><a name="l04032"></a><span class="lineno"> 4032</span> <span class="comment">/*</span></div><div class="line"><a name="l04033"></a><span class="lineno"> 4033</span> <span class="comment"> * c = a + b when operation = 1 or 2</span></div><div class="line"><a name="l04034"></a><span class="lineno"> 4034</span> <span class="comment"> * = a - b when operation = -1 or -2.</span></div><div class="line"><a name="l04035"></a><span class="lineno"> 4035</span> <span class="comment"> * Returns number of significant digits of c</span></div><div class="line"><a name="l04036"></a><span class="lineno"> 4036</span> <span class="comment"> */</span></div><div class="line"><a name="l04037"></a><span class="lineno"> 4037</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l04038"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a70d5c29d60a254ce8938b64cf4f502ac"> 4038</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b, <span class="keywordtype">int</span> operation)</div><div class="line"><a name="l04039"></a><span class="lineno"> 4039</span> {</div><div class="line"><a name="l04040"></a><span class="lineno"> 4040</span>  <span class="keywordtype">short</span> sw, isw;</div><div class="line"><a name="l04041"></a><span class="lineno"> 4041</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a_ptr, *b_ptr;</div><div class="line"><a name="l04042"></a><span class="lineno"> 4042</span>  <span class="keywordtype">size_t</span> n, na, nb, i;</div><div class="line"><a name="l04043"></a><span class="lineno"> 4043</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> mrv;</div><div class="line"><a name="l04044"></a><span class="lineno"> 4044</span> </div><div class="line"><a name="l04045"></a><span class="lineno"> 4045</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04046"></a><span class="lineno"> 4046</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04047"></a><span class="lineno"> 4047</span>  VPrint(stdout, <span class="stringliteral">"VpAddSub(enter) a=% \n"</span>, a);</div><div class="line"><a name="l04048"></a><span class="lineno"> 4048</span>  VPrint(stdout, <span class="stringliteral">" b=% \n"</span>, b);</div><div class="line"><a name="l04049"></a><span class="lineno"> 4049</span>  printf(<span class="stringliteral">" operation=%d\n"</span>, operation);</div><div class="line"><a name="l04050"></a><span class="lineno"> 4050</span>  }</div><div class="line"><a name="l04051"></a><span class="lineno"> 4051</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04052"></a><span class="lineno"> 4052</span> </div><div class="line"><a name="l04053"></a><span class="lineno"> 4053</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0">VpIsDefOP</a>(c, a, b, (operation > 0) ? 1 : 2)) <span class="keywordflow">return</span> 0; <span class="comment">/* No significant digits */</span></div><div class="line"><a name="l04054"></a><span class="lineno"> 4054</span> </div><div class="line"><a name="l04055"></a><span class="lineno"> 4055</span>  <span class="comment">/* check if a or b is zero */</span></div><div class="line"><a name="l04056"></a><span class="lineno"> 4056</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l04057"></a><span class="lineno"> 4057</span>  <span class="comment">/* a is zero,then assign b to c */</span></div><div class="line"><a name="l04058"></a><span class="lineno"> 4058</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l04059"></a><span class="lineno"> 4059</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, b, operation);</div><div class="line"><a name="l04060"></a><span class="lineno"> 4060</span>  }</div><div class="line"><a name="l04061"></a><span class="lineno"> 4061</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04062"></a><span class="lineno"> 4062</span>  <span class="comment">/* Both a and b are zero. */</span></div><div class="line"><a name="l04063"></a><span class="lineno"> 4063</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) < 0 && operation * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b) < 0) {</div><div class="line"><a name="l04064"></a><span class="lineno"> 4064</span>  <span class="comment">/* -0 -0 */</span></div><div class="line"><a name="l04065"></a><span class="lineno"> 4065</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, -1);</div><div class="line"><a name="l04066"></a><span class="lineno"> 4066</span>  }</div><div class="line"><a name="l04067"></a><span class="lineno"> 4067</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04068"></a><span class="lineno"> 4068</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, 1);</div><div class="line"><a name="l04069"></a><span class="lineno"> 4069</span>  }</div><div class="line"><a name="l04070"></a><span class="lineno"> 4070</span>  <span class="keywordflow">return</span> 1; <span class="comment">/* 0: 1 significant digits */</span></div><div class="line"><a name="l04071"></a><span class="lineno"> 4071</span>  }</div><div class="line"><a name="l04072"></a><span class="lineno"> 4072</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04073"></a><span class="lineno"> 4073</span>  }</div><div class="line"><a name="l04074"></a><span class="lineno"> 4074</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l04075"></a><span class="lineno"> 4075</span>  <span class="comment">/* b is zero,then assign a to c. */</span></div><div class="line"><a name="l04076"></a><span class="lineno"> 4076</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, 1);</div><div class="line"><a name="l04077"></a><span class="lineno"> 4077</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04078"></a><span class="lineno"> 4078</span>  }</div><div class="line"><a name="l04079"></a><span class="lineno"> 4079</span> </div><div class="line"><a name="l04080"></a><span class="lineno"> 4080</span>  <span class="keywordflow">if</span> (operation < 0) sw = -1;</div><div class="line"><a name="l04081"></a><span class="lineno"> 4081</span>  <span class="keywordflow">else</span> sw = 1;</div><div class="line"><a name="l04082"></a><span class="lineno"> 4082</span> </div><div class="line"><a name="l04083"></a><span class="lineno"> 4083</span>  <span class="comment">/* compare absolute value. As a result,|a_ptr|>=|b_ptr| */</span></div><div class="line"><a name="l04084"></a><span class="lineno"> 4084</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> > b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>) {</div><div class="line"><a name="l04085"></a><span class="lineno"> 4085</span>  a_ptr = a;</div><div class="line"><a name="l04086"></a><span class="lineno"> 4086</span>  b_ptr = b;</div><div class="line"><a name="l04087"></a><span class="lineno"> 4087</span>  } <span class="comment">/* |a|>|b| */</span></div><div class="line"><a name="l04088"></a><span class="lineno"> 4088</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> < b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>) {</div><div class="line"><a name="l04089"></a><span class="lineno"> 4089</span>  a_ptr = b;</div><div class="line"><a name="l04090"></a><span class="lineno"> 4090</span>  b_ptr = a;</div><div class="line"><a name="l04091"></a><span class="lineno"> 4091</span>  } <span class="comment">/* |a|<|b| */</span></div><div class="line"><a name="l04092"></a><span class="lineno"> 4092</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04093"></a><span class="lineno"> 4093</span>  <span class="comment">/* Exponent part of a and b is the same,then compare fraction */</span></div><div class="line"><a name="l04094"></a><span class="lineno"> 4094</span>  <span class="comment">/* part */</span></div><div class="line"><a name="l04095"></a><span class="lineno"> 4095</span>  na = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04096"></a><span class="lineno"> 4096</span>  nb = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04097"></a><span class="lineno"> 4097</span>  n = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a9e04209162ea72f9985338596262b657">Min</a>(na, nb);</div><div class="line"><a name="l04098"></a><span class="lineno"> 4098</span>  <span class="keywordflow">for</span> (i=0; i < n; ++i) {</div><div class="line"><a name="l04099"></a><span class="lineno"> 4099</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i] > b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i]) {</div><div class="line"><a name="l04100"></a><span class="lineno"> 4100</span>  a_ptr = a;</div><div class="line"><a name="l04101"></a><span class="lineno"> 4101</span>  b_ptr = b;</div><div class="line"><a name="l04102"></a><span class="lineno"> 4102</span>  <span class="keywordflow">goto</span> end_if;</div><div class="line"><a name="l04103"></a><span class="lineno"> 4103</span>  }</div><div class="line"><a name="l04104"></a><span class="lineno"> 4104</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i] < b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i]) {</div><div class="line"><a name="l04105"></a><span class="lineno"> 4105</span>  a_ptr = b;</div><div class="line"><a name="l04106"></a><span class="lineno"> 4106</span>  b_ptr = a;</div><div class="line"><a name="l04107"></a><span class="lineno"> 4107</span>  <span class="keywordflow">goto</span> end_if;</div><div class="line"><a name="l04108"></a><span class="lineno"> 4108</span>  }</div><div class="line"><a name="l04109"></a><span class="lineno"> 4109</span>  }</div><div class="line"><a name="l04110"></a><span class="lineno"> 4110</span>  <span class="keywordflow">if</span> (na > nb) {</div><div class="line"><a name="l04111"></a><span class="lineno"> 4111</span>  a_ptr = a;</div><div class="line"><a name="l04112"></a><span class="lineno"> 4112</span>  b_ptr = b;</div><div class="line"><a name="l04113"></a><span class="lineno"> 4113</span>  <span class="keywordflow">goto</span> end_if;</div><div class="line"><a name="l04114"></a><span class="lineno"> 4114</span>  }</div><div class="line"><a name="l04115"></a><span class="lineno"> 4115</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (na < nb) {</div><div class="line"><a name="l04116"></a><span class="lineno"> 4116</span>  a_ptr = b;</div><div class="line"><a name="l04117"></a><span class="lineno"> 4117</span>  b_ptr = a;</div><div class="line"><a name="l04118"></a><span class="lineno"> 4118</span>  <span class="keywordflow">goto</span> end_if;</div><div class="line"><a name="l04119"></a><span class="lineno"> 4119</span>  }</div><div class="line"><a name="l04120"></a><span class="lineno"> 4120</span>  <span class="comment">/* |a| == |b| */</span></div><div class="line"><a name="l04121"></a><span class="lineno"> 4121</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) + sw *<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b) == 0) {</div><div class="line"><a name="l04122"></a><span class="lineno"> 4122</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, 1); <span class="comment">/* abs(a)=abs(b) and operation = '-' */</span></div><div class="line"><a name="l04123"></a><span class="lineno"> 4123</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04124"></a><span class="lineno"> 4124</span>  }</div><div class="line"><a name="l04125"></a><span class="lineno"> 4125</span>  a_ptr = a;</div><div class="line"><a name="l04126"></a><span class="lineno"> 4126</span>  b_ptr = b;</div><div class="line"><a name="l04127"></a><span class="lineno"> 4127</span>  }</div><div class="line"><a name="l04128"></a><span class="lineno"> 4128</span> </div><div class="line"><a name="l04129"></a><span class="lineno"> 4129</span> end_if:</div><div class="line"><a name="l04130"></a><span class="lineno"> 4130</span>  isw = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) + sw *<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b);</div><div class="line"><a name="l04131"></a><span class="lineno"> 4131</span>  <span class="comment">/*</span></div><div class="line"><a name="l04132"></a><span class="lineno"> 4132</span> <span class="comment"> * isw = 0 ...( 1)+(-1),( 1)-( 1),(-1)+(1),(-1)-(-1)</span></div><div class="line"><a name="l04133"></a><span class="lineno"> 4133</span> <span class="comment"> * = 2 ...( 1)+( 1),( 1)-(-1)</span></div><div class="line"><a name="l04134"></a><span class="lineno"> 4134</span> <span class="comment"> * =-2 ...(-1)+(-1),(-1)-( 1)</span></div><div class="line"><a name="l04135"></a><span class="lineno"> 4135</span> <span class="comment"> * If isw==0, then c =(Sign a_ptr)(|a_ptr|-|b_ptr|)</span></div><div class="line"><a name="l04136"></a><span class="lineno"> 4136</span> <span class="comment"> * else c =(Sign ofisw)(|a_ptr|+|b_ptr|)</span></div><div class="line"><a name="l04137"></a><span class="lineno"> 4137</span> <span class="comment"> */</span></div><div class="line"><a name="l04138"></a><span class="lineno"> 4138</span>  <span class="keywordflow">if</span> (isw) { <span class="comment">/* addition */</span></div><div class="line"><a name="l04139"></a><span class="lineno"> 4139</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, 1);</div><div class="line"><a name="l04140"></a><span class="lineno"> 4140</span>  mrv = <a class="code" href="../../de/d07/bigdecimal_8c.html#a2eccbb6caa890a42323c4264e5af745e">VpAddAbs</a>(a_ptr, b_ptr, c);</div><div class="line"><a name="l04141"></a><span class="lineno"> 4141</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, isw / 2);</div><div class="line"><a name="l04142"></a><span class="lineno"> 4142</span>  }</div><div class="line"><a name="l04143"></a><span class="lineno"> 4143</span>  <span class="keywordflow">else</span> { <span class="comment">/* subtraction */</span></div><div class="line"><a name="l04144"></a><span class="lineno"> 4144</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, 1);</div><div class="line"><a name="l04145"></a><span class="lineno"> 4145</span>  mrv = <a class="code" href="../../de/d07/bigdecimal_8c.html#adc53c7002c68cb8c52a6491521c5a432">VpSubAbs</a>(a_ptr, b_ptr, c);</div><div class="line"><a name="l04146"></a><span class="lineno"> 4146</span>  <span class="keywordflow">if</span> (a_ptr == a) {</div><div class="line"><a name="l04147"></a><span class="lineno"> 4147</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c,<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04148"></a><span class="lineno"> 4148</span>  }</div><div class="line"><a name="l04149"></a><span class="lineno"> 4149</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04150"></a><span class="lineno"> 4150</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a_ptr) * sw);</div><div class="line"><a name="l04151"></a><span class="lineno"> 4151</span>  }</div><div class="line"><a name="l04152"></a><span class="lineno"> 4152</span>  }</div><div class="line"><a name="l04153"></a><span class="lineno"> 4153</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a>(c, 0, (c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> > 0) ? c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>-1] : 0, mrv);</div><div class="line"><a name="l04154"></a><span class="lineno"> 4154</span> </div><div class="line"><a name="l04155"></a><span class="lineno"> 4155</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04156"></a><span class="lineno"> 4156</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04157"></a><span class="lineno"> 4157</span>  VPrint(stdout, <span class="stringliteral">"VpAddSub(result) c=% \n"</span>, c);</div><div class="line"><a name="l04158"></a><span class="lineno"> 4158</span>  VPrint(stdout, <span class="stringliteral">" a=% \n"</span>, a);</div><div class="line"><a name="l04159"></a><span class="lineno"> 4159</span>  VPrint(stdout, <span class="stringliteral">" b=% \n"</span>, b);</div><div class="line"><a name="l04160"></a><span class="lineno"> 4160</span>  printf(<span class="stringliteral">" operation=%d\n"</span>, operation);</div><div class="line"><a name="l04161"></a><span class="lineno"> 4161</span>  }</div><div class="line"><a name="l04162"></a><span class="lineno"> 4162</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04163"></a><span class="lineno"> 4163</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04164"></a><span class="lineno"> 4164</span> }</div><div class="line"><a name="l04165"></a><span class="lineno"> 4165</span> </div><div class="line"><a name="l04166"></a><span class="lineno"> 4166</span> <span class="comment">/*</span></div><div class="line"><a name="l04167"></a><span class="lineno"> 4167</span> <span class="comment"> * Addition of two variable precisional variables</span></div><div class="line"><a name="l04168"></a><span class="lineno"> 4168</span> <span class="comment"> * a and b assuming abs(a)>abs(b).</span></div><div class="line"><a name="l04169"></a><span class="lineno"> 4169</span> <span class="comment"> * c = abs(a) + abs(b) ; where |a|>=|b|</span></div><div class="line"><a name="l04170"></a><span class="lineno"> 4170</span> <span class="comment"> */</span></div><div class="line"><a name="l04171"></a><span class="lineno"> 4171</span> <span class="keyword">static</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a></div><div class="line"><a name="l04172"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a2eccbb6caa890a42323c4264e5af745e"> 4172</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a2eccbb6caa890a42323c4264e5af745e">VpAddAbs</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c)</div><div class="line"><a name="l04173"></a><span class="lineno"> 4173</span> {</div><div class="line"><a name="l04174"></a><span class="lineno"> 4174</span>  <span class="keywordtype">size_t</span> word_shift;</div><div class="line"><a name="l04175"></a><span class="lineno"> 4175</span>  <span class="keywordtype">size_t</span> ap;</div><div class="line"><a name="l04176"></a><span class="lineno"> 4176</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a>;</div><div class="line"><a name="l04177"></a><span class="lineno"> 4177</span>  <span class="keywordtype">size_t</span> cp;</div><div class="line"><a name="l04178"></a><span class="lineno"> 4178</span>  <span class="keywordtype">size_t</span> a_pos;</div><div class="line"><a name="l04179"></a><span class="lineno"> 4179</span>  <span class="keywordtype">size_t</span> b_pos, b_pos_with_word_shift;</div><div class="line"><a name="l04180"></a><span class="lineno"> 4180</span>  <span class="keywordtype">size_t</span> c_pos;</div><div class="line"><a name="l04181"></a><span class="lineno"> 4181</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> av, bv, carry, mrv;</div><div class="line"><a name="l04182"></a><span class="lineno"> 4182</span> </div><div class="line"><a name="l04183"></a><span class="lineno"> 4183</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04184"></a><span class="lineno"> 4184</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04185"></a><span class="lineno"> 4185</span>  VPrint(stdout, <span class="stringliteral">"VpAddAbs called: a = %\n"</span>, a);</div><div class="line"><a name="l04186"></a><span class="lineno"> 4186</span>  VPrint(stdout, <span class="stringliteral">" b = %\n"</span>, b);</div><div class="line"><a name="l04187"></a><span class="lineno"> 4187</span>  }</div><div class="line"><a name="l04188"></a><span class="lineno"> 4188</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04189"></a><span class="lineno"> 4189</span> </div><div class="line"><a name="l04190"></a><span class="lineno"> 4190</span>  word_shift = <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b2b55e7e49ea2dc6f032078d76f4a38">VpSetPTR</a>(a, b, c, &ap, &<a class="code" href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a>, &cp, &av, &bv);</div><div class="line"><a name="l04191"></a><span class="lineno"> 4191</span>  a_pos = ap;</div><div class="line"><a name="l04192"></a><span class="lineno"> 4192</span>  b_pos = <a class="code" href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a>;</div><div class="line"><a name="l04193"></a><span class="lineno"> 4193</span>  c_pos = cp;</div><div class="line"><a name="l04194"></a><span class="lineno"> 4194</span> </div><div class="line"><a name="l04195"></a><span class="lineno"> 4195</span>  <span class="keywordflow">if</span> (word_shift == (<span class="keywordtype">size_t</span>)-1L) <span class="keywordflow">return</span> 0; <span class="comment">/* Overflow */</span></div><div class="line"><a name="l04196"></a><span class="lineno"> 4196</span>  <span class="keywordflow">if</span> (b_pos == (<span class="keywordtype">size_t</span>)-1L) <span class="keywordflow">goto</span> Assign_a;</div><div class="line"><a name="l04197"></a><span class="lineno"> 4197</span> </div><div class="line"><a name="l04198"></a><span class="lineno"> 4198</span>  mrv = av + bv; <span class="comment">/* Most right val. Used for round. */</span></div><div class="line"><a name="l04199"></a><span class="lineno"> 4199</span> </div><div class="line"><a name="l04200"></a><span class="lineno"> 4200</span>  <span class="comment">/* Just assign the last few digits of b to c because a has no */</span></div><div class="line"><a name="l04201"></a><span class="lineno"> 4201</span>  <span class="comment">/* corresponding digits to be added. */</span></div><div class="line"><a name="l04202"></a><span class="lineno"> 4202</span>  <span class="keywordflow">if</span> (b_pos > 0) {</div><div class="line"><a name="l04203"></a><span class="lineno"> 4203</span>  <span class="keywordflow">while</span> (b_pos > 0 && b_pos + word_shift > a_pos) {</div><div class="line"><a name="l04204"></a><span class="lineno"> 4204</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--b_pos];</div><div class="line"><a name="l04205"></a><span class="lineno"> 4205</span>  }</div><div class="line"><a name="l04206"></a><span class="lineno"> 4206</span>  }</div><div class="line"><a name="l04207"></a><span class="lineno"> 4207</span>  <span class="keywordflow">if</span> (b_pos == 0 && word_shift > a_pos) {</div><div class="line"><a name="l04208"></a><span class="lineno"> 4208</span>  <span class="keywordflow">while</span> (word_shift-- > a_pos) {</div><div class="line"><a name="l04209"></a><span class="lineno"> 4209</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = 0;</div><div class="line"><a name="l04210"></a><span class="lineno"> 4210</span>  }</div><div class="line"><a name="l04211"></a><span class="lineno"> 4211</span>  }</div><div class="line"><a name="l04212"></a><span class="lineno"> 4212</span> </div><div class="line"><a name="l04213"></a><span class="lineno"> 4213</span>  <span class="comment">/* Just assign the last few digits of a to c because b has no */</span></div><div class="line"><a name="l04214"></a><span class="lineno"> 4214</span>  <span class="comment">/* corresponding digits to be added. */</span></div><div class="line"><a name="l04215"></a><span class="lineno"> 4215</span>  b_pos_with_word_shift = b_pos + word_shift;</div><div class="line"><a name="l04216"></a><span class="lineno"> 4216</span>  <span class="keywordflow">while</span> (a_pos > b_pos_with_word_shift) {</div><div class="line"><a name="l04217"></a><span class="lineno"> 4217</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--a_pos];</div><div class="line"><a name="l04218"></a><span class="lineno"> 4218</span>  }</div><div class="line"><a name="l04219"></a><span class="lineno"> 4219</span>  carry = 0; <span class="comment">/* set first carry be zero */</span></div><div class="line"><a name="l04220"></a><span class="lineno"> 4220</span> </div><div class="line"><a name="l04221"></a><span class="lineno"> 4221</span>  <span class="comment">/* Now perform addition until every digits of b will be */</span></div><div class="line"><a name="l04222"></a><span class="lineno"> 4222</span>  <span class="comment">/* exhausted. */</span></div><div class="line"><a name="l04223"></a><span class="lineno"> 4223</span>  <span class="keywordflow">while</span> (b_pos > 0) {</div><div class="line"><a name="l04224"></a><span class="lineno"> 4224</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--a_pos] + b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--b_pos] + carry;</div><div class="line"><a name="l04225"></a><span class="lineno"> 4225</span>  <span class="keywordflow">if</span> (c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l04226"></a><span class="lineno"> 4226</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] -= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04227"></a><span class="lineno"> 4227</span>  carry = 1;</div><div class="line"><a name="l04228"></a><span class="lineno"> 4228</span>  }</div><div class="line"><a name="l04229"></a><span class="lineno"> 4229</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04230"></a><span class="lineno"> 4230</span>  carry = 0;</div><div class="line"><a name="l04231"></a><span class="lineno"> 4231</span>  }</div><div class="line"><a name="l04232"></a><span class="lineno"> 4232</span>  }</div><div class="line"><a name="l04233"></a><span class="lineno"> 4233</span> </div><div class="line"><a name="l04234"></a><span class="lineno"> 4234</span>  <span class="comment">/* Just assign the first few digits of a with considering */</span></div><div class="line"><a name="l04235"></a><span class="lineno"> 4235</span>  <span class="comment">/* the carry obtained so far because b has been exhausted. */</span></div><div class="line"><a name="l04236"></a><span class="lineno"> 4236</span>  <span class="keywordflow">while</span> (a_pos > 0) {</div><div class="line"><a name="l04237"></a><span class="lineno"> 4237</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--a_pos] + carry;</div><div class="line"><a name="l04238"></a><span class="lineno"> 4238</span>  <span class="keywordflow">if</span> (c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l04239"></a><span class="lineno"> 4239</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] -= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04240"></a><span class="lineno"> 4240</span>  carry = 1;</div><div class="line"><a name="l04241"></a><span class="lineno"> 4241</span>  }</div><div class="line"><a name="l04242"></a><span class="lineno"> 4242</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04243"></a><span class="lineno"> 4243</span>  carry = 0;</div><div class="line"><a name="l04244"></a><span class="lineno"> 4244</span>  }</div><div class="line"><a name="l04245"></a><span class="lineno"> 4245</span>  }</div><div class="line"><a name="l04246"></a><span class="lineno"> 4246</span>  <span class="keywordflow">if</span> (c_pos) c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos - 1] += carry;</div><div class="line"><a name="l04247"></a><span class="lineno"> 4247</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04248"></a><span class="lineno"> 4248</span> </div><div class="line"><a name="l04249"></a><span class="lineno"> 4249</span> Assign_a:</div><div class="line"><a name="l04250"></a><span class="lineno"> 4250</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, 1);</div><div class="line"><a name="l04251"></a><span class="lineno"> 4251</span>  mrv = 0;</div><div class="line"><a name="l04252"></a><span class="lineno"> 4252</span> </div><div class="line"><a name="l04253"></a><span class="lineno"> 4253</span> Exit:</div><div class="line"><a name="l04254"></a><span class="lineno"> 4254</span> </div><div class="line"><a name="l04255"></a><span class="lineno"> 4255</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04256"></a><span class="lineno"> 4256</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04257"></a><span class="lineno"> 4257</span>  VPrint(stdout, <span class="stringliteral">"VpAddAbs exit: c=% \n"</span>, c);</div><div class="line"><a name="l04258"></a><span class="lineno"> 4258</span>  }</div><div class="line"><a name="l04259"></a><span class="lineno"> 4259</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04260"></a><span class="lineno"> 4260</span>  <span class="keywordflow">return</span> mrv;</div><div class="line"><a name="l04261"></a><span class="lineno"> 4261</span> }</div><div class="line"><a name="l04262"></a><span class="lineno"> 4262</span> </div><div class="line"><a name="l04263"></a><span class="lineno"> 4263</span> <span class="comment">/*</span></div><div class="line"><a name="l04264"></a><span class="lineno"> 4264</span> <span class="comment"> * c = abs(a) - abs(b)</span></div><div class="line"><a name="l04265"></a><span class="lineno"> 4265</span> <span class="comment"> */</span></div><div class="line"><a name="l04266"></a><span class="lineno"> 4266</span> <span class="keyword">static</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a></div><div class="line"><a name="l04267"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#adc53c7002c68cb8c52a6491521c5a432"> 4267</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adc53c7002c68cb8c52a6491521c5a432">VpSubAbs</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c)</div><div class="line"><a name="l04268"></a><span class="lineno"> 4268</span> {</div><div class="line"><a name="l04269"></a><span class="lineno"> 4269</span>  <span class="keywordtype">size_t</span> word_shift;</div><div class="line"><a name="l04270"></a><span class="lineno"> 4270</span>  <span class="keywordtype">size_t</span> ap;</div><div class="line"><a name="l04271"></a><span class="lineno"> 4271</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a>;</div><div class="line"><a name="l04272"></a><span class="lineno"> 4272</span>  <span class="keywordtype">size_t</span> cp;</div><div class="line"><a name="l04273"></a><span class="lineno"> 4273</span>  <span class="keywordtype">size_t</span> a_pos;</div><div class="line"><a name="l04274"></a><span class="lineno"> 4274</span>  <span class="keywordtype">size_t</span> b_pos, b_pos_with_word_shift;</div><div class="line"><a name="l04275"></a><span class="lineno"> 4275</span>  <span class="keywordtype">size_t</span> c_pos;</div><div class="line"><a name="l04276"></a><span class="lineno"> 4276</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> av, bv, borrow, mrv;</div><div class="line"><a name="l04277"></a><span class="lineno"> 4277</span> </div><div class="line"><a name="l04278"></a><span class="lineno"> 4278</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04279"></a><span class="lineno"> 4279</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04280"></a><span class="lineno"> 4280</span>  VPrint(stdout, <span class="stringliteral">"VpSubAbs called: a = %\n"</span>, a);</div><div class="line"><a name="l04281"></a><span class="lineno"> 4281</span>  VPrint(stdout, <span class="stringliteral">" b = %\n"</span>, b);</div><div class="line"><a name="l04282"></a><span class="lineno"> 4282</span>  }</div><div class="line"><a name="l04283"></a><span class="lineno"> 4283</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04284"></a><span class="lineno"> 4284</span> </div><div class="line"><a name="l04285"></a><span class="lineno"> 4285</span>  word_shift = <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b2b55e7e49ea2dc6f032078d76f4a38">VpSetPTR</a>(a, b, c, &ap, &<a class="code" href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a>, &cp, &av, &bv);</div><div class="line"><a name="l04286"></a><span class="lineno"> 4286</span>  a_pos = ap;</div><div class="line"><a name="l04287"></a><span class="lineno"> 4287</span>  b_pos = <a class="code" href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a>;</div><div class="line"><a name="l04288"></a><span class="lineno"> 4288</span>  c_pos = cp;</div><div class="line"><a name="l04289"></a><span class="lineno"> 4289</span>  <span class="keywordflow">if</span> (word_shift == (<span class="keywordtype">size_t</span>)-1L) <span class="keywordflow">return</span> 0; <span class="comment">/* Overflow */</span></div><div class="line"><a name="l04290"></a><span class="lineno"> 4290</span>  <span class="keywordflow">if</span> (b_pos == (<span class="keywordtype">size_t</span>)-1L) <span class="keywordflow">goto</span> Assign_a;</div><div class="line"><a name="l04291"></a><span class="lineno"> 4291</span> </div><div class="line"><a name="l04292"></a><span class="lineno"> 4292</span>  <span class="keywordflow">if</span> (av >= bv) {</div><div class="line"><a name="l04293"></a><span class="lineno"> 4293</span>  mrv = av - bv;</div><div class="line"><a name="l04294"></a><span class="lineno"> 4294</span>  borrow = 0;</div><div class="line"><a name="l04295"></a><span class="lineno"> 4295</span>  }</div><div class="line"><a name="l04296"></a><span class="lineno"> 4296</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04297"></a><span class="lineno"> 4297</span>  mrv = 0;</div><div class="line"><a name="l04298"></a><span class="lineno"> 4298</span>  borrow = 1;</div><div class="line"><a name="l04299"></a><span class="lineno"> 4299</span>  }</div><div class="line"><a name="l04300"></a><span class="lineno"> 4300</span> </div><div class="line"><a name="l04301"></a><span class="lineno"> 4301</span>  <span class="comment">/* Just assign the values which are the BASE subtracted by */</span></div><div class="line"><a name="l04302"></a><span class="lineno"> 4302</span>  <span class="comment">/* each of the last few digits of the b because the a has no */</span></div><div class="line"><a name="l04303"></a><span class="lineno"> 4303</span>  <span class="comment">/* corresponding digits to be subtracted. */</span></div><div class="line"><a name="l04304"></a><span class="lineno"> 4304</span>  <span class="keywordflow">if</span> (b_pos + word_shift > a_pos) {</div><div class="line"><a name="l04305"></a><span class="lineno"> 4305</span>  <span class="keywordflow">while</span> (b_pos > 0 && b_pos + word_shift > a_pos) {</div><div class="line"><a name="l04306"></a><span class="lineno"> 4306</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> - b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--b_pos] - borrow;</div><div class="line"><a name="l04307"></a><span class="lineno"> 4307</span>  borrow = 1;</div><div class="line"><a name="l04308"></a><span class="lineno"> 4308</span>  }</div><div class="line"><a name="l04309"></a><span class="lineno"> 4309</span>  <span class="keywordflow">if</span> (b_pos == 0) {</div><div class="line"><a name="l04310"></a><span class="lineno"> 4310</span>  <span class="keywordflow">while</span> (word_shift > a_pos) {</div><div class="line"><a name="l04311"></a><span class="lineno"> 4311</span>  --word_shift;</div><div class="line"><a name="l04312"></a><span class="lineno"> 4312</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> - borrow;</div><div class="line"><a name="l04313"></a><span class="lineno"> 4313</span>  borrow = 1;</div><div class="line"><a name="l04314"></a><span class="lineno"> 4314</span>  }</div><div class="line"><a name="l04315"></a><span class="lineno"> 4315</span>  }</div><div class="line"><a name="l04316"></a><span class="lineno"> 4316</span>  }</div><div class="line"><a name="l04317"></a><span class="lineno"> 4317</span>  <span class="comment">/* Just assign the last few digits of a to c because b has no */</span></div><div class="line"><a name="l04318"></a><span class="lineno"> 4318</span>  <span class="comment">/* corresponding digits to subtract. */</span></div><div class="line"><a name="l04319"></a><span class="lineno"> 4319</span> </div><div class="line"><a name="l04320"></a><span class="lineno"> 4320</span>  b_pos_with_word_shift = b_pos + word_shift;</div><div class="line"><a name="l04321"></a><span class="lineno"> 4321</span>  <span class="keywordflow">while</span> (a_pos > b_pos_with_word_shift) {</div><div class="line"><a name="l04322"></a><span class="lineno"> 4322</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--c_pos] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--a_pos];</div><div class="line"><a name="l04323"></a><span class="lineno"> 4323</span>  }</div><div class="line"><a name="l04324"></a><span class="lineno"> 4324</span> </div><div class="line"><a name="l04325"></a><span class="lineno"> 4325</span>  <span class="comment">/* Now perform subtraction until every digits of b will be */</span></div><div class="line"><a name="l04326"></a><span class="lineno"> 4326</span>  <span class="comment">/* exhausted. */</span></div><div class="line"><a name="l04327"></a><span class="lineno"> 4327</span>  <span class="keywordflow">while</span> (b_pos > 0) {</div><div class="line"><a name="l04328"></a><span class="lineno"> 4328</span>  --c_pos;</div><div class="line"><a name="l04329"></a><span class="lineno"> 4329</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--a_pos] < b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--b_pos] + borrow) {</div><div class="line"><a name="l04330"></a><span class="lineno"> 4330</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] = <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> + a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[a_pos] - b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[b_pos] - borrow;</div><div class="line"><a name="l04331"></a><span class="lineno"> 4331</span>  borrow = 1;</div><div class="line"><a name="l04332"></a><span class="lineno"> 4332</span>  }</div><div class="line"><a name="l04333"></a><span class="lineno"> 4333</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04334"></a><span class="lineno"> 4334</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[a_pos] - b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[b_pos] - borrow;</div><div class="line"><a name="l04335"></a><span class="lineno"> 4335</span>  borrow = 0;</div><div class="line"><a name="l04336"></a><span class="lineno"> 4336</span>  }</div><div class="line"><a name="l04337"></a><span class="lineno"> 4337</span>  }</div><div class="line"><a name="l04338"></a><span class="lineno"> 4338</span> </div><div class="line"><a name="l04339"></a><span class="lineno"> 4339</span>  <span class="comment">/* Just assign the first few digits of a with considering */</span></div><div class="line"><a name="l04340"></a><span class="lineno"> 4340</span>  <span class="comment">/* the borrow obtained so far because b has been exhausted. */</span></div><div class="line"><a name="l04341"></a><span class="lineno"> 4341</span>  <span class="keywordflow">while</span> (a_pos > 0) {</div><div class="line"><a name="l04342"></a><span class="lineno"> 4342</span>  --c_pos;</div><div class="line"><a name="l04343"></a><span class="lineno"> 4343</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[--a_pos] < borrow) {</div><div class="line"><a name="l04344"></a><span class="lineno"> 4344</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] = <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> + a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[a_pos] - borrow;</div><div class="line"><a name="l04345"></a><span class="lineno"> 4345</span>  borrow = 1;</div><div class="line"><a name="l04346"></a><span class="lineno"> 4346</span>  }</div><div class="line"><a name="l04347"></a><span class="lineno"> 4347</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04348"></a><span class="lineno"> 4348</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[a_pos] - borrow;</div><div class="line"><a name="l04349"></a><span class="lineno"> 4349</span>  borrow = 0;</div><div class="line"><a name="l04350"></a><span class="lineno"> 4350</span>  }</div><div class="line"><a name="l04351"></a><span class="lineno"> 4351</span>  }</div><div class="line"><a name="l04352"></a><span class="lineno"> 4352</span>  <span class="keywordflow">if</span> (c_pos) c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[c_pos - 1] -= borrow;</div><div class="line"><a name="l04353"></a><span class="lineno"> 4353</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04354"></a><span class="lineno"> 4354</span> </div><div class="line"><a name="l04355"></a><span class="lineno"> 4355</span> Assign_a:</div><div class="line"><a name="l04356"></a><span class="lineno"> 4356</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, 1);</div><div class="line"><a name="l04357"></a><span class="lineno"> 4357</span>  mrv = 0;</div><div class="line"><a name="l04358"></a><span class="lineno"> 4358</span> </div><div class="line"><a name="l04359"></a><span class="lineno"> 4359</span> Exit:</div><div class="line"><a name="l04360"></a><span class="lineno"> 4360</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04361"></a><span class="lineno"> 4361</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04362"></a><span class="lineno"> 4362</span>  VPrint(stdout, <span class="stringliteral">"VpSubAbs exit: c=% \n"</span>, c);</div><div class="line"><a name="l04363"></a><span class="lineno"> 4363</span>  }</div><div class="line"><a name="l04364"></a><span class="lineno"> 4364</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04365"></a><span class="lineno"> 4365</span>  <span class="keywordflow">return</span> mrv;</div><div class="line"><a name="l04366"></a><span class="lineno"> 4366</span> }</div><div class="line"><a name="l04367"></a><span class="lineno"> 4367</span> </div><div class="line"><a name="l04368"></a><span class="lineno"> 4368</span> <span class="comment">/*</span></div><div class="line"><a name="l04369"></a><span class="lineno"> 4369</span> <span class="comment"> * Note: If(av+bv)>= HALF_BASE,then 1 will be added to the least significant</span></div><div class="line"><a name="l04370"></a><span class="lineno"> 4370</span> <span class="comment"> * digit of c(In case of addition).</span></div><div class="line"><a name="l04371"></a><span class="lineno"> 4371</span> <span class="comment"> * ------------------------- figure of output -----------------------------------</span></div><div class="line"><a name="l04372"></a><span class="lineno"> 4372</span> <span class="comment"> * a = xxxxxxxxxxx</span></div><div class="line"><a name="l04373"></a><span class="lineno"> 4373</span> <span class="comment"> * b = xxxxxxxxxx</span></div><div class="line"><a name="l04374"></a><span class="lineno"> 4374</span> <span class="comment"> * c =xxxxxxxxxxxxxxx</span></div><div class="line"><a name="l04375"></a><span class="lineno"> 4375</span> <span class="comment"> * word_shift = | |</span></div><div class="line"><a name="l04376"></a><span class="lineno"> 4376</span> <span class="comment"> * right_word = | | (Total digits in RHSV)</span></div><div class="line"><a name="l04377"></a><span class="lineno"> 4377</span> <span class="comment"> * left_word = | | (Total digits in LHSV)</span></div><div class="line"><a name="l04378"></a><span class="lineno"> 4378</span> <span class="comment"> * a_pos = |</span></div><div class="line"><a name="l04379"></a><span class="lineno"> 4379</span> <span class="comment"> * b_pos = |</span></div><div class="line"><a name="l04380"></a><span class="lineno"> 4380</span> <span class="comment"> * c_pos = |</span></div><div class="line"><a name="l04381"></a><span class="lineno"> 4381</span> <span class="comment"> */</span></div><div class="line"><a name="l04382"></a><span class="lineno"> 4382</span> <span class="keyword">static</span> <span class="keywordtype">size_t</span></div><div class="line"><a name="l04383"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a4b2b55e7e49ea2dc6f032078d76f4a38"> 4383</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b2b55e7e49ea2dc6f032078d76f4a38">VpSetPTR</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <span class="keywordtype">size_t</span> *a_pos, <span class="keywordtype">size_t</span> *b_pos, <span class="keywordtype">size_t</span> *c_pos, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> *av, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> *bv)</div><div class="line"><a name="l04384"></a><span class="lineno"> 4384</span> {</div><div class="line"><a name="l04385"></a><span class="lineno"> 4385</span>  <span class="keywordtype">size_t</span> left_word, right_word, word_shift;</div><div class="line"><a name="l04386"></a><span class="lineno"> 4386</span> </div><div class="line"><a name="l04387"></a><span class="lineno"> 4387</span>  <span class="keywordtype">size_t</span> <span class="keyword">const</span> round_limit = (<a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>() + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04388"></a><span class="lineno"> 4388</span> </div><div class="line"><a name="l04389"></a><span class="lineno"> 4389</span>  <a class="code" href="../../d5/dac/ossl_8h.html#acdcc5aaebf3f273c1762f24a6ece2e5e">assert</a>(a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> >= b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l04390"></a><span class="lineno"> 4390</span> </div><div class="line"><a name="l04391"></a><span class="lineno"> 4391</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] = 0;</div><div class="line"><a name="l04392"></a><span class="lineno"> 4392</span>  *av = *bv = 0;</div><div class="line"><a name="l04393"></a><span class="lineno"> 4393</span> </div><div class="line"><a name="l04394"></a><span class="lineno"> 4394</span>  word_shift = (a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> - b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l04395"></a><span class="lineno"> 4395</span>  left_word = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + word_shift;</div><div class="line"><a name="l04396"></a><span class="lineno"> 4396</span>  right_word = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a4886a8f966a69949cefc46a6a3468006">Max</a>(a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>, left_word);</div><div class="line"><a name="l04397"></a><span class="lineno"> 4397</span>  left_word = c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> - 1; <span class="comment">/* -1 ... prepare for round up */</span></div><div class="line"><a name="l04398"></a><span class="lineno"> 4398</span> </div><div class="line"><a name="l04399"></a><span class="lineno"> 4399</span>  <span class="comment">/*</span></div><div class="line"><a name="l04400"></a><span class="lineno"> 4400</span> <span class="comment"> * check if 'round' is needed.</span></div><div class="line"><a name="l04401"></a><span class="lineno"> 4401</span> <span class="comment"> */</span></div><div class="line"><a name="l04402"></a><span class="lineno"> 4402</span>  <span class="keywordflow">if</span> (right_word > left_word) { <span class="comment">/* round ? */</span></div><div class="line"><a name="l04403"></a><span class="lineno"> 4403</span>  <span class="comment">/*---------------------------------</span></div><div class="line"><a name="l04404"></a><span class="lineno"> 4404</span> <span class="comment"> * Actual size of a = xxxxxxAxx</span></div><div class="line"><a name="l04405"></a><span class="lineno"> 4405</span> <span class="comment"> * Actual size of b = xxxBxxxxx</span></div><div class="line"><a name="l04406"></a><span class="lineno"> 4406</span> <span class="comment"> * Max. size of c = xxxxxx</span></div><div class="line"><a name="l04407"></a><span class="lineno"> 4407</span> <span class="comment"> * Round off = |-----|</span></div><div class="line"><a name="l04408"></a><span class="lineno"> 4408</span> <span class="comment"> * c_pos = |</span></div><div class="line"><a name="l04409"></a><span class="lineno"> 4409</span> <span class="comment"> * right_word = |</span></div><div class="line"><a name="l04410"></a><span class="lineno"> 4410</span> <span class="comment"> * a_pos = |</span></div><div class="line"><a name="l04411"></a><span class="lineno"> 4411</span> <span class="comment"> */</span></div><div class="line"><a name="l04412"></a><span class="lineno"> 4412</span>  *c_pos = right_word = left_word + 1; <span class="comment">/* Set resulting precision */</span></div><div class="line"><a name="l04413"></a><span class="lineno"> 4413</span>  <span class="comment">/* be equal to that of c */</span></div><div class="line"><a name="l04414"></a><span class="lineno"> 4414</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> >= c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>) {</div><div class="line"><a name="l04415"></a><span class="lineno"> 4415</span>  <span class="comment">/*</span></div><div class="line"><a name="l04416"></a><span class="lineno"> 4416</span> <span class="comment"> * a = xxxxxxAxxx</span></div><div class="line"><a name="l04417"></a><span class="lineno"> 4417</span> <span class="comment"> * c = xxxxxx</span></div><div class="line"><a name="l04418"></a><span class="lineno"> 4418</span> <span class="comment"> * a_pos = |</span></div><div class="line"><a name="l04419"></a><span class="lineno"> 4419</span> <span class="comment"> */</span></div><div class="line"><a name="l04420"></a><span class="lineno"> 4420</span>  *a_pos = left_word;</div><div class="line"><a name="l04421"></a><span class="lineno"> 4421</span>  <span class="keywordflow">if</span> (*a_pos <= round_limit) {</div><div class="line"><a name="l04422"></a><span class="lineno"> 4422</span>  *av = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[*a_pos]; <span class="comment">/* av is 'A' shown in above. */</span></div><div class="line"><a name="l04423"></a><span class="lineno"> 4423</span>  }</div><div class="line"><a name="l04424"></a><span class="lineno"> 4424</span>  }</div><div class="line"><a name="l04425"></a><span class="lineno"> 4425</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04426"></a><span class="lineno"> 4426</span>  <span class="comment">/*</span></div><div class="line"><a name="l04427"></a><span class="lineno"> 4427</span> <span class="comment"> * a = xxxxxxx</span></div><div class="line"><a name="l04428"></a><span class="lineno"> 4428</span> <span class="comment"> * c = xxxxxxxxxx</span></div><div class="line"><a name="l04429"></a><span class="lineno"> 4429</span> <span class="comment"> * a_pos = |</span></div><div class="line"><a name="l04430"></a><span class="lineno"> 4430</span> <span class="comment"> */</span></div><div class="line"><a name="l04431"></a><span class="lineno"> 4431</span>  *a_pos = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04432"></a><span class="lineno"> 4432</span>  }</div><div class="line"><a name="l04433"></a><span class="lineno"> 4433</span>  <span class="keywordflow">if</span> (b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + word_shift >= c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>) {</div><div class="line"><a name="l04434"></a><span class="lineno"> 4434</span>  <span class="comment">/*</span></div><div class="line"><a name="l04435"></a><span class="lineno"> 4435</span> <span class="comment"> * a = xxxxxxxxx</span></div><div class="line"><a name="l04436"></a><span class="lineno"> 4436</span> <span class="comment"> * b = xxxxxxxBxxx</span></div><div class="line"><a name="l04437"></a><span class="lineno"> 4437</span> <span class="comment"> * c = xxxxxxxxxxx</span></div><div class="line"><a name="l04438"></a><span class="lineno"> 4438</span> <span class="comment"> * b_pos = |</span></div><div class="line"><a name="l04439"></a><span class="lineno"> 4439</span> <span class="comment"> */</span></div><div class="line"><a name="l04440"></a><span class="lineno"> 4440</span>  <span class="keywordflow">if</span> (c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> >= word_shift + 1) {</div><div class="line"><a name="l04441"></a><span class="lineno"> 4441</span>  *b_pos = c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> - word_shift - 1;</div><div class="line"><a name="l04442"></a><span class="lineno"> 4442</span>  <span class="keywordflow">if</span> (*b_pos + word_shift <= round_limit) {</div><div class="line"><a name="l04443"></a><span class="lineno"> 4443</span>  *bv = b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[*b_pos];</div><div class="line"><a name="l04444"></a><span class="lineno"> 4444</span>  }</div><div class="line"><a name="l04445"></a><span class="lineno"> 4445</span>  }</div><div class="line"><a name="l04446"></a><span class="lineno"> 4446</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04447"></a><span class="lineno"> 4447</span>  *b_pos = -1L;</div><div class="line"><a name="l04448"></a><span class="lineno"> 4448</span>  }</div><div class="line"><a name="l04449"></a><span class="lineno"> 4449</span>  }</div><div class="line"><a name="l04450"></a><span class="lineno"> 4450</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04451"></a><span class="lineno"> 4451</span>  <span class="comment">/*</span></div><div class="line"><a name="l04452"></a><span class="lineno"> 4452</span> <span class="comment"> * a = xxxxxxxxxxxxxxxx</span></div><div class="line"><a name="l04453"></a><span class="lineno"> 4453</span> <span class="comment"> * b = xxxxxx</span></div><div class="line"><a name="l04454"></a><span class="lineno"> 4454</span> <span class="comment"> * c = xxxxxxxxxxxxx</span></div><div class="line"><a name="l04455"></a><span class="lineno"> 4455</span> <span class="comment"> * b_pos = |</span></div><div class="line"><a name="l04456"></a><span class="lineno"> 4456</span> <span class="comment"> */</span></div><div class="line"><a name="l04457"></a><span class="lineno"> 4457</span>  *b_pos = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04458"></a><span class="lineno"> 4458</span>  }</div><div class="line"><a name="l04459"></a><span class="lineno"> 4459</span>  }</div><div class="line"><a name="l04460"></a><span class="lineno"> 4460</span>  <span class="keywordflow">else</span> { <span class="comment">/* The MaxPrec of c - 1 > The Prec of a + b */</span></div><div class="line"><a name="l04461"></a><span class="lineno"> 4461</span>  <span class="comment">/*</span></div><div class="line"><a name="l04462"></a><span class="lineno"> 4462</span> <span class="comment"> * a = xxxxxxx</span></div><div class="line"><a name="l04463"></a><span class="lineno"> 4463</span> <span class="comment"> * b = xxxxxx</span></div><div class="line"><a name="l04464"></a><span class="lineno"> 4464</span> <span class="comment"> * c = xxxxxxxxxxx</span></div><div class="line"><a name="l04465"></a><span class="lineno"> 4465</span> <span class="comment"> * c_pos = |</span></div><div class="line"><a name="l04466"></a><span class="lineno"> 4466</span> <span class="comment"> */</span></div><div class="line"><a name="l04467"></a><span class="lineno"> 4467</span>  *b_pos = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04468"></a><span class="lineno"> 4468</span>  *a_pos = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04469"></a><span class="lineno"> 4469</span>  *c_pos = right_word + 1;</div><div class="line"><a name="l04470"></a><span class="lineno"> 4470</span>  }</div><div class="line"><a name="l04471"></a><span class="lineno"> 4471</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = *c_pos;</div><div class="line"><a name="l04472"></a><span class="lineno"> 4472</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l04473"></a><span class="lineno"> 4473</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(c, 1)) <span class="keywordflow">return</span> (<span class="keywordtype">size_t</span>)-1L;</div><div class="line"><a name="l04474"></a><span class="lineno"> 4474</span>  <span class="keywordflow">return</span> word_shift;</div><div class="line"><a name="l04475"></a><span class="lineno"> 4475</span> }</div><div class="line"><a name="l04476"></a><span class="lineno"> 4476</span> </div><div class="line"><a name="l04477"></a><span class="lineno"> 4477</span> <span class="comment">/*</span></div><div class="line"><a name="l04478"></a><span class="lineno"> 4478</span> <span class="comment"> * Return number of significant digits</span></div><div class="line"><a name="l04479"></a><span class="lineno"> 4479</span> <span class="comment"> * c = a * b , Where a = a0a1a2 ... an</span></div><div class="line"><a name="l04480"></a><span class="lineno"> 4480</span> <span class="comment"> * b = b0b1b2 ... bm</span></div><div class="line"><a name="l04481"></a><span class="lineno"> 4481</span> <span class="comment"> * c = c0c1c2 ... cl</span></div><div class="line"><a name="l04482"></a><span class="lineno"> 4482</span> <span class="comment"> * a0 a1 ... an * bm</span></div><div class="line"><a name="l04483"></a><span class="lineno"> 4483</span> <span class="comment"> * a0 a1 ... an * bm-1</span></div><div class="line"><a name="l04484"></a><span class="lineno"> 4484</span> <span class="comment"> * . . .</span></div><div class="line"><a name="l04485"></a><span class="lineno"> 4485</span> <span class="comment"> * . . .</span></div><div class="line"><a name="l04486"></a><span class="lineno"> 4486</span> <span class="comment"> * a0 a1 .... an * b0</span></div><div class="line"><a name="l04487"></a><span class="lineno"> 4487</span> <span class="comment"> * +_____________________________</span></div><div class="line"><a name="l04488"></a><span class="lineno"> 4488</span> <span class="comment"> * c0 c1 c2 ...... cl</span></div><div class="line"><a name="l04489"></a><span class="lineno"> 4489</span> <span class="comment"> * nc <---|</span></div><div class="line"><a name="l04490"></a><span class="lineno"> 4490</span> <span class="comment"> * MaxAB |--------------------|</span></div><div class="line"><a name="l04491"></a><span class="lineno"> 4491</span> <span class="comment"> */</span></div><div class="line"><a name="l04492"></a><span class="lineno"> 4492</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l04493"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a53aa57346ca7974861cb2ddb3ce5c4fd"> 4493</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b)</div><div class="line"><a name="l04494"></a><span class="lineno"> 4494</span> {</div><div class="line"><a name="l04495"></a><span class="lineno"> 4495</span>  <span class="keywordtype">size_t</span> MxIndA, MxIndB, MxIndAB, MxIndC;</div><div class="line"><a name="l04496"></a><span class="lineno"> 4496</span>  <span class="keywordtype">size_t</span> ind_c, i, ii, nc;</div><div class="line"><a name="l04497"></a><span class="lineno"> 4497</span>  <span class="keywordtype">size_t</span> ind_as, ind_ae, ind_bs;</div><div class="line"><a name="l04498"></a><span class="lineno"> 4498</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> carry;</div><div class="line"><a name="l04499"></a><span class="lineno"> 4499</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a> s;</div><div class="line"><a name="l04500"></a><span class="lineno"> 4500</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *w;</div><div class="line"><a name="l04501"></a><span class="lineno"> 4501</span> </div><div class="line"><a name="l04502"></a><span class="lineno"> 4502</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04503"></a><span class="lineno"> 4503</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04504"></a><span class="lineno"> 4504</span>  VPrint(stdout, <span class="stringliteral">"VpMult(Enter): a=% \n"</span>, a);</div><div class="line"><a name="l04505"></a><span class="lineno"> 4505</span>  VPrint(stdout, <span class="stringliteral">" b=% \n"</span>, b);</div><div class="line"><a name="l04506"></a><span class="lineno"> 4506</span>  }</div><div class="line"><a name="l04507"></a><span class="lineno"> 4507</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04508"></a><span class="lineno"> 4508</span> </div><div class="line"><a name="l04509"></a><span class="lineno"> 4509</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0">VpIsDefOP</a>(c, a, b, 3)) <span class="keywordflow">return</span> 0; <span class="comment">/* No significant digit */</span></div><div class="line"><a name="l04510"></a><span class="lineno"> 4510</span> </div><div class="line"><a name="l04511"></a><span class="lineno"> 4511</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l04512"></a><span class="lineno"> 4512</span>  <span class="comment">/* at least a or b is zero */</span></div><div class="line"><a name="l04513"></a><span class="lineno"> 4513</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04514"></a><span class="lineno"> 4514</span>  <span class="keywordflow">return</span> 1; <span class="comment">/* 0: 1 significant digit */</span></div><div class="line"><a name="l04515"></a><span class="lineno"> 4515</span>  }</div><div class="line"><a name="l04516"></a><span class="lineno"> 4516</span> </div><div class="line"><a name="l04517"></a><span class="lineno"> 4517</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae7bf8bc2b959425907b421b2823199c3">VpIsOne</a>(a)) {</div><div class="line"><a name="l04518"></a><span class="lineno"> 4518</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, b, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04519"></a><span class="lineno"> 4519</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04520"></a><span class="lineno"> 4520</span>  }</div><div class="line"><a name="l04521"></a><span class="lineno"> 4521</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae7bf8bc2b959425907b421b2823199c3">VpIsOne</a>(b)) {</div><div class="line"><a name="l04522"></a><span class="lineno"> 4522</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04523"></a><span class="lineno"> 4523</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04524"></a><span class="lineno"> 4524</span>  }</div><div class="line"><a name="l04525"></a><span class="lineno"> 4525</span>  <span class="keywordflow">if</span> (b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> > a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) {</div><div class="line"><a name="l04526"></a><span class="lineno"> 4526</span>  <span class="comment">/* Adjust so that digits(a)>digits(b) */</span></div><div class="line"><a name="l04527"></a><span class="lineno"> 4527</span>  w = a;</div><div class="line"><a name="l04528"></a><span class="lineno"> 4528</span>  a = b;</div><div class="line"><a name="l04529"></a><span class="lineno"> 4529</span>  b = w;</div><div class="line"><a name="l04530"></a><span class="lineno"> 4530</span>  }</div><div class="line"><a name="l04531"></a><span class="lineno"> 4531</span>  w = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l04532"></a><span class="lineno"> 4532</span>  MxIndA = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> - 1;</div><div class="line"><a name="l04533"></a><span class="lineno"> 4533</span>  MxIndB = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> - 1;</div><div class="line"><a name="l04534"></a><span class="lineno"> 4534</span>  MxIndC = c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> - 1;</div><div class="line"><a name="l04535"></a><span class="lineno"> 4535</span>  MxIndAB = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> - 1;</div><div class="line"><a name="l04536"></a><span class="lineno"> 4536</span> </div><div class="line"><a name="l04537"></a><span class="lineno"> 4537</span>  <span class="keywordflow">if</span> (MxIndC < MxIndAB) { <span class="comment">/* The Max. prec. of c < Prec(a)+Prec(b) */</span></div><div class="line"><a name="l04538"></a><span class="lineno"> 4538</span>  w = c;</div><div class="line"><a name="l04539"></a><span class="lineno"> 4539</span>  c = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>((<span class="keywordtype">size_t</span>)((MxIndAB + 1) * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>), <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l04540"></a><span class="lineno"> 4540</span>  MxIndC = MxIndAB;</div><div class="line"><a name="l04541"></a><span class="lineno"> 4541</span>  }</div><div class="line"><a name="l04542"></a><span class="lineno"> 4542</span> </div><div class="line"><a name="l04543"></a><span class="lineno"> 4543</span>  <span class="comment">/* set LHSV c info */</span></div><div class="line"><a name="l04544"></a><span class="lineno"> 4544</span> </div><div class="line"><a name="l04545"></a><span class="lineno"> 4545</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>; <span class="comment">/* set exponent */</span></div><div class="line"><a name="l04546"></a><span class="lineno"> 4546</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(c, b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>)) {</div><div class="line"><a name="l04547"></a><span class="lineno"> 4547</span>  <span class="keywordflow">if</span> (w) <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(c);</div><div class="line"><a name="l04548"></a><span class="lineno"> 4548</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04549"></a><span class="lineno"> 4549</span>  }</div><div class="line"><a name="l04550"></a><span class="lineno"> 4550</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b)); <span class="comment">/* set sign */</span></div><div class="line"><a name="l04551"></a><span class="lineno"> 4551</span>  carry = 0;</div><div class="line"><a name="l04552"></a><span class="lineno"> 4552</span>  nc = ind_c = MxIndAB;</div><div class="line"><a name="l04553"></a><span class="lineno"> 4553</span>  memset(c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, 0, (nc + 1) * <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)); <span class="comment">/* Initialize c */</span></div><div class="line"><a name="l04554"></a><span class="lineno"> 4554</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = nc + 1; <span class="comment">/* set precision */</span></div><div class="line"><a name="l04555"></a><span class="lineno"> 4555</span>  <span class="keywordflow">for</span> (nc = 0; nc < MxIndAB; ++nc, --ind_c) {</div><div class="line"><a name="l04556"></a><span class="lineno"> 4556</span>  <span class="keywordflow">if</span> (nc < MxIndB) { <span class="comment">/* The left triangle of the Fig. */</span></div><div class="line"><a name="l04557"></a><span class="lineno"> 4557</span>  ind_as = MxIndA - nc;</div><div class="line"><a name="l04558"></a><span class="lineno"> 4558</span>  ind_ae = MxIndA;</div><div class="line"><a name="l04559"></a><span class="lineno"> 4559</span>  ind_bs = MxIndB;</div><div class="line"><a name="l04560"></a><span class="lineno"> 4560</span>  }</div><div class="line"><a name="l04561"></a><span class="lineno"> 4561</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (nc <= MxIndA) { <span class="comment">/* The middle rectangular of the Fig. */</span></div><div class="line"><a name="l04562"></a><span class="lineno"> 4562</span>  ind_as = MxIndA - nc;</div><div class="line"><a name="l04563"></a><span class="lineno"> 4563</span>  ind_ae = MxIndA - (nc - MxIndB);</div><div class="line"><a name="l04564"></a><span class="lineno"> 4564</span>  ind_bs = MxIndB;</div><div class="line"><a name="l04565"></a><span class="lineno"> 4565</span>  }</div><div class="line"><a name="l04566"></a><span class="lineno"> 4566</span>  <span class="keywordflow">else</span> <span class="comment">/* if (nc > MxIndA) */</span> { <span class="comment">/* The right triangle of the Fig. */</span></div><div class="line"><a name="l04567"></a><span class="lineno"> 4567</span>  ind_as = 0;</div><div class="line"><a name="l04568"></a><span class="lineno"> 4568</span>  ind_ae = MxIndAB - nc - 1;</div><div class="line"><a name="l04569"></a><span class="lineno"> 4569</span>  ind_bs = MxIndB - (nc - MxIndA);</div><div class="line"><a name="l04570"></a><span class="lineno"> 4570</span>  }</div><div class="line"><a name="l04571"></a><span class="lineno"> 4571</span> </div><div class="line"><a name="l04572"></a><span class="lineno"> 4572</span>  <span class="keywordflow">for</span> (i = ind_as; i <= ind_ae; ++i) {</div><div class="line"><a name="l04573"></a><span class="lineno"> 4573</span>  s = (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a>)a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i] * b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_bs--];</div><div class="line"><a name="l04574"></a><span class="lineno"> 4574</span>  carry = (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)(s / <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>);</div><div class="line"><a name="l04575"></a><span class="lineno"> 4575</span>  s -= (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a>)carry * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04576"></a><span class="lineno"> 4576</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] += (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)s;</div><div class="line"><a name="l04577"></a><span class="lineno"> 4577</span>  <span class="keywordflow">if</span> (c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l04578"></a><span class="lineno"> 4578</span>  s = c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] / <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04579"></a><span class="lineno"> 4579</span>  carry += (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)s;</div><div class="line"><a name="l04580"></a><span class="lineno"> 4580</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] -= (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)(s * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>);</div><div class="line"><a name="l04581"></a><span class="lineno"> 4581</span>  }</div><div class="line"><a name="l04582"></a><span class="lineno"> 4582</span>  <span class="keywordflow">if</span> (carry) {</div><div class="line"><a name="l04583"></a><span class="lineno"> 4583</span>  ii = ind_c;</div><div class="line"><a name="l04584"></a><span class="lineno"> 4584</span>  <span class="keywordflow">while</span> (ii-- > 0) {</div><div class="line"><a name="l04585"></a><span class="lineno"> 4585</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ii] += carry;</div><div class="line"><a name="l04586"></a><span class="lineno"> 4586</span>  <span class="keywordflow">if</span> (c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ii] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l04587"></a><span class="lineno"> 4587</span>  carry = c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ii] / <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04588"></a><span class="lineno"> 4588</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ii] -= (carry * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>);</div><div class="line"><a name="l04589"></a><span class="lineno"> 4589</span>  }</div><div class="line"><a name="l04590"></a><span class="lineno"> 4590</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04591"></a><span class="lineno"> 4591</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l04592"></a><span class="lineno"> 4592</span>  }</div><div class="line"><a name="l04593"></a><span class="lineno"> 4593</span>  }</div><div class="line"><a name="l04594"></a><span class="lineno"> 4594</span>  }</div><div class="line"><a name="l04595"></a><span class="lineno"> 4595</span>  }</div><div class="line"><a name="l04596"></a><span class="lineno"> 4596</span>  }</div><div class="line"><a name="l04597"></a><span class="lineno"> 4597</span>  <span class="keywordflow">if</span> (w != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) { <span class="comment">/* free work variable */</span></div><div class="line"><a name="l04598"></a><span class="lineno"> 4598</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(c);</div><div class="line"><a name="l04599"></a><span class="lineno"> 4599</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(w, c, 1);</div><div class="line"><a name="l04600"></a><span class="lineno"> 4600</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(c);</div><div class="line"><a name="l04601"></a><span class="lineno"> 4601</span>  c = w;</div><div class="line"><a name="l04602"></a><span class="lineno"> 4602</span>  }</div><div class="line"><a name="l04603"></a><span class="lineno"> 4603</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04604"></a><span class="lineno"> 4604</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad">VpLimitRound</a>(c,0);</div><div class="line"><a name="l04605"></a><span class="lineno"> 4605</span>  }</div><div class="line"><a name="l04606"></a><span class="lineno"> 4606</span> </div><div class="line"><a name="l04607"></a><span class="lineno"> 4607</span> Exit:</div><div class="line"><a name="l04608"></a><span class="lineno"> 4608</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04609"></a><span class="lineno"> 4609</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04610"></a><span class="lineno"> 4610</span>  VPrint(stdout, <span class="stringliteral">"VpMult(c=a*b): c=% \n"</span>, c);</div><div class="line"><a name="l04611"></a><span class="lineno"> 4611</span>  VPrint(stdout, <span class="stringliteral">" a=% \n"</span>, a);</div><div class="line"><a name="l04612"></a><span class="lineno"> 4612</span>  VPrint(stdout, <span class="stringliteral">" b=% \n"</span>, b);</div><div class="line"><a name="l04613"></a><span class="lineno"> 4613</span>  }</div><div class="line"><a name="l04614"></a><span class="lineno"> 4614</span> <span class="preprocessor">#endif </span><span class="comment">/*BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04615"></a><span class="lineno"> 4615</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04616"></a><span class="lineno"> 4616</span> }</div><div class="line"><a name="l04617"></a><span class="lineno"> 4617</span> </div><div class="line"><a name="l04618"></a><span class="lineno"> 4618</span> <span class="comment">/*</span></div><div class="line"><a name="l04619"></a><span class="lineno"> 4619</span> <span class="comment"> * c = a / b, remainder = r</span></div><div class="line"><a name="l04620"></a><span class="lineno"> 4620</span> <span class="comment"> */</span></div><div class="line"><a name="l04621"></a><span class="lineno"> 4621</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">size_t</span></div><div class="line"><a name="l04622"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a02d79484ac6b0630e115c760bce71f62"> 4622</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *r, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b)</div><div class="line"><a name="l04623"></a><span class="lineno"> 4623</span> {</div><div class="line"><a name="l04624"></a><span class="lineno"> 4624</span>  <span class="keywordtype">size_t</span> word_a, word_b, word_c, word_r;</div><div class="line"><a name="l04625"></a><span class="lineno"> 4625</span>  <span class="keywordtype">size_t</span> i, n, ind_a, ind_b, ind_c, ind_r;</div><div class="line"><a name="l04626"></a><span class="lineno"> 4626</span>  <span class="keywordtype">size_t</span> nLoop;</div><div class="line"><a name="l04627"></a><span class="lineno"> 4627</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a> q, b1, b1p1, b1b2, b1b2p1, r1r2;</div><div class="line"><a name="l04628"></a><span class="lineno"> 4628</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> borrow, borrow1, borrow2;</div><div class="line"><a name="l04629"></a><span class="lineno"> 4629</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a> qb;</div><div class="line"><a name="l04630"></a><span class="lineno"> 4630</span> </div><div class="line"><a name="l04631"></a><span class="lineno"> 4631</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04632"></a><span class="lineno"> 4632</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04633"></a><span class="lineno"> 4633</span>  VPrint(stdout, <span class="stringliteral">" VpDivd(c=a/b) a=% \n"</span>, a);</div><div class="line"><a name="l04634"></a><span class="lineno"> 4634</span>  VPrint(stdout, <span class="stringliteral">" b=% \n"</span>, b);</div><div class="line"><a name="l04635"></a><span class="lineno"> 4635</span>  }</div><div class="line"><a name="l04636"></a><span class="lineno"> 4636</span> <span class="preprocessor">#endif </span><span class="comment">/*BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04637"></a><span class="lineno"> 4637</span> </div><div class="line"><a name="l04638"></a><span class="lineno"> 4638</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(r);</div><div class="line"><a name="l04639"></a><span class="lineno"> 4639</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0">VpIsDefOP</a>(c, a, b, 4)) <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04640"></a><span class="lineno"> 4640</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a) && <a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l04641"></a><span class="lineno"> 4641</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(c);</div><div class="line"><a name="l04642"></a><span class="lineno"> 4642</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a>, <span class="stringliteral">"(VpDivd) 0/0 not defined(NaN)"</span>, 0);</div><div class="line"><a name="l04643"></a><span class="lineno"> 4643</span>  }</div><div class="line"><a name="l04644"></a><span class="lineno"> 4644</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l04645"></a><span class="lineno"> 4645</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04646"></a><span class="lineno"> 4646</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a>, <span class="stringliteral">"(VpDivd) Divide by zero"</span>, 0);</div><div class="line"><a name="l04647"></a><span class="lineno"> 4647</span>  }</div><div class="line"><a name="l04648"></a><span class="lineno"> 4648</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l04649"></a><span class="lineno"> 4649</span>  <span class="comment">/* numerator a is zero */</span></div><div class="line"><a name="l04650"></a><span class="lineno"> 4650</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04651"></a><span class="lineno"> 4651</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(r, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04652"></a><span class="lineno"> 4652</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04653"></a><span class="lineno"> 4653</span>  }</div><div class="line"><a name="l04654"></a><span class="lineno"> 4654</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae7bf8bc2b959425907b421b2823199c3">VpIsOne</a>(b)) {</div><div class="line"><a name="l04655"></a><span class="lineno"> 4655</span>  <span class="comment">/* divide by one */</span></div><div class="line"><a name="l04656"></a><span class="lineno"> 4656</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(c, a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04657"></a><span class="lineno"> 4657</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(r, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04658"></a><span class="lineno"> 4658</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04659"></a><span class="lineno"> 4659</span>  }</div><div class="line"><a name="l04660"></a><span class="lineno"> 4660</span> </div><div class="line"><a name="l04661"></a><span class="lineno"> 4661</span>  word_a = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04662"></a><span class="lineno"> 4662</span>  word_b = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04663"></a><span class="lineno"> 4663</span>  word_c = c-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l04664"></a><span class="lineno"> 4664</span>  word_r = r-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l04665"></a><span class="lineno"> 4665</span> </div><div class="line"><a name="l04666"></a><span class="lineno"> 4666</span>  ind_c = 0;</div><div class="line"><a name="l04667"></a><span class="lineno"> 4667</span>  ind_r = 1;</div><div class="line"><a name="l04668"></a><span class="lineno"> 4668</span> </div><div class="line"><a name="l04669"></a><span class="lineno"> 4669</span>  <span class="keywordflow">if</span> (word_a >= word_r) <span class="keywordflow">goto</span> space_error;</div><div class="line"><a name="l04670"></a><span class="lineno"> 4670</span> </div><div class="line"><a name="l04671"></a><span class="lineno"> 4671</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] = 0;</div><div class="line"><a name="l04672"></a><span class="lineno"> 4672</span>  <span class="keywordflow">while</span> (ind_r <= word_a) {</div><div class="line"><a name="l04673"></a><span class="lineno"> 4673</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r - 1];</div><div class="line"><a name="l04674"></a><span class="lineno"> 4674</span>  ++ind_r;</div><div class="line"><a name="l04675"></a><span class="lineno"> 4675</span>  }</div><div class="line"><a name="l04676"></a><span class="lineno"> 4676</span> </div><div class="line"><a name="l04677"></a><span class="lineno"> 4677</span>  <span class="keywordflow">while</span> (ind_r < word_r) r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r++] = 0;</div><div class="line"><a name="l04678"></a><span class="lineno"> 4678</span>  <span class="keywordflow">while</span> (ind_c < word_c) c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c++] = 0;</div><div class="line"><a name="l04679"></a><span class="lineno"> 4679</span> </div><div class="line"><a name="l04680"></a><span class="lineno"> 4680</span>  <span class="comment">/* initial procedure */</span></div><div class="line"><a name="l04681"></a><span class="lineno"> 4681</span>  b1 = b1p1 = b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0];</div><div class="line"><a name="l04682"></a><span class="lineno"> 4682</span>  <span class="keywordflow">if</span> (b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> <= 1) {</div><div class="line"><a name="l04683"></a><span class="lineno"> 4683</span>  b1b2p1 = b1b2 = b1p1 * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04684"></a><span class="lineno"> 4684</span>  }</div><div class="line"><a name="l04685"></a><span class="lineno"> 4685</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04686"></a><span class="lineno"> 4686</span>  b1p1 = b1 + 1;</div><div class="line"><a name="l04687"></a><span class="lineno"> 4687</span>  b1b2p1 = b1b2 = b1 * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> + b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[1];</div><div class="line"><a name="l04688"></a><span class="lineno"> 4688</span>  <span class="keywordflow">if</span> (b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> > 2) ++b1b2p1;</div><div class="line"><a name="l04689"></a><span class="lineno"> 4689</span>  }</div><div class="line"><a name="l04690"></a><span class="lineno"> 4690</span> </div><div class="line"><a name="l04691"></a><span class="lineno"> 4691</span>  <span class="comment">/* */</span></div><div class="line"><a name="l04692"></a><span class="lineno"> 4692</span>  <span class="comment">/* loop start */</span></div><div class="line"><a name="l04693"></a><span class="lineno"> 4693</span>  ind_c = word_r - 1;</div><div class="line"><a name="l04694"></a><span class="lineno"> 4694</span>  nLoop = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a9e04209162ea72f9985338596262b657">Min</a>(word_c,ind_c);</div><div class="line"><a name="l04695"></a><span class="lineno"> 4695</span>  ind_c = 1;</div><div class="line"><a name="l04696"></a><span class="lineno"> 4696</span>  <span class="keywordflow">while</span> (ind_c < nLoop) {</div><div class="line"><a name="l04697"></a><span class="lineno"> 4697</span>  <span class="keywordflow">if</span> (r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] == 0) {</div><div class="line"><a name="l04698"></a><span class="lineno"> 4698</span>  ++ind_c;</div><div class="line"><a name="l04699"></a><span class="lineno"> 4699</span>  <span class="keywordflow">continue</span>;</div><div class="line"><a name="l04700"></a><span class="lineno"> 4700</span>  }</div><div class="line"><a name="l04701"></a><span class="lineno"> 4701</span>  r1r2 = (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a>)r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> + r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c + 1];</div><div class="line"><a name="l04702"></a><span class="lineno"> 4702</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a6fb3b37b30ac3874008f653ed9765309">if</a> (r1r2 == b1b2) {</div><div class="line"><a name="l04703"></a><span class="lineno"> 4703</span>  <span class="comment">/* The first two word digits is the same */</span></div><div class="line"><a name="l04704"></a><span class="lineno"> 4704</span>  ind_b = 2;</div><div class="line"><a name="l04705"></a><span class="lineno"> 4705</span>  ind_a = ind_c + 2;</div><div class="line"><a name="l04706"></a><span class="lineno"> 4706</span>  <span class="keywordflow">while</span> (ind_b < word_b) {</div><div class="line"><a name="l04707"></a><span class="lineno"> 4707</span>  <span class="keywordflow">if</span> (r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] < b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_b]) <span class="keywordflow">goto</span> div_b1p1;</div><div class="line"><a name="l04708"></a><span class="lineno"> 4708</span>  <span class="keywordflow">if</span> (r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] > b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_b]) <span class="keywordflow">break</span>;</div><div class="line"><a name="l04709"></a><span class="lineno"> 4709</span>  ++ind_a;</div><div class="line"><a name="l04710"></a><span class="lineno"> 4710</span>  ++ind_b;</div><div class="line"><a name="l04711"></a><span class="lineno"> 4711</span>  }</div><div class="line"><a name="l04712"></a><span class="lineno"> 4712</span>  <span class="comment">/* The first few word digits of r and b is the same and */</span></div><div class="line"><a name="l04713"></a><span class="lineno"> 4713</span>  <span class="comment">/* the first different word digit of w is greater than that */</span></div><div class="line"><a name="l04714"></a><span class="lineno"> 4714</span>  <span class="comment">/* of b, so quotient is 1 and just subtract b from r. */</span></div><div class="line"><a name="l04715"></a><span class="lineno"> 4715</span>  borrow = 0; <span class="comment">/* quotient=1, then just r-b */</span></div><div class="line"><a name="l04716"></a><span class="lineno"> 4716</span>  ind_b = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> - 1;</div><div class="line"><a name="l04717"></a><span class="lineno"> 4717</span>  ind_r = ind_c + ind_b;</div><div class="line"><a name="l04718"></a><span class="lineno"> 4718</span>  <span class="keywordflow">if</span> (ind_r >= word_r) <span class="keywordflow">goto</span> space_error;</div><div class="line"><a name="l04719"></a><span class="lineno"> 4719</span>  n = ind_b;</div><div class="line"><a name="l04720"></a><span class="lineno"> 4720</span>  <span class="keywordflow">for</span> (i = 0; i <= n; ++i) {</div><div class="line"><a name="l04721"></a><span class="lineno"> 4721</span>  <span class="keywordflow">if</span> (r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] < b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_b] + borrow) {</div><div class="line"><a name="l04722"></a><span class="lineno"> 4722</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] += (<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> - (b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_b] + borrow));</div><div class="line"><a name="l04723"></a><span class="lineno"> 4723</span>  borrow = 1;</div><div class="line"><a name="l04724"></a><span class="lineno"> 4724</span>  }</div><div class="line"><a name="l04725"></a><span class="lineno"> 4725</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04726"></a><span class="lineno"> 4726</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] = r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] - b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_b] - borrow;</div><div class="line"><a name="l04727"></a><span class="lineno"> 4727</span>  borrow = 0;</div><div class="line"><a name="l04728"></a><span class="lineno"> 4728</span>  }</div><div class="line"><a name="l04729"></a><span class="lineno"> 4729</span>  --ind_r;</div><div class="line"><a name="l04730"></a><span class="lineno"> 4730</span>  --ind_b;</div><div class="line"><a name="l04731"></a><span class="lineno"> 4731</span>  }</div><div class="line"><a name="l04732"></a><span class="lineno"> 4732</span>  ++c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c];</div><div class="line"><a name="l04733"></a><span class="lineno"> 4733</span>  <span class="keywordflow">goto</span> carry;</div><div class="line"><a name="l04734"></a><span class="lineno"> 4734</span>  }</div><div class="line"><a name="l04735"></a><span class="lineno"> 4735</span>  <span class="comment">/* The first two word digits is not the same, */</span></div><div class="line"><a name="l04736"></a><span class="lineno"> 4736</span>  <span class="comment">/* then compare magnitude, and divide actually. */</span></div><div class="line"><a name="l04737"></a><span class="lineno"> 4737</span>  <span class="keywordflow">if</span> (r1r2 >= b1b2p1) {</div><div class="line"><a name="l04738"></a><span class="lineno"> 4738</span>  q = r1r2 / b1b2p1; <span class="comment">/* q == (BDIGIT)q */</span></div><div class="line"><a name="l04739"></a><span class="lineno"> 4739</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c] += (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)q;</div><div class="line"><a name="l04740"></a><span class="lineno"> 4740</span>  ind_r = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + ind_c - 1;</div><div class="line"><a name="l04741"></a><span class="lineno"> 4741</span>  <span class="keywordflow">goto</span> sub_mult;</div><div class="line"><a name="l04742"></a><span class="lineno"> 4742</span>  }</div><div class="line"><a name="l04743"></a><span class="lineno"> 4743</span> </div><div class="line"><a name="l04744"></a><span class="lineno"> 4744</span> div_b1p1:</div><div class="line"><a name="l04745"></a><span class="lineno"> 4745</span>  <span class="keywordflow">if</span> (ind_c + 1 >= word_c) <span class="keywordflow">goto</span> out_side;</div><div class="line"><a name="l04746"></a><span class="lineno"> 4746</span>  q = r1r2 / b1p1; <span class="comment">/* q == (BDIGIT)q */</span></div><div class="line"><a name="l04747"></a><span class="lineno"> 4747</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_c + 1] += (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)q;</div><div class="line"><a name="l04748"></a><span class="lineno"> 4748</span>  ind_r = b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> + ind_c;</div><div class="line"><a name="l04749"></a><span class="lineno"> 4749</span> </div><div class="line"><a name="l04750"></a><span class="lineno"> 4750</span> sub_mult:</div><div class="line"><a name="l04751"></a><span class="lineno"> 4751</span>  borrow1 = borrow2 = 0;</div><div class="line"><a name="l04752"></a><span class="lineno"> 4752</span>  ind_b = word_b - 1;</div><div class="line"><a name="l04753"></a><span class="lineno"> 4753</span>  <span class="keywordflow">if</span> (ind_r >= word_r) <span class="keywordflow">goto</span> space_error;</div><div class="line"><a name="l04754"></a><span class="lineno"> 4754</span>  n = ind_b;</div><div class="line"><a name="l04755"></a><span class="lineno"> 4755</span>  <span class="keywordflow">for</span> (i = 0; i <= n; ++i) {</div><div class="line"><a name="l04756"></a><span class="lineno"> 4756</span>  <span class="comment">/* now, perform r = r - q * b */</span></div><div class="line"><a name="l04757"></a><span class="lineno"> 4757</span>  qb = q * b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_b];</div><div class="line"><a name="l04758"></a><span class="lineno"> 4758</span>  <span class="keywordflow">if</span> (qb < <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) borrow1 = 0;</div><div class="line"><a name="l04759"></a><span class="lineno"> 4759</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04760"></a><span class="lineno"> 4760</span>  borrow1 = (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)(qb / <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>);</div><div class="line"><a name="l04761"></a><span class="lineno"> 4761</span>  qb -= (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a>)borrow1 * <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>; <span class="comment">/* get qb < BASE */</span></div><div class="line"><a name="l04762"></a><span class="lineno"> 4762</span>  }</div><div class="line"><a name="l04763"></a><span class="lineno"> 4763</span>  <span class="keywordflow">if</span>(r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] < qb) {</div><div class="line"><a name="l04764"></a><span class="lineno"> 4764</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] += (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)(<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> - qb);</div><div class="line"><a name="l04765"></a><span class="lineno"> 4765</span>  borrow2 = borrow2 + borrow1 + 1;</div><div class="line"><a name="l04766"></a><span class="lineno"> 4766</span>  }</div><div class="line"><a name="l04767"></a><span class="lineno"> 4767</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04768"></a><span class="lineno"> 4768</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] -= (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)qb;</div><div class="line"><a name="l04769"></a><span class="lineno"> 4769</span>  borrow2 += borrow1;</div><div class="line"><a name="l04770"></a><span class="lineno"> 4770</span>  }</div><div class="line"><a name="l04771"></a><span class="lineno"> 4771</span>  <span class="keywordflow">if</span> (borrow2) {</div><div class="line"><a name="l04772"></a><span class="lineno"> 4772</span>  <span class="keywordflow">if</span>(r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r - 1] < borrow2) {</div><div class="line"><a name="l04773"></a><span class="lineno"> 4773</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r - 1] += (<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a> - borrow2);</div><div class="line"><a name="l04774"></a><span class="lineno"> 4774</span>  borrow2 = 1;</div><div class="line"><a name="l04775"></a><span class="lineno"> 4775</span>  }</div><div class="line"><a name="l04776"></a><span class="lineno"> 4776</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l04777"></a><span class="lineno"> 4777</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r - 1] -= borrow2;</div><div class="line"><a name="l04778"></a><span class="lineno"> 4778</span>  borrow2 = 0;</div><div class="line"><a name="l04779"></a><span class="lineno"> 4779</span>  }</div><div class="line"><a name="l04780"></a><span class="lineno"> 4780</span>  }</div><div class="line"><a name="l04781"></a><span class="lineno"> 4781</span>  --ind_r;</div><div class="line"><a name="l04782"></a><span class="lineno"> 4782</span>  --ind_b;</div><div class="line"><a name="l04783"></a><span class="lineno"> 4783</span>  }</div><div class="line"><a name="l04784"></a><span class="lineno"> 4784</span> </div><div class="line"><a name="l04785"></a><span class="lineno"> 4785</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] -= borrow2;</div><div class="line"><a name="l04786"></a><span class="lineno"> 4786</span> carry:</div><div class="line"><a name="l04787"></a><span class="lineno"> 4787</span>  ind_r = ind_c;</div><div class="line"><a name="l04788"></a><span class="lineno"> 4788</span>  <span class="keywordflow">while</span> (c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l04789"></a><span class="lineno"> 4789</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r] -= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l04790"></a><span class="lineno"> 4790</span>  --ind_r;</div><div class="line"><a name="l04791"></a><span class="lineno"> 4791</span>  ++c-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_r];</div><div class="line"><a name="l04792"></a><span class="lineno"> 4792</span>  }</div><div class="line"><a name="l04793"></a><span class="lineno"> 4793</span>  }</div><div class="line"><a name="l04794"></a><span class="lineno"> 4794</span>  <span class="comment">/* End of operation, now final arrangement */</span></div><div class="line"><a name="l04795"></a><span class="lineno"> 4795</span> out_side:</div><div class="line"><a name="l04796"></a><span class="lineno"> 4796</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = word_c;</div><div class="line"><a name="l04797"></a><span class="lineno"> 4797</span>  c-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l04798"></a><span class="lineno"> 4798</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(c, 2)) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04799"></a><span class="lineno"> 4799</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(c, -(b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>))) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04800"></a><span class="lineno"> 4800</span> </div><div class="line"><a name="l04801"></a><span class="lineno"> 4801</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(c, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) * <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b));</div><div class="line"><a name="l04802"></a><span class="lineno"> 4802</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(c); <span class="comment">/* normalize c */</span></div><div class="line"><a name="l04803"></a><span class="lineno"> 4803</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = word_r;</div><div class="line"><a name="l04804"></a><span class="lineno"> 4804</span>  r-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l04805"></a><span class="lineno"> 4805</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(r, 1)) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04806"></a><span class="lineno"> 4806</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(r, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04807"></a><span class="lineno"> 4807</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(r); <span class="comment">/* normalize r(remainder) */</span></div><div class="line"><a name="l04808"></a><span class="lineno"> 4808</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04809"></a><span class="lineno"> 4809</span> </div><div class="line"><a name="l04810"></a><span class="lineno"> 4810</span> space_error:</div><div class="line"><a name="l04811"></a><span class="lineno"> 4811</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04812"></a><span class="lineno"> 4812</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04813"></a><span class="lineno"> 4813</span>  printf(<span class="stringliteral">" word_a=%lu\n"</span>, word_a);</div><div class="line"><a name="l04814"></a><span class="lineno"> 4814</span>  printf(<span class="stringliteral">" word_b=%lu\n"</span>, word_b);</div><div class="line"><a name="l04815"></a><span class="lineno"> 4815</span>  printf(<span class="stringliteral">" word_c=%lu\n"</span>, word_c);</div><div class="line"><a name="l04816"></a><span class="lineno"> 4816</span>  printf(<span class="stringliteral">" word_r=%lu\n"</span>, word_r);</div><div class="line"><a name="l04817"></a><span class="lineno"> 4817</span>  printf(<span class="stringliteral">" ind_r =%lu\n"</span>, ind_r);</div><div class="line"><a name="l04818"></a><span class="lineno"> 4818</span>  }</div><div class="line"><a name="l04819"></a><span class="lineno"> 4819</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04820"></a><span class="lineno"> 4820</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"ERROR(VpDivd): space for remainder too small."</span>);</div><div class="line"><a name="l04821"></a><span class="lineno"> 4821</span> </div><div class="line"><a name="l04822"></a><span class="lineno"> 4822</span> Exit:</div><div class="line"><a name="l04823"></a><span class="lineno"> 4823</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04824"></a><span class="lineno"> 4824</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04825"></a><span class="lineno"> 4825</span>  VPrint(stdout, <span class="stringliteral">" VpDivd(c=a/b), c=% \n"</span>, c);</div><div class="line"><a name="l04826"></a><span class="lineno"> 4826</span>  VPrint(stdout, <span class="stringliteral">" r=% \n"</span>, r);</div><div class="line"><a name="l04827"></a><span class="lineno"> 4827</span>  }</div><div class="line"><a name="l04828"></a><span class="lineno"> 4828</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04829"></a><span class="lineno"> 4829</span>  <span class="keywordflow">return</span> c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l04830"></a><span class="lineno"> 4830</span> }</div><div class="line"><a name="l04831"></a><span class="lineno"> 4831</span> </div><div class="line"><a name="l04832"></a><span class="lineno"> 4832</span> <span class="comment">/*</span></div><div class="line"><a name="l04833"></a><span class="lineno"> 4833</span> <span class="comment"> * Input a = 00000xxxxxxxx En(5 preceding zeros)</span></div><div class="line"><a name="l04834"></a><span class="lineno"> 4834</span> <span class="comment"> * Output a = xxxxxxxx En-5</span></div><div class="line"><a name="l04835"></a><span class="lineno"> 4835</span> <span class="comment"> */</span></div><div class="line"><a name="l04836"></a><span class="lineno"> 4836</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04837"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394"> 4837</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a)</div><div class="line"><a name="l04838"></a><span class="lineno"> 4838</span> {</div><div class="line"><a name="l04839"></a><span class="lineno"> 4839</span>  <span class="keywordtype">size_t</span> ind_a, i;</div><div class="line"><a name="l04840"></a><span class="lineno"> 4840</span> </div><div class="line"><a name="l04841"></a><span class="lineno"> 4841</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(a)) <span class="keywordflow">goto</span> NoVal;</div><div class="line"><a name="l04842"></a><span class="lineno"> 4842</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) <span class="keywordflow">goto</span> NoVal;</div><div class="line"><a name="l04843"></a><span class="lineno"> 4843</span> </div><div class="line"><a name="l04844"></a><span class="lineno"> 4844</span>  ind_a = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04845"></a><span class="lineno"> 4845</span>  <span class="keywordflow">while</span> (ind_a--) {</div><div class="line"><a name="l04846"></a><span class="lineno"> 4846</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a]) {</div><div class="line"><a name="l04847"></a><span class="lineno"> 4847</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = ind_a + 1;</div><div class="line"><a name="l04848"></a><span class="lineno"> 4848</span>  i = 0;</div><div class="line"><a name="l04849"></a><span class="lineno"> 4849</span>  <span class="keywordflow">while</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i] == 0) ++i; <span class="comment">/* skip the first few zeros */</span></div><div class="line"><a name="l04850"></a><span class="lineno"> 4850</span>  <span class="keywordflow">if</span> (i) {</div><div class="line"><a name="l04851"></a><span class="lineno"> 4851</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> -= i;</div><div class="line"><a name="l04852"></a><span class="lineno"> 4852</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(a, -(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)i)) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04853"></a><span class="lineno"> 4853</span>  <a class="code" href="../../d3/d90/missing_8h.html#a809a3e9326a0d3e5aa549b17085b057d">memmove</a>(&a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0], &a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i], a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>*<span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>));</div><div class="line"><a name="l04854"></a><span class="lineno"> 4854</span>  }</div><div class="line"><a name="l04855"></a><span class="lineno"> 4855</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l04856"></a><span class="lineno"> 4856</span>  }</div><div class="line"><a name="l04857"></a><span class="lineno"> 4857</span>  }</div><div class="line"><a name="l04858"></a><span class="lineno"> 4858</span>  <span class="comment">/* a is zero(no non-zero digit) */</span></div><div class="line"><a name="l04859"></a><span class="lineno"> 4859</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(a, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a));</div><div class="line"><a name="l04860"></a><span class="lineno"> 4860</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04861"></a><span class="lineno"> 4861</span> </div><div class="line"><a name="l04862"></a><span class="lineno"> 4862</span> NoVal:</div><div class="line"><a name="l04863"></a><span class="lineno"> 4863</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] = 0;</div><div class="line"><a name="l04864"></a><span class="lineno"> 4864</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = 1;</div><div class="line"><a name="l04865"></a><span class="lineno"> 4865</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04866"></a><span class="lineno"> 4866</span> }</div><div class="line"><a name="l04867"></a><span class="lineno"> 4867</span> </div><div class="line"><a name="l04868"></a><span class="lineno"> 4868</span> <span class="comment">/*</span></div><div class="line"><a name="l04869"></a><span class="lineno"> 4869</span> <span class="comment"> * VpComp = 0 ... if a=b,</span></div><div class="line"><a name="l04870"></a><span class="lineno"> 4870</span> <span class="comment"> * Pos ... a>b,</span></div><div class="line"><a name="l04871"></a><span class="lineno"> 4871</span> <span class="comment"> * Neg ... a<b.</span></div><div class="line"><a name="l04872"></a><span class="lineno"> 4872</span> <span class="comment"> * 999 ... result undefined(NaN)</span></div><div class="line"><a name="l04873"></a><span class="lineno"> 4873</span> <span class="comment"> */</span></div><div class="line"><a name="l04874"></a><span class="lineno"> 4874</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l04875"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#ab6b6adf3ebcd85281ee3c158a738824d"> 4875</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ab6b6adf3ebcd85281ee3c158a738824d">VpComp</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *b)</div><div class="line"><a name="l04876"></a><span class="lineno"> 4876</span> {</div><div class="line"><a name="l04877"></a><span class="lineno"> 4877</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l04878"></a><span class="lineno"> 4878</span>  <span class="keywordtype">size_t</span> mx, ind;</div><div class="line"><a name="l04879"></a><span class="lineno"> 4879</span>  <span class="keywordtype">int</span> e;</div><div class="line"><a name="l04880"></a><span class="lineno"> 4880</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = 0;</div><div class="line"><a name="l04881"></a><span class="lineno"> 4881</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(b)) <span class="keywordflow">return</span> 999;</div><div class="line"><a name="l04882"></a><span class="lineno"> 4882</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(a)) {</div><div class="line"><a name="l04883"></a><span class="lineno"> 4883</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(b)) e = a-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a> - b-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a>;</div><div class="line"><a name="l04884"></a><span class="lineno"> 4884</span>  <span class="keywordflow">else</span> e = a-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a>;</div><div class="line"><a name="l04885"></a><span class="lineno"> 4885</span> </div><div class="line"><a name="l04886"></a><span class="lineno"> 4886</span>  <span class="keywordflow">if</span> (e > 0) <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l04887"></a><span class="lineno"> 4887</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (e < 0) <span class="keywordflow">return</span> -1;</div><div class="line"><a name="l04888"></a><span class="lineno"> 4888</span>  <span class="keywordflow">else</span> <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l04889"></a><span class="lineno"> 4889</span>  }</div><div class="line"><a name="l04890"></a><span class="lineno"> 4890</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a>(b)) {</div><div class="line"><a name="l04891"></a><span class="lineno"> 4891</span>  e = -b-><a class="code" href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">sign</a>;</div><div class="line"><a name="l04892"></a><span class="lineno"> 4892</span>  <span class="keywordflow">if</span> (e > 0) <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l04893"></a><span class="lineno"> 4893</span>  <span class="keywordflow">else</span> <span class="keywordflow">return</span> -1;</div><div class="line"><a name="l04894"></a><span class="lineno"> 4894</span>  }</div><div class="line"><a name="l04895"></a><span class="lineno"> 4895</span>  <span class="comment">/* Zero check */</span></div><div class="line"><a name="l04896"></a><span class="lineno"> 4896</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l04897"></a><span class="lineno"> 4897</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) <span class="keywordflow">return</span> 0; <span class="comment">/* both zero */</span></div><div class="line"><a name="l04898"></a><span class="lineno"> 4898</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b);</div><div class="line"><a name="l04899"></a><span class="lineno"> 4899</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04900"></a><span class="lineno"> 4900</span>  }</div><div class="line"><a name="l04901"></a><span class="lineno"> 4901</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(b)) {</div><div class="line"><a name="l04902"></a><span class="lineno"> 4902</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a);</div><div class="line"><a name="l04903"></a><span class="lineno"> 4903</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04904"></a><span class="lineno"> 4904</span>  }</div><div class="line"><a name="l04905"></a><span class="lineno"> 4905</span> </div><div class="line"><a name="l04906"></a><span class="lineno"> 4906</span>  <span class="comment">/* compare sign */</span></div><div class="line"><a name="l04907"></a><span class="lineno"> 4907</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) > <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b)) {</div><div class="line"><a name="l04908"></a><span class="lineno"> 4908</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = 1; <span class="comment">/* a>b */</span></div><div class="line"><a name="l04909"></a><span class="lineno"> 4909</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04910"></a><span class="lineno"> 4910</span>  }</div><div class="line"><a name="l04911"></a><span class="lineno"> 4911</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) < <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b)) {</div><div class="line"><a name="l04912"></a><span class="lineno"> 4912</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = -1; <span class="comment">/* a<b */</span></div><div class="line"><a name="l04913"></a><span class="lineno"> 4913</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04914"></a><span class="lineno"> 4914</span>  }</div><div class="line"><a name="l04915"></a><span class="lineno"> 4915</span> </div><div class="line"><a name="l04916"></a><span class="lineno"> 4916</span>  <span class="comment">/* a and b have same sign, && sign!=0,then compare exponent */</span></div><div class="line"><a name="l04917"></a><span class="lineno"> 4917</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> > b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>) {</div><div class="line"><a name="l04918"></a><span class="lineno"> 4918</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a);</div><div class="line"><a name="l04919"></a><span class="lineno"> 4919</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04920"></a><span class="lineno"> 4920</span>  }</div><div class="line"><a name="l04921"></a><span class="lineno"> 4921</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> < b-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>) {</div><div class="line"><a name="l04922"></a><span class="lineno"> 4922</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b);</div><div class="line"><a name="l04923"></a><span class="lineno"> 4923</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04924"></a><span class="lineno"> 4924</span>  }</div><div class="line"><a name="l04925"></a><span class="lineno"> 4925</span> </div><div class="line"><a name="l04926"></a><span class="lineno"> 4926</span>  <span class="comment">/* a and b have same exponent, then compare significand. */</span></div><div class="line"><a name="l04927"></a><span class="lineno"> 4927</span>  mx = (a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> < b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) ? a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> : b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l04928"></a><span class="lineno"> 4928</span>  ind = 0;</div><div class="line"><a name="l04929"></a><span class="lineno"> 4929</span>  while (ind < mx) {</div><div class="line"><a name="l04930"></a><span class="lineno"> 4930</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind] > b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind]) {</div><div class="line"><a name="l04931"></a><span class="lineno"> 4931</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a);</div><div class="line"><a name="l04932"></a><span class="lineno"> 4932</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04933"></a><span class="lineno"> 4933</span>  }</div><div class="line"><a name="l04934"></a><span class="lineno"> 4934</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind] < b-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind]) {</div><div class="line"><a name="l04935"></a><span class="lineno"> 4935</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b);</div><div class="line"><a name="l04936"></a><span class="lineno"> 4936</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l04937"></a><span class="lineno"> 4937</span>  }</div><div class="line"><a name="l04938"></a><span class="lineno"> 4938</span>  ++ind;</div><div class="line"><a name="l04939"></a><span class="lineno"> 4939</span>  }</div><div class="line"><a name="l04940"></a><span class="lineno"> 4940</span>  <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> > b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) {</div><div class="line"><a name="l04941"></a><span class="lineno"> 4941</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a);</div><div class="line"><a name="l04942"></a><span class="lineno"> 4942</span>  }</div><div class="line"><a name="l04943"></a><span class="lineno"> 4943</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> < b-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) {</div><div class="line"><a name="l04944"></a><span class="lineno"> 4944</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = -<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(b);</div><div class="line"><a name="l04945"></a><span class="lineno"> 4945</span>  }</div><div class="line"><a name="l04946"></a><span class="lineno"> 4946</span> </div><div class="line"><a name="l04947"></a><span class="lineno"> 4947</span> Exit:</div><div class="line"><a name="l04948"></a><span class="lineno"> 4948</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> > 1) <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = 1;</div><div class="line"><a name="l04949"></a><span class="lineno"> 4949</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> < -1) <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = -1;</div><div class="line"><a name="l04950"></a><span class="lineno"> 4950</span> </div><div class="line"><a name="l04951"></a><span class="lineno"> 4951</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l04952"></a><span class="lineno"> 4952</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l04953"></a><span class="lineno"> 4953</span>  VPrint(stdout, <span class="stringliteral">" VpComp a=%\n"</span>, a);</div><div class="line"><a name="l04954"></a><span class="lineno"> 4954</span>  VPrint(stdout, <span class="stringliteral">" b=%\n"</span>, b);</div><div class="line"><a name="l04955"></a><span class="lineno"> 4955</span>  printf(<span class="stringliteral">" ans=%d\n"</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>);</div><div class="line"><a name="l04956"></a><span class="lineno"> 4956</span>  }</div><div class="line"><a name="l04957"></a><span class="lineno"> 4957</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l04958"></a><span class="lineno"> 4958</span>  <span class="keywordflow">return</span> (<span class="keywordtype">int</span>)<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l04959"></a><span class="lineno"> 4959</span> }</div><div class="line"><a name="l04960"></a><span class="lineno"> 4960</span> </div><div class="line"><a name="l04961"></a><span class="lineno"> 4961</span> <span class="comment">/*</span></div><div class="line"><a name="l04962"></a><span class="lineno"> 4962</span> <span class="comment"> * cntl_chr ... ASCIIZ Character, print control characters</span></div><div class="line"><a name="l04963"></a><span class="lineno"> 4963</span> <span class="comment"> * Available control codes:</span></div><div class="line"><a name="l04964"></a><span class="lineno"> 4964</span> <span class="comment"> * % ... VP variable. To print '%', use '%%'.</span></div><div class="line"><a name="l04965"></a><span class="lineno"> 4965</span> <span class="comment"> * \n ... new line</span></div><div class="line"><a name="l04966"></a><span class="lineno"> 4966</span> <span class="comment"> * \b ... backspace</span></div><div class="line"><a name="l04967"></a><span class="lineno"> 4967</span> <span class="comment"> * ... tab</span></div><div class="line"><a name="l04968"></a><span class="lineno"> 4968</span> <span class="comment"> * Note: % must must not appear more than once</span></div><div class="line"><a name="l04969"></a><span class="lineno"> 4969</span> <span class="comment"> * a ... VP variable to be printed</span></div><div class="line"><a name="l04970"></a><span class="lineno"> 4970</span> <span class="comment"> */</span></div><div class="line"><a name="l04971"></a><span class="lineno"> 4971</span> <span class="preprocessor">#ifdef BIGDECIMAL_ENABLE_VPRINT</span></div><div class="line"><a name="l04972"></a><span class="lineno"> 4972</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04973"></a><span class="lineno"> 4973</span> VPrint(<a class="code" href="../../db/ddf/struct____s_f_i_l_e.html">FILE</a> *fp, <span class="keyword">const</span> <span class="keywordtype">char</span> *cntl_chr, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a)</div><div class="line"><a name="l04974"></a><span class="lineno"> 4974</span> {</div><div class="line"><a name="l04975"></a><span class="lineno"> 4975</span>  <span class="keywordtype">size_t</span> i, j, nc, nd, ZeroSup, sep = 10;</div><div class="line"><a name="l04976"></a><span class="lineno"> 4976</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> m, e, nn;</div><div class="line"><a name="l04977"></a><span class="lineno"> 4977</span> </div><div class="line"><a name="l04978"></a><span class="lineno"> 4978</span>  <span class="comment">/* Check if NaN & Inf. */</span></div><div class="line"><a name="l04979"></a><span class="lineno"> 4979</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a)) {</div><div class="line"><a name="l04980"></a><span class="lineno"> 4980</span>  fprintf(fp, <a class="code" href="../../d0/da5/bigdecimal_8h.html#ac475b913ca9cacf8ca385497984443ed">SZ_NaN</a>);</div><div class="line"><a name="l04981"></a><span class="lineno"> 4981</span>  <span class="keywordflow">return</span> 8;</div><div class="line"><a name="l04982"></a><span class="lineno"> 4982</span>  }</div><div class="line"><a name="l04983"></a><span class="lineno"> 4983</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(a)) {</div><div class="line"><a name="l04984"></a><span class="lineno"> 4984</span>  fprintf(fp, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a187abc9b9b2cc7e2e5fe8201d95b5a8b">SZ_INF</a>);</div><div class="line"><a name="l04985"></a><span class="lineno"> 4985</span>  <span class="keywordflow">return</span> 8;</div><div class="line"><a name="l04986"></a><span class="lineno"> 4986</span>  }</div><div class="line"><a name="l04987"></a><span class="lineno"> 4987</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(a)) {</div><div class="line"><a name="l04988"></a><span class="lineno"> 4988</span>  fprintf(fp, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a019dcf0bc571a8243d08d531df7914cf">SZ_NINF</a>);</div><div class="line"><a name="l04989"></a><span class="lineno"> 4989</span>  <span class="keywordflow">return</span> 9;</div><div class="line"><a name="l04990"></a><span class="lineno"> 4990</span>  }</div><div class="line"><a name="l04991"></a><span class="lineno"> 4991</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l04992"></a><span class="lineno"> 4992</span>  fprintf(fp, <span class="stringliteral">"0.0"</span>);</div><div class="line"><a name="l04993"></a><span class="lineno"> 4993</span>  <span class="keywordflow">return</span> 3;</div><div class="line"><a name="l04994"></a><span class="lineno"> 4994</span>  }</div><div class="line"><a name="l04995"></a><span class="lineno"> 4995</span> </div><div class="line"><a name="l04996"></a><span class="lineno"> 4996</span>  j = 0;</div><div class="line"><a name="l04997"></a><span class="lineno"> 4997</span>  nd = nc = 0; <span class="comment">/* nd : number of digits in fraction part(every 10 digits, */</span></div><div class="line"><a name="l04998"></a><span class="lineno"> 4998</span>  <span class="comment">/* nd<=10). */</span></div><div class="line"><a name="l04999"></a><span class="lineno"> 4999</span>  <span class="comment">/* nc : number of characters printed */</span></div><div class="line"><a name="l05000"></a><span class="lineno"> 5000</span>  ZeroSup = 1; <span class="comment">/* Flag not to print the leading zeros as 0.00xxxxEnn */</span></div><div class="line"><a name="l05001"></a><span class="lineno"> 5001</span>  <span class="keywordflow">while</span> (*(cntl_chr + j)) {</div><div class="line"><a name="l05002"></a><span class="lineno"> 5002</span>  <span class="keywordflow">if</span> (*(cntl_chr + j) == <span class="charliteral">'%'</span> && *(cntl_chr + j + 1) != <span class="charliteral">'%'</span>) {</div><div class="line"><a name="l05003"></a><span class="lineno"> 5003</span>  nc = 0;</div><div class="line"><a name="l05004"></a><span class="lineno"> 5004</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l05005"></a><span class="lineno"> 5005</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) < 0) {</div><div class="line"><a name="l05006"></a><span class="lineno"> 5006</span>  fprintf(fp, <span class="stringliteral">"-"</span>);</div><div class="line"><a name="l05007"></a><span class="lineno"> 5007</span>  ++nc;</div><div class="line"><a name="l05008"></a><span class="lineno"> 5008</span>  }</div><div class="line"><a name="l05009"></a><span class="lineno"> 5009</span>  nc += fprintf(fp, <span class="stringliteral">"0."</span>);</div><div class="line"><a name="l05010"></a><span class="lineno"> 5010</span>  <span class="keywordflow">switch</span> (*(cntl_chr + j + 1)) {</div><div class="line"><a name="l05011"></a><span class="lineno"> 5011</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l05012"></a><span class="lineno"> 5012</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05013"></a><span class="lineno"> 5013</span> </div><div class="line"><a name="l05014"></a><span class="lineno"> 5014</span>  <span class="keywordflow">case</span> <span class="charliteral">'0'</span>: <span class="keywordflow">case</span> <span class="charliteral">'z'</span>:</div><div class="line"><a name="l05015"></a><span class="lineno"> 5015</span>  ZeroSup = 0;</div><div class="line"><a name="l05016"></a><span class="lineno"> 5016</span>  ++j;</div><div class="line"><a name="l05017"></a><span class="lineno"> 5017</span>  sep = cntl_chr[j] == <span class="charliteral">'z'</span> ? <a class="code" href="../../d0/da5/bigdecimal_8h.html#aebdb81193f2641d965dcbfae803d6389">RMPD_COMPONENT_FIGURES</a> : 10;</div><div class="line"><a name="l05018"></a><span class="lineno"> 5018</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05019"></a><span class="lineno"> 5019</span>  }</div><div class="line"><a name="l05020"></a><span class="lineno"> 5020</span>  <span class="keywordflow">for</span> (i = 0; i < a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>; ++i) {</div><div class="line"><a name="l05021"></a><span class="lineno"> 5021</span>  m = <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05022"></a><span class="lineno"> 5022</span>  e = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i];</div><div class="line"><a name="l05023"></a><span class="lineno"> 5023</span>  <span class="keywordflow">while</span> (m) {</div><div class="line"><a name="l05024"></a><span class="lineno"> 5024</span>  nn = e / m;</div><div class="line"><a name="l05025"></a><span class="lineno"> 5025</span>  <span class="keywordflow">if</span> (!ZeroSup || nn) {</div><div class="line"><a name="l05026"></a><span class="lineno"> 5026</span>  nc += fprintf(fp, <span class="stringliteral">"%lu"</span>, (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)nn); <span class="comment">/* The leading zero(s) */</span></div><div class="line"><a name="l05027"></a><span class="lineno"> 5027</span>  <span class="comment">/* as 0.00xx will not */</span></div><div class="line"><a name="l05028"></a><span class="lineno"> 5028</span>  <span class="comment">/* be printed. */</span></div><div class="line"><a name="l05029"></a><span class="lineno"> 5029</span>  ++nd;</div><div class="line"><a name="l05030"></a><span class="lineno"> 5030</span>  ZeroSup = 0; <span class="comment">/* Set to print succeeding zeros */</span></div><div class="line"><a name="l05031"></a><span class="lineno"> 5031</span>  }</div><div class="line"><a name="l05032"></a><span class="lineno"> 5032</span>  <span class="keywordflow">if</span> (nd >= sep) { <span class="comment">/* print ' ' after every 10 digits */</span></div><div class="line"><a name="l05033"></a><span class="lineno"> 5033</span>  nd = 0;</div><div class="line"><a name="l05034"></a><span class="lineno"> 5034</span>  nc += fprintf(fp, <span class="stringliteral">" "</span>);</div><div class="line"><a name="l05035"></a><span class="lineno"> 5035</span>  }</div><div class="line"><a name="l05036"></a><span class="lineno"> 5036</span>  e = e - nn * m;</div><div class="line"><a name="l05037"></a><span class="lineno"> 5037</span>  m /= 10;</div><div class="line"><a name="l05038"></a><span class="lineno"> 5038</span>  }</div><div class="line"><a name="l05039"></a><span class="lineno"> 5039</span>  }</div><div class="line"><a name="l05040"></a><span class="lineno"> 5040</span>  nc += fprintf(fp, <span class="stringliteral">"E%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#adc5e20179bf95e62d3e01da83774c1a9">PRIdSIZE</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(a));</div><div class="line"><a name="l05041"></a><span class="lineno"> 5041</span>  nc += fprintf(fp, <span class="stringliteral">" (%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a158b527584596ec1f7cf812a0d2fd16a">PRIdVALUE</a><span class="stringliteral">", %lu, %lu)"</span>, a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>, a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>, a-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l05042"></a><span class="lineno"> 5042</span>  }</div><div class="line"><a name="l05043"></a><span class="lineno"> 5043</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05044"></a><span class="lineno"> 5044</span>  nc += fprintf(fp, <span class="stringliteral">"0.0"</span>);</div><div class="line"><a name="l05045"></a><span class="lineno"> 5045</span>  }</div><div class="line"><a name="l05046"></a><span class="lineno"> 5046</span>  }</div><div class="line"><a name="l05047"></a><span class="lineno"> 5047</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05048"></a><span class="lineno"> 5048</span>  ++nc;</div><div class="line"><a name="l05049"></a><span class="lineno"> 5049</span>  <span class="keywordflow">if</span> (*(cntl_chr + j) == <span class="charliteral">'\\'</span>) {</div><div class="line"><a name="l05050"></a><span class="lineno"> 5050</span>  <span class="keywordflow">switch</span> (*(cntl_chr + j + 1)) {</div><div class="line"><a name="l05051"></a><span class="lineno"> 5051</span>  <span class="keywordflow">case</span> <span class="charliteral">'n'</span>:</div><div class="line"><a name="l05052"></a><span class="lineno"> 5052</span>  fprintf(fp, <span class="stringliteral">"\n"</span>);</div><div class="line"><a name="l05053"></a><span class="lineno"> 5053</span>  ++j;</div><div class="line"><a name="l05054"></a><span class="lineno"> 5054</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05055"></a><span class="lineno"> 5055</span>  <span class="keywordflow">case</span> <span class="charliteral">'t'</span>:</div><div class="line"><a name="l05056"></a><span class="lineno"> 5056</span>  fprintf(fp, <span class="stringliteral">"\t"</span>);</div><div class="line"><a name="l05057"></a><span class="lineno"> 5057</span>  ++j;</div><div class="line"><a name="l05058"></a><span class="lineno"> 5058</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05059"></a><span class="lineno"> 5059</span>  <span class="keywordflow">case</span> <span class="charliteral">'b'</span>:</div><div class="line"><a name="l05060"></a><span class="lineno"> 5060</span>  fprintf(fp, <span class="stringliteral">"\n"</span>);</div><div class="line"><a name="l05061"></a><span class="lineno"> 5061</span>  ++j;</div><div class="line"><a name="l05062"></a><span class="lineno"> 5062</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05063"></a><span class="lineno"> 5063</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l05064"></a><span class="lineno"> 5064</span>  fprintf(fp, <span class="stringliteral">"%c"</span>, *(cntl_chr + j));</div><div class="line"><a name="l05065"></a><span class="lineno"> 5065</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05066"></a><span class="lineno"> 5066</span>  }</div><div class="line"><a name="l05067"></a><span class="lineno"> 5067</span>  }</div><div class="line"><a name="l05068"></a><span class="lineno"> 5068</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05069"></a><span class="lineno"> 5069</span>  fprintf(fp, <span class="stringliteral">"%c"</span>, *(cntl_chr + j));</div><div class="line"><a name="l05070"></a><span class="lineno"> 5070</span>  <span class="keywordflow">if</span> (*(cntl_chr + j) == <span class="charliteral">'%'</span>) ++j;</div><div class="line"><a name="l05071"></a><span class="lineno"> 5071</span>  }</div><div class="line"><a name="l05072"></a><span class="lineno"> 5072</span>  }</div><div class="line"><a name="l05073"></a><span class="lineno"> 5073</span>  j++;</div><div class="line"><a name="l05074"></a><span class="lineno"> 5074</span>  }</div><div class="line"><a name="l05075"></a><span class="lineno"> 5075</span> </div><div class="line"><a name="l05076"></a><span class="lineno"> 5076</span>  <span class="keywordflow">return</span> (<span class="keywordtype">int</span>)nc;</div><div class="line"><a name="l05077"></a><span class="lineno"> 5077</span> }</div><div class="line"><a name="l05078"></a><span class="lineno"> 5078</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05079"></a><span class="lineno"> 5079</span> </div><div class="line"><a name="l05080"></a><span class="lineno"> 5080</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05081"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a695266ada901d83aa2f8e6bc06e2f8d8"> 5081</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a695266ada901d83aa2f8e6bc06e2f8d8">VpFormatSt</a>(<span class="keywordtype">char</span> *psz, <span class="keywordtype">size_t</span> fFmt)</div><div class="line"><a name="l05082"></a><span class="lineno"> 5082</span> {</div><div class="line"><a name="l05083"></a><span class="lineno"> 5083</span>  <span class="keywordtype">size_t</span> ie, i, nf = 0;</div><div class="line"><a name="l05084"></a><span class="lineno"> 5084</span>  <span class="keywordtype">char</span> ch;</div><div class="line"><a name="l05085"></a><span class="lineno"> 5085</span> </div><div class="line"><a name="l05086"></a><span class="lineno"> 5086</span>  <span class="keywordflow">if</span> (fFmt == 0) <span class="keywordflow">return</span>;</div><div class="line"><a name="l05087"></a><span class="lineno"> 5087</span> </div><div class="line"><a name="l05088"></a><span class="lineno"> 5088</span>  ie = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz);</div><div class="line"><a name="l05089"></a><span class="lineno"> 5089</span>  <span class="keywordflow">for</span> (i = 0; i < ie; ++i) {</div><div class="line"><a name="l05090"></a><span class="lineno"> 5090</span>  ch = psz[i];</div><div class="line"><a name="l05091"></a><span class="lineno"> 5091</span>  <span class="keywordflow">if</span> (!ch) <span class="keywordflow">break</span>;</div><div class="line"><a name="l05092"></a><span class="lineno"> 5092</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ae8cdc17e44905c826bddf416b7bf621c">ISSPACE</a>(ch) || ch==<span class="charliteral">'-'</span> || ch==<span class="charliteral">'+'</span>) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l05093"></a><span class="lineno"> 5093</span>  <span class="keywordflow">if</span> (ch == <span class="charliteral">'.'</span>) { nf = 0; <span class="keywordflow">continue</span>; }</div><div class="line"><a name="l05094"></a><span class="lineno"> 5094</span>  <span class="keywordflow">if</span> (ch == <span class="charliteral">'E'</span>) <span class="keywordflow">break</span>;</div><div class="line"><a name="l05095"></a><span class="lineno"> 5095</span> </div><div class="line"><a name="l05096"></a><span class="lineno"> 5096</span>  <span class="keywordflow">if</span> (++nf > fFmt) {</div><div class="line"><a name="l05097"></a><span class="lineno"> 5097</span>  <a class="code" href="../../d3/d90/missing_8h.html#a809a3e9326a0d3e5aa549b17085b057d">memmove</a>(psz + i + 1, psz + i, ie - i + 1);</div><div class="line"><a name="l05098"></a><span class="lineno"> 5098</span>  ++ie;</div><div class="line"><a name="l05099"></a><span class="lineno"> 5099</span>  nf = 0;</div><div class="line"><a name="l05100"></a><span class="lineno"> 5100</span>  psz[i] = <span class="charliteral">' '</span>;</div><div class="line"><a name="l05101"></a><span class="lineno"> 5101</span>  }</div><div class="line"><a name="l05102"></a><span class="lineno"> 5102</span>  }</div><div class="line"><a name="l05103"></a><span class="lineno"> 5103</span> }</div><div class="line"><a name="l05104"></a><span class="lineno"> 5104</span> </div><div class="line"><a name="l05105"></a><span class="lineno"> 5105</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> ssize_t</div><div class="line"><a name="l05106"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a68f01aa0c3a853c8ebf001e29f47b7ff"> 5106</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a)</div><div class="line"><a name="l05107"></a><span class="lineno"> 5107</span> {</div><div class="line"><a name="l05108"></a><span class="lineno"> 5108</span>  ssize_t ex;</div><div class="line"><a name="l05109"></a><span class="lineno"> 5109</span>  <span class="keywordtype">size_t</span> n;</div><div class="line"><a name="l05110"></a><span class="lineno"> 5110</span> </div><div class="line"><a name="l05111"></a><span class="lineno"> 5111</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a8425bde5e3250f1f2a4387812658771c">VpHasVal</a>(a)) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l05112"></a><span class="lineno"> 5112</span> </div><div class="line"><a name="l05113"></a><span class="lineno"> 5113</span>  ex = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> * (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05114"></a><span class="lineno"> 5114</span>  n = <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05115"></a><span class="lineno"> 5115</span>  <span class="keywordflow">while</span> ((a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] / n) == 0) {</div><div class="line"><a name="l05116"></a><span class="lineno"> 5116</span>  --ex;</div><div class="line"><a name="l05117"></a><span class="lineno"> 5117</span>  n /= 10;</div><div class="line"><a name="l05118"></a><span class="lineno"> 5118</span>  }</div><div class="line"><a name="l05119"></a><span class="lineno"> 5119</span>  <span class="keywordflow">return</span> ex;</div><div class="line"><a name="l05120"></a><span class="lineno"> 5120</span> }</div><div class="line"><a name="l05121"></a><span class="lineno"> 5121</span> </div><div class="line"><a name="l05122"></a><span class="lineno"> 5122</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l05123"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a7d6a953aa9a638c5215f8de7af8988f8"> 5123</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a7d6a953aa9a638c5215f8de7af8988f8">VpSzMantissa</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a,<span class="keywordtype">char</span> *psz)</div><div class="line"><a name="l05124"></a><span class="lineno"> 5124</span> {</div><div class="line"><a name="l05125"></a><span class="lineno"> 5125</span>  <span class="keywordtype">size_t</span> i, n, ZeroSup;</div><div class="line"><a name="l05126"></a><span class="lineno"> 5126</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a> m, e, nn;</div><div class="line"><a name="l05127"></a><span class="lineno"> 5127</span> </div><div class="line"><a name="l05128"></a><span class="lineno"> 5128</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a)) {</div><div class="line"><a name="l05129"></a><span class="lineno"> 5129</span>  sprintf(psz, <a class="code" href="../../d0/da5/bigdecimal_8h.html#ac475b913ca9cacf8ca385497984443ed">SZ_NaN</a>);</div><div class="line"><a name="l05130"></a><span class="lineno"> 5130</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05131"></a><span class="lineno"> 5131</span>  }</div><div class="line"><a name="l05132"></a><span class="lineno"> 5132</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(a)) {</div><div class="line"><a name="l05133"></a><span class="lineno"> 5133</span>  sprintf(psz, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a187abc9b9b2cc7e2e5fe8201d95b5a8b">SZ_INF</a>);</div><div class="line"><a name="l05134"></a><span class="lineno"> 5134</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05135"></a><span class="lineno"> 5135</span>  }</div><div class="line"><a name="l05136"></a><span class="lineno"> 5136</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(a)) {</div><div class="line"><a name="l05137"></a><span class="lineno"> 5137</span>  sprintf(psz, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a019dcf0bc571a8243d08d531df7914cf">SZ_NINF</a>);</div><div class="line"><a name="l05138"></a><span class="lineno"> 5138</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05139"></a><span class="lineno"> 5139</span>  }</div><div class="line"><a name="l05140"></a><span class="lineno"> 5140</span> </div><div class="line"><a name="l05141"></a><span class="lineno"> 5141</span>  ZeroSup = 1; <span class="comment">/* Flag not to print the leading zeros as 0.00xxxxEnn */</span></div><div class="line"><a name="l05142"></a><span class="lineno"> 5142</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l05143"></a><span class="lineno"> 5143</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) < 0) *psz++ = <span class="charliteral">'-'</span>;</div><div class="line"><a name="l05144"></a><span class="lineno"> 5144</span>  n = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l05145"></a><span class="lineno"> 5145</span>  <span class="keywordflow">for</span> (i = 0; i < n; ++i) {</div><div class="line"><a name="l05146"></a><span class="lineno"> 5146</span>  m = <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05147"></a><span class="lineno"> 5147</span>  e = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i];</div><div class="line"><a name="l05148"></a><span class="lineno"> 5148</span>  <span class="keywordflow">while</span> (m) {</div><div class="line"><a name="l05149"></a><span class="lineno"> 5149</span>  nn = e / m;</div><div class="line"><a name="l05150"></a><span class="lineno"> 5150</span>  <span class="keywordflow">if</span> (!ZeroSup || nn) {</div><div class="line"><a name="l05151"></a><span class="lineno"> 5151</span>  sprintf(psz, <span class="stringliteral">"%lu"</span>, (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)nn); <span class="comment">/* The leading zero(s) */</span></div><div class="line"><a name="l05152"></a><span class="lineno"> 5152</span>  psz += <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz);</div><div class="line"><a name="l05153"></a><span class="lineno"> 5153</span>  <span class="comment">/* as 0.00xx will be ignored. */</span></div><div class="line"><a name="l05154"></a><span class="lineno"> 5154</span>  ZeroSup = 0; <span class="comment">/* Set to print succeeding zeros */</span></div><div class="line"><a name="l05155"></a><span class="lineno"> 5155</span>  }</div><div class="line"><a name="l05156"></a><span class="lineno"> 5156</span>  e = e - nn * m;</div><div class="line"><a name="l05157"></a><span class="lineno"> 5157</span>  m /= 10;</div><div class="line"><a name="l05158"></a><span class="lineno"> 5158</span>  }</div><div class="line"><a name="l05159"></a><span class="lineno"> 5159</span>  }</div><div class="line"><a name="l05160"></a><span class="lineno"> 5160</span>  *psz = 0;</div><div class="line"><a name="l05161"></a><span class="lineno"> 5161</span>  <span class="keywordflow">while</span> (psz[-1] == <span class="charliteral">'0'</span>) *(--psz) = 0;</div><div class="line"><a name="l05162"></a><span class="lineno"> 5162</span>  }</div><div class="line"><a name="l05163"></a><span class="lineno"> 5163</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05164"></a><span class="lineno"> 5164</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ad19b3f3e78e9911ac2b3b63b0c0bc566">VpIsPosZero</a>(a)) sprintf(psz, <span class="stringliteral">"0"</span>);</div><div class="line"><a name="l05165"></a><span class="lineno"> 5165</span>  <span class="keywordflow">else</span> sprintf(psz, <span class="stringliteral">"-0"</span>);</div><div class="line"><a name="l05166"></a><span class="lineno"> 5166</span>  }</div><div class="line"><a name="l05167"></a><span class="lineno"> 5167</span> }</div><div class="line"><a name="l05168"></a><span class="lineno"> 5168</span> </div><div class="line"><a name="l05169"></a><span class="lineno"> 5169</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05170"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#af9ebdab1bed9055313ef4067974b16af"> 5170</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#af9ebdab1bed9055313ef4067974b16af">VpToSpecialString</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a,<span class="keywordtype">char</span> *psz,<span class="keywordtype">int</span> fPlus)</div><div class="line"><a name="l05171"></a><span class="lineno"> 5171</span>  <span class="comment">/* fPlus =0:default, =1: set ' ' before digits , =2: set '+' before digits. */</span></div><div class="line"><a name="l05172"></a><span class="lineno"> 5172</span> {</div><div class="line"><a name="l05173"></a><span class="lineno"> 5173</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(a)) {</div><div class="line"><a name="l05174"></a><span class="lineno"> 5174</span>  sprintf(psz,<a class="code" href="../../d0/da5/bigdecimal_8h.html#ac475b913ca9cacf8ca385497984443ed">SZ_NaN</a>);</div><div class="line"><a name="l05175"></a><span class="lineno"> 5175</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05176"></a><span class="lineno"> 5176</span>  }</div><div class="line"><a name="l05177"></a><span class="lineno"> 5177</span> </div><div class="line"><a name="l05178"></a><span class="lineno"> 5178</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(a)) {</div><div class="line"><a name="l05179"></a><span class="lineno"> 5179</span>  <span class="keywordflow">if</span> (fPlus == 1) {</div><div class="line"><a name="l05180"></a><span class="lineno"> 5180</span>  *psz++ = <span class="charliteral">' '</span>;</div><div class="line"><a name="l05181"></a><span class="lineno"> 5181</span>  }</div><div class="line"><a name="l05182"></a><span class="lineno"> 5182</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (fPlus == 2) {</div><div class="line"><a name="l05183"></a><span class="lineno"> 5183</span>  *psz++ = <span class="charliteral">'+'</span>;</div><div class="line"><a name="l05184"></a><span class="lineno"> 5184</span>  }</div><div class="line"><a name="l05185"></a><span class="lineno"> 5185</span>  sprintf(psz, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a187abc9b9b2cc7e2e5fe8201d95b5a8b">SZ_INF</a>);</div><div class="line"><a name="l05186"></a><span class="lineno"> 5186</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05187"></a><span class="lineno"> 5187</span>  }</div><div class="line"><a name="l05188"></a><span class="lineno"> 5188</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(a)) {</div><div class="line"><a name="l05189"></a><span class="lineno"> 5189</span>  sprintf(psz, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a019dcf0bc571a8243d08d531df7914cf">SZ_NINF</a>);</div><div class="line"><a name="l05190"></a><span class="lineno"> 5190</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05191"></a><span class="lineno"> 5191</span>  }</div><div class="line"><a name="l05192"></a><span class="lineno"> 5192</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(a)) {</div><div class="line"><a name="l05193"></a><span class="lineno"> 5193</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ad19b3f3e78e9911ac2b3b63b0c0bc566">VpIsPosZero</a>(a)) {</div><div class="line"><a name="l05194"></a><span class="lineno"> 5194</span>  <span class="keywordflow">if</span> (fPlus == 1) sprintf(psz, <span class="stringliteral">" 0.0"</span>);</div><div class="line"><a name="l05195"></a><span class="lineno"> 5195</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (fPlus == 2) sprintf(psz, <span class="stringliteral">"+0.0"</span>);</div><div class="line"><a name="l05196"></a><span class="lineno"> 5196</span>  <span class="keywordflow">else</span> sprintf(psz, <span class="stringliteral">"0.0"</span>);</div><div class="line"><a name="l05197"></a><span class="lineno"> 5197</span>  }</div><div class="line"><a name="l05198"></a><span class="lineno"> 5198</span>  <span class="keywordflow">else</span> sprintf(psz, <span class="stringliteral">"-0.0"</span>);</div><div class="line"><a name="l05199"></a><span class="lineno"> 5199</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05200"></a><span class="lineno"> 5200</span>  }</div><div class="line"><a name="l05201"></a><span class="lineno"> 5201</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l05202"></a><span class="lineno"> 5202</span> }</div><div class="line"><a name="l05203"></a><span class="lineno"> 5203</span> </div><div class="line"><a name="l05204"></a><span class="lineno"> 5204</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l05205"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a211c1231a80bd2b30ead108f0b6029a6"> 5205</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a211c1231a80bd2b30ead108f0b6029a6">VpToString</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <span class="keywordtype">char</span> *psz, <span class="keywordtype">size_t</span> fFmt, <span class="keywordtype">int</span> fPlus)</div><div class="line"><a name="l05206"></a><span class="lineno"> 5206</span> <span class="comment">/* fPlus =0:default, =1: set ' ' before digits , =2:set '+' before digits. */</span></div><div class="line"><a name="l05207"></a><span class="lineno"> 5207</span> {</div><div class="line"><a name="l05208"></a><span class="lineno"> 5208</span>  <span class="keywordtype">size_t</span> i, n, ZeroSup;</div><div class="line"><a name="l05209"></a><span class="lineno"> 5209</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> <a class="code" href="../../dc/d0c/cparse_8c.html#ae2e438d537892aeadba05c15eefbe89d">shift</a>, m, e, nn;</div><div class="line"><a name="l05210"></a><span class="lineno"> 5210</span>  <span class="keywordtype">char</span> *pszSav = psz;</div><div class="line"><a name="l05211"></a><span class="lineno"> 5211</span>  ssize_t ex;</div><div class="line"><a name="l05212"></a><span class="lineno"> 5212</span> </div><div class="line"><a name="l05213"></a><span class="lineno"> 5213</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#af9ebdab1bed9055313ef4067974b16af">VpToSpecialString</a>(a, psz, fPlus)) <span class="keywordflow">return</span>;</div><div class="line"><a name="l05214"></a><span class="lineno"> 5214</span> </div><div class="line"><a name="l05215"></a><span class="lineno"> 5215</span>  ZeroSup = 1; <span class="comment">/* Flag not to print the leading zeros as 0.00xxxxEnn */</span></div><div class="line"><a name="l05216"></a><span class="lineno"> 5216</span> </div><div class="line"><a name="l05217"></a><span class="lineno"> 5217</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) < 0) *psz++ = <span class="charliteral">'-'</span>;</div><div class="line"><a name="l05218"></a><span class="lineno"> 5218</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (fPlus == 1) *psz++ = <span class="charliteral">' '</span>;</div><div class="line"><a name="l05219"></a><span class="lineno"> 5219</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (fPlus == 2) *psz++ = <span class="charliteral">'+'</span>;</div><div class="line"><a name="l05220"></a><span class="lineno"> 5220</span> </div><div class="line"><a name="l05221"></a><span class="lineno"> 5221</span>  *psz++ = <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05222"></a><span class="lineno"> 5222</span>  *psz++ = <span class="charliteral">'.'</span>;</div><div class="line"><a name="l05223"></a><span class="lineno"> 5223</span>  n = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l05224"></a><span class="lineno"> 5224</span>  <span class="keywordflow">for</span> (i = 0; i < n; ++i) {</div><div class="line"><a name="l05225"></a><span class="lineno"> 5225</span>  m = <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05226"></a><span class="lineno"> 5226</span>  e = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i];</div><div class="line"><a name="l05227"></a><span class="lineno"> 5227</span>  <span class="keywordflow">while</span> (m) {</div><div class="line"><a name="l05228"></a><span class="lineno"> 5228</span>  nn = e / m;</div><div class="line"><a name="l05229"></a><span class="lineno"> 5229</span>  <span class="keywordflow">if</span> (!ZeroSup || nn) {</div><div class="line"><a name="l05230"></a><span class="lineno"> 5230</span>  sprintf(psz, <span class="stringliteral">"%lu"</span>, (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)nn); <span class="comment">/* The reading zero(s) */</span></div><div class="line"><a name="l05231"></a><span class="lineno"> 5231</span>  psz += <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz);</div><div class="line"><a name="l05232"></a><span class="lineno"> 5232</span>  <span class="comment">/* as 0.00xx will be ignored. */</span></div><div class="line"><a name="l05233"></a><span class="lineno"> 5233</span>  ZeroSup = 0; <span class="comment">/* Set to print succeeding zeros */</span></div><div class="line"><a name="l05234"></a><span class="lineno"> 5234</span>  }</div><div class="line"><a name="l05235"></a><span class="lineno"> 5235</span>  e = e - nn * m;</div><div class="line"><a name="l05236"></a><span class="lineno"> 5236</span>  m /= 10;</div><div class="line"><a name="l05237"></a><span class="lineno"> 5237</span>  }</div><div class="line"><a name="l05238"></a><span class="lineno"> 5238</span>  }</div><div class="line"><a name="l05239"></a><span class="lineno"> 5239</span>  ex = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> * (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05240"></a><span class="lineno"> 5240</span>  <a class="code" href="../../dc/d0c/cparse_8c.html#ae2e438d537892aeadba05c15eefbe89d">shift</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05241"></a><span class="lineno"> 5241</span>  <span class="keywordflow">while</span> (a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] / <a class="code" href="../../dc/d0c/cparse_8c.html#ae2e438d537892aeadba05c15eefbe89d">shift</a> == 0) {</div><div class="line"><a name="l05242"></a><span class="lineno"> 5242</span>  --ex;</div><div class="line"><a name="l05243"></a><span class="lineno"> 5243</span>  <a class="code" href="../../dc/d0c/cparse_8c.html#ae2e438d537892aeadba05c15eefbe89d">shift</a> /= 10;</div><div class="line"><a name="l05244"></a><span class="lineno"> 5244</span>  }</div><div class="line"><a name="l05245"></a><span class="lineno"> 5245</span>  <span class="keywordflow">while</span> (psz[-1] == <span class="charliteral">'0'</span>) {</div><div class="line"><a name="l05246"></a><span class="lineno"> 5246</span>  *(--psz) = 0;</div><div class="line"><a name="l05247"></a><span class="lineno"> 5247</span>  }</div><div class="line"><a name="l05248"></a><span class="lineno"> 5248</span>  sprintf(psz, <span class="stringliteral">"E%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#adc5e20179bf95e62d3e01da83774c1a9">PRIdSIZE</a>, ex);</div><div class="line"><a name="l05249"></a><span class="lineno"> 5249</span>  <span class="keywordflow">if</span> (fFmt) <a class="code" href="../../de/d07/bigdecimal_8c.html#a695266ada901d83aa2f8e6bc06e2f8d8">VpFormatSt</a>(pszSav, fFmt);</div><div class="line"><a name="l05250"></a><span class="lineno"> 5250</span> }</div><div class="line"><a name="l05251"></a><span class="lineno"> 5251</span> </div><div class="line"><a name="l05252"></a><span class="lineno"> 5252</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l05253"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#aea58d43c3de31eb0d21df5b2c55667a5"> 5253</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aea58d43c3de31eb0d21df5b2c55667a5">VpToFString</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <span class="keywordtype">char</span> *psz, <span class="keywordtype">size_t</span> fFmt, <span class="keywordtype">int</span> fPlus)</div><div class="line"><a name="l05254"></a><span class="lineno"> 5254</span> <span class="comment">/* fPlus =0:default,=1: set ' ' before digits ,set '+' before digits. */</span></div><div class="line"><a name="l05255"></a><span class="lineno"> 5255</span> {</div><div class="line"><a name="l05256"></a><span class="lineno"> 5256</span>  <span class="keywordtype">size_t</span> i, n;</div><div class="line"><a name="l05257"></a><span class="lineno"> 5257</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> m, e, nn;</div><div class="line"><a name="l05258"></a><span class="lineno"> 5258</span>  <span class="keywordtype">char</span> *pszSav = psz;</div><div class="line"><a name="l05259"></a><span class="lineno"> 5259</span>  ssize_t ex;</div><div class="line"><a name="l05260"></a><span class="lineno"> 5260</span> </div><div class="line"><a name="l05261"></a><span class="lineno"> 5261</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#af9ebdab1bed9055313ef4067974b16af">VpToSpecialString</a>(a, psz, fPlus)) <span class="keywordflow">return</span>;</div><div class="line"><a name="l05262"></a><span class="lineno"> 5262</span> </div><div class="line"><a name="l05263"></a><span class="lineno"> 5263</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(a) < 0) *psz++ = <span class="charliteral">'-'</span>;</div><div class="line"><a name="l05264"></a><span class="lineno"> 5264</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (fPlus == 1) *psz++ = <span class="charliteral">' '</span>;</div><div class="line"><a name="l05265"></a><span class="lineno"> 5265</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (fPlus == 2) *psz++ = <span class="charliteral">'+'</span>;</div><div class="line"><a name="l05266"></a><span class="lineno"> 5266</span> </div><div class="line"><a name="l05267"></a><span class="lineno"> 5267</span>  n = a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l05268"></a><span class="lineno"> 5268</span>  ex = a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l05269"></a><span class="lineno"> 5269</span>  <span class="keywordflow">if</span> (ex <= 0) {</div><div class="line"><a name="l05270"></a><span class="lineno"> 5270</span>  *psz++ = <span class="charliteral">'0'</span>;*psz++ = <span class="charliteral">'.'</span>;</div><div class="line"><a name="l05271"></a><span class="lineno"> 5271</span>  <span class="keywordflow">while</span> (ex < 0) {</div><div class="line"><a name="l05272"></a><span class="lineno"> 5272</span>  <span class="keywordflow">for</span> (i=0; i < <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>; ++i) *psz++ = <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05273"></a><span class="lineno"> 5273</span>  ++ex;</div><div class="line"><a name="l05274"></a><span class="lineno"> 5274</span>  }</div><div class="line"><a name="l05275"></a><span class="lineno"> 5275</span>  ex = -1;</div><div class="line"><a name="l05276"></a><span class="lineno"> 5276</span>  }</div><div class="line"><a name="l05277"></a><span class="lineno"> 5277</span> </div><div class="line"><a name="l05278"></a><span class="lineno"> 5278</span>  <span class="keywordflow">for</span> (i = 0; i < n; ++i) {</div><div class="line"><a name="l05279"></a><span class="lineno"> 5279</span>  --ex;</div><div class="line"><a name="l05280"></a><span class="lineno"> 5280</span>  <span class="keywordflow">if</span> (i == 0 && ex >= 0) {</div><div class="line"><a name="l05281"></a><span class="lineno"> 5281</span>  sprintf(psz, <span class="stringliteral">"%lu"</span>, (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i]);</div><div class="line"><a name="l05282"></a><span class="lineno"> 5282</span>  psz += <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(psz);</div><div class="line"><a name="l05283"></a><span class="lineno"> 5283</span>  }</div><div class="line"><a name="l05284"></a><span class="lineno"> 5284</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05285"></a><span class="lineno"> 5285</span>  m = <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05286"></a><span class="lineno"> 5286</span>  e = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i];</div><div class="line"><a name="l05287"></a><span class="lineno"> 5287</span>  <span class="keywordflow">while</span> (m) {</div><div class="line"><a name="l05288"></a><span class="lineno"> 5288</span>  nn = e / m;</div><div class="line"><a name="l05289"></a><span class="lineno"> 5289</span>  *psz++ = (char)(nn + <span class="charliteral">'0'</span>);</div><div class="line"><a name="l05290"></a><span class="lineno"> 5290</span>  e = e - nn * m;</div><div class="line"><a name="l05291"></a><span class="lineno"> 5291</span>  m /= 10;</div><div class="line"><a name="l05292"></a><span class="lineno"> 5292</span>  }</div><div class="line"><a name="l05293"></a><span class="lineno"> 5293</span>  }</div><div class="line"><a name="l05294"></a><span class="lineno"> 5294</span>  <span class="keywordflow">if</span> (ex == 0) *psz++ = <span class="charliteral">'.'</span>;</div><div class="line"><a name="l05295"></a><span class="lineno"> 5295</span>  }</div><div class="line"><a name="l05296"></a><span class="lineno"> 5296</span>  <span class="keywordflow">while</span> (--ex>=0) {</div><div class="line"><a name="l05297"></a><span class="lineno"> 5297</span>  m = <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05298"></a><span class="lineno"> 5298</span>  <span class="keywordflow">while</span> (m /= 10) *psz++ = <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05299"></a><span class="lineno"> 5299</span>  <span class="keywordflow">if</span> (ex == 0) *psz++ = <span class="charliteral">'.'</span>;</div><div class="line"><a name="l05300"></a><span class="lineno"> 5300</span>  }</div><div class="line"><a name="l05301"></a><span class="lineno"> 5301</span>  *psz = 0;</div><div class="line"><a name="l05302"></a><span class="lineno"> 5302</span>  <span class="keywordflow">while</span> (psz[-1] == <span class="charliteral">'0'</span>) *(--psz) = 0;</div><div class="line"><a name="l05303"></a><span class="lineno"> 5303</span>  <span class="keywordflow">if</span> (psz[-1] == <span class="charliteral">'.'</span>) sprintf(psz, <span class="stringliteral">"0"</span>);</div><div class="line"><a name="l05304"></a><span class="lineno"> 5304</span>  <span class="keywordflow">if</span> (fFmt) <a class="code" href="../../de/d07/bigdecimal_8c.html#a695266ada901d83aa2f8e6bc06e2f8d8">VpFormatSt</a>(pszSav, fFmt);</div><div class="line"><a name="l05305"></a><span class="lineno"> 5305</span> }</div><div class="line"><a name="l05306"></a><span class="lineno"> 5306</span> </div><div class="line"><a name="l05307"></a><span class="lineno"> 5307</span> <span class="comment">/*</span></div><div class="line"><a name="l05308"></a><span class="lineno"> 5308</span> <span class="comment"> * [Output]</span></div><div class="line"><a name="l05309"></a><span class="lineno"> 5309</span> <span class="comment"> * a[] ... variable to be assigned the value.</span></div><div class="line"><a name="l05310"></a><span class="lineno"> 5310</span> <span class="comment"> * [Input]</span></div><div class="line"><a name="l05311"></a><span class="lineno"> 5311</span> <span class="comment"> * int_chr[] ... integer part(may include '+/-').</span></div><div class="line"><a name="l05312"></a><span class="lineno"> 5312</span> <span class="comment"> * ni ... number of characters in int_chr[],not including '+/-'.</span></div><div class="line"><a name="l05313"></a><span class="lineno"> 5313</span> <span class="comment"> * frac[] ... fraction part.</span></div><div class="line"><a name="l05314"></a><span class="lineno"> 5314</span> <span class="comment"> * nf ... number of characters in frac[].</span></div><div class="line"><a name="l05315"></a><span class="lineno"> 5315</span> <span class="comment"> * exp_chr[] ... exponent part(including '+/-').</span></div><div class="line"><a name="l05316"></a><span class="lineno"> 5316</span> <span class="comment"> * ne ... number of characters in exp_chr[],not including '+/-'.</span></div><div class="line"><a name="l05317"></a><span class="lineno"> 5317</span> <span class="comment"> */</span></div><div class="line"><a name="l05318"></a><span class="lineno"> 5318</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05319"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#af80e9f5558a00f504e05021fddfbf09f"> 5319</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#af80e9f5558a00f504e05021fddfbf09f">VpCtoV</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *a, <span class="keyword">const</span> <span class="keywordtype">char</span> *<a class="code" href="../../d6/d27/numeric_8c.html#a0da7e310168d9887cb3d04746072e638">int_chr</a>, <span class="keywordtype">size_t</span> ni, <span class="keyword">const</span> <span class="keywordtype">char</span> *frac, <span class="keywordtype">size_t</span> nf, <span class="keyword">const</span> <span class="keywordtype">char</span> *exp_chr, <span class="keywordtype">size_t</span> <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>)</div><div class="line"><a name="l05320"></a><span class="lineno"> 5320</span> {</div><div class="line"><a name="l05321"></a><span class="lineno"> 5321</span>  <span class="keywordtype">size_t</span> i, j, ind_a, ma, mi, me;</div><div class="line"><a name="l05322"></a><span class="lineno"> 5322</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> e, es, eb, ef;</div><div class="line"><a name="l05323"></a><span class="lineno"> 5323</span>  <span class="keywordtype">int</span> sign, signe, exponent_overflow;</div><div class="line"><a name="l05324"></a><span class="lineno"> 5324</span> </div><div class="line"><a name="l05325"></a><span class="lineno"> 5325</span>  <span class="comment">/* get exponent part */</span></div><div class="line"><a name="l05326"></a><span class="lineno"> 5326</span>  e = 0;</div><div class="line"><a name="l05327"></a><span class="lineno"> 5327</span>  ma = a-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05328"></a><span class="lineno"> 5328</span>  mi = ni;</div><div class="line"><a name="l05329"></a><span class="lineno"> 5329</span>  me = <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05330"></a><span class="lineno"> 5330</span>  signe = 1;</div><div class="line"><a name="l05331"></a><span class="lineno"> 5331</span>  exponent_overflow = 0;</div><div class="line"><a name="l05332"></a><span class="lineno"> 5332</span>  memset(a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, 0, ma * <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>));</div><div class="line"><a name="l05333"></a><span class="lineno"> 5333</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a> > 0) {</div><div class="line"><a name="l05334"></a><span class="lineno"> 5334</span>  i = 0;</div><div class="line"><a name="l05335"></a><span class="lineno"> 5335</span>  <span class="keywordflow">if</span> (exp_chr[0] == <span class="charliteral">'-'</span>) {</div><div class="line"><a name="l05336"></a><span class="lineno"> 5336</span>  signe = -1;</div><div class="line"><a name="l05337"></a><span class="lineno"> 5337</span>  ++i;</div><div class="line"><a name="l05338"></a><span class="lineno"> 5338</span>  ++me;</div><div class="line"><a name="l05339"></a><span class="lineno"> 5339</span>  }</div><div class="line"><a name="l05340"></a><span class="lineno"> 5340</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (exp_chr[0] == <span class="charliteral">'+'</span>) {</div><div class="line"><a name="l05341"></a><span class="lineno"> 5341</span>  ++i;</div><div class="line"><a name="l05342"></a><span class="lineno"> 5342</span>  ++me;</div><div class="line"><a name="l05343"></a><span class="lineno"> 5343</span>  }</div><div class="line"><a name="l05344"></a><span class="lineno"> 5344</span>  <span class="keywordflow">while</span> (i < me) {</div><div class="line"><a name="l05345"></a><span class="lineno"> 5345</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(e, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>)) {</div><div class="line"><a name="l05346"></a><span class="lineno"> 5346</span>  es = e;</div><div class="line"><a name="l05347"></a><span class="lineno"> 5347</span>  <span class="keywordflow">goto</span> exp_overflow;</div><div class="line"><a name="l05348"></a><span class="lineno"> 5348</span>  }</div><div class="line"><a name="l05349"></a><span class="lineno"> 5349</span>  es = e * (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05350"></a><span class="lineno"> 5350</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(e, 10) ||</div><div class="line"><a name="l05351"></a><span class="lineno"> 5351</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a1c3d020c4b98628c2f61124dd388b39d">SIGNED_VALUE_MAX</a> - (exp_chr[i] - <span class="charliteral">'0'</span>) < e * 10)</div><div class="line"><a name="l05352"></a><span class="lineno"> 5352</span>  <span class="keywordflow">goto</span> exp_overflow;</div><div class="line"><a name="l05353"></a><span class="lineno"> 5353</span>  e = e * 10 + exp_chr[i] - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05354"></a><span class="lineno"> 5354</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a>(e, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>))</div><div class="line"><a name="l05355"></a><span class="lineno"> 5355</span>  <span class="keywordflow">goto</span> exp_overflow;</div><div class="line"><a name="l05356"></a><span class="lineno"> 5356</span>  <span class="keywordflow">if</span> (es > (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)(e * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>)) {</div><div class="line"><a name="l05357"></a><span class="lineno"> 5357</span>  exp_overflow:</div><div class="line"><a name="l05358"></a><span class="lineno"> 5358</span>  exponent_overflow = 1;</div><div class="line"><a name="l05359"></a><span class="lineno"> 5359</span>  e = es; <span class="comment">/* keep sign */</span></div><div class="line"><a name="l05360"></a><span class="lineno"> 5360</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05361"></a><span class="lineno"> 5361</span>  }</div><div class="line"><a name="l05362"></a><span class="lineno"> 5362</span>  ++i;</div><div class="line"><a name="l05363"></a><span class="lineno"> 5363</span>  }</div><div class="line"><a name="l05364"></a><span class="lineno"> 5364</span>  }</div><div class="line"><a name="l05365"></a><span class="lineno"> 5365</span> </div><div class="line"><a name="l05366"></a><span class="lineno"> 5366</span>  <span class="comment">/* get integer part */</span></div><div class="line"><a name="l05367"></a><span class="lineno"> 5367</span>  i = 0;</div><div class="line"><a name="l05368"></a><span class="lineno"> 5368</span>  sign = 1;</div><div class="line"><a name="l05369"></a><span class="lineno"> 5369</span>  <span class="keywordflow">if</span> (1 <span class="comment">/*ni >= 0*/</span>) {</div><div class="line"><a name="l05370"></a><span class="lineno"> 5370</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d6/d27/numeric_8c.html#a0da7e310168d9887cb3d04746072e638">int_chr</a>[0] == <span class="charliteral">'-'</span>) {</div><div class="line"><a name="l05371"></a><span class="lineno"> 5371</span>  sign = -1;</div><div class="line"><a name="l05372"></a><span class="lineno"> 5372</span>  ++i;</div><div class="line"><a name="l05373"></a><span class="lineno"> 5373</span>  ++mi;</div><div class="line"><a name="l05374"></a><span class="lineno"> 5374</span>  }</div><div class="line"><a name="l05375"></a><span class="lineno"> 5375</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d6/d27/numeric_8c.html#a0da7e310168d9887cb3d04746072e638">int_chr</a>[0] == <span class="charliteral">'+'</span>) {</div><div class="line"><a name="l05376"></a><span class="lineno"> 5376</span>  ++i;</div><div class="line"><a name="l05377"></a><span class="lineno"> 5377</span>  ++mi;</div><div class="line"><a name="l05378"></a><span class="lineno"> 5378</span>  }</div><div class="line"><a name="l05379"></a><span class="lineno"> 5379</span>  }</div><div class="line"><a name="l05380"></a><span class="lineno"> 5380</span> </div><div class="line"><a name="l05381"></a><span class="lineno"> 5381</span>  e = signe * e; <span class="comment">/* e: The value of exponent part. */</span></div><div class="line"><a name="l05382"></a><span class="lineno"> 5382</span>  e = e + ni; <span class="comment">/* set actual exponent size. */</span></div><div class="line"><a name="l05383"></a><span class="lineno"> 5383</span> </div><div class="line"><a name="l05384"></a><span class="lineno"> 5384</span>  <span class="keywordflow">if</span> (e > 0) signe = 1;</div><div class="line"><a name="l05385"></a><span class="lineno"> 5385</span>  <span class="keywordflow">else</span> signe = -1;</div><div class="line"><a name="l05386"></a><span class="lineno"> 5386</span> </div><div class="line"><a name="l05387"></a><span class="lineno"> 5387</span>  <span class="comment">/* Adjust the exponent so that it is the multiple of BASE_FIG. */</span></div><div class="line"><a name="l05388"></a><span class="lineno"> 5388</span>  j = 0;</div><div class="line"><a name="l05389"></a><span class="lineno"> 5389</span>  ef = 1;</div><div class="line"><a name="l05390"></a><span class="lineno"> 5390</span>  <span class="keywordflow">while</span> (ef) {</div><div class="line"><a name="l05391"></a><span class="lineno"> 5391</span>  <span class="keywordflow">if</span> (e >= 0) eb = e;</div><div class="line"><a name="l05392"></a><span class="lineno"> 5392</span>  <span class="keywordflow">else</span> eb = -e;</div><div class="line"><a name="l05393"></a><span class="lineno"> 5393</span>  ef = eb / (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05394"></a><span class="lineno"> 5394</span>  ef = eb - ef * (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05395"></a><span class="lineno"> 5395</span>  <span class="keywordflow">if</span> (ef) {</div><div class="line"><a name="l05396"></a><span class="lineno"> 5396</span>  ++j; <span class="comment">/* Means to add one more preceding zero */</span></div><div class="line"><a name="l05397"></a><span class="lineno"> 5397</span>  ++e;</div><div class="line"><a name="l05398"></a><span class="lineno"> 5398</span>  }</div><div class="line"><a name="l05399"></a><span class="lineno"> 5399</span>  }</div><div class="line"><a name="l05400"></a><span class="lineno"> 5400</span> </div><div class="line"><a name="l05401"></a><span class="lineno"> 5401</span>  eb = e / (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05402"></a><span class="lineno"> 5402</span> </div><div class="line"><a name="l05403"></a><span class="lineno"> 5403</span>  <span class="keywordflow">if</span> (exponent_overflow) {</div><div class="line"><a name="l05404"></a><span class="lineno"> 5404</span>  <span class="keywordtype">int</span> <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = 1;</div><div class="line"><a name="l05405"></a><span class="lineno"> 5405</span>  <span class="keywordflow">for</span> ( ; i < mi && <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a>; i++) <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = <a class="code" href="../../d6/d27/numeric_8c.html#a0da7e310168d9887cb3d04746072e638">int_chr</a>[i] == <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05406"></a><span class="lineno"> 5406</span>  <span class="keywordflow">for</span> (i = 0; i < nf && <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a>; i++) <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> = frac[i] == <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05407"></a><span class="lineno"> 5407</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a> && signe > 0) {</div><div class="line"><a name="l05408"></a><span class="lineno"> 5408</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(a, sign);</div><div class="line"><a name="l05409"></a><span class="lineno"> 5409</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a>, <span class="stringliteral">"exponent overflow"</span>,0);</div><div class="line"><a name="l05410"></a><span class="lineno"> 5410</span>  }</div><div class="line"><a name="l05411"></a><span class="lineno"> 5411</span>  <span class="keywordflow">else</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(a, sign);</div><div class="line"><a name="l05412"></a><span class="lineno"> 5412</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05413"></a><span class="lineno"> 5413</span>  }</div><div class="line"><a name="l05414"></a><span class="lineno"> 5414</span> </div><div class="line"><a name="l05415"></a><span class="lineno"> 5415</span>  ind_a = 0;</div><div class="line"><a name="l05416"></a><span class="lineno"> 5416</span>  <span class="keywordflow">while</span> (i < mi) {</div><div class="line"><a name="l05417"></a><span class="lineno"> 5417</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] = 0;</div><div class="line"><a name="l05418"></a><span class="lineno"> 5418</span>  <span class="keywordflow">while</span> (j < <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> && i < mi) {</div><div class="line"><a name="l05419"></a><span class="lineno"> 5419</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] * 10 + <a class="code" href="../../d6/d27/numeric_8c.html#a0da7e310168d9887cb3d04746072e638">int_chr</a>[i] - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05420"></a><span class="lineno"> 5420</span>  ++j;</div><div class="line"><a name="l05421"></a><span class="lineno"> 5421</span>  ++i;</div><div class="line"><a name="l05422"></a><span class="lineno"> 5422</span>  }</div><div class="line"><a name="l05423"></a><span class="lineno"> 5423</span>  <span class="keywordflow">if</span> (i < mi) {</div><div class="line"><a name="l05424"></a><span class="lineno"> 5424</span>  ++ind_a;</div><div class="line"><a name="l05425"></a><span class="lineno"> 5425</span>  <span class="keywordflow">if</span> (ind_a >= ma) <span class="keywordflow">goto</span> over_flow;</div><div class="line"><a name="l05426"></a><span class="lineno"> 5426</span>  j = 0;</div><div class="line"><a name="l05427"></a><span class="lineno"> 5427</span>  }</div><div class="line"><a name="l05428"></a><span class="lineno"> 5428</span>  }</div><div class="line"><a name="l05429"></a><span class="lineno"> 5429</span> </div><div class="line"><a name="l05430"></a><span class="lineno"> 5430</span>  <span class="comment">/* get fraction part */</span></div><div class="line"><a name="l05431"></a><span class="lineno"> 5431</span> </div><div class="line"><a name="l05432"></a><span class="lineno"> 5432</span>  i = 0;</div><div class="line"><a name="l05433"></a><span class="lineno"> 5433</span>  <span class="keywordflow">while</span> (i < nf) {</div><div class="line"><a name="l05434"></a><span class="lineno"> 5434</span>  <span class="keywordflow">while</span> (j < <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> && i < nf) {</div><div class="line"><a name="l05435"></a><span class="lineno"> 5435</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] * 10 + frac[i] - <span class="charliteral">'0'</span>;</div><div class="line"><a name="l05436"></a><span class="lineno"> 5436</span>  ++j;</div><div class="line"><a name="l05437"></a><span class="lineno"> 5437</span>  ++i;</div><div class="line"><a name="l05438"></a><span class="lineno"> 5438</span>  }</div><div class="line"><a name="l05439"></a><span class="lineno"> 5439</span>  <span class="keywordflow">if</span> (i < nf) {</div><div class="line"><a name="l05440"></a><span class="lineno"> 5440</span>  ++ind_a;</div><div class="line"><a name="l05441"></a><span class="lineno"> 5441</span>  <span class="keywordflow">if</span> (ind_a >= ma) <span class="keywordflow">goto</span> over_flow;</div><div class="line"><a name="l05442"></a><span class="lineno"> 5442</span>  j = 0;</div><div class="line"><a name="l05443"></a><span class="lineno"> 5443</span>  }</div><div class="line"><a name="l05444"></a><span class="lineno"> 5444</span>  }</div><div class="line"><a name="l05445"></a><span class="lineno"> 5445</span>  <span class="keywordflow">goto</span> Final;</div><div class="line"><a name="l05446"></a><span class="lineno"> 5446</span> </div><div class="line"><a name="l05447"></a><span class="lineno"> 5447</span> over_flow:</div><div class="line"><a name="l05448"></a><span class="lineno"> 5448</span>  <a class="code" href="../../db/dcc/error_8c.html#aa5b1972d475e9a090c8ef607ce033008">rb_warn</a>(<span class="stringliteral">"Conversion from String to BigDecimal overflow (last few digits discarded)."</span>);</div><div class="line"><a name="l05449"></a><span class="lineno"> 5449</span> </div><div class="line"><a name="l05450"></a><span class="lineno"> 5450</span> Final:</div><div class="line"><a name="l05451"></a><span class="lineno"> 5451</span>  <span class="keywordflow">if</span> (ind_a >= ma) ind_a = ma - 1;</div><div class="line"><a name="l05452"></a><span class="lineno"> 5452</span>  <span class="keywordflow">while</span> (j < <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>) {</div><div class="line"><a name="l05453"></a><span class="lineno"> 5453</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] = a-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_a] * 10;</div><div class="line"><a name="l05454"></a><span class="lineno"> 5454</span>  ++j;</div><div class="line"><a name="l05455"></a><span class="lineno"> 5455</span>  }</div><div class="line"><a name="l05456"></a><span class="lineno"> 5456</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = ind_a + 1;</div><div class="line"><a name="l05457"></a><span class="lineno"> 5457</span>  a-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = eb;</div><div class="line"><a name="l05458"></a><span class="lineno"> 5458</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(a, sign);</div><div class="line"><a name="l05459"></a><span class="lineno"> 5459</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(a);</div><div class="line"><a name="l05460"></a><span class="lineno"> 5460</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05461"></a><span class="lineno"> 5461</span> }</div><div class="line"><a name="l05462"></a><span class="lineno"> 5462</span> </div><div class="line"><a name="l05463"></a><span class="lineno"> 5463</span> <span class="comment">/*</span></div><div class="line"><a name="l05464"></a><span class="lineno"> 5464</span> <span class="comment"> * [Input]</span></div><div class="line"><a name="l05465"></a><span class="lineno"> 5465</span> <span class="comment"> * *m ... Real</span></div><div class="line"><a name="l05466"></a><span class="lineno"> 5466</span> <span class="comment"> * [Output]</span></div><div class="line"><a name="l05467"></a><span class="lineno"> 5467</span> <span class="comment"> * *d ... fraction part of m(d = 0.xxxxxxx). where # of 'x's is fig.</span></div><div class="line"><a name="l05468"></a><span class="lineno"> 5468</span> <span class="comment"> * *e ... exponent of m.</span></div><div class="line"><a name="l05469"></a><span class="lineno"> 5469</span> <span class="comment"> * DBLE_FIG ... Number of digits in a double variable.</span></div><div class="line"><a name="l05470"></a><span class="lineno"> 5470</span> <span class="comment"> *</span></div><div class="line"><a name="l05471"></a><span class="lineno"> 5471</span> <span class="comment"> * m -> d*10**e, 0<d<BASE</span></div><div class="line"><a name="l05472"></a><span class="lineno"> 5472</span> <span class="comment"> * [Returns]</span></div><div class="line"><a name="l05473"></a><span class="lineno"> 5473</span> <span class="comment"> * 0 ... Zero</span></div><div class="line"><a name="l05474"></a><span class="lineno"> 5474</span> <span class="comment"> * 1 ... Normal</span></div><div class="line"><a name="l05475"></a><span class="lineno"> 5475</span> <span class="comment"> * 2 ... Infinity</span></div><div class="line"><a name="l05476"></a><span class="lineno"> 5476</span> <span class="comment"> * -1 ... NaN</span></div><div class="line"><a name="l05477"></a><span class="lineno"> 5477</span> <span class="comment"> */</span></div><div class="line"><a name="l05478"></a><span class="lineno"> 5478</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05479"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#aea51d27b9066ae3647c1451fce515a74"> 5479</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aea51d27b9066ae3647c1451fce515a74">VpVtoD</a>(<span class="keywordtype">double</span> *d, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> *e, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *m)</div><div class="line"><a name="l05480"></a><span class="lineno"> 5480</span> {</div><div class="line"><a name="l05481"></a><span class="lineno"> 5481</span>  <span class="keywordtype">size_t</span> ind_m, mm, fig;</div><div class="line"><a name="l05482"></a><span class="lineno"> 5482</span>  <span class="keywordtype">double</span> <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05483"></a><span class="lineno"> 5483</span>  <span class="keywordtype">int</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l05484"></a><span class="lineno"> 5484</span> </div><div class="line"><a name="l05485"></a><span class="lineno"> 5485</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(m)) {</div><div class="line"><a name="l05486"></a><span class="lineno"> 5486</span>  *d = <a class="code" href="../../de/d07/bigdecimal_8c.html#a29ab437440f914874fe2b27230788da5">VpGetDoubleNaN</a>();</div><div class="line"><a name="l05487"></a><span class="lineno"> 5487</span>  *e = 0;</div><div class="line"><a name="l05488"></a><span class="lineno"> 5488</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = -1; <span class="comment">/* NaN */</span></div><div class="line"><a name="l05489"></a><span class="lineno"> 5489</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05490"></a><span class="lineno"> 5490</span>  }</div><div class="line"><a name="l05491"></a><span class="lineno"> 5491</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ad19b3f3e78e9911ac2b3b63b0c0bc566">VpIsPosZero</a>(m)) {</div><div class="line"><a name="l05492"></a><span class="lineno"> 5492</span>  *d = 0.0;</div><div class="line"><a name="l05493"></a><span class="lineno"> 5493</span>  *e = 0;</div><div class="line"><a name="l05494"></a><span class="lineno"> 5494</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 0;</div><div class="line"><a name="l05495"></a><span class="lineno"> 5495</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05496"></a><span class="lineno"> 5496</span>  }</div><div class="line"><a name="l05497"></a><span class="lineno"> 5497</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa2db04020f69e752eb8b9fea2e68058d">VpIsNegZero</a>(m)) {</div><div class="line"><a name="l05498"></a><span class="lineno"> 5498</span>  *d = <a class="code" href="../../de/d07/bigdecimal_8c.html#a00dc82065d4f33b92dce7ae4bf136476">VpGetDoubleNegZero</a>();</div><div class="line"><a name="l05499"></a><span class="lineno"> 5499</span>  *e = 0;</div><div class="line"><a name="l05500"></a><span class="lineno"> 5500</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 0;</div><div class="line"><a name="l05501"></a><span class="lineno"> 5501</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05502"></a><span class="lineno"> 5502</span>  }</div><div class="line"><a name="l05503"></a><span class="lineno"> 5503</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(m)) {</div><div class="line"><a name="l05504"></a><span class="lineno"> 5504</span>  *d = <a class="code" href="../../de/d07/bigdecimal_8c.html#afa988d7eb61defaac42ece03d19c2e66">VpGetDoublePosInf</a>();</div><div class="line"><a name="l05505"></a><span class="lineno"> 5505</span>  *e = 0;</div><div class="line"><a name="l05506"></a><span class="lineno"> 5506</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 2;</div><div class="line"><a name="l05507"></a><span class="lineno"> 5507</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05508"></a><span class="lineno"> 5508</span>  }</div><div class="line"><a name="l05509"></a><span class="lineno"> 5509</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a>(m)) {</div><div class="line"><a name="l05510"></a><span class="lineno"> 5510</span>  *d = <a class="code" href="../../de/d07/bigdecimal_8c.html#a39cee6a07315ceb32c6e25024197b054">VpGetDoubleNegInf</a>();</div><div class="line"><a name="l05511"></a><span class="lineno"> 5511</span>  *e = 0;</div><div class="line"><a name="l05512"></a><span class="lineno"> 5512</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 2;</div><div class="line"><a name="l05513"></a><span class="lineno"> 5513</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05514"></a><span class="lineno"> 5514</span>  }</div><div class="line"><a name="l05515"></a><span class="lineno"> 5515</span>  <span class="comment">/* Normal number */</span></div><div class="line"><a name="l05516"></a><span class="lineno"> 5516</span>  fig = (<a class="code" href="../../de/d07/bigdecimal_8c.html#ac9322094e0d6891589fca4ac9ef4fb8a">DBLE_FIG</a> + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05517"></a><span class="lineno"> 5517</span>  ind_m = 0;</div><div class="line"><a name="l05518"></a><span class="lineno"> 5518</span>  mm = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a9e04209162ea72f9985338596262b657">Min</a>(fig, m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>);</div><div class="line"><a name="l05519"></a><span class="lineno"> 5519</span>  *d = 0.0;</div><div class="line"><a name="l05520"></a><span class="lineno"> 5520</span>  <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = 1.;</div><div class="line"><a name="l05521"></a><span class="lineno"> 5521</span>  <span class="keywordflow">while</span> (ind_m < mm) {</div><div class="line"><a name="l05522"></a><span class="lineno"> 5522</span>  <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> /= (double)<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05523"></a><span class="lineno"> 5523</span>  *d = *d + (double)m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m++] * <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05524"></a><span class="lineno"> 5524</span>  }</div><div class="line"><a name="l05525"></a><span class="lineno"> 5525</span>  *e = m-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> * (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05526"></a><span class="lineno"> 5526</span>  *d *= <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(m);</div><div class="line"><a name="l05527"></a><span class="lineno"> 5527</span> </div><div class="line"><a name="l05528"></a><span class="lineno"> 5528</span> Exit:</div><div class="line"><a name="l05529"></a><span class="lineno"> 5529</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l05530"></a><span class="lineno"> 5530</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l05531"></a><span class="lineno"> 5531</span>  VPrint(stdout, <span class="stringliteral">" VpVtoD: m=%\n"</span>, m);</div><div class="line"><a name="l05532"></a><span class="lineno"> 5532</span>  printf(<span class="stringliteral">" d=%e * 10 **%ld\n"</span>, *d, *e);</div><div class="line"><a name="l05533"></a><span class="lineno"> 5533</span>  printf(<span class="stringliteral">" DBLE_FIG = %d\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#ac9322094e0d6891589fca4ac9ef4fb8a">DBLE_FIG</a>);</div><div class="line"><a name="l05534"></a><span class="lineno"> 5534</span>  }</div><div class="line"><a name="l05535"></a><span class="lineno"> 5535</span> <span class="preprocessor">#endif </span><span class="comment">/*BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l05536"></a><span class="lineno"> 5536</span>  <span class="keywordflow">return</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>;</div><div class="line"><a name="l05537"></a><span class="lineno"> 5537</span> }</div><div class="line"><a name="l05538"></a><span class="lineno"> 5538</span> </div><div class="line"><a name="l05539"></a><span class="lineno"> 5539</span> <span class="comment">/*</span></div><div class="line"><a name="l05540"></a><span class="lineno"> 5540</span> <span class="comment"> * m <- d</span></div><div class="line"><a name="l05541"></a><span class="lineno"> 5541</span> <span class="comment"> */</span></div><div class="line"><a name="l05542"></a><span class="lineno"> 5542</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l05543"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a4be1a4728b4b84da9b53c6b8896def68"> 5543</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4be1a4728b4b84da9b53c6b8896def68">VpDtoV</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *m, <span class="keywordtype">double</span> d)</div><div class="line"><a name="l05544"></a><span class="lineno"> 5544</span> {</div><div class="line"><a name="l05545"></a><span class="lineno"> 5545</span>  <span class="keywordtype">size_t</span> ind_m, mm;</div><div class="line"><a name="l05546"></a><span class="lineno"> 5546</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05547"></a><span class="lineno"> 5547</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> i;</div><div class="line"><a name="l05548"></a><span class="lineno"> 5548</span>  <span class="keywordtype">double</span> <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>, val2;</div><div class="line"><a name="l05549"></a><span class="lineno"> 5549</span> </div><div class="line"><a name="l05550"></a><span class="lineno"> 5550</span>  <span class="keywordflow">if</span> (<a class="code" href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a>(d)) {</div><div class="line"><a name="l05551"></a><span class="lineno"> 5551</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(m);</div><div class="line"><a name="l05552"></a><span class="lineno"> 5552</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05553"></a><span class="lineno"> 5553</span>  }</div><div class="line"><a name="l05554"></a><span class="lineno"> 5554</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(d)) {</div><div class="line"><a name="l05555"></a><span class="lineno"> 5555</span>  <span class="keywordflow">if</span> (d > 0.0) <a class="code" href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a>(m);</div><div class="line"><a name="l05556"></a><span class="lineno"> 5556</span>  <span class="keywordflow">else</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a96b2e932934d1a83d0dfe9f02f4a17e9">VpSetNegInf</a>(m);</div><div class="line"><a name="l05557"></a><span class="lineno"> 5557</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05558"></a><span class="lineno"> 5558</span>  }</div><div class="line"><a name="l05559"></a><span class="lineno"> 5559</span> </div><div class="line"><a name="l05560"></a><span class="lineno"> 5560</span>  <span class="keywordflow">if</span> (d == 0.0) {</div><div class="line"><a name="l05561"></a><span class="lineno"> 5561</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(m, 1);</div><div class="line"><a name="l05562"></a><span class="lineno"> 5562</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05563"></a><span class="lineno"> 5563</span>  }</div><div class="line"><a name="l05564"></a><span class="lineno"> 5564</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = (d > 0.) ? d : -d;</div><div class="line"><a name="l05565"></a><span class="lineno"> 5565</span>  <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a> = 0;</div><div class="line"><a name="l05566"></a><span class="lineno"> 5566</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> >= 1.0) {</div><div class="line"><a name="l05567"></a><span class="lineno"> 5567</span>  <span class="keywordflow">while</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> >= 1.0) {</div><div class="line"><a name="l05568"></a><span class="lineno"> 5568</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> /= (double)<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05569"></a><span class="lineno"> 5569</span>  ++<a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05570"></a><span class="lineno"> 5570</span>  }</div><div class="line"><a name="l05571"></a><span class="lineno"> 5571</span>  }</div><div class="line"><a name="l05572"></a><span class="lineno"> 5572</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05573"></a><span class="lineno"> 5573</span>  val2 = 1.0 / (double)<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05574"></a><span class="lineno"> 5574</span>  <span class="keywordflow">while</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> < val2) {</div><div class="line"><a name="l05575"></a><span class="lineno"> 5575</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> *= (double)<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05576"></a><span class="lineno"> 5576</span>  --<a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05577"></a><span class="lineno"> 5577</span>  }</div><div class="line"><a name="l05578"></a><span class="lineno"> 5578</span>  }</div><div class="line"><a name="l05579"></a><span class="lineno"> 5579</span>  <span class="comment">/* Now val = 0.xxxxx*BASE**ne */</span></div><div class="line"><a name="l05580"></a><span class="lineno"> 5580</span> </div><div class="line"><a name="l05581"></a><span class="lineno"> 5581</span>  mm = m-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05582"></a><span class="lineno"> 5582</span>  memset(m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>, 0, mm * <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>));</div><div class="line"><a name="l05583"></a><span class="lineno"> 5583</span>  <span class="keywordflow">for</span> (ind_m = 0; <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> > 0.0 && ind_m < mm; ind_m++) {</div><div class="line"><a name="l05584"></a><span class="lineno"> 5584</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> *= (double)<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05585"></a><span class="lineno"> 5585</span>  i = (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l05586"></a><span class="lineno"> 5586</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> -= (double)i;</div><div class="line"><a name="l05587"></a><span class="lineno"> 5587</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m] = i;</div><div class="line"><a name="l05588"></a><span class="lineno"> 5588</span>  }</div><div class="line"><a name="l05589"></a><span class="lineno"> 5589</span>  <span class="keywordflow">if</span> (ind_m >= mm) ind_m = mm - 1;</div><div class="line"><a name="l05590"></a><span class="lineno"> 5590</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(m, (d > 0.0) ? 1 : -1);</div><div class="line"><a name="l05591"></a><span class="lineno"> 5591</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = ind_m + 1;</div><div class="line"><a name="l05592"></a><span class="lineno"> 5592</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05593"></a><span class="lineno"> 5593</span> </div><div class="line"><a name="l05594"></a><span class="lineno"> 5594</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a>(m, 0, (m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> > 0) ? m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>-1] : 0,</div><div class="line"><a name="l05595"></a><span class="lineno"> 5595</span>  (<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>)(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>*(<span class="keywordtype">double</span>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>));</div><div class="line"><a name="l05596"></a><span class="lineno"> 5596</span> </div><div class="line"><a name="l05597"></a><span class="lineno"> 5597</span> Exit:</div><div class="line"><a name="l05598"></a><span class="lineno"> 5598</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l05599"></a><span class="lineno"> 5599</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l05600"></a><span class="lineno"> 5600</span>  printf(<span class="stringliteral">"VpDtoV d=%30.30e\n"</span>, d);</div><div class="line"><a name="l05601"></a><span class="lineno"> 5601</span>  VPrint(stdout, <span class="stringliteral">" m=%\n"</span>, m);</div><div class="line"><a name="l05602"></a><span class="lineno"> 5602</span>  }</div><div class="line"><a name="l05603"></a><span class="lineno"> 5603</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l05604"></a><span class="lineno"> 5604</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05605"></a><span class="lineno"> 5605</span> }</div><div class="line"><a name="l05606"></a><span class="lineno"> 5606</span> </div><div class="line"><a name="l05607"></a><span class="lineno"> 5607</span> <span class="comment">/*</span></div><div class="line"><a name="l05608"></a><span class="lineno"> 5608</span> <span class="comment"> * m <- ival</span></div><div class="line"><a name="l05609"></a><span class="lineno"> 5609</span> <span class="comment"> */</span></div><div class="line"><a name="l05610"></a><span class="lineno"> 5610</span> <span class="preprocessor">#if 0 </span><span class="comment">/* unused */</span><span class="preprocessor"></span></div><div class="line"><a name="l05611"></a><span class="lineno"> 5611</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l05612"></a><span class="lineno"> 5612</span> VpItoV(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *m, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> ival)</div><div class="line"><a name="l05613"></a><span class="lineno"> 5613</span> {</div><div class="line"><a name="l05614"></a><span class="lineno"> 5614</span>  <span class="keywordtype">size_t</span> mm, ind_m;</div><div class="line"><a name="l05615"></a><span class="lineno"> 5615</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>, v1, v2, v;</div><div class="line"><a name="l05616"></a><span class="lineno"> 5616</span>  <span class="keywordtype">int</span> isign;</div><div class="line"><a name="l05617"></a><span class="lineno"> 5617</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05618"></a><span class="lineno"> 5618</span> </div><div class="line"><a name="l05619"></a><span class="lineno"> 5619</span>  <span class="keywordflow">if</span> (ival == 0) {</div><div class="line"><a name="l05620"></a><span class="lineno"> 5620</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(m, 1);</div><div class="line"><a name="l05621"></a><span class="lineno"> 5621</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05622"></a><span class="lineno"> 5622</span>  }</div><div class="line"><a name="l05623"></a><span class="lineno"> 5623</span>  isign = 1;</div><div class="line"><a name="l05624"></a><span class="lineno"> 5624</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = ival;</div><div class="line"><a name="l05625"></a><span class="lineno"> 5625</span>  <span class="keywordflow">if</span> (ival < 0) {</div><div class="line"><a name="l05626"></a><span class="lineno"> 5626</span>  isign = -1;</div><div class="line"><a name="l05627"></a><span class="lineno"> 5627</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> =(size_t)(-ival);</div><div class="line"><a name="l05628"></a><span class="lineno"> 5628</span>  }</div><div class="line"><a name="l05629"></a><span class="lineno"> 5629</span>  <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a> = 0;</div><div class="line"><a name="l05630"></a><span class="lineno"> 5630</span>  ind_m = 0;</div><div class="line"><a name="l05631"></a><span class="lineno"> 5631</span>  mm = m-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05632"></a><span class="lineno"> 5632</span>  <span class="keywordflow">while</span> (ind_m < mm) {</div><div class="line"><a name="l05633"></a><span class="lineno"> 5633</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m] = 0;</div><div class="line"><a name="l05634"></a><span class="lineno"> 5634</span>  ++ind_m;</div><div class="line"><a name="l05635"></a><span class="lineno"> 5635</span>  }</div><div class="line"><a name="l05636"></a><span class="lineno"> 5636</span>  ind_m = 0;</div><div class="line"><a name="l05637"></a><span class="lineno"> 5637</span>  <span class="keywordflow">while</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a> > 0) {</div><div class="line"><a name="l05638"></a><span class="lineno"> 5638</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>) {</div><div class="line"><a name="l05639"></a><span class="lineno"> 5639</span>  v1 = <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l05640"></a><span class="lineno"> 5640</span>  v2 = 1;</div><div class="line"><a name="l05641"></a><span class="lineno"> 5641</span>  <span class="keywordflow">while</span> (v1 >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l05642"></a><span class="lineno"> 5642</span>  v1 /= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05643"></a><span class="lineno"> 5643</span>  v2 *= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05644"></a><span class="lineno"> 5644</span>  }</div><div class="line"><a name="l05645"></a><span class="lineno"> 5645</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> = <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> - v2 * v1;</div><div class="line"><a name="l05646"></a><span class="lineno"> 5646</span>  v = v1;</div><div class="line"><a name="l05647"></a><span class="lineno"> 5647</span>  }</div><div class="line"><a name="l05648"></a><span class="lineno"> 5648</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05649"></a><span class="lineno"> 5649</span>  v = 0;</div><div class="line"><a name="l05650"></a><span class="lineno"> 5650</span>  }</div><div class="line"><a name="l05651"></a><span class="lineno"> 5651</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m] = v;</div><div class="line"><a name="l05652"></a><span class="lineno"> 5652</span>  ++ind_m;</div><div class="line"><a name="l05653"></a><span class="lineno"> 5653</span>  ++<a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05654"></a><span class="lineno"> 5654</span>  }</div><div class="line"><a name="l05655"></a><span class="lineno"> 5655</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = ind_m - 1;</div><div class="line"><a name="l05656"></a><span class="lineno"> 5656</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = <a class="code" href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a>;</div><div class="line"><a name="l05657"></a><span class="lineno"> 5657</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(m, isign);</div><div class="line"><a name="l05658"></a><span class="lineno"> 5658</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(m);</div><div class="line"><a name="l05659"></a><span class="lineno"> 5659</span> </div><div class="line"><a name="l05660"></a><span class="lineno"> 5660</span> Exit:</div><div class="line"><a name="l05661"></a><span class="lineno"> 5661</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l05662"></a><span class="lineno"> 5662</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l05663"></a><span class="lineno"> 5663</span>  printf(<span class="stringliteral">" VpItoV i=%d\n"</span>, ival);</div><div class="line"><a name="l05664"></a><span class="lineno"> 5664</span>  VPrint(stdout, <span class="stringliteral">" m=%\n"</span>, m);</div><div class="line"><a name="l05665"></a><span class="lineno"> 5665</span>  }</div><div class="line"><a name="l05666"></a><span class="lineno"> 5666</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l05667"></a><span class="lineno"> 5667</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05668"></a><span class="lineno"> 5668</span> }</div><div class="line"><a name="l05669"></a><span class="lineno"> 5669</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05670"></a><span class="lineno"> 5670</span> </div><div class="line"><a name="l05671"></a><span class="lineno"> 5671</span> <span class="comment">/*</span></div><div class="line"><a name="l05672"></a><span class="lineno"> 5672</span> <span class="comment"> * y = SQRT(x), y*y - x =>0</span></div><div class="line"><a name="l05673"></a><span class="lineno"> 5673</span> <span class="comment"> */</span></div><div class="line"><a name="l05674"></a><span class="lineno"> 5674</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05675"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a814bbbe6c0e4d9242e89f96dd259a984"> 5675</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a814bbbe6c0e4d9242e89f96dd259a984">VpSqrt</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *y, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x)</div><div class="line"><a name="l05676"></a><span class="lineno"> 5676</span> {</div><div class="line"><a name="l05677"></a><span class="lineno"> 5677</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05678"></a><span class="lineno"> 5678</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *r = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05679"></a><span class="lineno"> 5679</span>  <span class="keywordtype">size_t</span> y_prec;</div><div class="line"><a name="l05680"></a><span class="lineno"> 5680</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> n, e;</div><div class="line"><a name="l05681"></a><span class="lineno"> 5681</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> prec;</div><div class="line"><a name="l05682"></a><span class="lineno"> 5682</span>  ssize_t nr;</div><div class="line"><a name="l05683"></a><span class="lineno"> 5683</span>  <span class="keywordtype">double</span> <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l05684"></a><span class="lineno"> 5684</span> </div><div class="line"><a name="l05685"></a><span class="lineno"> 5685</span>  <span class="comment">/* Zero, NaN or Infinity ? */</span></div><div class="line"><a name="l05686"></a><span class="lineno"> 5686</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a8425bde5e3250f1f2a4387812658771c">VpHasVal</a>(x)) {</div><div class="line"><a name="l05687"></a><span class="lineno"> 5687</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(x) || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) > 0) {</div><div class="line"><a name="l05688"></a><span class="lineno"> 5688</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y,x,1);</div><div class="line"><a name="l05689"></a><span class="lineno"> 5689</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05690"></a><span class="lineno"> 5690</span>  }</div><div class="line"><a name="l05691"></a><span class="lineno"> 5691</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(y);</div><div class="line"><a name="l05692"></a><span class="lineno"> 5692</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a43b90532bc1f6dd50659892aef2b2886">VP_EXCEPTION_OP</a>, <span class="stringliteral">"(VpSqrt) SQRT(NaN or negative value)"</span>, 0);</div><div class="line"><a name="l05693"></a><span class="lineno"> 5693</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05694"></a><span class="lineno"> 5694</span>  }</div><div class="line"><a name="l05695"></a><span class="lineno"> 5695</span> </div><div class="line"><a name="l05696"></a><span class="lineno"> 5696</span>  <span class="comment">/* Negative ? */</span></div><div class="line"><a name="l05697"></a><span class="lineno"> 5697</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) < 0) {</div><div class="line"><a name="l05698"></a><span class="lineno"> 5698</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(y);</div><div class="line"><a name="l05699"></a><span class="lineno"> 5699</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#a43b90532bc1f6dd50659892aef2b2886">VP_EXCEPTION_OP</a>, <span class="stringliteral">"(VpSqrt) SQRT(negative value)"</span>, 0);</div><div class="line"><a name="l05700"></a><span class="lineno"> 5700</span>  }</div><div class="line"><a name="l05701"></a><span class="lineno"> 5701</span> </div><div class="line"><a name="l05702"></a><span class="lineno"> 5702</span>  <span class="comment">/* One ? */</span></div><div class="line"><a name="l05703"></a><span class="lineno"> 5703</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#ae7bf8bc2b959425907b421b2823199c3">VpIsOne</a>(x)) {</div><div class="line"><a name="l05704"></a><span class="lineno"> 5704</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a>(y);</div><div class="line"><a name="l05705"></a><span class="lineno"> 5705</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l05706"></a><span class="lineno"> 5706</span>  }</div><div class="line"><a name="l05707"></a><span class="lineno"> 5707</span> </div><div class="line"><a name="l05708"></a><span class="lineno"> 5708</span>  n = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05709"></a><span class="lineno"> 5709</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a6fb3b37b30ac3874008f653ed9765309">if</a> (x-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> > (<span class="keywordtype">size_t</span>)n) n = (ssize_t)x-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05710"></a><span class="lineno"> 5710</span> </div><div class="line"><a name="l05711"></a><span class="lineno"> 5711</span>  <span class="comment">/* allocate temporally variables */</span></div><div class="line"><a name="l05712"></a><span class="lineno"> 5712</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>(y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> * (<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> + 2), <span class="stringliteral">"#1"</span>);</div><div class="line"><a name="l05713"></a><span class="lineno"> 5713</span>  r = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>((n + n) * (<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> + 2), <span class="stringliteral">"#1"</span>);</div><div class="line"><a name="l05714"></a><span class="lineno"> 5714</span> </div><div class="line"><a name="l05715"></a><span class="lineno"> 5715</span>  nr = 0;</div><div class="line"><a name="l05716"></a><span class="lineno"> 5716</span>  y_prec = y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05717"></a><span class="lineno"> 5717</span> </div><div class="line"><a name="l05718"></a><span class="lineno"> 5718</span>  prec = x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> - (ssize_t)y_prec;</div><div class="line"><a name="l05719"></a><span class="lineno"> 5719</span>  <span class="keywordflow">if</span> (x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> > 0)</div><div class="line"><a name="l05720"></a><span class="lineno"> 5720</span>  ++prec;</div><div class="line"><a name="l05721"></a><span class="lineno"> 5721</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l05722"></a><span class="lineno"> 5722</span>  --prec;</div><div class="line"><a name="l05723"></a><span class="lineno"> 5723</span> </div><div class="line"><a name="l05724"></a><span class="lineno"> 5724</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#aea51d27b9066ae3647c1451fce515a74">VpVtoD</a>(&<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>, &e, x); <span class="comment">/* val <- x */</span></div><div class="line"><a name="l05725"></a><span class="lineno"> 5725</span>  e /= (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05726"></a><span class="lineno"> 5726</span>  n = e / 2;</div><div class="line"><a name="l05727"></a><span class="lineno"> 5727</span>  <span class="keywordflow">if</span> (e - n * 2 != 0) {</div><div class="line"><a name="l05728"></a><span class="lineno"> 5728</span>  <a class="code" href="../../df/d38/vm__exec_8c.html">val</a> /= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05729"></a><span class="lineno"> 5729</span>  n = (e + 1) / 2;</div><div class="line"><a name="l05730"></a><span class="lineno"> 5730</span>  }</div><div class="line"><a name="l05731"></a><span class="lineno"> 5731</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a4be1a4728b4b84da9b53c6b8896def68">VpDtoV</a>(y, sqrt(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)); <span class="comment">/* y <- sqrt(val) */</span></div><div class="line"><a name="l05732"></a><span class="lineno"> 5732</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> += n;</div><div class="line"><a name="l05733"></a><span class="lineno"> 5733</span>  n = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)((<a class="code" href="../../de/d07/bigdecimal_8c.html#ac9322094e0d6891589fca4ac9ef4fb8a">DBLE_FIG</a> + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>);</div><div class="line"><a name="l05734"></a><span class="lineno"> 5734</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a9e04209162ea72f9985338596262b657">Min</a>((<span class="keywordtype">size_t</span>)n , y_prec);</div><div class="line"><a name="l05735"></a><span class="lineno"> 5735</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>->MaxPrec = y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> + 1;</div><div class="line"><a name="l05736"></a><span class="lineno"> 5736</span>  n = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)(y_prec * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>);</div><div class="line"><a name="l05737"></a><span class="lineno"> 5737</span>  <span class="keywordflow">if</span> (n < (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a5297fe57e42f0bba45b6588901f84ade">maxnr</a>) n = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)<a class="code" href="../../de/d07/bigdecimal_8c.html#a5297fe57e42f0bba45b6588901f84ade">maxnr</a>;</div><div class="line"><a name="l05738"></a><span class="lineno"> 5738</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l05739"></a><span class="lineno"> 5739</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> *= 2;</div><div class="line"><a name="l05740"></a><span class="lineno"> 5740</span>  <span class="keywordflow">if</span> (y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> > y_prec) y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = y_prec;</div><div class="line"><a name="l05741"></a><span class="lineno"> 5741</span>  <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>->MaxPrec = y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>;</div><div class="line"><a name="l05742"></a><span class="lineno"> 5742</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, r, x, y); <span class="comment">/* f = x/y */</span></div><div class="line"><a name="l05743"></a><span class="lineno"> 5743</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(r, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, y, -1); <span class="comment">/* r = f - y */</span></div><div class="line"><a name="l05744"></a><span class="lineno"> 5744</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, <a class="code" href="../../de/d07/bigdecimal_8c.html#adc26687ac6864e8400f8d9710a02e3ea">VpPt5</a>, r); <span class="comment">/* f = 0.5*r */</span></div><div class="line"><a name="l05745"></a><span class="lineno"> 5745</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>)) <span class="keywordflow">goto</span> converge;</div><div class="line"><a name="l05746"></a><span class="lineno"> 5746</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(r, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, y, 1); <span class="comment">/* r = y + f */</span></div><div class="line"><a name="l05747"></a><span class="lineno"> 5747</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, r, 1); <span class="comment">/* y = r */</span></div><div class="line"><a name="l05748"></a><span class="lineno"> 5748</span>  } <span class="keywordflow">while</span> (++nr < n);</div><div class="line"><a name="l05749"></a><span class="lineno"> 5749</span> </div><div class="line"><a name="l05750"></a><span class="lineno"> 5750</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l05751"></a><span class="lineno"> 5751</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l05752"></a><span class="lineno"> 5752</span>  printf(<span class="stringliteral">"ERROR(VpSqrt): did not converge within %ld iterations.\n"</span>, nr);</div><div class="line"><a name="l05753"></a><span class="lineno"> 5753</span>  }</div><div class="line"><a name="l05754"></a><span class="lineno"> 5754</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l05755"></a><span class="lineno"> 5755</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = y_prec;</div><div class="line"><a name="l05756"></a><span class="lineno"> 5756</span> </div><div class="line"><a name="l05757"></a><span class="lineno"> 5757</span> converge:</div><div class="line"><a name="l05758"></a><span class="lineno"> 5758</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a26e8ca52288bcfb6a58376d71764d7a2">VpChangeSign</a>(y, 1);</div><div class="line"><a name="l05759"></a><span class="lineno"> 5759</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l05760"></a><span class="lineno"> 5760</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l05761"></a><span class="lineno"> 5761</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(r, y, y);</div><div class="line"><a name="l05762"></a><span class="lineno"> 5762</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, x, r, -1);</div><div class="line"><a name="l05763"></a><span class="lineno"> 5763</span>  printf(<span class="stringliteral">"VpSqrt: iterations = %"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#adc5e20179bf95e62d3e01da83774c1a9">PRIdSIZE</a><span class="stringliteral">"\n"</span>, nr);</div><div class="line"><a name="l05764"></a><span class="lineno"> 5764</span>  VPrint(stdout, <span class="stringliteral">" y =% \n"</span>, y);</div><div class="line"><a name="l05765"></a><span class="lineno"> 5765</span>  VPrint(stdout, <span class="stringliteral">" x =% \n"</span>, x);</div><div class="line"><a name="l05766"></a><span class="lineno"> 5766</span>  VPrint(stdout, <span class="stringliteral">" x-y*y = % \n"</span>, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l05767"></a><span class="lineno"> 5767</span>  }</div><div class="line"><a name="l05768"></a><span class="lineno"> 5768</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l05769"></a><span class="lineno"> 5769</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> = y_prec;</div><div class="line"><a name="l05770"></a><span class="lineno"> 5770</span> </div><div class="line"><a name="l05771"></a><span class="lineno"> 5771</span> Exit:</div><div class="line"><a name="l05772"></a><span class="lineno"> 5772</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>);</div><div class="line"><a name="l05773"></a><span class="lineno"> 5773</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(r);</div><div class="line"><a name="l05774"></a><span class="lineno"> 5774</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05775"></a><span class="lineno"> 5775</span> }</div><div class="line"><a name="l05776"></a><span class="lineno"> 5776</span> </div><div class="line"><a name="l05777"></a><span class="lineno"> 5777</span> <span class="comment">/*</span></div><div class="line"><a name="l05778"></a><span class="lineno"> 5778</span> <span class="comment"> *</span></div><div class="line"><a name="l05779"></a><span class="lineno"> 5779</span> <span class="comment"> * nf: digit position for operation.</span></div><div class="line"><a name="l05780"></a><span class="lineno"> 5780</span> <span class="comment"> *</span></div><div class="line"><a name="l05781"></a><span class="lineno"> 5781</span> <span class="comment"> */</span></div><div class="line"><a name="l05782"></a><span class="lineno"> 5782</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05783"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#abddd7d4048c1702709da58ecadda0bda"> 5783</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#abddd7d4048c1702709da58ecadda0bda">VpMidRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *y, <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, ssize_t nf)</div><div class="line"><a name="l05784"></a><span class="lineno"> 5784</span> <span class="comment">/*</span></div><div class="line"><a name="l05785"></a><span class="lineno"> 5785</span> <span class="comment"> * Round relatively from the decimal point.</span></div><div class="line"><a name="l05786"></a><span class="lineno"> 5786</span> <span class="comment"> * f: rounding mode</span></div><div class="line"><a name="l05787"></a><span class="lineno"> 5787</span> <span class="comment"> * nf: digit location to round from the decimal point.</span></div><div class="line"><a name="l05788"></a><span class="lineno"> 5788</span> <span class="comment"> */</span></div><div class="line"><a name="l05789"></a><span class="lineno"> 5789</span> {</div><div class="line"><a name="l05790"></a><span class="lineno"> 5790</span>  <span class="comment">/* fracf: any positive digit under rounding position? */</span></div><div class="line"><a name="l05791"></a><span class="lineno"> 5791</span>  <span class="comment">/* fracf_1further: any positive digits under one further than the rounding position? */</span></div><div class="line"><a name="l05792"></a><span class="lineno"> 5792</span>  <span class="comment">/* exptoadd: number of digits needed to compensate negative nf */</span></div><div class="line"><a name="l05793"></a><span class="lineno"> 5793</span>  <span class="keywordtype">int</span> fracf, fracf_1further;</div><div class="line"><a name="l05794"></a><span class="lineno"> 5794</span>  ssize_t n,i,ix,ioffset, exptoadd;</div><div class="line"><a name="l05795"></a><span class="lineno"> 5795</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> v, shifter;</div><div class="line"><a name="l05796"></a><span class="lineno"> 5796</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05797"></a><span class="lineno"> 5797</span> </div><div class="line"><a name="l05798"></a><span class="lineno"> 5798</span>  nf += y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> * (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05799"></a><span class="lineno"> 5799</span>  exptoadd=0;</div><div class="line"><a name="l05800"></a><span class="lineno"> 5800</span>  <span class="keywordflow">if</span> (nf < 0) {</div><div class="line"><a name="l05801"></a><span class="lineno"> 5801</span>  <span class="comment">/* rounding position too left(large). */</span></div><div class="line"><a name="l05802"></a><span class="lineno"> 5802</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> != <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a> && <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> != <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>) {</div><div class="line"><a name="l05803"></a><span class="lineno"> 5803</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(y, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(y)); <span class="comment">/* truncate everything */</span></div><div class="line"><a name="l05804"></a><span class="lineno"> 5804</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l05805"></a><span class="lineno"> 5805</span>  }</div><div class="line"><a name="l05806"></a><span class="lineno"> 5806</span>  exptoadd = -nf;</div><div class="line"><a name="l05807"></a><span class="lineno"> 5807</span>  nf = 0;</div><div class="line"><a name="l05808"></a><span class="lineno"> 5808</span>  }</div><div class="line"><a name="l05809"></a><span class="lineno"> 5809</span> </div><div class="line"><a name="l05810"></a><span class="lineno"> 5810</span>  ix = nf / (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05811"></a><span class="lineno"> 5811</span>  <span class="keywordflow">if</span> ((<span class="keywordtype">size_t</span>)ix >= y-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) <span class="keywordflow">return</span> 0; <span class="comment">/* rounding position too right(small). */</span></div><div class="line"><a name="l05812"></a><span class="lineno"> 5812</span>  v = y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ix];</div><div class="line"><a name="l05813"></a><span class="lineno"> 5813</span> </div><div class="line"><a name="l05814"></a><span class="lineno"> 5814</span>  ioffset = nf - ix*(ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05815"></a><span class="lineno"> 5815</span>  n = (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - ioffset - 1;</div><div class="line"><a name="l05816"></a><span class="lineno"> 5816</span>  <span class="keywordflow">for</span> (shifter = 1, i = 0; i < n; ++i) shifter *= 10;</div><div class="line"><a name="l05817"></a><span class="lineno"> 5817</span> </div><div class="line"><a name="l05818"></a><span class="lineno"> 5818</span>  <span class="comment">/* so the representation used (in y->frac) is an array of BDIGIT, where</span></div><div class="line"><a name="l05819"></a><span class="lineno"> 5819</span> <span class="comment"> each BDIGIT contains a value between 0 and BASE-1, consisting of BASE_FIG</span></div><div class="line"><a name="l05820"></a><span class="lineno"> 5820</span> <span class="comment"> decimal places.</span></div><div class="line"><a name="l05821"></a><span class="lineno"> 5821</span> <span class="comment"></span></div><div class="line"><a name="l05822"></a><span class="lineno"> 5822</span> <span class="comment"> (that numbers of decimal places are typed as ssize_t is somewhat confusing)</span></div><div class="line"><a name="l05823"></a><span class="lineno"> 5823</span> <span class="comment"></span></div><div class="line"><a name="l05824"></a><span class="lineno"> 5824</span> <span class="comment"> nf is now position (in decimal places) of the digit from the start of</span></div><div class="line"><a name="l05825"></a><span class="lineno"> 5825</span> <span class="comment"> the array.</span></div><div class="line"><a name="l05826"></a><span class="lineno"> 5826</span> <span class="comment"></span></div><div class="line"><a name="l05827"></a><span class="lineno"> 5827</span> <span class="comment"> ix is the position (in BDIGITS) of the BDIGIT containing the decimal digit,</span></div><div class="line"><a name="l05828"></a><span class="lineno"> 5828</span> <span class="comment"> from the start of the array.</span></div><div class="line"><a name="l05829"></a><span class="lineno"> 5829</span> <span class="comment"></span></div><div class="line"><a name="l05830"></a><span class="lineno"> 5830</span> <span class="comment"> v is the value of this BDIGIT</span></div><div class="line"><a name="l05831"></a><span class="lineno"> 5831</span> <span class="comment"></span></div><div class="line"><a name="l05832"></a><span class="lineno"> 5832</span> <span class="comment"> ioffset is the number of extra decimal places along of this decimal digit</span></div><div class="line"><a name="l05833"></a><span class="lineno"> 5833</span> <span class="comment"> within v.</span></div><div class="line"><a name="l05834"></a><span class="lineno"> 5834</span> <span class="comment"></span></div><div class="line"><a name="l05835"></a><span class="lineno"> 5835</span> <span class="comment"> n is the number of decimal digits remaining within v after this decimal digit</span></div><div class="line"><a name="l05836"></a><span class="lineno"> 5836</span> <span class="comment"> shifter is 10**n,</span></div><div class="line"><a name="l05837"></a><span class="lineno"> 5837</span> <span class="comment"></span></div><div class="line"><a name="l05838"></a><span class="lineno"> 5838</span> <span class="comment"> v % shifter are the remaining digits within v</span></div><div class="line"><a name="l05839"></a><span class="lineno"> 5839</span> <span class="comment"> v % (shifter * 10) are the digit together with the remaining digits within v</span></div><div class="line"><a name="l05840"></a><span class="lineno"> 5840</span> <span class="comment"> v / shifter are the digit's predecessors together with the digit</span></div><div class="line"><a name="l05841"></a><span class="lineno"> 5841</span> <span class="comment"> div = v / shifter / 10 is just the digit's precessors</span></div><div class="line"><a name="l05842"></a><span class="lineno"> 5842</span> <span class="comment"> (v / shifter) - div*10 is just the digit, which is what v ends up being reassigned to.</span></div><div class="line"><a name="l05843"></a><span class="lineno"> 5843</span> <span class="comment"> */</span></div><div class="line"><a name="l05844"></a><span class="lineno"> 5844</span> </div><div class="line"><a name="l05845"></a><span class="lineno"> 5845</span>  fracf = (v % (shifter * 10) > 0);</div><div class="line"><a name="l05846"></a><span class="lineno"> 5846</span>  fracf_1further = ((v % shifter) > 0);</div><div class="line"><a name="l05847"></a><span class="lineno"> 5847</span> </div><div class="line"><a name="l05848"></a><span class="lineno"> 5848</span>  v /= shifter;</div><div class="line"><a name="l05849"></a><span class="lineno"> 5849</span>  <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> = v / 10;</div><div class="line"><a name="l05850"></a><span class="lineno"> 5850</span>  v = v - <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>*10;</div><div class="line"><a name="l05851"></a><span class="lineno"> 5851</span>  <span class="comment">/* now v is just the digit required.</span></div><div class="line"><a name="l05852"></a><span class="lineno"> 5852</span> <span class="comment"> now fracf is whether the digit or any of the remaining digits within v are non-zero</span></div><div class="line"><a name="l05853"></a><span class="lineno"> 5853</span> <span class="comment"> now fracf_1further is whether any of the remaining digits within v are non-zero</span></div><div class="line"><a name="l05854"></a><span class="lineno"> 5854</span> <span class="comment"> */</span></div><div class="line"><a name="l05855"></a><span class="lineno"> 5855</span> </div><div class="line"><a name="l05856"></a><span class="lineno"> 5856</span>  <span class="comment">/* now check all the remaining BDIGITS for zero-ness a whole BDIGIT at a time.</span></div><div class="line"><a name="l05857"></a><span class="lineno"> 5857</span> <span class="comment"> if we spot any non-zeroness, that means that we found a positive digit under</span></div><div class="line"><a name="l05858"></a><span class="lineno"> 5858</span> <span class="comment"> rounding position, and we also found a positive digit under one further than</span></div><div class="line"><a name="l05859"></a><span class="lineno"> 5859</span> <span class="comment"> the rounding position, so both searches (to see if any such non-zero digit exists)</span></div><div class="line"><a name="l05860"></a><span class="lineno"> 5860</span> <span class="comment"> can stop */</span></div><div class="line"><a name="l05861"></a><span class="lineno"> 5861</span> </div><div class="line"><a name="l05862"></a><span class="lineno"> 5862</span>  <span class="keywordflow">for</span> (i = ix + 1; (size_t)i < y->Prec; i++) {</div><div class="line"><a name="l05863"></a><span class="lineno"> 5863</span>  <span class="keywordflow">if</span> (y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i] % <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l05864"></a><span class="lineno"> 5864</span>  fracf = fracf_1further = 1;</div><div class="line"><a name="l05865"></a><span class="lineno"> 5865</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05866"></a><span class="lineno"> 5866</span>  }</div><div class="line"><a name="l05867"></a><span class="lineno"> 5867</span>  }</div><div class="line"><a name="l05868"></a><span class="lineno"> 5868</span> </div><div class="line"><a name="l05869"></a><span class="lineno"> 5869</span>  <span class="comment">/* now fracf = does any positive digit exist under the rounding position?</span></div><div class="line"><a name="l05870"></a><span class="lineno"> 5870</span> <span class="comment"> now fracf_1further = does any positive digit exist under one further than the</span></div><div class="line"><a name="l05871"></a><span class="lineno"> 5871</span> <span class="comment"> rounding position?</span></div><div class="line"><a name="l05872"></a><span class="lineno"> 5872</span> <span class="comment"> now v = the first digit under the rounding position */</span></div><div class="line"><a name="l05873"></a><span class="lineno"> 5873</span> </div><div class="line"><a name="l05874"></a><span class="lineno"> 5874</span>  <span class="comment">/* drop digits after pointed digit */</span></div><div class="line"><a name="l05875"></a><span class="lineno"> 5875</span>  memset(y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a> + ix + 1, 0, (y-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> - (ix + 1)) * <span class="keyword">sizeof</span>(<a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a>));</div><div class="line"><a name="l05876"></a><span class="lineno"> 5876</span> </div><div class="line"><a name="l05877"></a><span class="lineno"> 5877</span>  <span class="keywordflow">switch</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>) {</div><div class="line"><a name="l05878"></a><span class="lineno"> 5878</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>: <span class="comment">/* Truncate */</span></div><div class="line"><a name="l05879"></a><span class="lineno"> 5879</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05880"></a><span class="lineno"> 5880</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#acc54e540534a259d314f5be704e41dbd">VP_ROUND_UP</a>: <span class="comment">/* Roundup */</span></div><div class="line"><a name="l05881"></a><span class="lineno"> 5881</span>  <span class="keywordflow">if</span> (fracf) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05882"></a><span class="lineno"> 5882</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05883"></a><span class="lineno"> 5883</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aee9c0b939acd1671730ec28bb6fedf6e">VP_ROUND_HALF_UP</a>:</div><div class="line"><a name="l05884"></a><span class="lineno"> 5884</span>  <span class="keywordflow">if</span> (v>=5) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05885"></a><span class="lineno"> 5885</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05886"></a><span class="lineno"> 5886</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77487cab033862462c80f665bb3693b0">VP_ROUND_HALF_DOWN</a>:</div><div class="line"><a name="l05887"></a><span class="lineno"> 5887</span>  <span class="keywordflow">if</span> (v > 5 || (v == 5 && fracf_1further)) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05888"></a><span class="lineno"> 5888</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05889"></a><span class="lineno"> 5889</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a>:</div><div class="line"><a name="l05890"></a><span class="lineno"> 5890</span>  <span class="keywordflow">if</span> (fracf && (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(y) > 0)) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05891"></a><span class="lineno"> 5891</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05892"></a><span class="lineno"> 5892</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>:</div><div class="line"><a name="l05893"></a><span class="lineno"> 5893</span>  <span class="keywordflow">if</span> (fracf && (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(y) < 0)) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05894"></a><span class="lineno"> 5894</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05895"></a><span class="lineno"> 5895</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a2372d42c88c84f677d64f400574f730c">VP_ROUND_HALF_EVEN</a>: <span class="comment">/* Banker's rounding */</span></div><div class="line"><a name="l05896"></a><span class="lineno"> 5896</span>  <span class="keywordflow">if</span> (v > 5) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05897"></a><span class="lineno"> 5897</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (v == 5) {</div><div class="line"><a name="l05898"></a><span class="lineno"> 5898</span>  <span class="keywordflow">if</span> (fracf_1further) {</div><div class="line"><a name="l05899"></a><span class="lineno"> 5899</span>  ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05900"></a><span class="lineno"> 5900</span>  }</div><div class="line"><a name="l05901"></a><span class="lineno"> 5901</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05902"></a><span class="lineno"> 5902</span>  <span class="keywordflow">if</span> (ioffset == 0) {</div><div class="line"><a name="l05903"></a><span class="lineno"> 5903</span>  <span class="comment">/* v is the first decimal digit of its BDIGIT;</span></div><div class="line"><a name="l05904"></a><span class="lineno"> 5904</span> <span class="comment"> need to grab the previous BDIGIT if present</span></div><div class="line"><a name="l05905"></a><span class="lineno"> 5905</span> <span class="comment"> to check for evenness of the previous decimal</span></div><div class="line"><a name="l05906"></a><span class="lineno"> 5906</span> <span class="comment"> digit (which is same as that of the BDIGIT since</span></div><div class="line"><a name="l05907"></a><span class="lineno"> 5907</span> <span class="comment"> base 10 has a factor of 2) */</span></div><div class="line"><a name="l05908"></a><span class="lineno"> 5908</span>  <span class="keywordflow">if</span> (ix && (y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ix-1] % 2)) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05909"></a><span class="lineno"> 5909</span>  }</div><div class="line"><a name="l05910"></a><span class="lineno"> 5910</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05911"></a><span class="lineno"> 5911</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> % 2) ++<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05912"></a><span class="lineno"> 5912</span>  }</div><div class="line"><a name="l05913"></a><span class="lineno"> 5913</span>  }</div><div class="line"><a name="l05914"></a><span class="lineno"> 5914</span>  }</div><div class="line"><a name="l05915"></a><span class="lineno"> 5915</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05916"></a><span class="lineno"> 5916</span>  }</div><div class="line"><a name="l05917"></a><span class="lineno"> 5917</span>  <span class="keywordflow">for</span> (i = 0; i <= n; ++i) <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> *= 10;</div><div class="line"><a name="l05918"></a><span class="lineno"> 5918</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a> >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l05919"></a><span class="lineno"> 5919</span>  <span class="keywordflow">if</span> (ix) {</div><div class="line"><a name="l05920"></a><span class="lineno"> 5920</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ix] = 0;</div><div class="line"><a name="l05921"></a><span class="lineno"> 5921</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a776970a589bbbd27eda68a5089273b11">VpRdup</a>(y, ix);</div><div class="line"><a name="l05922"></a><span class="lineno"> 5922</span>  }</div><div class="line"><a name="l05923"></a><span class="lineno"> 5923</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05924"></a><span class="lineno"> 5924</span>  <span class="keywordtype">short</span> s = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(y);</div><div class="line"><a name="l05925"></a><span class="lineno"> 5925</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> e = y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l05926"></a><span class="lineno"> 5926</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a>(y);</div><div class="line"><a name="l05927"></a><span class="lineno"> 5927</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(y, s);</div><div class="line"><a name="l05928"></a><span class="lineno"> 5928</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = e + 1;</div><div class="line"><a name="l05929"></a><span class="lineno"> 5929</span>  }</div><div class="line"><a name="l05930"></a><span class="lineno"> 5930</span>  }</div><div class="line"><a name="l05931"></a><span class="lineno"> 5931</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l05932"></a><span class="lineno"> 5932</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ix] = <a class="code" href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a>;</div><div class="line"><a name="l05933"></a><span class="lineno"> 5933</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(y);</div><div class="line"><a name="l05934"></a><span class="lineno"> 5934</span>  }</div><div class="line"><a name="l05935"></a><span class="lineno"> 5935</span>  <span class="keywordflow">if</span> (exptoadd > 0) {</div><div class="line"><a name="l05936"></a><span class="lineno"> 5936</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> += (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)(exptoadd / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>);</div><div class="line"><a name="l05937"></a><span class="lineno"> 5937</span>  exptoadd %= (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05938"></a><span class="lineno"> 5938</span>  <span class="keywordflow">for</span> (i = 0; i < exptoadd; i++) {</div><div class="line"><a name="l05939"></a><span class="lineno"> 5939</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] *= 10;</div><div class="line"><a name="l05940"></a><span class="lineno"> 5940</span>  <span class="keywordflow">if</span> (y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l05941"></a><span class="lineno"> 5941</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] /= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l05942"></a><span class="lineno"> 5942</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>++;</div><div class="line"><a name="l05943"></a><span class="lineno"> 5943</span>  }</div><div class="line"><a name="l05944"></a><span class="lineno"> 5944</span>  }</div><div class="line"><a name="l05945"></a><span class="lineno"> 5945</span>  }</div><div class="line"><a name="l05946"></a><span class="lineno"> 5946</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l05947"></a><span class="lineno"> 5947</span> }</div><div class="line"><a name="l05948"></a><span class="lineno"> 5948</span> </div><div class="line"><a name="l05949"></a><span class="lineno"> 5949</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05950"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a6e860086606548ae1c97d98aa5ad0ee9"> 5950</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *y, <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, ssize_t nf)</div><div class="line"><a name="l05951"></a><span class="lineno"> 5951</span> <span class="comment">/*</span></div><div class="line"><a name="l05952"></a><span class="lineno"> 5952</span> <span class="comment"> * Round from the left hand side of the digits.</span></div><div class="line"><a name="l05953"></a><span class="lineno"> 5953</span> <span class="comment"> */</span></div><div class="line"><a name="l05954"></a><span class="lineno"> 5954</span> {</div><div class="line"><a name="l05955"></a><span class="lineno"> 5955</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> v;</div><div class="line"><a name="l05956"></a><span class="lineno"> 5956</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a8425bde5e3250f1f2a4387812658771c">VpHasVal</a>(y)) <span class="keywordflow">return</span> 0; <span class="comment">/* Unable to round */</span></div><div class="line"><a name="l05957"></a><span class="lineno"> 5957</span>  v = y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0];</div><div class="line"><a name="l05958"></a><span class="lineno"> 5958</span>  nf -= <a class="code" href="../../d0/da5/bigdecimal_8h.html#a259239e879c9775ae7f626d4031522f7">VpExponent</a>(y) * (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>;</div><div class="line"><a name="l05959"></a><span class="lineno"> 5959</span>  <span class="keywordflow">while</span> ((v /= 10) != 0) nf--;</div><div class="line"><a name="l05960"></a><span class="lineno"> 5960</span>  nf += (ssize_t)<a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>-1;</div><div class="line"><a name="l05961"></a><span class="lineno"> 5961</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#abddd7d4048c1702709da58ecadda0bda">VpMidRound</a>(y, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, nf);</div><div class="line"><a name="l05962"></a><span class="lineno"> 5962</span> }</div><div class="line"><a name="l05963"></a><span class="lineno"> 5963</span> </div><div class="line"><a name="l05964"></a><span class="lineno"> 5964</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l05965"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#ab82d9f4cbc66589282a1775ea662c5b0"> 5965</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *y, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x, <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, ssize_t nf)</div><div class="line"><a name="l05966"></a><span class="lineno"> 5966</span> {</div><div class="line"><a name="l05967"></a><span class="lineno"> 5967</span>  <span class="comment">/* First,assign whole value in truncation mode */</span></div><div class="line"><a name="l05968"></a><span class="lineno"> 5968</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, x, 10) <= 1) <span class="keywordflow">return</span> 0; <span class="comment">/* Zero,NaN,or Infinity */</span></div><div class="line"><a name="l05969"></a><span class="lineno"> 5969</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#abddd7d4048c1702709da58ecadda0bda">VpMidRound</a>(y, <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>, nf);</div><div class="line"><a name="l05970"></a><span class="lineno"> 5970</span> }</div><div class="line"><a name="l05971"></a><span class="lineno"> 5971</span> </div><div class="line"><a name="l05972"></a><span class="lineno"> 5972</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l05973"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad"> 5973</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad">VpLimitRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <span class="keywordtype">size_t</span> ixDigit)</div><div class="line"><a name="l05974"></a><span class="lineno"> 5974</span> {</div><div class="line"><a name="l05975"></a><span class="lineno"> 5975</span>  <span class="keywordtype">size_t</span> ix = <a class="code" href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a>();</div><div class="line"><a name="l05976"></a><span class="lineno"> 5976</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(c)) <span class="keywordflow">return</span> -1;</div><div class="line"><a name="l05977"></a><span class="lineno"> 5977</span>  <span class="keywordflow">if</span> (!ix) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l05978"></a><span class="lineno"> 5978</span>  <span class="keywordflow">if</span> (!ixDigit) ixDigit = c-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>-1;</div><div class="line"><a name="l05979"></a><span class="lineno"> 5979</span>  <span class="keywordflow">if</span> ((ix + <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> - 1) / <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a> > ixDigit + 1) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l05980"></a><span class="lineno"> 5980</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a>(c, <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>(), (ssize_t)ix);</div><div class="line"><a name="l05981"></a><span class="lineno"> 5981</span> }</div><div class="line"><a name="l05982"></a><span class="lineno"> 5982</span> </div><div class="line"><a name="l05983"></a><span class="lineno"> 5983</span> <span class="comment">/* If I understand correctly, this is only ever used to round off the final decimal</span></div><div class="line"><a name="l05984"></a><span class="lineno"> 5984</span> <span class="comment"> digit of precision */</span></div><div class="line"><a name="l05985"></a><span class="lineno"> 5985</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05986"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c"> 5986</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *c, <span class="keywordtype">size_t</span> ixDigit, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> vPrev, <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> v)</div><div class="line"><a name="l05987"></a><span class="lineno"> 5987</span> {</div><div class="line"><a name="l05988"></a><span class="lineno"> 5988</span>  <span class="keywordtype">int</span> <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 0;</div><div class="line"><a name="l05989"></a><span class="lineno"> 5989</span> </div><div class="line"><a name="l05990"></a><span class="lineno"> 5990</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keyword">const</span> rounding_mode = <a class="code" href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a>();</div><div class="line"><a name="l05991"></a><span class="lineno"> 5991</span> </div><div class="line"><a name="l05992"></a><span class="lineno"> 5992</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad">VpLimitRound</a>(c, ixDigit)) <span class="keywordflow">return</span>;</div><div class="line"><a name="l05993"></a><span class="lineno"> 5993</span>  <span class="keywordflow">if</span> (!v) <span class="keywordflow">return</span>;</div><div class="line"><a name="l05994"></a><span class="lineno"> 5994</span> </div><div class="line"><a name="l05995"></a><span class="lineno"> 5995</span>  v /= <a class="code" href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a>;</div><div class="line"><a name="l05996"></a><span class="lineno"> 5996</span>  <span class="keywordflow">switch</span> (rounding_mode) {</div><div class="line"><a name="l05997"></a><span class="lineno"> 5997</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a>:</div><div class="line"><a name="l05998"></a><span class="lineno"> 5998</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05999"></a><span class="lineno"> 5999</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#acc54e540534a259d314f5be704e41dbd">VP_ROUND_UP</a>:</div><div class="line"><a name="l06000"></a><span class="lineno"> 6000</span>  <span class="keywordflow">if</span> (v) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06001"></a><span class="lineno"> 6001</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06002"></a><span class="lineno"> 6002</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#aee9c0b939acd1671730ec28bb6fedf6e">VP_ROUND_HALF_UP</a>:</div><div class="line"><a name="l06003"></a><span class="lineno"> 6003</span>  <span class="keywordflow">if</span> (v >= 5) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06004"></a><span class="lineno"> 6004</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06005"></a><span class="lineno"> 6005</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77487cab033862462c80f665bb3693b0">VP_ROUND_HALF_DOWN</a>:</div><div class="line"><a name="l06006"></a><span class="lineno"> 6006</span>  <span class="comment">/* this is ok - because this is the last digit of precision,</span></div><div class="line"><a name="l06007"></a><span class="lineno"> 6007</span> <span class="comment"> the case where v == 5 and some further digits are nonzero</span></div><div class="line"><a name="l06008"></a><span class="lineno"> 6008</span> <span class="comment"> will never occur */</span></div><div class="line"><a name="l06009"></a><span class="lineno"> 6009</span>  <span class="keywordflow">if</span> (v >= 6) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06010"></a><span class="lineno"> 6010</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06011"></a><span class="lineno"> 6011</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a>:</div><div class="line"><a name="l06012"></a><span class="lineno"> 6012</span>  <span class="keywordflow">if</span> (v && (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(c) > 0)) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06013"></a><span class="lineno"> 6013</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06014"></a><span class="lineno"> 6014</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a>:</div><div class="line"><a name="l06015"></a><span class="lineno"> 6015</span>  <span class="keywordflow">if</span> (v && (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(c) < 0)) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06016"></a><span class="lineno"> 6016</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06017"></a><span class="lineno"> 6017</span>  <span class="keywordflow">case</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a2372d42c88c84f677d64f400574f730c">VP_ROUND_HALF_EVEN</a>: <span class="comment">/* Banker's rounding */</span></div><div class="line"><a name="l06018"></a><span class="lineno"> 6018</span>  <span class="comment">/* as per VP_ROUND_HALF_DOWN, because this is the last digit of precision,</span></div><div class="line"><a name="l06019"></a><span class="lineno"> 6019</span> <span class="comment"> there is no case to worry about where v == 5 and some further digits are nonzero */</span></div><div class="line"><a name="l06020"></a><span class="lineno"> 6020</span>  <span class="keywordflow">if</span> (v > 5) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06021"></a><span class="lineno"> 6021</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (v == 5 && vPrev % 2) <a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a> = 1;</div><div class="line"><a name="l06022"></a><span class="lineno"> 6022</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06023"></a><span class="lineno"> 6023</span>  }</div><div class="line"><a name="l06024"></a><span class="lineno"> 6024</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a>) {</div><div class="line"><a name="l06025"></a><span class="lineno"> 6025</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a776970a589bbbd27eda68a5089273b11">VpRdup</a>(c, ixDigit);</div><div class="line"><a name="l06026"></a><span class="lineno"> 6026</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(c);</div><div class="line"><a name="l06027"></a><span class="lineno"> 6027</span>  }</div><div class="line"><a name="l06028"></a><span class="lineno"> 6028</span> }</div><div class="line"><a name="l06029"></a><span class="lineno"> 6029</span> </div><div class="line"><a name="l06030"></a><span class="lineno"> 6030</span> <span class="comment">/*</span></div><div class="line"><a name="l06031"></a><span class="lineno"> 6031</span> <span class="comment"> * Rounds up m(plus one to final digit of m).</span></div><div class="line"><a name="l06032"></a><span class="lineno"> 6032</span> <span class="comment"> */</span></div><div class="line"><a name="l06033"></a><span class="lineno"> 6033</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l06034"></a><span class="lineno"><a class="line" href="../../de/d07/bigdecimal_8c.html#a776970a589bbbd27eda68a5089273b11"> 6034</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a776970a589bbbd27eda68a5089273b11">VpRdup</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *m, <span class="keywordtype">size_t</span> ind_m)</div><div class="line"><a name="l06035"></a><span class="lineno"> 6035</span> {</div><div class="line"><a name="l06036"></a><span class="lineno"> 6036</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a> carry;</div><div class="line"><a name="l06037"></a><span class="lineno"> 6037</span> </div><div class="line"><a name="l06038"></a><span class="lineno"> 6038</span>  <span class="keywordflow">if</span> (!ind_m) ind_m = m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l06039"></a><span class="lineno"> 6039</span> </div><div class="line"><a name="l06040"></a><span class="lineno"> 6040</span>  carry = 1;</div><div class="line"><a name="l06041"></a><span class="lineno"> 6041</span>  <span class="keywordflow">while</span> (carry > 0 && ind_m--) {</div><div class="line"><a name="l06042"></a><span class="lineno"> 6042</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m] += carry;</div><div class="line"><a name="l06043"></a><span class="lineno"> 6043</span>  <span class="keywordflow">if</span> (m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_m] -= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>;</div><div class="line"><a name="l06044"></a><span class="lineno"> 6044</span>  <span class="keywordflow">else</span> carry = 0;</div><div class="line"><a name="l06045"></a><span class="lineno"> 6045</span>  }</div><div class="line"><a name="l06046"></a><span class="lineno"> 6046</span>  <span class="keywordflow">if</span> (carry > 0) { <span class="comment">/* Overflow,count exponent and set fraction part be 1 */</span></div><div class="line"><a name="l06047"></a><span class="lineno"> 6047</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a>(m, 1)) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l06048"></a><span class="lineno"> 6048</span>  m-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = m-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] = 1;</div><div class="line"><a name="l06049"></a><span class="lineno"> 6049</span>  }</div><div class="line"><a name="l06050"></a><span class="lineno"> 6050</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l06051"></a><span class="lineno"> 6051</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(m);</div><div class="line"><a name="l06052"></a><span class="lineno"> 6052</span>  }</div><div class="line"><a name="l06053"></a><span class="lineno"> 6053</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l06054"></a><span class="lineno"> 6054</span> }</div><div class="line"><a name="l06055"></a><span class="lineno"> 6055</span> </div><div class="line"><a name="l06056"></a><span class="lineno"> 6056</span> <span class="comment">/*</span></div><div class="line"><a name="l06057"></a><span class="lineno"> 6057</span> <span class="comment"> * y = x - fix(x)</span></div><div class="line"><a name="l06058"></a><span class="lineno"> 6058</span> <span class="comment"> */</span></div><div class="line"><a name="l06059"></a><span class="lineno"> 6059</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">void</span></div><div class="line"><a name="l06060"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#a61b4400d4f983db01b999edf52387ced"> 6060</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a61b4400d4f983db01b999edf52387ced">VpFrac</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *y, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x)</div><div class="line"><a name="l06061"></a><span class="lineno"> 6061</span> {</div><div class="line"><a name="l06062"></a><span class="lineno"> 6062</span>  <span class="keywordtype">size_t</span> my, ind_y, ind_x;</div><div class="line"><a name="l06063"></a><span class="lineno"> 6063</span> </div><div class="line"><a name="l06064"></a><span class="lineno"> 6064</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d0/da5/bigdecimal_8h.html#a8425bde5e3250f1f2a4387812658771c">VpHasVal</a>(x)) {</div><div class="line"><a name="l06065"></a><span class="lineno"> 6065</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, x, 1);</div><div class="line"><a name="l06066"></a><span class="lineno"> 6066</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06067"></a><span class="lineno"> 6067</span>  }</div><div class="line"><a name="l06068"></a><span class="lineno"> 6068</span> </div><div class="line"><a name="l06069"></a><span class="lineno"> 6069</span>  <span class="keywordflow">if</span> (x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> > 0 && (<span class="keywordtype">size_t</span>)x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> >= x-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>) {</div><div class="line"><a name="l06070"></a><span class="lineno"> 6070</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(y, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x));</div><div class="line"><a name="l06071"></a><span class="lineno"> 6071</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06072"></a><span class="lineno"> 6072</span>  }</div><div class="line"><a name="l06073"></a><span class="lineno"> 6073</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> <= 0) {</div><div class="line"><a name="l06074"></a><span class="lineno"> 6074</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, x, 1);</div><div class="line"><a name="l06075"></a><span class="lineno"> 6075</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06076"></a><span class="lineno"> 6076</span>  }</div><div class="line"><a name="l06077"></a><span class="lineno"> 6077</span> </div><div class="line"><a name="l06078"></a><span class="lineno"> 6078</span>  <span class="comment">/* satisfy: x->exponent > 0 */</span></div><div class="line"><a name="l06079"></a><span class="lineno"> 6079</span> </div><div class="line"><a name="l06080"></a><span class="lineno"> 6080</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = x-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> - (size_t)x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l06081"></a><span class="lineno"> 6081</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a9e04209162ea72f9985338596262b657">Min</a>(y-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>, y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l06082"></a><span class="lineno"> 6082</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> = 0;</div><div class="line"><a name="l06083"></a><span class="lineno"> 6083</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(y, <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x));</div><div class="line"><a name="l06084"></a><span class="lineno"> 6084</span>  ind_y = 0;</div><div class="line"><a name="l06085"></a><span class="lineno"> 6085</span>  my = y-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>;</div><div class="line"><a name="l06086"></a><span class="lineno"> 6086</span>  ind_x = x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>;</div><div class="line"><a name="l06087"></a><span class="lineno"> 6087</span>  <span class="keywordflow">while</span> (ind_y < my) {</div><div class="line"><a name="l06088"></a><span class="lineno"> 6088</span>  y-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_y] = x-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[ind_x];</div><div class="line"><a name="l06089"></a><span class="lineno"> 6089</span>  ++ind_y;</div><div class="line"><a name="l06090"></a><span class="lineno"> 6090</span>  ++ind_x;</div><div class="line"><a name="l06091"></a><span class="lineno"> 6091</span>  }</div><div class="line"><a name="l06092"></a><span class="lineno"> 6092</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a>(y);</div><div class="line"><a name="l06093"></a><span class="lineno"> 6093</span> </div><div class="line"><a name="l06094"></a><span class="lineno"> 6094</span> Exit:</div><div class="line"><a name="l06095"></a><span class="lineno"> 6095</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l06096"></a><span class="lineno"> 6096</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l06097"></a><span class="lineno"> 6097</span>  VPrint(stdout, <span class="stringliteral">"VpFrac y=%\n"</span>, y);</div><div class="line"><a name="l06098"></a><span class="lineno"> 6098</span>  VPrint(stdout, <span class="stringliteral">" x=%\n"</span>, x);</div><div class="line"><a name="l06099"></a><span class="lineno"> 6099</span>  }</div><div class="line"><a name="l06100"></a><span class="lineno"> 6100</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l06101"></a><span class="lineno"> 6101</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l06102"></a><span class="lineno"> 6102</span> }</div><div class="line"><a name="l06103"></a><span class="lineno"> 6103</span> </div><div class="line"><a name="l06104"></a><span class="lineno"> 6104</span> <span class="comment">/*</span></div><div class="line"><a name="l06105"></a><span class="lineno"> 6105</span> <span class="comment"> * y = x ** n</span></div><div class="line"><a name="l06106"></a><span class="lineno"> 6106</span> <span class="comment"> */</span></div><div class="line"><a name="l06107"></a><span class="lineno"> 6107</span> <a class="code" href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a> <span class="keywordtype">int</span></div><div class="line"><a name="l06108"></a><span class="lineno"><a class="line" href="../../d0/da5/bigdecimal_8h.html#ae29a5249c8de18d0273189734679ac84"> 6108</a></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ae29a5249c8de18d0273189734679ac84">VpPower</a>(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> *y, <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *x, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a> n)</div><div class="line"><a name="l06109"></a><span class="lineno"> 6109</span> {</div><div class="line"><a name="l06110"></a><span class="lineno"> 6110</span>  <span class="keywordtype">size_t</span> s, ss;</div><div class="line"><a name="l06111"></a><span class="lineno"> 6111</span>  ssize_t sign;</div><div class="line"><a name="l06112"></a><span class="lineno"> 6112</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *w1 = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06113"></a><span class="lineno"> 6113</span>  <a class="code" href="../../d9/d5a/struct_real.html">Real</a> *w2 = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06114"></a><span class="lineno"> 6114</span> </div><div class="line"><a name="l06115"></a><span class="lineno"> 6115</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a>(x)) {</div><div class="line"><a name="l06116"></a><span class="lineno"> 6116</span>  <span class="keywordflow">if</span> (n == 0) {</div><div class="line"><a name="l06117"></a><span class="lineno"> 6117</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a>(y);</div><div class="line"><a name="l06118"></a><span class="lineno"> 6118</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06119"></a><span class="lineno"> 6119</span>  }</div><div class="line"><a name="l06120"></a><span class="lineno"> 6120</span>  sign = <a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x);</div><div class="line"><a name="l06121"></a><span class="lineno"> 6121</span>  <span class="keywordflow">if</span> (n < 0) {</div><div class="line"><a name="l06122"></a><span class="lineno"> 6122</span>  n = -n;</div><div class="line"><a name="l06123"></a><span class="lineno"> 6123</span>  <span class="keywordflow">if</span> (sign < 0) sign = (n % 2) ? -1 : 1;</div><div class="line"><a name="l06124"></a><span class="lineno"> 6124</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(y, sign);</div><div class="line"><a name="l06125"></a><span class="lineno"> 6125</span>  }</div><div class="line"><a name="l06126"></a><span class="lineno"> 6126</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l06127"></a><span class="lineno"> 6127</span>  <span class="keywordflow">if</span> (sign < 0) sign = (n % 2) ? -1 : 1;</div><div class="line"><a name="l06128"></a><span class="lineno"> 6128</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(y,sign);</div><div class="line"><a name="l06129"></a><span class="lineno"> 6129</span>  }</div><div class="line"><a name="l06130"></a><span class="lineno"> 6130</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06131"></a><span class="lineno"> 6131</span>  }</div><div class="line"><a name="l06132"></a><span class="lineno"> 6132</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a>(x)) {</div><div class="line"><a name="l06133"></a><span class="lineno"> 6133</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a>(y);</div><div class="line"><a name="l06134"></a><span class="lineno"> 6134</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06135"></a><span class="lineno"> 6135</span>  }</div><div class="line"><a name="l06136"></a><span class="lineno"> 6136</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a>(x)) {</div><div class="line"><a name="l06137"></a><span class="lineno"> 6137</span>  <span class="keywordflow">if</span> (n == 0) {</div><div class="line"><a name="l06138"></a><span class="lineno"> 6138</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a>(y);</div><div class="line"><a name="l06139"></a><span class="lineno"> 6139</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06140"></a><span class="lineno"> 6140</span>  }</div><div class="line"><a name="l06141"></a><span class="lineno"> 6141</span>  <span class="keywordflow">if</span> (n > 0) {</div><div class="line"><a name="l06142"></a><span class="lineno"> 6142</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a>(y, (n % 2 == 0 || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(x)) ? 1 : -1);</div><div class="line"><a name="l06143"></a><span class="lineno"> 6143</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06144"></a><span class="lineno"> 6144</span>  }</div><div class="line"><a name="l06145"></a><span class="lineno"> 6145</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a>(y, (n % 2 == 0 || <a class="code" href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a>(x)) ? 1 : -1);</div><div class="line"><a name="l06146"></a><span class="lineno"> 6146</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06147"></a><span class="lineno"> 6147</span>  }</div><div class="line"><a name="l06148"></a><span class="lineno"> 6148</span> </div><div class="line"><a name="l06149"></a><span class="lineno"> 6149</span>  <span class="keywordflow">if</span> (x-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a> == 1 && x-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> == 1 && x-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[0] == 1) {</div><div class="line"><a name="l06150"></a><span class="lineno"> 6150</span>  <span class="comment">/* abs(x) = 1 */</span></div><div class="line"><a name="l06151"></a><span class="lineno"> 6151</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a>(y);</div><div class="line"><a name="l06152"></a><span class="lineno"> 6152</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a>(x) > 0) <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06153"></a><span class="lineno"> 6153</span>  <span class="keywordflow">if</span> ((n % 2) == 0) <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06154"></a><span class="lineno"> 6154</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a>(y, -1);</div><div class="line"><a name="l06155"></a><span class="lineno"> 6155</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06156"></a><span class="lineno"> 6156</span>  }</div><div class="line"><a name="l06157"></a><span class="lineno"> 6157</span> </div><div class="line"><a name="l06158"></a><span class="lineno"> 6158</span>  <span class="keywordflow">if</span> (n > 0) sign = 1;</div><div class="line"><a name="l06159"></a><span class="lineno"> 6159</span>  <span class="keywordflow">else</span> <span class="keywordflow">if</span> (n < 0) {</div><div class="line"><a name="l06160"></a><span class="lineno"> 6160</span>  sign = -1;</div><div class="line"><a name="l06161"></a><span class="lineno"> 6161</span>  n = -n;</div><div class="line"><a name="l06162"></a><span class="lineno"> 6162</span>  }</div><div class="line"><a name="l06163"></a><span class="lineno"> 6163</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l06164"></a><span class="lineno"> 6164</span>  <a class="code" href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a>(y);</div><div class="line"><a name="l06165"></a><span class="lineno"> 6165</span>  <span class="keywordflow">goto</span> Exit;</div><div class="line"><a name="l06166"></a><span class="lineno"> 6166</span>  }</div><div class="line"><a name="l06167"></a><span class="lineno"> 6167</span> </div><div class="line"><a name="l06168"></a><span class="lineno"> 6168</span>  <span class="comment">/* Allocate working variables */</span></div><div class="line"><a name="l06169"></a><span class="lineno"> 6169</span> </div><div class="line"><a name="l06170"></a><span class="lineno"> 6170</span>  w1 = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>((y-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> + 2) * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l06171"></a><span class="lineno"> 6171</span>  w2 = <a class="code" href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a>((w1-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> * 2 + 1) * <a class="code" href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a>, <span class="stringliteral">"#0"</span>);</div><div class="line"><a name="l06172"></a><span class="lineno"> 6172</span>  <span class="comment">/* calculation start */</span></div><div class="line"><a name="l06173"></a><span class="lineno"> 6173</span> </div><div class="line"><a name="l06174"></a><span class="lineno"> 6174</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, x, 1);</div><div class="line"><a name="l06175"></a><span class="lineno"> 6175</span>  --n;</div><div class="line"><a name="l06176"></a><span class="lineno"> 6176</span>  <span class="keywordflow">while</span> (n > 0) {</div><div class="line"><a name="l06177"></a><span class="lineno"> 6177</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(w1, x, 1);</div><div class="line"><a name="l06178"></a><span class="lineno"> 6178</span>  s = 1;</div><div class="line"><a name="l06179"></a><span class="lineno"> 6179</span>  <span class="keywordflow">while</span> (ss = s, (s += s) <= (<span class="keywordtype">size_t</span>)n) {</div><div class="line"><a name="l06180"></a><span class="lineno"> 6180</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(w2, w1, w1);</div><div class="line"><a name="l06181"></a><span class="lineno"> 6181</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(w1, w2, 1);</div><div class="line"><a name="l06182"></a><span class="lineno"> 6182</span>  }</div><div class="line"><a name="l06183"></a><span class="lineno"> 6183</span>  n -= (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a>)ss;</div><div class="line"><a name="l06184"></a><span class="lineno"> 6184</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a>(w2, y, w1);</div><div class="line"><a name="l06185"></a><span class="lineno"> 6185</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, w2, 1);</div><div class="line"><a name="l06186"></a><span class="lineno"> 6186</span>  }</div><div class="line"><a name="l06187"></a><span class="lineno"> 6187</span>  <span class="keywordflow">if</span> (sign < 0) {</div><div class="line"><a name="l06188"></a><span class="lineno"> 6188</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a>(w1, w2, <a class="code" href="../../de/d07/bigdecimal_8c.html#a7ec724265fbe57c34f54875aa958460d">VpConstOne</a>, y);</div><div class="line"><a name="l06189"></a><span class="lineno"> 6189</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a>(y, w1, 1);</div><div class="line"><a name="l06190"></a><span class="lineno"> 6190</span>  }</div><div class="line"><a name="l06191"></a><span class="lineno"> 6191</span> </div><div class="line"><a name="l06192"></a><span class="lineno"> 6192</span> Exit:</div><div class="line"><a name="l06193"></a><span class="lineno"> 6193</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l06194"></a><span class="lineno"> 6194</span>  <span class="keywordflow">if</span> (gfDebug) {</div><div class="line"><a name="l06195"></a><span class="lineno"> 6195</span>  VPrint(stdout, <span class="stringliteral">"VpPower y=%\n"</span>, y);</div><div class="line"><a name="l06196"></a><span class="lineno"> 6196</span>  VPrint(stdout, <span class="stringliteral">"VpPower x=%\n"</span>, x);</div><div class="line"><a name="l06197"></a><span class="lineno"> 6197</span>  printf(<span class="stringliteral">" n=%d\n"</span>, n);</div><div class="line"><a name="l06198"></a><span class="lineno"> 6198</span>  }</div><div class="line"><a name="l06199"></a><span class="lineno"> 6199</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l06200"></a><span class="lineno"> 6200</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(w2);</div><div class="line"><a name="l06201"></a><span class="lineno"> 6201</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a>(w1);</div><div class="line"><a name="l06202"></a><span class="lineno"> 6202</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l06203"></a><span class="lineno"> 6203</span> }</div><div class="line"><a name="l06204"></a><span class="lineno"> 6204</span> </div><div class="line"><a name="l06205"></a><span class="lineno"> 6205</span> <span class="preprocessor">#ifdef BIGDECIMAL_DEBUG</span></div><div class="line"><a name="l06206"></a><span class="lineno"> 6206</span> <span class="keywordtype">int</span></div><div class="line"><a name="l06207"></a><span class="lineno"> 6207</span> VpVarCheck(<a class="code" href="../../d9/d5a/struct_real.html">Real</a> * v)</div><div class="line"><a name="l06208"></a><span class="lineno"> 6208</span> <span class="comment">/*</span></div><div class="line"><a name="l06209"></a><span class="lineno"> 6209</span> <span class="comment"> * Checks the validity of the Real variable v.</span></div><div class="line"><a name="l06210"></a><span class="lineno"> 6210</span> <span class="comment"> * [Input]</span></div><div class="line"><a name="l06211"></a><span class="lineno"> 6211</span> <span class="comment"> * v ... Real *, variable to be checked.</span></div><div class="line"><a name="l06212"></a><span class="lineno"> 6212</span> <span class="comment"> * [Returns]</span></div><div class="line"><a name="l06213"></a><span class="lineno"> 6213</span> <span class="comment"> * 0 ... correct v.</span></div><div class="line"><a name="l06214"></a><span class="lineno"> 6214</span> <span class="comment"> * other ... error</span></div><div class="line"><a name="l06215"></a><span class="lineno"> 6215</span> <span class="comment"> */</span></div><div class="line"><a name="l06216"></a><span class="lineno"> 6216</span> {</div><div class="line"><a name="l06217"></a><span class="lineno"> 6217</span>  <span class="keywordtype">size_t</span> i;</div><div class="line"><a name="l06218"></a><span class="lineno"> 6218</span> </div><div class="line"><a name="l06219"></a><span class="lineno"> 6219</span>  <span class="keywordflow">if</span> (v-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a> == 0) {</div><div class="line"><a name="l06220"></a><span class="lineno"> 6220</span>  printf(<span class="stringliteral">"ERROR(VpVarCheck): Illegal Max. Precision(=%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">")\n"</span>,</div><div class="line"><a name="l06221"></a><span class="lineno"> 6221</span>  v-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l06222"></a><span class="lineno"> 6222</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l06223"></a><span class="lineno"> 6223</span>  }</div><div class="line"><a name="l06224"></a><span class="lineno"> 6224</span>  <span class="keywordflow">if</span> (v-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> == 0 || v-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a> > v-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>) {</div><div class="line"><a name="l06225"></a><span class="lineno"> 6225</span>  printf(<span class="stringliteral">"ERROR(VpVarCheck): Illegal Precision(=%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">")\n"</span>, v-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>);</div><div class="line"><a name="l06226"></a><span class="lineno"> 6226</span>  printf(<span class="stringliteral">" Max. Prec.=%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">"\n"</span>, v-><a class="code" href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">MaxPrec</a>);</div><div class="line"><a name="l06227"></a><span class="lineno"> 6227</span>  <span class="keywordflow">return</span> 2;</div><div class="line"><a name="l06228"></a><span class="lineno"> 6228</span>  }</div><div class="line"><a name="l06229"></a><span class="lineno"> 6229</span>  <span class="keywordflow">for</span> (i = 0; i < v-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>; ++i) {</div><div class="line"><a name="l06230"></a><span class="lineno"> 6230</span>  <span class="keywordflow">if</span> (v-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i] >= <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>) {</div><div class="line"><a name="l06231"></a><span class="lineno"> 6231</span>  printf(<span class="stringliteral">"ERROR(VpVarCheck): Illegal fraction\n"</span>);</div><div class="line"><a name="l06232"></a><span class="lineno"> 6232</span>  printf(<span class="stringliteral">" Frac[%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">"]=%lu\n"</span>, i, v-><a class="code" href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">frac</a>[i]);</div><div class="line"><a name="l06233"></a><span class="lineno"> 6233</span>  printf(<span class="stringliteral">" Prec. =%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a><span class="stringliteral">"\n"</span>, v-><a class="code" href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Prec</a>);</div><div class="line"><a name="l06234"></a><span class="lineno"> 6234</span>  printf(<span class="stringliteral">" Exp. =%"</span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#a158b527584596ec1f7cf812a0d2fd16a">PRIdVALUE</a><span class="stringliteral">"\n"</span>, v-><a class="code" href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">exponent</a>);</div><div class="line"><a name="l06235"></a><span class="lineno"> 6235</span>  printf(<span class="stringliteral">" BASE =%lu\n"</span>, <a class="code" href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a>);</div><div class="line"><a name="l06236"></a><span class="lineno"> 6236</span>  <span class="keywordflow">return</span> 3;</div><div class="line"><a name="l06237"></a><span class="lineno"> 6237</span>  }</div><div class="line"><a name="l06238"></a><span class="lineno"> 6238</span>  }</div><div class="line"><a name="l06239"></a><span class="lineno"> 6239</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l06240"></a><span class="lineno"> 6240</span> }</div><div class="line"><a name="l06241"></a><span class="lineno"> 6241</span> <span class="preprocessor">#endif </span><span class="comment">/* BIGDECIMAL_DEBUG */</span><span class="preprocessor"></span></div><div class="ttc" id="bigdecimal_8c_html_a02d79484ac6b0630e115c760bce71f62"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a02d79484ac6b0630e115c760bce71f62">VpDivd</a></div><div class="ttdeci">VP_EXPORT size_t VpDivd(Real *c, Real *r, Real *a, Real *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04622">bigdecimal.c:4622</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a211c1231a80bd2b30ead108f0b6029a6"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a211c1231a80bd2b30ead108f0b6029a6">VpToString</a></div><div class="ttdeci">VP_EXPORT void VpToString(Real *a, char *psz, size_t fFmt, int fPlus)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05205">bigdecimal.c:5205</a></div></div> <div class="ttc" id="bigdecimal_8c_html_afa988d7eb61defaac42ece03d19c2e66"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#afa988d7eb61defaac42ece03d19c2e66">VpGetDoublePosInf</a></div><div class="ttdeci">VP_EXPORT double VpGetDoublePosInf(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03549">bigdecimal.c:3549</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ac9aadbc1e9c456506a4d7eef5cdc787e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac9aadbc1e9c456506a4d7eef5cdc787e">T_SYMBOL</a></div><div class="ttdeci">#define T_SYMBOL</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00494">ruby.h:494</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ab615ddd0d086b80219cd7e0345d6b5ef"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ab615ddd0d086b80219cd7e0345d6b5ef">ISDIGIT</a></div><div class="ttdeci">#define ISDIGIT(c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01783">ruby.h:1783</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aa33f1d5c5fafc96f132763c64f9cc9bf"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aa33f1d5c5fafc96f132763c64f9cc9bf">id_up</a></div><div class="ttdeci">static ID id_up</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00051">bigdecimal.c:51</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a4886a8f966a69949cefc46a6a3468006"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a4886a8f966a69949cefc46a6a3468006">Max</a></div><div class="ttdeci">#define Max(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00262">bigdecimal.h:262</a></div></div> <div class="ttc" id="isinf_8c_html_a5bc81aade6dcbcbdb6984e9b1a42e836"><div class="ttname"><a href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a></div><div class="ttdeci">static double zero(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00051">isinf.c:51</a></div></div> <div class="ttc" id="bigdecimal_8h_html"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html">bigdecimal.h</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a2f6d6d786ec3e7b4fe54474966f499ec"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a2f6d6d786ec3e7b4fe54474966f499ec">id_half_even</a></div><div class="ttdeci">static ID id_half_even</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00057">bigdecimal.c:57</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a55eb47e6caadf7d8c9f124377115577b"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a55eb47e6caadf7d8c9f124377115577b">BigDecimal_coerce</a></div><div class="ttdeci">static VALUE BigDecimal_coerce(VALUE self, VALUE other)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00790">bigdecimal.c:790</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a9828831d7d8bbd6188470806e6d35e1d"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a9828831d7d8bbd6188470806e6d35e1d">RMPD_EXCEPTION_MODE_DEFAULT</a></div><div class="ttdeci">#define RMPD_EXCEPTION_MODE_DEFAULT</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00128">bigdecimal.h:128</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a2eccbb6caa890a42323c4264e5af745e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a2eccbb6caa890a42323c4264e5af745e">VpAddAbs</a></div><div class="ttdeci">static BDIGIT VpAddAbs(Real *a, Real *b, Real *c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04172">bigdecimal.c:4172</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a4b2b55e7e49ea2dc6f032078d76f4a38"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a4b2b55e7e49ea2dc6f032078d76f4a38">VpSetPTR</a></div><div class="ttdeci">static size_t VpSetPTR(Real *a, Real *b, Real *c, size_t *a_pos, size_t *b_pos, size_t *c_pos, BDIGIT *av, BDIGIT *bv)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04383">bigdecimal.c:4383</a></div></div> <div class="ttc" id="struct_real_html_a6f1bf765523a6d809566dc1a4d1d781e"><div class="ttname"><a href="../../d9/d5a/struct_real.html#a6f1bf765523a6d809566dc1a4d1d781e">Real::exponent</a></div><div class="ttdeci">SIGNED_VALUE exponent</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00168">bigdecimal.h:168</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a0ac8ed0a9c0540f4de2a1dc3417c8ea5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0ac8ed0a9c0540f4de2a1dc3417c8ea5">id_BigDecimal_rounding_mode</a></div><div class="ttdeci">static ID id_BigDecimal_rounding_mode</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00048">bigdecimal.c:48</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac678ecb00699b93cc8a02d61a36a38f2"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac678ecb00699b93cc8a02d61a36a38f2">BigDecimal_lt</a></div><div class="ttdeci">static VALUE BigDecimal_lt(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01087">bigdecimal.c:1087</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a2576fd6820d58e17b081278528117b5a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a2576fd6820d58e17b081278528117b5a">BigDecimal_sign</a></div><div class="ttdeci">static VALUE BigDecimal_sign(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02594">bigdecimal.c:2594</a></div></div> <div class="ttc" id="bigdecimal_8c_html_adb416501e79900f33e8d5f41d8b6d56a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#adb416501e79900f33e8d5f41d8b6d56a">VpException</a></div><div class="ttdeci">VP_EXPORT int VpException(unsigned short f, const char *str, int always)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03582">bigdecimal.c:3582</a></div></div> <div class="ttc" id="error_8c_html_a2d5fb28e54f792e7341b2c45f52f3860"><div class="ttname"><a href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a></div><div class="ttdeci">void rb_bug(const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00327">error.c:327</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a8ac9b7da4c384cb034bdf421d2c3467d"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a8ac9b7da4c384cb034bdf421d2c3467d">RUBY_TYPED_FREE_IMMEDIATELY</a></div><div class="ttdeci">#define RUBY_TYPED_FREE_IMMEDIATELY</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01015">ruby.h:1015</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a5cea7f6f29d3c527b43b035e4a404611"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a5cea7f6f29d3c527b43b035e4a404611">BigDecimal_power</a></div><div class="ttdeci">static VALUE BigDecimal_power(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02184">bigdecimal.c:2184</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a695266ada901d83aa2f8e6bc06e2f8d8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a695266ada901d83aa2f8e6bc06e2f8d8">VpFormatSt</a></div><div class="ttdeci">static void VpFormatSt(char *psz, size_t fFmt)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05081">bigdecimal.c:5081</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac8975974ba962574fb9b99ffb18c0ce1"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac8975974ba962574fb9b99ffb18c0ce1">BigDecimal_load</a></div><div class="ttdeci">static VALUE BigDecimal_load(VALUE self, VALUE str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00376">bigdecimal.c:376</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a9e04209162ea72f9985338596262b657"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a9e04209162ea72f9985338596262b657">Min</a></div><div class="ttdeci">#define Min(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00263">bigdecimal.h:263</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="ruby_2ruby_8h_html_a7bce65407b21f6812267e8d5426201f0"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a></div><div class="ttdeci">#define INT2NUM(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01296">ruby.h:1296</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aee9c0b939acd1671730ec28bb6fedf6e"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aee9c0b939acd1671730ec28bb6fedf6e">VP_ROUND_HALF_UP</a></div><div class="ttdeci">#define VP_ROUND_HALF_UP</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00134">bigdecimal.h:134</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ae25191e34dc51c7c90bdc007f22c7720"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ae25191e34dc51c7c90bdc007f22c7720">BigDecimal_div3</a></div><div class="ttdeci">static VALUE BigDecimal_div3(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01506">bigdecimal.c:1506</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a523855de5546c34061e030f4606db3e9"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a></div><div class="ttdeci">#define T_FIXNUM</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00489">ruby.h:489</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a6c872656b86006154c1c08219e863cf5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a6c872656b86006154c1c08219e863cf5">BigDecimal_to_r</a></div><div class="ttdeci">static VALUE BigDecimal_to_r(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00744">bigdecimal.c:744</a></div></div> <div class="ttc" id="intern_8h_html_a17cabf4b55fb751395d380fae6174b3e"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a17cabf4b55fb751395d380fae6174b3e">rb_Rational</a></div><div class="ttdeci">VALUE rb_Rational(VALUE, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d7/d50/rational_8c_source.html#l01770">rational.c:1770</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a3aeb5ceb34a7c1d486ccc8146565f229"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a3aeb5ceb34a7c1d486ccc8146565f229">SAVE</a></div><div class="ttdeci">#define SAVE(p)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00068">bigdecimal.c:68</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aa82f785f0abe75a1569197552afa61b9"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aa82f785f0abe75a1569197552afa61b9">BigDecimal_abs</a></div><div class="ttdeci">static VALUE BigDecimal_abs(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01587">bigdecimal.c:1587</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a85a84ce53e8d757a725709841505a302"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a85a84ce53e8d757a725709841505a302">is_zero</a></div><div class="ttdeci">static int is_zero(VALUE x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02087">bigdecimal.c:2087</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a552b38101cc30fd0bd1e019e09cc6ee6"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a552b38101cc30fd0bd1e019e09cc6ee6">GetVpValue</a></div><div class="ttdeci">static Real * GetVpValue(VALUE v, int must)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00276">bigdecimal.c:276</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a1a4b9912b0bc65738fd2df90414f9c1a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a1a4b9912b0bc65738fd2df90414f9c1a">BigMath_exp</a></div><div class="ttdeci">#define BigMath_exp(x, n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02060">bigdecimal.c:2060</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ad819f88e9d71caaa088391040fab2092"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad819f88e9d71caaa088391040fab2092">id_truncate</a></div><div class="ttdeci">static ID id_truncate</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00053">bigdecimal.c:53</a></div></div> <div class="ttc" id="group__defmethod_html_gaacfe6a2ec444bdc7f573afb75ea251fe"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a></div><div class="ttdeci">void rb_define_singleton_method(VALUE obj, const char *name, VALUE(*func)(ANYARGS), int argc)</div><div class="ttdoc">Defines a singleton method for obj. </div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01646">class.c:1646</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aeadb5e4d0b30269ffc034396c5b5e53f"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aeadb5e4d0b30269ffc034396c5b5e53f">BigDecimal_truncate</a></div><div class="ttdeci">static VALUE BigDecimal_truncate(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01720">bigdecimal.c:1720</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a1b439c6523d46899372d9ef3c782bb03"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a1b439c6523d46899372d9ef3c782bb03">VP_ROUND_DOWN</a></div><div class="ttdeci">#define VP_ROUND_DOWN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00133">bigdecimal.h:133</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#l00067">numeric.c:67</a></div></div> <div class="ttc" id="struct_real_html_aa878828141e79fece743d1710501cc8a"><div class="ttname"><a href="../../d9/d5a/struct_real.html#aa878828141e79fece743d1710501cc8a">Real::obj</a></div><div class="ttdeci">VALUE obj</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00161">bigdecimal.h:161</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a2080f29dbc4005c2b343ebd59ef45bc0"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a2080f29dbc4005c2b343ebd59ef45bc0">VpIsRoundMode</a></div><div class="ttdeci">VP_EXPORT int VpIsRoundMode(unsigned short n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03476">bigdecimal.c:3476</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a493243b4368cfdc2f1ce0746f7294353"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a493243b4368cfdc2f1ce0746f7294353">Zero</a></div><div class="ttdeci">static double Zero(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03515">bigdecimal.c:3515</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a1d3a9340c3ddf42971d90abea37cc2ab"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a1d3a9340c3ddf42971d90abea37cc2ab">VP_ROUND_FLOOR</a></div><div class="ttdeci">#define VP_ROUND_FLOOR</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00137">bigdecimal.h:137</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a10ccfbeb8379b8f6e6a290afaa28ff69"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a10ccfbeb8379b8f6e6a290afaa28ff69">VpIsInf</a></div><div class="ttdeci">#define VpIsInf(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00296">bigdecimal.h:296</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ad0c8fd5bcbd21b0a8e0cf974faf48d6f"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ad0c8fd5bcbd21b0a8e0cf974faf48d6f">VP_SIGN_POSITIVE_FINITE</a></div><div class="ttdeci">#define VP_SIGN_POSITIVE_FINITE</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00145">bigdecimal.h:145</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a75a669482427cda562b7f13cb2223cb7"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a75a669482427cda562b7f13cb2223cb7">VpGetException</a></div><div class="ttdeci">static unsigned short VpGetException(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03390">bigdecimal.c:3390</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a1893e44fac3615235a6667a3b80c220f"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a1893e44fac3615235a6667a3b80c220f">VpIsDef</a></div><div class="ttdeci">#define VpIsDef(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00297">bigdecimal.h:297</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aacea3516b33941ce8149098e223a7466"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a></div><div class="ttdeci">#define Qtrue</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00426">ruby.h:426</a></div></div> <div class="ttc" id="bignum_8c_html_ad3ac9992e7f6cc6ce07ea0ee59302aa8"><div class="ttname"><a href="../../d1/dcc/bignum_8c.html#ad3ac9992e7f6cc6ce07ea0ee59302aa8">rb_big_pack</a></div><div class="ttdeci">void rb_big_pack(VALUE val, unsigned long *buf, long num_longs)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/dcc/bignum_8c_source.html#l03199">bignum.c:3199</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aa8f544c7ad94d9b0e0e6d5ca550f709c"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aa8f544c7ad94d9b0e0e6d5ca550f709c">VP_SIGN_NEGATIVE_ZERO</a></div><div class="ttdeci">#define VP_SIGN_NEGATIVE_ZERO</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00144">bigdecimal.h:144</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aa3094c0054b80ec2a7e50f9fe1e5f4b2"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa3094c0054b80ec2a7e50f9fe1e5f4b2">TypedData_Wrap_Struct</a></div><div class="ttdeci">#define TypedData_Wrap_Struct(klass, data_type, sval)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01027">ruby.h:1027</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7f204ca737708bfa311decc1eb647a62"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7f204ca737708bfa311decc1eb647a62">BigDecimal_eq</a></div><div class="ttdeci">static VALUE BigDecimal_eq(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01074">bigdecimal.c:1074</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a6e61d7e60f95e591efc4d7471e0ad3c5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a6e61d7e60f95e591efc4d7471e0ad3c5">id_default</a></div><div class="ttdeci">static ID id_default</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00055">bigdecimal.c:55</a></div></div> <div class="ttc" id="nkf-utf8_2nkf_8c_html_a64ae40793ade89d800a8c5646d2980fc"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#a64ae40793ade89d800a8c5646d2980fc">id</a></div><div class="ttdeci">const int id</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l00209">nkf.c:209</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ab8cc007385a8d225a46de99d71402ef8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ab8cc007385a8d225a46de99d71402ef8">BigDecimal_DoDivmod</a></div><div class="ttdeci">static VALUE BigDecimal_DoDivmod(VALUE self, VALUE r, Real **div, Real **mod)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01271">bigdecimal.c:1271</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a15d99752d2605bf5059fcdbff9d4d1e8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a15d99752d2605bf5059fcdbff9d4d1e8">ToValue</a></div><div class="ttdeci">static VALUE ToValue(Real *p)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00158">bigdecimal.c:158</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a2b905921255a1053b11290702e4b035a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a2b905921255a1053b11290702e4b035a">BigMath_s_log</a></div><div class="ttdeci">static VALUE BigMath_s_log(VALUE, VALUE, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02821">bigdecimal.c:2821</a></div></div> <div class="ttc" id="bigdecimal_8c_html_abe745ac9a1616c208a89359a189df4ce"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#abe745ac9a1616c208a89359a189df4ce">id_half_down</a></div><div class="ttdeci">static ID id_half_down</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00056">bigdecimal.c:56</a></div></div> <div class="ttc" id="error_8c_html_a565ed9d70f4089e1b4a36e9b3381b8c6"><div class="ttname"><a href="../../db/dcc/error_8c.html#a565ed9d70f4089e1b4a36e9b3381b8c6">rb_eTypeError</a></div><div class="ttdeci">VALUE rb_eTypeError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00548">error.c:548</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a804d1259cf2408f16969b2dc06b293fc"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a804d1259cf2408f16969b2dc06b293fc">T_RATIONAL</a></div><div class="ttdeci">#define T_RATIONAL</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00495">ruby.h:495</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3af99897b60119951af8961dbd52dd3f"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a></div><div class="ttdeci">#define UNREACHABLE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00042">ruby.h:42</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a1018c17daa626eb4946c20bbd6de2e3d"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a1018c17daa626eb4946c20bbd6de2e3d">VpMaxPrec</a></div><div class="ttdeci">#define VpMaxPrec(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00265">bigdecimal.h:265</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aeee2f166ec27c2e6aefc33468117fc83"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aeee2f166ec27c2e6aefc33468117fc83">BigDecimal_dump</a></div><div class="ttdeci">static VALUE BigDecimal_dump(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00354">bigdecimal.c:354</a></div></div> <div class="ttc" id="array_8c_html_a59d553a8cd781364b8bcb0deae25cca2"><div class="ttname"><a href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a></div><div class="ttdeci">VALUE rb_ary_push(VALUE ary, VALUE item)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l00900">array.c:900</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a72a65531369f3e92b0c9d239b6c46c5d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a72a65531369f3e92b0c9d239b6c46c5d">BigDecimal_limit</a></div><div class="ttdeci">static VALUE BigDecimal_limit(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02559">bigdecimal.c:2559</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a36b64216bbf295d4d792730a81e8ea29"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a36b64216bbf295d4d792730a81e8ea29">VpSetNaN</a></div><div class="ttdeci">#define VpSetNaN(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00291">bigdecimal.h:291</a></div></div> <div class="ttc" id="struct_real_html_a7420e87925b9e8c60052ba0b527c8e47"><div class="ttname"><a href="../../d9/d5a/struct_real.html#a7420e87925b9e8c60052ba0b527c8e47">Real::Prec</a></div><div class="ttdeci">size_t Prec</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00165">bigdecimal.h:165</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7d3b9883faa31ad8eb1e53e8c70bccf1"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7d3b9883faa31ad8eb1e53e8c70bccf1">BigDecimal_round</a></div><div class="ttdeci">static VALUE BigDecimal_round(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01662">bigdecimal.c:1662</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a776970a589bbbd27eda68a5089273b11"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a776970a589bbbd27eda68a5089273b11">VpRdup</a></div><div class="ttdeci">static int VpRdup(Real *m, size_t ind_m)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l06034">bigdecimal.c:6034</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_afbfe440decf2cbee08b00b297fa8d727"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#afbfe440decf2cbee08b00b297fa8d727">rb_eMathDomainError</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_eMathDomainError</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01633">ruby.h:1633</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a5a8a0a36dbacb1ec73a860b8fd6a61a1"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a5a8a0a36dbacb1ec73a860b8fd6a61a1">SYM2ID</a></div><div class="ttdeci">#define SYM2ID(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00356">ruby.h:356</a></div></div> <div class="ttc" id="intern_8h_html_a467461650cee651125cdac471160b9cd"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a467461650cee651125cdac471160b9cd">rb_memhash</a></div><div class="ttdeci">st_index_t rb_memhash(const void *ptr, long len)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/de5/random_8c_source.html#l01302">random.c:1302</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a889731484a3e17594f791993d5a0a41e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a889731484a3e17594f791993d5a0a41e">BigMath_s_exp</a></div><div class="ttdeci">static VALUE BigMath_s_exp(VALUE, VALUE, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02690">bigdecimal.c:2690</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a4b6c6a842817d1e9093a218dee48b0ce"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a4b6c6a842817d1e9093a218dee48b0ce">VpGetRoundMode</a></div><div class="ttdeci">VP_EXPORT unsigned short VpGetRoundMode(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03460">bigdecimal.c:3460</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a73e5550509e9695d11bcb1ce410e6ea0"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a73e5550509e9695d11bcb1ce410e6ea0">VpSetRoundMode</a></div><div class="ttdeci">VP_EXPORT unsigned short VpSetRoundMode(unsigned short n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03494">bigdecimal.c:3494</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a6a973fe624aa9aa9ba0cdeb6792d3187"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a></div><div class="ttdeci">VALUE rb_funcall(VALUE, ID, int,...)</div><div class="ttdoc">Calls a method. </div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l00781">vm_eval.c:781</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a349fa12d5399ab7c1fc7b3b7373ccdf2"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a349fa12d5399ab7c1fc7b3b7373ccdf2">BigDecimal_mod</a></div><div class="ttdeci">static VALUE BigDecimal_mod(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01359">bigdecimal.c:1359</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a4be1a4728b4b84da9b53c6b8896def68"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a4be1a4728b4b84da9b53c6b8896def68">VpDtoV</a></div><div class="ttdeci">VP_EXPORT void VpDtoV(Real *m, double d)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05543">bigdecimal.c:5543</a></div></div> <div class="ttc" id="eval_8c_html_a6aa7fb1169ed41978a16375b6f921b0e"><div class="ttname"><a href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a></div><div class="ttdeci">VALUE rb_protect(VALUE(*proc)(VALUE), VALUE data, int *state)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00807">eval.c:807</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac25039bb994269327db8790acb58f570"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac25039bb994269327db8790acb58f570">is_positive</a></div><div class="ttdeci">#define is_positive(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02084">bigdecimal.c:2084</a></div></div> <div class="ttc" id="win32ole_8c_html_a6fb3b37b30ac3874008f653ed9765309"><div class="ttname"><a href="../../d2/d99/win32ole_8c.html#a6fb3b37b30ac3874008f653ed9765309">if</a></div><div class="ttdeci">if((ID)(DISPID) nameid !=nameid)</div><div class="ttdef"><b>Definition:</b> <a href="../../d2/d99/win32ole_8c_source.html#l00770">win32ole.c:770</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aa1bf33f94a5de592de48c16fcfe86db2"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa1bf33f94a5de592de48c16fcfe86db2">PRIxVALUE</a></div><div class="ttdeci">#define PRIxVALUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00135">ruby.h:135</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a8668370e030d3fb2d3b1dc7f1fd4436a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8668370e030d3fb2d3b1dc7f1fd4436a">cannot_be_coerced_into_BigDecimal</a></div><div class="ttdeci">static void cannot_be_coerced_into_BigDecimal(VALUE exc_class, VALUE v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00175">bigdecimal.c:175</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ad5a1e03b0a66824f95f6aaf07b4a4052"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a></div><div class="ttdeci">#define Check_Type(v, t)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00532">ruby.h:532</a></div></div> <div class="ttc" id="error_8c_html_a0f771a2840561f1838169b3d7d4616f3"><div class="ttname"><a href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a></div><div class="ttdeci">void rb_raise(VALUE exc, const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l01857">error.c:1857</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a61b4400d4f983db01b999edf52387ced"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a61b4400d4f983db01b999edf52387ced">VpFrac</a></div><div class="ttdeci">VP_EXPORT void VpFrac(Real *y, Real *x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l06060">bigdecimal.c:6060</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a22784e02086ce1ef3f4d8394804e76fa"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a22784e02086ce1ef3f4d8394804e76fa">VP_SIGN_POSITIVE_ZERO</a></div><div class="ttdeci">#define VP_SIGN_POSITIVE_ZERO</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00143">bigdecimal.h:143</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a563728ffb7fcfed5a35175b4643fac56"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a563728ffb7fcfed5a35175b4643fac56">BigDecimal_sqrt</a></div><div class="ttdeci">static VALUE BigDecimal_sqrt(VALUE self, VALUE nFig)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01609">bigdecimal.c:1609</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a8aa2ce26d266baf56c9068a693d6073e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a8aa2ce26d266baf56c9068a693d6073e">RB_GC_GUARD</a></div><div class="ttdeci">#define RB_GC_GUARD(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00523">ruby.h:523</a></div></div> <div class="ttc" id="intern_8h_html_a6c99ed7f070458b961026d43d27d0642"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a6c99ed7f070458b961026d43d27d0642">rb_define_alloc_func</a></div><div class="ttdeci">void rb_define_alloc_func(VALUE, rb_alloc_func_t)</div></div> <div class="ttc" id="bigdecimal_8c_html_a8606c0e96ec49303d7dadb3df3841c52"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8606c0e96ec49303d7dadb3df3841c52">VpSetException</a></div><div class="ttdeci">static void VpSetException(unsigned short f)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03406">bigdecimal.c:3406</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_abb509cfdf6560a9f795b1f6932d93691"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a></div><div class="ttdeci">#define DATA_PTR(dta)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00992">ruby.h:992</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a77487cab033862462c80f665bb3693b0"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a77487cab033862462c80f665bb3693b0">VP_ROUND_HALF_DOWN</a></div><div class="ttdeci">#define VP_ROUND_HALF_DOWN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00135">bigdecimal.h:135</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ab1bc31d57e2eecadb93b4a90d29a1a28"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ab1bc31d57e2eecadb93b4a90d29a1a28">VP_SIGN_POSITIVE_INFINITE</a></div><div class="ttdeci">#define VP_SIGN_POSITIVE_INFINITE</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00147">bigdecimal.h:147</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ab2726f87fe36be3177b3aef61eb82c46"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ab2726f87fe36be3177b3aef61eb82c46">VP_EXCEPTION_OVERFLOW</a></div><div class="ttdeci">#define VP_EXCEPTION_OVERFLOW</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00121">bigdecimal.h:121</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a743d884df5747a7bde2403ced5ed765a"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a743d884df5747a7bde2403ced5ed765a">VpIsPosInf</a></div><div class="ttdeci">#define VpIsPosInf(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00294">bigdecimal.h:294</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a87f9f22c8e1a6bed3ee09e82437e2ec3"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a87f9f22c8e1a6bed3ee09e82437e2ec3">RRATIONAL_NEGATIVE_P</a></div><div class="ttdeci">#define RRATIONAL_NEGATIVE_P(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00091">bigdecimal.c:91</a></div></div> <div class="ttc" id="st_8h_html_ac214e5cdcf0de6a2108b9643e7fc12e0"><div class="ttname"><a href="../../dd/d24/st_8h.html#ac214e5cdcf0de6a2108b9643e7fc12e0">st_index_t</a></div><div class="ttdeci">st_data_t st_index_t</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/d24/st_8h_source.html#l00048">st.h:48</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac3fe6c73c4f33c17531316265dd89d52"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac3fe6c73c4f33c17531316265dd89d52">BigDecimal_prec</a></div><div class="ttdeci">static VALUE BigDecimal_prec(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00304">bigdecimal.c:304</a></div></div> <div class="ttc" id="bigdecimal_8c_html_acf27c16d35c11ac6e00ad7d5ed2c4f95"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#acf27c16d35c11ac6e00ad7d5ed2c4f95">BigDecimal_comp</a></div><div class="ttdeci">static VALUE BigDecimal_comp(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01058">bigdecimal.c:1058</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ad29861371973b03f2b91cb3c74839756"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad29861371973b03f2b91cb3c74839756">VpCreateRbObject</a></div><div class="ttdeci">VP_EXPORT Real * VpCreateRbObject(size_t mx, const char *str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00572">bigdecimal.c:572</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aea51d27b9066ae3647c1451fce515a74"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aea51d27b9066ae3647c1451fce515a74">VpVtoD</a></div><div class="ttdeci">VP_EXPORT int VpVtoD(double *d, SIGNED_VALUE *e, Real *m)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05479">bigdecimal.c:5479</a></div></div> <div class="ttc" id="group__defmethod_html_gac08f58e00836e4e2586689e45b781bdd"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#gac08f58e00836e4e2586689e45b781bdd">rb_define_global_function</a></div><div class="ttdeci">void rb_define_global_function(const char *name, VALUE(*func)(ANYARGS), int argc)</div><div class="ttdoc">Defines a global function. </div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01675">class.c:1675</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7b27e69a4dc2f42c91e306b98cb2b148"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7b27e69a4dc2f42c91e306b98cb2b148">is_one</a></div><div class="ttdeci">static int is_one(VALUE x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02110">bigdecimal.c:2110</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a069d7dbdff146ec66a1548176db4ee91"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a069d7dbdff146ec66a1548176db4ee91">BigDecimal_divremain</a></div><div class="ttdeci">static VALUE BigDecimal_divremain(VALUE self, VALUE r, Real **dv, Real **rv)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01372">bigdecimal.c:1372</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a149cf9b34f9e0208b56678120e603855"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a149cf9b34f9e0208b56678120e603855">BigDecimal_fix</a></div><div class="ttdeci">static VALUE BigDecimal_fix(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01628">bigdecimal.c:1628</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_acf2fcf97dcf9c7c35452730eb3e2aeb2"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#acf2fcf97dcf9c7c35452730eb3e2aeb2">FIXNUM_P</a></div><div class="ttdeci">#define FIXNUM_P(f)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00347">ruby.h:347</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3c85c1dddd05e8b60e7bde486e139742"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3c85c1dddd05e8b60e7bde486e139742">SSIZET2NUM</a></div><div class="ttdeci">#define SSIZET2NUM(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00263">ruby.h:263</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7ec724265fbe57c34f54875aa958460d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7ec724265fbe57c34f54875aa958460d">VpConstOne</a></div><div class="ttdeci">static Real * VpConstOne</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03313">bigdecimal.c:3313</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a5b2fbf236ac0dbbaee2c84fc3ac3fa6f"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a5b2fbf236ac0dbbaee2c84fc3ac3fa6f">BigDecimal_ceil</a></div><div class="ttdeci">static VALUE BigDecimal_ceil(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01829">bigdecimal.c:1829</a></div></div> <div class="ttc" id="intern_8h_html_a9c93a5402138185ceff87cb1f483c4f5"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a9c93a5402138185ceff87cb1f483c4f5">rb_str_tmp_new</a></div><div class="ttdeci">VALUE rb_str_tmp_new(long)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l00919">string.c:919</a></div></div> <div class="ttc" id="bigdecimal_8c_html_acd8468cea3ccfe4e95c788c63707af9e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#acd8468cea3ccfe4e95c788c63707af9e">BigDecimal_delete</a></div><div class="ttdeci">static void BigDecimal_delete(void *pv)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00131">bigdecimal.c:131</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a45a88487484351b69eac82ffb7d87c10"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a45a88487484351b69eac82ffb7d87c10">rb_eZeroDivError</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_eZeroDivError</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01617">ruby.h:1617</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ab6c5e758c3aa8b2ad376724d81a96158"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ab6c5e758c3aa8b2ad376724d81a96158">DoSomeOne</a></div><div class="ttdeci">#define DoSomeOne(x, y, f)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00097">bigdecimal.c:97</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ab6b6adf3ebcd85281ee3c158a738824d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ab6b6adf3ebcd85281ee3c158a738824d">VpComp</a></div><div class="ttdeci">VP_EXPORT int VpComp(Real *a, Real *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04875">bigdecimal.c:4875</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a30237aedf88dffb2e4612857bb9ebba8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a30237aedf88dffb2e4612857bb9ebba8">BigDecimal_mult2</a></div><div class="ttdeci">static VALUE BigDecimal_mult2(VALUE self, VALUE b, VALUE n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01564">bigdecimal.c:1564</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a21925945f9868efeff9d4fc708745526"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a21925945f9868efeff9d4fc708745526">GetAddSubPrec</a></div><div class="ttdeci">static size_t GetAddSubPrec(Real *a, Real *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00531">bigdecimal.c:531</a></div></div> <div class="ttc" id="nkf-utf8_2nkf_8c_html_a555e4f17d8dc6f6cae4bcfd2dcbea9ce"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#a555e4f17d8dc6f6cae4bcfd2dcbea9ce">dv</a></div><div class="ttdeci">static const unsigned char dv[]</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l00586">nkf.c:586</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a0393347c77fd136263e04f331e471422"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0393347c77fd136263e04f331e471422">id_down</a></div><div class="ttdeci">static ID id_down</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00052">bigdecimal.c:52</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aec263dd57fcd2c2a314417c6c8cd9ae9"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aec263dd57fcd2c2a314417c6c8cd9ae9">VpCopy</a></div><div class="ttdeci">static Real * VpCopy(Real *pv, Real const *const x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00583">bigdecimal.c:583</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ad19b3f3e78e9911ac2b3b63b0c0bc566"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ad19b3f3e78e9911ac2b3b63b0c0bc566">VpIsPosZero</a></div><div class="ttdeci">#define VpIsPosZero(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00282">bigdecimal.h:282</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a2f2ca8f714fe9aa28d6e8720c761c5b9"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a2f2ca8f714fe9aa28d6e8720c761c5b9">VpPrec</a></div><div class="ttdeci">#define VpPrec(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00266">bigdecimal.h:266</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a9b4f42ada717bfbe7a78830639476aed"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a9b4f42ada717bfbe7a78830639476aed">rb_obj_classname</a></div><div class="ttdeci">const char * rb_obj_classname(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l00406">variable.c:406</a></div></div> <div class="ttc" id="intern_8h_html_aec80847cff5250fc99e223d1966a2153"><div class="ttname"><a href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a></div><div class="ttdeci">#define rb_ary_new2</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00090">intern.h:90</a></div></div> <div class="ttc" id="bigdecimal_8c_html_abddd7d4048c1702709da58ecadda0bda"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#abddd7d4048c1702709da58ecadda0bda">VpMidRound</a></div><div class="ttdeci">VP_EXPORT int VpMidRound(Real *y, unsigned short f, ssize_t nf)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05783">bigdecimal.c:5783</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af80e9f5558a00f504e05021fddfbf09f"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af80e9f5558a00f504e05021fddfbf09f">VpCtoV</a></div><div class="ttdeci">VP_EXPORT int VpCtoV(Real *a, const char *int_chr, size_t ni, const char *frac, size_t nf, const char *exp_chr, size_t ne)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05319">bigdecimal.c:5319</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a55bb56400ea123b655bfdd48d9eb15f3"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a55bb56400ea123b655bfdd48d9eb15f3">VpActiveRound</a></div><div class="ttdeci">VP_EXPORT int VpActiveRound(Real *y, Real *x, unsigned short f, ssize_t nf)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05965">bigdecimal.c:5965</a></div></div> <div class="ttc" id="missing_8h_html_a809a3e9326a0d3e5aa549b17085b057d"><div class="ttname"><a href="../../d3/d90/missing_8h.html#a809a3e9326a0d3e5aa549b17085b057d">memmove</a></div><div class="ttdeci">RUBY_EXTERN void * memmove(void *, const void *, size_t)</div><div class="ttdef"><b>Definition:</b> <a href="../../da/d6f/memmove_8c_source.html#l00007">memmove.c:7</a></div></div> <div class="ttc" id="win32_8h_html_ac0484b3e3a4d8361d91c3322440f9195"><div class="ttname"><a href="../../dc/db1/win32_8h.html#ac0484b3e3a4d8361d91c3322440f9195">getchar</a></div><div class="ttdeci">#define getchar()</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/db1/win32_8h_source.html#l00144">win32.h:144</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a394f908a36012a7fe5901cb16c96498e"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a394f908a36012a7fe5901cb16c96498e">VpBaseVal</a></div><div class="ttdeci">#define VpBaseVal()</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00203">bigdecimal.h:203</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ae5ce2e7bed3d29b5374a33fcf1aeb4df"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ae5ce2e7bed3d29b5374a33fcf1aeb4df">VP_EXCEPTION_INFINITY</a></div><div class="ttdeci">#define VP_EXCEPTION_INFINITY</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00118">bigdecimal.h:118</a></div></div> <div class="ttc" id="intern_8h_html_a15b098e747732bb38336dc5a41cff43f"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a15b098e747732bb38336dc5a41cff43f">rb_thread_local_aref</a></div><div class="ttdeci">VALUE rb_thread_local_aref(VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l02765">thread.c:2765</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a187abc9b9b2cc7e2e5fe8201d95b5a8b"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a187abc9b9b2cc7e2e5fe8201d95b5a8b">SZ_INF</a></div><div class="ttdeci">#define SZ_INF</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00106">bigdecimal.h:106</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7b22d7e4fa63b870de87082a06e7c875"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7b22d7e4fa63b870de87082a06e7c875">VpNewRbClass</a></div><div class="ttdeci">VP_EXPORT Real * VpNewRbClass(size_t mx, const char *str, VALUE klass)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00564">bigdecimal.c:564</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#l00064">numeric.c:64</a></div></div> <div class="ttc" id="struct____s_f_i_l_e_html"><div class="ttname"><a href="../../db/ddf/struct____s_f_i_l_e.html">__sFILE</a></div><div class="ttdef"><b>Definition:</b> <a href="../../da/d50/vsnprintf_8c_source.html#l00175">vsnprintf.c:175</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aa284e4519eb2b478d5d86cf38d265ee3"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aa284e4519eb2b478d5d86cf38d265ee3">id_half_up</a></div><div class="ttdeci">static ID id_half_up</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00054">bigdecimal.c:54</a></div></div> <div class="ttc" id="eval_8c_html_a237939d28c83950b84fb6a45ccca53a0"><div class="ttname"><a href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a></div><div class="ttdeci">void rb_exc_raise(VALUE mesg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00567">eval.c:567</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a9fbcfa2c2698e10a718e768ceab49468"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a9fbcfa2c2698e10a718e768ceab49468">BigDecimal_mode</a></div><div class="ttdeci">static VALUE BigDecimal_mode(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00477">bigdecimal.c:477</a></div></div> <div class="ttc" id="util_8h_html_a9242b69e04b02654598efa37fb6c2185"><div class="ttname"><a href="../../d8/d3c/util_8h.html#a9242b69e04b02654598efa37fb6c2185">strtod</a></div><div class="ttdeci">#define strtod(s, e)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d3c/util_8h_source.html#l00074">util.h:74</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a7daa3bf02d8ef9d59675ae5b83abd70c"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a7daa3bf02d8ef9d59675ae5b83abd70c">VP_SIGN_NEGATIVE_FINITE</a></div><div class="ttdeci">#define VP_SIGN_NEGATIVE_FINITE</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00146">bigdecimal.h:146</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a81007732e86b09360d5dc40cbbeb5ec3"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a81007732e86b09360d5dc40cbbeb5ec3">id_ceil</a></div><div class="ttdeci">static ID id_ceil</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00060">bigdecimal.c:60</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ac4f895997656c2abd27a29a8b8e982ca"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac4f895997656c2abd27a29a8b8e982ca">RB_TYPE_P</a></div><div class="ttdeci">#define RB_TYPE_P(obj, type)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01672">ruby.h:1672</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a46850b6b4aadeda4d5d1073f3e42ea83"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a46850b6b4aadeda4d5d1073f3e42ea83">MUL_OVERFLOW_SIGNED_VALUE_P</a></div><div class="ttdeci">#define MUL_OVERFLOW_SIGNED_VALUE_P(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00042">bigdecimal.c:42</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aa22efc5bc8b21aac188e5f9c2a0c549e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aa22efc5bc8b21aac188e5f9c2a0c549e">BigDecimal_memsize</a></div><div class="ttdeci">static size_t BigDecimal_memsize(const void *ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00137">bigdecimal.c:137</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aa6addce9fe2d4f23add64815bf7d0394"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa6addce9fe2d4f23add64815bf7d0394">RRATIONAL</a></div><div class="ttdeci">#define RRATIONAL(obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01130">ruby.h:1130</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a4b778538ce920f9d867c79af0f6b1b74"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a4b778538ce920f9d867c79af0f6b1b74">BigDecimal_divmod</a></div><div class="ttdeci">static VALUE BigDecimal_divmod(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01451">bigdecimal.c:1451</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a12f1f8d381910ddaabcb67c2e910e14f"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a12f1f8d381910ddaabcb67c2e910e14f">VpIsNaN</a></div><div class="ttdeci">#define VpIsNaN(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00290">bigdecimal.h:290</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a92b8fe4240f0322f58b8b1b73e33fb6a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a92b8fe4240f0322f58b8b1b73e33fb6a">BigDecimal_inspect</a></div><div class="ttdeci">static VALUE BigDecimal_inspect(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02034">bigdecimal.c:2034</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aafbb8f3393d0988ab9c37becd37d2394"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aafbb8f3393d0988ab9c37becd37d2394">BigDecimal_divide</a></div><div class="ttdeci">static VALUE BigDecimal_divide(Real **c, Real **res, Real **div, VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01194">bigdecimal.c:1194</a></div></div> <div class="ttc" id="date__strftime_8c_html_acde9d531cfa6d2dc070c51539f0b6fdf"><div class="ttname"><a href="../../d1/d6f/date__strftime_8c.html#acde9d531cfa6d2dc070c51539f0b6fdf">div</a></div><div class="ttdeci">#define div(x, y)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/d6f/date__strftime_8c_source.html#l00027">date_strftime.c:27</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7727f7f3d03be4353ca74fb3b466aa27"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7727f7f3d03be4353ca74fb3b466aa27">BigDecimalCmp</a></div><div class="ttdeci">static VALUE BigDecimalCmp(VALUE self, VALUE r, char op)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00945">bigdecimal.c:945</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7dce62c291131453c45d5e76ca49be70"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7dce62c291131453c45d5e76ca49be70">BigDecimal_neg</a></div><div class="ttdeci">static VALUE BigDecimal_neg(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01141">bigdecimal.c:1141</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a75be8c999b5d4423cccde9a1488671e7"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a75be8c999b5d4423cccde9a1488671e7">BigDecimal_save_rounding_mode</a></div><div class="ttdeci">static VALUE BigDecimal_save_rounding_mode(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02644">bigdecimal.c:2644</a></div></div> <div class="ttc" id="intern_8h_html_a006647827acc7cce9e940e5f7fa3a1b8"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a006647827acc7cce9e940e5f7fa3a1b8">rb_class_name</a></div><div class="ttdeci">VALUE rb_class_name(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l00391">variable.c:391</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a69cff086fca954a9b0f141a03511a6a3"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a69cff086fca954a9b0f141a03511a6a3">BigDecimal_nonzero</a></div><div class="ttdeci">static VALUE BigDecimal_nonzero(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01048">bigdecimal.c:1048</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a180cc0aa91243148715e95ade2c265ad"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a180cc0aa91243148715e95ade2c265ad">VpLimitRound</a></div><div class="ttdeci">static int VpLimitRound(Real *c, size_t ixDigit)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05973">bigdecimal.c:5973</a></div></div> <div class="ttc" id="bignum_8c_html_a7cf59f449a9f516aa7d781db3357dd94"><div class="ttname"><a href="../../d1/dcc/bignum_8c.html#a7cf59f449a9f516aa7d781db3357dd94">rb_dbl2big</a></div><div class="ttdeci">VALUE rb_dbl2big(double d)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/dcc/bignum_8c_source.html#l05213">bignum.c:5213</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aebdb81193f2641d965dcbfae803d6389"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aebdb81193f2641d965dcbfae803d6389">RMPD_COMPONENT_FIGURES</a></div><div class="ttdeci">#define RMPD_COMPONENT_FIGURES</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00094">bigdecimal.h:94</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac9117e739e17157b3cbcccbf1fad427d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac9117e739e17157b3cbcccbf1fad427d">NORETURN</a></div><div class="ttdeci">NORETURN(static void cannot_be_coerced_into_BigDecimal(VALUE, VALUE))</div></div> <div class="ttc" id="bigdecimal_8c_html_ad7eddd4134da50fae112846346e4556b"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad7eddd4134da50fae112846346e4556b">BigDecimal_exponent</a></div><div class="ttdeci">static VALUE BigDecimal_exponent(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02017">bigdecimal.c:2017</a></div></div> <div class="ttc" id="vm__exec_8c_html"><div class="ttname"><a href="../../df/d38/vm__exec_8c.html">val</a></div><div class="ttdeci">#define val</div></div> <div class="ttc" id="bigdecimal_8h_html_a4d258ed06d27f12d2fc90ef96143624f"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a4d258ed06d27f12d2fc90ef96143624f">VP_EXCEPTION_UNDERFLOW</a></div><div class="ttdeci">#define VP_EXCEPTION_UNDERFLOW</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00120">bigdecimal.h:120</a></div></div> <div class="ttc" id="time_8c_html_a54e8d54faf71d1f7a0cf8dcfc21a26db"><div class="ttname"><a href="../../df/d73/time_8c.html#a54e8d54faf71d1f7a0cf8dcfc21a26db">ne</a></div><div class="ttdeci">#define ne(x, y)</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d73/time_8c_source.html#l00066">time.c:66</a></div></div> <div class="ttc" id="internal_8h_html_a6a5e4fa02a24019fc6bbb36fc6472bdf"><div class="ttname"><a href="../../db/dde/internal_8h.html#a6a5e4fa02a24019fc6bbb36fc6472bdf">rb_float_new</a></div><div class="ttdeci">#define rb_float_new(d)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dde/internal_8h_source.html#l00596">internal.h:596</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7f20af78b73203295c8f9d6d5a0599e0"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7f20af78b73203295c8f9d6d5a0599e0">VpIsDefOP</a></div><div class="ttdeci">static int VpIsDefOP(Real *c, Real *a, Real *b, int sw)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03609">bigdecimal.c:3609</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a019dcf0bc571a8243d08d531df7914cf"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a019dcf0bc571a8243d08d531df7914cf">SZ_NINF</a></div><div class="ttdeci">#define SZ_NINF</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00108">bigdecimal.h:108</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a158b527584596ec1f7cf812a0d2fd16a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a158b527584596ec1f7cf812a0d2fd16a">PRIdVALUE</a></div><div class="ttdeci">#define PRIdVALUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00132">ruby.h:132</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a259239e879c9775ae7f626d4031522f7"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a259239e879c9775ae7f626d4031522f7">VpExponent</a></div><div class="ttdeci">#define VpExponent(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00303">bigdecimal.h:303</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a83711d728e30b364c9e235c96a0c5241"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a83711d728e30b364c9e235c96a0c5241">BigDecimal_remainder</a></div><div class="ttdeci">static VALUE BigDecimal_remainder(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01422">bigdecimal.c:1422</a></div></div> <div class="ttc" id="error_8c_html_a2a5803d0e60feb0ed8f37e7a38e8df47"><div class="ttname"><a href="../../db/dcc/error_8c.html#a2a5803d0e60feb0ed8f37e7a38e8df47">rb_typeddata_is_kind_of</a></div><div class="ttdeci">int rb_typeddata_is_kind_of(VALUE obj, const rb_data_type_t *data_type)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00510">error.c:510</a></div></div> <div class="ttc" id="intern_8h_html_a5bd27db3e38af6131db24321c7cf9ec6"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a5bd27db3e38af6131db24321c7cf9ec6">rb_str_cat2</a></div><div class="ttdeci">VALUE rb_str_cat2(VALUE, const char *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l02158">string.c:2158</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a132ae3fa1a22725c315f229d7b629a51"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a132ae3fa1a22725c315f229d7b629a51">BigDecimal_to_f</a></div><div class="ttdeci">static VALUE BigDecimal_to_f(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00697">bigdecimal.c:697</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a192368175060b042b21a130df1dc3998"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a192368175060b042b21a130df1dc3998">VP_EXPORT</a></div><div class="ttdeci">#define VP_EXPORT</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00114">bigdecimal.h:114</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aed1d47de5b194e2a3b3ba1e8d268c0f5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aed1d47de5b194e2a3b3ba1e8d268c0f5">rmpd_set_thread_local_exception_mode</a></div><div class="ttdeci">#define rmpd_set_thread_local_exception_mode(mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03382">bigdecimal.c:3382</a></div></div> <div class="ttc" id="subst_8h_html_aa367b75c5aed883fef5befbdf04835a4"><div class="ttname"><a href="../../d7/d72/subst_8h.html#aa367b75c5aed883fef5befbdf04835a4">snprintf</a></div><div class="ttdeci">#define snprintf</div><div class="ttdef"><b>Definition:</b> <a href="../../d7/d72/subst_8h_source.html#l00006">subst.h:6</a></div></div> <div class="ttc" id="intern_8h_html_ac41dd89ae3df1fc1d9968c8239659ce3"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a></div><div class="ttdeci">VALUE rb_thread_current(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l02405">thread.c:2405</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac9e5231401deab458a0de942e03feeb8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac9e5231401deab458a0de942e03feeb8">HALF_BASE</a></div><div class="ttdeci">#define HALF_BASE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00074">bigdecimal.c:74</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a4832bad8845a35fc50f7a160901854a1"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a></div><div class="ttdeci">#define NIL_P(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00438">ruby.h:438</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a29ab437440f914874fe2b27230788da5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a29ab437440f914874fe2b27230788da5">VpGetDoubleNaN</a></div><div class="ttdeci">VP_EXPORT double VpGetDoubleNaN(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03541">bigdecimal.c:3541</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a71e22bd0fe22d9368aa1e77c45211a55"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a71e22bd0fe22d9368aa1e77c45211a55">VpGetPrecLimit</a></div><div class="ttdeci">VP_EXPORT size_t VpGetPrecLimit(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03425">bigdecimal.c:3425</a></div></div> <div class="ttc" id="group__class_html_ga15d068dbe88a3bab3700b03bebb7fbac"><div class="ttname"><a href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a></div><div class="ttdeci">VALUE rb_define_class(const char *name, VALUE super)</div><div class="ttdoc">Defines a top-level class. </div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l00611">class.c:611</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ae7bf8bc2b959425907b421b2823199c3"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ae7bf8bc2b959425907b421b2823199c3">VpIsOne</a></div><div class="ttdeci">#define VpIsOne(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00302">bigdecimal.h:302</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a3a26d3aa5dd8105d1adf6a064b5345cd"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a3a26d3aa5dd8105d1adf6a064b5345cd">BigDecimal_div</a></div><div class="ttdeci">static VALUE BigDecimal_div(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01247">bigdecimal.c:1247</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a944776a89be837f13996b7da03db6b75"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a944776a89be837f13996b7da03db6b75">VpMemAlloc</a></div><div class="ttdeci">VP_EXPORT void * VpMemAlloc(size_t mb)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03336">bigdecimal.c:3336</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a5902b03e516c67fa93228f1b45fef7a1"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a5902b03e516c67fa93228f1b45fef7a1">BDIGIT_DBL_SIGNED</a></div><div class="ttdeci">#define BDIGIT_DBL_SIGNED</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00042">bigdecimal.h:42</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a861b20872f7d24f1c5f2da5261037322"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a></div><div class="ttdeci">void rb_define_const(VALUE, const char *, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l02228">variable.c:2228</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a580a704a08a5fbc791e2965856cc0ad0"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a580a704a08a5fbc791e2965856cc0ad0">VpAllocReal</a></div><div class="ttdeci">#define VpAllocReal(prec)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00579">bigdecimal.c:579</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a73a35dd676615ec30b0e8941977efd8e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a73a35dd676615ec30b0e8941977efd8e">BigDecimal_IsNaN</a></div><div class="ttdeci">static VALUE BigDecimal_IsNaN(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00600">bigdecimal.c:600</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a53aa57346ca7974861cb2ddb3ce5c4fd"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a53aa57346ca7974861cb2ddb3ce5c4fd">VpMult</a></div><div class="ttdeci">VP_EXPORT size_t VpMult(Real *c, Real *a, Real *b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04493">bigdecimal.c:4493</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="bigdecimal_8c_html_a455b35f55602c499fd1d672a07f19eae"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a455b35f55602c499fd1d672a07f19eae">ENTER</a></div><div class="ttdeci">#define ENTER(n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00066">bigdecimal.c:66</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3d072e0c25cf678e9b8601b957b92eae"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a></div><div class="ttdeci">#define T_FLOAT</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00481">ruby.h:481</a></div></div> <div class="ttc" id="bigdecimal_8c_html_acfc48736e6a9e8f41d8b0eb23fb74394"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#acfc48736e6a9e8f41d8b0eb23fb74394">VpNmlz</a></div><div class="ttdeci">static int VpNmlz(Real *a)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04837">bigdecimal.c:4837</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a394faf7191f18552a20cb17ce14226f0"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a></div><div class="ttdeci">#define TYPE(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00505">ruby.h:505</a></div></div> <div class="ttc" id="ruby_8c_html_ad1447518f4372828b8435ae82e48499e"><div class="ttname"><a href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a></div><div class="ttdeci">int argc</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d77/ruby_8c_source.html#l00131">ruby.c:131</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a8403ff882bf89f59fa3e3f0477c1b54e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8403ff882bf89f59fa3e3f0477c1b54e">gOne_ABCED9B4_CE73__00400511F31D</a></div><div class="ttdeci">volatile const double gOne_ABCED9B4_CE73__00400511F31D</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03513">bigdecimal.c:3513</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a1ffce54a4b387b76bea11beeea386636"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a1ffce54a4b387b76bea11beeea386636">is_kind_of_BigDecimal</a></div><div class="ttdeci">static int is_kind_of_BigDecimal(VALUE const v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00152">bigdecimal.c:152</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aba0717d2689eb68797421a02ab9295c6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a></div><div class="ttdeci">#define Qfalse</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00425">ruby.h:425</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aaf63eb20d95e99fc7e40717dec7f07a7"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aaf63eb20d95e99fc7e40717dec7f07a7">BigDecimal_add2</a></div><div class="ttdeci">static VALUE BigDecimal_add2(VALUE self, VALUE b, VALUE n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01516">bigdecimal.c:1516</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aea58d43c3de31eb0d21df5b2c55667a5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aea58d43c3de31eb0d21df5b2c55667a5">VpToFString</a></div><div class="ttdeci">VP_EXPORT void VpToFString(Real *a, char *psz, size_t fFmt, int fPlus)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05253">bigdecimal.c:5253</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a41ac74a27dd1eadc2ca86d10590f2163"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a></div><div class="ttdeci">#define T_BIGNUM</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00487">ruby.h:487</a></div></div> <div class="ttc" id="bigdecimal_8c_html_acb1055f4ad25d6bdac7a385c534b38eb"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#acb1055f4ad25d6bdac7a385c534b38eb">BigDecimal_initialize_copy</a></div><div class="ttdeci">static VALUE BigDecimal_initialize_copy(VALUE self, VALUE other)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02474">bigdecimal.c:2474</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a04ab67335215e8362c63ed27ae2d1c40"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a04ab67335215e8362c63ed27ae2d1c40">MEMCPY</a></div><div class="ttdeci">#define MEMCPY(p1, p2, type, n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01360">ruby.h:1360</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="bigdecimal_8c_html_a4ac23be3d17896c15da333d6bfa0bf8b"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a4ac23be3d17896c15da333d6bfa0bf8b">VpOne</a></div><div class="ttdeci">VP_EXPORT Real * VpOne(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03780">bigdecimal.c:3780</a></div></div> <div class="ttc" id="intern_8h_html_a03acd62c0b1edebbe1d61f957c19b7ac"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a></div><div class="ttdeci">#define rb_str_new2</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00840">intern.h:840</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7d6a953aa9a638c5215f8de7af8988f8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7d6a953aa9a638c5215f8de7af8988f8">VpSzMantissa</a></div><div class="ttdeci">VP_EXPORT void VpSzMantissa(Real *a, char *psz)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05123">bigdecimal.c:5123</a></div></div> <div class="ttc" id="struct_real_html"><div class="ttname"><a href="../../d9/d5a/struct_real.html">Real</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00160">bigdecimal.h:160</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a05f3b14562e8d1e2d09e7a4438c1d2fa"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a05f3b14562e8d1e2d09e7a4438c1d2fa">T_COMPLEX</a></div><div class="ttdeci">#define T_COMPLEX</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00496">ruby.h:496</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a62d613b3e8b07bf043833a3c1e86d092"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a62d613b3e8b07bf043833a3c1e86d092">VpDblFig</a></div><div class="ttdeci">#define VpDblFig()</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00202">bigdecimal.h:202</a></div></div> <div class="ttc" id="numeric_8c_html_a0da7e310168d9887cb3d04746072e638"><div class="ttname"><a href="../../d6/d27/numeric_8c.html#a0da7e310168d9887cb3d04746072e638">int_chr</a></div><div class="ttdeci">static VALUE int_chr(int argc, VALUE *argv, VALUE num)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l02557">numeric.c:2557</a></div></div> <div class="ttc" id="bignum_8c_html_a5cd9431ab7853e3adb7bf49cad4460f2"><div class="ttname"><a href="../../d1/dcc/bignum_8c.html#a5cd9431ab7853e3adb7bf49cad4460f2">rb_big2str</a></div><div class="ttdeci">VALUE rb_big2str(VALUE x, int base)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/dcc/bignum_8c_source.html#l05014">bignum.c:5014</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ace695af41191f48a09020f1d790aedba"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ace695af41191f48a09020f1d790aedba">BigDecimal_version</a></div><div class="ttdeci">static VALUE BigDecimal_version(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00103">bigdecimal.c:103</a></div></div> <div class="ttc" id="bigdecimal_8c_html_adfe3ba1c7c2dc320965ff2347d6eac9d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#adfe3ba1c7c2dc320965ff2347d6eac9d">BigDecimal_double_fig</a></div><div class="ttdeci">static VALUE BigDecimal_double_fig(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00289">bigdecimal.c:289</a></div></div> <div class="ttc" id="bigdecimal_8c_html_abbdf162048a03359f27ce733cacc3e59"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#abbdf162048a03359f27ce733cacc3e59">BigDecimal_floor</a></div><div class="ttdeci">static VALUE BigDecimal_floor(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01781">bigdecimal.c:1781</a></div></div> <div class="ttc" id="struct_real_html_a80c119986de14ffcb3a7af06267af1e5"><div class="ttname"><a href="../../d9/d5a/struct_real.html#a80c119986de14ffcb3a7af06267af1e5">Real::flag</a></div><div class="ttdeci">short flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00179">bigdecimal.h:179</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a5c1b26ed157e5db3993f1d18cb44ec28"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a5c1b26ed157e5db3993f1d18cb44ec28">RBIGNUM_ZERO_P</a></div><div class="ttdeci">#define RBIGNUM_ZERO_P(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00082">bigdecimal.c:82</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af88c239a6c13cbdb27f0a36531f81e87"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af88c239a6c13cbdb27f0a36531f81e87">VpFree</a></div><div class="ttdeci">VP_EXPORT void VpFree(Real *pv)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03360">bigdecimal.c:3360</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a6353e0267d2b42ab89e4855e7bdca94c"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a6353e0267d2b42ab89e4855e7bdca94c">Init_bigdecimal</a></div><div class="ttdeci">void Init_bigdecimal(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03080">bigdecimal.c:3080</a></div></div> <div class="ttc" id="intern_8h_html_a0a133856edb99f69eae3cb5a9e275ac9"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a></div><div class="ttdeci">VALUE rb_str_resize(VALUE, long)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l02024">string.c:2024</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a3c0bd5381c63facaa58a710576a614cd"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a3c0bd5381c63facaa58a710576a614cd">BigDecimal_add</a></div><div class="ttdeci">static VALUE BigDecimal_add(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00846">bigdecimal.c:846</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a5c95f313a27a0c4fd2b23af990eb0e3e"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a5c95f313a27a0c4fd2b23af990eb0e3e">VpSetInf</a></div><div class="ttdeci">#define VpSetInf(a, s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00300">bigdecimal.h:300</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a77d9e0e76e412a3adf144cbe9f5ea9bc"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a77d9e0e76e412a3adf144cbe9f5ea9bc">VpSetSign</a></div><div class="ttdeci">#define VpSetSign(a, s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00276">bigdecimal.h:276</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a0524f33a596e305be700dcf44797c143"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a0524f33a596e305be700dcf44797c143">VP_EXCEPTION_ZERODIVIDE</a></div><div class="ttdeci">#define VP_EXCEPTION_ZERODIVIDE</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00122">bigdecimal.h:122</a></div></div> <div class="ttc" id="bigdecimal_8c_html_afe01563e1fb7a76dc4b4d8a8646a35da"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#afe01563e1fb7a76dc4b4d8a8646a35da">id_BigDecimal_exception_mode</a></div><div class="ttdeci">static ID id_BigDecimal_exception_mode</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00047">bigdecimal.c:47</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a0b1cf27d888bc51cf9da3d63d94d9af1"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0b1cf27d888bc51cf9da3d63d94d9af1">GetVpValueWithPrec</a></div><div class="ttdeci">static Real * GetVpValueWithPrec(VALUE v, long prec, int must)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00193">bigdecimal.c:193</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a4363ae62f30b8ef121ec1afa3c92901c"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a4363ae62f30b8ef121ec1afa3c92901c">VpInternalRound</a></div><div class="ttdeci">static void VpInternalRound(Real *c, size_t ixDigit, BDIGIT vPrev, BDIGIT v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05986">bigdecimal.c:5986</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a3f036ce4930cc2eb33a2161b1b7217f2"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a3f036ce4930cc2eb33a2161b1b7217f2">gZero_ABCED9B1_CE73__00400511F31D</a></div><div class="ttdeci">volatile const double gZero_ABCED9B1_CE73__00400511F31D</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03512">bigdecimal.c:3512</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a0d1c6e4431397f8bd285073af0d98d77"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a></div><div class="ttdeci">#define RSTRING_LEN(str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00841">ruby.h:841</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ae6bd0c4ea4db971ebd569ca8f05c6b4a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ae6bd0c4ea4db971ebd569ca8f05c6b4a">rb_yield</a></div><div class="ttdeci">VALUE rb_yield(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l00948">vm_eval.c:948</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a673e6a8fba8f6c050464fc4dcce9b1fd"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a673e6a8fba8f6c050464fc4dcce9b1fd">VpSetPosInf</a></div><div class="ttdeci">#define VpSetPosInf(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00298">bigdecimal.h:298</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="ruby_2ruby_8h_html_a55f295817faf14e42b3cff745a7ac706"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a55f295817faf14e42b3cff745a7ac706">T_DATA</a></div><div class="ttdeci">#define T_DATA</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00492">ruby.h:492</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af5f2dda14c2925225e4efd4b18ba6ed7"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af5f2dda14c2925225e4efd4b18ba6ed7">BigDecimal_data_type</a></div><div class="ttdeci">static const rb_data_type_t BigDecimal_data_type</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00143">bigdecimal.c:143</a></div></div> <div class="ttc" id="bigdecimal_8h_html_abf17759081311ec02831783b090a3155"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#abf17759081311ec02831783b090a3155">vabs</a></div><div class="ttdeci">#define vabs</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00075">bigdecimal.h:75</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aad2d85c2a778dad3c10f9c6ef5d2a970"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aad2d85c2a778dad3c10f9c6ef5d2a970">VpBaseFig</a></div><div class="ttdeci">#define VpBaseFig()</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00201">bigdecimal.h:201</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a220d58cb4a7494b09bd0a4bf3ad23ddb"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a220d58cb4a7494b09bd0a4bf3ad23ddb">VP_SIGN_NEGATIVE_INFINITE</a></div><div class="ttdeci">#define VP_SIGN_NEGATIVE_INFINITE</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00148">bigdecimal.h:148</a></div></div> <div class="ttc" id="error_8c_html_a643ceabe39fa1f8c99066a321397a115"><div class="ttname"><a href="../../db/dcc/error_8c.html#a643ceabe39fa1f8c99066a321397a115">rb_fatal</a></div><div class="ttdeci">void rb_fatal(const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l01911">error.c:1911</a></div></div> <div class="ttc" id="intern_8h_html_a66ae6cf2e34e643e8956f70071e4a2fe"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a66ae6cf2e34e643e8956f70071e4a2fe">rb_Rational1</a></div><div class="ttdeci">#define rb_Rational1(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00173">intern.h:173</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ab1cd60a85dc47ced3b66f7f3434eed11"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ab1cd60a85dc47ced3b66f7f3434eed11">BigDecimal_uplus</a></div><div class="ttdeci">static VALUE BigDecimal_uplus(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00823">bigdecimal.c:823</a></div></div> <div class="ttc" id="group__defmethod_html_gaa7bed88640f01bee619f85fda09d28d7"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a></div><div class="ttdeci">int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01719">class.c:1719</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ab58e7165de25d4d6346c5a3f05c8c5f5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ab58e7165de25d4d6346c5a3f05c8c5f5">VpAlloc</a></div><div class="ttdeci">VP_EXPORT Real * VpAlloc(size_t mx, const char *szVal)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03837">bigdecimal.c:3837</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a269ea752b14ff07ccd4c041b3f840055"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a269ea752b14ff07ccd4c041b3f840055">rmpd_set_thread_local_rounding_mode</a></div><div class="ttdeci">#define rmpd_set_thread_local_rounding_mode(mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03452">bigdecimal.c:3452</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#l04308">nkf.c:4308</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a720e6653b29830a27680d35566f6ea6b"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a720e6653b29830a27680d35566f6ea6b">BigDecimal_ge</a></div><div class="ttdeci">static VALUE BigDecimal_ge(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01126">bigdecimal.c:1126</a></div></div> <div class="ttc" id="array_8c_html_af3085ceab406e3f4f4b90f383c440d6a"><div class="ttname"><a href="../../dc/dcc/array_8c.html#af3085ceab406e3f4f4b90f383c440d6a">rb_assoc_new</a></div><div class="ttdeci">VALUE rb_assoc_new(VALUE car, VALUE cdr)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l00620">array.c:620</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a8e362fd0b6f28e246f5d689a4b5ee1b8"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a8e362fd0b6f28e246f5d689a4b5ee1b8">PRIsVALUE</a></div><div class="ttdeci">#define PRIsVALUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00137">ruby.h:137</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aabe52d792eff33f25e88bf2aa9cf90d4"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aabe52d792eff33f25e88bf2aa9cf90d4">BigDecimal_div2</a></div><div class="ttdeci">static VALUE BigDecimal_div2(VALUE, VALUE, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01467">bigdecimal.c:1467</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_afa5b9137f051ac26d7ccc8824f178233"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a></div><div class="ttdeci">unsigned long ID</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00089">ruby.h:89</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a1abd021043d9063b2fce9e9c614b827f"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a1abd021043d9063b2fce9e9c614b827f">BigDecimal_global_new</a></div><div class="ttdeci">static VALUE BigDecimal_global_new(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02535">bigdecimal.c:2535</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aba03c3c4ff187bbda6c4459e2dc9f6c6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a></div><div class="ttdeci">#define Qnil</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00427">ruby.h:427</a></div></div> <div class="ttc" id="bigdecimal_8c_html_abbd25925c99d93fc1a6cabb638abb6fc"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#abbd25925c99d93fc1a6cabb638abb6fc">BigDecimal_split</a></div><div class="ttdeci">static VALUE BigDecimal_split(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01980">bigdecimal.c:1980</a></div></div> <div class="ttc" id="bigdecimal_8h_html_acc54e540534a259d314f5be704e41dbd"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#acc54e540534a259d314f5be704e41dbd">VP_ROUND_UP</a></div><div class="ttdeci">#define VP_ROUND_UP</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00132">bigdecimal.h:132</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ad9466c565e6130efe66aba4ee4262ce2"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ad9466c565e6130efe66aba4ee4262ce2">VP_EXCEPTION_MEMORY</a></div><div class="ttdeci">#define VP_EXCEPTION_MEMORY</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00126">bigdecimal.h:126</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a16b6bfb429ea4ff01ba0a70df03e93bc"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a16b6bfb429ea4ff01ba0a70df03e93bc">is_integer</a></div><div class="ttdeci">static int is_integer(VALUE x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02064">bigdecimal.c:2064</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aead9bf90b2370d9aabf6e43b8a629681"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aead9bf90b2370d9aabf6e43b8a629681">MemCmp</a></div><div class="ttdeci">#define MemCmp(x, y, z)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03319">bigdecimal.c:3319</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3c1d4bfc6a81af60bdcb48744c35f760"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="ttdeci">unsigned long VALUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00088">ruby.h:88</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a0195dac9e7a72161fc32a26dd8408dae"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a0195dac9e7a72161fc32a26dd8408dae">VP_SIGN_NaN</a></div><div class="ttdeci">#define VP_SIGN_NaN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00142">bigdecimal.h:142</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a1d998377c2b3f6cd912a39f23c36e2e8"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a1d998377c2b3f6cd912a39f23c36e2e8">id_BigDecimal_precision_limit</a></div><div class="ttdeci">static ID id_BigDecimal_precision_limit</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00049">bigdecimal.c:49</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7b2a344e05c55a7f12df3b958b6634df"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7b2a344e05c55a7f12df3b958b6634df">StrCmp</a></div><div class="ttdeci">#define StrCmp(x, y)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03320">bigdecimal.c:3320</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a234ec5ef29b45597dd84498046e76bbc"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a234ec5ef29b45597dd84498046e76bbc">VpInit</a></div><div class="ttdeci">VP_EXPORT size_t VpInit(BDIGIT BaseVal)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03749">bigdecimal.c:3749</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a0fad6ba9f8ae3cc3f3896404610576d1"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0fad6ba9f8ae3cc3f3896404610576d1">rmpd_power_by_big_decimal</a></div><div class="ttdeci">static VALUE rmpd_power_by_big_decimal(Real const *x, Real const *exp, ssize_t const n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02156">bigdecimal.c:2156</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a9444c431b3cb1184e7523fc572f2c758"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a></div><div class="ttdeci">#define FIX2INT(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00632">ruby.h:632</a></div></div> <div class="ttc" id="intern_8h_html_ac7a89c076f8710df7f3974af601e2b6d"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ac7a89c076f8710df7f3974af601e2b6d">rb_num_coerce_relop</a></div><div class="ttdeci">VALUE rb_num_coerce_relop(VALUE, VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00300">numeric.c:300</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a5297fe57e42f0bba45b6588901f84ade"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a5297fe57e42f0bba45b6588901f84ade">maxnr</a></div><div class="ttdeci">#define maxnr</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03315">bigdecimal.c:3315</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#l00376">win32.h:376</a></div></div> <div class="ttc" id="cparse_8c_html_ae2e438d537892aeadba05c15eefbe89d"><div class="ttname"><a href="../../dc/d0c/cparse_8c.html#ae2e438d537892aeadba05c15eefbe89d">shift</a></div><div class="ttdeci">static void shift(struct cparse_params *v, long act, VALUE tok, VALUE val)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/d0c/cparse_8c_source.html#l00662">cparse.c:662</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a6e2fb52974af4f37fee056d8b734e913"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a6e2fb52974af4f37fee056d8b734e913">rb_cNumeric</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_cNumeric</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01583">ruby.h:1583</a></div></div> <div class="ttc" id="struct_real_html_ab1608b5cd19c0dbec4d7993116fb9ca3"><div class="ttname"><a href="../../d9/d5a/struct_real.html#ab1608b5cd19c0dbec4d7993116fb9ca3">Real::sign</a></div><div class="ttdeci">short sign</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00169">bigdecimal.h:169</a></div></div> <div class="ttc" id="eval_8c_html_ae48d70c45901eab8b89fb181fc9d1f3b"><div class="ttname"><a href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a></div><div class="ttdeci">void rb_jump_tag(int tag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00706">eval.c:706</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7310f1d94677d0288eb62e8089b57274"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7310f1d94677d0288eb62e8089b57274">BigDecimal_to_i</a></div><div class="ttdeci">static VALUE BigDecimal_to_i(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00650">bigdecimal.c:650</a></div></div> <div class="ttc" id="intern_8h_html_ae2843c766c24b80116bb127ebf22d5bf"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ae2843c766c24b80116bb127ebf22d5bf">rb_str_dup</a></div><div class="ttdeci">VALUE rb_str_dup(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l01062">string.c:1062</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ac493d4e1ca36d6a84215aad4e6ea1b4d"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac493d4e1ca36d6a84215aad4e6ea1b4d">FIXABLE</a></div><div class="ttdeci">#define FIXABLE(f)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00350">ruby.h:350</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ad23fb921b0f5c8bce1e126b2a65c28f5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad23fb921b0f5c8bce1e126b2a65c28f5">BigDecimal_s_allocate</a></div><div class="ttdeci">static VALUE BigDecimal_s_allocate(VALUE klass)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02424">bigdecimal.c:2424</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a39cee6a07315ceb32c6e25024197b054"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a39cee6a07315ceb32c6e25024197b054">VpGetDoubleNegInf</a></div><div class="ttdeci">VP_EXPORT double VpGetDoubleNegInf(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03557">bigdecimal.c:3557</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a854de1c520ed24a625d5a29f36a08f7a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a854de1c520ed24a625d5a29f36a08f7a">LONG2NUM</a></div><div class="ttdeci">#define LONG2NUM(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01317">ruby.h:1317</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af212dc7d8469aede930b124e7bc4bf30"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af212dc7d8469aede930b124e7bc4bf30">BigDecimal_zero</a></div><div class="ttdeci">static VALUE BigDecimal_zero(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01040">bigdecimal.c:1040</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_afc32c1526ac6cb40ec33cad8782c0bae"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a></div><div class="ttdeci">#define StringValueCStr(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00541">ruby.h:541</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac2534915c2fb0fa8ba8108928b5899f4"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac2534915c2fb0fa8ba8108928b5899f4">BigDecimal_IsFinite</a></div><div class="ttdeci">static VALUE BigDecimal_IsFinite(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00621">bigdecimal.c:621</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aa68eb996702aae8d94938a5bba8cc792"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aa68eb996702aae8d94938a5bba8cc792">VpIsNegInf</a></div><div class="ttdeci">#define VpIsNegInf(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00295">bigdecimal.h:295</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af6d69b50c3d56f2aadcf8a13a8b4cc0e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af6d69b50c3d56f2aadcf8a13a8b4cc0e">VpAsgn</a></div><div class="ttdeci">VP_EXPORT size_t VpAsgn(Real *c, Real *a, int isw)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03994">bigdecimal.c:3994</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3f0e4e2b6d073369cc1c2ddde00b13bb"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a></div><div class="ttdeci">#define RSTRING_PTR(str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00845">ruby.h:845</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a35d65a2fc42642866f63112a60f4ef1d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a35d65a2fc42642866f63112a60f4ef1d">rb_cBigDecimal</a></div><div class="ttdeci">VALUE rb_cBigDecimal</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00044">bigdecimal.c:44</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a6b5078bd8a4ea16b640f366b41991206"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a6b5078bd8a4ea16b640f366b41991206">rmpd_double_figures</a></div><div class="ttdeci">static size_t rmpd_double_figures(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00199">bigdecimal.h:199</a></div></div> <div class="ttc" id="intern_8h_html_a9853d1348e5a26b4802117aa465f65bc"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">rb_exc_new3</a></div><div class="ttdeci">#define rb_exc_new3</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00248">intern.h:248</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ae4f0bd83ddbf9df96f4d58caeaa1b0b2"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ae4f0bd83ddbf9df96f4d58caeaa1b0b2">VP_EXCEPTION_NaN</a></div><div class="ttdeci">#define VP_EXCEPTION_NaN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00119">bigdecimal.h:119</a></div></div> <div class="ttc" id="struct_real_html_a9372ee80cdc6e6bf5220e2faff7f34bd"><div class="ttname"><a href="../../d9/d5a/struct_real.html#a9372ee80cdc6e6bf5220e2faff7f34bd">Real::frac</a></div><div class="ttdeci">BDIGIT frac[FLEXIBLE_ARRAY_SIZE]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00180">bigdecimal.h:180</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a5726d1427982c1c9ccfb01920690b7f7"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a5726d1427982c1c9ccfb01920690b7f7">RMPD_PRECISION_LIMIT_DEFAULT</a></div><div class="ttdeci">#define RMPD_PRECISION_LIMIT_DEFAULT</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03421">bigdecimal.c:3421</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a75a72d6e307a9061dab0146cfea01624"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a75a72d6e307a9061dab0146cfea01624">BigDecimal_gt</a></div><div class="ttdeci">static VALUE BigDecimal_gt(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01113">bigdecimal.c:1113</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ad557ba0a2e86ef027442c059a6ef0d13"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad557ba0a2e86ef027442c059a6ef0d13">rmpd_set_thread_local_precision_limit</a></div><div class="ttdeci">#define rmpd_set_thread_local_precision_limit(limit)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03415">bigdecimal.c:3415</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a8739be2ca87001c8da7e44b23614244f"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8739be2ca87001c8da7e44b23614244f">BigDecimal_mult</a></div><div class="ttdeci">static VALUE BigDecimal_mult(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01167">bigdecimal.c:1167</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a43efbda3561d65882e66b786f6244888"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a43efbda3561d65882e66b786f6244888">is_negative</a></div><div class="ttdeci">static int is_negative(VALUE x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02070">bigdecimal.c:2070</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aa7311e0d10f373b0bb50c41522dc3981"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa7311e0d10f373b0bb50c41522dc3981">RFLOAT_VALUE</a></div><div class="ttdeci">#define RFLOAT_VALUE(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00814">ruby.h:814</a></div></div> <div class="ttc" id="sprintf_8c_html_a7a51ed112e9b79f89e3e70beb8db8bf5"><div class="ttname"><a href="../../d9/d2d/sprintf_8c.html#a7a51ed112e9b79f89e3e70beb8db8bf5">f</a></div><div class="ttdeci">#define f</div></div> <div class="ttc" id="ruby_2ruby_8h_html_ac55fae7f748afd3fc2533d0d7d06cf5a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a></div><div class="ttdeci">#define INT2FIX(i)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00231">ruby.h:231</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a26e8ca52288bcfb6a58376d71764d7a2"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a26e8ca52288bcfb6a58376d71764d7a2">VpChangeSign</a></div><div class="ttdeci">#define VpChangeSign(a, s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00274">bigdecimal.h:274</a></div></div> <div class="ttc" id="error_8c_html_a01f11924b05ac5d4df94383f39a14d6c"><div class="ttname"><a href="../../db/dcc/error_8c.html#a01f11924b05ac5d4df94383f39a14d6c">rb_check_typeddata</a></div><div class="ttdeci">void * rb_check_typeddata(VALUE obj, const rb_data_type_t *data_type)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00520">error.c:520</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a5c55d652f4496a625bddf94264d277d0"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a5c55d652f4496a625bddf94264d277d0">NUM2SSIZET</a></div><div class="ttdeci">#define NUM2SSIZET(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00681">ruby.h:681</a></div></div> <div class="ttc" id="missing_8h_html_a8a34ea96a46e86d80f06052188b4433f"><div class="ttname"><a href="../../d3/d90/missing_8h.html#a8a34ea96a46e86d80f06052188b4433f">round</a></div><div class="ttdeci">RUBY_EXTERN double round(double)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00092">numeric.c:92</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#l00108">defines.h:108</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a99a616753fe28f318fca70fcb7937cc5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a99a616753fe28f318fca70fcb7937cc5">BigDecimal_check_num</a></div><div class="ttdeci">static void BigDecimal_check_num(Real *p)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00630">bigdecimal.c:630</a></div></div> <div class="ttc" id="nkf-utf8_2nkf_8c_html_a064e4a3a0f3f97b34dc187ea21bcc2f1"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#a064e4a3a0f3f97b34dc187ea21bcc2f1">cv</a></div><div class="ttdeci">static const unsigned char cv[]</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l00564">nkf.c:564</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af7b554cc7460085460ba76ec2662946d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af7b554cc7460085460ba76ec2662946d">BigDecimal_new</a></div><div class="ttdeci">static Real * BigDecimal_new(int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02486">bigdecimal.c:2486</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aa7b5f3993e9c39423dd38f430257d0e7"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa7b5f3993e9c39423dd38f430257d0e7">NUM2SIZET</a></div><div class="ttdeci">#define NUM2SIZET(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00680">ruby.h:680</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af9ebdab1bed9055313ef4067974b16af"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af9ebdab1bed9055313ef4067974b16af">VpToSpecialString</a></div><div class="ttdeci">VP_EXPORT int VpToSpecialString(Real *a, char *psz, int fPlus)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05170">bigdecimal.c:5170</a></div></div> <div class="ttc" id="structrb__data__type__struct_html"><div class="ttname"><a href="../../d7/de2/structrb__data__type__struct.html">rb_data_type_struct</a></div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00966">ruby.h:966</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a787f6068d92a99906fbaf26bb598d23c"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a787f6068d92a99906fbaf26bb598d23c">RMPD_ROUNDING_MODE_DEFAULT</a></div><div class="ttdeci">#define RMPD_ROUNDING_MODE_DEFAULT</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00140">bigdecimal.h:140</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aa2db04020f69e752eb8b9fea2e68058d"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aa2db04020f69e752eb8b9fea2e68058d">VpIsNegZero</a></div><div class="ttdeci">#define VpIsNegZero(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00283">bigdecimal.h:283</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a874271ac5e9b754f41ed51ddd66ca7b5"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a874271ac5e9b754f41ed51ddd66ca7b5">VpGetSign</a></div><div class="ttdeci">#define VpGetSign(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00272">bigdecimal.h:272</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a6e860086606548ae1c97d98aa5ad0ee9"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a6e860086606548ae1c97d98aa5ad0ee9">VpLeftRound</a></div><div class="ttdeci">VP_EXPORT int VpLeftRound(Real *y, unsigned short f, ssize_t nf)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05950">bigdecimal.c:5950</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a4e8fe9b7653d67be2401a8b85049e525"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a></div><div class="ttdeci">#define RARRAY_PTR(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00907">ruby.h:907</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a70d5c29d60a254ce8938b64cf4f502ac"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a70d5c29d60a254ce8938b64cf4f502ac">VpAddSub</a></div><div class="ttdeci">VP_EXPORT size_t VpAddSub(Real *c, Real *a, Real *b, int operation)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04038">bigdecimal.c:4038</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a57e78164b65740e5601afb87774fc7fe"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a57e78164b65740e5601afb87774fc7fe">VpIsZero</a></div><div class="ttdeci">#define VpIsZero(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00284">bigdecimal.h:284</a></div></div> <div class="ttc" id="numeric_8c_html_a5b731624df926496f4fc19001447d3e7"><div class="ttname"><a href="../../d6/d27/numeric_8c.html#a5b731624df926496f4fc19001447d3e7">DBL_MIN_10_EXP</a></div><div class="ttdeci">#define DBL_MIN_10_EXP</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00061">numeric.c:61</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a8853041af7ed7e3b5220f3ae797fabc2"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8853041af7ed7e3b5220f3ae797fabc2">One</a></div><div class="ttdeci">static double One(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03521">bigdecimal.c:3521</a></div></div> <div class="ttc" id="bigdecimal_8c_html_abe0044576d28bd76c2b6e9664015feb9"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#abe0044576d28bd76c2b6e9664015feb9">BigDecimal_power_op</a></div><div class="ttdeci">static VALUE BigDecimal_power_op(VALUE self, VALUE exp)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02418">bigdecimal.c:2418</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a71420fb92a2a1c8a3af58c50dff37ccb"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a71420fb92a2a1c8a3af58c50dff37ccb">rb_special_const_p</a></div><div class="ttdeci">static int rb_special_const_p(VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01695">ruby.h:1695</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a2ead2f64c81efed352e79e89f29b8fc8"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a2ead2f64c81efed352e79e89f29b8fc8">LONG2FIX</a></div><div class="ttdeci">#define LONG2FIX(i)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00232">ruby.h:232</a></div></div> <div class="ttc" id="bigdecimal_8h_html_abb58d264eb0ad3060a67c1f74734fd51"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#abb58d264eb0ad3060a67c1f74734fd51">VpSetOne</a></div><div class="ttdeci">#define VpSetOne(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00279">bigdecimal.h:279</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ac475b913ca9cacf8ca385497984443ed"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ac475b913ca9cacf8ca385497984443ed">SZ_NaN</a></div><div class="ttdeci">#define SZ_NaN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00105">bigdecimal.h:105</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a083e8e1ce49b692113783af64010a70f"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a083e8e1ce49b692113783af64010a70f">BDIGIT_DBL</a></div><div class="ttdeci">#define BDIGIT_DBL</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00041">bigdecimal.h:41</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a117741045763c090b26e30a85bd0e0a6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a></div><div class="ttdeci">#define RTEST(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00437">ruby.h:437</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a11bed405a881434a2f91e21a40c80182"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a11bed405a881434a2f91e21a40c80182">is_even</a></div><div class="ttdeci">static int is_even(VALUE x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02135">bigdecimal.c:2135</a></div></div> <div class="ttc" id="intern_8h_html_a9c9bfa5b17b2be949b3ca843e6a0ee9e"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a9c9bfa5b17b2be949b3ca843e6a0ee9e">rb_thread_check_ints</a></div><div class="ttdeci">void rb_thread_check_ints(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01143">thread.c:1143</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a22a8c2a4bbaae9b68f65c9bb92fd4e39"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a></div><div class="ttdeci">#define T_STRING</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00482">ruby.h:482</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac9322094e0d6891589fca4ac9ef4fb8a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac9322094e0d6891589fca4ac9ef4fb8a">DBLE_FIG</a></div><div class="ttdeci">#define DBLE_FIG</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00078">bigdecimal.c:78</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a442bcf9d63bf053f7f5e7f384685a7e4"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a442bcf9d63bf053f7f5e7f384685a7e4">BigDecimal_sub2</a></div><div class="ttdeci">static VALUE BigDecimal_sub2(VALUE self, VALUE b, VALUE n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01546">bigdecimal.c:1546</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a2b7b0557dc6cd786df02dafbb51f5292"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a2b7b0557dc6cd786df02dafbb51f5292">PRIuSIZE</a></div><div class="ttdeci">#define PRIuSIZE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00179">ruby.h:179</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a8791cc94c323922410fc7dc6b19108ed"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8791cc94c323922410fc7dc6b19108ed">id_banker</a></div><div class="ttdeci">static ID id_banker</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00058">bigdecimal.c:58</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a2977fd605942ed760dd69cbd0053ba7d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a2977fd605942ed760dd69cbd0053ba7d">id_to_r</a></div><div class="ttdeci">static ID id_to_r</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00062">bigdecimal.c:62</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ae29a5249c8de18d0273189734679ac84"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ae29a5249c8de18d0273189734679ac84">VpPower</a></div><div class="ttdeci">VP_EXPORT int VpPower(Real *y, Real *x, SIGNED_VALUE n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l06108">bigdecimal.c:6108</a></div></div> <div class="ttc" id="lex_8c_html_a5541f85ce416df233cce93949f0eeeca"><div class="ttname"><a href="../../d3/deb/lex_8c.html#a5541f85ce416df233cce93949f0eeeca">hash</a></div><div class="ttdeci">static unsigned int hash(const char *str, unsigned int len)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/deb/lex_8c_source.html#l00056">lex.c:56</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a1c3d020c4b98628c2f61124dd388b39d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a1c3d020c4b98628c2f61124dd388b39d">SIGNED_VALUE_MAX</a></div><div class="ttdeci">#define SIGNED_VALUE_MAX</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00040">bigdecimal.c:40</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a0381640e2905c1b3e104194f91697ca4"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a0381640e2905c1b3e104194f91697ca4">SafeStringValue</a></div><div class="ttdeci">#define SafeStringValue(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00545">ruby.h:545</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a824064209bab9359d865d2a2b7e7ccc1"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a824064209bab9359d865d2a2b7e7ccc1">BASE_FIG</a></div><div class="ttdeci">#define BASE_FIG</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00071">bigdecimal.c:71</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a0fe0165c57bc2dcf0fada98cbcdb168a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0fe0165c57bc2dcf0fada98cbcdb168a">GetPositiveInt</a></div><div class="ttdeci">static SIGNED_VALUE GetPositiveInt(VALUE v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00552">bigdecimal.c:552</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a65f5f3594a4305ee3413931ba0c0bdec"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a65f5f3594a4305ee3413931ba0c0bdec">BigDecimal_initialize</a></div><div class="ttdeci">static VALUE BigDecimal_initialize(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02450">bigdecimal.c:2450</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ade9a88f7f9965b65ef43c94d600f088f"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ade9a88f7f9965b65ef43c94d600f088f">BASE1</a></div><div class="ttdeci">#define BASE1</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00075">bigdecimal.c:75</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_adc5e20179bf95e62d3e01da83774c1a9"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#adc5e20179bf95e62d3e01da83774c1a9">PRIdSIZE</a></div><div class="ttdeci">#define PRIdSIZE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00176">ruby.h:176</a></div></div> <div class="ttc" id="bigdecimal_8c_html_adc26687ac6864e8400f8d9710a02e3ea"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#adc26687ac6864e8400f8d9710a02e3ea">VpPt5</a></div><div class="ttdeci">static Real * VpPt5</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03314">bigdecimal.c:3314</a></div></div> <div class="ttc" id="ossl_8h_html_acdcc5aaebf3f273c1762f24a6ece2e5e"><div class="ttname"><a href="../../d5/dac/ossl_8h.html#acdcc5aaebf3f273c1762f24a6ece2e5e">assert</a></div><div class="ttdeci">#define assert(condition)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/dac/ossl_8h_source.html#l00045">ossl.h:45</a></div></div> <div class="ttc" id="bigdecimal_8h_html_afd170e363a4c64742d2406af2c59aaf4"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#afd170e363a4c64742d2406af2c59aaf4">VpSetZero</a></div><div class="ttdeci">#define VpSetZero(a, s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00287">bigdecimal.h:287</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a96b2e932934d1a83d0dfe9f02f4a17e9"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a96b2e932934d1a83d0dfe9f02f4a17e9">VpSetNegInf</a></div><div class="ttdeci">#define VpSetNegInf(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00299">bigdecimal.h:299</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#l00111">defines.h:111</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a2372d42c88c84f677d64f400574f730c"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a2372d42c88c84f677d64f400574f730c">VP_ROUND_HALF_EVEN</a></div><div class="ttdeci">#define VP_ROUND_HALF_EVEN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00138">bigdecimal.h:138</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7b89f69d68840615f8b978c791579624"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7b89f69d68840615f8b978c791579624">VpSetPrecLimit</a></div><div class="ttdeci">VP_EXPORT size_t VpSetPrecLimit(size_t n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03441">bigdecimal.c:3441</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a9d3707fd42dad026e217ea7c9dfb4948"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a9d3707fd42dad026e217ea7c9dfb4948">rb_eFloatDomainError</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_eFloatDomainError</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01621">ruby.h:1621</a></div></div> <div class="ttc" id="bigdecimal_8c_html_adad7ec3a29f1c795e3ce0ea7349c4dec"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#adad7ec3a29f1c795e3ce0ea7349c4dec">RRATIONAL_ZERO_P</a></div><div class="ttdeci">#define RRATIONAL_ZERO_P(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00086">bigdecimal.c:86</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ad03e4f40f4cfde2d5173e64e0dd8684d"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad03e4f40f4cfde2d5173e64e0dd8684d">BigMath_log</a></div><div class="ttdeci">#define BigMath_log(x, n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02061">bigdecimal.c:2061</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a79bcfb6bde984f42d1124b068a509af7"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a79bcfb6bde984f42d1124b068a509af7">BASE</a></div><div class="ttdeci">#define BASE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00072">bigdecimal.c:72</a></div></div> <div class="ttc" id="bigdecimal_8c_html_adc53c7002c68cb8c52a6491521c5a432"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#adc53c7002c68cb8c52a6491521c5a432">VpSubAbs</a></div><div class="ttdeci">static BDIGIT VpSubAbs(Real *a, Real *b, Real *c)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04267">bigdecimal.c:4267</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ad1624a0486f932d09473f3dd9483918d"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ad1624a0486f932d09473f3dd9483918d">SZ_PINF</a></div><div class="ttdeci">#define SZ_PINF</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00107">bigdecimal.h:107</a></div></div> <div class="ttc" id="intern_8h_html_acbb281bacf6b80f460143348e26142e9"><div class="ttname"><a href="../../db/d2e/intern_8h.html#acbb281bacf6b80f460143348e26142e9">rb_inspect</a></div><div class="ttdeci">VALUE rb_inspect(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de1/object_8c_source.html#l00470">object.c:470</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aaf9c568541e720d34bda2d7009c69365"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aaf9c568541e720d34bda2d7009c69365">FIX2UINT</a></div><div class="ttdeci">#define FIX2UINT(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00633">ruby.h:633</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a7e19bc6386622de700e993bbd70d731c"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a7e19bc6386622de700e993bbd70d731c">VpNumOfChars</a></div><div class="ttdeci">VP_EXPORT size_t VpNumOfChars(Real *vp, const char *pszFmt)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03705">bigdecimal.c:3705</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a8425bde5e3250f1f2a4387812658771c"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a8425bde5e3250f1f2a4387812658771c">VpHasVal</a></div><div class="ttdeci">#define VpHasVal(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00301">bigdecimal.h:301</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a5753547d6a21eeb36aa8cb0ae7d6c9ce"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a5753547d6a21eeb36aa8cb0ae7d6c9ce">rb_intern_const</a></div><div class="ttdeci">#define rb_intern_const(str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01450">ruby.h:1450</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_af7ad03fdaa27fc55ae639d1da22758ad"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#af7ad03fdaa27fc55ae639d1da22758ad">RBIGNUM_NEGATIVE_P</a></div><div class="ttdeci">#define RBIGNUM_NEGATIVE_P(b)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01098">ruby.h:1098</a></div></div> <div class="ttc" id="defines_8h_html_a6ff69f8866ae756cb246b3eebf7a4fce"><div class="ttname"><a href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a></div><div class="ttdeci">void void xfree(void *)</div></div> <div class="ttc" id="bigdecimal_8h_html_a43b90532bc1f6dd50659892aef2b2886"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a43b90532bc1f6dd50659892aef2b2886">VP_EXCEPTION_OP</a></div><div class="ttdeci">#define VP_EXCEPTION_OP</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00125">bigdecimal.h:125</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a304cbbab7bd5573ab33773f6506d3345"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a304cbbab7bd5573ab33773f6506d3345">id_eq</a></div><div class="ttdeci">static ID id_eq</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00063">bigdecimal.c:63</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a9df44346cf2f3ab824b826fd969fdee4"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a9df44346cf2f3ab824b826fd969fdee4">BigDecimal_hash</a></div><div class="ttdeci">static VALUE BigDecimal_hash(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00325">bigdecimal.c:325</a></div></div> <div class="ttc" id="group__class_html_ga911071d40f9312e49a774ea0e1b12869"><div class="ttname"><a href="../../de/ddf/group__class.html#ga911071d40f9312e49a774ea0e1b12869">rb_define_module</a></div><div class="ttdeci">VALUE rb_define_module(const char *name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l00727">class.c:727</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a0e4cb8ae95acd6379bd22e1f6195a387"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0e4cb8ae95acd6379bd22e1f6195a387">check_rounding_mode</a></div><div class="ttdeci">static unsigned short check_rounding_mode(VALUE const v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00403">bigdecimal.c:403</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac4f5ca0bbea5b3103cb155ca01ae9e67"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac4f5ca0bbea5b3103cb155ca01ae9e67">BigDecimal_save_limit</a></div><div class="ttdeci">static VALUE BigDecimal_save_limit(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02669">bigdecimal.c:2669</a></div></div> <div class="ttc" id="array_8c_html_a9cfa42d4b79c89d68c53be8b2150a503"><div class="ttname"><a href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a></div><div class="ttdeci">#define rb_intern(str)</div></div> <div class="ttc" id="bigdecimal_8c_html_a1072f4d98b73dd535ca26013cc61a48c"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a1072f4d98b73dd535ca26013cc61a48c">BigDecimal_le</a></div><div class="ttdeci">static VALUE BigDecimal_le(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01100">bigdecimal.c:1100</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac33500d52ee47a5ad8a8d6b3360190b2"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac33500d52ee47a5ad8a8d6b3360190b2">BigDecimal_save_exception_mode</a></div><div class="ttdeci">static VALUE BigDecimal_save_exception_mode(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l02619">bigdecimal.c:2619</a></div></div> <div class="ttc" id="bigdecimal_8c_html_acb42a597d0107f24bc944f476a6f6775"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#acb42a597d0107f24bc944f476a6f6775">AddExponent</a></div><div class="ttdeci">static int AddExponent(Real *a, SIGNED_VALUE n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03787">bigdecimal.c:3787</a></div></div> <div class="ttc" id="bigdecimal_8h_html_ae80ec6562f2f6a9efdcadbc9206f6a2e"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#ae80ec6562f2f6a9efdcadbc9206f6a2e">VP_ROUND_MODE</a></div><div class="ttdeci">#define VP_ROUND_MODE</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00131">bigdecimal.h:131</a></div></div> <div class="ttc" id="date__strftime_8c_html_aa84d960185b18347956518e4d00766b4"><div class="ttname"><a href="../../d1/d6f/date__strftime_8c.html#aa84d960185b18347956518e4d00766b4">mod</a></div><div class="ttdeci">#define mod(x, y)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/d6f/date__strftime_8c_source.html#l00028">date_strftime.c:28</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a00dc82065d4f33b92dce7ae4bf136476"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a00dc82065d4f33b92dce7ae4bf136476">VpGetDoubleNegZero</a></div><div class="ttdeci">VP_EXPORT double VpGetDoubleNegZero(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03565">bigdecimal.c:3565</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ad2171de399eb36babca44e372300f1ad"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ad2171de399eb36babca44e372300f1ad">rb_mBigMath</a></div><div class="ttdeci">VALUE rb_mBigMath</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00045">bigdecimal.c:45</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#l00102">_sdbm.c:102</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ae9390780cd6d04a2e0ac3d6282cdefea"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ae9390780cd6d04a2e0ac3d6282cdefea">FIX2LONG</a></div><div class="ttdeci">#define FIX2LONG(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00345">ruby.h:345</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a2edf6990280eb2637623ccd421dee4f0"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a2edf6990280eb2637623ccd421dee4f0">Qundef</a></div><div class="ttdeci">#define Qundef</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00428">ruby.h:428</a></div></div> <div class="ttc" id="bigdecimal_8c_html_af848c92a8eb5467e23e8e60dbddfa80a"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#af848c92a8eb5467e23e8e60dbddfa80a">VpReallocReal</a></div><div class="ttdeci">#define VpReallocReal(ptr, prec)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00580">bigdecimal.c:580</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a56e3f63a8d8066c0e546d88ca466faea"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a56e3f63a8d8066c0e546d88ca466faea">id_ceiling</a></div><div class="ttdeci">static ID id_ceiling</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00059">bigdecimal.c:59</a></div></div> <div class="ttc" id="bigdecimal_8h_html_abec6bb5a28206ba19d42a7ef58329505"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#abec6bb5a28206ba19d42a7ef58329505">VP_EXCEPTION_ALL</a></div><div class="ttdeci">#define VP_EXCEPTION_ALL</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00117">bigdecimal.h:117</a></div></div> <div class="ttc" id="group__defmethod_html_ga118dc7abcdb97f56fe35727ac0ff6eb8"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a></div><div class="ttdeci">void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01479">class.c:1479</a></div></div> <div class="ttc" id="error_8c_html_aa5b1972d475e9a090c8ef607ce033008"><div class="ttname"><a href="../../db/dcc/error_8c.html#aa5b1972d475e9a090c8ef607ce033008">rb_warn</a></div><div class="ttdeci">void rb_warn(const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00223">error.c:223</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a26e0e280cf86ef12914c203fc0ed051e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a26e0e280cf86ef12914c203fc0ed051e">VpMemRealloc</a></div><div class="ttdeci">VP_EXPORT void * VpMemRealloc(void *ptr, size_t mb)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l03350">bigdecimal.c:3350</a></div></div> <div class="ttc" id="vm__debug_8h_html_a1baecad7f27ccf1689612054ecf6a397"><div class="ttname"><a href="../../d5/d8c/vm__debug_8h.html#a1baecad7f27ccf1689612054ecf6a397">bp</a></div><div class="ttdeci">#define bp()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d8c/vm__debug_8h_source.html#l00025">vm_debug.h:25</a></div></div> <div class="ttc" id="error_8c_html_ab5e2a9fec766c75176fbb262bfe6a596"><div class="ttname"><a href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a></div><div class="ttdeci">VALUE rb_eArgError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00549">error.c:549</a></div></div> <div class="ttc" id="bigdecimal_8c_html_ac42ff2e6703730f1bc0d047b0234e200"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac42ff2e6703730f1bc0d047b0234e200">BigDecimal_IsInfinite</a></div><div class="ttdeci">static VALUE BigDecimal_IsInfinite(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00611">bigdecimal.c:611</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a68f01aa0c3a853c8ebf001e29f47b7ff"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a68f01aa0c3a853c8ebf001e29f47b7ff">VpExponent10</a></div><div class="ttdeci">VP_EXPORT ssize_t VpExponent10(Real *a)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05106">bigdecimal.c:5106</a></div></div> <div class="ttc" id="bigdecimal_8h_html_aae70f10dc28a3f9db157d600d5ceab8b"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#aae70f10dc28a3f9db157d600d5ceab8b">BDIGIT</a></div><div class="ttdeci">#define BDIGIT</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00040">bigdecimal.h:40</a></div></div> <div class="ttc" id="bigdecimal_8h_html_a6b6cfe4b9887bb7df3f0aa93be6c84d8"><div class="ttname"><a href="../../d0/da5/bigdecimal_8h.html#a6b6cfe4b9887bb7df3f0aa93be6c84d8">VP_ROUND_CEIL</a></div><div class="ttdeci">#define VP_ROUND_CEIL</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00136">bigdecimal.h:136</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a39fe9fc5399c155238c324987da36d06"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a39fe9fc5399c155238c324987da36d06">BigDecimal_frac</a></div><div class="ttdeci">static VALUE BigDecimal_frac(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01750">bigdecimal.c:1750</a></div></div> <div class="ttc" id="struct_real_html_a131950c8e8ab21e20556567d1b98e9e4"><div class="ttname"><a href="../../d9/d5a/struct_real.html#a131950c8e8ab21e20556567d1b98e9e4">Real::MaxPrec</a></div><div class="ttdeci">size_t MaxPrec</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/da5/bigdecimal_8h_source.html#l00162">bigdecimal.h:162</a></div></div> <div class="ttc" id="bigdecimal_8c_html_aafd2ce75fac45a8cc4cda3942fb84e6b"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aafd2ce75fac45a8cc4cda3942fb84e6b">BigDecimal_sub</a></div><div class="ttdeci">static VALUE BigDecimal_sub(VALUE self, VALUE r)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00904">bigdecimal.c:904</a></div></div> <div class="ttc" id="ruby_8c_html_af2efa898e9eed6fe6715279cb1ec35b0"><div class="ttname"><a href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a></div><div class="ttdeci">char ** argv</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d77/ruby_8c_source.html#l00132">ruby.c:132</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#l01778">ruby.h:1778</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a43afc3f97918b9e125feee3ec92f9e9e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a43afc3f97918b9e125feee3ec92f9e9e">id_floor</a></div><div class="ttdeci">static ID id_floor</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00061">bigdecimal.c:61</a></div></div> <div class="ttc" id="intern_8h_html_aa9ef0eef5110cc98ba79a40a876c3d1c"><div class="ttname"><a href="../../db/d2e/intern_8h.html#aa9ef0eef5110cc98ba79a40a876c3d1c">rb_num_coerce_cmp</a></div><div class="ttdeci">VALUE rb_num_coerce_cmp(VALUE, VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l00292">numeric.c:292</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a52756fbeab6f1a1e646b6fff19d8b680"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a52756fbeab6f1a1e646b6fff19d8b680">BigDecimal_to_s</a></div><div class="ttdeci">static VALUE BigDecimal_to_s(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01889">bigdecimal.c:1889</a></div></div> <div class="ttc" id="intern_8h_html_a48b2b873adb8b6a04254bd631c4b03c5"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a></div><div class="ttdeci">VALUE rb_str_new(const char *, long)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l00534">string.c:534</a></div></div> <div class="ttc" id="intern_8h_html_ac2be7243e739fa8f5dce6be0c8ee5f6d"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a></div><div class="ttdeci">VALUE rb_obj_class(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de1/object_8c_source.html#l00226">object.c:226</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_ac1cf124db1e117ff7d61d608024f63ee"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac1cf124db1e117ff7d61d608024f63ee">SIGNED_VALUE</a></div><div class="ttdeci">#define SIGNED_VALUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00090">ruby.h:90</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a13a96ba28462e613a66c21c1cc8403b1"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a13a96ba28462e613a66c21c1cc8403b1">GUARD_OBJ</a></div><div class="ttdeci">#define GUARD_OBJ(p, y)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l00069">bigdecimal.c:69</a></div></div> <div class="ttc" id="bigdecimal_8c_html_a814bbbe6c0e4d9242e89f96dd259a984"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a814bbbe6c0e4d9242e89f96dd259a984">VpSqrt</a></div><div class="ttdeci">VP_EXPORT int VpSqrt(Real *y, Real *x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05675">bigdecimal.c:5675</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>