* ext/win32ole/win32ole.c (folevariant_value): could not compile
with C90 compiler. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10042 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
b619a8859f
commit
5bc9512a0b
@ -1,3 +1,8 @@
|
|||||||
|
Mon Mar 20 11:12:38 2006 NAKAMURA Usaku <usa@ruby-lang.org>
|
||||||
|
|
||||||
|
* ext/win32ole/win32ole.c (folevariant_value): could not compile
|
||||||
|
with C90 compiler.
|
||||||
|
|
||||||
Sun Mar 19 09:46:30 2006 Masaki Suketa <masaki.suketa@nifty.ne.jp>
|
Sun Mar 19 09:46:30 2006 Masaki Suketa <masaki.suketa@nifty.ne.jp>
|
||||||
|
|
||||||
* ext/win32ole/win32ole.c (ole_val2olevariantdata): change behavior
|
* ext/win32ole/win32ole.c (ole_val2olevariantdata): change behavior
|
||||||
|
@ -7131,12 +7131,13 @@ folevariant_value(self)
|
|||||||
|
|
||||||
if ((vt & ~VT_BYREF) == (VT_UI1|VT_ARRAY)) {
|
if ((vt & ~VT_BYREF) == (VT_UI1|VT_ARRAY)) {
|
||||||
SAFEARRAY *psa;
|
SAFEARRAY *psa;
|
||||||
|
int dim;
|
||||||
if (vt & VT_BYREF) {
|
if (vt & VT_BYREF) {
|
||||||
psa = *V_ARRAYREF(&(pvar->var));
|
psa = *V_ARRAYREF(&(pvar->var));
|
||||||
} else {
|
} else {
|
||||||
psa = V_ARRAY(&(pvar->var));
|
psa = V_ARRAY(&(pvar->var));
|
||||||
}
|
}
|
||||||
int dim = SafeArrayGetDim(psa);
|
dim = SafeArrayGetDim(psa);
|
||||||
if (dim == 1) {
|
if (dim == 1) {
|
||||||
VALUE args = rb_ary_new3(1, rb_str_new2("C*"));
|
VALUE args = rb_ary_new3(1, rb_str_new2("C*"));
|
||||||
val = rb_apply(val, rb_intern("pack"), args);
|
val = rb_apply(val, rb_intern("pack"), args);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user