Added stubs for {Create,Get,Set}ErrorInfo.

dlls/ole32/ole32.spec

@@ -192,11 +192,11 @@ type	win32
 189 stub CoRegisterChannelHook
 190 stub CoRegisterSurrogate
 191 stub CoSwitchCallContext
-192 stub CreateErrorInfo
+192 stdcall CreateErrorInfo(ptr) CreateErrorInfo
 193 stub CreateObjrefMoniker
 194 stub DllRegisterServer
 195 stdcall FreePropVariantArray(long ptr) FreePropVariantArray
-196 stub GetErrorInfo
+196 stdcall GetErrorInfo(long ptr) GetErrorInfo
 197 stub HACCEL_UserFree
 198 stub HACCEL_UserMarshal
 199 stub HACCEL_UserSize

dlls/oleaut32/Makefile.in

@@ -11,6 +11,7 @@ IMPORTS   = olepro32 ole32 comctl32 winmm
 SPEC_SRCS = oleaut32.spec ole2disp.spec typelib.spec
 
 C_SRCS = \
+	errorinfo.c \
 	ole2disp.c \
 	oleaut.c \
 	olefont.c \

dlls/oleaut32/errorinfo.c

+/*
+ * ErrorInfo API
+ *
+ * Copyright 2000 Patrik Stridvall
+ *
+ */
+
+#include "debugtools.h"
+#include "oleauto.h"
+#include "windef.h"
+#include "winerror.h"
+
+DEFAULT_DEBUG_CHANNEL(ole)
+
+/***********************************************************************
+ *		CreateErrorInfo
+ */
+HRESULT WINAPI CreateErrorInfo(ICreateErrorInfo **pperrinfo)
+{
+  FIXME("(%ld, %p): stub:\n", pperrinfo);
+  
+  return S_OK;
+}
+
+/***********************************************************************
+ *		GetErrorInfo
+ */
+HRESULT WINAPI GetErrorInfo(ULONG dwReserved, IErrorInfo **pperrinfo)
+{
+  FIXME("(%ld, %p): stub:\n", dwReserved, pperrinfo);
+  
+  return S_OK;
+}
+
+/***********************************************************************
+ *		SetErrorInfo
+ */
+HRESULT WINAPI SetErrorInfo(ULONG dwReserved, IErrorInfo *perrinfo)
+{
+  FIXME("(%ld, %p): stub:\n", dwReserved, perrinfo);
+  
+  return S_OK;
+}

dlls/oleaut32/oleaut32.spec

@@ -154,9 +154,9 @@ type win32
 197 stub VarDecFromStr
 198 stub VarDecFromDisp
 199 stub VarDecFromBool
-200 stub GetErrorInfo
-201 stdcall SetErrorInfo(long ptr) SetErrorInfo
-202 stub CreateErrorInfo
+200 stdcall GetErrorInfo(long ptr) GetErrorInfo
+201 stdcall SetErrorInfo(long ptr ) SetErrorInfo
+202 stdcall CreateErrorInfo(ptr) CreateErrorInfo
 205 stdcall VarI2FromI1(long ptr) VarI2FromI1
 206 stdcall VarI2FromUI2(long ptr) VarI2FromUI2
 207 stdcall VarI2FromUI4(long ptr) VarI2FromUI4

include/oleauto.h

@@ -30,6 +30,14 @@ int WINAPI SysStringLen16(BSTR16);
 int WINAPI SysStringLen(BSTR);
 
 /*****************************************************************
+ *  ErrorInfo API
+ */
+
+HRESULT WINAPI SetErrorInfo(ULONG dwReserved, IErrorInfo *perrinfo);
+HRESULT WINAPI GetErrorInfo(ULONG dwReserved, IErrorInfo **pperrinfo);
+HRESULT WINAPI CreateErrorInfo(ICreateErrorInfo **pperrinfo);
+
+/*****************************************************************
  *  SafeArray API
  */