blob: 49dec2ccb5d238c31b2d4491604acf56f4a1529a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#include "u.h"
#include "../port/lib.h"
#include "mem.h"
#include "dat.h"
#include "fns.h"
static Alarms alarms;
static Rendez alarmr;
void
alarmkproc(void*)
{
Proc *rp;
ulong now, when;
while(waserror())
;
for(;;){
now = MACHP(0)->ticks;
qlock(&alarms);
for(rp = alarms.head; rp != nil; rp = rp->palarm){
if((when = rp->alarm) == 0)
continue;
if((long)(now - when) < 0)
break;
if(!canqlock(&rp->debug))
break;
if(rp->alarm != 0){
static Note alarm = {
"alarm",
NUser,
1,
};
incref(&alarm);
pushnote(rp, &alarm);
rp->alarm = 0;
}
qunlock(&rp->debug);
}
alarms.head = rp;
qunlock(&alarms);
sleep(&alarmr, return0, 0);
}
}
/*
* called every clock tick on cpu0
*/
void
checkalarms(void)
{
Proc *p;
ulong now, when;
p = alarms.head;
if(p != nil){
now = MACHP(0)->ticks;
when = p->alarm;
if(when == 0 || (long)(now - when) >= 0)
wakeup(&alarmr);
}
}
ulong
procalarm(ulong time)
{
Proc **l, *f;
ulong when, old;
when = MACHP(0)->ticks;
old = up->alarm;
if(old) {
old -= when;
if((long)old > 0)
old = tk2ms(old);
else
old = 0;
}
if(time == 0) {
up->alarm = 0;
return old;
}
when += ms2tk(time);
if(when == 0)
when = 1;
qlock(&alarms);
l = &alarms.head;
for(f = *l; f; f = f->palarm) {
if(up == f){
*l = f->palarm;
break;
}
l = &f->palarm;
}
l = &alarms.head;
for(f = *l; f; f = f->palarm) {
time = f->alarm;
if(time != 0 && (long)(time - when) >= 0)
break;
l = &f->palarm;
}
up->palarm = f;
*l = up;
up->alarm = when;
qunlock(&alarms);
return old;
}
|
