2012-07-23 23:37:05 +02:00
|
|
|
/*
|
|
|
|
* QEMU S/390 Interrupt support
|
|
|
|
*
|
2014-03-11 13:52:06 +01:00
|
|
|
* Copyright IBM Corp. 2012, 2014
|
2012-07-23 23:37:05 +02:00
|
|
|
*
|
|
|
|
* This work is licensed under the terms of the GNU GPL, version 2 or (at your
|
|
|
|
* option) any later version. See the COPYING file in the top-level directory.
|
|
|
|
*/
|
|
|
|
|
2016-01-26 19:17:00 +01:00
|
|
|
#include "qemu/osdep.h"
|
2017-07-24 10:52:48 +02:00
|
|
|
#include "qemu/log.h"
|
2012-07-23 23:37:05 +02:00
|
|
|
#include "cpu.h"
|
2017-08-18 13:43:49 +02:00
|
|
|
#include "internal.h"
|
2017-07-24 10:52:48 +02:00
|
|
|
#include "exec/exec-all.h"
|
2012-12-17 18:20:04 +01:00
|
|
|
#include "sysemu/kvm.h"
|
2015-12-04 12:06:26 +01:00
|
|
|
#include "hw/s390x/ioinst.h"
|
|
|
|
|
2017-07-24 10:52:48 +02:00
|
|
|
/* Ensure to exit the TB after this call! */
|
|
|
|
void trigger_pgm_exception(CPUS390XState *env, uint32_t code, uint32_t ilen)
|
|
|
|
{
|
|
|
|
CPUState *cs = CPU(s390_env_get_cpu(env));
|
|
|
|
|
|
|
|
cs->exception_index = EXCP_PGM;
|
|
|
|
env->int_pgm_code = code;
|
|
|
|
env->int_pgm_ilen = ilen;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void tcg_s390_program_interrupt(CPUS390XState *env, uint32_t code,
|
|
|
|
int ilen)
|
|
|
|
{
|
|
|
|
#ifdef CONFIG_TCG
|
|
|
|
trigger_pgm_exception(env, code, ilen);
|
|
|
|
cpu_loop_exit(CPU(s390_env_get_cpu(env)));
|
|
|
|
#else
|
|
|
|
g_assert_not_reached();
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
void program_interrupt(CPUS390XState *env, uint32_t code, int ilen)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = s390_env_get_cpu(env);
|
|
|
|
|
|
|
|
qemu_log_mask(CPU_LOG_INT, "program interrupt at %#" PRIx64 "\n",
|
|
|
|
env->psw.addr);
|
|
|
|
|
|
|
|
if (kvm_enabled()) {
|
|
|
|
kvm_s390_program_interrupt(cpu, code);
|
|
|
|
} else if (tcg_enabled()) {
|
|
|
|
tcg_s390_program_interrupt(env, code, ilen);
|
|
|
|
} else {
|
|
|
|
g_assert_not_reached();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2015-12-04 12:06:26 +01:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
void cpu_inject_ext(S390CPU *cpu, uint32_t code, uint32_t param,
|
|
|
|
uint64_t param64)
|
|
|
|
{
|
|
|
|
CPUS390XState *env = &cpu->env;
|
|
|
|
|
|
|
|
if (env->ext_index == MAX_EXT_QUEUE - 1) {
|
|
|
|
/* ugh - can't queue anymore. Let's drop. */
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
env->ext_index++;
|
|
|
|
assert(env->ext_index < MAX_EXT_QUEUE);
|
|
|
|
|
|
|
|
env->ext_queue[env->ext_index].code = code;
|
|
|
|
env->ext_queue[env->ext_index].param = param;
|
|
|
|
env->ext_queue[env->ext_index].param64 = param64;
|
|
|
|
|
|
|
|
env->pending_int |= INTERRUPT_EXT;
|
|
|
|
cpu_interrupt(CPU(cpu), CPU_INTERRUPT_HARD);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void cpu_inject_io(S390CPU *cpu, uint16_t subchannel_id,
|
|
|
|
uint16_t subchannel_number,
|
|
|
|
uint32_t io_int_parm, uint32_t io_int_word)
|
|
|
|
{
|
|
|
|
CPUS390XState *env = &cpu->env;
|
|
|
|
int isc = IO_INT_WORD_ISC(io_int_word);
|
|
|
|
|
|
|
|
if (env->io_index[isc] == MAX_IO_QUEUE - 1) {
|
|
|
|
/* ugh - can't queue anymore. Let's drop. */
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
env->io_index[isc]++;
|
|
|
|
assert(env->io_index[isc] < MAX_IO_QUEUE);
|
|
|
|
|
|
|
|
env->io_queue[env->io_index[isc]][isc].id = subchannel_id;
|
|
|
|
env->io_queue[env->io_index[isc]][isc].nr = subchannel_number;
|
|
|
|
env->io_queue[env->io_index[isc]][isc].parm = io_int_parm;
|
|
|
|
env->io_queue[env->io_index[isc]][isc].word = io_int_word;
|
|
|
|
|
|
|
|
env->pending_int |= INTERRUPT_IO;
|
|
|
|
cpu_interrupt(CPU(cpu), CPU_INTERRUPT_HARD);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void cpu_inject_crw_mchk(S390CPU *cpu)
|
|
|
|
{
|
|
|
|
CPUS390XState *env = &cpu->env;
|
|
|
|
|
|
|
|
if (env->mchk_index == MAX_MCHK_QUEUE - 1) {
|
|
|
|
/* ugh - can't queue anymore. Let's drop. */
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
env->mchk_index++;
|
|
|
|
assert(env->mchk_index < MAX_MCHK_QUEUE);
|
|
|
|
|
|
|
|
env->mchk_queue[env->mchk_index].type = 1;
|
|
|
|
|
|
|
|
env->pending_int |= INTERRUPT_MCHK;
|
|
|
|
cpu_interrupt(CPU(cpu), CPU_INTERRUPT_HARD);
|
|
|
|
}
|
2012-07-23 23:37:05 +02:00
|
|
|
|
2014-03-11 13:52:06 +01:00
|
|
|
/*
|
|
|
|
* All of the following interrupts are floating, i.e. not per-vcpu.
|
2014-03-11 13:19:43 +01:00
|
|
|
* We just need a dummy cpustate in order to be able to inject in the
|
|
|
|
* non-kvm case.
|
2014-03-11 13:52:06 +01:00
|
|
|
*/
|
2012-07-23 23:37:05 +02:00
|
|
|
void s390_sclp_extint(uint32_t parm)
|
|
|
|
{
|
|
|
|
if (kvm_enabled()) {
|
2014-03-11 13:19:43 +01:00
|
|
|
kvm_s390_service_interrupt(parm);
|
2012-07-23 23:37:05 +02:00
|
|
|
} else {
|
2014-03-11 13:19:43 +01:00
|
|
|
S390CPU *dummy_cpu = s390_cpu_addr2state(0);
|
|
|
|
|
2013-01-30 13:48:24 +01:00
|
|
|
cpu_inject_ext(dummy_cpu, EXT_SERVICE, parm, 0);
|
2012-07-23 23:37:05 +02:00
|
|
|
}
|
|
|
|
}
|
2014-03-11 13:52:06 +01:00
|
|
|
|
2014-03-11 13:19:43 +01:00
|
|
|
void s390_io_interrupt(uint16_t subchannel_id, uint16_t subchannel_nr,
|
|
|
|
uint32_t io_int_parm, uint32_t io_int_word)
|
2014-03-11 13:52:06 +01:00
|
|
|
{
|
|
|
|
if (kvm_enabled()) {
|
2014-03-11 13:19:43 +01:00
|
|
|
kvm_s390_io_interrupt(subchannel_id, subchannel_nr, io_int_parm,
|
2014-03-11 13:52:06 +01:00
|
|
|
io_int_word);
|
|
|
|
} else {
|
2014-03-11 13:19:43 +01:00
|
|
|
S390CPU *dummy_cpu = s390_cpu_addr2state(0);
|
|
|
|
|
|
|
|
cpu_inject_io(dummy_cpu, subchannel_id, subchannel_nr, io_int_parm,
|
2014-03-11 13:52:06 +01:00
|
|
|
io_int_word);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-03-11 13:19:43 +01:00
|
|
|
void s390_crw_mchk(void)
|
2014-03-11 13:52:06 +01:00
|
|
|
{
|
|
|
|
if (kvm_enabled()) {
|
2014-03-11 13:19:43 +01:00
|
|
|
kvm_s390_crw_mchk();
|
2014-03-11 13:52:06 +01:00
|
|
|
} else {
|
2014-03-11 13:19:43 +01:00
|
|
|
S390CPU *dummy_cpu = s390_cpu_addr2state(0);
|
|
|
|
|
|
|
|
cpu_inject_crw_mchk(dummy_cpu);
|
2014-03-11 13:52:06 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2012-07-23 23:37:05 +02:00
|
|
|
#endif
|