1 /* 2 * ACPI implementation 3 * 4 * Copyright (c) 2006 Fabrice Bellard 5 * 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. 9 * 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. 14 * 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/> 17 * 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. 20 */ 21 #include "sysemu.h" 22 #include "hw.h" 23 #include "pc.h" 24 #include "acpi.h" 25 #include "monitor.h" 26 27 struct acpi_table_header { 28 uint16_t _length; /* our length, not actual part of the hdr */ 29 /* XXX why we have 2 length fields here? */ 30 char sig[4]; /* ACPI signature (4 ASCII characters) */ 31 uint32_t length; /* Length of table, in bytes, including header */ 32 uint8_t revision; /* ACPI Specification minor version # */ 33 uint8_t checksum; /* To make sum of entire table == 0 */ 34 char oem_id[6]; /* OEM identification */ 35 char oem_table_id[8]; /* OEM table identification */ 36 uint32_t oem_revision; /* OEM revision number */ 37 char asl_compiler_id[4]; /* ASL compiler vendor ID */ 38 uint32_t asl_compiler_revision; /* ASL compiler revision number */ 39 } QEMU_PACKED; 40 41 #define ACPI_TABLE_HDR_SIZE sizeof(struct acpi_table_header) 42 #define ACPI_TABLE_PFX_SIZE sizeof(uint16_t) /* size of the extra prefix */ 43 44 static const char dfl_hdr[ACPI_TABLE_HDR_SIZE] = 45 "\0\0" /* fake _length (2) */ 46 "QEMU\0\0\0\0\1\0" /* sig (4), len(4), revno (1), csum (1) */ 47 "QEMUQEQEMUQEMU\1\0\0\0" /* OEM id (6), table (8), revno (4) */ 48 "QEMU\1\0\0\0" /* ASL compiler ID (4), version (4) */ 49 ; 50 51 char *acpi_tables; 52 size_t acpi_tables_len; 53 54 static int acpi_checksum(const uint8_t *data, int len) 55 { 56 int sum, i; 57 sum = 0; 58 for (i = 0; i < len; i++) { 59 sum += data[i]; 60 } 61 return (-sum) & 0xff; 62 } 63 64 /* XXX fixme: this function uses obsolete argument parsing interface */ 65 int acpi_table_add(const char *t) 66 { 67 char buf[1024], *p, *f; 68 unsigned long val; 69 size_t len, start, allen; 70 bool has_header; 71 int changed; 72 int r; 73 struct acpi_table_header hdr; 74 75 r = 0; 76 r |= get_param_value(buf, sizeof(buf), "data", t) ? 1 : 0; 77 r |= get_param_value(buf, sizeof(buf), "file", t) ? 2 : 0; 78 switch (r) { 79 case 0: 80 buf[0] = '\0'; 81 /* fallthrough for default behavior */ 82 case 1: 83 has_header = false; 84 break; 85 case 2: 86 has_header = true; 87 break; 88 default: 89 fprintf(stderr, "acpitable: both data and file are specified\n"); 90 return -1; 91 } 92 93 if (!acpi_tables) { 94 allen = sizeof(uint16_t); 95 acpi_tables = g_malloc0(allen); 96 } else { 97 allen = acpi_tables_len; 98 } 99 100 start = allen; 101 acpi_tables = g_realloc(acpi_tables, start + ACPI_TABLE_HDR_SIZE); 102 allen += has_header ? ACPI_TABLE_PFX_SIZE : ACPI_TABLE_HDR_SIZE; 103 104 /* now read in the data files, reallocating buffer as needed */ 105 106 for (f = strtok(buf, ":"); f; f = strtok(NULL, ":")) { 107 int fd = open(f, O_RDONLY); 108 109 if (fd < 0) { 110 fprintf(stderr, "can't open file %s: %s\n", f, strerror(errno)); 111 return -1; 112 } 113 114 for (;;) { 115 char data[8192]; 116 r = read(fd, data, sizeof(data)); 117 if (r == 0) { 118 break; 119 } else if (r > 0) { 120 acpi_tables = g_realloc(acpi_tables, allen + r); 121 memcpy(acpi_tables + allen, data, r); 122 allen += r; 123 } else if (errno != EINTR) { 124 fprintf(stderr, "can't read file %s: %s\n", 125 f, strerror(errno)); 126 close(fd); 127 return -1; 128 } 129 } 130 131 close(fd); 132 } 133 134 /* now fill in the header fields */ 135 136 f = acpi_tables + start; /* start of the table */ 137 changed = 0; 138 139 /* copy the header to temp place to align the fields */ 140 memcpy(&hdr, has_header ? f : dfl_hdr, ACPI_TABLE_HDR_SIZE); 141 142 /* length of the table minus our prefix */ 143 len = allen - start - ACPI_TABLE_PFX_SIZE; 144 145 hdr._length = cpu_to_le16(len); 146 147 if (get_param_value(buf, sizeof(buf), "sig", t)) { 148 /* strncpy is justified: the field need not be NUL-terminated. */ 149 strncpy(hdr.sig, buf, sizeof(hdr.sig)); 150 ++changed; 151 } 152 153 /* length of the table including header, in bytes */ 154 if (has_header) { 155 /* check if actual length is correct */ 156 val = le32_to_cpu(hdr.length); 157 if (val != len) { 158 fprintf(stderr, 159 "warning: acpitable has wrong length," 160 " header says %lu, actual size %zu bytes\n", 161 val, len); 162 ++changed; 163 } 164 } 165 /* we may avoid putting length here if has_header is true */ 166 hdr.length = cpu_to_le32(len); 167 168 if (get_param_value(buf, sizeof(buf), "rev", t)) { 169 val = strtoul(buf, &p, 0); 170 if (val > 255 || *p) { 171 fprintf(stderr, "acpitable: \"rev=%s\" is invalid\n", buf); 172 return -1; 173 } 174 hdr.revision = (uint8_t)val; 175 ++changed; 176 } 177 178 if (get_param_value(buf, sizeof(buf), "oem_id", t)) { 179 /* strncpy is justified: the field need not be NUL-terminated. */ 180 strncpy(hdr.oem_id, buf, sizeof(hdr.oem_id)); 181 ++changed; 182 } 183 184 if (get_param_value(buf, sizeof(buf), "oem_table_id", t)) { 185 /* strncpy is justified: the field need not be NUL-terminated. */ 186 strncpy(hdr.oem_table_id, buf, sizeof(hdr.oem_table_id)); 187 ++changed; 188 } 189 190 if (get_param_value(buf, sizeof(buf), "oem_rev", t)) { 191 val = strtol(buf, &p, 0); 192 if (*p) { 193 fprintf(stderr, "acpitable: \"oem_rev=%s\" is invalid\n", buf); 194 return -1; 195 } 196 hdr.oem_revision = cpu_to_le32(val); 197 ++changed; 198 } 199 200 if (get_param_value(buf, sizeof(buf), "asl_compiler_id", t)) { 201 /* strncpy is justified: the field need not be NUL-terminated. */ 202 strncpy(hdr.asl_compiler_id, buf, sizeof(hdr.asl_compiler_id)); 203 ++changed; 204 } 205 206 if (get_param_value(buf, sizeof(buf), "asl_compiler_rev", t)) { 207 val = strtol(buf, &p, 0); 208 if (*p) { 209 fprintf(stderr, "acpitable: \"%s=%s\" is invalid\n", 210 "asl_compiler_rev", buf); 211 return -1; 212 } 213 hdr.asl_compiler_revision = cpu_to_le32(val); 214 ++changed; 215 } 216 217 if (!has_header && !changed) { 218 fprintf(stderr, "warning: acpitable: no table headers are specified\n"); 219 } 220 221 222 /* now calculate checksum of the table, complete with the header */ 223 /* we may as well leave checksum intact if has_header is true */ 224 /* alternatively there may be a way to set cksum to a given value */ 225 hdr.checksum = 0; /* for checksum calculation */ 226 227 /* put header back */ 228 memcpy(f, &hdr, sizeof(hdr)); 229 230 if (changed || !has_header || 1) { 231 ((struct acpi_table_header *)f)->checksum = 232 acpi_checksum((uint8_t *)f + ACPI_TABLE_PFX_SIZE, len); 233 } 234 235 /* increase number of tables */ 236 (*(uint16_t *)acpi_tables) = 237 cpu_to_le32(le32_to_cpu(*(uint16_t *)acpi_tables) + 1); 238 239 acpi_tables_len = allen; 240 return 0; 241 242 } 243 244 static void acpi_notify_wakeup(Notifier *notifier, void *data) 245 { 246 ACPIREGS *ar = container_of(notifier, ACPIREGS, wakeup); 247 WakeupReason *reason = data; 248 249 switch (*reason) { 250 case QEMU_WAKEUP_REASON_RTC: 251 ar->pm1.evt.sts |= 252 (ACPI_BITMASK_WAKE_STATUS | ACPI_BITMASK_RT_CLOCK_STATUS); 253 break; 254 case QEMU_WAKEUP_REASON_PMTIMER: 255 ar->pm1.evt.sts |= 256 (ACPI_BITMASK_WAKE_STATUS | ACPI_BITMASK_TIMER_STATUS); 257 break; 258 case QEMU_WAKEUP_REASON_OTHER: 259 default: 260 /* ACPI_BITMASK_WAKE_STATUS should be set on resume. 261 Pretend that resume was caused by power button */ 262 ar->pm1.evt.sts |= 263 (ACPI_BITMASK_WAKE_STATUS | ACPI_BITMASK_POWER_BUTTON_STATUS); 264 break; 265 } 266 } 267 268 /* ACPI PM1a EVT */ 269 uint16_t acpi_pm1_evt_get_sts(ACPIREGS *ar) 270 { 271 int64_t d = acpi_pm_tmr_get_clock(); 272 if (d >= ar->tmr.overflow_time) { 273 ar->pm1.evt.sts |= ACPI_BITMASK_TIMER_STATUS; 274 } 275 return ar->pm1.evt.sts; 276 } 277 278 void acpi_pm1_evt_write_sts(ACPIREGS *ar, uint16_t val) 279 { 280 uint16_t pm1_sts = acpi_pm1_evt_get_sts(ar); 281 if (pm1_sts & val & ACPI_BITMASK_TIMER_STATUS) { 282 /* if TMRSTS is reset, then compute the new overflow time */ 283 acpi_pm_tmr_calc_overflow_time(ar); 284 } 285 ar->pm1.evt.sts &= ~val; 286 } 287 288 void acpi_pm1_evt_write_en(ACPIREGS *ar, uint16_t val) 289 { 290 ar->pm1.evt.en = val; 291 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_RTC, 292 val & ACPI_BITMASK_RT_CLOCK_ENABLE); 293 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_PMTIMER, 294 val & ACPI_BITMASK_TIMER_ENABLE); 295 } 296 297 void acpi_pm1_evt_power_down(ACPIREGS *ar) 298 { 299 if (ar->pm1.evt.en & ACPI_BITMASK_POWER_BUTTON_ENABLE) { 300 ar->pm1.evt.sts |= ACPI_BITMASK_POWER_BUTTON_STATUS; 301 ar->tmr.update_sci(ar); 302 } 303 } 304 305 void acpi_pm1_evt_reset(ACPIREGS *ar) 306 { 307 ar->pm1.evt.sts = 0; 308 ar->pm1.evt.en = 0; 309 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_RTC, 0); 310 qemu_system_wakeup_enable(QEMU_WAKEUP_REASON_PMTIMER, 0); 311 } 312 313 /* ACPI PM_TMR */ 314 void acpi_pm_tmr_update(ACPIREGS *ar, bool enable) 315 { 316 int64_t expire_time; 317 318 /* schedule a timer interruption if needed */ 319 if (enable) { 320 expire_time = muldiv64(ar->tmr.overflow_time, get_ticks_per_sec(), 321 PM_TIMER_FREQUENCY); 322 qemu_mod_timer(ar->tmr.timer, expire_time); 323 } else { 324 qemu_del_timer(ar->tmr.timer); 325 } 326 } 327 328 void acpi_pm_tmr_calc_overflow_time(ACPIREGS *ar) 329 { 330 int64_t d = acpi_pm_tmr_get_clock(); 331 ar->tmr.overflow_time = (d + 0x800000LL) & ~0x7fffffLL; 332 } 333 334 uint32_t acpi_pm_tmr_get(ACPIREGS *ar) 335 { 336 uint32_t d = acpi_pm_tmr_get_clock(); 337 return d & 0xffffff; 338 } 339 340 static void acpi_pm_tmr_timer(void *opaque) 341 { 342 ACPIREGS *ar = opaque; 343 qemu_system_wakeup_request(QEMU_WAKEUP_REASON_PMTIMER); 344 ar->tmr.update_sci(ar); 345 } 346 347 void acpi_pm_tmr_init(ACPIREGS *ar, acpi_update_sci_fn update_sci) 348 { 349 ar->tmr.update_sci = update_sci; 350 ar->tmr.timer = qemu_new_timer_ns(vm_clock, acpi_pm_tmr_timer, ar); 351 } 352 353 void acpi_pm_tmr_reset(ACPIREGS *ar) 354 { 355 ar->tmr.overflow_time = 0; 356 qemu_del_timer(ar->tmr.timer); 357 } 358 359 /* ACPI PM1aCNT */ 360 void acpi_pm1_cnt_init(ACPIREGS *ar) 361 { 362 ar->wakeup.notify = acpi_notify_wakeup; 363 qemu_register_wakeup_notifier(&ar->wakeup); 364 } 365 366 void acpi_pm1_cnt_write(ACPIREGS *ar, uint16_t val, char s4) 367 { 368 ar->pm1.cnt.cnt = val & ~(ACPI_BITMASK_SLEEP_ENABLE); 369 370 if (val & ACPI_BITMASK_SLEEP_ENABLE) { 371 /* change suspend type */ 372 uint16_t sus_typ = (val >> 10) & 7; 373 switch(sus_typ) { 374 case 0: /* soft power off */ 375 qemu_system_shutdown_request(); 376 break; 377 case 1: 378 qemu_system_suspend_request(); 379 break; 380 default: 381 if (sus_typ == s4) { /* S4 request */ 382 monitor_protocol_event(QEVENT_SUSPEND_DISK, NULL); 383 qemu_system_shutdown_request(); 384 } 385 break; 386 } 387 } 388 } 389 390 void acpi_pm1_cnt_update(ACPIREGS *ar, 391 bool sci_enable, bool sci_disable) 392 { 393 /* ACPI specs 3.0, 4.7.2.5 */ 394 if (sci_enable) { 395 ar->pm1.cnt.cnt |= ACPI_BITMASK_SCI_ENABLE; 396 } else if (sci_disable) { 397 ar->pm1.cnt.cnt &= ~ACPI_BITMASK_SCI_ENABLE; 398 } 399 } 400 401 void acpi_pm1_cnt_reset(ACPIREGS *ar) 402 { 403 ar->pm1.cnt.cnt = 0; 404 } 405 406 /* ACPI GPE */ 407 void acpi_gpe_init(ACPIREGS *ar, uint8_t len) 408 { 409 ar->gpe.len = len; 410 ar->gpe.sts = g_malloc0(len / 2); 411 ar->gpe.en = g_malloc0(len / 2); 412 } 413 414 void acpi_gpe_blk(ACPIREGS *ar, uint32_t blk) 415 { 416 ar->gpe.blk = blk; 417 } 418 419 void acpi_gpe_reset(ACPIREGS *ar) 420 { 421 memset(ar->gpe.sts, 0, ar->gpe.len / 2); 422 memset(ar->gpe.en, 0, ar->gpe.len / 2); 423 } 424 425 static uint8_t *acpi_gpe_ioport_get_ptr(ACPIREGS *ar, uint32_t addr) 426 { 427 uint8_t *cur = NULL; 428 429 if (addr < ar->gpe.len / 2) { 430 cur = ar->gpe.sts + addr; 431 } else if (addr < ar->gpe.len) { 432 cur = ar->gpe.en + addr - ar->gpe.len / 2; 433 } else { 434 abort(); 435 } 436 437 return cur; 438 } 439 440 void acpi_gpe_ioport_writeb(ACPIREGS *ar, uint32_t addr, uint32_t val) 441 { 442 uint8_t *cur; 443 444 addr -= ar->gpe.blk; 445 cur = acpi_gpe_ioport_get_ptr(ar, addr); 446 if (addr < ar->gpe.len / 2) { 447 /* GPE_STS */ 448 *cur = (*cur) & ~val; 449 } else if (addr < ar->gpe.len) { 450 /* GPE_EN */ 451 *cur = val; 452 } else { 453 abort(); 454 } 455 } 456 457 uint32_t acpi_gpe_ioport_readb(ACPIREGS *ar, uint32_t addr) 458 { 459 uint8_t *cur; 460 uint32_t val; 461 462 addr -= ar->gpe.blk; 463 cur = acpi_gpe_ioport_get_ptr(ar, addr); 464 val = 0; 465 if (cur != NULL) { 466 val = *cur; 467 } 468 469 return val; 470 } 471