kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/bigdecimal/bigdecimal.c, ext/bigdecimal/bigdecimal.h, ext/bigdecimal/extconf.rb: BASE and BASE_FIG are defined based on the size of BDIGIT and renamed.

Browse source 
* ext/bigdecimal/bigdecimal.c, ext/bigdecimal/bigdecimal.h: use BDIGIT for Real#frac.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@28947 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
mrkn 2010-08-10 06:25:27 +00:00
parent 678af70ce8
commit 7694956ef7
4 changed files with 285 additions and 298 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,3 +1,12 @@
Tue Aug 10 15:24:30 2010 Kenta Murata <mrkn@mrkn.jp>
* ext/bigdecimal/bigdecimal.c, ext/bigdecimal/bigdecimal.h,
ext/bigdecimal/extconf.rb: BASE and BASE_FIG are defined
based on the size of BDIGIT.
* ext/bigdecimal/bigdecimal.c, ext/bigdecimal/bigdecimal.h:
use BDIGIT for Real#frac.
Tue Aug 10 15:19:45 2010 Kenta Murata <mrkn@mrkn.jp> Tue Aug 10 15:19:45 2010 Kenta Murata <mrkn@mrkn.jp>
* ext/bigdecimal/bigdecimal.h, ext/bigdecimal/bigdecimal.c: * ext/bigdecimal/bigdecimal.h, ext/bigdecimal/bigdecimal.c:

518
ext/bigdecimal/bigdecimal.c
View file

File diff suppressed because it is too large Load diff

49
ext/bigdecimal/bigdecimal.h
View file

