* arith.c (INT_PTR_MAX_MP): New static variable.

(in_int_ptr_range): New function.
(arith_init): Initialize INT_PTR_MAX_MP.

* arith.h (in_int_ptr_range): Declared.

* lib.c (c_num): Allow bignums to be converted to a cnum, if
they are in range, rather than allowing only fixnums.

* rand.c (make_random_state): Now that we have such a function,
initialize random seed using time value from time_sec_usec rather than
from time and clock.  clock is bad for random seeding because it
measures virtual time since the start of the process.

1 files changed, 10 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index f858df16..e0c73dbb 100644
--- a/lib.c
+++ b/lib.c
@@ -1151,11 +1151,18 @@ val num(cnum n)
 
 cnum c_num(val num)
 {
-  switch (tag(num)) {
-  case TAG_CHR: case TAG_NUM:
+  switch (type(num)) {
+  case CHR: case NUM:
     return ((cnum) num) >> TAG_SHIFT;
+  case BGNUM:
+    if (in_int_ptr_range(num)) {
+      int_ptr_t out;
+      mp_get_intptr(mp(num), &out);
+      return out;
+    }
+    uw_throwf(error_s, lit("c_num: ~s is out of cnum range"), num, nao);
   default:
-    type_mismatch(lit("~s is not a fixnum"), num, nao);
+    type_mismatch(lit("c_num: ~s is not an integer"), num, nao);
   }
 }