[ros-diffs] [gvg] 13533: Sync to Wine-20050211

Sync to Wine-20050211
James Hawkins <truiken(a)gmail.com>
- Use Interlocked* instead of ++/-- in AddRef/Release.
- Use only stored result of Interlocked* in AddRef/Release.
- Expand TRACEs to display the ref count.
Alex Villacis Lasso <a_villacis(a)palosanto.com>
- Initialize temporary variants before calling VariantChangeTypeEx.
- When parsing an hex/oct integer value, copy value verbatim in VARIANT,
  rather than a negated value. Add test case for this behavior.
Vincent Beron <vberon(a)mecano.gme.usherb.ca>
- Remove message telling users to copy native stdole32.tlb over as we
  now provide it.
- Better trace in LoadTypeLib.
- Change debug messages type to reflect we provide stdole32.tlb.
Robert Shearman <rob(a)codeweavers.com>
- Move OLE automation interface registration to oleaut32.
- Add IRemUnknown to list of interfaces to register.
Mike Hearn <mh(a)codeweavers.com>
- Change some FIXMEs to ERRs to reflect the fact that nothing needs
  fixing.
- Fix some memory leaks on error paths in _marshal_interface.
- Fix a typo, propagate errors better from inside the typelib
  marshaller.
- Return OLE automation build value as win2k by default.
Rein Klazes <wijn(a)wanadoo.nl>
- SafeArrayDestroy() returns success when called with a NULL
  pointer. Added to the test cases.
Paul Vriens <Paul.Vriens(a)xs4all.nl>
- Add WinXP to OaBuildVersion.
Modified: trunk/reactos/lib/oleaut32/connpt.c
Modified: trunk/reactos/lib/oleaut32/dispatch.c
Modified: trunk/reactos/lib/oleaut32/oleaut.c
Deleted: trunk/reactos/lib/oleaut32/oleaut32_Ru.rc
Added: trunk/reactos/lib/oleaut32/oleaut32_Ru.rc
Modified: trunk/reactos/lib/oleaut32/olefont.c
Modified: trunk/reactos/lib/oleaut32/olepicture.c
Modified: trunk/reactos/lib/oleaut32/regsvr.c
Modified: trunk/reactos/lib/oleaut32/safearray.c
Modified: trunk/reactos/lib/oleaut32/tmarshal.c
Modified: trunk/reactos/lib/oleaut32/typelib.c
Modified: trunk/reactos/lib/oleaut32/variant.c
  _____  

Modified: trunk/reactos/lib/oleaut32/connpt.c
--- trunk/reactos/lib/oleaut32/connpt.c	2005-02-13 20:52:16 UTC (rev
13532)
+++ trunk/reactos/lib/oleaut32/connpt.c	2005-02-13 21:03:37 UTC (rev
13533)
@@ -196,8 +196,11 @@

 static ULONG WINAPI ConnectionPointImpl_AddRef(IConnectionPoint* iface)
 {
   ConnectionPointImpl *This = (ConnectionPointImpl *)iface;
-  TRACE("(%p)->(ref=%ld)\n", This, This->ref);
-  return InterlockedIncrement(&This->ref);
+  ULONG refCount = InterlockedIncrement(&This->ref);
+
+  TRACE("(%p)->(ref before=%ld)\n", This, refCount - 1);
+
+  return refCount;
 }
 
 
/***********************************************************************
*
@@ -209,20 +212,16 @@
       IConnectionPoint* iface)
 {
   ConnectionPointImpl *This = (ConnectionPointImpl *)iface;
-  ULONG ref;
-  TRACE("(%p)->(ref=%ld)\n", This, This->ref);
+  ULONG refCount = InterlockedDecrement(&This->ref);
 
-  /*
-   * Decrease the reference count on this object.
-   */
-  ref = InterlockedDecrement(&This->ref);
+  TRACE("(%p)->(ref before=%ld)\n", This, refCount + 1);
 
   /*
    * If the reference count goes down to 0, perform suicide.
    */
-  if (ref == 0) ConnectionPointImpl_Destroy(This);
+  if (!refCount) ConnectionPointImpl_Destroy(This);
 
-  return ref;
+  return refCount;
 }
 
 
