diff options
-rw-r--r-- | ext/win32ole/win32ole.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c index dbed05f8e5..90268975ff 100644 --- a/ext/win32ole/win32ole.c +++ b/ext/win32ole/win32ole.c @@ -1269,13 +1269,16 @@ ole_val2variant(VALUE val, VARIANT *var) V_BSTR(var) = ole_vstr2wc(val); break; case T_FIXNUM: - V_I4(var) = NUM2LONG(val); - if (V_I4(var) == NUM2LONG(val)) { - V_VT(var) = VT_I4; - } - else { - V_I8(var) = NUM2LONG(val); - V_VT(var) = VT_I8; + V_VT(var) = VT_I4; + { + long v = NUM2LONG(val); + V_I4(var) = (LONG)v; +#if SIZEOF_LONG > 4 + if (V_I4(var) != v) { + V_I8(var) = NUM2LONG(val); + V_VT(var) = VT_I8; + } +#endif } break; case T_BIGNUM: |