sysif: use double-intptr function from arith.

* arith.c (bignum_dbl_ipt): Change internal function to
external linkage.

* arith.h (bignum_dbl_ipt): Conditionally declared.

* sysif.c (num_off_t): Use bignum_dbl_ipt instead of
open-coding exactly the same thing that bignum_dbl_ipt does.
Abort is changed to same internal_error as in off_t_num.

1 files changed, 1 insertions, 1 deletions

diff --git a/arith.c b/arith.c
index 62b53618..e45ad050 100644
--- a/arith.c
+++ b/arith.c
@@ -154,7 +154,7 @@ int num_to_buffer(val num, mem_t *buf, int bytes)
 
 #if HAVE_DOUBLE_INTPTR_T
 
-static val bignum_dbl_ipt(double_intptr_t di)
+val bignum_dbl_ipt(double_intptr_t di)
 {
   val n = make_bignum();
   mp_set_double_intptr(mp(n), di);