fix type mismatch in result of integer_cmm_testBitIntegerzh
authorSimon Marlow <marlowsd@gmail.com>
Mon, 22 Oct 2012 14:39:39 +0000 (15:39 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 22 Oct 2012 14:39:39 +0000 (15:39 +0100)
cbits/gmp-wrappers.cmm

index 9868434..0390eb5 100644 (file)
@@ -299,7 +299,7 @@ again:                                                          \
   /* Perform the operation */                                   \
   (res) = ccall mp_fun(mp_tmp "ptr", ul);                       \
                                                                 \
-  return (res);                                                 \
+  return (TO_W_(res));                                          \
 }
 
 #define GMP_TAKE1_RET1(name,mp_fun)                             \