/***********************************************************************
*
@@ -470,11 +469,12 @@
 static ULONG WINAPI EnumConnectionsImpl_AddRef(IEnumConnections* iface)
 {
   EnumConnectionsImpl *This = (EnumConnectionsImpl *)iface;
-  ULONG ref;
-  TRACE("(%p)->(ref=%ld)\n", This, This->ref);
-  ref = InterlockedIncrement(&This->ref);
+  ULONG refCount = InterlockedIncrement(&This->ref);
+
+  TRACE("(%p)->(ref before=%ld)\n", This, refCount - 1);
+
   IUnknown_AddRef(This->pUnk);
-  return ref;
+  return refCount;
 }
 
 
/***********************************************************************
*
@@ -485,22 +485,18 @@
 static ULONG WINAPI EnumConnectionsImpl_Release(IEnumConnections*
iface)
 {
   EnumConnectionsImpl *This = (EnumConnectionsImpl *)iface;
-  ULONG ref;
-  TRACE("(%p)->(ref=%ld)\n", This, This->ref);
+  ULONG refCount = InterlockedDecrement(&This->ref);
 
+  TRACE("(%p)->(ref before=%ld)\n", This, refCount + 1);
+
   IUnknown_Release(This->pUnk);
 
   /*
-   * Decrease the reference count on this object.
-   */
-  ref = InterlockedDecrement(&This->ref);
-
-  /*
    * If the reference count goes down to 0, perform suicide.
    */
-  if (ref == 0) EnumConnectionsImpl_Destroy(This);
+  if (!refCount) EnumConnectionsImpl_Destroy(This);
 
-  return ref;
+  return refCount;
 }
 
 
/***********************************************************************
*
  _____  

Modified: trunk/reactos/lib/oleaut32/dispatch.c
--- trunk/reactos/lib/oleaut32/dispatch.c	2005-02-13 20:52:16 UTC
(rev 13532)
+++ trunk/reactos/lib/oleaut32/dispatch.c	2005-02-13 21:03:37 UTC
(rev 13533)
@@ -256,9 +256,11 @@

 static ULONG WINAPI StdDispatch_AddRef(LPDISPATCH iface)
 {
     StdDispatch *This = (StdDispatch *)iface;
-    TRACE("()\n");
+    ULONG refCount = InterlockedIncrement(&This->ref);
 
-    return InterlockedIncrement(&This->ref);
+    TRACE("(%p)->(ref before=%lu)\n",This, refCount - 1);
+
+    return refCount;
 }
 
 
/***********************************************************************
*******
@@ -269,18 +271,17 @@
 static ULONG WINAPI StdDispatch_Release(LPDISPATCH iface)
 {
     StdDispatch *This = (StdDispatch *)iface;
-    ULONG ref;
-    TRACE("(%p)->()\n", This);
+    ULONG refCount = InterlockedDecrement(&This->ref);
 
-    ref = InterlockedDecrement(&This->ref);
+    TRACE("(%p)->(ref before=%lu)\n", This, refCount + 1);
 
-    if (ref == 0)
+    if (!refCount)
     {
         ITypeInfo_Release(This->pTypeInfo);
         CoTaskMemFree(This);
     }
 
-    return ref;
+    return refCount;
 }
 
 
/***********************************************************************
*******
  _____  

Modified: trunk/reactos/lib/oleaut32/oleaut.c
--- trunk/reactos/lib/oleaut32/oleaut.c	2005-02-13 20:52:16 UTC (rev
13532)
+++ trunk/reactos/lib/oleaut32/oleaut.c	2005-02-13 21:03:37 UTC (rev
13533)
@@ -563,10 +563,11 @@

     case 0x80000a04:  /* WIN98 */
     case 0x00000004:  /* NT40 */
     case 0x00000005:  /* W2K */
+    case 0x00000105:  /* WinXP */
 		return MAKELONG(0xffff, 40);
     default:
-		ERR("Version value not known yet. Please investigate it
!\n");
-		return 0x0;
+		FIXME("Version value not known yet. Please investigate
it !\n");
+		return MAKELONG(0xffff, 40);  /* for now return the same
value as for w2k */
     }
 }
 
  _____  

Deleted: trunk/reactos/lib/oleaut32/oleaut32_Ru.rc
--- trunk/reactos/lib/oleaut32/oleaut32_Ru.rc	2005-02-13 20:52:16 UTC
(rev 13532)
+++ trunk/reactos/lib/oleaut32/oleaut32_Ru.rc	2005-02-13 21:03:37 UTC
(rev 13533)
@@ -1,31 +0,0 @@

