[qemu.git] / hw / acpi_piix4.c

/*
 * ACPI implementation
 *
 * Copyright (c) 2006 Fabrice Bellard
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License version 2 as published by the Free Software Foundation.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, see <http://www.gnu.org/licenses/>
 */
#include "hw.h"
#include "pc.h"
#include "apm.h"
#include "pm_smbus.h"
#include "pci.h"
#include "acpi.h"
#include "sysemu.h"

//#define DEBUG

#ifdef DEBUG
# define PIIX4_DPRINTF(format, ...)     printf(format, ## __VA_ARGS__)
#else
# define PIIX4_DPRINTF(format, ...)     do { } while (0)
#endif

#define ACPI_DBG_IO_ADDR  0xb044

#define GPE_BASE 0xafe0
#define PCI_BASE 0xae00
#define PCI_EJ_BASE 0xae08

struct gpe_regs {
    uint16_t sts; /* status */
    uint16_t en;  /* enabled */
};

struct pci_status {
    uint32_t up;
    uint32_t down;
};

typedef struct PIIX4PMState {
    PCIDevice dev;
    uint16_t pmsts;
    uint16_t pmen;
    uint16_t pmcntrl;

    APMState apm;

    QEMUTimer *tmr_timer;
    int64_t tmr_overflow_time;

    PMSMBus smb;
    uint32_t smb_io_base;

    qemu_irq irq;
    qemu_irq cmos_s3;
    qemu_irq smi_irq;
    int kvm_enabled;

    /* for pci hotplug */
    struct gpe_regs gpe;
    struct pci_status pci0_status;
} PIIX4PMState;

static void piix4_acpi_system_hot_add_init(PCIBus *bus, PIIX4PMState *s);

#define ACPI_ENABLE 0xf1
#define ACPI_DISABLE 0xf0

static uint32_t get_pmtmr(PIIX4PMState *s)
{
    uint32_t d;
    d = muldiv64(qemu_get_clock(vm_clock), PM_TIMER_FREQUENCY, get_ticks_per_sec());
    return d & 0xffffff;
}

static int get_pmsts(PIIX4PMState *s)
{
    int64_t d;

    d = muldiv64(qemu_get_clock(vm_clock), PM_TIMER_FREQUENCY,
                 get_ticks_per_sec());
    if (d >= s->tmr_overflow_time)
        s->pmsts |= ACPI_BITMASK_TIMER_STATUS;
    return s->pmsts;
}

static void pm_update_sci(PIIX4PMState *s)
{
    int sci_level, pmsts;
    int64_t expire_time;

    pmsts = get_pmsts(s);
    sci_level = (((pmsts & s->pmen) &
                  (ACPI_BITMASK_RT_CLOCK_ENABLE |
                   ACPI_BITMASK_POWER_BUTTON_ENABLE |
                   ACPI_BITMASK_GLOBAL_LOCK_ENABLE |
                   ACPI_BITMASK_TIMER_ENABLE)) != 0);
    qemu_set_irq(s->irq, sci_level);
    /* schedule a timer interruption if needed */
    if ((s->pmen & ACPI_BITMASK_TIMER_ENABLE) &&
        !(pmsts & ACPI_BITMASK_TIMER_STATUS)) {
        expire_time = muldiv64(s->tmr_overflow_time, get_ticks_per_sec(),
                               PM_TIMER_FREQUENCY);
        qemu_mod_timer(s->tmr_timer, expire_time);
    } else {
        qemu_del_timer(s->tmr_timer);
    }
}

static void pm_tmr_timer(void *opaque)
{
    PIIX4PMState *s = opaque;
    pm_update_sci(s);
}

