~ chicken-core (chicken-5) 701ab0dda7fc15165e6335fd0ad33d58f084ff90
commit 701ab0dda7fc15165e6335fd0ad33d58f084ff90
Author: Kooda <kooda@upyum.com>
AuthorDate: Tue May 1 19:54:45 2018 +0200
Commit: Kooda <kooda@upyum.com>
CommitDate: Tue May 1 20:05:51 2018 +0200
Remove a warning when compiling with clang.
This fixes #1438
diff --git a/chicken.h b/chicken.h
index 604a5935..b90bc3a0 100644
--- a/chicken.h
+++ b/chicken.h
@@ -2405,7 +2405,9 @@ inline static C_word C_num_to_int(C_word x)
if(x & C_FIXNUM_BIT) {
return C_unfix(x);
} else {
+#if DEBUGBUILD /* removes a warning with clang */
C_CHECKp(x,C_bignump(C_VAL1(x)),0);
+#endif
if (C_bignum_negativep(x)) return -(C_word)C_bignum_digits(x)[0];
else return (C_word)C_bignum_digits(x)[0]; /* should never be larger */
}
Trap