hw/acpi_piix4.c

   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 #include "hw.h"
  19 #include "pc.h"
  20 #include "apm.h"
  21 #include "pm_smbus.h"
  22 #include "pci.h"
  23 #include "acpi.h"
  24 #include "sysemu.h"
  25 #include "range.h"
  26
  27 //#define DEBUG
  28
  29 #ifdef DEBUG
  30 # define PIIX4_DPRINTF(format, ...)     printf(format, ## __VA_ARGS__)
  31 #else
  32 # define PIIX4_DPRINTF(format, ...)     do { } while (0)
  33 #endif
  34
  35 #define ACPI_DBG_IO_ADDR  0xb044
  36
  37 #define GPE_BASE 0xafe0
  38 #define PCI_BASE 0xae00
  39 #define PCI_EJ_BASE 0xae08
  40
  41 #define PIIX4_PCI_HOTPLUG_STATUS 2
  42
  43 struct gpe_regs {
  44     uint16_t sts; /* status */
  45     uint16_t en;  /* enabled */
  46 };
  47
  48 struct pci_status {
  49     uint32_t up;
  50     uint32_t down;
  51 };
  52
  53 typedef struct PIIX4PMState {
  54     PCIDevice dev;
  55     IORange ioport;
  56     uint16_t pmsts;
  57     uint16_t pmen;
  58     uint16_t pmcntrl;
  59
  60     APMState apm;
  61
  62     QEMUTimer *tmr_timer;
  63     int64_t tmr_overflow_time;
  64
  65     PMSMBus smb;
  66     uint32_t smb_io_base;
  67
  68     qemu_irq irq;
  69     qemu_irq cmos_s3;
  70     qemu_irq smi_irq;
  71     int kvm_enabled;
  72
  73     /* for pci hotplug */
  74     struct gpe_regs gpe;
  75     struct pci_status pci0_status;
  76 } PIIX4PMState;
  77
  78 static void piix4_acpi_system_hot_add_init(PCIBus *bus, PIIX4PMState *s);
  79
  80 #define ACPI_ENABLE 0xf1
  81 #define ACPI_DISABLE 0xf0
  82
  83 static uint32_t get_pmtmr(PIIX4PMState *s)
  84 {
  85     uint32_t d;
  86     d = muldiv64(qemu_get_clock(vm_clock), PM_TIMER_FREQUENCY, get_ticks_per_sec());
  87     return d & 0xffffff;
  88 }
  89
  90 static int get_pmsts(PIIX4PMState *s)
  91 {
  92     int64_t d;
  93
  94     d = muldiv64(qemu_get_clock(vm_clock), PM_TIMER_FREQUENCY,
  95                  get_ticks_per_sec());
  96     if (d >= s->tmr_overflow_time)
  97         s->pmsts |= ACPI_BITMASK_TIMER_STATUS;
  98     return s->pmsts;
  99 }
 100
 101 static void pm_update_sci(PIIX4PMState *s)
 102 {
 103     int sci_level, pmsts;
 104     int64_t expire_time;
 105
 106     pmsts = get_pmsts(s);
 107     sci_level = (((pmsts & s->pmen) &
 108                   (ACPI_BITMASK_RT_CLOCK_ENABLE |
 109                    ACPI_BITMASK_POWER_BUTTON_ENABLE |
 110                    ACPI_BITMASK_GLOBAL_LOCK_ENABLE |
 111                    ACPI_BITMASK_TIMER_ENABLE)) != 0) ||
 112         (((s->gpe.sts & s->gpe.en) & PIIX4_PCI_HOTPLUG_STATUS) != 0);
 113
 114     qemu_set_irq(s->irq, sci_level);
 115     /* schedule a timer interruption if needed */
 116     if ((s->pmen & ACPI_BITMASK_TIMER_ENABLE) &&
 117         !(pmsts & ACPI_BITMASK_TIMER_STATUS)) {
 118         expire_time = muldiv64(s->tmr_overflow_time, get_ticks_per_sec(),
 119                                PM_TIMER_FREQUENCY);
 120         qemu_mod_timer(s->tmr_timer, expire_time);
 121     } else {
 122         qemu_del_timer(s->tmr_timer);
 123     }
 124 }
 125
 126 static void pm_tmr_timer(void *opaque)
 127 {
 128     PIIX4PMState *s = opaque;
 129     pm_update_sci(s);
 130 }
 131
 132 static void pm_ioport_write(IORange *ioport, uint64_t addr, unsigned width,
 133                             uint64_t val)
 134 {
 135     PIIX4PMState *s = container_of(ioport, PIIX4PMState, ioport);
 136
 137     if (width != 2) {
 138         PIIX4_DPRINTF("PM write port=0x%04x width=%d val=0x%08x\n",
 139                       (unsigned)addr, width, (unsigned)val);
 140     }
 141
 142     switch(addr) {
 143     case 0x00:
 144         {
 145             int64_t d;
 146             int pmsts;
 147             pmsts = get_pmsts(s);
 148             if (pmsts & val & ACPI_BITMASK_TIMER_STATUS) {
 149                 /* if TMRSTS is reset, then compute the new overflow time */
 150                 d = muldiv64(qemu_get_clock(vm_clock), PM_TIMER_FREQUENCY,
 151                              get_ticks_per_sec());
 152                 s->tmr_overflow_time = (d + 0x800000LL) & ~0x7fffffLL;
 153             }
 154             s->pmsts &= ~val;
 155             pm_update_sci(s);
 156         }
 157         break;
 158     case 0x02:
 159         s->pmen = val;
 160         pm_update_sci(s);
 161         break;
 162     case 0x04:
 163         {
 164             int sus_typ;
 165             s->pmcntrl = val & ~(ACPI_BITMASK_SLEEP_ENABLE);
 166             if (val & ACPI_BITMASK_SLEEP_ENABLE) {
 167                 /* change suspend type */
 168                 sus_typ = (val >> 10) & 7;
 169                 switch(sus_typ) {
 170                 case 0: /* soft power off */
 171                     qemu_system_shutdown_request();
 172                     break;
 173                 case 1:
 174                     /* ACPI_BITMASK_WAKE_STATUS should be set on resume.
 175                        Pretend that resume was caused by power button */
 176                     s->pmsts |= (ACPI_BITMASK_WAKE_STATUS |
 177                                  ACPI_BITMASK_POWER_BUTTON_STATUS);
 178                     qemu_system_reset_request();
 179                     if (s->cmos_s3) {
 180                         qemu_irq_raise(s->cmos_s3);
 181                     }
 182                 default:
 183                     break;
 184                 }
 185             }
 186         }
 187         break;
 188     default:
 189         break;
 190     }
 191     PIIX4_DPRINTF("PM writew port=0x%04x val=0x%04x\n", addr, val);
 192 }
 193
 194 static void pm_ioport_read(IORange *ioport, uint64_t addr, unsigned width,
 195                             uint64_t *data)
 196 {
 197     PIIX4PMState *s = container_of(ioport, PIIX4PMState, ioport);
 198     uint32_t val;
 199
 200     switch(addr) {
 201     case 0x00:
 202         val = get_pmsts(s);
 203         break;
 204     case 0x02:
 205         val = s->pmen;
 206         break;
 207     case 0x04:
 208         val = s->pmcntrl;
 209         break;
 210     case 0x08:
 211         val = get_pmtmr(s);
 212         break;
 213     default:
 214         val = 0;
 215         break;
 216     }
 217     PIIX4_DPRINTF("PM readw port=0x%04x val=0x%04x\n", addr, val);
 218     *data = val;
 219 }
 220
 221 static const IORangeOps pm_iorange_ops = {
 222     .read = pm_ioport_read,
 223     .write = pm_ioport_write,
 224 };
 225
 226 static void apm_ctrl_changed(uint32_t val, void *arg)
 227 {
 228     PIIX4PMState *s = arg;
 229
 230     /* ACPI specs 3.0, 4.7.2.5 */
 231     if (val == ACPI_ENABLE) {
 232         s->pmcntrl |= ACPI_BITMASK_SCI_ENABLE;
 233     } else if (val == ACPI_DISABLE) {
 234         s->pmcntrl &= ~ACPI_BITMASK_SCI_ENABLE;
 235     }
 236
 237     if (s->dev.config[0x5b] & (1 << 1)) {
 238         if (s->smi_irq) {
 239             qemu_irq_raise(s->smi_irq);
 240         }
 241     }
 242 }
 243
 244 static void acpi_dbg_writel(void *opaque, uint32_t addr, uint32_t val)
 245 {
 246     PIIX4_DPRINTF("ACPI: DBG: 0x%08x\n", val);
 247 }
 248
 249 static void pm_io_space_update(PIIX4PMState *s)
 250 {
 251     uint32_t pm_io_base;
 252
 253     if (s->dev.config[0x80] & 1) {
 254         pm_io_base = le32_to_cpu(*(uint32_t *)(s->dev.config + 0x40));
 255         pm_io_base &= 0xffc0;
 256
 257         /* XXX: need to improve memory and ioport allocation */
 258         PIIX4_DPRINTF("PM: mapping to 0x%x\n", pm_io_base);
 259         iorange_init(&s->ioport, &pm_iorange_ops, pm_io_base, 64);
 260         ioport_register(&s->ioport);
 261     }
 262 }
 263
 264 static void pm_write_config(PCIDevice *d,
 265                             uint32_t address, uint32_t val, int len)
 266 {
 267     pci_default_write_config(d, address, val, len);
 268     if (range_covers_byte(address, len, 0x80))
 269         pm_io_space_update((PIIX4PMState *)d);
 270 }
 271
 272 static int vmstate_acpi_post_load(void *opaque, int version_id)
 273 {
 274     PIIX4PMState *s = opaque;
 275
 276     pm_io_space_update(s);
 277     return 0;
 278 }
 279
 280 static const VMStateDescription vmstate_gpe = {
 281     .name = "gpe",
 282     .version_id = 1,
 283     .minimum_version_id = 1,
 284     .minimum_version_id_old = 1,
 285     .fields      = (VMStateField []) {
 286         VMSTATE_UINT16(sts, struct gpe_regs),
 287         VMSTATE_UINT16(en, struct gpe_regs),
 288         VMSTATE_END_OF_LIST()
 289     }
 290 };
 291
 292 static const VMStateDescription vmstate_pci_status = {
 293     .name = "pci_status",
 294     .version_id = 1,
 295     .minimum_version_id = 1,
 296     .minimum_version_id_old = 1,
 297     .fields      = (VMStateField []) {
 298         VMSTATE_UINT32(up, struct pci_status),
 299         VMSTATE_UINT32(down, struct pci_status),
 300         VMSTATE_END_OF_LIST()
 301     }
 302 };
 303
 304 static const VMStateDescription vmstate_acpi = {
 305     .name = "piix4_pm",
 306     .version_id = 2,
 307     .minimum_version_id = 1,
 308     .minimum_version_id_old = 1,
 309     .post_load = vmstate_acpi_post_load,
 310     .fields      = (VMStateField []) {
 311         VMSTATE_PCI_DEVICE(dev, PIIX4PMState),
 312         VMSTATE_UINT16(pmsts, PIIX4PMState),
 313         VMSTATE_UINT16(pmen, PIIX4PMState),
 314         VMSTATE_UINT16(pmcntrl, PIIX4PMState),
 315         VMSTATE_STRUCT(apm, PIIX4PMState, 0, vmstate_apm, APMState),
 316         VMSTATE_TIMER(tmr_timer, PIIX4PMState),
 317         VMSTATE_INT64(tmr_overflow_time, PIIX4PMState),
 318         VMSTATE_STRUCT(gpe, PIIX4PMState, 2, vmstate_gpe, struct gpe_regs),
 319         VMSTATE_STRUCT(pci0_status, PIIX4PMState, 2, vmstate_pci_status,
 320                        struct pci_status),
 321         VMSTATE_END_OF_LIST()
 322     }
 323 };
 324
 325 static void piix4_reset(void *opaque)
 326 {
 327     PIIX4PMState *s = opaque;
 328     uint8_t *pci_conf = s->dev.config;
 329
 330     pci_conf[0x58] = 0;
 331     pci_conf[0x59] = 0;
 332     pci_conf[0x5a] = 0;
 333     pci_conf[0x5b] = 0;
 334
 335     if (s->kvm_enabled) {
 336         /* Mark SMM as already inited (until KVM supports SMM). */
 337         pci_conf[0x5B] = 0x02;
 338     }
 339 }
 340
 341 static void piix4_powerdown(void *opaque, int irq, int power_failing)
 342 {
 343     PIIX4PMState *s = opaque;
 344
 345     if (!s) {
 346         qemu_system_shutdown_request();
 347     } else if (s->pmen & ACPI_BITMASK_POWER_BUTTON_ENABLE) {
 348         s->pmsts |= ACPI_BITMASK_POWER_BUTTON_STATUS;
 349         pm_update_sci(s);
 350     }
 351 }
 352
 353 static int piix4_pm_initfn(PCIDevice *dev)
 354 {
 355     PIIX4PMState *s = DO_UPCAST(PIIX4PMState, dev, dev);
 356     uint8_t *pci_conf;
 357
 358     pci_conf = s->dev.config;
 359     pci_config_set_vendor_id(pci_conf, PCI_VENDOR_ID_INTEL);
 360     pci_config_set_device_id(pci_conf, PCI_DEVICE_ID_INTEL_82371AB_3);
 361     pci_conf[0x06] = 0x80;
 362     pci_conf[0x07] = 0x02;
 363     pci_conf[0x08] = 0x03; // revision number
 364     pci_conf[0x09] = 0x00;
 365     pci_config_set_class(pci_conf, PCI_CLASS_BRIDGE_OTHER);
 366     pci_conf[0x3d] = 0x01; // interrupt pin 1
 367
 368     pci_conf[0x40] = 0x01; /* PM io base read only bit */
 369
 370     /* APM */
 371     apm_init(&s->apm, apm_ctrl_changed, s);
 372
 373     register_ioport_write(ACPI_DBG_IO_ADDR, 4, 4, acpi_dbg_writel, s);
 374
 375     if (s->kvm_enabled) {
 376         /* Mark SMM as already inited to prevent SMM from running.  KVM does not
 377          * support SMM mode. */
 378         pci_conf[0x5B] = 0x02;
 379     }
 380
 381     /* XXX: which specification is used ? The i82731AB has different
 382        mappings */
 383     pci_conf[0x5f] = (parallel_hds[0] != NULL ? 0x80 : 0) | 0x10;
 384     pci_conf[0x63] = 0x60;
 385     pci_conf[0x67] = (serial_hds[0] != NULL ? 0x08 : 0) |
 386         (serial_hds[1] != NULL ? 0x90 : 0);
 387
 388     pci_conf[0x90] = s->smb_io_base | 1;
 389     pci_conf[0x91] = s->smb_io_base >> 8;
 390     pci_conf[0xd2] = 0x09;
 391     register_ioport_write(s->smb_io_base, 64, 1, smb_ioport_writeb, &s->smb);
 392     register_ioport_read(s->smb_io_base, 64, 1, smb_ioport_readb, &s->smb);
 393
 394     s->tmr_timer = qemu_new_timer(vm_clock, pm_tmr_timer, s);
 395
 396     qemu_system_powerdown = *qemu_allocate_irqs(piix4_powerdown, s, 1);
 397
 398     pm_smbus_init(&s->dev.qdev, &s->smb);
 399     qemu_register_reset(piix4_reset, s);
 400     piix4_acpi_system_hot_add_init(dev->bus, s);
 401
 402     return 0;
 403 }
 404
 405 i2c_bus *piix4_pm_init(PCIBus *bus, int devfn, uint32_t smb_io_base,
 406                        qemu_irq sci_irq, qemu_irq cmos_s3, qemu_irq smi_irq,
 407                        int kvm_enabled)
 408 {
 409     PCIDevice *dev;
 410     PIIX4PMState *s;
 411
 412     dev = pci_create(bus, devfn, "PIIX4_PM");
 413     qdev_prop_set_uint32(&dev->qdev, "smb_io_base", smb_io_base);
 414
 415     s = DO_UPCAST(PIIX4PMState, dev, dev);
 416     s->irq = sci_irq;
 417     s->cmos_s3 = cmos_s3;
 418     s->smi_irq = smi_irq;
 419     s->kvm_enabled = kvm_enabled;
 420
 421     qdev_init_nofail(&dev->qdev);
 422
 423     return s->smb.smbus;
 424 }
 425
 426 static PCIDeviceInfo piix4_pm_info = {
 427     .qdev.name          = "PIIX4_PM",
 428     .qdev.desc          = "PM",
 429     .qdev.size          = sizeof(PIIX4PMState),
 430     .qdev.vmsd          = &vmstate_acpi,
 431     .qdev.no_user       = 1,
 432     .no_hotplug         = 1,
 433     .init               = piix4_pm_initfn,
 434     .config_write       = pm_write_config,
 435     .qdev.props         = (Property[]) {
 436         DEFINE_PROP_UINT32("smb_io_base", PIIX4PMState, smb_io_base, 0),
 437         DEFINE_PROP_END_OF_LIST(),
 438     }
 439 };
 440
 441 static void piix4_pm_register(void)
 442 {
 443     pci_qdev_register(&piix4_pm_info);
 444 }
 445
 446 device_init(piix4_pm_register);
 447
 448 static uint32_t gpe_read_val(uint16_t val, uint32_t addr)
 449 {
 450     if (addr & 1)
 451         return (val >> 8) & 0xff;
 452     return val & 0xff;
 453 }
 454
 455 static uint32_t gpe_readb(void *opaque, uint32_t addr)
 456 {
 457     uint32_t val = 0;
 458     PIIX4PMState *s = opaque;
 459     struct gpe_regs *g = &s->gpe;
 460
 461     switch (addr) {
 462         case GPE_BASE:
 463         case GPE_BASE + 1:
 464             val = gpe_read_val(g->sts, addr);
 465             break;
 466         case GPE_BASE + 2:
 467         case GPE_BASE + 3:
 468             val = gpe_read_val(g->en, addr);
 469             break;
 470         default:
 471             break;
 472     }
 473
 474     PIIX4_DPRINTF("gpe read %x == %x\n", addr, val);
 475     return val;
 476 }
 477
 478 static void gpe_write_val(uint16_t *cur, int addr, uint32_t val)
 479 {
 480     if (addr & 1)
 481         *cur = (*cur & 0xff) | (val << 8);
 482     else
 483         *cur = (*cur & 0xff00) | (val & 0xff);
 484 }
 485
 486 static void gpe_reset_val(uint16_t *cur, int addr, uint32_t val)
 487 {
 488     uint16_t x1, x0 = val & 0xff;
 489     int shift = (addr & 1) ? 8 : 0;
 490
 491     x1 = (*cur >> shift) & 0xff;
 492
 493     x1 = x1 & ~x0;
 494
 495     *cur = (*cur & (0xff << (8 - shift))) | (x1 << shift);
 496 }
 497
 498 static void gpe_writeb(void *opaque, uint32_t addr, uint32_t val)
 499 {
 500     PIIX4PMState *s = opaque;
 501     struct gpe_regs *g = &s->gpe;
 502
 503     switch (addr) {
 504         case GPE_BASE:
 505         case GPE_BASE + 1:
 506             gpe_reset_val(&g->sts, addr, val);
 507             break;
 508         case GPE_BASE + 2:
 509         case GPE_BASE + 3:
 510             gpe_write_val(&g->en, addr, val);
 511             break;
 512         default:
 513             break;
 514     }
 515
 516     pm_update_sci(s);
 517
 518     PIIX4_DPRINTF("gpe write %x <== %d\n", addr, val);
 519 }
 520
 521 static uint32_t pcihotplug_read(void *opaque, uint32_t addr)
 522 {
 523     uint32_t val = 0;
 524     struct pci_status *g = opaque;
 525     switch (addr) {
 526         case PCI_BASE:
 527             val = g->up;
 528             break;
 529         case PCI_BASE + 4:
 530             val = g->down;
 531             break;
 532         default:
 533             break;
 534     }
 535
 536     PIIX4_DPRINTF("pcihotplug read %x == %x\n", addr, val);
 537     return val;
 538 }
 539
 540 static void pcihotplug_write(void *opaque, uint32_t addr, uint32_t val)
 541 {
 542     struct pci_status *g = opaque;
 543     switch (addr) {
 544         case PCI_BASE:
 545             g->up = val;
 546             break;
 547         case PCI_BASE + 4:
 548             g->down = val;
 549             break;
 550    }
 551
 552     PIIX4_DPRINTF("pcihotplug write %x <== %d\n", addr, val);
 553 }
 554
 555 static uint32_t pciej_read(void *opaque, uint32_t addr)
 556 {
 557     PIIX4_DPRINTF("pciej read %x\n", addr);
 558     return 0;
 559 }
 560
 561 static void pciej_write(void *opaque, uint32_t addr, uint32_t val)
 562 {
 563     BusState *bus = opaque;
 564     DeviceState *qdev, *next;
 565     PCIDevice *dev;
 566     int slot = ffs(val) - 1;
 567
 568     QLIST_FOREACH_SAFE(qdev, &bus->children, sibling, next) {
 569         dev = DO_UPCAST(PCIDevice, qdev, qdev);
 570         if (PCI_SLOT(dev->devfn) == slot) {
 571             qdev_free(qdev);
 572         }
 573     }
 574
 575
 576     PIIX4_DPRINTF("pciej write %x <== %d\n", addr, val);
 577 }
 578
 579 static int piix4_device_hotplug(DeviceState *qdev, PCIDevice *dev,
 580                                 PCIHotplugState state);
 581
 582 static void piix4_acpi_system_hot_add_init(PCIBus *bus, PIIX4PMState *s)
 583 {
 584     struct pci_status *pci0_status = &s->pci0_status;
 585
 586     register_ioport_write(GPE_BASE, 4, 1, gpe_writeb, s);
 587     register_ioport_read(GPE_BASE, 4, 1,  gpe_readb, s);
 588
 589     register_ioport_write(PCI_BASE, 8, 4, pcihotplug_write, pci0_status);
 590     register_ioport_read(PCI_BASE, 8, 4,  pcihotplug_read, pci0_status);
 591
 592     register_ioport_write(PCI_EJ_BASE, 4, 4, pciej_write, bus);
 593     register_ioport_read(PCI_EJ_BASE, 4, 4,  pciej_read, bus);
 594
 595     pci_bus_hotplug(bus, piix4_device_hotplug, &s->dev.qdev);
 596 }
 597
 598 static void enable_device(PIIX4PMState *s, int slot)
 599 {
 600     s->gpe.sts |= PIIX4_PCI_HOTPLUG_STATUS;
 601     s->pci0_status.up |= (1 << slot);
 602 }
 603
 604 static void disable_device(PIIX4PMState *s, int slot)
 605 {
 606     s->gpe.sts |= PIIX4_PCI_HOTPLUG_STATUS;
 607     s->pci0_status.down |= (1 << slot);
 608 }
 609
 610 static int piix4_device_hotplug(DeviceState *qdev, PCIDevice *dev,
 611                                 PCIHotplugState state)
 612 {
 613     int slot = PCI_SLOT(dev->devfn);
 614     PIIX4PMState *s = DO_UPCAST(PIIX4PMState, dev,
 615                                 DO_UPCAST(PCIDevice, qdev, qdev));
 616
 617     /* Don't send event when device is enabled during qemu machine creation:
 618      * it is present on boot, no hotplug event is necessary. We do send an
 619      * event when the device is disabled later. */
 620     if (state == PCI_COLDPLUG_ENABLED) {
 621         return 0;
 622     }
 623
 624     s->pci0_status.up = 0;
 625     s->pci0_status.down = 0;
 626     if (state == PCI_HOTPLUG_ENABLED) {
 627         enable_device(s, slot);
 628     } else {
 629         disable_device(s, slot);
 630     }
 631
 632     pm_update_sci(s);
 633
 634     return 0;
 635 }