X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=KernelLand%2FKernel%2Fevents.c;h=da095e9e4b62db2f0a6baca06ffa84d61a44c48b;hb=06a3eb8135ecb748c998e6827d20338158526d12;hp=a9eab7865e86244ded7a8cf9dd08bbcf529e7678;hpb=51ab5f489bc356940c95cc936fd0508e8f07ea97;p=tpg%2Facess2.git

diff --git a/KernelLand/Kernel/events.c b/KernelLand/Kernel/events.c
index a9eab786..da095e9e 100644
--- a/KernelLand/Kernel/events.c
+++ b/KernelLand/Kernel/events.c
@@ -41,6 +41,14 @@ void Threads_PostEvent(tThread *Thread, Uint32 EventMask)
 	LEAVE('-');
 }
 
+/**
+ * \brief Clear an event without waiting
+ */
+void Threads_ClearEvent(Uint32 EventMask)
+{
+	Proc_GetCurThread()->EventState &= ~EventMask;
+}
+
 /**
  * \brief Wait for an event to occur
  */