static void pm_ioport_writew(void *opaque, uint32_t addr, uint32_t val)
{
    PIIX4PMState *s = opaque;
    addr &= 0x3f;
    switch(addr) {
    case 0x00:
        {
            int64_t d;
            int pmsts;
            pmsts = get_pmsts(s);
            if (pmsts & val & ACPI_BITMASK_TIMER_STATUS) {
                /* if TMRSTS is reset, then compute the new overflow time */
                d = muldiv64(qemu_get_clock(vm_clock), PM_TIMER_FREQUENCY,
                             get_ticks_per_sec());
                s->tmr_overflow_time = (d + 0x800000LL) & ~0x7fffffLL;
            }
            s->pmsts &= ~val;
            pm_update_sci(s);
        }
        break;
    case 0x02:
        s->pmen = val;
        pm_update_sci(s);
        break;
    case 0x04:
        {
            int sus_typ;
            s->pmcntrl = val & ~(ACPI_BITMASK_SLEEP_ENABLE);
            if (val & ACPI_BITMASK_SLEEP_ENABLE) {
                /* change suspend type */
                sus_typ = (val >> 10) & 7;
                switch(sus_typ) {
                case 0: /* soft power off */
                    qemu_system_shutdown_request();
                    break;
                case 1:
                    /* ACPI_BITMASK_WAKE_STATUS should be set on resume.
                       Pretend that resume was caused by power button */
                    s->pmsts |= (ACPI_BITMASK_WAKE_STATUS |
                                 ACPI_BITMASK_POWER_BUTTON_STATUS);
                    qemu_system_reset_request();
                    if (s->cmos_s3) {
                        qemu_irq_raise(s->cmos_s3);
                    }
                default:
                    break;
                }
            }
        }
        break;
    default:
        break;
    }
    PIIX4_DPRINTF("PM writew port=0x%04x val=0x%04x\n", addr, val);
}

static uint32_t pm_ioport_readw(void *opaque, uint32_t addr)
{
    PIIX4PMState *s = opaque;
    uint32_t val;

    addr &= 0x3f;
    switch(addr) {
    case 0x00:
        val = get_pmsts(s);
        break;
    case 0x02:
        val = s->pmen;
        break;
    case 0x04:
        val = s->pmcntrl;
        break;
    default:
        val = 0;
        break;
    }
    PIIX4_DPRINTF("PM readw port=0x%04x val=0x%04x\n", addr, val);
    return val;
}

static void pm_ioport_writel(void *opaque, uint32_t addr, uint32_t val)
{
    //    PIIX4PMState *s = opaque;
    PIIX4_DPRINTF("PM writel port=0x%04x val=0x%08x\n", addr & 0x3f, val);
}

static uint32_t pm_ioport_readl(void *opaque, uint32_t addr)
{
    PIIX4PMState *s = opaque;
    uint32_t val;

    addr &= 0x3f;
    switch(addr) {
    case 0x08:
        val = get_pmtmr(s);
        break;
    default:
        val = 0;
        break;
    }
    PIIX4_DPRINTF("PM readl port=0x%04x val=0x%08x\n", addr, val);
    return val;
}

static void apm_ctrl_changed(uint32_t val, void *arg)
{
    PIIX4PMState *s = arg;

    /* ACPI specs 3.0, 4.7.2.5 */
    if (val == ACPI_ENABLE) {
        s->pmcntrl |= ACPI_BITMASK_SCI_ENABLE;
    } else if (val == ACPI_DISABLE) {
        s->pmcntrl &= ~ACPI_BITMASK_SCI_ENABLE;
    }

    if (s->dev.config[0x5b] & (1 << 1)) {
        if (s->smi_irq) {
            qemu_irq_raise(s->smi_irq);
        }
    }
}

static void acpi_dbg_writel(void *opaque, uint32_t addr, uint32_t val)
{
    PIIX4_DPRINTF("ACPI: DBG: 0x%08x\n", val);
}

static void pm_io_space_update(PIIX4PMState *s)
{
    uint32_t pm_io_base;

    if (s->dev.config[0x80] & 1) {
        pm_io_base = le32_to_cpu(*(uint32_t *)(s->dev.config + 0x40));
        pm_io_base &= 0xffc0;

        /* XXX: need to improve memory and ioport allocation */
        PIIX4_DPRINTF("PM: mapping to 0x%x\n", pm_io_base);
        register_ioport_write(pm_io_base, 64, 2, pm_ioport_writew, s);
        register_ioport_read(pm_io_base, 64, 2, pm_ioport_readw, s);
        register_ioport_write(pm_io_base, 64, 4, pm_ioport_writel, s);
        register_ioport_read(pm_io_base, 64, 4, pm_ioport_readl, s);
    }
}

