Implemented KERNEL.434 (UnicodeToAnsi).

if1632/kernel.spec

@@ -338,7 +338,7 @@ file	krnl386.exe
 423 stub LogApiThk
 431 pascal16 IsPeFormat(str word) IsPeFormat
 432 stub FileTimeToLocalFileTime
-434 stub UnicodeToAnsi
+434 pascal16 UnicodeToAnsi(ptr ptr word) UnicodeToAnsi
 435 stub GetTaskFlags
 436 stub _ConfirmSysLevel
 437 stub _CheckNotSysLevel

memory/string.c

@@ -497,6 +497,19 @@ LPSTR WINAPI lstrcpynWtoA( LPSTR dst, LPCWSTR src, INT32 n )
     return dst;
 }
 
+/***********************************************************************
+ *           UnicodeToAnsi   (KERNEL.434)
+ */
+INT16 WINAPI UnicodeToAnsi( LPCWSTR src, LPSTR dst, INT16 codepage )
+{
+    if ( codepage != -1 )
+        FIXME( string, "codepage %d not supported\n", codepage );
+
+    lstrcpyWtoA( dst, src );
+
+    return (INT16)lstrlen32A( dst );
+}
+
 
 /***********************************************************************
  *           Copy   (GDI.250)