[6/6]kernel32: implement IsThreadAFiber function

[André Hentschel]

---
 dlls/kernel32/fiber.c       |   10 ++++++++++
 dlls/kernel32/kernel32.spec |    1 +
 dlls/kernel32/tests/fiber.c |    2 +-
 3 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/dlls/kernel32/fiber.c b/dlls/kernel32/fiber.c
index f828cdc..14d8920 100644
--- a/dlls/kernel32/fiber.c
+++ b/dlls/kernel32/fiber.c
@@ -304,3 +304,13 @@ BOOL WINAPI FlsSetValue( DWORD index, PVOID data )
     NtCurrentTeb()->FlsSlots[index] = data;
     return TRUE;
 }
+
+/***********************************************************************
+ *           IsThreadAFiber   (KERNEL32.@)
+ */
+BOOL WINAPI IsThreadAFiber(void)
+{
+    if (NtCurrentTeb()->Tib.u.FiberData)
+        return TRUE;
+    return FALSE;
+}
diff --git a/dlls/kernel32/kernel32.spec b/dlls/kernel32/kernel32.spec
index 3b772ba..db9713f 100644
--- a/dlls/kernel32/kernel32.spec
+++ b/dlls/kernel32/kernel32.spec
@@ -749,6 +749,7 @@
 @ stdcall IsProcessorFeaturePresent(long)
 @ stub -i386 IsSLCallback
 @ stdcall IsSystemResumeAutomatic()
+@ stdcall IsThreadAFiber()
 @ stdcall IsValidCodePage(long)
 @ stdcall IsValidLanguageGroup(long long)
 @ stdcall IsValidLocale(long long)
diff --git a/dlls/kernel32/tests/fiber.c b/dlls/kernel32/tests/fiber.c
index 7009a03..dac9d6a 100644
--- a/dlls/kernel32/tests/fiber.c
+++ b/dlls/kernel32/tests/fiber.c
@@ -146,7 +146,7 @@ static void test_FiberHandling(void)
 
     if (!pIsThreadAFiber)
     {
-        skip( "IsThreadAFiber not present\n" );
+        win_skip( "IsThreadAFiber not present\n" );
         return;
     }
 
-- 

Best Regards, André Hentschel