Added rb_int_pair_to_real

2 files changed, 7 insertions, 2 deletions

diff --git a/include/ruby/random.h b/include/ruby/random.h
index bb6cf73bae..21b6796a3e 100644
--- a/include/ruby/random.h
+++ b/include/ruby/random.h
@@ -63,8 +63,7 @@ typedef const rb_data_type_t rb_random_data_type_t;
 #endif
 
 void rb_random_mark(void *ptr);
-double rb_int_pair_to_real_exclusive(uint32_t a, uint32_t b);
-double rb_int_pair_to_real_inclusive(uint32_t a, uint32_t b);
+double rb_int_pair_to_real(uint32_t a, uint32_t b, int excl);
 void rb_rand_bytes_int32(rb_random_get_int32_func *, rb_random_t *, void *, size_t);
 RUBY_EXTERN const rb_data_type_t rb_random_data_type;
 
diff --git a/random.c b/random.c
index 08c69182fb..3fef5cea3b 100644
--- a/random.c
+++ b/random.c
@@ -992,6 +992,12 @@ random_real(VALUE obj, rb_random_t *rnd, int excl)
         a = random_int32(rng, rnd);
         b = random_int32(rng, rnd);
     }
+    return rb_int_pair_to_real(a, b, excl);
+}
+
+double
+rb_int_pair_to_real(uint32_t a, uint32_t b, int excl)
+{
     if (excl) {
 	return int_pair_to_real_exclusive(a, b);
     }