[PATCH v4 08/11] dlls/oleaut32: Add DeleteTypeInfo() base-cases in typelib.c

[Edward O'Callaghan]

From: Edward O'Callaghan

Implements the trivial cases of 'ICreateTypeLib2::DeleteTypeInfo'.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=57662

Signed-off-by: Edward O'Callaghan 
---
 dlls/oleaut32/typelib.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index 1bb2260b5b1..c0c6034a877 100644
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -10239,6 +10239,15 @@ static HRESULT WINAPI ICreateTypeLib2_fnDeleteTypeInfo(ICreateTypeLib2 *iface,
         LPOLESTR name)
 {
     ITypeLibImpl *This = impl_from_ICreateTypeLib2(iface);
+    ITypeInfoImpl *info;
+
+    if (!name)
+        return E_INVALIDARG;
+
+    info = TLB_get_typeinfo_by_name(This, name, NULL);
+    if (!info)
+        return E_INVALIDARG;
+
     FIXME("%p %s - stub\n", This, wine_dbgstr_w(name));
     return E_NOTIMPL;
 }