static void pm_write_config(PCIDevice *d,
                            uint32_t address, uint32_t val, int len)
{
    pci_default_write_config(d, address, val, len);
    if (range_covers_byte(address, len, 0x80))
        pm_io_space_update((PIIX4PMState *)d);
}

static int vmstate_acpi_post_load(void *opaque, int version_id)
{
    PIIX4PMState *s = opaque;

    pm_io_space_update(s);
    return 0;
}

static const VMStateDescription vmstate_gpe = {
    .name = "gpe",
    .version_id = 1,
    .minimum_version_id = 1,
    .minimum_version_id_old = 1,
    .fields      = (VMStateField []) {
        VMSTATE_UINT16(sts, struct gpe_regs),
        VMSTATE_UINT16(en, struct gpe_regs),
        VMSTATE_END_OF_LIST()
    }
};

static const VMStateDescription vmstate_pci_status = {
    .name = "pci_status",
    .version_id = 1,
    .minimum_version_id = 1,
    .minimum_version_id_old = 1,
    .fields      = (VMStateField []) {
        VMSTATE_UINT32(up, struct pci_status),
        VMSTATE_UINT32(down, struct pci_status),
        VMSTATE_END_OF_LIST()
    }
};

static const VMStateDescription vmstate_acpi = {
    .name = "piix4_pm",
    .version_id = 2,
    .minimum_version_id = 1,
    .minimum_version_id_old = 1,
    .post_load = vmstate_acpi_post_load,
    .fields      = (VMStateField []) {
        VMSTATE_PCI_DEVICE(dev, PIIX4PMState),
        VMSTATE_UINT16(pmsts, PIIX4PMState),
        VMSTATE_UINT16(pmen, PIIX4PMState),
        VMSTATE_UINT16(pmcntrl, PIIX4PMState),
        VMSTATE_STRUCT(apm, PIIX4PMState, 0, vmstate_apm, APMState),
        VMSTATE_TIMER(tmr_timer, PIIX4PMState),
        VMSTATE_INT64(tmr_overflow_time, PIIX4PMState),
        VMSTATE_STRUCT(gpe, PIIX4PMState, 2, vmstate_gpe, struct gpe_regs),
        VMSTATE_STRUCT(pci0_status, PIIX4PMState, 2, vmstate_pci_status,
                       struct pci_status),
        VMSTATE_END_OF_LIST()
    }
};

static void piix4_reset(void *opaque)
{
    PIIX4PMState *s = opaque;
    uint8_t *pci_conf = s->dev.config;

    pci_conf[0x58] = 0;
    pci_conf[0x59] = 0;
    pci_conf[0x5a] = 0;
    pci_conf[0x5b] = 0;

    if (s->kvm_enabled) {
        /* Mark SMM as already inited (until KVM supports SMM). */
        pci_conf[0x5B] = 0x02;
    }
}

static void piix4_powerdown(void *opaque, int irq, int power_failing)
{
    PIIX4PMState *s = opaque;

    if (!s) {
        qemu_system_shutdown_request();
    } else if (s->pmen & ACPI_BITMASK_POWER_BUTTON_ENABLE) {
        s->pmsts |= ACPI_BITMASK_POWER_BUTTON_STATUS;
        pm_update_sci(s);
    }
}

