4 * Copyright (c) 2006 Fabrice Bellard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License version 2 as published by the Free Software Foundation.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, see <http://www.gnu.org/licenses/>
18 * Contributions after 2012-01-13 are licensed under the terms of the
19 * GNU GPL, version 2 or (at your option) any later version.
21 #include "sysemu/sysemu.h"
23 #include "hw/i386/pc.h"
24 #include "hw/acpi/acpi.h"
25 #include "monitor/monitor.h"
26 #include "qemu/config-file.h"
27 #include "qapi/opts-visitor.h"
28 #include "qapi/dealloc-visitor.h"
29 #include "qapi-visit.h"
31 struct acpi_table_header
{
32 uint16_t _length
; /* our length, not actual part of the hdr */
33 /* allows easier parsing for fw_cfg clients */
34 char sig
[4]; /* ACPI signature (4 ASCII characters) */
35 uint32_t length
; /* Length of table, in bytes, including header */
36 uint8_t revision
; /* ACPI Specification minor version # */
37 uint8_t checksum
; /* To make sum of entire table == 0 */
38 char oem_id
[6]; /* OEM identification */
39 char oem_table_id
[8]; /* OEM table identification */
40 uint32_t oem_revision
; /* OEM revision number */
41 char asl_compiler_id
[4]; /* ASL compiler vendor ID */
42 uint32_t asl_compiler_revision
; /* ASL compiler revision number */
45 #define ACPI_TABLE_HDR_SIZE sizeof(struct acpi_table_header)
46 #define ACPI_TABLE_PFX_SIZE sizeof(uint16_t) /* size of the extra prefix */
48 static const char unsigned dfl_hdr
[ACPI_TABLE_HDR_SIZE
- ACPI_TABLE_PFX_SIZE
] =
49 "QEMU\0\0\0\0\1\0" /* sig (4), len(4), revno (1), csum (1) */
50 "QEMUQEQEMUQEMU\1\0\0\0" /* OEM id (6), table (8), revno (4) */
51 "QEMU\1\0\0\0" /* ASL compiler ID (4), version (4) */
54 char unsigned *acpi_tables
;
55 size_t acpi_tables_len
;
57 static QemuOptsList qemu_acpi_opts
= {
59 .implied_opt_name
= "data",
60 .head
= QTAILQ_HEAD_INITIALIZER(qemu_acpi_opts
.head
),
61 .desc
= { { 0 } } /* validated with OptsVisitor */
64 static void acpi_register_config(void)
66 qemu_add_opts(&qemu_acpi_opts
);
69 machine_init(acpi_register_config
);
71 static int acpi_checksum(const uint8_t *data
, int len
)
75 for (i
= 0; i
< len
; i
++) {
82 /* Install a copy of the ACPI table specified in @blob.
84 * If @has_header is set, @blob starts with the System Description Table Header
85 * structure. Otherwise, "dfl_hdr" is prepended. In any case, each header field
86 * is optionally overwritten from @hdrs.
88 * It is valid to call this function with
89 * (@blob == NULL && bloblen == 0 && !has_header).
91 * @hdrs->file and @hdrs->data are ignored.
93 * SIZE_MAX is considered "infinity" in this function.
95 * The number of tables that can be installed is not limited, but the 16-bit
96 * counter at the beginning of "acpi_tables" wraps around after UINT16_MAX.
98 static void acpi_table_install(const char unsigned *blob
, size_t bloblen
,
100 const struct AcpiTableOptions
*hdrs
,
104 const char unsigned *hdr_src
;
105 size_t body_size
, acpi_payload_size
;
106 struct acpi_table_header
*ext_hdr
;
107 unsigned changed_fields
;
109 /* Calculate where the ACPI table body starts within the blob, plus where
110 * to copy the ACPI table header from.
113 /* _length | ACPI header in blob | blob body
114 * ^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^
115 * ACPI_TABLE_PFX_SIZE sizeof dfl_hdr body_size
118 * ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
119 * acpi_payload_size == bloblen
121 body_start
= sizeof dfl_hdr
;
123 if (bloblen
< body_start
) {
124 error_setg(errp
, "ACPI table claiming to have header is too "
125 "short, available: %zu, expected: %zu", bloblen
,
131 /* _length | ACPI header in template | blob body
132 * ^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^
133 * ACPI_TABLE_PFX_SIZE sizeof dfl_hdr body_size
136 * ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
142 body_size
= bloblen
- body_start
;
143 acpi_payload_size
= sizeof dfl_hdr
+ body_size
;
145 if (acpi_payload_size
> UINT16_MAX
) {
146 error_setg(errp
, "ACPI table too big, requested: %zu, max: %u",
147 acpi_payload_size
, (unsigned)UINT16_MAX
);
151 /* We won't fail from here on. Initialize / extend the globals. */
152 if (acpi_tables
== NULL
) {
153 acpi_tables_len
= sizeof(uint16_t);
154 acpi_tables
= g_malloc0(acpi_tables_len
);
157 acpi_tables
= g_realloc(acpi_tables
, acpi_tables_len
+
158 ACPI_TABLE_PFX_SIZE
+
159 sizeof dfl_hdr
+ body_size
);
161 ext_hdr
= (struct acpi_table_header
*)(acpi_tables
+ acpi_tables_len
);
162 acpi_tables_len
+= ACPI_TABLE_PFX_SIZE
;
164 memcpy(acpi_tables
+ acpi_tables_len
, hdr_src
, sizeof dfl_hdr
);
165 acpi_tables_len
+= sizeof dfl_hdr
;
168 memcpy(acpi_tables
+ acpi_tables_len
, blob
+ body_start
, body_size
);
169 acpi_tables_len
+= body_size
;
172 /* increase number of tables */
173 cpu_to_le16wu((uint16_t *)acpi_tables
,
174 le16_to_cpupu((uint16_t *)acpi_tables
) + 1u);
176 /* Update the header fields. The strings need not be NUL-terminated. */
178 ext_hdr
->_length
= cpu_to_le16(acpi_payload_size
);
181 strncpy(ext_hdr
->sig
, hdrs
->sig
, sizeof ext_hdr
->sig
);
185 if (has_header
&& le32_to_cpu(ext_hdr
->length
) != acpi_payload_size
) {
187 "warning: ACPI table has wrong length, header says "
188 "%" PRIu32
", actual size %zu bytes\n",
189 le32_to_cpu(ext_hdr
->length
), acpi_payload_size
);
191 ext_hdr
->length
= cpu_to_le32(acpi_payload_size
);
194 ext_hdr
->revision
= hdrs
->rev
;
198 ext_hdr
->checksum
= 0;
200 if (hdrs
->has_oem_id
) {
201 strncpy(ext_hdr
->oem_id
, hdrs
->oem_id
, sizeof ext_hdr
->oem_id
);
204 if (hdrs
->has_oem_table_id
) {
205 strncpy(ext_hdr
->oem_table_id
, hdrs
->oem_table_id
,
206 sizeof ext_hdr
->oem_table_id
);
209 if (hdrs
->has_oem_rev
) {
210 ext_hdr
->oem_revision
= cpu_to_le32(hdrs
->oem_rev
);
213 if (hdrs
->has_asl_compiler_id
) {
214 strncpy(ext_hdr
->asl_compiler_id
, hdrs
->asl_compiler_id
,
215 sizeof ext_hdr
->asl_compiler_id
);
218 if (hdrs
->has_asl_compiler_rev
) {
219 ext_hdr
->asl_compiler_revision
= cpu_to_le32(hdrs
->asl_compiler_rev
);
223 if (!has_header
&& changed_fields
== 0) {
224 fprintf(stderr
, "warning: ACPI table: no headers are specified\n");
227 /* recalculate checksum */
228 ext_hdr
->checksum
= acpi_checksum((const char unsigned *)ext_hdr
+
229 ACPI_TABLE_PFX_SIZE
, acpi_payload_size
);
232 void acpi_table_add(const QemuOpts
*opts
, Error
**errp
)
234 AcpiTableOptions
*hdrs
= NULL
;
236 char **pathnames
= NULL
;
239 char unsigned *blob
= NULL
;
244 ov
= opts_visitor_new(opts
);
245 visit_type_AcpiTableOptions(opts_get_visitor(ov
), &hdrs
, NULL
, &err
);
246 opts_visitor_cleanup(ov
);
252 if (hdrs
->has_file
== hdrs
->has_data
) {
253 error_setg(&err
, "'-acpitable' requires one of 'data' or 'file'");
257 pathnames
= g_strsplit(hdrs
->has_file
? hdrs
->file
: hdrs
->data
, ":", 0);
258 if (pathnames
== NULL
|| pathnames
[0] == NULL
) {
259 error_setg(&err
, "'-acpitable' requires at least one pathname");
263 /* now read in the data files, reallocating buffer as needed */
264 for (cur
= pathnames
; *cur
; ++cur
) {
265 int fd
= open(*cur
, O_RDONLY
| O_BINARY
);
268 error_setg(&err
, "can't open file %s: %s", *cur
, strerror(errno
));
273 char unsigned data
[8192];
276 r
= read(fd
, data
, sizeof data
);
280 blob
= g_realloc(blob
, bloblen
+ r
);
281 memcpy(blob
+ bloblen
, data
, r
);
283 } else if (errno
!= EINTR
) {
284 error_setg(&err
, "can't read file %s: %s",
285 *cur
, strerror(errno
));
294 acpi_table_install(blob
, bloblen
, hdrs
->has_file
, hdrs
, &err
);
298 g_strfreev(pathnames
);
301 QapiDeallocVisitor
*dv
;
303 dv
= qapi_dealloc_visitor_new();
304 visit_type_AcpiTableOptions(qapi_dealloc_get_visitor(dv
), &hdrs
, NULL
,
306 qapi_dealloc_visitor_cleanup(dv
);
309 error_propagate(errp
, err
);
312 static void acpi_notify_wakeup(Notifier
*notifier
, void *data
)
314 ACPIREGS
*ar
= container_of(notifier
, ACPIREGS
, wakeup
);
315 WakeupReason
*reason
= data
;
318 case QEMU_WAKEUP_REASON_RTC
:
320 (ACPI_BITMASK_WAKE_STATUS
| ACPI_BITMASK_RT_CLOCK_STATUS
);
322 case QEMU_WAKEUP_REASON_PMTIMER
:
324 (ACPI_BITMASK_WAKE_STATUS
| ACPI_BITMASK_TIMER_STATUS
);
326 case QEMU_WAKEUP_REASON_OTHER
:
328 /* ACPI_BITMASK_WAKE_STATUS should be set on resume.
329 Pretend that resume was caused by power button */
331 (ACPI_BITMASK_WAKE_STATUS
| ACPI_BITMASK_POWER_BUTTON_STATUS
);
337 uint16_t acpi_pm1_evt_get_sts(ACPIREGS
*ar
)
339 int64_t d
= acpi_pm_tmr_get_clock();
340 if (d
>= ar
->tmr
.overflow_time
) {
341 ar
->pm1
.evt
.sts
|= ACPI_BITMASK_TIMER_STATUS
;
343 return ar
->pm1
.evt
.sts
;
346 static void acpi_pm1_evt_write_sts(ACPIREGS
*ar
, uint16_t val
)
348 uint16_t pm1_sts
= acpi_pm1_evt_get_sts(ar
);
349 if (pm1_sts
& val
& ACPI_BITMASK_TIMER_STATUS
) {
350 /* if TMRSTS is reset, then compute the new overflow time */
351 acpi_pm_tmr_calc_overflow_time(ar
);
353 ar
->pm1
.evt
.sts
&= ~val
;
356 static void acpi_pm1_evt_write_en(ACPIREGS
*ar
, uint16_t val
)
358 ar
->pm1
.evt
.en
= val
;
359 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_RTC
,
360 val
& ACPI_BITMASK_RT_CLOCK_ENABLE
);
361 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_PMTIMER
,
362 val
& ACPI_BITMASK_TIMER_ENABLE
);
365 void acpi_pm1_evt_power_down(ACPIREGS
*ar
)
367 if (ar
->pm1
.evt
.en
& ACPI_BITMASK_POWER_BUTTON_ENABLE
) {
368 ar
->pm1
.evt
.sts
|= ACPI_BITMASK_POWER_BUTTON_STATUS
;
369 ar
->tmr
.update_sci(ar
);
373 void acpi_pm1_evt_reset(ACPIREGS
*ar
)
377 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_RTC
, 0);
378 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_PMTIMER
, 0);
381 static uint64_t acpi_pm_evt_read(void *opaque
, hwaddr addr
, unsigned width
)
383 ACPIREGS
*ar
= opaque
;
386 return acpi_pm1_evt_get_sts(ar
);
388 return ar
->pm1
.evt
.en
;
394 static void acpi_pm_evt_write(void *opaque
, hwaddr addr
, uint64_t val
,
397 ACPIREGS
*ar
= opaque
;
400 acpi_pm1_evt_write_sts(ar
, val
);
401 ar
->pm1
.evt
.update_sci(ar
);
404 acpi_pm1_evt_write_en(ar
, val
);
405 ar
->pm1
.evt
.update_sci(ar
);
410 static const MemoryRegionOps acpi_pm_evt_ops
= {
411 .read
= acpi_pm_evt_read
,
412 .write
= acpi_pm_evt_write
,
413 .valid
.min_access_size
= 2,
414 .valid
.max_access_size
= 2,
415 .endianness
= DEVICE_LITTLE_ENDIAN
,
418 void acpi_pm1_evt_init(ACPIREGS
*ar
, acpi_update_sci_fn update_sci
,
419 MemoryRegion
*parent
)
421 ar
->pm1
.evt
.update_sci
= update_sci
;
422 memory_region_init_io(&ar
->pm1
.evt
.io
, &acpi_pm_evt_ops
, ar
, "acpi-evt", 4);
423 memory_region_add_subregion(parent
, 0, &ar
->pm1
.evt
.io
);
427 void acpi_pm_tmr_update(ACPIREGS
*ar
, bool enable
)
431 /* schedule a timer interruption if needed */
433 expire_time
= muldiv64(ar
->tmr
.overflow_time
, get_ticks_per_sec(),
435 qemu_mod_timer(ar
->tmr
.timer
, expire_time
);
437 qemu_del_timer(ar
->tmr
.timer
);
441 void acpi_pm_tmr_calc_overflow_time(ACPIREGS
*ar
)
443 int64_t d
= acpi_pm_tmr_get_clock();
444 ar
->tmr
.overflow_time
= (d
+ 0x800000LL
) & ~0x7fffffLL
;
447 static uint32_t acpi_pm_tmr_get(ACPIREGS
*ar
)
449 uint32_t d
= acpi_pm_tmr_get_clock();
453 static void acpi_pm_tmr_timer(void *opaque
)
455 ACPIREGS
*ar
= opaque
;
456 qemu_system_wakeup_request(QEMU_WAKEUP_REASON_PMTIMER
);
457 ar
->tmr
.update_sci(ar
);
460 static uint64_t acpi_pm_tmr_read(void *opaque
, hwaddr addr
, unsigned width
)
462 return acpi_pm_tmr_get(opaque
);
465 static const MemoryRegionOps acpi_pm_tmr_ops
= {
466 .read
= acpi_pm_tmr_read
,
467 .valid
.min_access_size
= 4,
468 .valid
.max_access_size
= 4,
469 .endianness
= DEVICE_LITTLE_ENDIAN
,
472 void acpi_pm_tmr_init(ACPIREGS
*ar
, acpi_update_sci_fn update_sci
,
473 MemoryRegion
*parent
)
475 ar
->tmr
.update_sci
= update_sci
;
476 ar
->tmr
.timer
= qemu_new_timer_ns(vm_clock
, acpi_pm_tmr_timer
, ar
);
477 memory_region_init_io(&ar
->tmr
.io
, &acpi_pm_tmr_ops
, ar
, "acpi-tmr", 4);
478 memory_region_add_subregion(parent
, 8, &ar
->tmr
.io
);
481 void acpi_pm_tmr_reset(ACPIREGS
*ar
)
483 ar
->tmr
.overflow_time
= 0;
484 qemu_del_timer(ar
->tmr
.timer
);
488 static void acpi_pm1_cnt_write(ACPIREGS
*ar
, uint16_t val
)
490 ar
->pm1
.cnt
.cnt
= val
& ~(ACPI_BITMASK_SLEEP_ENABLE
);
492 if (val
& ACPI_BITMASK_SLEEP_ENABLE
) {
493 /* change suspend type */
494 uint16_t sus_typ
= (val
>> 10) & 7;
496 case 0: /* soft power off */
497 qemu_system_shutdown_request();
500 qemu_system_suspend_request();
503 if (sus_typ
== ar
->pm1
.cnt
.s4_val
) { /* S4 request */
504 monitor_protocol_event(QEVENT_SUSPEND_DISK
, NULL
);
505 qemu_system_shutdown_request();
512 void acpi_pm1_cnt_update(ACPIREGS
*ar
,
513 bool sci_enable
, bool sci_disable
)
515 /* ACPI specs 3.0, 4.7.2.5 */
517 ar
->pm1
.cnt
.cnt
|= ACPI_BITMASK_SCI_ENABLE
;
518 } else if (sci_disable
) {
519 ar
->pm1
.cnt
.cnt
&= ~ACPI_BITMASK_SCI_ENABLE
;
523 static uint64_t acpi_pm_cnt_read(void *opaque
, hwaddr addr
, unsigned width
)
525 ACPIREGS
*ar
= opaque
;
526 return ar
->pm1
.cnt
.cnt
;
529 static void acpi_pm_cnt_write(void *opaque
, hwaddr addr
, uint64_t val
,
532 acpi_pm1_cnt_write(opaque
, val
);
535 static const MemoryRegionOps acpi_pm_cnt_ops
= {
536 .read
= acpi_pm_cnt_read
,
537 .write
= acpi_pm_cnt_write
,
538 .valid
.min_access_size
= 2,
539 .valid
.max_access_size
= 2,
540 .endianness
= DEVICE_LITTLE_ENDIAN
,
543 void acpi_pm1_cnt_init(ACPIREGS
*ar
, MemoryRegion
*parent
, uint8_t s4_val
)
545 ar
->pm1
.cnt
.s4_val
= s4_val
;
546 ar
->wakeup
.notify
= acpi_notify_wakeup
;
547 qemu_register_wakeup_notifier(&ar
->wakeup
);
548 memory_region_init_io(&ar
->pm1
.cnt
.io
, &acpi_pm_cnt_ops
, ar
, "acpi-cnt", 2);
549 memory_region_add_subregion(parent
, 4, &ar
->pm1
.cnt
.io
);
552 void acpi_pm1_cnt_reset(ACPIREGS
*ar
)
558 void acpi_gpe_init(ACPIREGS
*ar
, uint8_t len
)
561 ar
->gpe
.sts
= g_malloc0(len
/ 2);
562 ar
->gpe
.en
= g_malloc0(len
/ 2);
565 void acpi_gpe_reset(ACPIREGS
*ar
)
567 memset(ar
->gpe
.sts
, 0, ar
->gpe
.len
/ 2);
568 memset(ar
->gpe
.en
, 0, ar
->gpe
.len
/ 2);
571 static uint8_t *acpi_gpe_ioport_get_ptr(ACPIREGS
*ar
, uint32_t addr
)
575 if (addr
< ar
->gpe
.len
/ 2) {
576 cur
= ar
->gpe
.sts
+ addr
;
577 } else if (addr
< ar
->gpe
.len
) {
578 cur
= ar
->gpe
.en
+ addr
- ar
->gpe
.len
/ 2;
586 void acpi_gpe_ioport_writeb(ACPIREGS
*ar
, uint32_t addr
, uint32_t val
)
590 cur
= acpi_gpe_ioport_get_ptr(ar
, addr
);
591 if (addr
< ar
->gpe
.len
/ 2) {
593 *cur
= (*cur
) & ~val
;
594 } else if (addr
< ar
->gpe
.len
) {
602 uint32_t acpi_gpe_ioport_readb(ACPIREGS
*ar
, uint32_t addr
)
607 cur
= acpi_gpe_ioport_get_ptr(ar
, addr
);