1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24#include "qemu/osdep.h"
25#include "qapi/error.h"
26#include "hw/hw.h"
27#include "qapi/qmp/qerror.h"
28#include "qemu/error-report.h"
29#include "sysemu/block-backend.h"
30#include "sysemu/blockdev.h"
31#include "sysemu/sysemu.h"
32#include "net/net.h"
33#include "hw/boards.h"
34#include "hw/loader.h"
35#include "hw/virtio/virtio.h"
36#include "sysemu/kvm.h"
37#include "exec/address-spaces.h"
38#include "sysemu/qtest.h"
39
40#include "hw/s390x/sclp.h"
41#include "hw/s390x/s390_flic.h"
42#include "hw/s390x/s390-virtio.h"
43#include "hw/s390x/storage-keys.h"
44#include "hw/s390x/ipl.h"
45#include "cpu.h"
46
47#define MAX_BLK_DEVS 10
48
49#define S390_TOD_CLOCK_VALUE_MISSING 0x00
50#define S390_TOD_CLOCK_VALUE_PRESENT 0x01
51
52static S390CPU **cpu_states;
53
54S390CPU *s390_cpu_addr2state(uint16_t cpu_addr)
55{
56 if (cpu_addr >= max_cpus) {
57 return NULL;
58 }
59
60
61 return cpu_states[cpu_addr];
62}
63
64void s390_init_ipl_dev(const char *kernel_filename,
65 const char *kernel_cmdline,
66 const char *initrd_filename,
67 const char *firmware,
68 const char *netboot_fw,
69 bool enforce_bios)
70{
71 Object *new = object_new(TYPE_S390_IPL);
72 DeviceState *dev = DEVICE(new);
73
74 if (kernel_filename) {
75 qdev_prop_set_string(dev, "kernel", kernel_filename);
76 }
77 if (initrd_filename) {
78 qdev_prop_set_string(dev, "initrd", initrd_filename);
79 }
80 qdev_prop_set_string(dev, "cmdline", kernel_cmdline);
81 qdev_prop_set_string(dev, "firmware", firmware);
82 qdev_prop_set_string(dev, "netboot_fw", netboot_fw);
83 qdev_prop_set_bit(dev, "enforce_bios", enforce_bios);
84 object_property_add_child(qdev_get_machine(), TYPE_S390_IPL,
85 new, NULL);
86 object_unref(new);
87 qdev_init_nofail(dev);
88}
89
90void s390_init_cpus(MachineState *machine)
91{
92 int i;
93 gchar *name;
94
95 if (machine->cpu_model == NULL) {
96 if (kvm_enabled()) {
97 machine->cpu_model = "host";
98 } else {
99 machine->cpu_model = "qemu";
100 }
101 }
102
103 cpu_states = g_new0(S390CPU *, max_cpus);
104
105 for (i = 0; i < max_cpus; i++) {
106 name = g_strdup_printf("cpu[%i]", i);
107 object_property_add_link(OBJECT(machine), name, TYPE_S390_CPU,
108 (Object **) &cpu_states[i],
109 object_property_allow_set_link,
110 OBJ_PROP_LINK_UNREF_ON_RELEASE,
111 &error_abort);
112 g_free(name);
113 }
114
115 for (i = 0; i < smp_cpus; i++) {
116 s390x_new_cpu(machine->cpu_model, i, &error_fatal);
117 }
118}
119
120
121void s390_create_virtio_net(BusState *bus, const char *name)
122{
123 int i;
124
125 for (i = 0; i < nb_nics; i++) {
126 NICInfo *nd = &nd_table[i];
127 DeviceState *dev;
128
129 if (!nd->model) {
130 nd->model = g_strdup("virtio");
131 }
132
133 qemu_check_nic_model(nd, "virtio");
134
135 dev = qdev_create(bus, name);
136 qdev_set_nic_properties(dev, nd);
137 qdev_init_nofail(dev);
138 }
139}
140
141void gtod_save(QEMUFile *f, void *opaque)
142{
143 uint64_t tod_low;
144 uint8_t tod_high;
145 int r;
146
147 r = s390_get_clock(&tod_high, &tod_low);
148 if (r) {
149 fprintf(stderr, "WARNING: Unable to get guest clock for migration. "
150 "Error code %d. Guest clock will not be migrated "
151 "which could cause the guest to hang.\n", r);
152 qemu_put_byte(f, S390_TOD_CLOCK_VALUE_MISSING);
153 return;
154 }
155
156 qemu_put_byte(f, S390_TOD_CLOCK_VALUE_PRESENT);
157 qemu_put_byte(f, tod_high);
158 qemu_put_be64(f, tod_low);
159}
160
161int gtod_load(QEMUFile *f, void *opaque, int version_id)
162{
163 uint64_t tod_low;
164 uint8_t tod_high;
165 int r;
166
167 if (qemu_get_byte(f) == S390_TOD_CLOCK_VALUE_MISSING) {
168 fprintf(stderr, "WARNING: Guest clock was not migrated. This could "
169 "cause the guest to hang.\n");
170 return 0;
171 }
172
173 tod_high = qemu_get_byte(f);
174 tod_low = qemu_get_be64(f);
175
176 r = s390_set_clock(&tod_high, &tod_low);
177 if (r) {
178 fprintf(stderr, "WARNING: Unable to set guest clock value. "
179 "s390_get_clock returned error %d. This could cause "
180 "the guest to hang.\n", r);
181 }
182
183 return 0;
184}
185
186void s390_nmi(NMIState *n, int cpu_index, Error **errp)
187{
188 CPUState *cs = qemu_get_cpu(cpu_index);
189
190 if (s390_cpu_restart(S390_CPU(cs))) {
191 error_setg(errp, QERR_UNSUPPORTED);
192 }
193}
194
195void s390_machine_reset(void)
196{
197 S390CPU *ipl_cpu = S390_CPU(qemu_get_cpu(0));
198
199 s390_cmma_reset();
200 qemu_devices_reset();
201 s390_crypto_reset();
202
203
204 s390_ipl_prepare_cpu(ipl_cpu);
205 s390_cpu_set_state(CPU_STATE_OPERATING, ipl_cpu);
206}
207