static int piix4_pm_initfn(PCIDevice *dev)
{
    PIIX4PMState *s = DO_UPCAST(PIIX4PMState, dev, dev);
    uint8_t *pci_conf;

    pci_conf = s->dev.config;
    pci_config_set_vendor_id(pci_conf, PCI_VENDOR_ID_INTEL);
    pci_config_set_device_id(pci_conf, PCI_DEVICE_ID_INTEL_82371AB_3);
    pci_conf[0x06] = 0x80;
    pci_conf[0x07] = 0x02;
    pci_conf[0x08] = 0x03; // revision number
    pci_conf[0x09] = 0x00;
    pci_config_set_class(pci_conf, PCI_CLASS_BRIDGE_OTHER);
    pci_conf[PCI_HEADER_TYPE] = PCI_HEADER_TYPE_NORMAL; // header_type
    pci_conf[0x3d] = 0x01; // interrupt pin 1

    pci_conf[0x40] = 0x01; /* PM io base read only bit */

    /* APM */
    apm_init(&s->apm, apm_ctrl_changed, s);

    register_ioport_write(ACPI_DBG_IO_ADDR, 4, 4, acpi_dbg_writel, s);

    if (s->kvm_enabled) {
        /* Mark SMM as already inited to prevent SMM from running.  KVM does not
         * support SMM mode. */
        pci_conf[0x5B] = 0x02;
    }

    /* XXX: which specification is used ? The i82731AB has different
       mappings */
    pci_conf[0x5f] = (parallel_hds[0] != NULL ? 0x80 : 0) | 0x10;
    pci_conf[0x63] = 0x60;
    pci_conf[0x67] = (serial_hds[0] != NULL ? 0x08 : 0) |
	(serial_hds[1] != NULL ? 0x90 : 0);

    pci_conf[0x90] = s->smb_io_base | 1;
    pci_conf[0x91] = s->smb_io_base >> 8;
    pci_conf[0xd2] = 0x09;
    register_ioport_write(s->smb_io_base, 64, 1, smb_ioport_writeb, &s->smb);
    register_ioport_read(s->smb_io_base, 64, 1, smb_ioport_readb, &s->smb);

    s->tmr_timer = qemu_new_timer(vm_clock, pm_tmr_timer, s);

    qemu_system_powerdown = *qemu_allocate_irqs(piix4_powerdown, s, 1);

    pm_smbus_init(&s->dev.qdev, &s->smb);
    qemu_register_reset(piix4_reset, s);
    piix4_acpi_system_hot_add_init(dev->bus, s);

    return 0;
}

i2c_bus *piix4_pm_init(PCIBus *bus, int devfn, uint32_t smb_io_base,
                       qemu_irq sci_irq, qemu_irq cmos_s3, qemu_irq smi_irq,
                       int kvm_enabled)
{
    PCIDevice *dev;
    PIIX4PMState *s;

    dev = pci_create(bus, devfn, "PIIX4_PM");
    qdev_prop_set_uint32(&dev->qdev, "smb_io_base", smb_io_base);

    s = DO_UPCAST(PIIX4PMState, dev, dev);
    s->irq = sci_irq;
    s->cmos_s3 = cmos_s3;
    s->smi_irq = smi_irq;
    s->kvm_enabled = kvm_enabled;

    qdev_init_nofail(&dev->qdev);

    return s->smb.smbus;
}

static PCIDeviceInfo piix4_pm_info = {
    .qdev.name          = "PIIX4_PM",
    .qdev.desc          = "PM",
    .qdev.size          = sizeof(PIIX4PMState),
    .qdev.vmsd          = &vmstate_acpi,
    .init               = piix4_pm_initfn,
    .config_write       = pm_write_config,
    .qdev.props         = (Property[]) {
        DEFINE_PROP_UINT32("smb_io_base", PIIX4PMState, smb_io_base, 0),
        DEFINE_PROP_END_OF_LIST(),
    }
};

static void piix4_pm_register(void)
{
    pci_qdev_register(&piix4_pm_info);
}

device_init(piix4_pm_register);

static uint32_t gpe_read_val(uint16_t val, uint32_t addr)
{
    if (addr & 1)
        return (val >> 8) & 0xff;
    return val & 0xff;
}

static uint32_t gpe_readb(void *opaque, uint32_t addr)
{
    uint32_t val = 0;
    struct gpe_regs *g = opaque;
    switch (addr) {
        case GPE_BASE:
        case GPE_BASE + 1:
            val = gpe_read_val(g->sts, addr);
            break;
        case GPE_BASE + 2:
        case GPE_BASE + 3:
            val = gpe_read_val(g->en, addr);
            break;
        default:
            break;
    }

    PIIX4_DPRINTF("gpe read %x == %x\n", addr, val);
    return val;
}

static void gpe_write_val(uint16_t *cur, int addr, uint32_t val)
{
    if (addr & 1)
        *cur = (*cur & 0xff) | (val << 8);
    else
        *cur = (*cur & 0xff00) | (val & 0xff);
}

