[weiden] 17525: implemented IsThreadAFiber()

implemented IsThreadAFiber()
Modified: trunk/reactos/lib/kernel32/kernel32.def
Modified: trunk/reactos/lib/kernel32/thread/fiber.c
  _____

Modified: trunk/reactos/lib/kernel32/kernel32.def
--- trunk/reactos/lib/kernel32/kernel32.def	2005-08-24 22:38:10 UTC
(rev 17524)
+++ trunk/reactos/lib/kernel32/kernel32.def	2005-08-24 23:05:07 UTC
(rev 17525)
@@ -586,6 +586,7 @@

IsProcessInJob@12
 IsProcessorFeaturePresent@4
 IsSystemResumeAutomatic@0
+IsThreadAFiber@0
 IsValidCodePage@4
 IsValidLanguageGroup@8
 IsValidLocale@8
  _____

Modified: trunk/reactos/lib/kernel32/thread/fiber.c
--- trunk/reactos/lib/kernel32/thread/fiber.c	2005-08-24 22:38:10 UTC
(rev 17524)
+++ trunk/reactos/lib/kernel32/thread/fiber.c	2005-08-24 23:05:07 UTC
(rev 17525)
@@ -235,6 +235,17 @@

MEM_RELEASE);
 }

+/*
+ * @implemented
+ */
+BOOL
+WINAPI
+IsThreadAFiber(VOID)
+{
+    return NtCurrentTeb()->HasFiberData;
+}
+
+
 __declspec(noreturn)
 VOID
 WINAPI