X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=KernelLand%2FKernel%2Fevents.c;h=da095e9e4b62db2f0a6baca06ffa84d61a44c48b;hb=8dcc3e209d0d728565a18c8dca2b0ba220b74a6f;hp=a9eab7865e86244ded7a8cf9dd08bbcf529e7678;hpb=48743e39650eb1ef988380e9d95f27fd40d3a9ce;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
  */