kern_cctr.c revision 1.1 1 /* $NetBSD: kern_cctr.c,v 1.1 2007/07/21 11:47:07 tsutsui Exp $ */
2
3
4 /*-
5 * Copyright (c) 2006 The NetBSD Foundation, Inc.
6 * All rights reserved.
7 *
8 * re-implementation of TSC for MP systems merging cc_microtime and
9 * TSC for timecounters by Frank Kardel
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the NetBSD
22 * Foundation, Inc. and its contributors.
23 * 4. Neither the name of The NetBSD Foundation nor the names of its
24 * contributors may be used to endorse or promote products derived
25 * from this software without specific prior written permission.
26 *
27 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
28 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
29 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
30 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
31 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
32 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
33 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
34 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
35 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
36 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
37 * POSSIBILITY OF SUCH DAMAGE.
38 */
39
40 /* basic calibration ideas are (kern_microtime.c): */
41 /******************************************************************************
42 * *
43 * Copyright (c) David L. Mills 1993, 1994 *
44 * *
45 * Permission to use, copy, modify, and distribute this software and its *
46 * documentation for any purpose and without fee is hereby granted, provided *
47 * that the above copyright notice appears in all copies and that both the *
48 * copyright notice and this permission notice appear in supporting *
49 * documentation, and that the name University of Delaware not be used in *
50 * advertising or publicity pertaining to distribution of the software *
51 * without specific, written prior permission. The University of Delaware *
52 * makes no representations about the suitability this software for any *
53 * purpose. It is provided "as is" without express or implied warranty. *
54 * *
55 ******************************************************************************/
56
57 /* reminiscents from older version of this file are: */
58 /*-
59 * Copyright (c) 1998-2003 Poul-Henning Kamp
60 * All rights reserved.
61 *
62 * Redistribution and use in source and binary forms, with or without
63 * modification, are permitted provided that the following conditions
64 * are met:
65 * 1. Redistributions of source code must retain the above copyright
66 * notice, this list of conditions and the following disclaimer.
67 * 2. Redistributions in binary form must reproduce the above copyright
68 * notice, this list of conditions and the following disclaimer in the
69 * documentation and/or other materials provided with the distribution.
70 *
71 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
72 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
73 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
74 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
75 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
76 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
77 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
78 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
79 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
80 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
81 * SUCH DAMAGE.
82 */
83
84 #include <sys/cdefs.h>
85 /* __FBSDID("$FreeBSD: src/sys/i386/i386/tsc.c,v 1.204 2003/10/21 18:28:34 silby Exp $"); */
86 __KERNEL_RCSID(0, "$NetBSD: kern_cctr.c,v 1.1 2007/07/21 11:47:07 tsutsui Exp $");
87
88 #include "opt_multiprocessor.h"
89
90 #include <sys/param.h>
91 #include <sys/systm.h>
92 #include <sys/sysctl.h>
93 #include <sys/time.h>
94 #include <sys/timetc.h>
95 #include <sys/kernel.h>
96 #include <sys/power.h>
97 #include <machine/cpu.h>
98 #include <machine/cpu_counter.h>
99
100 /* XXX make cc_timecounter.tc_frequency settable by sysctl() */
101
102 static timecounter_get_t cc_get_timecount;
103 static timecounter_pps_t cc_calibrate;
104
105 void cc_calibrate_cpu(struct cpu_info *);
106
107 static int64_t cc_cal_val; /* last calibrate time stamp */
108
109 static struct timecounter cc_timecounter = {
110 .tc_get_timecount = cc_get_timecount,
111 .tc_poll_pps = cc_calibrate,
112 .tc_counter_mask = ~0u,
113 .tc_frequency = 0,
114 .tc_name = "unkown cycle counter",
115 /*
116 * don't pick cycle counter automatically
117 * if frequency changes might affect cycle counter
118 */
119 .tc_quality = -100000,
120
121 .tc_priv = NULL,
122 .tc_next = NULL
123 };
124
125 /*
126 * initialize cycle counter based timecounter
127 */
128 struct timecounter *
129 cc_init(uint64_t freq, const char *name, int quality)
130 {
131
132 cc_timecounter.tc_frequency = freq;
133 cc_timecounter.tc_name = name;
134 cc_timecounter.tc_quality = quality;
135 tc_init(&cc_timecounter);
136
137 return &cc_timecounter;
138 }
139
140 /*
141 * pick up tick count scaled to reference tick count
142 */
143 static u_int
144 cc_get_timecount(struct timecounter *tc)
145 {
146 struct cpu_info *ci = curcpu();
147 int64_t rcc, cc;
148 u_int gen;
149
150 if (ci->ci_cc.cc_denom == 0) {
151 /*
152 * This is our first time here on this CPU. Just
153 * start with reasonable initial values.
154 */
155 ci->ci_cc.cc_cc = cpu_counter32();
156 ci->ci_cc.cc_val = 0;
157 if (ci->ci_cc.cc_gen == 0)
158 ci->ci_cc.cc_gen++;
159
160 ci->ci_cc.cc_denom = cpu_frequency(ci);
161 if (ci->ci_cc.cc_denom == 0)
162 ci->ci_cc.cc_denom = cc_timecounter.tc_frequency;
163 ci->ci_cc.cc_delta = ci->ci_cc.cc_denom;
164 }
165
166 /*
167 * read counter and re-read when the re-calibration
168 * strikes inbetween
169 */
170 do {
171 /* pick up current generation number */
172 gen = ci->ci_cc.cc_gen;
173
174 /* determine local delta ticks */
175 cc = cpu_counter32() - ci->ci_cc.cc_cc;
176 if (cc < 0)
177 cc += 0x100000000LL;
178
179 /* scale to primary */
180 rcc = (cc * ci->ci_cc.cc_delta) / ci->ci_cc.cc_denom
181 + ci->ci_cc.cc_val;
182 } while (gen == 0 || gen != ci->ci_cc.cc_gen);
183
184 return rcc;
185 }
186
187 /*
188 * called once per clock tick via the pps callback
189 * for the calibration of the TSC counters.
190 * it is called only for the PRIMARY cpu. all
191 * other cpus are called via a broadcast IPI
192 * calibration interval is 1 second - we call
193 * the calobration code only every hz calls
194 */
195 static void
196 cc_calibrate(struct timecounter *tc)
197 {
198 static int calls;
199 struct cpu_info *ci;
200
201 /*
202 * XXX: for high interrupt frequency
203 * support: ++calls < hz / tc_tick
204 */
205 if (++calls < hz)
206 return;
207
208 calls = 0;
209 ci = curcpu();
210 /* pick up reference ticks */
211 cc_cal_val = cpu_counter32();
212
213 #if defined(MULTIPROCESSOR)
214 cc_calibrate_mp(ci);
215 #endif
216 cc_calibrate_cpu(ci);
217 }
218
219 /*
220 * This routine is called about once per second directly by the master
221 * processor and via an interprocessor interrupt for other processors.
222 * It determines the CC frequency of each processor relative to the
223 * master clock and the time this determination is made. These values
224 * are used by cc_get_timecount() to interpolate the ticks between
225 * timer interrupts. Note that we assume the kernel variables have
226 * been zeroed early in life.
227 */
228 void
229 cc_calibrate_cpu(struct cpu_info *ci)
230 {
231 u_int gen;
232 int64_t val;
233 int64_t delta, denom;
234 int s;
235 #ifdef TIMECOUNTER_DEBUG
236 int64_t factor, old_factor;
237 #endif
238 val = cc_cal_val;
239
240 s = splhigh();
241 /* create next generation number */
242 gen = ci->ci_cc.cc_gen;
243 gen++;
244 if (gen == 0)
245 gen++;
246
247 /* update in progress */
248 ci->ci_cc.cc_gen = 0;
249
250 denom = ci->ci_cc.cc_cc;
251 ci->ci_cc.cc_cc = cpu_counter32();
252
253 if (ci->ci_cc.cc_denom == 0) {
254 /*
255 * This is our first time here on this CPU. Just
256 * start with reasonable initial values.
257 */
258 ci->ci_cc.cc_val = val;
259 ci->ci_cc.cc_denom = cpu_frequency(ci);
260 if (ci->ci_cc.cc_denom == 0)
261 ci->ci_cc.cc_denom = cc_timecounter.tc_frequency;;
262 ci->ci_cc.cc_delta = ci->ci_cc.cc_denom;
263 ci->ci_cc.cc_gen = gen;
264 splx(s);
265 return;
266 }
267
268 #ifdef TIMECOUNTER_DEBUG
269 old_factor = (ci->ci_cc.cc_delta * 1000 ) / ci->ci_cc.cc_denom;
270 #endif
271
272 /* local ticks per period */
273 denom = ci->ci_cc.cc_cc - denom;
274 if (denom < 0)
275 denom += 0x100000000LL;
276
277 ci->ci_cc.cc_denom = denom;
278
279 /* reference ticks per period */
280 delta = val - ci->ci_cc.cc_val;
281 if (delta < 0)
282 delta += 0x100000000LL;
283
284 ci->ci_cc.cc_val = val;
285 ci->ci_cc.cc_delta = delta;
286
287 /* publish new generation number */
288 ci->ci_cc.cc_gen = gen;
289 splx(s);
290
291 #ifdef TIMECOUNTER_DEBUG
292 factor = (delta * 1000) / denom - old_factor;
293 if (factor < 0)
294 factor = -factor;
295
296 if (factor > old_factor / 10)
297 printf("cc_calibrate_cpu[%lu]: 10%% exceeded - delta %"
298 PRId64 ", denom %" PRId64 ", factor %" PRId64
299 ", old factor %" PRId64"\n", ci->ci_cpuid,
300 delta, denom, (delta * 1000) / denom, old_factor);
301 #endif /* TIMECOUNTER_DEBUG */
302 }
303