Implement LHashValOfNameSysA for 4 LCIDs, fix prototype.

dlls/oleaut32/Makefile.in

@@ -12,6 +12,7 @@ SYMBOLFILE = $(MODULE).tmp.o
 C_SRCS = \
 	connpt.c \
 	dispatch.c \
+	hash.c \
 	ole2disp.c \
 	oleaut.c \
 	olefont.c \

dlls/oleaut32/stubs.c

@@ -49,28 +49,3 @@ HRESULT WINAPI OleCreatePropertyFrame(
 	return S_OK;
 }
  
-/***********************************************************************
- *		LHashValOfNameSysA
- */
-ULONG WINAPI LHashValOfNameSysA( SYSKIND skind, LCID lcid, LPCSTR str)
-{
-    /* returns a 16 bit hashvalue (depending on skind and lcid) in the
-     * lowword and a unique id made from skind and lcid in bits 23-16
-     */
-    FIXME("(%d,%x,%s), stub, returning 0x424242!\n",skind,(int)lcid,debugstr_a(str));
-    return 0x00424242;
-}
-/***********************************************************************
- *		LHashValOfNameSys
- */
-ULONG WINAPI LHashValOfNameSys( SYSKIND skind, LCID lcid, LPCOLESTR str)
-{
-    LPSTR	strA;
-    ULONG	res;
-    
-    if (!str) return 0;
-    strA = HEAP_strdupWtoA(GetProcessHeap(),0,str);
-    res = LHashValOfNameSysA(skind,lcid,strA);
-    HeapFree(GetProcessHeap(),0,strA);
-    return res;
-}

include/oleauto.h

@@ -547,7 +547,7 @@ typedef enum tagREGKIND
 
 INT WINAPI DosDateTimeToVariantTime(USHORT,USHORT,DATE*);
 
-ULONG WINAPI LHashValOfNameSysA(SYSKIND syskind,LCID lcid,LPCSTR* szName);
+ULONG WINAPI LHashValOfNameSysA(SYSKIND syskind,LCID lcid,LPCSTR szName);
 ULONG WINAPI LHashValOfNameSys (SYSKIND syskind,LCID lcid,LPCOLESTR szName);
 
 HRESULT WINAPI DispGetParam(DISPPARAMS* pdispparams, UINT position,