请问大虾,DriverUnload里如何通知线程退出,如下代码总报IRQL_NOT_LESS_OR_EQUAL

LARGE_INTEGER interval;
HANDLE g_hThread;
KEVENT gLeaveEvent;

VOID
ThreadProc( PVOID pPara )
{
   NTSTATUS status;
   interval.QuadPart = -(10000*1000);
   KeInitializeEvent(&gLeaveEvent, NotificationEvent, FALSE);
   while(TRUE)
   {
       status = KeWaitForSingleObject(&gLeaveEvent, Executive, KernelMode, FALSE, &interval);
       if( status==STATUS_SUCCESS )
       {
           DbgPrint("gLeaveEvent is signaled\n");
           break;
       }
   }   
}

VOID
DriverUnload (
    IN PDRIVER_OBJECT DriverObject
    )
{    
    KeSetEvent(&gLeaveEvent, IO_NO_INCREMENT, FALSE);
    KeWaitForSingleObject(&g_hThread, Executive, KernelMode, FALSE, NULL);
}

NTSTATUS
DriverEntry (
    IN PDRIVER_OBJECT  DriverObject,
    IN PUNICODE_STRING RegistryPath
    )
{    
    DriverObject->DriverUnload = DriverUnload;
    PsCreateSystemThread(&g_hThread, (ACCESS_MASK)0, NULL, (HANDLE)0, NULL, ThreadProc, NULL);
    return STATUS_SUCCESS; 
}