From 0a8bfb887aafff5cb41ee1a38da13f0775c9242f Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Sun, 17 May 1992 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1992-05-17

---
 port/alarm.c | 18 ++++++++----------
 power/main.c |  2 +-
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/port/alarm.c b/port/alarm.c
index 833980b7f15210254aca5ba71afab114bb2ab30d..e6e615d28b1de9a10828d15394ed7edbd9eae0e3 100644
--- a/port/alarm.c
+++ b/port/alarm.c
@@ -6,7 +6,7 @@
 #include	"io.h"
 
 struct {
-	QLock;
+	Lock;
 	Alarm	*tab;	/* table of all alarm structures */
 	void	*list;	/* busy alarms */
 	Rendez	r;
@@ -25,14 +25,14 @@ alarm(int ms, void (*f)(Alarm*), void *arg)
 	a->when = MACHP(0)->ticks+MS2TK(ms);
 	a->f = f;
 	a->arg = arg;
-	qlock(&alarmalloc);
+	lock(&alarmalloc);
 	pw = 0;
 	for(w=alarmalloc.list; w; pw=w, w=w->next){
 		if(w->when > a->when)
 			break;
 	}
 	insert(&alarmalloc.list, pw, a);
-	qunlock(&alarmalloc);
+	unlock(&alarmalloc);
 	return a;
 }
 
@@ -75,8 +75,8 @@ alarminit(void)
 		lock(&alarmalloc.tab[i]);
 		unlock(&alarmalloc.tab[i]);
 	}
-	qlock(&alarmalloc);
-	qunlock(&alarmalloc);
+	lock(&alarmalloc);
+	unlock(&alarmalloc);
 	qlock(&alarms);
 	qunlock(&alarms);
 }
@@ -97,7 +97,7 @@ alarmkproc(void *arg)
 	for(;;){
 		now = MACHP(0)->ticks;
 
-		qlock(&alarmalloc);
+		lock(&alarmalloc);
 		a = alarmalloc.list;
 		if(a){
 			for(n=0; a && a->when<=now && n<NA; n++){
@@ -105,7 +105,7 @@ alarmkproc(void *arg)
 				delete(&alarmalloc.list, 0, a);
 				a = alarmalloc.list;
 			}
-			qunlock(&alarmalloc);
+			unlock(&alarmalloc);
 
 			/*
 			 *  execute alarm functions outside the lock since they
@@ -124,7 +124,7 @@ alarmkproc(void *arg)
 				poperror();
 			}
 		}else
-			qunlock(&alarmalloc);
+			unlock(&alarmalloc);
 
 		qlock(&alarms);
 		while((rp = alarms.head) && rp->alarm <= now){
@@ -157,8 +157,6 @@ checkalarms(void)
 	Proc *p;
 	Alarm *a;
 
-	if(m != MACHP(0))
-		return;
 	a = alarmalloc.list;
 	p = alarms.head;
 	now = MACHP(0)->ticks;
diff --git a/power/main.c b/power/main.c
index 00342f7e251e3b330b7c7dd5fb8fd82d19fa123a..0522bc565006aed8add9defa6e70aba7dd27556a 100644
--- a/power/main.c
+++ b/power/main.c
@@ -218,7 +218,6 @@ init0(void)
 	 */
 	u->slash = (*devtab[0].attach)(0);
 	u->dot = clone(u->slash, 0);
-	kproc("alarm", alarmkproc, 0);
 	chandevinit();
 
 	if(!waserror()){
@@ -228,6 +227,7 @@ init0(void)
 		poperror();
 	}
 
+	kproc("alarm", alarmkproc, 0);
 	sp = (ulong*)(USTKTOP - argsize);
 	touser(sp);
 }