-/*
- * Russian resources for oleaut32
- *
- * Copyright 2004 Dmitry Timoshkov
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
USA
- */
-
-LANGUAGE LANG_RUSSIAN, SUBLANG_DEFAULT
-
-STRINGTABLE DISCARDABLE
-{
-  IDS_TRUE  "¤­ÓÔõÓ"
-  IDS_FALSE "?¯µ³"
-  IDS_YES   "?Ó"
-  IDS_NO    "?Õ?"
-  IDS_ON    "?ÛÙ?¸Õݯ"
-  IDS_OFF   "?¹ÛÙ?¸Õݯ"
-}
  _____  

Copied: trunk/reactos/lib/oleaut32/oleaut32_Ru.rc (from rev 13532,
vendor/wine/dlls/oleaut32/current/oleaut32_Ru.rc)
  _____  

Modified: trunk/reactos/lib/oleaut32/olefont.c
--- trunk/reactos/lib/oleaut32/olefont.c	2005-02-13 20:52:16 UTC
(rev 13532)
+++ trunk/reactos/lib/oleaut32/olefont.c	2005-02-13 21:03:37 UTC
(rev 13533)
@@ -1214,7 +1214,7 @@

     return E_FAIL;
   hres = LoadTypeLib(stdole32tlb, &tl);
   if (FAILED(hres)) {
-    FIXME("Could not load the stdole32.tlb?\n");
+    ERR("Could not load the stdole32.tlb?\n");
     return hres;
   }
   hres = ITypeLib_GetTypeInfoOfGuid(tl, &IID_IDispatch, ppTInfo);
  _____  

Modified: trunk/reactos/lib/oleaut32/olepicture.c
--- trunk/reactos/lib/oleaut32/olepicture.c	2005-02-13 20:52:16 UTC
(rev 13532)
+++ trunk/reactos/lib/oleaut32/olepicture.c	2005-02-13 21:03:37 UTC
(rev 13533)
@@ -409,8 +409,11 @@

   IPicture* iface)
 {
   OLEPictureImpl *This = (OLEPictureImpl *)iface;
-  TRACE("(%p)->(ref=%ld)\n", This, This->ref);
-  return InterlockedIncrement(&This->ref);
+  ULONG refCount = InterlockedIncrement(&This->ref);
+
+  TRACE("(%p)->(ref before=%ld)\n", This, refCount - 1);
+
+  return refCount;
 }
 
 
/***********************************************************************
*
@@ -422,20 +425,16 @@
       IPicture* iface)
 {
   OLEPictureImpl *This = (OLEPictureImpl *)iface;
-  ULONG ret;
-  TRACE("(%p)->(ref=%ld)\n", This, This->ref);
+  ULONG refCount = InterlockedDecrement(&This->ref);
 
-  /*
-   * Decrease the reference count on this object.
-   */
-  ret = InterlockedDecrement(&This->ref);
+  TRACE("(%p)->(ref before=%ld)\n", This, refCount + 1);
 
   /*
    * If the reference count goes down to 0, perform suicide.
    */
-  if (ret==0) OLEPictureImpl_Destroy(This);
+  if (!refCount) OLEPictureImpl_Destroy(This);
 
-  return ret;
+  return refCount;
 }
 
 
  _____  

Modified: trunk/reactos/lib/oleaut32/regsvr.c
--- trunk/reactos/lib/oleaut32/regsvr.c	2005-02-13 20:52:16 UTC (rev
13532)
+++ trunk/reactos/lib/oleaut32/regsvr.c	2005-02-13 21:03:37 UTC (rev
13533)
@@ -545,7 +545,358 @@

  *		interface list
  */
 
