Loading...
1// SPDX-License-Identifier: GPL-2.0-only
2/*
3 * Copyright 2012 by Oracle Inc
4 * Author: Konrad Rzeszutek Wilk <konrad.wilk@oracle.com>
5 *
6 * This code borrows ideas from https://lkml.org/lkml/2011/11/30/249
7 * so many thanks go to Kevin Tian <kevin.tian@intel.com>
8 * and Yu Ke <ke.yu@intel.com>.
9 */
10
11#define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
12
13#include <linux/cpumask.h>
14#include <linux/cpufreq.h>
15#include <linux/freezer.h>
16#include <linux/kernel.h>
17#include <linux/kthread.h>
18#include <linux/init.h>
19#include <linux/module.h>
20#include <linux/types.h>
21#include <linux/syscore_ops.h>
22#include <linux/acpi.h>
23#include <acpi/processor.h>
24#include <xen/xen.h>
25#include <xen/interface/platform.h>
26#include <asm/xen/hypercall.h>
27
28static int no_hypercall;
29MODULE_PARM_DESC(off, "Inhibit the hypercall.");
30module_param_named(off, no_hypercall, int, 0400);
31
32/*
33 * Note: Do not convert the acpi_id* below to cpumask_var_t or use cpumask_bit
34 * - as those shrink to nr_cpu_bits (which is dependent on possible_cpu), which
35 * can be less than what we want to put in. Instead use the 'nr_acpi_bits'
36 * which is dynamically computed based on the MADT or x2APIC table.
37 */
38static unsigned int nr_acpi_bits;
39/* Mutex to protect the acpi_ids_done - for CPU hotplug use. */
40static DEFINE_MUTEX(acpi_ids_mutex);
41/* Which ACPI ID we have processed from 'struct acpi_processor'. */
42static unsigned long *acpi_ids_done;
43/* Which ACPI ID exist in the SSDT/DSDT processor definitions. */
44static unsigned long *acpi_id_present;
45/* And if there is an _CST definition (or a PBLK) for the ACPI IDs */
46static unsigned long *acpi_id_cst_present;
47/* Which ACPI P-State dependencies for a enumerated processor */
48static struct acpi_psd_package *acpi_psd;
49
50static int push_cxx_to_hypervisor(struct acpi_processor *_pr)
51{
52 struct xen_platform_op op = {
53 .cmd = XENPF_set_processor_pminfo,
54 .interface_version = XENPF_INTERFACE_VERSION,
55 .u.set_pminfo.id = _pr->acpi_id,
56 .u.set_pminfo.type = XEN_PM_CX,
57 };
58 struct xen_processor_cx *dst_cx, *dst_cx_states = NULL;
59 struct acpi_processor_cx *cx;
60 unsigned int i, ok;
61 int ret = 0;
62
63 dst_cx_states = kcalloc(_pr->power.count,
64 sizeof(struct xen_processor_cx), GFP_KERNEL);
65 if (!dst_cx_states)
66 return -ENOMEM;
67
68 for (ok = 0, i = 1; i <= _pr->power.count; i++) {
69 cx = &_pr->power.states[i];
70 if (!cx->valid)
71 continue;
72
73 dst_cx = &(dst_cx_states[ok++]);
74
75 dst_cx->reg.space_id = ACPI_ADR_SPACE_SYSTEM_IO;
76 if (cx->entry_method == ACPI_CSTATE_SYSTEMIO) {
77 dst_cx->reg.bit_width = 8;
78 dst_cx->reg.bit_offset = 0;
79 dst_cx->reg.access_size = 1;
80 } else {
81 dst_cx->reg.space_id = ACPI_ADR_SPACE_FIXED_HARDWARE;
82 if (cx->entry_method == ACPI_CSTATE_FFH) {
83 /* NATIVE_CSTATE_BEYOND_HALT */
84 dst_cx->reg.bit_offset = 2;
85 dst_cx->reg.bit_width = 1; /* VENDOR_INTEL */
86 }
87 dst_cx->reg.access_size = 0;
88 }
89 dst_cx->reg.address = cx->address;
90
91 dst_cx->type = cx->type;
92 dst_cx->latency = cx->latency;
93
94 dst_cx->dpcnt = 0;
95 set_xen_guest_handle(dst_cx->dp, NULL);
96 }
97 if (!ok) {
98 pr_debug("No _Cx for ACPI CPU %u\n", _pr->acpi_id);
99 kfree(dst_cx_states);
100 return -EINVAL;
101 }
102 op.u.set_pminfo.power.count = ok;
103 op.u.set_pminfo.power.flags.bm_control = _pr->flags.bm_control;
104 op.u.set_pminfo.power.flags.bm_check = _pr->flags.bm_check;
105 op.u.set_pminfo.power.flags.has_cst = _pr->flags.has_cst;
106 op.u.set_pminfo.power.flags.power_setup_done =
107 _pr->flags.power_setup_done;
108
109 set_xen_guest_handle(op.u.set_pminfo.power.states, dst_cx_states);
110
111 if (!no_hypercall)
112 ret = HYPERVISOR_platform_op(&op);
113
114 if (!ret) {
115 pr_debug("ACPI CPU%u - C-states uploaded.\n", _pr->acpi_id);
116 for (i = 1; i <= _pr->power.count; i++) {
117 cx = &_pr->power.states[i];
118 if (!cx->valid)
119 continue;
120 pr_debug(" C%d: %s %d uS\n",
121 cx->type, cx->desc, (u32)cx->latency);
122 }
123 } else if ((ret != -EINVAL) && (ret != -ENOSYS))
124 /* EINVAL means the ACPI ID is incorrect - meaning the ACPI
125 * table is referencing a non-existing CPU - which can happen
126 * with broken ACPI tables. */
127 pr_err("(CX): Hypervisor error (%d) for ACPI CPU%u\n",
128 ret, _pr->acpi_id);
129
130 kfree(dst_cx_states);
131
132 return ret;
133}
134static struct xen_processor_px *
135xen_copy_pss_data(struct acpi_processor *_pr,
136 struct xen_processor_performance *dst_perf)
137{
138 struct xen_processor_px *dst_states = NULL;
139 unsigned int i;
140
141 BUILD_BUG_ON(sizeof(struct xen_processor_px) !=
142 sizeof(struct acpi_processor_px));
143
144 dst_states = kcalloc(_pr->performance->state_count,
145 sizeof(struct xen_processor_px), GFP_KERNEL);
146 if (!dst_states)
147 return ERR_PTR(-ENOMEM);
148
149 dst_perf->state_count = _pr->performance->state_count;
150 for (i = 0; i < _pr->performance->state_count; i++) {
151 /* Fortunatly for us, they are both the same size */
152 memcpy(&(dst_states[i]), &(_pr->performance->states[i]),
153 sizeof(struct acpi_processor_px));
154 }
155 return dst_states;
156}
157static int xen_copy_psd_data(struct acpi_processor *_pr,
158 struct xen_processor_performance *dst)
159{
160 struct acpi_psd_package *pdomain;
161
162 BUILD_BUG_ON(sizeof(struct xen_psd_package) !=
163 sizeof(struct acpi_psd_package));
164
165 /* This information is enumerated only if acpi_processor_preregister_performance
166 * has been called.
167 */
168 dst->shared_type = _pr->performance->shared_type;
169
170 pdomain = &(_pr->performance->domain_info);
171
172 /* 'acpi_processor_preregister_performance' does not parse if the
173 * num_processors <= 1, but Xen still requires it. Do it manually here.
174 */
175 if (pdomain->num_processors <= 1) {
176 if (pdomain->coord_type == DOMAIN_COORD_TYPE_SW_ALL)
177 dst->shared_type = CPUFREQ_SHARED_TYPE_ALL;
178 else if (pdomain->coord_type == DOMAIN_COORD_TYPE_HW_ALL)
179 dst->shared_type = CPUFREQ_SHARED_TYPE_HW;
180 else if (pdomain->coord_type == DOMAIN_COORD_TYPE_SW_ANY)
181 dst->shared_type = CPUFREQ_SHARED_TYPE_ANY;
182
183 }
184 memcpy(&(dst->domain_info), pdomain, sizeof(struct acpi_psd_package));
185 return 0;
186}
187static int xen_copy_pct_data(struct acpi_pct_register *pct,
188 struct xen_pct_register *dst_pct)
189{
190 /* It would be nice if you could just do 'memcpy(pct, dst_pct') but
191 * sadly the Xen structure did not have the proper padding so the
192 * descriptor field takes two (dst_pct) bytes instead of one (pct).
193 */
194 dst_pct->descriptor = pct->descriptor;
195 dst_pct->length = pct->length;
196 dst_pct->space_id = pct->space_id;
197 dst_pct->bit_width = pct->bit_width;
198 dst_pct->bit_offset = pct->bit_offset;
199 dst_pct->reserved = pct->reserved;
200 dst_pct->address = pct->address;
201 return 0;
202}
203static int push_pxx_to_hypervisor(struct acpi_processor *_pr)
204{
205 int ret = 0;
206 struct xen_platform_op op = {
207 .cmd = XENPF_set_processor_pminfo,
208 .interface_version = XENPF_INTERFACE_VERSION,
209 .u.set_pminfo.id = _pr->acpi_id,
210 .u.set_pminfo.type = XEN_PM_PX,
211 };
212 struct xen_processor_performance *dst_perf;
213 struct xen_processor_px *dst_states = NULL;
214
215 dst_perf = &op.u.set_pminfo.perf;
216
217 dst_perf->platform_limit = _pr->performance_platform_limit;
218 dst_perf->flags |= XEN_PX_PPC;
219 xen_copy_pct_data(&(_pr->performance->control_register),
220 &dst_perf->control_register);
221 xen_copy_pct_data(&(_pr->performance->status_register),
222 &dst_perf->status_register);
223 dst_perf->flags |= XEN_PX_PCT;
224 dst_states = xen_copy_pss_data(_pr, dst_perf);
225 if (!IS_ERR_OR_NULL(dst_states)) {
226 set_xen_guest_handle(dst_perf->states, dst_states);
227 dst_perf->flags |= XEN_PX_PSS;
228 }
229 if (!xen_copy_psd_data(_pr, dst_perf))
230 dst_perf->flags |= XEN_PX_PSD;
231
232 if (dst_perf->flags != (XEN_PX_PSD | XEN_PX_PSS | XEN_PX_PCT | XEN_PX_PPC)) {
233 pr_warn("ACPI CPU%u missing some P-state data (%x), skipping\n",
234 _pr->acpi_id, dst_perf->flags);
235 ret = -ENODEV;
236 goto err_free;
237 }
238
239 if (!no_hypercall)
240 ret = HYPERVISOR_platform_op(&op);
241
242 if (!ret) {
243 struct acpi_processor_performance *perf;
244 unsigned int i;
245
246 perf = _pr->performance;
247 pr_debug("ACPI CPU%u - P-states uploaded.\n", _pr->acpi_id);
248 for (i = 0; i < perf->state_count; i++) {
249 pr_debug(" %cP%d: %d MHz, %d mW, %d uS\n",
250 (i == perf->state ? '*' : ' '), i,
251 (u32) perf->states[i].core_frequency,
252 (u32) perf->states[i].power,
253 (u32) perf->states[i].transition_latency);
254 }
255 } else if ((ret != -EINVAL) && (ret != -ENOSYS))
256 /* EINVAL means the ACPI ID is incorrect - meaning the ACPI
257 * table is referencing a non-existing CPU - which can happen
258 * with broken ACPI tables. */
259 pr_warn("(_PXX): Hypervisor error (%d) for ACPI CPU%u\n",
260 ret, _pr->acpi_id);
261err_free:
262 if (!IS_ERR_OR_NULL(dst_states))
263 kfree(dst_states);
264
265 return ret;
266}
267static int upload_pm_data(struct acpi_processor *_pr)
268{
269 int err = 0;
270
271 mutex_lock(&acpi_ids_mutex);
272 if (__test_and_set_bit(_pr->acpi_id, acpi_ids_done)) {
273 mutex_unlock(&acpi_ids_mutex);
274 return -EBUSY;
275 }
276 if (_pr->flags.power)
277 err = push_cxx_to_hypervisor(_pr);
278
279 if (_pr->performance && _pr->performance->states)
280 err |= push_pxx_to_hypervisor(_pr);
281
282 mutex_unlock(&acpi_ids_mutex);
283 return err;
284}
285static unsigned int __init get_max_acpi_id(void)
286{
287 struct xenpf_pcpuinfo *info;
288 struct xen_platform_op op = {
289 .cmd = XENPF_get_cpuinfo,
290 .interface_version = XENPF_INTERFACE_VERSION,
291 };
292 int ret = 0;
293 unsigned int i, last_cpu, max_acpi_id = 0;
294
295 info = &op.u.pcpu_info;
296 info->xen_cpuid = 0;
297
298 ret = HYPERVISOR_platform_op(&op);
299 if (ret)
300 return NR_CPUS;
301
302 /* The max_present is the same irregardless of the xen_cpuid */
303 last_cpu = op.u.pcpu_info.max_present;
304 for (i = 0; i <= last_cpu; i++) {
305 info->xen_cpuid = i;
306 ret = HYPERVISOR_platform_op(&op);
307 if (ret)
308 continue;
309 max_acpi_id = max(info->acpi_id, max_acpi_id);
310 }
311 max_acpi_id *= 2; /* Slack for CPU hotplug support. */
312 pr_debug("Max ACPI ID: %u\n", max_acpi_id);
313 return max_acpi_id;
314}
315/*
316 * The read_acpi_id and check_acpi_ids are there to support the Xen
317 * oddity of virtual CPUs != physical CPUs in the initial domain.
318 * The user can supply 'xen_max_vcpus=X' on the Xen hypervisor line
319 * which will band the amount of CPUs the initial domain can see.
320 * In general that is OK, except it plays havoc with any of the
321 * for_each_[present|online]_cpu macros which are banded to the virtual
322 * CPU amount.
323 */
324static acpi_status
325read_acpi_id(acpi_handle handle, u32 lvl, void *context, void **rv)
326{
327 u32 acpi_id;
328 acpi_status status;
329 acpi_object_type acpi_type;
330 unsigned long long tmp;
331 union acpi_object object = { 0 };
332 struct acpi_buffer buffer = { sizeof(union acpi_object), &object };
333 acpi_io_address pblk = 0;
334
335 status = acpi_get_type(handle, &acpi_type);
336 if (ACPI_FAILURE(status))
337 return AE_OK;
338
339 switch (acpi_type) {
340 case ACPI_TYPE_PROCESSOR:
341 status = acpi_evaluate_object(handle, NULL, NULL, &buffer);
342 if (ACPI_FAILURE(status))
343 return AE_OK;
344 acpi_id = object.processor.proc_id;
345 pblk = object.processor.pblk_address;
346 break;
347 case ACPI_TYPE_DEVICE:
348 status = acpi_evaluate_integer(handle, "_UID", NULL, &tmp);
349 if (ACPI_FAILURE(status))
350 return AE_OK;
351 acpi_id = tmp;
352 break;
353 default:
354 return AE_OK;
355 }
356 if (invalid_phys_cpuid(acpi_get_phys_id(handle,
357 acpi_type == ACPI_TYPE_DEVICE,
358 acpi_id))) {
359 pr_debug("CPU with ACPI ID %u is unavailable\n", acpi_id);
360 return AE_OK;
361 }
362 /* There are more ACPI Processor objects than in x2APIC or MADT.
363 * This can happen with incorrect ACPI SSDT declerations. */
364 if (acpi_id >= nr_acpi_bits) {
365 pr_debug("max acpi id %u, trying to set %u\n",
366 nr_acpi_bits - 1, acpi_id);
367 return AE_OK;
368 }
369 /* OK, There is a ACPI Processor object */
370 __set_bit(acpi_id, acpi_id_present);
371
372 pr_debug("ACPI CPU%u w/ PBLK:0x%lx\n", acpi_id, (unsigned long)pblk);
373
374 /* It has P-state dependencies */
375 if (!acpi_processor_get_psd(handle, &acpi_psd[acpi_id])) {
376 pr_debug("ACPI CPU%u w/ PST:coord_type = %llu domain = %llu\n",
377 acpi_id, acpi_psd[acpi_id].coord_type,
378 acpi_psd[acpi_id].domain);
379 }
380
381 status = acpi_evaluate_object(handle, "_CST", NULL, &buffer);
382 if (ACPI_FAILURE(status)) {
383 if (!pblk)
384 return AE_OK;
385 }
386 /* .. and it has a C-state */
387 __set_bit(acpi_id, acpi_id_cst_present);
388
389 return AE_OK;
390}
391static int check_acpi_ids(struct acpi_processor *pr_backup)
392{
393
394 if (!pr_backup)
395 return -ENODEV;
396
397 if (acpi_id_present && acpi_id_cst_present)
398 /* OK, done this once .. skip to uploading */
399 goto upload;
400
401 /* All online CPUs have been processed at this stage. Now verify
402 * whether in fact "online CPUs" == physical CPUs.
403 */
404 acpi_id_present = bitmap_zalloc(nr_acpi_bits, GFP_KERNEL);
405 if (!acpi_id_present)
406 return -ENOMEM;
407
408 acpi_id_cst_present = bitmap_zalloc(nr_acpi_bits, GFP_KERNEL);
409 if (!acpi_id_cst_present) {
410 bitmap_free(acpi_id_present);
411 return -ENOMEM;
412 }
413
414 acpi_psd = kcalloc(nr_acpi_bits, sizeof(struct acpi_psd_package),
415 GFP_KERNEL);
416 if (!acpi_psd) {
417 bitmap_free(acpi_id_present);
418 bitmap_free(acpi_id_cst_present);
419 return -ENOMEM;
420 }
421
422 acpi_walk_namespace(ACPI_TYPE_PROCESSOR, ACPI_ROOT_OBJECT,
423 ACPI_UINT32_MAX,
424 read_acpi_id, NULL, NULL, NULL);
425 acpi_get_devices(ACPI_PROCESSOR_DEVICE_HID, read_acpi_id, NULL, NULL);
426
427upload:
428 if (!bitmap_equal(acpi_id_present, acpi_ids_done, nr_acpi_bits)) {
429 unsigned int i;
430 for_each_set_bit(i, acpi_id_present, nr_acpi_bits) {
431 pr_backup->acpi_id = i;
432 /* Mask out C-states if there are no _CST or PBLK */
433 pr_backup->flags.power = test_bit(i, acpi_id_cst_present);
434 /* num_entries is non-zero if we evaluated _PSD */
435 if (acpi_psd[i].num_entries) {
436 memcpy(&pr_backup->performance->domain_info,
437 &acpi_psd[i],
438 sizeof(struct acpi_psd_package));
439 }
440 (void)upload_pm_data(pr_backup);
441 }
442 }
443
444 return 0;
445}
446
447/* acpi_perf_data is a pointer to percpu data. */
448static struct acpi_processor_performance __percpu *acpi_perf_data;
449
450static void free_acpi_perf_data(void)
451{
452 unsigned int i;
453
454 /* Freeing a NULL pointer is OK, and alloc_percpu zeroes. */
455 for_each_possible_cpu(i)
456 free_cpumask_var(per_cpu_ptr(acpi_perf_data, i)
457 ->shared_cpu_map);
458 free_percpu(acpi_perf_data);
459}
460
461static int xen_upload_processor_pm_data(void)
462{
463 struct acpi_processor *pr_backup = NULL;
464 unsigned int i;
465 int rc = 0;
466
467 pr_info("Uploading Xen processor PM info\n");
468
469 for_each_possible_cpu(i) {
470 struct acpi_processor *_pr;
471 _pr = per_cpu(processors, i /* APIC ID */);
472 if (!_pr)
473 continue;
474
475 if (!pr_backup) {
476 pr_backup = kzalloc(sizeof(struct acpi_processor), GFP_KERNEL);
477 if (pr_backup)
478 memcpy(pr_backup, _pr, sizeof(struct acpi_processor));
479 }
480 (void)upload_pm_data(_pr);
481 }
482
483 rc = check_acpi_ids(pr_backup);
484 kfree(pr_backup);
485
486 return rc;
487}
488
489static void xen_acpi_processor_resume_worker(struct work_struct *dummy)
490{
491 int rc;
492
493 bitmap_zero(acpi_ids_done, nr_acpi_bits);
494
495 rc = xen_upload_processor_pm_data();
496 if (rc != 0)
497 pr_info("ACPI data upload failed, error = %d\n", rc);
498}
499
500static void xen_acpi_processor_resume(void)
501{
502 static DECLARE_WORK(wq, xen_acpi_processor_resume_worker);
503
504 /*
505 * xen_upload_processor_pm_data() calls non-atomic code.
506 * However, the context for xen_acpi_processor_resume is syscore
507 * with only the boot CPU online and in an atomic context.
508 *
509 * So defer the upload for some point safer.
510 */
511 schedule_work(&wq);
512}
513
514static struct syscore_ops xap_syscore_ops = {
515 .resume = xen_acpi_processor_resume,
516};
517
518static int __init xen_acpi_processor_init(void)
519{
520 unsigned int i;
521 int rc;
522
523 if (!xen_initial_domain())
524 return -ENODEV;
525
526 nr_acpi_bits = get_max_acpi_id() + 1;
527 acpi_ids_done = bitmap_zalloc(nr_acpi_bits, GFP_KERNEL);
528 if (!acpi_ids_done)
529 return -ENOMEM;
530
531 acpi_perf_data = alloc_percpu(struct acpi_processor_performance);
532 if (!acpi_perf_data) {
533 pr_debug("Memory allocation error for acpi_perf_data\n");
534 bitmap_free(acpi_ids_done);
535 return -ENOMEM;
536 }
537 for_each_possible_cpu(i) {
538 if (!zalloc_cpumask_var_node(
539 &per_cpu_ptr(acpi_perf_data, i)->shared_cpu_map,
540 GFP_KERNEL, cpu_to_node(i))) {
541 rc = -ENOMEM;
542 goto err_out;
543 }
544 }
545
546 /* Do initialization in ACPI core. It is OK to fail here. */
547 (void)acpi_processor_preregister_performance(acpi_perf_data);
548
549 for_each_possible_cpu(i) {
550 struct acpi_processor *pr;
551 struct acpi_processor_performance *perf;
552
553 pr = per_cpu(processors, i);
554 perf = per_cpu_ptr(acpi_perf_data, i);
555 if (!pr)
556 continue;
557
558 pr->performance = perf;
559 rc = acpi_processor_get_performance_info(pr);
560 if (rc)
561 goto err_out;
562 }
563
564 rc = xen_upload_processor_pm_data();
565 if (rc)
566 goto err_unregister;
567
568 register_syscore_ops(&xap_syscore_ops);
569
570 return 0;
571err_unregister:
572 for_each_possible_cpu(i)
573 acpi_processor_unregister_performance(i);
574
575err_out:
576 /* Freeing a NULL pointer is OK: alloc_percpu zeroes. */
577 free_acpi_perf_data();
578 bitmap_free(acpi_ids_done);
579 return rc;
580}
581static void __exit xen_acpi_processor_exit(void)
582{
583 int i;
584
585 unregister_syscore_ops(&xap_syscore_ops);
586 bitmap_free(acpi_ids_done);
587 bitmap_free(acpi_id_present);
588 bitmap_free(acpi_id_cst_present);
589 kfree(acpi_psd);
590 for_each_possible_cpu(i)
591 acpi_processor_unregister_performance(i);
592
593 free_acpi_perf_data();
594}
595
596MODULE_AUTHOR("Konrad Rzeszutek Wilk <konrad.wilk@oracle.com>");
597MODULE_DESCRIPTION("Xen ACPI Processor P-states (and Cx) driver which uploads PM data to Xen hypervisor");
598MODULE_LICENSE("GPL");
599
600/* We want to be loaded before the CPU freq scaling drivers are loaded.
601 * They are loaded in late_initcall. */
602device_initcall(xen_acpi_processor_init);
603module_exit(xen_acpi_processor_exit);
1/*
2 * Copyright 2012 by Oracle Inc
3 * Author: Konrad Rzeszutek Wilk <konrad.wilk@oracle.com>
4 *
5 * This code borrows ideas from https://lkml.org/lkml/2011/11/30/249
6 * so many thanks go to Kevin Tian <kevin.tian@intel.com>
7 * and Yu Ke <ke.yu@intel.com>.
8 *
9 * This program is free software; you can redistribute it and/or modify it
10 * under the terms and conditions of the GNU General Public License,
11 * version 2, as published by the Free Software Foundation.
12 *
13 * This program is distributed in the hope it will be useful, but WITHOUT
14 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 * more details.
17 *
18 */
19
20#define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
21
22#include <linux/cpumask.h>
23#include <linux/cpufreq.h>
24#include <linux/freezer.h>
25#include <linux/kernel.h>
26#include <linux/kthread.h>
27#include <linux/init.h>
28#include <linux/module.h>
29#include <linux/types.h>
30#include <linux/acpi.h>
31#include <acpi/processor.h>
32#include <xen/xen.h>
33#include <xen/xen-ops.h>
34#include <xen/interface/platform.h>
35#include <asm/xen/hypercall.h>
36
37static int no_hypercall;
38MODULE_PARM_DESC(off, "Inhibit the hypercall.");
39module_param_named(off, no_hypercall, int, 0400);
40
41/*
42 * Note: Do not convert the acpi_id* below to cpumask_var_t or use cpumask_bit
43 * - as those shrink to nr_cpu_bits (which is dependent on possible_cpu), which
44 * can be less than what we want to put in. Instead use the 'nr_acpi_bits'
45 * which is dynamically computed based on the MADT or x2APIC table.
46 */
47static unsigned int nr_acpi_bits;
48/* Mutex to protect the acpi_ids_done - for CPU hotplug use. */
49static DEFINE_MUTEX(acpi_ids_mutex);
50/* Which ACPI ID we have processed from 'struct acpi_processor'. */
51static unsigned long *acpi_ids_done;
52/* Which ACPI ID exist in the SSDT/DSDT processor definitions. */
53static unsigned long *acpi_id_present;
54/* And if there is an _CST definition (or a PBLK) for the ACPI IDs */
55static unsigned long *acpi_id_cst_present;
56
57static int push_cxx_to_hypervisor(struct acpi_processor *_pr)
58{
59 struct xen_platform_op op = {
60 .cmd = XENPF_set_processor_pminfo,
61 .interface_version = XENPF_INTERFACE_VERSION,
62 .u.set_pminfo.id = _pr->acpi_id,
63 .u.set_pminfo.type = XEN_PM_CX,
64 };
65 struct xen_processor_cx *dst_cx, *dst_cx_states = NULL;
66 struct acpi_processor_cx *cx;
67 unsigned int i, ok;
68 int ret = 0;
69
70 dst_cx_states = kcalloc(_pr->power.count,
71 sizeof(struct xen_processor_cx), GFP_KERNEL);
72 if (!dst_cx_states)
73 return -ENOMEM;
74
75 for (ok = 0, i = 1; i <= _pr->power.count; i++) {
76 cx = &_pr->power.states[i];
77 if (!cx->valid)
78 continue;
79
80 dst_cx = &(dst_cx_states[ok++]);
81
82 dst_cx->reg.space_id = ACPI_ADR_SPACE_SYSTEM_IO;
83 if (cx->entry_method == ACPI_CSTATE_SYSTEMIO) {
84 dst_cx->reg.bit_width = 8;
85 dst_cx->reg.bit_offset = 0;
86 dst_cx->reg.access_size = 1;
87 } else {
88 dst_cx->reg.space_id = ACPI_ADR_SPACE_FIXED_HARDWARE;
89 if (cx->entry_method == ACPI_CSTATE_FFH) {
90 /* NATIVE_CSTATE_BEYOND_HALT */
91 dst_cx->reg.bit_offset = 2;
92 dst_cx->reg.bit_width = 1; /* VENDOR_INTEL */
93 }
94 dst_cx->reg.access_size = 0;
95 }
96 dst_cx->reg.address = cx->address;
97
98 dst_cx->type = cx->type;
99 dst_cx->latency = cx->latency;
100
101 dst_cx->dpcnt = 0;
102 set_xen_guest_handle(dst_cx->dp, NULL);
103 }
104 if (!ok) {
105 pr_debug("No _Cx for ACPI CPU %u\n", _pr->acpi_id);
106 kfree(dst_cx_states);
107 return -EINVAL;
108 }
109 op.u.set_pminfo.power.count = ok;
110 op.u.set_pminfo.power.flags.bm_control = _pr->flags.bm_control;
111 op.u.set_pminfo.power.flags.bm_check = _pr->flags.bm_check;
112 op.u.set_pminfo.power.flags.has_cst = _pr->flags.has_cst;
113 op.u.set_pminfo.power.flags.power_setup_done =
114 _pr->flags.power_setup_done;
115
116 set_xen_guest_handle(op.u.set_pminfo.power.states, dst_cx_states);
117
118 if (!no_hypercall)
119 ret = HYPERVISOR_dom0_op(&op);
120
121 if (!ret) {
122 pr_debug("ACPI CPU%u - C-states uploaded.\n", _pr->acpi_id);
123 for (i = 1; i <= _pr->power.count; i++) {
124 cx = &_pr->power.states[i];
125 if (!cx->valid)
126 continue;
127 pr_debug(" C%d: %s %d uS\n",
128 cx->type, cx->desc, (u32)cx->latency);
129 }
130 } else if (ret != -EINVAL)
131 /* EINVAL means the ACPI ID is incorrect - meaning the ACPI
132 * table is referencing a non-existing CPU - which can happen
133 * with broken ACPI tables. */
134 pr_err("(CX): Hypervisor error (%d) for ACPI CPU%u\n",
135 ret, _pr->acpi_id);
136
137 kfree(dst_cx_states);
138
139 return ret;
140}
141static struct xen_processor_px *
142xen_copy_pss_data(struct acpi_processor *_pr,
143 struct xen_processor_performance *dst_perf)
144{
145 struct xen_processor_px *dst_states = NULL;
146 unsigned int i;
147
148 BUILD_BUG_ON(sizeof(struct xen_processor_px) !=
149 sizeof(struct acpi_processor_px));
150
151 dst_states = kcalloc(_pr->performance->state_count,
152 sizeof(struct xen_processor_px), GFP_KERNEL);
153 if (!dst_states)
154 return ERR_PTR(-ENOMEM);
155
156 dst_perf->state_count = _pr->performance->state_count;
157 for (i = 0; i < _pr->performance->state_count; i++) {
158 /* Fortunatly for us, they are both the same size */
159 memcpy(&(dst_states[i]), &(_pr->performance->states[i]),
160 sizeof(struct acpi_processor_px));
161 }
162 return dst_states;
163}
164static int xen_copy_psd_data(struct acpi_processor *_pr,
165 struct xen_processor_performance *dst)
166{
167 struct acpi_psd_package *pdomain;
168
169 BUILD_BUG_ON(sizeof(struct xen_psd_package) !=
170 sizeof(struct acpi_psd_package));
171
172 /* This information is enumerated only if acpi_processor_preregister_performance
173 * has been called.
174 */
175 dst->shared_type = _pr->performance->shared_type;
176
177 pdomain = &(_pr->performance->domain_info);
178
179 /* 'acpi_processor_preregister_performance' does not parse if the
180 * num_processors <= 1, but Xen still requires it. Do it manually here.
181 */
182 if (pdomain->num_processors <= 1) {
183 if (pdomain->coord_type == DOMAIN_COORD_TYPE_SW_ALL)
184 dst->shared_type = CPUFREQ_SHARED_TYPE_ALL;
185 else if (pdomain->coord_type == DOMAIN_COORD_TYPE_HW_ALL)
186 dst->shared_type = CPUFREQ_SHARED_TYPE_HW;
187 else if (pdomain->coord_type == DOMAIN_COORD_TYPE_SW_ANY)
188 dst->shared_type = CPUFREQ_SHARED_TYPE_ANY;
189
190 }
191 memcpy(&(dst->domain_info), pdomain, sizeof(struct acpi_psd_package));
192 return 0;
193}
194static int xen_copy_pct_data(struct acpi_pct_register *pct,
195 struct xen_pct_register *dst_pct)
196{
197 /* It would be nice if you could just do 'memcpy(pct, dst_pct') but
198 * sadly the Xen structure did not have the proper padding so the
199 * descriptor field takes two (dst_pct) bytes instead of one (pct).
200 */
201 dst_pct->descriptor = pct->descriptor;
202 dst_pct->length = pct->length;
203 dst_pct->space_id = pct->space_id;
204 dst_pct->bit_width = pct->bit_width;
205 dst_pct->bit_offset = pct->bit_offset;
206 dst_pct->reserved = pct->reserved;
207 dst_pct->address = pct->address;
208 return 0;
209}
210static int push_pxx_to_hypervisor(struct acpi_processor *_pr)
211{
212 int ret = 0;
213 struct xen_platform_op op = {
214 .cmd = XENPF_set_processor_pminfo,
215 .interface_version = XENPF_INTERFACE_VERSION,
216 .u.set_pminfo.id = _pr->acpi_id,
217 .u.set_pminfo.type = XEN_PM_PX,
218 };
219 struct xen_processor_performance *dst_perf;
220 struct xen_processor_px *dst_states = NULL;
221
222 dst_perf = &op.u.set_pminfo.perf;
223
224 dst_perf->platform_limit = _pr->performance_platform_limit;
225 dst_perf->flags |= XEN_PX_PPC;
226 xen_copy_pct_data(&(_pr->performance->control_register),
227 &dst_perf->control_register);
228 xen_copy_pct_data(&(_pr->performance->status_register),
229 &dst_perf->status_register);
230 dst_perf->flags |= XEN_PX_PCT;
231 dst_states = xen_copy_pss_data(_pr, dst_perf);
232 if (!IS_ERR_OR_NULL(dst_states)) {
233 set_xen_guest_handle(dst_perf->states, dst_states);
234 dst_perf->flags |= XEN_PX_PSS;
235 }
236 if (!xen_copy_psd_data(_pr, dst_perf))
237 dst_perf->flags |= XEN_PX_PSD;
238
239 if (dst_perf->flags != (XEN_PX_PSD | XEN_PX_PSS | XEN_PX_PCT | XEN_PX_PPC)) {
240 pr_warn("ACPI CPU%u missing some P-state data (%x), skipping\n",
241 _pr->acpi_id, dst_perf->flags);
242 ret = -ENODEV;
243 goto err_free;
244 }
245
246 if (!no_hypercall)
247 ret = HYPERVISOR_dom0_op(&op);
248
249 if (!ret) {
250 struct acpi_processor_performance *perf;
251 unsigned int i;
252
253 perf = _pr->performance;
254 pr_debug("ACPI CPU%u - P-states uploaded.\n", _pr->acpi_id);
255 for (i = 0; i < perf->state_count; i++) {
256 pr_debug(" %cP%d: %d MHz, %d mW, %d uS\n",
257 (i == perf->state ? '*' : ' '), i,
258 (u32) perf->states[i].core_frequency,
259 (u32) perf->states[i].power,
260 (u32) perf->states[i].transition_latency);
261 }
262 } else if (ret != -EINVAL)
263 /* EINVAL means the ACPI ID is incorrect - meaning the ACPI
264 * table is referencing a non-existing CPU - which can happen
265 * with broken ACPI tables. */
266 pr_warn("(_PXX): Hypervisor error (%d) for ACPI CPU%u\n",
267 ret, _pr->acpi_id);
268err_free:
269 if (!IS_ERR_OR_NULL(dst_states))
270 kfree(dst_states);
271
272 return ret;
273}
274static int upload_pm_data(struct acpi_processor *_pr)
275{
276 int err = 0;
277
278 mutex_lock(&acpi_ids_mutex);
279 if (__test_and_set_bit(_pr->acpi_id, acpi_ids_done)) {
280 mutex_unlock(&acpi_ids_mutex);
281 return -EBUSY;
282 }
283 if (_pr->flags.power)
284 err = push_cxx_to_hypervisor(_pr);
285
286 if (_pr->performance && _pr->performance->states)
287 err |= push_pxx_to_hypervisor(_pr);
288
289 mutex_unlock(&acpi_ids_mutex);
290 return err;
291}
292static unsigned int __init get_max_acpi_id(void)
293{
294 struct xenpf_pcpuinfo *info;
295 struct xen_platform_op op = {
296 .cmd = XENPF_get_cpuinfo,
297 .interface_version = XENPF_INTERFACE_VERSION,
298 };
299 int ret = 0;
300 unsigned int i, last_cpu, max_acpi_id = 0;
301
302 info = &op.u.pcpu_info;
303 info->xen_cpuid = 0;
304
305 ret = HYPERVISOR_dom0_op(&op);
306 if (ret)
307 return NR_CPUS;
308
309 /* The max_present is the same irregardless of the xen_cpuid */
310 last_cpu = op.u.pcpu_info.max_present;
311 for (i = 0; i <= last_cpu; i++) {
312 info->xen_cpuid = i;
313 ret = HYPERVISOR_dom0_op(&op);
314 if (ret)
315 continue;
316 max_acpi_id = max(info->acpi_id, max_acpi_id);
317 }
318 max_acpi_id *= 2; /* Slack for CPU hotplug support. */
319 pr_debug("Max ACPI ID: %u\n", max_acpi_id);
320 return max_acpi_id;
321}
322/*
323 * The read_acpi_id and check_acpi_ids are there to support the Xen
324 * oddity of virtual CPUs != physical CPUs in the initial domain.
325 * The user can supply 'xen_max_vcpus=X' on the Xen hypervisor line
326 * which will band the amount of CPUs the initial domain can see.
327 * In general that is OK, except it plays havoc with any of the
328 * for_each_[present|online]_cpu macros which are banded to the virtual
329 * CPU amount.
330 */
331static acpi_status
332read_acpi_id(acpi_handle handle, u32 lvl, void *context, void **rv)
333{
334 u32 acpi_id;
335 acpi_status status;
336 acpi_object_type acpi_type;
337 unsigned long long tmp;
338 union acpi_object object = { 0 };
339 struct acpi_buffer buffer = { sizeof(union acpi_object), &object };
340 acpi_io_address pblk = 0;
341
342 status = acpi_get_type(handle, &acpi_type);
343 if (ACPI_FAILURE(status))
344 return AE_OK;
345
346 switch (acpi_type) {
347 case ACPI_TYPE_PROCESSOR:
348 status = acpi_evaluate_object(handle, NULL, NULL, &buffer);
349 if (ACPI_FAILURE(status))
350 return AE_OK;
351 acpi_id = object.processor.proc_id;
352 pblk = object.processor.pblk_address;
353 break;
354 case ACPI_TYPE_DEVICE:
355 status = acpi_evaluate_integer(handle, "_UID", NULL, &tmp);
356 if (ACPI_FAILURE(status))
357 return AE_OK;
358 acpi_id = tmp;
359 break;
360 default:
361 return AE_OK;
362 }
363 /* There are more ACPI Processor objects than in x2APIC or MADT.
364 * This can happen with incorrect ACPI SSDT declerations. */
365 if (acpi_id > nr_acpi_bits) {
366 pr_debug("We only have %u, trying to set %u\n",
367 nr_acpi_bits, acpi_id);
368 return AE_OK;
369 }
370 /* OK, There is a ACPI Processor object */
371 __set_bit(acpi_id, acpi_id_present);
372
373 pr_debug("ACPI CPU%u w/ PBLK:0x%lx\n", acpi_id, (unsigned long)pblk);
374
375 status = acpi_evaluate_object(handle, "_CST", NULL, &buffer);
376 if (ACPI_FAILURE(status)) {
377 if (!pblk)
378 return AE_OK;
379 }
380 /* .. and it has a C-state */
381 __set_bit(acpi_id, acpi_id_cst_present);
382
383 return AE_OK;
384}
385static int check_acpi_ids(struct acpi_processor *pr_backup)
386{
387
388 if (!pr_backup)
389 return -ENODEV;
390
391 if (acpi_id_present && acpi_id_cst_present)
392 /* OK, done this once .. skip to uploading */
393 goto upload;
394
395 /* All online CPUs have been processed at this stage. Now verify
396 * whether in fact "online CPUs" == physical CPUs.
397 */
398 acpi_id_present = kcalloc(BITS_TO_LONGS(nr_acpi_bits), sizeof(unsigned long), GFP_KERNEL);
399 if (!acpi_id_present)
400 return -ENOMEM;
401
402 acpi_id_cst_present = kcalloc(BITS_TO_LONGS(nr_acpi_bits), sizeof(unsigned long), GFP_KERNEL);
403 if (!acpi_id_cst_present) {
404 kfree(acpi_id_present);
405 return -ENOMEM;
406 }
407
408 acpi_walk_namespace(ACPI_TYPE_PROCESSOR, ACPI_ROOT_OBJECT,
409 ACPI_UINT32_MAX,
410 read_acpi_id, NULL, NULL, NULL);
411 acpi_get_devices("ACPI0007", read_acpi_id, NULL, NULL);
412
413upload:
414 if (!bitmap_equal(acpi_id_present, acpi_ids_done, nr_acpi_bits)) {
415 unsigned int i;
416 for_each_set_bit(i, acpi_id_present, nr_acpi_bits) {
417 pr_backup->acpi_id = i;
418 /* Mask out C-states if there are no _CST or PBLK */
419 pr_backup->flags.power = test_bit(i, acpi_id_cst_present);
420 (void)upload_pm_data(pr_backup);
421 }
422 }
423
424 return 0;
425}
426static int __init check_prereq(void)
427{
428 struct cpuinfo_x86 *c = &cpu_data(0);
429
430 if (!xen_initial_domain())
431 return -ENODEV;
432
433 if (!acpi_gbl_FADT.smi_command)
434 return -ENODEV;
435
436 if (c->x86_vendor == X86_VENDOR_INTEL) {
437 if (!cpu_has(c, X86_FEATURE_EST))
438 return -ENODEV;
439
440 return 0;
441 }
442 if (c->x86_vendor == X86_VENDOR_AMD) {
443 /* Copied from powernow-k8.h, can't include ../cpufreq/powernow
444 * as we get compile warnings for the static functions.
445 */
446#define CPUID_FREQ_VOLT_CAPABILITIES 0x80000007
447#define USE_HW_PSTATE 0x00000080
448 u32 eax, ebx, ecx, edx;
449 cpuid(CPUID_FREQ_VOLT_CAPABILITIES, &eax, &ebx, &ecx, &edx);
450 if ((edx & USE_HW_PSTATE) != USE_HW_PSTATE)
451 return -ENODEV;
452 return 0;
453 }
454 return -ENODEV;
455}
456/* acpi_perf_data is a pointer to percpu data. */
457static struct acpi_processor_performance __percpu *acpi_perf_data;
458
459static void free_acpi_perf_data(void)
460{
461 unsigned int i;
462
463 /* Freeing a NULL pointer is OK, and alloc_percpu zeroes. */
464 for_each_possible_cpu(i)
465 free_cpumask_var(per_cpu_ptr(acpi_perf_data, i)
466 ->shared_cpu_map);
467 free_percpu(acpi_perf_data);
468}
469
470static int xen_upload_processor_pm_data(void)
471{
472 struct acpi_processor *pr_backup = NULL;
473 unsigned int i;
474 int rc = 0;
475
476 pr_info("Uploading Xen processor PM info\n");
477
478 for_each_possible_cpu(i) {
479 struct acpi_processor *_pr;
480 _pr = per_cpu(processors, i /* APIC ID */);
481 if (!_pr)
482 continue;
483
484 if (!pr_backup) {
485 pr_backup = kzalloc(sizeof(struct acpi_processor), GFP_KERNEL);
486 if (pr_backup)
487 memcpy(pr_backup, _pr, sizeof(struct acpi_processor));
488 }
489 (void)upload_pm_data(_pr);
490 }
491
492 rc = check_acpi_ids(pr_backup);
493 kfree(pr_backup);
494
495 return rc;
496}
497
498static int xen_acpi_processor_resume(struct notifier_block *nb,
499 unsigned long action, void *data)
500{
501 bitmap_zero(acpi_ids_done, nr_acpi_bits);
502 return xen_upload_processor_pm_data();
503}
504
505struct notifier_block xen_acpi_processor_resume_nb = {
506 .notifier_call = xen_acpi_processor_resume,
507};
508
509static int __init xen_acpi_processor_init(void)
510{
511 unsigned int i;
512 int rc = check_prereq();
513
514 if (rc)
515 return rc;
516
517 nr_acpi_bits = get_max_acpi_id() + 1;
518 acpi_ids_done = kcalloc(BITS_TO_LONGS(nr_acpi_bits), sizeof(unsigned long), GFP_KERNEL);
519 if (!acpi_ids_done)
520 return -ENOMEM;
521
522 acpi_perf_data = alloc_percpu(struct acpi_processor_performance);
523 if (!acpi_perf_data) {
524 pr_debug("Memory allocation error for acpi_perf_data\n");
525 kfree(acpi_ids_done);
526 return -ENOMEM;
527 }
528 for_each_possible_cpu(i) {
529 if (!zalloc_cpumask_var_node(
530 &per_cpu_ptr(acpi_perf_data, i)->shared_cpu_map,
531 GFP_KERNEL, cpu_to_node(i))) {
532 rc = -ENOMEM;
533 goto err_out;
534 }
535 }
536
537 /* Do initialization in ACPI core. It is OK to fail here. */
538 (void)acpi_processor_preregister_performance(acpi_perf_data);
539
540 for_each_possible_cpu(i) {
541 struct acpi_processor *pr;
542 struct acpi_processor_performance *perf;
543
544 pr = per_cpu(processors, i);
545 perf = per_cpu_ptr(acpi_perf_data, i);
546 if (!pr)
547 continue;
548
549 pr->performance = perf;
550 rc = acpi_processor_get_performance_info(pr);
551 if (rc)
552 goto err_out;
553 }
554
555 rc = xen_upload_processor_pm_data();
556 if (rc)
557 goto err_unregister;
558
559 xen_resume_notifier_register(&xen_acpi_processor_resume_nb);
560
561 return 0;
562err_unregister:
563 for_each_possible_cpu(i) {
564 struct acpi_processor_performance *perf;
565 perf = per_cpu_ptr(acpi_perf_data, i);
566 acpi_processor_unregister_performance(perf, i);
567 }
568err_out:
569 /* Freeing a NULL pointer is OK: alloc_percpu zeroes. */
570 free_acpi_perf_data();
571 kfree(acpi_ids_done);
572 return rc;
573}
574static void __exit xen_acpi_processor_exit(void)
575{
576 int i;
577
578 xen_resume_notifier_unregister(&xen_acpi_processor_resume_nb);
579 kfree(acpi_ids_done);
580 kfree(acpi_id_present);
581 kfree(acpi_id_cst_present);
582 for_each_possible_cpu(i) {
583 struct acpi_processor_performance *perf;
584 perf = per_cpu_ptr(acpi_perf_data, i);
585 acpi_processor_unregister_performance(perf, i);
586 }
587 free_acpi_perf_data();
588}
589
590MODULE_AUTHOR("Konrad Rzeszutek Wilk <konrad.wilk@oracle.com>");
591MODULE_DESCRIPTION("Xen ACPI Processor P-states (and Cx) driver which uploads PM data to Xen hypervisor");
592MODULE_LICENSE("GPL");
593
594/* We want to be loaded before the CPU freq scaling drivers are loaded.
595 * They are loaded in late_initcall. */
596device_initcall(xen_acpi_processor_init);
597module_exit(xen_acpi_processor_exit);