1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 22 /* 23 * Copyright 2009 Sun Microsystems, Inc. All rights reserved. 24 * Use is subject to license terms. 25 */ 26 27 #include <sys/systm.h> 28 #include <sys/cyclic.h> 29 #include <sys/cyclic_impl.h> 30 #include <sys/spl.h> 31 #include <sys/x_call.h> 32 #include <sys/kmem.h> 33 #include <sys/machsystm.h> 34 #include <sys/smp_impldefs.h> 35 #include <sys/psm_types.h> 36 #include <sys/psm.h> 37 #include <sys/atomic.h> 38 #include <sys/clock.h> 39 #include <sys/x86_archext.h> 40 #include <sys/ddi_impldefs.h> 41 #include <sys/ddi_intr.h> 42 #include <sys/avintr.h> 43 #include <sys/note.h> 44 45 static int cbe_vector; 46 static int cbe_ticks = 0; 47 48 /* 49 * cbe_xcall_lock is used to protect the xcall globals since the cyclic 50 * reprogramming API does not use cpu_lock. 51 */ 52 static kmutex_t cbe_xcall_lock; 53 static cyc_func_t volatile cbe_xcall_func; 54 static cpu_t *volatile cbe_xcall_cpu; 55 static void *cbe_xcall_farg; 56 static cpuset_t cbe_enabled; 57 58 static ddi_softint_hdl_impl_t cbe_low_hdl = 59 {0, 0, NULL, NULL, 0, NULL, NULL, NULL}; 60 static ddi_softint_hdl_impl_t cbe_clock_hdl = 61 {0, 0, NULL, NULL, 0, NULL, NULL, NULL}; 62 63 cyclic_id_t cbe_hres_cyclic; 64 int cbe_psm_timer_mode = TIMER_ONESHOT; 65 static hrtime_t cbe_timer_resolution; 66 67 extern int tsc_gethrtime_enable; 68 69 void cbe_hres_tick(void); 70 71 int 72 cbe_softclock(void) 73 { 74 cyclic_softint(CPU, CY_LOCK_LEVEL); 75 return (1); 76 } 77 78 int 79 cbe_low_level(void) 80 { 81 cpu_t *cpu = CPU; 82 83 cyclic_softint(cpu, CY_LOW_LEVEL); 84 return (1); 85 } 86 87 /* 88 * We can be in cbe_fire() either due to a cyclic-induced cross call, or due 89 * to the timer firing at level-14. Because cyclic_fire() can tolerate 90 * spurious calls, it would not matter if we called cyclic_fire() in both 91 * cases. 92 */ 93 int 94 cbe_fire(void) 95 { 96 cpu_t *cpu = CPU; 97 processorid_t me = cpu->cpu_id, i; 98 int cross_call = (cbe_xcall_func != NULL && cbe_xcall_cpu == cpu); 99 100 cyclic_fire(cpu); 101 102 if (cbe_psm_timer_mode != TIMER_ONESHOT && me == 0 && !cross_call) { 103 for (i = 1; i < NCPU; i++) { 104 if (CPU_IN_SET(cbe_enabled, i)) { 105 send_dirint(i, CBE_HIGH_PIL); 106 } 107 } 108 } 109 110 if (cross_call) { 111 ASSERT(cbe_xcall_func != NULL && cbe_xcall_cpu == cpu); 112 (*cbe_xcall_func)(cbe_xcall_farg); 113 cbe_xcall_func = NULL; 114 cbe_xcall_cpu = NULL; 115 } 116 117 return (1); 118 } 119 120 /*ARGSUSED*/ 121 void 122 cbe_softint(void *arg, cyc_level_t level) 123 { 124 switch (level) { 125 case CY_LOW_LEVEL: 126 (*setsoftint)(CBE_LOW_PIL, cbe_low_hdl.ih_pending); 127 break; 128 case CY_LOCK_LEVEL: 129 (*setsoftint)(CBE_LOCK_PIL, cbe_clock_hdl.ih_pending); 130 break; 131 default: 132 panic("cbe_softint: unexpected soft level %d", level); 133 } 134 } 135 136 /*ARGSUSED*/ 137 void 138 cbe_reprogram(void *arg, hrtime_t time) 139 { 140 if (cbe_psm_timer_mode == TIMER_ONESHOT) 141 (*psm_timer_reprogram)(time); 142 } 143 144 /*ARGSUSED*/ 145 cyc_cookie_t 146 cbe_set_level(void *arg, cyc_level_t level) 147 { 148 int ipl; 149 150 switch (level) { 151 case CY_LOW_LEVEL: 152 ipl = CBE_LOW_PIL; 153 break; 154 case CY_LOCK_LEVEL: 155 ipl = CBE_LOCK_PIL; 156 break; 157 case CY_HIGH_LEVEL: 158 ipl = CBE_HIGH_PIL; 159 break; 160 default: 161 panic("cbe_set_level: unexpected level %d", level); 162 } 163 164 return (splr(ipltospl(ipl))); 165 } 166 167 /*ARGSUSED*/ 168 void 169 cbe_restore_level(void *arg, cyc_cookie_t cookie) 170 { 171 splx(cookie); 172 } 173 174 /*ARGSUSED*/ 175 void 176 cbe_xcall(void *arg, cpu_t *dest, cyc_func_t func, void *farg) 177 { 178 kpreempt_disable(); 179 180 if (dest == CPU) { 181 (*func)(farg); 182 kpreempt_enable(); 183 return; 184 } 185 186 mutex_enter(&cbe_xcall_lock); 187 188 ASSERT(cbe_xcall_func == NULL); 189 190 cbe_xcall_farg = farg; 191 membar_producer(); 192 cbe_xcall_cpu = dest; 193 cbe_xcall_func = func; 194 195 send_dirint(dest->cpu_id, CBE_HIGH_PIL); 196 197 while (cbe_xcall_func != NULL || cbe_xcall_cpu != NULL) 198 continue; 199 200 mutex_exit(&cbe_xcall_lock); 201 202 kpreempt_enable(); 203 } 204 205 void * 206 cbe_configure(cpu_t *cpu) 207 { 208 return (cpu); 209 } 210 211 void 212 cbe_unconfigure(void *arg) 213 { 214 _NOTE(ARGUNUSED(arg)); 215 ASSERT(!CPU_IN_SET(cbe_enabled, ((cpu_t *)arg)->cpu_id)); 216 } 217 218 #ifndef __xpv 219 /* 220 * declarations needed for time adjustment 221 */ 222 extern void tsc_suspend(void); 223 extern void tsc_resume(void); 224 /* 225 * Call the resume function in the cyclic, instead of inline in the 226 * resume path. 227 */ 228 extern int tsc_resume_in_cyclic; 229 #endif 230 231 /*ARGSUSED*/ 232 static void 233 cbe_suspend(cyb_arg_t arg) 234 { 235 #ifndef __xpv 236 /* 237 * This is an x86 backend, so let the tsc_suspend 238 * that is specific to x86 platforms do the work. 239 */ 240 tsc_suspend(); 241 #endif 242 } 243 244 /*ARGSUSED*/ 245 static void 246 cbe_resume(cyb_arg_t arg) 247 { 248 #ifndef __xpv 249 if (tsc_resume_in_cyclic) { 250 tsc_resume(); 251 } 252 #endif 253 } 254 255 void 256 cbe_enable(void *arg) 257 { 258 processorid_t me = ((cpu_t *)arg)->cpu_id; 259 260 /* neither enable nor disable cpu0 if TIMER_PERIODIC is set */ 261 if ((cbe_psm_timer_mode != TIMER_ONESHOT) && (me == 0)) 262 return; 263 264 /* 265 * Added (me == 0) to the ASSERT because the timer isn't 266 * disabled on CPU 0, and cbe_enable is called when we resume. 267 */ 268 ASSERT((me == 0) || !CPU_IN_SET(cbe_enabled, me)); 269 CPUSET_ADD(cbe_enabled, me); 270 if (cbe_psm_timer_mode == TIMER_ONESHOT) 271 (*psm_timer_enable)(); 272 } 273 274 void 275 cbe_disable(void *arg) 276 { 277 processorid_t me = ((cpu_t *)arg)->cpu_id; 278 279 /* neither enable nor disable cpu0 if TIMER_PERIODIC is set */ 280 if ((cbe_psm_timer_mode != TIMER_ONESHOT) && (me == 0)) 281 return; 282 283 ASSERT(CPU_IN_SET(cbe_enabled, me)); 284 CPUSET_DEL(cbe_enabled, me); 285 if (cbe_psm_timer_mode == TIMER_ONESHOT) 286 (*psm_timer_disable)(); 287 } 288 289 /* 290 * Unbound cyclic, called once per tick (every nsec_per_tick ns). 291 */ 292 void 293 cbe_hres_tick(void) 294 { 295 int s; 296 297 dtrace_hres_tick(); 298 299 /* 300 * Because hres_tick effectively locks hres_lock, we must be at the 301 * same PIL as that used for CLOCK_LOCK. 302 */ 303 s = splr(ipltospl(XC_HI_PIL)); 304 hres_tick(); 305 splx(s); 306 307 if ((cbe_ticks % hz) == 0) 308 (*hrtime_tick)(); 309 310 cbe_ticks++; 311 312 } 313 314 void 315 cbe_init_pre(void) 316 { 317 cbe_vector = (*psm_get_clockirq)(CBE_HIGH_PIL); 318 319 CPUSET_ZERO(cbe_enabled); 320 321 cbe_timer_resolution = (*clkinitf)(TIMER_ONESHOT, &cbe_psm_timer_mode); 322 } 323 324 void 325 cbe_init(void) 326 { 327 cyc_backend_t cbe = { 328 cbe_configure, /* cyb_configure */ 329 cbe_unconfigure, /* cyb_unconfigure */ 330 cbe_enable, /* cyb_enable */ 331 cbe_disable, /* cyb_disable */ 332 cbe_reprogram, /* cyb_reprogram */ 333 cbe_softint, /* cyb_softint */ 334 cbe_set_level, /* cyb_set_level */ 335 cbe_restore_level, /* cyb_restore_level */ 336 cbe_xcall, /* cyb_xcall */ 337 cbe_suspend, /* cyb_suspend */ 338 cbe_resume /* cyb_resume */ 339 }; 340 cyc_handler_t hdlr; 341 cyc_time_t when; 342 343 mutex_init(&cbe_xcall_lock, NULL, MUTEX_DEFAULT, NULL); 344 345 mutex_enter(&cpu_lock); 346 cyclic_init(&cbe, cbe_timer_resolution); 347 mutex_exit(&cpu_lock); 348 349 (void) add_avintr(NULL, CBE_HIGH_PIL, (avfunc)cbe_fire, 350 "cbe_fire_master", cbe_vector, 0, NULL, NULL, NULL); 351 352 if (psm_get_ipivect != NULL) { 353 (void) add_avintr(NULL, CBE_HIGH_PIL, (avfunc)cbe_fire, 354 "cbe_fire_slave", 355 (*psm_get_ipivect)(CBE_HIGH_PIL, PSM_INTR_IPI_HI), 356 0, NULL, NULL, NULL); 357 } 358 359 (void) add_avsoftintr((void *)&cbe_clock_hdl, CBE_LOCK_PIL, 360 (avfunc)cbe_softclock, "softclock", NULL, NULL); 361 362 (void) add_avsoftintr((void *)&cbe_low_hdl, CBE_LOW_PIL, 363 (avfunc)cbe_low_level, "low level", NULL, NULL); 364 365 mutex_enter(&cpu_lock); 366 367 hdlr.cyh_level = CY_HIGH_LEVEL; 368 hdlr.cyh_func = (cyc_func_t)cbe_hres_tick; 369 hdlr.cyh_arg = NULL; 370 371 when.cyt_when = 0; 372 when.cyt_interval = nsec_per_tick; 373 374 cbe_hres_cyclic = cyclic_add(&hdlr, &when); 375 376 if (psm_post_cyclic_setup != NULL) 377 (*psm_post_cyclic_setup)(NULL); 378 379 mutex_exit(&cpu_lock); 380 } 381