2012-04-02 11:39:23 +02:00
|
|
|
/*
|
|
|
|
* QEMU S/390 CPU
|
|
|
|
*
|
2012-04-02 13:31:59 +02:00
|
|
|
* Copyright (c) 2009 Ulrich Hecht
|
|
|
|
* Copyright (c) 2011 Alexander Graf
|
2012-04-02 11:39:23 +02:00
|
|
|
* Copyright (c) 2012 SUSE LINUX Products GmbH
|
2013-01-07 06:27:14 +01:00
|
|
|
* Copyright (c) 2012 IBM Corp.
|
2012-04-02 11:39:23 +02:00
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
|
|
* License as published by the Free Software Foundation; either
|
|
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* 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/lgpl-2.1.html>
|
2013-01-07 06:27:14 +01:00
|
|
|
* Contributions after 2012-12-11 are licensed under the terms of the
|
|
|
|
* GNU GPL, version 2 or (at your option) any later version.
|
2012-04-02 11:39:23 +02:00
|
|
|
*/
|
|
|
|
|
2016-01-26 19:17:00 +01:00
|
|
|
#include "qemu/osdep.h"
|
2012-05-03 04:13:04 +02:00
|
|
|
#include "cpu.h"
|
2012-04-02 11:39:23 +02:00
|
|
|
#include "qemu-common.h"
|
2012-12-17 18:20:00 +01:00
|
|
|
#include "qemu/timer.h"
|
2014-09-30 10:57:29 +02:00
|
|
|
#include "qemu/error-report.h"
|
2013-01-07 06:27:14 +01:00
|
|
|
#include "hw/hw.h"
|
2014-09-30 10:57:29 +02:00
|
|
|
#include "trace.h"
|
2016-03-04 18:34:34 +01:00
|
|
|
#include "qapi/visitor.h"
|
2013-01-20 19:41:06 +01:00
|
|
|
#ifndef CONFIG_USER_ONLY
|
2012-12-18 08:50:59 +01:00
|
|
|
#include "sysemu/arch_init.h"
|
2016-03-04 18:34:34 +01:00
|
|
|
#include "sysemu/sysemu.h"
|
2016-03-04 18:34:35 +01:00
|
|
|
#include "hw/s390x/sclp.h"
|
2012-12-18 08:50:59 +01:00
|
|
|
#endif
|
|
|
|
|
2013-01-07 06:27:14 +01:00
|
|
|
#define CR0_RESET 0xE0UL
|
|
|
|
#define CR14_RESET 0xC2000000UL;
|
|
|
|
|
2012-12-18 08:50:59 +01:00
|
|
|
/* generate CPU information for cpu -? */
|
|
|
|
void s390_cpu_list(FILE *f, fprintf_function cpu_fprintf)
|
|
|
|
{
|
|
|
|
#ifdef CONFIG_KVM
|
|
|
|
(*cpu_fprintf)(f, "s390 %16s\n", "host");
|
|
|
|
#endif
|
|
|
|
}
|
2012-04-02 11:39:23 +02:00
|
|
|
|
2012-12-18 08:50:59 +01:00
|
|
|
#ifndef CONFIG_USER_ONLY
|
|
|
|
CpuDefinitionInfoList *arch_query_cpu_definitions(Error **errp)
|
|
|
|
{
|
|
|
|
CpuDefinitionInfoList *entry;
|
|
|
|
CpuDefinitionInfo *info;
|
|
|
|
|
|
|
|
info = g_malloc0(sizeof(*info));
|
|
|
|
info->name = g_strdup("host");
|
|
|
|
|
|
|
|
entry = g_malloc0(sizeof(*entry));
|
|
|
|
entry->value = info;
|
|
|
|
|
|
|
|
return entry;
|
|
|
|
}
|
|
|
|
#endif
|
2012-04-02 11:39:23 +02:00
|
|
|
|
2013-06-21 19:09:18 +02:00
|
|
|
static void s390_cpu_set_pc(CPUState *cs, vaddr value)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(cs);
|
|
|
|
|
|
|
|
cpu->env.psw.addr = value;
|
|
|
|
}
|
|
|
|
|
2013-08-25 18:53:55 +02:00
|
|
|
static bool s390_cpu_has_work(CPUState *cs)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(cs);
|
|
|
|
CPUS390XState *env = &cpu->env;
|
|
|
|
|
|
|
|
return (cs->interrupt_request & CPU_INTERRUPT_HARD) &&
|
|
|
|
(env->psw.mask & PSW_MASK_EXT);
|
|
|
|
}
|
|
|
|
|
2013-07-25 16:45:51 +02:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
/* S390CPUClass::load_normal() */
|
|
|
|
static void s390_cpu_load_normal(CPUState *s)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(s);
|
2013-11-15 14:46:38 +01:00
|
|
|
cpu->env.psw.addr = ldl_phys(s->as, 4) & PSW_MASK_ESA_ADDR;
|
2013-07-25 16:45:51 +02:00
|
|
|
cpu->env.psw.mask = PSW_MASK_32 | PSW_MASK_64;
|
2014-09-30 10:57:29 +02:00
|
|
|
s390_cpu_set_state(CPU_STATE_OPERATING, cpu);
|
2013-07-25 16:45:51 +02:00
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
/* S390CPUClass::cpu_reset() */
|
2012-04-02 11:39:23 +02:00
|
|
|
static void s390_cpu_reset(CPUState *s)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(s);
|
|
|
|
S390CPUClass *scc = S390_CPU_GET_CLASS(cpu);
|
|
|
|
CPUS390XState *env = &cpu->env;
|
|
|
|
|
2013-09-05 13:54:39 +02:00
|
|
|
env->pfault_token = -1UL;
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
scc->parent_reset(s);
|
2015-02-24 14:15:27 +01:00
|
|
|
cpu->env.sigp_order = 0;
|
2014-09-30 10:57:29 +02:00
|
|
|
s390_cpu_set_state(CPU_STATE_STOPPED, cpu);
|
2013-09-04 02:19:44 +02:00
|
|
|
tlb_flush(s, 1);
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* S390CPUClass::initial_reset() */
|
|
|
|
static void s390_cpu_initial_reset(CPUState *s)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(s);
|
|
|
|
CPUS390XState *env = &cpu->env;
|
2015-06-15 17:57:05 +02:00
|
|
|
int i;
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
|
|
|
|
s390_cpu_reset(s);
|
|
|
|
/* initial reset does not touch regs,fregs and aregs */
|
2013-08-26 21:22:53 +02:00
|
|
|
memset(&env->fpc, 0, offsetof(CPUS390XState, cpu_num) -
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
offsetof(CPUS390XState, fpc));
|
|
|
|
|
|
|
|
/* architectured initial values for CR 0 and 14 */
|
|
|
|
env->cregs[0] = CR0_RESET;
|
|
|
|
env->cregs[14] = CR14_RESET;
|
2013-09-05 13:54:39 +02:00
|
|
|
|
2015-06-13 00:46:03 +02:00
|
|
|
/* architectured initial value for Breaking-Event-Address register */
|
|
|
|
env->gbea = 1;
|
|
|
|
|
2013-09-05 13:54:39 +02:00
|
|
|
env->pfault_token = -1UL;
|
2015-06-15 17:57:04 +02:00
|
|
|
env->ext_index = -1;
|
2015-06-15 17:57:05 +02:00
|
|
|
for (i = 0; i < ARRAY_SIZE(env->io_index); i++) {
|
|
|
|
env->io_index[i] = -1;
|
|
|
|
}
|
2014-02-12 09:56:35 +01:00
|
|
|
|
2015-05-25 01:47:26 +02:00
|
|
|
/* tininess for underflow is detected before rounding */
|
|
|
|
set_float_detect_tininess(float_tininess_before_rounding,
|
|
|
|
&env->fpu_status);
|
|
|
|
|
2014-02-12 09:56:35 +01:00
|
|
|
/* Reset state inside the kernel that we cannot access yet from QEMU. */
|
|
|
|
if (kvm_enabled()) {
|
2014-09-30 10:57:31 +02:00
|
|
|
kvm_s390_reset_vcpu(cpu);
|
2014-02-12 09:56:35 +01:00
|
|
|
}
|
2015-06-15 17:57:06 +02:00
|
|
|
tlb_flush(s, 1);
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* CPUClass:reset() */
|
|
|
|
static void s390_cpu_full_reset(CPUState *s)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(s);
|
|
|
|
S390CPUClass *scc = S390_CPU_GET_CLASS(cpu);
|
|
|
|
CPUS390XState *env = &cpu->env;
|
2015-06-15 17:57:05 +02:00
|
|
|
int i;
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
|
2012-04-02 11:39:23 +02:00
|
|
|
scc->parent_reset(s);
|
2015-02-24 14:15:27 +01:00
|
|
|
cpu->env.sigp_order = 0;
|
2014-09-30 10:57:29 +02:00
|
|
|
s390_cpu_set_state(CPU_STATE_STOPPED, cpu);
|
2012-04-02 11:39:23 +02:00
|
|
|
|
2013-08-26 21:22:53 +02:00
|
|
|
memset(env, 0, offsetof(CPUS390XState, cpu_num));
|
2013-01-07 06:27:14 +01:00
|
|
|
|
|
|
|
/* architectured initial values for CR 0 and 14 */
|
|
|
|
env->cregs[0] = CR0_RESET;
|
|
|
|
env->cregs[14] = CR14_RESET;
|
2013-09-05 13:54:39 +02:00
|
|
|
|
2015-06-13 00:46:03 +02:00
|
|
|
/* architectured initial value for Breaking-Event-Address register */
|
|
|
|
env->gbea = 1;
|
|
|
|
|
2013-09-05 13:54:39 +02:00
|
|
|
env->pfault_token = -1UL;
|
2015-06-15 17:57:04 +02:00
|
|
|
env->ext_index = -1;
|
2015-06-15 17:57:05 +02:00
|
|
|
for (i = 0; i < ARRAY_SIZE(env->io_index); i++) {
|
|
|
|
env->io_index[i] = -1;
|
|
|
|
}
|
2013-09-05 13:54:39 +02:00
|
|
|
|
2015-05-25 01:47:26 +02:00
|
|
|
/* tininess for underflow is detected before rounding */
|
|
|
|
set_float_detect_tininess(float_tininess_before_rounding,
|
|
|
|
&env->fpu_status);
|
|
|
|
|
2014-09-30 10:57:31 +02:00
|
|
|
/* Reset state inside the kernel that we cannot access yet from QEMU. */
|
2013-03-20 13:11:56 +01:00
|
|
|
if (kvm_enabled()) {
|
|
|
|
kvm_s390_reset_vcpu(cpu);
|
|
|
|
}
|
2013-09-04 02:19:44 +02:00
|
|
|
tlb_flush(s, 1);
|
2012-04-02 11:39:23 +02:00
|
|
|
}
|
|
|
|
|
2013-01-07 06:27:14 +01:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
static void s390_cpu_machine_reset_cb(void *opaque)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = opaque;
|
|
|
|
|
2014-08-28 13:58:51 +02:00
|
|
|
run_on_cpu(CPU(cpu), s390_do_cpu_full_reset, CPU(cpu));
|
2013-01-07 06:27:14 +01:00
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2015-07-12 03:59:58 +02:00
|
|
|
static void s390_cpu_disas_set_info(CPUState *cpu, disassemble_info *info)
|
|
|
|
{
|
|
|
|
info->mach = bfd_mach_s390_64;
|
|
|
|
info->print_insn = print_insn_s390;
|
|
|
|
}
|
|
|
|
|
2013-01-16 04:00:41 +01:00
|
|
|
static void s390_cpu_realizefn(DeviceState *dev, Error **errp)
|
|
|
|
{
|
2013-07-27 02:53:25 +02:00
|
|
|
CPUState *cs = CPU(dev);
|
2013-01-16 04:00:41 +01:00
|
|
|
S390CPUClass *scc = S390_CPU_GET_CLASS(dev);
|
2016-03-04 18:34:31 +01:00
|
|
|
S390CPU *cpu = S390_CPU(dev);
|
|
|
|
CPUS390XState *env = &cpu->env;
|
|
|
|
Error *err = NULL;
|
|
|
|
|
2016-03-04 18:34:34 +01:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
if (cpu->id >= max_cpus) {
|
|
|
|
error_setg(&err, "Unable to add CPU: %" PRIi64
|
|
|
|
", max allowed: %d", cpu->id, max_cpus - 1);
|
|
|
|
goto out;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
if (cpu_exists(cpu->id)) {
|
|
|
|
error_setg(&err, "Unable to add CPU: %" PRIi64
|
|
|
|
", it already exists", cpu->id);
|
|
|
|
goto out;
|
|
|
|
}
|
|
|
|
if (cpu->id != scc->next_cpu_id) {
|
|
|
|
error_setg(&err, "Unable to add CPU: %" PRIi64
|
|
|
|
", The next available id is %" PRIi64, cpu->id,
|
|
|
|
scc->next_cpu_id);
|
|
|
|
goto out;
|
|
|
|
}
|
|
|
|
|
2016-03-04 18:34:31 +01:00
|
|
|
cpu_exec_init(cs, &err);
|
|
|
|
if (err != NULL) {
|
2016-03-04 18:34:34 +01:00
|
|
|
goto out;
|
2016-03-04 18:34:31 +01:00
|
|
|
}
|
2016-03-04 18:34:34 +01:00
|
|
|
scc->next_cpu_id++;
|
2013-01-16 04:00:41 +01:00
|
|
|
|
2016-03-04 18:34:31 +01:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
qemu_register_reset(s390_cpu_machine_reset_cb, cpu);
|
|
|
|
#endif
|
2016-03-04 18:34:34 +01:00
|
|
|
env->cpu_num = cpu->id;
|
2014-08-29 15:52:16 +02:00
|
|
|
s390_cpu_gdb_init(cs);
|
2013-07-27 02:53:25 +02:00
|
|
|
qemu_init_vcpu(cs);
|
2014-08-28 13:58:52 +02:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
run_on_cpu(cs, s390_do_cpu_full_reset, cs);
|
|
|
|
#else
|
2013-07-27 02:53:25 +02:00
|
|
|
cpu_reset(cs);
|
2014-08-28 13:58:52 +02:00
|
|
|
#endif
|
2013-01-16 04:00:41 +01:00
|
|
|
|
2016-03-04 18:34:34 +01:00
|
|
|
scc->parent_realize(dev, &err);
|
|
|
|
|
2016-03-04 18:34:35 +01:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
if (dev->hotplugged) {
|
|
|
|
raise_irq_cpu_hotplug();
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2016-03-04 18:34:34 +01:00
|
|
|
out:
|
|
|
|
error_propagate(errp, err);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void s390x_cpu_get_id(Object *obj, Visitor *v, const char *name,
|
|
|
|
void *opaque, Error **errp)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(obj);
|
|
|
|
int64_t value = cpu->id;
|
|
|
|
|
|
|
|
visit_type_int(v, name, &value, errp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void s390x_cpu_set_id(Object *obj, Visitor *v, const char *name,
|
|
|
|
void *opaque, Error **errp)
|
|
|
|
{
|
|
|
|
S390CPU *cpu = S390_CPU(obj);
|
|
|
|
DeviceState *dev = DEVICE(obj);
|
|
|
|
const int64_t min = 0;
|
|
|
|
const int64_t max = UINT32_MAX;
|
|
|
|
Error *err = NULL;
|
|
|
|
int64_t value;
|
|
|
|
|
|
|
|
if (dev->realized) {
|
|
|
|
error_setg(errp, "Attempt to set property '%s' on '%s' after "
|
|
|
|
"it was realized", name, object_get_typename(obj));
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
visit_type_int(v, name, &value, &err);
|
|
|
|
if (err) {
|
|
|
|
error_propagate(errp, err);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
if (value < min || value > max) {
|
|
|
|
error_setg(errp, "Property %s.%s doesn't take value %" PRId64
|
|
|
|
" (minimum: %" PRId64 ", maximum: %" PRId64 ")" ,
|
|
|
|
object_get_typename(obj), name, value, min, max);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
cpu->id = value;
|
2013-01-16 04:00:41 +01:00
|
|
|
}
|
|
|
|
|
2012-04-02 13:56:29 +02:00
|
|
|
static void s390_cpu_initfn(Object *obj)
|
|
|
|
{
|
2013-01-17 12:13:41 +01:00
|
|
|
CPUState *cs = CPU(obj);
|
2012-04-02 13:56:29 +02:00
|
|
|
S390CPU *cpu = S390_CPU(obj);
|
|
|
|
CPUS390XState *env = &cpu->env;
|
2013-01-19 22:43:32 +01:00
|
|
|
static bool inited;
|
2012-04-02 13:56:29 +02:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
struct tm tm;
|
|
|
|
#endif
|
|
|
|
|
2013-01-17 12:13:41 +01:00
|
|
|
cs->env_ptr = env;
|
2016-03-04 18:34:30 +01:00
|
|
|
cs->halted = 1;
|
|
|
|
cs->exception_index = EXCP_HLT;
|
2016-03-04 18:34:34 +01:00
|
|
|
object_property_add(OBJECT(cpu), "id", "int64_t", s390x_cpu_get_id,
|
|
|
|
s390x_cpu_set_id, NULL, NULL, NULL);
|
2012-04-02 13:56:29 +02:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
qemu_get_timedate(&tm, 0);
|
|
|
|
env->tod_offset = TOD_UNIX_EPOCH +
|
|
|
|
(time2tod(mktimegm(&tm)) * 1000000000ULL);
|
|
|
|
env->tod_basetime = 0;
|
2013-08-21 17:03:08 +02:00
|
|
|
env->tod_timer = timer_new_ns(QEMU_CLOCK_VIRTUAL, s390x_tod_timer, cpu);
|
|
|
|
env->cpu_timer = timer_new_ns(QEMU_CLOCK_VIRTUAL, s390x_cpu_timer, cpu);
|
2014-09-30 10:57:29 +02:00
|
|
|
s390_cpu_set_state(CPU_STATE_STOPPED, cpu);
|
2012-04-02 13:56:29 +02:00
|
|
|
#endif
|
2013-01-19 22:43:32 +01:00
|
|
|
|
|
|
|
if (tcg_enabled() && !inited) {
|
|
|
|
inited = true;
|
|
|
|
s390x_translate_init();
|
|
|
|
}
|
2012-04-02 13:56:29 +02:00
|
|
|
}
|
|
|
|
|
2013-01-07 07:14:16 +01:00
|
|
|
static void s390_cpu_finalize(Object *obj)
|
|
|
|
{
|
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
S390CPU *cpu = S390_CPU(obj);
|
|
|
|
|
|
|
|
qemu_unregister_reset(s390_cpu_machine_reset_cb, cpu);
|
2015-03-02 17:44:24 +01:00
|
|
|
g_free(cpu->irqstate);
|
2013-01-07 07:14:16 +01:00
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
2014-09-30 10:57:28 +02:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
2014-09-30 10:57:29 +02:00
|
|
|
static bool disabled_wait(CPUState *cpu)
|
|
|
|
{
|
|
|
|
return cpu->halted && !(S390_CPU(cpu)->env.psw.mask &
|
|
|
|
(PSW_MASK_IO | PSW_MASK_EXT | PSW_MASK_MCHECK));
|
|
|
|
}
|
|
|
|
|
2014-09-30 10:57:28 +02:00
|
|
|
static unsigned s390_count_running_cpus(void)
|
|
|
|
{
|
|
|
|
CPUState *cpu;
|
|
|
|
int nr_running = 0;
|
|
|
|
|
|
|
|
CPU_FOREACH(cpu) {
|
|
|
|
uint8_t state = S390_CPU(cpu)->env.cpu_state;
|
|
|
|
if (state == CPU_STATE_OPERATING ||
|
|
|
|
state == CPU_STATE_LOAD) {
|
2014-09-30 10:57:29 +02:00
|
|
|
if (!disabled_wait(cpu)) {
|
|
|
|
nr_running++;
|
|
|
|
}
|
2014-09-30 10:57:28 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return nr_running;
|
|
|
|
}
|
|
|
|
|
2014-09-30 10:57:29 +02:00
|
|
|
unsigned int s390_cpu_halt(S390CPU *cpu)
|
2014-09-30 10:57:28 +02:00
|
|
|
{
|
|
|
|
CPUState *cs = CPU(cpu);
|
2014-09-30 10:57:29 +02:00
|
|
|
trace_cpu_halt(cs->cpu_index);
|
2014-09-30 10:57:28 +02:00
|
|
|
|
2014-09-30 10:57:29 +02:00
|
|
|
if (!cs->halted) {
|
|
|
|
cs->halted = 1;
|
|
|
|
cs->exception_index = EXCP_HLT;
|
2014-09-30 10:57:28 +02:00
|
|
|
}
|
2014-09-30 10:57:29 +02:00
|
|
|
|
|
|
|
return s390_count_running_cpus();
|
2014-09-30 10:57:28 +02:00
|
|
|
}
|
|
|
|
|
2014-09-30 10:57:29 +02:00
|
|
|
void s390_cpu_unhalt(S390CPU *cpu)
|
2014-09-30 10:57:28 +02:00
|
|
|
{
|
|
|
|
CPUState *cs = CPU(cpu);
|
2014-09-30 10:57:29 +02:00
|
|
|
trace_cpu_unhalt(cs->cpu_index);
|
2014-09-30 10:57:28 +02:00
|
|
|
|
2014-09-30 10:57:29 +02:00
|
|
|
if (cs->halted) {
|
|
|
|
cs->halted = 0;
|
|
|
|
cs->exception_index = -1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
unsigned int s390_cpu_set_state(uint8_t cpu_state, S390CPU *cpu)
|
|
|
|
{
|
|
|
|
trace_cpu_set_state(CPU(cpu)->cpu_index, cpu_state);
|
|
|
|
|
|
|
|
switch (cpu_state) {
|
|
|
|
case CPU_STATE_STOPPED:
|
|
|
|
case CPU_STATE_CHECK_STOP:
|
|
|
|
/* halt the cpu for common infrastructure */
|
|
|
|
s390_cpu_halt(cpu);
|
|
|
|
break;
|
|
|
|
case CPU_STATE_OPERATING:
|
|
|
|
case CPU_STATE_LOAD:
|
|
|
|
/* unhalt the cpu for common infrastructure */
|
|
|
|
s390_cpu_unhalt(cpu);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
error_report("Requested CPU state is not a valid S390 CPU state: %u",
|
|
|
|
cpu_state);
|
|
|
|
exit(1);
|
2014-09-30 10:57:28 +02:00
|
|
|
}
|
2014-09-30 10:57:30 +02:00
|
|
|
if (kvm_enabled() && cpu->env.cpu_state != cpu_state) {
|
|
|
|
kvm_s390_set_cpu_state(cpu, cpu_state);
|
|
|
|
}
|
2014-09-30 10:57:29 +02:00
|
|
|
cpu->env.cpu_state = cpu_state;
|
2014-09-30 10:57:28 +02:00
|
|
|
|
|
|
|
return s390_count_running_cpus();
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2015-12-03 13:14:41 +01:00
|
|
|
static gchar *s390_gdb_arch_name(CPUState *cs)
|
|
|
|
{
|
|
|
|
return g_strdup("s390:64-bit");
|
|
|
|
}
|
|
|
|
|
2012-04-02 11:39:23 +02:00
|
|
|
static void s390_cpu_class_init(ObjectClass *oc, void *data)
|
|
|
|
{
|
|
|
|
S390CPUClass *scc = S390_CPU_CLASS(oc);
|
|
|
|
CPUClass *cc = CPU_CLASS(scc);
|
2013-01-20 19:41:06 +01:00
|
|
|
DeviceClass *dc = DEVICE_CLASS(oc);
|
2012-04-02 11:39:23 +02:00
|
|
|
|
2016-03-04 18:34:31 +01:00
|
|
|
scc->next_cpu_id = 0;
|
2013-01-16 04:00:41 +01:00
|
|
|
scc->parent_realize = dc->realize;
|
|
|
|
dc->realize = s390_cpu_realizefn;
|
|
|
|
|
2012-04-02 11:39:23 +02:00
|
|
|
scc->parent_reset = cc->reset;
|
2013-07-25 16:45:51 +02:00
|
|
|
#if !defined(CONFIG_USER_ONLY)
|
|
|
|
scc->load_normal = s390_cpu_load_normal;
|
|
|
|
#endif
|
s390/cpu: split CPU reset into architectured functions
s390 provides several CPU resets:
- CPU reset, clears interrupts, stop processing, clears TLB, but does
not touch registers
- initial CPU reset, like CPU reset, but also clears PSW, prefix, FPC,
timer and control registers. It does not touch gprs, fprs and acrs (!)
- Power on reset: the full monty
wire up CPUClass reset to the full monty, but provide the lesser resets
as part of S390CPUClass.
Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com>
2013-06-28 10:51:09 +02:00
|
|
|
scc->cpu_reset = s390_cpu_reset;
|
|
|
|
scc->initial_cpu_reset = s390_cpu_initial_reset;
|
|
|
|
cc->reset = s390_cpu_full_reset;
|
2013-08-25 18:53:55 +02:00
|
|
|
cc->has_work = s390_cpu_has_work;
|
2013-02-02 10:57:51 +01:00
|
|
|
cc->do_interrupt = s390_cpu_do_interrupt;
|
2013-05-27 01:33:50 +02:00
|
|
|
cc->dump_state = s390_cpu_dump_state;
|
2013-06-21 19:09:18 +02:00
|
|
|
cc->set_pc = s390_cpu_set_pc;
|
2013-06-29 04:18:45 +02:00
|
|
|
cc->gdb_read_register = s390_cpu_gdb_read_register;
|
|
|
|
cc->gdb_write_register = s390_cpu_gdb_write_register;
|
2013-08-26 03:01:33 +02:00
|
|
|
#ifdef CONFIG_USER_ONLY
|
|
|
|
cc->handle_mmu_fault = s390_cpu_handle_mmu_fault;
|
|
|
|
#else
|
2013-06-29 18:55:54 +02:00
|
|
|
cc->get_phys_page_debug = s390_cpu_get_phys_page_debug;
|
2014-09-30 10:58:42 +02:00
|
|
|
cc->vmsd = &vmstate_s390_cpu;
|
2013-07-10 15:26:46 +02:00
|
|
|
cc->write_elf64_note = s390_cpu_write_elf64_note;
|
2014-09-13 18:45:19 +02:00
|
|
|
cc->cpu_exec_interrupt = s390_cpu_exec_interrupt;
|
2015-06-13 00:46:00 +02:00
|
|
|
cc->debug_excp_handler = s390x_cpu_debug_excp_handler;
|
2013-06-29 18:55:54 +02:00
|
|
|
#endif
|
2015-07-12 03:59:58 +02:00
|
|
|
cc->disas_set_info = s390_cpu_disas_set_info;
|
|
|
|
|
2014-08-29 15:52:16 +02:00
|
|
|
cc->gdb_num_core_regs = S390_NUM_CORE_REGS;
|
|
|
|
cc->gdb_core_xml_file = "s390x-core64.xml";
|
2015-12-03 13:14:41 +01:00
|
|
|
cc->gdb_arch_name = s390_gdb_arch_name;
|
qdev: Protect device-list-properties against broken devices
Several devices don't survive object_unref(object_new(T)): they crash
or hang during cleanup, or they leave dangling pointers behind.
This breaks at least device-list-properties, because
qmp_device_list_properties() needs to create a device to find its
properties. Broken in commit f4eb32b "qmp: show QOM properties in
device-list-properties", v2.1. Example reproducer:
$ qemu-system-aarch64 -nodefaults -display none -machine none -S -qmp stdio
{"QMP": {"version": {"qemu": {"micro": 50, "minor": 4, "major": 2}, "package": ""}, "capabilities": []}}
{ "execute": "qmp_capabilities" }
{"return": {}}
{ "execute": "device-list-properties", "arguments": { "typename": "pxa2xx-pcmcia" } }
qemu-system-aarch64: /home/armbru/work/qemu/memory.c:1307: memory_region_finalize: Assertion `((&mr->subregions)->tqh_first == ((void *)0))' failed.
Aborted (core dumped)
[Exit 134 (SIGABRT)]
Unfortunately, I can't fix the problems in these devices right now.
Instead, add DeviceClass member cannot_destroy_with_object_finalize_yet
to mark them:
* Hang during cleanup (didn't debug, so I can't say why):
"realview_pci", "versatile_pci".
* Dangling pointer in cpus: most CPUs, plus "allwinner-a10", "digic",
"fsl,imx25", "fsl,imx31", "xlnx,zynqmp", because they create such
CPUs
* Assert kvm_enabled(): "host-x86_64-cpu", host-i386-cpu",
"host-powerpc64-cpu", "host-embedded-powerpc-cpu",
"host-powerpc-cpu" (the powerpc ones can't currently reach the
assertion, because the CPUs are only registered when KVM is enabled,
but the assertion is arguably in the wrong place all the same)
Make qmp_device_list_properties() fail cleanly when the device is so
marked. This improves device-list-properties from "crashes, hangs or
leaves dangling pointers behind" to "fails". Not a complete fix, just
a better-than-nothing work-around. In the above reproducer,
device-list-properties now fails with "Can't list properties of device
'pxa2xx-pcmcia'".
This also protects -device FOO,help, which uses the same machinery
since commit ef52358 "qdev-monitor: include QOM properties in -device
FOO, help output", v2.2. Example reproducer:
$ qemu-system-aarch64 -machine none -device pxa2xx-pcmcia,help
Before:
qemu-system-aarch64: .../memory.c:1307: memory_region_finalize: Assertion `((&mr->subregions)->tqh_first == ((void *)0))' failed.
After:
Can't list properties of device 'pxa2xx-pcmcia'
Cc: "Andreas Färber" <afaerber@suse.de>
Cc: "Edgar E. Iglesias" <edgar.iglesias@gmail.com>
Cc: Alexander Graf <agraf@suse.de>
Cc: Anthony Green <green@moxielogic.com>
Cc: Aurelien Jarno <aurelien@aurel32.net>
Cc: Bastian Koppelmann <kbastian@mail.uni-paderborn.de>
Cc: Blue Swirl <blauwirbel@gmail.com>
Cc: Eduardo Habkost <ehabkost@redhat.com>
Cc: Guan Xuetao <gxt@mprc.pku.edu.cn>
Cc: Jia Liu <proljc@gmail.com>
Cc: Leon Alrae <leon.alrae@imgtec.com>
Cc: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
Cc: Max Filippov <jcmvbkbc@gmail.com>
Cc: Michael Walle <michael@walle.cc>
Cc: Paolo Bonzini <pbonzini@redhat.com>
Cc: Peter Maydell <peter.maydell@linaro.org>
Cc: Richard Henderson <rth@twiddle.net>
Cc: qemu-ppc@nongnu.org
Cc: qemu-stable@nongnu.org
Signed-off-by: Markus Armbruster <armbru@redhat.com>
Reviewed-by: Eduardo Habkost <ehabkost@redhat.com>
Message-Id: <1443689999-12182-10-git-send-email-armbru@redhat.com>
2015-10-01 10:59:58 +02:00
|
|
|
|
|
|
|
/*
|
2016-03-04 18:34:31 +01:00
|
|
|
* Reason: s390_cpu_realizefn() calls cpu_exec_init(), which saves
|
qdev: Protect device-list-properties against broken devices
Several devices don't survive object_unref(object_new(T)): they crash
or hang during cleanup, or they leave dangling pointers behind.
This breaks at least device-list-properties, because
qmp_device_list_properties() needs to create a device to find its
properties. Broken in commit f4eb32b "qmp: show QOM properties in
device-list-properties", v2.1. Example reproducer:
$ qemu-system-aarch64 -nodefaults -display none -machine none -S -qmp stdio
{"QMP": {"version": {"qemu": {"micro": 50, "minor": 4, "major": 2}, "package": ""}, "capabilities": []}}
{ "execute": "qmp_capabilities" }
{"return": {}}
{ "execute": "device-list-properties", "arguments": { "typename": "pxa2xx-pcmcia" } }
qemu-system-aarch64: /home/armbru/work/qemu/memory.c:1307: memory_region_finalize: Assertion `((&mr->subregions)->tqh_first == ((void *)0))' failed.
Aborted (core dumped)
[Exit 134 (SIGABRT)]
Unfortunately, I can't fix the problems in these devices right now.
Instead, add DeviceClass member cannot_destroy_with_object_finalize_yet
to mark them:
* Hang during cleanup (didn't debug, so I can't say why):
"realview_pci", "versatile_pci".
* Dangling pointer in cpus: most CPUs, plus "allwinner-a10", "digic",
"fsl,imx25", "fsl,imx31", "xlnx,zynqmp", because they create such
CPUs
* Assert kvm_enabled(): "host-x86_64-cpu", host-i386-cpu",
"host-powerpc64-cpu", "host-embedded-powerpc-cpu",
"host-powerpc-cpu" (the powerpc ones can't currently reach the
assertion, because the CPUs are only registered when KVM is enabled,
but the assertion is arguably in the wrong place all the same)
Make qmp_device_list_properties() fail cleanly when the device is so
marked. This improves device-list-properties from "crashes, hangs or
leaves dangling pointers behind" to "fails". Not a complete fix, just
a better-than-nothing work-around. In the above reproducer,
device-list-properties now fails with "Can't list properties of device
'pxa2xx-pcmcia'".
This also protects -device FOO,help, which uses the same machinery
since commit ef52358 "qdev-monitor: include QOM properties in -device
FOO, help output", v2.2. Example reproducer:
$ qemu-system-aarch64 -machine none -device pxa2xx-pcmcia,help
Before:
qemu-system-aarch64: .../memory.c:1307: memory_region_finalize: Assertion `((&mr->subregions)->tqh_first == ((void *)0))' failed.
After:
Can't list properties of device 'pxa2xx-pcmcia'
Cc: "Andreas Färber" <afaerber@suse.de>
Cc: "Edgar E. Iglesias" <edgar.iglesias@gmail.com>
Cc: Alexander Graf <agraf@suse.de>
Cc: Anthony Green <green@moxielogic.com>
Cc: Aurelien Jarno <aurelien@aurel32.net>
Cc: Bastian Koppelmann <kbastian@mail.uni-paderborn.de>
Cc: Blue Swirl <blauwirbel@gmail.com>
Cc: Eduardo Habkost <ehabkost@redhat.com>
Cc: Guan Xuetao <gxt@mprc.pku.edu.cn>
Cc: Jia Liu <proljc@gmail.com>
Cc: Leon Alrae <leon.alrae@imgtec.com>
Cc: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
Cc: Max Filippov <jcmvbkbc@gmail.com>
Cc: Michael Walle <michael@walle.cc>
Cc: Paolo Bonzini <pbonzini@redhat.com>
Cc: Peter Maydell <peter.maydell@linaro.org>
Cc: Richard Henderson <rth@twiddle.net>
Cc: qemu-ppc@nongnu.org
Cc: qemu-stable@nongnu.org
Signed-off-by: Markus Armbruster <armbru@redhat.com>
Reviewed-by: Eduardo Habkost <ehabkost@redhat.com>
Message-Id: <1443689999-12182-10-git-send-email-armbru@redhat.com>
2015-10-01 10:59:58 +02:00
|
|
|
* the object in cpus -> dangling pointer after final
|
|
|
|
* object_unref().
|
|
|
|
*/
|
|
|
|
dc->cannot_destroy_with_object_finalize_yet = true;
|
2012-04-02 11:39:23 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static const TypeInfo s390_cpu_type_info = {
|
|
|
|
.name = TYPE_S390_CPU,
|
|
|
|
.parent = TYPE_CPU,
|
|
|
|
.instance_size = sizeof(S390CPU),
|
2012-04-02 13:56:29 +02:00
|
|
|
.instance_init = s390_cpu_initfn,
|
2013-01-07 07:14:16 +01:00
|
|
|
.instance_finalize = s390_cpu_finalize,
|
2012-04-02 11:39:23 +02:00
|
|
|
.abstract = false,
|
|
|
|
.class_size = sizeof(S390CPUClass),
|
|
|
|
.class_init = s390_cpu_class_init,
|
|
|
|
};
|
|
|
|
|
|
|
|
static void s390_cpu_register_types(void)
|
|
|
|
{
|
|
|
|
type_register_static(&s390_cpu_type_info);
|
|
|
|
}
|
|
|
|
|
|
|
|
type_init(s390_cpu_register_types)
|