Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/planix-v0/sys/src/9/ppc/clock.c – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include	"u.h"
2 
#include	"../port/lib.h"
3 
#include	"mem.h"
4 
#include	"dat.h"
5 
#include	"io.h"
6 
#include	"fns.h"
7 
#include	"ureg.h"
8 
 
9 
static	ulong	clkreload;
10 
 
11 
void
12 
delayloopinit(void)
13 
{
14 
	ulong v;
15 
	uvlong x;
16 
 
17 
	/* initial value for loopconst set in machinit */
18 
	m->loopconst = 1000;
19 
	v = getdec();
20 
	delay(1000);
21 
	v -= getdec();
22 
 
23 
	x = m->loopconst;
24 
	x *= m->dechz;
25 
	x /= v;
26 
	m->loopconst = x;
27 
}
28 
 
29 
void
30 
clockinit(void)
31 
{
32 
	m->dechz = m->bushz/4;	/* true for all 604e */
33 
	m->tbhz = m->dechz;	/* conjecture; manual doesn't say */
34 
 
35 
	delayloopinit();
36 
 
37 
	clkreload = m->dechz/HZ-1;
38 
	putdec(clkreload);
39 
}
40 
 
41 
void
42 
clockintr(Ureg *)
43 
{
44 
	long v;
45 
 
46 
	v = -getdec();
47 
	if(v > (clkreload >> 1)){
48 
		if(v > clkreload)
49 
			m->ticks += v/clkreload;
50 
		v = 0;
51 
	}
52 
	putdec(clkreload-v);
53 
}
54 
 
55 
void
56 
delay(int l)
57 
{
58 
	ulong i, j;
59 
 
60 
	j = 0;
61 
	if(m)
62 
		j = m->loopconst;
63 
	if(j == 0)
64 
		j = 1096;
65 
	while(l-- > 0)
66 
		for(i=0; i < j; i++)
67 
			;
68 
}
69 
 
70 
void
71 
microdelay(int l)
72 
{
73 
	ulong i;
74 
 
75 
	l *= m->loopconst;
76 
	l += 500;
77 
	l /= 1000;
78 
	if(l <= 0)
79 
		l = 1;
80 
	for(i = 0; i < l; i++)
81 
		;
82 
}
83 
 
84 
ulong
85 
perfticks(void)
86 
{
87 
	return (ulong)fastticks(nil);
88 
}