mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
4ba3a4491e
This improve the conversion speed several times faster than before.
```
RUBYLIB= BUNDLER_ORIG_RUBYLIB= /home/mrkn/.rbenv/versions/3.0.0/bin/ruby -v -S benchmark-driver /home/mrkn/src/github.com/ruby/bigdecimal/benchmark/from_float.yml
ruby 3.0.0p0 (2020-12-25 revision 95aff21468) [x86_64-linux]
Calculating -------------------------------------
bigdecimal 3.0.0 master
flt_e0 156.400k 783.356k i/s - 100.000k times in 0.639388s 0.127656s
flt_ep10 158.640k 777.978k i/s - 100.000k times in 0.630359s 0.128538s
flt_ep100 101.676k 504.259k i/s - 100.000k times in 0.983512s 0.198311s
flt_em10 103.439k 726.339k i/s - 100.000k times in 0.966751s 0.137677s
flt_em100 79.675k 651.446k i/s - 100.000k times in 1.255095s 0.153505s
Comparison:
flt_e0
master: 783355.6 i/s
bigdecimal 3.0.0: 156399.5 i/s - 5.01x slower
flt_ep10
master: 777977.6 i/s
bigdecimal 3.0.0: 158639.7 i/s - 4.90x slower
flt_ep100
master: 504259.4 i/s
bigdecimal 3.0.0: 101676.5 i/s - 4.96x slower
flt_em10
master: 726338.6 i/s
bigdecimal 3.0.0: 103439.2 i/s - 7.02x slower
flt_em100
master: 651446.3 i/s
bigdecimal 3.0.0: 79675.3 i/s - 8.18x slower
```
https://github.com/ruby/bigdecimal/commit/5bdaedd530
https://github.com/ruby/bigdecimal/commit/9bfff57f90
https://github.com/ruby/bigdecimal/commit/d071a0abbb
235 lines
4.2 KiB
C++
235 lines
4.2 KiB
C++
#ifndef MISSING_H
|
|
#define MISSING_H 1
|
|
|
|
#if defined(__cplusplus)
|
|
extern "C" {
|
|
#if 0
|
|
} /* satisfy cc-mode */
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
# include <stdlib.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_MATH_H
|
|
# include <math.h>
|
|
#endif
|
|
|
|
#ifndef RB_UNUSED_VAR
|
|
# if defined(_MSC_VER) && _MSC_VER >= 1911
|
|
# define RB_UNUSED_VAR(x) x [[maybe_unused]]
|
|
|
|
# elif defined(__has_cpp_attribute) && __has_cpp_attribute(maybe_unused)
|
|
# define RB_UNUSED_VAR(x) x [[maybe_unused]]
|
|
|
|
# elif defined(__has_c_attribute) && __has_c_attribute(maybe_unused)
|
|
# define RB_UNUSED_VAR(x) x [[maybe_unused]]
|
|
|
|
# elif defined(__GNUC__)
|
|
# define RB_UNUSED_VAR(x) x __attribute__ ((unused))
|
|
|
|
# else
|
|
# define RB_UNUSED_VAR(x) x
|
|
# endif
|
|
#endif /* RB_UNUSED_VAR */
|
|
|
|
#if defined(_MSC_VER) && _MSC_VER >= 1310
|
|
# define HAVE___ASSUME
|
|
|
|
#elif defined(__INTEL_COMPILER) && __INTEL_COMPILER >= 1300
|
|
# define HAVE___ASSUME
|
|
#endif
|
|
|
|
#ifndef UNREACHABLE
|
|
# if __has_builtin(__builtin_unreachable)
|
|
# define UNREACHABLE __builtin_unreachable()
|
|
|
|
# elif HAVE___ASSUME
|
|
# define UNREACHABLE __assume(0)
|
|
|
|
# else
|
|
# define UNREACHABLE /* unreachable */
|
|
# endif
|
|
#endif /* UNREACHABLE */
|
|
|
|
/* bool */
|
|
|
|
#if defined(__bool_true_false_are_defined)
|
|
# /* Take that. */
|
|
|
|
#elif defined(HAVE_STDBOOL_H)
|
|
# include <stdbool.h>
|
|
|
|
#else
|
|
typedef unsigned char _Bool;
|
|
# define bool _Bool
|
|
# define true ((_Bool)+1)
|
|
# define false ((_Bool)-1)
|
|
# define __bool_true_false_are_defined
|
|
#endif
|
|
|
|
/* abs */
|
|
|
|
#ifndef HAVE_LABS
|
|
static inline long
|
|
labs(long const x)
|
|
{
|
|
if (x < 0) return -x;
|
|
return x;
|
|
}
|
|
#endif
|
|
|
|
#ifndef HAVE_LLABS
|
|
static inline LONG_LONG
|
|
llabs(LONG_LONG const x)
|
|
{
|
|
if (x < 0) return -x;
|
|
return x;
|
|
}
|
|
#endif
|
|
|
|
#ifdef vabs
|
|
# undef vabs
|
|
#endif
|
|
#if SIZEOF_VALUE <= SIZEOF_INT
|
|
# define vabs abs
|
|
#elif SIZEOF_VALUE <= SIZEOF_LONG
|
|
# define vabs labs
|
|
#elif SIZEOF_VALUE <= SIZEOF_LONG_LONG
|
|
# define vabs llabs
|
|
#endif
|
|
|
|
/* finite */
|
|
|
|
#ifndef HAVE_FINITE
|
|
static int
|
|
finite(double)
|
|
{
|
|
return !isnan(n) && !isinf(n);
|
|
}
|
|
#endif
|
|
|
|
#ifndef isfinite
|
|
# ifndef HAVE_ISFINITE
|
|
# define HAVE_ISFINITE 1
|
|
# define isfinite(x) finite(x)
|
|
# endif
|
|
#endif
|
|
|
|
/* dtoa */
|
|
char *BigDecimal_dtoa(double d_, int mode, int ndigits, int *decpt, int *sign, char **rve);
|
|
|
|
/* rational */
|
|
|
|
#ifndef HAVE_RB_RATIONAL_NUM
|
|
static inline VALUE
|
|
rb_rational_num(VALUE rat)
|
|
{
|
|
#ifdef HAVE_TYPE_STRUCT_RRATIONAL
|
|
return RRATIONAL(rat)->num;
|
|
#else
|
|
return rb_funcall(rat, rb_intern("numerator"), 0);
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
#ifndef HAVE_RB_RATIONAL_DEN
|
|
static inline VALUE
|
|
rb_rational_den(VALUE rat)
|
|
{
|
|
#ifdef HAVE_TYPE_STRUCT_RRATIONAL
|
|
return RRATIONAL(rat)->den;
|
|
#else
|
|
return rb_funcall(rat, rb_intern("denominator"), 0);
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
/* complex */
|
|
|
|
#ifndef HAVE_RB_COMPLEX_REAL
|
|
static inline VALUE
|
|
rb_complex_real(VALUE cmp)
|
|
{
|
|
#ifdef HAVE_TYPE_STRUCT_RCOMPLEX
|
|
return RCOMPLEX(cmp)->real;
|
|
#else
|
|
return rb_funcall(cmp, rb_intern("real"), 0);
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
#ifndef HAVE_RB_COMPLEX_IMAG
|
|
static inline VALUE
|
|
rb_complex_imag(VALUE cmp)
|
|
{
|
|
# ifdef HAVE_TYPE_STRUCT_RCOMPLEX
|
|
return RCOMPLEX(cmp)->imag;
|
|
# else
|
|
return rb_funcall(cmp, rb_intern("imag"), 0);
|
|
# endif
|
|
}
|
|
#endif
|
|
|
|
/* array */
|
|
|
|
#ifndef FIX_CONST_VALUE_PTR
|
|
# if defined(__fcc__) || defined(__fcc_version) || \
|
|
defined(__FCC__) || defined(__FCC_VERSION)
|
|
/* workaround for old version of Fujitsu C Compiler (fcc) */
|
|
# define FIX_CONST_VALUE_PTR(x) ((const VALUE *)(x))
|
|
# else
|
|
# define FIX_CONST_VALUE_PTR(x) (x)
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_RB_ARRAY_CONST_PTR
|
|
static inline const VALUE *
|
|
rb_array_const_ptr(VALUE a)
|
|
{
|
|
return FIX_CONST_VALUE_PTR((RBASIC(a)->flags & RARRAY_EMBED_FLAG) ?
|
|
RARRAY(a)->as.ary : RARRAY(a)->as.heap.ptr);
|
|
}
|
|
#endif
|
|
|
|
#ifndef RARRAY_CONST_PTR
|
|
# define RARRAY_CONST_PTR(a) rb_array_const_ptr(a)
|
|
#endif
|
|
|
|
#ifndef RARRAY_AREF
|
|
# define RARRAY_AREF(a, i) (RARRAY_CONST_PTR(a)[i])
|
|
#endif
|
|
|
|
/* symbol */
|
|
|
|
#ifndef HAVE_RB_SYM2STR
|
|
static inline VALUE
|
|
rb_sym2str(VALUE sym)
|
|
{
|
|
return rb_id2str(SYM2ID(sym));
|
|
}
|
|
#endif
|
|
|
|
/* st */
|
|
|
|
#ifndef ST2FIX
|
|
# undef RB_ST2FIX
|
|
# define RB_ST2FIX(h) LONG2FIX((long)(h))
|
|
# define ST2FIX(h) RB_ST2FIX(h)
|
|
#endif
|
|
|
|
/* warning */
|
|
|
|
#if !defined(HAVE_RB_CATEGORY_WARN) || !defined(HAVE_CONST_RB_WARN_CATEGORY_DEPRECATED)
|
|
# define rb_category_warn(category, ...) rb_warn(__VA_ARGS__)
|
|
#endif
|
|
|
|
#if defined(__cplusplus)
|
|
#if 0
|
|
{ /* satisfy cc-mode */
|
|
#endif
|
|
} /* extern "C" { */
|
|
#endif
|
|
|
|
#endif /* MISSING_H */
|