* ext/win32ole/win32ole.c (ole_variant2val): fix compile error

on VC++. git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@11687 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
brentr · Feb 10, 2007 · cbb8d9c · cbb8d9c
1 parent 6c6820b
commit cbb8d9c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Feb 10 09:27:35 2007  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
+
+	* ext/win32ole/win32ole.c (ole_variant2val): fix compile error
+	  on VC++.
+
 Sat Feb 10 07:41:52 2007  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
 
 	* ext/win32ole/win32ole.c (ole_variant2val): fix the bug when

diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c
@@ -921,12 +921,13 @@ ole_variant2val(pvar)
         VARIANT variant;
         VALUE val;
         VALUE val2;
+        int dim = 0;
 
         if (!psa) {
             return obj;
         }
+        dim = SafeArrayGetDim(psa);
 
-        int dim = SafeArrayGetDim(psa);
         VariantInit(&variant);
         V_VT(&variant) = (V_VT(pvar) & ~VT_ARRAY) | VT_BYREF;