wez             Mon Feb 10 08:13:27 2003 EDT

  Modified files:              
    /php4/ext/rpc/com   com_wrapper.c 
  Log:
  Error reporting clean up
  
Index: php4/ext/rpc/com/com_wrapper.c
diff -u php4/ext/rpc/com/com_wrapper.c:1.87 php4/ext/rpc/com/com_wrapper.c:1.88
--- php4/ext/rpc/com/com_wrapper.c:1.87 Mon Feb 10 07:33:14 2003
+++ php4/ext/rpc/com/com_wrapper.c      Mon Feb 10 08:13:27 2003
@@ -18,7 +18,7 @@
    |         Wez Furlong <[EMAIL PROTECTED]>                           |
    +----------------------------------------------------------------------+
  */
-/* $Id: com_wrapper.c,v 1.87 2003/02/10 12:33:14 wez Exp $ */
+/* $Id: com_wrapper.c,v 1.88 2003/02/10 13:13:27 wez Exp $ */
 /*
  * This module implements support for COM components that support the IDispatch
  * interface.  Both local (COM) and remote (DCOM) components can be accessed.
@@ -76,19 +76,22 @@
 int resourcecounter = 1;
 #endif
 
-ZEND_API HRESULT php_COM_invoke(comval *obj, DISPID dispIdMember, WORD wFlags, 
DISPPARAMS FAR*  pDispParams, VARIANT FAR*  pVarResult, char **ErrString)
+ZEND_API HRESULT php_COM_invoke(comval *obj, DISPID dispIdMember, WORD wFlags,
+       DISPPARAMS FAR*  pDispParams, VARIANT FAR*  pVarResult, char **ErrString)
 {
        HRESULT hr;
        int failed = FALSE;
-       unsigned int ArgErr;
+       unsigned int ArgErr = 0;
        EXCEPINFO ExceptInfo;
 
        *ErrString = NULL;
        /* @todo use DispInvoke here ? */
        if (C_HASTLIB(obj)) {
-               hr = C_TYPEINFO_VT(obj)->Invoke(C_TYPEINFO(obj), C_DISPATCH(obj), 
dispIdMember, wFlags, pDispParams, pVarResult, &ExceptInfo, &ArgErr);
+               hr = C_TYPEINFO_VT(obj)->Invoke(C_TYPEINFO(obj), C_DISPATCH(obj),
+                       dispIdMember, wFlags, pDispParams, pVarResult, &ExceptInfo, 
+&ArgErr);
                if (FAILED(hr)) {
-                       hr = C_DISPATCH_VT(obj)->Invoke(C_DISPATCH(obj), dispIdMember, 
&IID_NULL, LOCALE_SYSTEM_DEFAULT, wFlags, pDispParams, pVarResult, &ExceptInfo, 
&ArgErr);
+                       hr = C_DISPATCH_VT(obj)->Invoke(C_DISPATCH(obj), dispIdMember, 
+&IID_NULL,
+                               LOCALE_SYSTEM_DEFAULT, wFlags, pDispParams, 
+pVarResult, &ExceptInfo, &ArgErr);
                        if (SUCCEEDED(hr)) {
                                /*
                                 * ITypLib doesn't work
@@ -100,7 +103,8 @@
                        }
                }
        } else {
-               hr = C_DISPATCH_VT(obj)->Invoke(C_DISPATCH(obj), dispIdMember, 
&IID_NULL, LOCALE_SYSTEM_DEFAULT, wFlags, pDispParams, pVarResult, &ExceptInfo, 
&ArgErr);
+               hr = C_DISPATCH_VT(obj)->Invoke(C_DISPATCH(obj), dispIdMember, 
+&IID_NULL,
+                       LOCALE_SYSTEM_DEFAULT, wFlags, pDispParams, pVarResult, 
+&ExceptInfo, &ArgErr);
        }
 
        if (FAILED(hr)) {
@@ -137,7 +141,7 @@
                                break;
                        case DISP_E_PARAMNOTFOUND:
                        case DISP_E_TYPEMISMATCH:
-                               spprintf(ErrString, 0, "<b>Argument</b>: %d", 
pDispParams->cArgs-ArgErr+1);
+                               spprintf(ErrString, 0, "<b>Argument</b>: %d", 
+pDispParams->cArgs - ArgErr);
                                break;
                }
        }
@@ -555,7 +559,7 @@
 
                ret = 1;
        } else {
-               zend_error(E_WARNING, "Thats not a dispatchable interface!! type kind 
= %08x", attr->typekind);
+               zend_error(E_WARNING, "That's not a dispatchable interface!! type kind 
+= %08x", attr->typekind);
        }
 
        typeinfo->lpVtbl->ReleaseTypeAttr(typeinfo, attr);



-- 
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php

Reply via email to