kvm: user: ppc: add stub nmi handler
[qemu-kvm/fedora.git] / hw / acpi.c
blob7a7a5341e3050e4e59866b53a64f7cb0de241c3b
1 /*
2 * ACPI implementation
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, write to the Free Software
17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 #include "hw.h"
20 #include "pc.h"
21 #include "pci.h"
22 #include "qemu-timer.h"
23 #include "sysemu.h"
24 #include "i2c.h"
25 #include "smbus.h"
26 #ifdef USE_KVM
27 #include "qemu-kvm.h"
28 #endif
29 #include "string.h"
31 //#define DEBUG
33 /* i82731AB (PIIX4) compatible power management function */
34 #define PM_FREQ 3579545
36 #define ACPI_DBG_IO_ADDR 0xb044
38 typedef struct PIIX4PMState {
39 PCIDevice dev;
40 uint16_t pmsts;
41 uint16_t pmen;
42 uint16_t pmcntrl;
43 uint8_t apmc;
44 uint8_t apms;
45 QEMUTimer *tmr_timer;
46 int64_t tmr_overflow_time;
47 i2c_bus *smbus;
48 uint8_t smb_stat;
49 uint8_t smb_ctl;
50 uint8_t smb_cmd;
51 uint8_t smb_addr;
52 uint8_t smb_data0;
53 uint8_t smb_data1;
54 uint8_t smb_data[32];
55 uint8_t smb_index;
56 qemu_irq irq;
57 } PIIX4PMState;
59 #define RTC_EN (1 << 10)
60 #define PWRBTN_EN (1 << 8)
61 #define GBL_EN (1 << 5)
62 #define TMROF_EN (1 << 0)
64 #define SCI_EN (1 << 0)
66 #define SUS_EN (1 << 13)
68 #define ACPI_ENABLE 0xf1
69 #define ACPI_DISABLE 0xf0
71 #define SMBHSTSTS 0x00
72 #define SMBHSTCNT 0x02
73 #define SMBHSTCMD 0x03
74 #define SMBHSTADD 0x04
75 #define SMBHSTDAT0 0x05
76 #define SMBHSTDAT1 0x06
77 #define SMBBLKDAT 0x07
79 static PIIX4PMState *pm_state;
81 static uint32_t get_pmtmr(PIIX4PMState *s)
83 uint32_t d;
84 d = muldiv64(qemu_get_clock(vm_clock), PM_FREQ, ticks_per_sec);
85 return d & 0xffffff;
88 static int get_pmsts(PIIX4PMState *s)
90 int64_t d;
91 int pmsts;
92 pmsts = s->pmsts;
93 d = muldiv64(qemu_get_clock(vm_clock), PM_FREQ, ticks_per_sec);
94 if (d >= s->tmr_overflow_time)
95 s->pmsts |= TMROF_EN;
96 return pmsts;
99 static void pm_update_sci(PIIX4PMState *s)
101 int sci_level, pmsts;
102 int64_t expire_time;
104 pmsts = get_pmsts(s);
105 sci_level = (((pmsts & s->pmen) &
106 (RTC_EN | PWRBTN_EN | GBL_EN | TMROF_EN)) != 0);
107 qemu_set_irq(s->irq, sci_level);
108 /* schedule a timer interruption if needed */
109 if ((s->pmen & TMROF_EN) && !(pmsts & TMROF_EN)) {
110 expire_time = muldiv64(s->tmr_overflow_time, ticks_per_sec, PM_FREQ);
111 qemu_mod_timer(s->tmr_timer, expire_time);
112 } else {
113 qemu_del_timer(s->tmr_timer);
117 static void pm_tmr_timer(void *opaque)
119 PIIX4PMState *s = opaque;
120 pm_update_sci(s);
123 static void pm_ioport_writew(void *opaque, uint32_t addr, uint32_t val)
125 PIIX4PMState *s = opaque;
126 addr &= 0x3f;
127 switch(addr) {
128 case 0x00:
130 int64_t d;
131 int pmsts;
132 pmsts = get_pmsts(s);
133 if (pmsts & val & TMROF_EN) {
134 /* if TMRSTS is reset, then compute the new overflow time */
135 d = muldiv64(qemu_get_clock(vm_clock), PM_FREQ, ticks_per_sec);
136 s->tmr_overflow_time = (d + 0x800000LL) & ~0x7fffffLL;
138 s->pmsts &= ~val;
139 pm_update_sci(s);
141 break;
142 case 0x02:
143 s->pmen = val;
144 pm_update_sci(s);
145 break;
146 case 0x04:
148 int sus_typ;
149 s->pmcntrl = val & ~(SUS_EN);
150 if (val & SUS_EN) {
151 /* change suspend type */
152 sus_typ = (val >> 10) & 7;
153 switch(sus_typ) {
154 case 0: /* soft power off */
155 qemu_system_shutdown_request();
156 break;
157 default:
158 break;
162 break;
163 default:
164 break;
166 #ifdef DEBUG
167 printf("PM writew port=0x%04x val=0x%04x\n", addr, val);
168 #endif
171 static uint32_t pm_ioport_readw(void *opaque, uint32_t addr)
173 PIIX4PMState *s = opaque;
174 uint32_t val;
176 addr &= 0x3f;
177 switch(addr) {
178 case 0x00:
179 val = get_pmsts(s);
180 break;
181 case 0x02:
182 val = s->pmen;
183 break;
184 case 0x04:
185 val = s->pmcntrl;
186 break;
187 default:
188 val = 0;
189 break;
191 #ifdef DEBUG
192 printf("PM readw port=0x%04x val=0x%04x\n", addr, val);
193 #endif
194 return val;
197 static void pm_ioport_writel(void *opaque, uint32_t addr, uint32_t val)
199 // PIIX4PMState *s = opaque;
200 addr &= 0x3f;
201 #ifdef DEBUG
202 printf("PM writel port=0x%04x val=0x%08x\n", addr, val);
203 #endif
206 static uint32_t pm_ioport_readl(void *opaque, uint32_t addr)
208 PIIX4PMState *s = opaque;
209 uint32_t val;
211 addr &= 0x3f;
212 switch(addr) {
213 case 0x08:
214 val = get_pmtmr(s);
215 break;
216 default:
217 val = 0;
218 break;
220 #ifdef DEBUG
221 printf("PM readl port=0x%04x val=0x%08x\n", addr, val);
222 #endif
223 return val;
226 static void pm_smi_writeb(void *opaque, uint32_t addr, uint32_t val)
228 PIIX4PMState *s = opaque;
229 addr &= 1;
230 #ifdef DEBUG
231 printf("pm_smi_writeb addr=0x%x val=0x%02x\n", addr, val);
232 #endif
233 if (addr == 0) {
234 s->apmc = val;
236 /* ACPI specs 3.0, 4.7.2.5 */
237 if (val == ACPI_ENABLE) {
238 s->pmcntrl |= SCI_EN;
239 } else if (val == ACPI_DISABLE) {
240 s->pmcntrl &= ~SCI_EN;
243 if (s->dev.config[0x5b] & (1 << 1)) {
244 cpu_interrupt(first_cpu, CPU_INTERRUPT_SMI);
246 } else {
247 s->apms = val;
251 static uint32_t pm_smi_readb(void *opaque, uint32_t addr)
253 PIIX4PMState *s = opaque;
254 uint32_t val;
256 addr &= 1;
257 if (addr == 0) {
258 val = s->apmc;
259 } else {
260 val = s->apms;
262 #ifdef DEBUG
263 printf("pm_smi_readb addr=0x%x val=0x%02x\n", addr, val);
264 #endif
265 return val;
268 static void acpi_dbg_writel(void *opaque, uint32_t addr, uint32_t val)
270 #if defined(DEBUG)
271 printf("ACPI: DBG: 0x%08x\n", val);
272 #endif
275 static void smb_transaction(PIIX4PMState *s)
277 uint8_t prot = (s->smb_ctl >> 2) & 0x07;
278 uint8_t read = s->smb_addr & 0x01;
279 uint8_t cmd = s->smb_cmd;
280 uint8_t addr = s->smb_addr >> 1;
281 i2c_bus *bus = s->smbus;
283 #ifdef DEBUG
284 printf("SMBus trans addr=0x%02x prot=0x%02x\n", addr, prot);
285 #endif
286 switch(prot) {
287 case 0x0:
288 smbus_quick_command(bus, addr, read);
289 break;
290 case 0x1:
291 if (read) {
292 s->smb_data0 = smbus_receive_byte(bus, addr);
293 } else {
294 smbus_send_byte(bus, addr, cmd);
296 break;
297 case 0x2:
298 if (read) {
299 s->smb_data0 = smbus_read_byte(bus, addr, cmd);
300 } else {
301 smbus_write_byte(bus, addr, cmd, s->smb_data0);
303 break;
304 case 0x3:
305 if (read) {
306 uint16_t val;
307 val = smbus_read_word(bus, addr, cmd);
308 s->smb_data0 = val;
309 s->smb_data1 = val >> 8;
310 } else {
311 smbus_write_word(bus, addr, cmd, (s->smb_data1 << 8) | s->smb_data0);
313 break;
314 case 0x5:
315 if (read) {
316 s->smb_data0 = smbus_read_block(bus, addr, cmd, s->smb_data);
317 } else {
318 smbus_write_block(bus, addr, cmd, s->smb_data, s->smb_data0);
320 break;
321 default:
322 goto error;
324 return;
326 error:
327 s->smb_stat |= 0x04;
330 static void smb_ioport_writeb(void *opaque, uint32_t addr, uint32_t val)
332 PIIX4PMState *s = opaque;
333 addr &= 0x3f;
334 #ifdef DEBUG
335 printf("SMB writeb port=0x%04x val=0x%02x\n", addr, val);
336 #endif
337 switch(addr) {
338 case SMBHSTSTS:
339 s->smb_stat = 0;
340 s->smb_index = 0;
341 break;
342 case SMBHSTCNT:
343 s->smb_ctl = val;
344 if (val & 0x40)
345 smb_transaction(s);
346 break;
347 case SMBHSTCMD:
348 s->smb_cmd = val;
349 break;
350 case SMBHSTADD:
351 s->smb_addr = val;
352 break;
353 case SMBHSTDAT0:
354 s->smb_data0 = val;
355 break;
356 case SMBHSTDAT1:
357 s->smb_data1 = val;
358 break;
359 case SMBBLKDAT:
360 s->smb_data[s->smb_index++] = val;
361 if (s->smb_index > 31)
362 s->smb_index = 0;
363 break;
364 default:
365 break;
369 static uint32_t smb_ioport_readb(void *opaque, uint32_t addr)
371 PIIX4PMState *s = opaque;
372 uint32_t val;
374 addr &= 0x3f;
375 switch(addr) {
376 case SMBHSTSTS:
377 val = s->smb_stat;
378 break;
379 case SMBHSTCNT:
380 s->smb_index = 0;
381 val = s->smb_ctl & 0x1f;
382 break;
383 case SMBHSTCMD:
384 val = s->smb_cmd;
385 break;
386 case SMBHSTADD:
387 val = s->smb_addr;
388 break;
389 case SMBHSTDAT0:
390 val = s->smb_data0;
391 break;
392 case SMBHSTDAT1:
393 val = s->smb_data1;
394 break;
395 case SMBBLKDAT:
396 val = s->smb_data[s->smb_index++];
397 if (s->smb_index > 31)
398 s->smb_index = 0;
399 break;
400 default:
401 val = 0;
402 break;
404 #ifdef DEBUG
405 printf("SMB readb port=0x%04x val=0x%02x\n", addr, val);
406 #endif
407 return val;
410 static void pm_io_space_update(PIIX4PMState *s)
412 uint32_t pm_io_base;
414 if (s->dev.config[0x80] & 1) {
415 pm_io_base = le32_to_cpu(*(uint32_t *)(s->dev.config + 0x40));
416 pm_io_base &= 0xffc0;
418 /* XXX: need to improve memory and ioport allocation */
419 #if defined(DEBUG)
420 printf("PM: mapping to 0x%x\n", pm_io_base);
421 #endif
422 register_ioport_write(pm_io_base, 64, 2, pm_ioport_writew, s);
423 register_ioport_read(pm_io_base, 64, 2, pm_ioport_readw, s);
424 register_ioport_write(pm_io_base, 64, 4, pm_ioport_writel, s);
425 register_ioport_read(pm_io_base, 64, 4, pm_ioport_readl, s);
429 static void pm_write_config(PCIDevice *d,
430 uint32_t address, uint32_t val, int len)
432 pci_default_write_config(d, address, val, len);
433 if (address == 0x80)
434 pm_io_space_update((PIIX4PMState *)d);
437 static void pm_save(QEMUFile* f,void *opaque)
439 PIIX4PMState *s = opaque;
441 pci_device_save(&s->dev, f);
443 qemu_put_be16s(f, &s->pmsts);
444 qemu_put_be16s(f, &s->pmen);
445 qemu_put_be16s(f, &s->pmcntrl);
446 qemu_put_8s(f, &s->apmc);
447 qemu_put_8s(f, &s->apms);
448 qemu_put_timer(f, s->tmr_timer);
449 qemu_put_be64(f, s->tmr_overflow_time);
452 static int pm_load(QEMUFile* f,void* opaque,int version_id)
454 PIIX4PMState *s = opaque;
455 int ret;
457 if (version_id > 1)
458 return -EINVAL;
460 ret = pci_device_load(&s->dev, f);
461 if (ret < 0)
462 return ret;
464 qemu_get_be16s(f, &s->pmsts);
465 qemu_get_be16s(f, &s->pmen);
466 qemu_get_be16s(f, &s->pmcntrl);
467 qemu_get_8s(f, &s->apmc);
468 qemu_get_8s(f, &s->apms);
469 qemu_get_timer(f, s->tmr_timer);
470 s->tmr_overflow_time=qemu_get_be64(f);
472 pm_io_space_update(s);
474 return 0;
477 i2c_bus *piix4_pm_init(PCIBus *bus, int devfn, uint32_t smb_io_base,
478 qemu_irq sci_irq)
480 PIIX4PMState *s;
481 uint8_t *pci_conf;
483 s = (PIIX4PMState *)pci_register_device(bus,
484 "PM", sizeof(PIIX4PMState),
485 devfn, NULL, pm_write_config);
486 pm_state = s;
487 pci_conf = s->dev.config;
488 pci_conf[0x00] = 0x86;
489 pci_conf[0x01] = 0x80;
490 pci_conf[0x02] = 0x13;
491 pci_conf[0x03] = 0x71;
492 pci_conf[0x06] = 0x80;
493 pci_conf[0x07] = 0x02;
494 pci_conf[0x08] = 0x03; // revision number
495 pci_conf[0x09] = 0x00;
496 pci_conf[0x0a] = 0x80; // other bridge device
497 pci_conf[0x0b] = 0x06; // bridge device
498 pci_conf[0x0e] = 0x00; // header_type
499 pci_conf[0x3d] = 0x01; // interrupt pin 1
501 pci_conf[0x40] = 0x01; /* PM io base read only bit */
503 #if defined(TARGET_IA64)
504 pci_conf[0x40] = 0x41; /* PM io base read only bit */
505 pci_conf[0x41] = 0x1f;
506 pm_write_config(s, 0x80, 0x01, 1); /*Set default pm_io_base 0x1f40*/
507 s->pmcntrl = SCI_EN;
508 #endif
510 register_ioport_write(0xb2, 2, 1, pm_smi_writeb, s);
511 register_ioport_read(0xb2, 2, 1, pm_smi_readb, s);
513 register_ioport_write(ACPI_DBG_IO_ADDR, 4, 4, acpi_dbg_writel, s);
515 /* XXX: which specification is used ? The i82731AB has different
516 mappings */
517 pci_conf[0x5f] = (parallel_hds[0] != NULL ? 0x80 : 0) | 0x10;
518 pci_conf[0x63] = 0x60;
519 pci_conf[0x67] = (serial_hds[0] != NULL ? 0x08 : 0) |
520 (serial_hds[1] != NULL ? 0x90 : 0);
522 pci_conf[0x90] = smb_io_base | 1;
523 pci_conf[0x91] = smb_io_base >> 8;
524 pci_conf[0xd2] = 0x09;
525 register_ioport_write(smb_io_base, 64, 1, smb_ioport_writeb, s);
526 register_ioport_read(smb_io_base, 64, 1, smb_ioport_readb, s);
528 s->tmr_timer = qemu_new_timer(vm_clock, pm_tmr_timer, s);
530 register_savevm("piix4_pm", 0, 1, pm_save, pm_load, s);
532 s->smbus = i2c_init_bus();
533 s->irq = sci_irq;
534 return s->smbus;
537 #if defined(TARGET_I386)
538 void qemu_system_powerdown(void)
540 if (!pm_state) {
541 qemu_system_shutdown_request();
542 } else if (pm_state->pmen & PWRBTN_EN) {
543 pm_state->pmsts |= PWRBTN_EN;
544 pm_update_sci(pm_state);
547 #endif
548 #define GPE_BASE 0xafe0
549 #define PROC_BASE 0xaf00
550 #define PCI_BASE 0xae00
551 #define PCI_EJ_BASE 0xae08
553 struct gpe_regs {
554 uint16_t sts; /* status */
555 uint16_t en; /* enabled */
556 uint8_t up;
557 uint8_t down;
560 struct pci_status {
561 uint32_t up;
562 uint32_t down;
565 static struct gpe_regs gpe;
566 static struct pci_status pci0_status;
568 static uint32_t gpe_readb(void *opaque, uint32_t addr)
570 uint32_t val = 0;
571 struct gpe_regs *g = opaque;
572 switch (addr) {
573 case PROC_BASE:
574 val = g->up;
575 break;
576 case PROC_BASE + 1:
577 val = g->down;
578 break;
580 case GPE_BASE:
581 val = g->sts & 0xFF;
582 break;
583 case GPE_BASE + 1:
584 val = (g->sts >> 8) & 0xFF;
585 break;
586 case GPE_BASE + 2:
587 val = g->en & 0xFF;
588 break;
589 case GPE_BASE + 3:
590 val = (g->en >> 8) & 0xFF;
591 break;
592 default:
593 break;
596 #if defined(DEBUG)
597 printf("gpe read %x == %x\n", addr, val);
598 #endif
599 return val;
602 static void gpe_writeb(void *opaque, uint32_t addr, uint32_t val)
604 struct gpe_regs *g = opaque;
605 switch (addr) {
606 case PROC_BASE:
607 g->up = val;
608 break;
609 case PROC_BASE + 1:
610 g->down = val;
611 break;
613 case GPE_BASE:
614 g->sts = (g->sts & ~0xFFFF) | (val & 0xFFFF);
615 break;
616 case GPE_BASE + 1:
617 g->sts = (g->sts & 0xFFFF) | (val << 8);
618 break;
619 case GPE_BASE + 2:
620 g->en = (g->en & ~0xFFFF) | (val & 0xFFFF);
621 break;
622 case GPE_BASE + 3:
623 g->en = (g->en & 0xFFFF) | (val << 8);
624 break;
625 default:
626 break;
629 #if defined(DEBUG)
630 printf("gpe write %x <== %d\n", addr, val);
631 #endif
634 static uint32_t pcihotplug_read(void *opaque, uint32_t addr)
636 uint32_t val = 0;
637 struct pci_status *g = opaque;
638 switch (addr) {
639 case PCI_BASE:
640 val = g->up;
641 break;
642 case PCI_BASE + 4:
643 val = g->down;
644 break;
645 default:
646 break;
649 #if defined(DEBUG)
650 printf("pcihotplug read %x == %x\n", addr, val);
651 #endif
652 return val;
655 static void pcihotplug_write(void *opaque, uint32_t addr, uint32_t val)
657 struct pci_status *g = opaque;
658 switch (addr) {
659 case PCI_BASE:
660 g->up = val;
661 break;
662 case PCI_BASE + 4:
663 g->down = val;
664 break;
667 #if defined(DEBUG)
668 printf("pcihotplug write %x <== %d\n", addr, val);
669 #endif
672 static uint32_t pciej_read(void *opaque, uint32_t addr)
674 #if defined(DEBUG)
675 printf("pciej read %x\n", addr);
676 #endif
677 return 0;
680 static void pciej_write(void *opaque, uint32_t addr, uint32_t val)
682 int slot = ffs(val) - 1;
684 device_hot_remove_success(0, slot);
686 #if defined(DEBUG)
687 printf("pciej write %x <== %d\n", addr, val);
688 #endif
691 static const char *model;
693 void qemu_system_hot_add_init(const char *cpu_model)
695 register_ioport_write(GPE_BASE, 4, 1, gpe_writeb, &gpe);
696 register_ioport_read(GPE_BASE, 4, 1, gpe_readb, &gpe);
698 register_ioport_write(PROC_BASE, 4, 1, gpe_writeb, &gpe);
699 register_ioport_read(PROC_BASE, 4, 1, gpe_readb, &gpe);
701 register_ioport_write(PCI_BASE, 8, 4, pcihotplug_write, &pci0_status);
702 register_ioport_read(PCI_BASE, 8, 4, pcihotplug_read, &pci0_status);
704 register_ioport_write(PCI_EJ_BASE, 4, 4, pciej_write, NULL);
705 register_ioport_read(PCI_EJ_BASE, 4, 4, pciej_read, NULL);
707 model = cpu_model;
710 static void enable_processor(struct gpe_regs *g, int cpu)
712 g->sts |= 1;
713 g->en |= 1;
714 g->up |= (1 << cpu);
717 static void disable_processor(struct gpe_regs *g, int cpu)
719 g->sts |= 1;
720 g->en |= 1;
721 g->down |= (1 << cpu);
724 #if defined(TARGET_I386) || defined(TARGET_X86_64)
725 void qemu_system_cpu_hot_add(int cpu, int state)
727 CPUState *env;
729 if (state
730 #ifdef USE_KVM
731 && (!qemu_kvm_cpu_env(cpu))
732 #endif
734 env = pc_new_cpu(cpu, model, 1);
735 if (!env) {
736 fprintf(stderr, "cpu %d creation failed\n", cpu);
737 return;
739 #ifdef USE_KVM
740 kvm_init_new_ap(cpu, env);
741 #endif
744 qemu_set_irq(pm_state->irq, 1);
745 gpe.up = 0;
746 gpe.down = 0;
747 if (state)
748 enable_processor(&gpe, cpu);
749 else
750 disable_processor(&gpe, cpu);
751 qemu_set_irq(pm_state->irq, 0);
753 #endif
755 static void enable_device(struct pci_status *p, struct gpe_regs *g, int slot)
757 g->sts |= 2;
758 g->en |= 2;
759 p->up |= (1 << slot);
762 static void disable_device(struct pci_status *p, struct gpe_regs *g, int slot)
764 g->sts |= 2;
765 g->en |= 2;
766 p->down |= (1 << slot);
769 void qemu_system_device_hot_add(int pcibus, int slot, int state)
771 qemu_set_irq(pm_state->irq, 1);
772 pci0_status.up = 0;
773 pci0_status.down = 0;
774 if (state)
775 enable_device(&pci0_status, &gpe, slot);
776 else
777 disable_device(&pci0_status, &gpe, slot);
778 qemu_set_irq(pm_state->irq, 0);