From 908eab4f1f0cf861531f31cf2bb858f779abf5f4 Mon Sep 17 00:00:00 2001
From: Vitaliy Margolen <wine-patches@kievinfo.com>
Date: Sat, 21 Feb 2009 13:19:43 -0700
Subject: [PATCH] kernel32: Implement GetShortPathName16.

---
 dlls/kernel32/file16.c         | 9 +++++++++
 dlls/kernel32/krnl386.exe.spec | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/dlls/kernel32/file16.c b/dlls/kernel32/file16.c
index ad30903b5c2..adaf1abd57f 100644
--- a/dlls/kernel32/file16.c
+++ b/dlls/kernel32/file16.c
@@ -539,6 +539,15 @@ UINT16 WINAPI SetHandleCount16( UINT16 count )
 }
 
 
+/***********************************************************************
+ *           GetShortPathName   (KERNEL.274)
+ */
+WORD WINAPI GetShortPathName16( LPCSTR longpath, LPSTR shortpath, WORD len )
+{
+    return GetShortPathNameA( longpath, shortpath, len );
+}
+
+
 /***********************************************************************
  *           WritePrivateProfileStruct (KERNEL.406)
  */
diff --git a/dlls/kernel32/krnl386.exe.spec b/dlls/kernel32/krnl386.exe.spec
index 0005f370678..8b91b5d6a5d 100644
--- a/dlls/kernel32/krnl386.exe.spec
+++ b/dlls/kernel32/krnl386.exe.spec
@@ -249,7 +249,7 @@
 262 stub WOWWaitForMsgAndEvent
 263 stub WOWMsgBox
 273 stub K273
-274 stub GetShortPathName
+274 pascal -ret16 GetShortPathName(str ptr word) GetShortPathName16
 
 
 # 310-356 are again shared between all versions