diff --git a/ChangeLog b/ChangeLog index 0712c382a3..d7bedbcbe2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,10 +1,15 @@ +Mon Mar 20 11:12:38 2006 NAKAMURA Usaku + + * ext/win32ole/win32ole.c (folevariant_value): could not compile + with C90 compiler. + Sun Mar 19 09:46:30 2006 Masaki Suketa - * ext/win32ole/win32ole.c(ole_val2olevariantdata): change behavior + * ext/win32ole/win32ole.c (ole_val2olevariantdata): change behavior of converting OLE Variant object with VT_ARRAY|VT_UI1 and Ruby String object. - * ext/win32ole/win32ole.c(folevariant_value): ditto. + * ext/win32ole/win32ole.c (folevariant_value): ditto. * ext/win32ole/tests/testOLEVARIANT.rb: ditto. diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c index e3912bcdad..c42e9f9a29 100644 --- a/ext/win32ole/win32ole.c +++ b/ext/win32ole/win32ole.c @@ -7131,12 +7131,13 @@ folevariant_value(self) if ((vt & ~VT_BYREF) == (VT_UI1|VT_ARRAY)) { SAFEARRAY *psa; + int dim; if (vt & VT_BYREF) { psa = *V_ARRAYREF(&(pvar->var)); } else { psa = V_ARRAY(&(pvar->var)); } - int dim = SafeArrayGetDim(psa); + dim = SafeArrayGetDim(psa); if (dim == 1) { VALUE args = rb_ary_new3(1, rb_str_new2("C*")); val = rb_apply(val, rb_intern("pack"), args);