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, 2 insertions, 4 deletions

diff --git a/sysif.c b/sysif.c
index 9de6e12d..43f8fe80 100644
--- a/sysif.c
+++ b/sysif.c
@@ -1351,11 +1351,9 @@ val num_off_t(off_t off)
   } else {
 #if HAVE_DOUBLE_INTPTR_T
     if (sizeof (off_t) <= sizeof (double_intptr_t)) {
-      val n = make_bignum();
-      mp_set_double_intptr(mp(n), off);
-      return n;
+      return bignum_dbl_ipt(off);
     } else {
-      abort();
+      internal_error("portme: unsupported off_t size");
     }
 #else
 #error port me!