Fix Win64 type issue

diff --git a/vm/math.c b/vm/math.c
index 388a472f2e9edde841943ddb3b701e90893a42fb..c6b91bc8f7dedb23a161c297a9415fae5c624bf2 100644 (file)
--- a/vm/math.c
+++ b/vm/math.c
@@ -109,7 +109,7 @@ void primitive_fixnum_shift(void)
        }
        else if(y < WORD_SIZE - TAG_BITS)
        {
-               F_FIXNUM mask = -(1L << (WORD_SIZE - 1 - TAG_BITS - y));
+               F_FIXNUM mask = -((F_FIXNUM)1 << (WORD_SIZE - 1 - TAG_BITS - y));
                if((x > 0 && (x & mask) == 0) || (x & mask) == mask)
                {
                        dpush(tag_fixnum(x << y));