[ruby-list:10895] Re: win32 OLE

小田＠QNES です。

---
On Tue, 17 Nov 1998 16:15:32 +0900
Koji Oda <[e-mail]> wrote:

> w32ole のstatic link版は出来ました。

そのときのパッチを付けておきます。

---
>diff -uNi w32ole.c_org w32ole.c
--- w32ole.c_org        Tue Nov 17 16:27:28 1998
+++ w32ole.c    Tue Nov 17 16:34:59 1998
@@ -78,7 +78,7 @@
     int size;
     LPSTR pm;
     size = WideCharToMultiByte(CP_ACP, 0, pw, -1, NULL, 0, NULL, NULL);
-    pm = ALLOCA_N(char, size);
+    pm = ALLOC_N(char, size);
     WideCharToMultiByte(CP_ACP, 0, pw, -1, pm, size, NULL, NULL);
     return pm;
 }
@@ -149,9 +149,9 @@
             val1 = ary_entry(val1, 0);
             dim += 1;
         }
-        psab = ALLOCA_N(SAFEARRAYBOUND, dim);
-        pub  = ALLOCA_N(long, dim);
-        pid  = ALLOCA_N(long, dim);
+        psab = ALLOC_N(SAFEARRAYBOUND, dim);
+        pub  = ALLOC_N(long, dim);
+        pid  = ALLOC_N(long, dim);

         if(!psab || !pub || !pid) {
             if(pub) free(pub);
@@ -239,9 +239,9 @@
         VariantInit(&variant);
         V_VT(&variant) = (V_VT(pvar) & ~VT_ARRAY) | VT_BYREF;

-        pID = ALLOCA_N(long, dim);
-        pLB = ALLOCA_N(long, dim);
-        pUB = ALLOCA_N(long, dim);
+        pID = ALLOC_N(long, dim);
+        pLB = ALLOC_N(long, dim);
+        pUB = ALLOC_N(long, dim);

         if(!pID || !pLB || !pUB) {
             if(pID) free(pID);
@@ -504,7 +504,7 @@
     /* create dispatch parameter */
     dispParams.cArgs = argc - 1;
     if(dispParams.cArgs > 0) {
-        dispParams.rgvarg = ALLOCA_N(VARIANTARG, dispParams.cArgs);
+        dispParams.rgvarg = ALLOC_N(VARIANTARG, dispParams.cArgs);
         for(i = 0; i < dispParams.cArgs; i++) {
             int n = dispParams.cArgs - i - 1;
             VariantInit(&dispParams.rgvarg[n]);