4 * Copyright (c) 2009 Ulrich Hecht
5 * Copyright (c) 2011 Alexander Graf
6 * Copyright (c) 2012 SUSE LINUX Products GmbH
7 * Copyright (c) 2012 IBM Corp.
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, see
21 * <http://www.gnu.org/licenses/lgpl-2.1.html>
22 * Contributions after 2012-12-11 are licensed under the terms of the
23 * GNU GPL, version 2 or (at your option) any later version.
27 #include "qemu-common.h"
28 #include "qemu/timer.h"
30 #ifndef CONFIG_USER_ONLY
31 #include "sysemu/arch_init.h"
34 #define CR0_RESET 0xE0UL
35 #define CR14_RESET 0xC2000000UL;
37 /* generate CPU information for cpu -? */
38 void s390_cpu_list(FILE *f
, fprintf_function cpu_fprintf
)
41 (*cpu_fprintf
)(f
, "s390 %16s\n", "host");
45 #ifndef CONFIG_USER_ONLY
46 CpuDefinitionInfoList
*arch_query_cpu_definitions(Error
**errp
)
48 CpuDefinitionInfoList
*entry
;
49 CpuDefinitionInfo
*info
;
51 info
= g_malloc0(sizeof(*info
));
52 info
->name
= g_strdup("host");
54 entry
= g_malloc0(sizeof(*entry
));
61 static void s390_cpu_set_pc(CPUState
*cs
, vaddr value
)
63 S390CPU
*cpu
= S390_CPU(cs
);
65 cpu
->env
.psw
.addr
= value
;
68 /* CPUClass::reset() */
69 static void s390_cpu_reset(CPUState
*s
)
71 S390CPU
*cpu
= S390_CPU(s
);
72 S390CPUClass
*scc
= S390_CPU_GET_CLASS(cpu
);
73 CPUS390XState
*env
= &cpu
->env
;
75 s390_del_running_cpu(cpu
);
79 memset(env
, 0, offsetof(CPUS390XState
, breakpoints
));
81 /* architectured initial values for CR 0 and 14 */
82 env
->cregs
[0] = CR0_RESET
;
83 env
->cregs
[14] = CR14_RESET
;
84 /* set halted to 1 to make sure we can add the cpu in
85 * s390_ipl_cpu code, where CPUState::halted is set back to 0
86 * after incrementing the cpu counter */
87 #if !defined(CONFIG_USER_ONLY)
93 #if !defined(CONFIG_USER_ONLY)
94 static void s390_cpu_machine_reset_cb(void *opaque
)
96 S390CPU
*cpu
= opaque
;
102 static void s390_cpu_realizefn(DeviceState
*dev
, Error
**errp
)
104 CPUState
*cs
= CPU(dev
);
105 S390CPUClass
*scc
= S390_CPU_GET_CLASS(dev
);
110 scc
->parent_realize(dev
, errp
);
113 static void s390_cpu_initfn(Object
*obj
)
115 CPUState
*cs
= CPU(obj
);
116 S390CPU
*cpu
= S390_CPU(obj
);
117 CPUS390XState
*env
= &cpu
->env
;
119 static int cpu_num
= 0;
120 #if !defined(CONFIG_USER_ONLY)
126 #if !defined(CONFIG_USER_ONLY)
127 qemu_register_reset(s390_cpu_machine_reset_cb
, cpu
);
128 qemu_get_timedate(&tm
, 0);
129 env
->tod_offset
= TOD_UNIX_EPOCH
+
130 (time2tod(mktimegm(&tm
)) * 1000000000ULL);
131 env
->tod_basetime
= 0;
132 env
->tod_timer
= qemu_new_timer_ns(vm_clock
, s390x_tod_timer
, cpu
);
133 env
->cpu_timer
= qemu_new_timer_ns(vm_clock
, s390x_cpu_timer
, cpu
);
134 /* set CPUState::halted state to 1 to avoid decrementing the running
135 * cpu counter in s390_cpu_reset to a negative number at
139 env
->cpu_num
= cpu_num
++;
142 if (tcg_enabled() && !inited
) {
144 s390x_translate_init();
148 static void s390_cpu_finalize(Object
*obj
)
150 #if !defined(CONFIG_USER_ONLY)
151 S390CPU
*cpu
= S390_CPU(obj
);
153 qemu_unregister_reset(s390_cpu_machine_reset_cb
, cpu
);
157 static const VMStateDescription vmstate_s390_cpu
= {
162 static void s390_cpu_class_init(ObjectClass
*oc
, void *data
)
164 S390CPUClass
*scc
= S390_CPU_CLASS(oc
);
165 CPUClass
*cc
= CPU_CLASS(scc
);
166 DeviceClass
*dc
= DEVICE_CLASS(oc
);
168 scc
->parent_realize
= dc
->realize
;
169 dc
->realize
= s390_cpu_realizefn
;
171 scc
->parent_reset
= cc
->reset
;
172 cc
->reset
= s390_cpu_reset
;
174 cc
->do_interrupt
= s390_cpu_do_interrupt
;
175 cc
->dump_state
= s390_cpu_dump_state
;
176 cc
->set_pc
= s390_cpu_set_pc
;
177 cc
->gdb_read_register
= s390_cpu_gdb_read_register
;
178 cc
->gdb_write_register
= s390_cpu_gdb_write_register
;
179 #ifndef CONFIG_USER_ONLY
180 cc
->get_phys_page_debug
= s390_cpu_get_phys_page_debug
;
181 cc
->write_elf64_note
= s390_cpu_write_elf64_note
;
182 cc
->write_elf64_qemunote
= s390_cpu_write_elf64_qemunote
;
184 dc
->vmsd
= &vmstate_s390_cpu
;
185 cc
->gdb_num_core_regs
= S390_NUM_REGS
;
188 static const TypeInfo s390_cpu_type_info
= {
189 .name
= TYPE_S390_CPU
,
191 .instance_size
= sizeof(S390CPU
),
192 .instance_init
= s390_cpu_initfn
,
193 .instance_finalize
= s390_cpu_finalize
,
195 .class_size
= sizeof(S390CPUClass
),
196 .class_init
= s390_cpu_class_init
,
199 static void s390_cpu_register_types(void)
201 type_register_static(&s390_cpu_type_info
);
204 type_init(s390_cpu_register_types
)