static void gpe_reset_val(uint16_t *cur, int addr, uint32_t val)
{
    uint16_t x1, x0 = val & 0xff;
    int shift = (addr & 1) ? 8 : 0;

    x1 = (*cur >> shift) & 0xff;

    x1 = x1 & ~x0;

    *cur = (*cur & (0xff << (8 - shift))) | (x1 << shift);
}

static void gpe_writeb(void *opaque, uint32_t addr, uint32_t val)
{
    struct gpe_regs *g = opaque;
    switch (addr) {
        case GPE_BASE:
        case GPE_BASE + 1:
            gpe_reset_val(&g->sts, addr, val);
            break;
        case GPE_BASE + 2:
        case GPE_BASE + 3:
            gpe_write_val(&g->en, addr, val);
            break;
        default:
            break;
   }

    PIIX4_DPRINTF("gpe write %x <== %d\n", addr, val);
}

static uint32_t pcihotplug_read(void *opaque, uint32_t addr)
{
    uint32_t val = 0;
    struct pci_status *g = opaque;
    switch (addr) {
        case PCI_BASE:
            val = g->up;
            break;
        case PCI_BASE + 4:
            val = g->down;
            break;
        default:
            break;
    }

    PIIX4_DPRINTF("pcihotplug read %x == %x\n", addr, val);
    return val;
}

static void pcihotplug_write(void *opaque, uint32_t addr, uint32_t val)
{
    struct pci_status *g = opaque;
    switch (addr) {
        case PCI_BASE:
            g->up = val;
            break;
        case PCI_BASE + 4:
            g->down = val;
            break;
   }

    PIIX4_DPRINTF("pcihotplug write %x <== %d\n", addr, val);
}

static uint32_t pciej_read(void *opaque, uint32_t addr)
{
    PIIX4_DPRINTF("pciej read %x\n", addr);
    return 0;
}

static void pciej_write(void *opaque, uint32_t addr, uint32_t val)
{
    BusState *bus = opaque;
    DeviceState *qdev, *next;
    PCIDevice *dev;
    int slot = ffs(val) - 1;

    QLIST_FOREACH_SAFE(qdev, &bus->children, sibling, next) {
        dev = DO_UPCAST(PCIDevice, qdev, qdev);
        if (PCI_SLOT(dev->devfn) == slot) {
            qdev_free(qdev);
        }
    }


    PIIX4_DPRINTF("pciej write %x <== %d\n", addr, val);
}

static int piix4_device_hotplug(DeviceState *qdev, PCIDevice *dev, int state);

static void piix4_acpi_system_hot_add_init(PCIBus *bus, PIIX4PMState *s)
{
    struct gpe_regs *gpe = &s->gpe;
    struct pci_status *pci0_status = &s->pci0_status;

    register_ioport_write(GPE_BASE, 4, 1, gpe_writeb, gpe);
    register_ioport_read(GPE_BASE, 4, 1,  gpe_readb, gpe);

    register_ioport_write(PCI_BASE, 8, 4, pcihotplug_write, pci0_status);
    register_ioport_read(PCI_BASE, 8, 4,  pcihotplug_read, pci0_status);

    register_ioport_write(PCI_EJ_BASE, 4, 4, pciej_write, bus);
    register_ioport_read(PCI_EJ_BASE, 4, 4,  pciej_read, bus);

    pci_bus_hotplug(bus, piix4_device_hotplug, &s->dev.qdev);
}

static void enable_device(PIIX4PMState *s, int slot)
{
    s->gpe.sts |= 2;
    s->pci0_status.up |= (1 << slot);
}

static void disable_device(PIIX4PMState *s, int slot)
{
    s->gpe.sts |= 2;
    s->pci0_status.down |= (1 << slot);
}

static int piix4_device_hotplug(DeviceState *qdev, PCIDevice *dev, int state)
{
    int slot = PCI_SLOT(dev->devfn);
    PIIX4PMState *s = DO_UPCAST(PIIX4PMState, dev,
                                DO_UPCAST(PCIDevice, qdev, qdev));

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