2 * QEMU S/390 Interrupt support
4 * Copyright IBM Corp. 2012, 2014
6 * This work is licensed under the terms of the GNU GPL, version 2 or (at your
7 * option) any later version. See the COPYING file in the top-level directory.
10 #include "qemu/osdep.h"
13 #include "exec/exec-all.h"
14 #include "sysemu/kvm.h"
15 #include "hw/s390x/ioinst.h"
17 /* Ensure to exit the TB after this call! */
18 void trigger_pgm_exception(CPUS390XState
*env
, uint32_t code
, uint32_t ilen
)
20 CPUState
*cs
= CPU(s390_env_get_cpu(env
));
22 cs
->exception_index
= EXCP_PGM
;
23 env
->int_pgm_code
= code
;
24 env
->int_pgm_ilen
= ilen
;
27 static void tcg_s390_program_interrupt(CPUS390XState
*env
, uint32_t code
,
31 trigger_pgm_exception(env
, code
, ilen
);
32 cpu_loop_exit(CPU(s390_env_get_cpu(env
)));
34 g_assert_not_reached();
38 void program_interrupt(CPUS390XState
*env
, uint32_t code
, int ilen
)
40 S390CPU
*cpu
= s390_env_get_cpu(env
);
42 qemu_log_mask(CPU_LOG_INT
, "program interrupt at %#" PRIx64
"\n",
46 kvm_s390_program_interrupt(cpu
, code
);
47 } else if (tcg_enabled()) {
48 tcg_s390_program_interrupt(env
, code
, ilen
);
50 g_assert_not_reached();
54 #if !defined(CONFIG_USER_ONLY)
55 void cpu_inject_ext(S390CPU
*cpu
, uint32_t code
, uint32_t param
,
58 CPUS390XState
*env
= &cpu
->env
;
60 if (env
->ext_index
== MAX_EXT_QUEUE
- 1) {
61 /* ugh - can't queue anymore. Let's drop. */
66 assert(env
->ext_index
< MAX_EXT_QUEUE
);
68 env
->ext_queue
[env
->ext_index
].code
= code
;
69 env
->ext_queue
[env
->ext_index
].param
= param
;
70 env
->ext_queue
[env
->ext_index
].param64
= param64
;
72 env
->pending_int
|= INTERRUPT_EXT
;
73 cpu_interrupt(CPU(cpu
), CPU_INTERRUPT_HARD
);
76 static void cpu_inject_io(S390CPU
*cpu
, uint16_t subchannel_id
,
77 uint16_t subchannel_number
,
78 uint32_t io_int_parm
, uint32_t io_int_word
)
80 CPUS390XState
*env
= &cpu
->env
;
81 int isc
= IO_INT_WORD_ISC(io_int_word
);
83 if (env
->io_index
[isc
] == MAX_IO_QUEUE
- 1) {
84 /* ugh - can't queue anymore. Let's drop. */
89 assert(env
->io_index
[isc
] < MAX_IO_QUEUE
);
91 env
->io_queue
[env
->io_index
[isc
]][isc
].id
= subchannel_id
;
92 env
->io_queue
[env
->io_index
[isc
]][isc
].nr
= subchannel_number
;
93 env
->io_queue
[env
->io_index
[isc
]][isc
].parm
= io_int_parm
;
94 env
->io_queue
[env
->io_index
[isc
]][isc
].word
= io_int_word
;
96 env
->pending_int
|= INTERRUPT_IO
;
97 cpu_interrupt(CPU(cpu
), CPU_INTERRUPT_HARD
);
100 static void cpu_inject_crw_mchk(S390CPU
*cpu
)
102 CPUS390XState
*env
= &cpu
->env
;
104 if (env
->mchk_index
== MAX_MCHK_QUEUE
- 1) {
105 /* ugh - can't queue anymore. Let's drop. */
110 assert(env
->mchk_index
< MAX_MCHK_QUEUE
);
112 env
->mchk_queue
[env
->mchk_index
].type
= 1;
114 env
->pending_int
|= INTERRUPT_MCHK
;
115 cpu_interrupt(CPU(cpu
), CPU_INTERRUPT_HARD
);
119 * All of the following interrupts are floating, i.e. not per-vcpu.
120 * We just need a dummy cpustate in order to be able to inject in the
123 void s390_sclp_extint(uint32_t parm
)
126 kvm_s390_service_interrupt(parm
);
128 S390CPU
*dummy_cpu
= s390_cpu_addr2state(0);
130 cpu_inject_ext(dummy_cpu
, EXT_SERVICE
, parm
, 0);
134 void s390_io_interrupt(uint16_t subchannel_id
, uint16_t subchannel_nr
,
135 uint32_t io_int_parm
, uint32_t io_int_word
)
138 kvm_s390_io_interrupt(subchannel_id
, subchannel_nr
, io_int_parm
,
141 S390CPU
*dummy_cpu
= s390_cpu_addr2state(0);
143 cpu_inject_io(dummy_cpu
, subchannel_id
, subchannel_nr
, io_int_parm
,
148 void s390_crw_mchk(void)
153 S390CPU
*dummy_cpu
= s390_cpu_addr2state(0);
155 cpu_inject_crw_mchk(dummy_cpu
);