André Hentschel : kernel32: Implement IsThreadAFiber function.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: c008984a01e43401159cfd08bea32851a8130212
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=c008984a01e43401159cfd08bea32851a8130212

Author: André Hentschel <nerv at dawncrow.de>
Date:   Sun Jan 24 16:31:19 2010 +0100

kernel32: Implement IsThreadAFiber function.

---

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

diff --git a/dlls/kernel32/fiber.c b/dlls/kernel32/fiber.c
index f828cdc..c866661 100644
--- a/dlls/kernel32/fiber.c
+++ b/dlls/kernel32/fiber.c
@@ -304,3 +304,11 @@ BOOL WINAPI FlsSetValue( DWORD index, PVOID data )
     NtCurrentTeb()->FlsSlots[index] = data;
     return TRUE;
 }
+
+/***********************************************************************
+ *           IsThreadAFiber   (KERNEL32.@)
+ */
+BOOL WINAPI IsThreadAFiber(void)
+{
+    return NtCurrentTeb()->Tib.u.FiberData != NULL;
+}
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;
     }