+/* FIXME: these interfaces should be defined in ocidl.idl */
+
+static IID const IID_IFontEventsDisp = {
+    0x4EF6100A, 0xAF88, 0x11D0,
{0x98,0x46,0x00,0xC0,0x4F,0xC2,0x99,0x93} };
+
+static IID const IID_IProvideMultipleClassInfo = {
+    0xA7ABA9C1, 0x8983, 0x11CF,
{0x8F,0x20,0x00,0x80,0x5F,0x2C,0xD0,0x64} };
+
 static struct regsvr_interface const interface_list[] = {
+    {   &IID_IDispatch,
+	"IDispatch",
+	NULL,
+	7,
+	&CLSID_PSDispatch,
+	&CLSID_PSDispatch
+    },
+    {   &IID_ITypeInfo,
+	"ITypeInfo",
+	NULL,
+	22,
+	NULL,
+	&CLSID_PSTypeInfo
+    },
+    {   &IID_ITypeLib,
+	"ITypeLib",
+	NULL,
+	13,
+	NULL,
+	&CLSID_PSTypeLib
+    },
+    {   &IID_ITypeComp,
+	"ITypeComp",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSTypeComp
+    },
+    {   &IID_IEnumVARIANT,
+	"IEnumVARIANT",
+	NULL,
+	15,
+	NULL,
+	&CLSID_PSEnumVariant
+    },
+    {   &IID_ICreateTypeInfo,
+	"ICreateTypeInfo",
+	NULL,
+	26,
+	NULL,
+	NULL
+    },
+    {   &IID_ICreateTypeLib,
+	"ICreateTypeLib",
+	NULL,
+	13,
+	NULL,
+	NULL
+    },
+    {   &IID_ITypeInfo2,
+	"ITypeInfo2",
+	NULL,
+	32,
+	NULL,
+	&CLSID_PSDispatch
+    },
+    {   &IID_ITypeLib2,
+	"ITypeLib2",
+	NULL,
+	16,
+	NULL,
+	&CLSID_PSDispatch
+    },
+    {   &IID_IPropertyPage2,
+	"IPropertyPage2",
+	NULL,
+	15,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IErrorInfo,
+	"IErrorInfo",
+	NULL,
+	8,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_ICreateErrorInfo,
+	"ICreateErrorInfo",
+	NULL,
+	8,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPersistPropertyBag2,
+	"IPersistPropertyBag2",
+	NULL,
+	8,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPropertyBag2,
+	"IPropertyBag2",
+	NULL,
+	8,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IErrorLog,
+	"IErrorLog",
+	NULL,
+	4,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPerPropertyBrowsing,
+	"IPerPropertyBrowsing",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPersistPropertyBag,
+	"IPersistPropertyBag",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IAdviseSinkEx,
+	"IAdviseSinkEx",
+	NULL,
+	9,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IFontEventsDisp,
+	"IFontEventsDisp",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPropertyBag,
+	"IPropertyBag",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPointerInactive,
+	"IPointerInactive",
+	NULL,
+	6,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_ISimpleFrameSite,
+	"ISimpleFrameSite",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPicture,
+	"IPicture",
+	NULL,
+	17,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPictureDisp,
+	"IPictureDisp",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPersistStreamInit,
+	"IPersistStreamInit",
+	NULL,
+	9,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IOleUndoUnit,
+	"IOleUndoUnit",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPropertyNotifySink,
+	"IPropertyNotifySink",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IOleInPlaceSiteEx,
+	"IOleInPlaceSiteEx",
+	NULL,
+	18,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IOleParentUndoUnit,
+	"IOleParentUndoUnit",
+	NULL,
+	12,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IProvideClassInfo2,
+	"IProvideClassInfo2",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IProvideMultipleClassInfo,
+	"IProvideMultipleClassInfo",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IProvideClassInfo,
+	"IProvideClassInfo",
+	NULL,
+	4,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IConnectionPointContainer,
+	"IConnectionPointContainer",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IEnumConnectionPoints,
+	"IEnumConnectionPoints",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IConnectionPoint,
+	"IConnectionPoint",
+	NULL,
+	8,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IEnumConnections,
+	"IEnumConnections",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IOleControl,
+	"IOleControl",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IOleControlSite,
+	"IOleControlSite",
+	NULL,
+	10,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_ISpecifyPropertyPages,
+	"ISpecifyPropertyPages",
+	NULL,
+	4,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPropertyPageSite,
+	"IPropertyPageSite",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPropertyPage,
+	"IPropertyPage",
+	NULL,
+	14,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IClassFactory2,
+	"IClassFactory2",
+	NULL,
+	8,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IEnumOleUndoUnits,
+	"IEnumOleUndoUnits",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IPersistMemory,
+	"IPersistMemory",
+	NULL,
+	9,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IFont,
+	"IFont",
+	NULL,
+	27,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IFontDisp,
+	"IFontDisp",
+	NULL,
+	7,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IQuickActivate,
+	"IQuickActivate",
+	NULL,
+	6,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IOleUndoManager,
+	"IOleUndoManager",
+	NULL,
+	15,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
+    {   &IID_IObjectWithSite,
+	"IObjectWithSite",
+	NULL,
+	5,
+	NULL,
+	&CLSID_PSFactoryBuffer
+    },
     { NULL }			/* list terminator */
 };
 
  _____  

Modified: trunk/reactos/lib/oleaut32/safearray.c
--- trunk/reactos/lib/oleaut32/safearray.c	2005-02-13 20:52:16 UTC
(rev 13532)
+++ trunk/reactos/lib/oleaut32/safearray.c	2005-02-13 21:03:37 UTC
(rev 13533)
@@ -1337,7 +1337,7 @@

   TRACE("(%p)\n", psa);
 
   if(!psa)
-    return E_INVALIDARG;
+    return S_OK;
 
   if(psa->cLocks > 0)
     return DISP_E_ARRAYISLOCKED;
  _____  

Modified: trunk/reactos/lib/oleaut32/tmarshal.c
--- trunk/reactos/lib/oleaut32/tmarshal.c	2005-02-13 20:52:16 UTC
(rev 13532)
+++ trunk/reactos/lib/oleaut32/tmarshal.c	2005-02-13 21:03:37 UTC
(rev 13533)
@@ -116,34 +116,50 @@

     DWORD		xsize;
 
     TRACE("...%s...\n",debugstr_guid(riid));
+    
     *pUnk = NULL;
     hres = xbuf_get(buf,(LPBYTE)&xsize,sizeof(xsize));
-    if (hres) return hres;
+    if (hres) {
+        ERR("xbuf_get failed\n");
+        return hres;
+    }
+    
     if (xsize == 0) return S_OK;
+    
     hres = CreateStreamOnHGlobal(0,TRUE,&pStm);
     if (hres) {
-	FIXME("Stream create failed %lx\n",hres);
+	ERR("Stream create failed %lx\n",hres);
 	return hres;
     }
+    
     hres = IStream_Write(pStm,buf->base+buf->curoff,xsize,&res);
-    if (hres) { FIXME("stream write %lx\n",hres); return hres; }
+    if (hres) {
+        ERR("stream write %lx\n",hres);
+        return hres;
+    }
+    
     memset(&seekto,0,sizeof(seekto));
     hres = IStream_Seek(pStm,seekto,SEEK_SET,&newpos);
-    if (hres) { FIXME("Failed Seek %lx\n",hres); return hres;}
+    if (hres) {
+        ERR("Failed Seek %lx\n",hres);
+        return hres;
+    }
+    
     hres = CoUnmarshalInterface(pStm,riid,(LPVOID*)pUnk);
     if (hres) {
-	FIXME("Marshalling interface %s failed with
%lx\n",debugstr_guid(riid),hres);
+	ERR("Unmarshalling interface %s failed with
%lx\n",debugstr_guid(riid),hres);
 	return hres;
     }
+    
     IStream_Release(pStm);
     return xbuf_skip(buf,xsize);
 }
 
 static HRESULT
 _marshal_interface(marshal_state *buf, REFIID riid, LPUNKNOWN pUnk) {
-    LPUNKNOWN		newiface;
-    LPBYTE		tempbuf;
-    IStream		*pStm;
+    LPUNKNOWN		newiface = NULL;
+    LPBYTE		tempbuf = NULL;
+    IStream		*pStm = NULL;
     STATSTG		ststg;
     ULARGE_INTEGER	newpos;
     LARGE_INTEGER	seekto;
@@ -151,45 +167,67 @@
     DWORD		xsize;
     HRESULT		hres;
 
-    hres = S_OK;
-    if (!pUnk)
+    hres = E_FAIL;
+    if (!pUnk) {
+        ERR("pUnk is NULL?\n");
 	goto fail;
+    }
 
     TRACE("...%s...\n",debugstr_guid(riid));
-    hres=IUnknown_QueryInterface(pUnk,riid,(LPVOID*)&newiface);
+    hres = IUnknown_QueryInterface(pUnk,riid,(LPVOID*)&newiface);
     if (hres) {
-	TRACE("%p does not support iface
%s\n",pUnk,debugstr_guid(riid));
+	WARN("%p does not support iface %s\n",pUnk,debugstr_guid(riid));
 	goto fail;
     }
+    
     hres = CreateStreamOnHGlobal(0,TRUE,&pStm);
     if (hres) {
-	FIXME("Stream create failed %lx\n",hres);
+	ERR("Stream create failed %lx\n",hres);
 	goto fail;
     }
+    
     hres = CoMarshalInterface(pStm,riid,newiface,0,NULL,0);
-    IUnknown_Release(newiface);
     if (hres) {
-	FIXME("Marshalling interface %s failed with %lx\n",
-		debugstr_guid(riid),hres
-	);
+	ERR("Marshalling interface %s failed with %lx\n",
debugstr_guid(riid), hres);
 	goto fail;
     }
+    
     hres = IStream_Stat(pStm,&ststg,0);
+    if (hres) {
+        ERR("Stream stat failed\n");
+        goto fail;
+    }
+    
     tempbuf = HeapAlloc(GetProcessHeap(), 0, ststg.cbSize.u.LowPart);
     memset(&seekto,0,sizeof(seekto));
     hres = IStream_Seek(pStm,seekto,SEEK_SET,&newpos);
-    if (hres) { FIXME("Failed Seek %lx\n",hres); goto fail;}
+    if (hres) {
+        ERR("Failed Seek %lx\n",hres);
+        goto fail;
+    }
+    
     hres = IStream_Read(pStm,tempbuf,ststg.cbSize.u.LowPart,&res);
-    if (hres) { FIXME("Failed Read %lx\n",hres); goto fail;}
-    IStream_Release(pStm);
+    if (hres) {
+        ERR("Failed Read %lx\n",hres);
+        goto fail;
+    }
+    
     xsize = ststg.cbSize.u.LowPart;
     xbuf_add(buf,(LPBYTE)&xsize,sizeof(xsize));
     hres = xbuf_add(buf,tempbuf,ststg.cbSize.u.LowPart);
+    
     HeapFree(GetProcessHeap(),0,tempbuf);
+    IUnknown_Release(newiface);
+    IStream_Release(pStm);
+    
     return hres;
+    
 fail:
     xsize = 0;
     xbuf_add(buf,(LPBYTE)&xsize,sizeof(xsize));
+    if (pStm) IUnknown_Release(pStm);
+    if (newiface) IUnknown_Release(newiface);
+    HeapFree(GetProcessHeap(), 0, tempbuf);
     return hres;
 }
 
@@ -225,20 +263,20 @@
     );
 
     if (RegOpenKeyA(HKEY_CLASSES_ROOT,interfacekey,&ikey)) {
-	FIXME("No %s key found.\n",interfacekey);
+	ERR("No %s key found.\n",interfacekey);
        	return E_FAIL;
     }
     type = (1<<REG_SZ);
     tlguidlen = sizeof(tlguid);
     if (RegQueryValueExA(ikey,NULL,NULL,&type,tlguid,&tlguidlen)) {
-	FIXME("Getting typelib guid failed.\n");
+	ERR("Getting typelib guid failed.\n");
 	RegCloseKey(ikey);
 	return E_FAIL;
     }
     type = (1<<REG_SZ);
     verlen = sizeof(ver);
     if (RegQueryValueExA(ikey,"Version",NULL,&type,ver,&verlen)) {
-	FIXME("Could not get version value?\n");
+	ERR("Could not get version value?\n");
 	RegCloseKey(ikey);
 	return E_FAIL;
     }
@@ -246,7 +284,7 @@
     sprintf(typelibkey,"Typelib\\%s\\%s\\0\\win32",tlguid,ver);
     tlfnlen = sizeof(tlfn);
     if (RegQueryValueA(HKEY_CLASSES_ROOT,typelibkey,tlfn,&tlfnlen)) {
-	FIXME("Could not get typelib fn?\n");
+	ERR("Could not get typelib fn?\n");
 	return E_FAIL;
     }
     MultiByteToWideChar(CP_ACP, 0, tlfn, -1, tlfnW, -1);
@@ -336,29 +374,29 @@
 TMProxyImpl_AddRef(LPRPCPROXYBUFFER iface)
 {
     ICOM_THIS_MULTI(TMProxyImpl,lpvtbl2,iface);
+    ULONG refCount = InterlockedIncrement(&This->ref);
 
-    TRACE("()\n");
+    TRACE("(%p)->(ref before=%lu)\n",This, refCount - 1);
 
-    return InterlockedIncrement(&This->ref);
+    return refCount;
 }
 
 static ULONG WINAPI
 TMProxyImpl_Release(LPRPCPROXYBUFFER iface)
 {
-    ULONG refs;
     ICOM_THIS_MULTI(TMProxyImpl,lpvtbl2,iface);
+    ULONG refCount = InterlockedDecrement(&This->ref);
 
-    TRACE("()\n");
+    TRACE("(%p)->(ref before=%lu)\n",This, refCount + 1);
 
-    refs = InterlockedDecrement(&This->ref);
-    if (!refs)
+    if (!refCount)
     {
         DeleteCriticalSection(&This->crit);
         if (This->chanbuf) IRpcChannelBuffer_Release(This->chanbuf);
         VirtualFree(This->asmstubs, 0, MEM_RELEASE);
         CoTaskMemFree(This);
     }
-    return refs;
+    return refCount;
 }
 
 static HRESULT WINAPI
@@ -551,7 +589,7 @@
 
 	hres =
ITypeInfo_GetRefTypeInfo(tinfo,tdesc->u.hreftype,&tinfo2);
 	if (hres) {
-	    FIXME("Could not get typeinfo of hreftype %lx for
VT_USERDEFINED.\n",tdesc->u.hreftype);
+	    ERR("Could not get typeinfo of hreftype %lx for
VT_USERDEFINED.\n",tdesc->u.hreftype);
 	    return hres;
 	}
 	ITypeInfo_GetTypeAttr(tinfo2,&tattr);
@@ -571,7 +609,7 @@
 
 		hres = ITypeInfo2_GetVarDesc(tinfo2, i, &vdesc);
 		if (hres) {
-		    FIXME("Could not get vardesc of %d\n",i);
+		    ERR("Could not get vardesc of %d\n",i);
 		    return hres;
 		}
 		/* Need them for hack below */
@@ -816,7 +854,7 @@
 	case VT_UI1:
 	    if (readit) {
 		hres = xbuf_get(buf,(LPBYTE)arg,sizeof(DWORD));
-		if (hres) FIXME("Failed to read integer 4 byte\n");
+		if (hres) ERR("Failed to read integer 4 byte\n");
 	    }
 	    if (debugout) TRACE_(olerelay)("%lx",*arg);
 	    return hres;
@@ -827,7 +865,7 @@
 	    if (readit) {
 		hres = xbuf_get(buf,(LPBYTE)&len,sizeof(DWORD));
 		if (hres) {
-		    FIXME("failed to read bstr klen\n");
+		    ERR("failed to read bstr klen\n");
 		    return hres;
 		}
 		if (len == -1) {
@@ -837,7 +875,7 @@
 		    str  =
HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,len+sizeof(WCHAR));
 		    hres = xbuf_get(buf,(LPBYTE)str,len);
 		    if (hres) {
-			FIXME("Failed to read BSTR.\n");
+			ERR("Failed to read BSTR.\n");
 			return hres;
 		    }
 		    *arg = (DWORD)SysAllocStringLen(str,len);
@@ -858,7 +896,7 @@
 	    if (readit) {
 		hres = xbuf_get(buf,(LPBYTE)&cookie,sizeof(cookie));
 		if (hres) {
-		    FIXME("Failed to load pointer cookie.\n");
+		    ERR("Failed to load pointer cookie.\n");
 		    return hres;
 		}
 		if (cookie != 0x42424242) {
@@ -903,12 +941,12 @@
 
 	    hres =
ITypeInfo_GetRefTypeInfo(tinfo,tdesc->u.hreftype,&tinfo2);
 	    if (hres) {
-		FIXME("Could not get typeinfo of hreftype %lx for
VT_USERDEFINED.\n",tdesc->u.hreftype);
+		ERR("Could not get typeinfo of hreftype %lx for
VT_USERDEFINED.\n",tdesc->u.hreftype);
 		return hres;
 	    }
 	    hres = ITypeInfo_GetTypeAttr(tinfo2,&tattr);
 	    if (hres) {
-		FIXME("Could not get typeattr in VT_USERDEFINED.\n");
+		ERR("Could not get typeattr in VT_USERDEFINED.\n");
 	    } else {
 		if (alloc)
 		    *arg =
(DWORD)HeapAlloc(GetProcessHeap(),0,tattr->cbSizeInstance);
@@ -927,7 +965,7 @@
 
 			hres = ITypeInfo2_GetVarDesc(tinfo2, i, &vdesc);
 			if (hres) {
-			    FIXME("Could not get vardesc of %d\n",i);
+			    ERR("Could not get vardesc of %d\n",i);
 			    return hres;
 			}
 			hres = deserialize_param(
@@ -953,7 +991,7 @@
 		}
 	    }
 	    if (hres)
-		FIXME("failed to stuballoc in TKIND_RECORD.\n");
+		ERR("failed to stuballoc in TKIND_RECORD.\n");
 	    ITypeInfo_Release(tinfo2);
 	    return hres;
 	}
@@ -1126,26 +1164,26 @@
 
 	    hres = ITypeInfo_GetTypeAttr(tinfo, &attr);
 	    if (hres) {
-		FIXME("GetTypeAttr failed with %lx\n",hres);
+		ERR("GetTypeAttr failed with %lx\n",hres);
 		return hres;
 	    }
 	    /* Not found, so look in inherited ifaces. */
 	    for (j=0;j<attr->cImplTypes;j++) {
 		hres = ITypeInfo_GetRefTypeOfImplType(tinfo, j, &href);
 		if (hres) {
-		    FIXME("Did not find a reftype for interface offset
%d?\n",j);
+		    ERR("Did not find a reftype for interface offset
%d?\n",j);
 		    break;
 		}
 		hres = ITypeInfo_GetRefTypeInfo(tinfo, href, &tinfo2);
 		if (hres) {
-		    FIXME("Did not find a typeinfo for reftype
%ld?\n",href);
+		    ERR("Did not find a typeinfo for reftype
%ld?\n",href);
 		    continue;
 		}
 		hres = _get_funcdesc(tinfo2,iMethod,fdesc,iname,fname);
 		ITypeInfo_Release(tinfo2);
 		if (!hres) return S_OK;
 	    }
-	    return E_FAIL;
+	    return hres;
 	}
 	if (((*fdesc)->oVft/4) == iMethod) {
 	    if (fname)
@@ -1273,7 +1311,7 @@
 		);
 
 	    if (hres) {
-		FIXME("Failed to serialize param, hres %lx\n",hres);
+		ERR("Failed to serialize param, hres %lx\n",hres);
 		break;
 	    }
 	    xargs+=_argsize(elem->tdesc.vt);
@@ -1285,7 +1323,7 @@
     msg.iMethod  = method;
     hres =
IRpcChannelBuffer_GetBuffer(tpinfo->chanbuf,&msg,&(tpinfo->iid));
     if (hres) {
-	FIXME("RpcChannelBuffer GetBuffer failed, %lx\n",hres);
+	ERR("RpcChannelBuffer GetBuffer failed, %lx\n",hres);
         LeaveCriticalSection(&tpinfo->crit);
 	return hres;
     }
@@ -1293,7 +1331,7 @@
     if (relaydeb) TRACE_(olerelay)("\n");
     hres = IRpcChannelBuffer_SendReceive(tpinfo->chanbuf,&msg,&status);
     if (hres) {
-	FIXME("RpcChannelBuffer SendReceive failed, %lx\n",hres);
+	ERR("RpcChannelBuffer SendReceive failed, %lx\n",hres);
         LeaveCriticalSection(&tpinfo->crit);
 	return hres;
     }
@@ -1343,7 +1381,7 @@
 			&buf
 		    );
 		    if (hres) {
-			FIXME("Failed to deserialize DISPPARAM*, hres
%lx\n",hres);
+			ERR("Failed to deserialize DISPPARAM*, hres
%lx\n",hres);
 			break;
 		    }
 		    isdeserialized = TRUE;
@@ -1373,7 +1411,8 @@
 		    &buf
 		);
 	    if (hres) {
-		FIXME("Failed to unmarshall param, hres %lx\n",hres);
+		ERR("Failed to unmarshall param, hres %lx\n",hres);
+		status = hres;
 		break;
 	    }
 	    xargs += _argsize(elem->tdesc.vt);
@@ -1401,7 +1440,7 @@
     TRACE("(...%s...)\n",debugstr_guid(riid));
     hres = _get_typeinfo_for_iid(riid,&tinfo);
     if (hres) {
-	FIXME("No typeinfo for %s?\n",debugstr_guid(riid));
+	ERR("No typeinfo for %s?\n",debugstr_guid(riid));
 	return hres;
[truncated at 1000 lines; 236 more skipped]