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, 3 insertions, 0 deletions

diff --git a/arith.h b/arith.h
index 22c8bbe2..919de83c 100644
--- a/arith.h
+++ b/arith.h
@@ -33,6 +33,9 @@ val num_from_buffer(mem_t *buf, int bytes);
 int num_to_buffer(val num, mem_t *buf, int bytes);
 int highest_bit(int_ptr_t n);
 val normalize(val bignum);
+#if HAVE_DOUBLE_INTPTR_T
+val bignum_dbl_ipt(double_intptr_t di);
+#endif
 val in_int_ptr_range(val bignum);
 ucnum c_unum(val num);
 val unum(ucnum u);