@ -13,10 +13,11 @@
* *
*/ */
#ifndef ____BIG_DECIMAL__H____ #ifndef RUBY_BIG_DECIMAL_H
#define ____BIG_DECIMAL__H____ #define RUBY_BIG_DECIMAL_H 1
#include "ruby/ruby.h" #include "ruby/ruby.h"
#include <float.h>
#if defined(__cplusplus) #if defined(__cplusplus)
extern "C" { extern "C" {
@ -24,6 +25,24 @@ extern "C" {
extern VALUE rb_cBigDecimal; extern VALUE rb_cBigDecimal;
#if 0 || SIZEOF_BDIGITS >= 16
# define RMPD_COMPONENT_FIGURES 38
# define RMPD_BASE ((BDIGIT)100000000000000000000000000000000000000U)
#elif SIZEOF_BDIGITS >= 8
# define RMPD_COMPONENT_FIGURES 19
# define RMPD_BASE ((BDIGIT)10000000000000000000U)
#elif SIZEOF_BDIGITS >= 4
# define RMPD_COMPONENT_FIGURES 9
# define RMPD_BASE ((BDIGIT)1000000000U)
#elif SIZEOF_BDIGITS >= 2
# define RMPD_COMPONENT_FIGURES 4
# define RMPD_BASE ((BDIGIT)10000U)
#else
# define RMPD_COMPONENT_FIGURES 2
# define RMPD_BASE ((BDIGIT)100U)
#endif
/* /*
* NaN & Infinity * NaN & Infinity
*/ */
@ -97,7 +116,7 @@ typedef struct {
* -3 : Negative infinite number * -3 : Negative infinite number
*/ */
short flag; /* Not used in vp_routines,space for user. */ short flag; /* Not used in vp_routines,space for user. */
U_LONG frac[1]; /* Pointer to array of fraction part. */ BDIGIT frac[1]; /* Pointer to array of fraction part. */
} Real; } Real;
/* /*
@ -107,13 +126,20 @@ typedef struct {
*/ */
VP_EXPORT Real * VP_EXPORT Real *
VpNewRbClass(U_LONG mx,char *str,VALUE klass); VpNewRbClass(U_LONG mx, char *str, VALUE klass);
VP_EXPORT Real *VpCreateRbObject(U_LONG mx,const char *str); VP_EXPORT Real *VpCreateRbObject(U_LONG mx,const char *str);
VP_EXPORT U_LONG VpBaseFig(void); static inline BDIGIT
VP_EXPORT U_LONG VpDblFig(void); rmpd_base_value(void) { return RMPD_BASE; }
VP_EXPORT U_LONG VpBaseVal(void); static inline size_t
rmpd_component_figures(void) { return RMPD_COMPONENT_FIGURES; }
static inline size_t
rmpd_double_figures(void) { return 1+DBL_DIG; }
#define VpBaseFig() rmpd_component_figures()
#define VpDblFig() rmpd_double_figures()
#define VpBaseVal() rmpd_base_value()
/* Zero,Inf,NaN (isinf(),isnan() used to check) */ /* Zero,Inf,NaN (isinf(),isnan() used to check) */
VP_EXPORT double VpGetDoubleNaN(void); VP_EXPORT double VpGetDoubleNaN(void);
@ -135,7 +161,7 @@ VP_EXPORT int VpException(unsigned short f,const char *str,int always);
VP_EXPORT int VpIsNegDoubleZero(double v); VP_EXPORT int VpIsNegDoubleZero(double v);
#endif #endif
VP_EXPORT U_LONG VpNumOfChars(Real *vp,const char *pszFmt); VP_EXPORT U_LONG VpNumOfChars(Real *vp,const char *pszFmt);
VP_EXPORT U_LONG VpInit(U_LONG BaseVal); VP_EXPORT size_t VpInit(BDIGIT BaseVal);
VP_EXPORT void *VpMemAlloc(U_LONG mb); VP_EXPORT void *VpMemAlloc(U_LONG mb);
VP_EXPORT void VpFree(Real *pv); VP_EXPORT void VpFree(Real *pv);
VP_EXPORT Real *VpAlloc(U_LONG mx, const char *szVal); VP_EXPORT Real *VpAlloc(U_LONG mx, const char *szVal);
@ -188,7 +214,7 @@ VP_EXPORT Real *VpOne(void);
#define VpSetSign(a,s) {if((s)>0) (a)->sign=(short)VP_SIGN_POSITIVE_FINITE;else (a)->sign=(short)VP_SIGN_NEGATIVE_FINITE;} #define VpSetSign(a,s) {if((s)>0) (a)->sign=(short)VP_SIGN_POSITIVE_FINITE;else (a)->sign=(short)VP_SIGN_NEGATIVE_FINITE;}
/* 1 */ /* 1 */
#define VpSetOne(a) {(a)->frac[0]=(a)->Prec=(a)->exponent=1;(a)->sign=VP_SIGN_POSITIVE_FINITE;} #define VpSetOne(a) {(a)->Prec=(a)->exponent=(a)->frac[0]=1;(a)->sign=VP_SIGN_POSITIVE_FINITE;}
/* ZEROs */ /* ZEROs */
#define VpIsPosZero(a) ((a)->sign==VP_SIGN_POSITIVE_ZERO) #define VpIsPosZero(a) ((a)->sign==VP_SIGN_POSITIVE_ZERO)
@ -215,10 +241,11 @@ VP_EXPORT Real *VpOne(void);
#define VpExponent(a) (a->exponent) #define VpExponent(a) (a->exponent)
#ifdef BIGDECIMAL_DEBUG #ifdef BIGDECIMAL_DEBUG
int VpVarCheck(Real * v); int VpVarCheck(Real * v);
VP_EXPORT int VPrint(FILE *fp,const char *cntl_chr,Real *a);
#endif /* BIGDECIMAL_DEBUG */ #endif /* BIGDECIMAL_DEBUG */
VP_EXPORT int VPrint(FILE *fp,const char *cntl_chr,Real *a);
#if defined(__cplusplus) #if defined(__cplusplus)
} /* extern "C" { */ } /* extern "C" { */
#endif #endif
#endif /* ____BIG_DECIMAL__H____ */
#endif /* RUBY_BIG_DECIMAL_H */

7
ext/bigdecimal/extconf.rb
View file

@ -1,10 +1,3 @@
require 'mkmf' require 'mkmf'
base_fig = 0
src = "(BASE * (BASE+1)) / BASE == (BASE+1)"
while try_static_assert(src, nil, "-DBASE=10#{'0'*base_fig}UL")
base_fig += 1
end
$defs << "-DBASE=1#{'0'*base_fig}UL" << "-DBASE_FIG=#{base_fig}"
create_makefile('bigdecimal') create_makefile('bigdecimal')