2 files changed, 5 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 846daeaf2c..416fec3831 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Jun 23 17:29:51 2013  Tanaka Akira  <akr@fsij.org>
+
+	* bignum.c (integer_unpack_single_bdigit): Use a cast.
+
 Sun Jun 23 15:38:07 2013  Koichi Sasada  <ko1@atdot.net>
 
 	* bootstraptest/test_thread.rb: rescue resource limitation errors.
diff --git a/bignum.c b/bignum.c
index ca28026cbf..e0eb646515 100644
--- a/bignum.c
+++ b/bignum.c
@@ -1351,7 +1351,7 @@ integer_unpack_single_bdigit(BDIGIT u, size_t size, int flags, BDIGIT *dp)
             ((size == SIZEOF_BDIGITS && u == 0) ? -2 : -1) :
             ((u >> (size * CHAR_BIT - 1)) ? -1 : 1);
         if (sign < 0)
-            u = ((BDIGIT)0) - (u | LSHIFTX((~(BDIGIT)0), size * CHAR_BIT));
+            u = (BDIGIT)(-(u | LSHIFTX((~(BDIGIT)0), size * CHAR_BIT)));
     }
     else
         sign = (flags & INTEGER_PACK_NEGATIVE) ? -1 : 1;