X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=KernelLand%2FKernel%2Ftime.c;h=a6ccd8be1c3f869e3fe9edf2266f7502f0502caf;hb=ae2130be2ffbdd0a8c1fa07257d2c2b9fa824095;hp=29d8ddb13ca8ebad3c9ef43a8887a1be5386826b;hpb=ade876493f79b1b96a2fb529fc515a78964a1249;p=tpg%2Facess2.git

diff --git a/KernelLand/Kernel/time.c b/KernelLand/Kernel/time.c
index 29d8ddb1..a6ccd8be 100644
--- a/KernelLand/Kernel/time.c
+++ b/KernelLand/Kernel/time.c
@@ -74,20 +74,20 @@ void Timer_CallbackThread(void *Unused)
  */
 void Timer_CallTimers()
 {
+	// Tick the random number generator every time timers are checked
+	rand();
+	
 	SHORTLOCK(&gTimers_ListLock);
 	while( gTimers && gTimers->FiresAfter < now() )
 	{
+		ASSERT( gTimers != gTimers->Next );	
 		// Get timer from list
 		tTimer	*timer = gTimers;
-	
-		ASSERT( gTimers != gTimers->Next );	
 		gTimers = gTimers->Next;
 	
 		// Perform event
 		if( timer->Callback ) {
 			LOG("Callback schedule %p", timer);
-			// PROBLEM! Possibly causes rescheudle during interrupt
-//			Mutex_Acquire( &timer->Lock );	// Released once the callback fires
 			Workqueue_AddWork(&gTimers_CallbackQueue, timer);
 		}
 		else {
@@ -151,7 +151,7 @@ void Time_ScheduleTimer(tTimer *Timer, int Delta)
 	Timer->Next = t;
 	*prev_next = Timer;
 	Timer->bActive = 1;
-	LOG(" %p %p %p", prev_next, Timer, t);
+	LOG(" prev_next=%p Timer=%p next=%p", prev_next, Timer, t);
 	SHORTREL(&gTimers_ListLock);
 }
 
@@ -210,6 +210,7 @@ void Time_InitTimer(tTimer *Timer, tTimerCallback *Callback, void *Argument)
 	Timer->Argument = Argument;
 //	memset( &Timer->Lock, 0, sizeof(Timer->Lock) );
 	Timer->bActive = 0;
+	LOG("Initialised timer %p (cb=%p,arg=%p)", Timer, Callback, Argument);
 }
 
 /**
@@ -236,6 +237,7 @@ void Time_FreeTimer(tTimer *Timer)
  */
 void Time_Delay(int Delay)
 {
+	LOG("(%i)", Delay);
 	tTimer	*t = &Proc_GetCurThread()->ThreadTimer;
 	Time_InitTimer(t, NULL, NULL);
 	Time_ScheduleTimer(t, Delay);