1 /*
2 * s390 storage attributes device -- KVM object
3 *
4 * Copyright 2016 IBM Corp.
5 * Author(s): Claudio Imbrenda <imbrenda@linux.vnet.ibm.com>
6 *
7 * This work is licensed under the terms of the GNU GPL, version 2 or (at
8 * your option) any later version. See the COPYING file in the top-level
9 * directory.
10 */
11
12 #include "qemu/osdep.h"
13 #include "hw/boards.h"
14 #include "migration/qemu-file.h"
15 #include "hw/s390x/storage-attributes.h"
16 #include "qemu/error-report.h"
17 #include "sysemu/kvm.h"
18 #include "exec/ram_addr.h"
19 #include "kvm/kvm_s390x.h"
20 #include "qapi/error.h"
21
kvm_s390_stattrib_create(void)22 Object *kvm_s390_stattrib_create(void)
23 {
24 if (kvm_enabled() &&
25 kvm_check_extension(kvm_state, KVM_CAP_S390_CMMA_MIGRATION)) {
26 return object_new(TYPE_KVM_S390_STATTRIB);
27 }
28 return NULL;
29 }
30
kvm_s390_stattrib_instance_init(Object * obj)31 static void kvm_s390_stattrib_instance_init(Object *obj)
32 {
33 KVMS390StAttribState *sas = KVM_S390_STATTRIB(obj);
34
35 sas->still_dirty = 0;
36 }
37
kvm_s390_stattrib_read_helper(S390StAttribState * sa,uint64_t * start_gfn,uint32_t count,uint8_t * values,uint32_t flags)38 static int kvm_s390_stattrib_read_helper(S390StAttribState *sa,
39 uint64_t *start_gfn,
40 uint32_t count,
41 uint8_t *values,
42 uint32_t flags)
43 {
44 KVMS390StAttribState *sas = KVM_S390_STATTRIB(sa);
45 int r;
46 struct kvm_s390_cmma_log clog = {
47 .values = (uint64_t)values,
48 .start_gfn = *start_gfn,
49 .count = count,
50 .flags = flags,
51 };
52
53 r = kvm_vm_ioctl(kvm_state, KVM_S390_GET_CMMA_BITS, &clog);
54 if (r < 0) {
55 error_report("KVM_S390_GET_CMMA_BITS failed: %s", strerror(-r));
56 return r;
57 }
58
59 *start_gfn = clog.start_gfn;
60 sas->still_dirty = clog.remaining;
61 return clog.count;
62 }
63
kvm_s390_stattrib_get_stattr(S390StAttribState * sa,uint64_t * start_gfn,uint32_t count,uint8_t * values)64 static int kvm_s390_stattrib_get_stattr(S390StAttribState *sa,
65 uint64_t *start_gfn,
66 uint32_t count,
67 uint8_t *values)
68 {
69 return kvm_s390_stattrib_read_helper(sa, start_gfn, count, values, 0);
70 }
71
kvm_s390_stattrib_peek_stattr(S390StAttribState * sa,uint64_t start_gfn,uint32_t count,uint8_t * values)72 static int kvm_s390_stattrib_peek_stattr(S390StAttribState *sa,
73 uint64_t start_gfn,
74 uint32_t count,
75 uint8_t *values)
76 {
77 return kvm_s390_stattrib_read_helper(sa, &start_gfn, count, values,
78 KVM_S390_CMMA_PEEK);
79 }
80
kvm_s390_stattrib_set_stattr(S390StAttribState * sa,uint64_t start_gfn,uint32_t count,uint8_t * values)81 static int kvm_s390_stattrib_set_stattr(S390StAttribState *sa,
82 uint64_t start_gfn,
83 uint32_t count,
84 uint8_t *values)
85 {
86 KVMS390StAttribState *sas = KVM_S390_STATTRIB(sa);
87 MachineState *machine = MACHINE(qdev_get_machine());
88 unsigned long max = machine->ram_size / TARGET_PAGE_SIZE;
89
90 if (start_gfn + count > max) {
91 error_report("Out of memory bounds when setting storage attributes");
92 return -1;
93 }
94 if (!sas->incoming_buffer) {
95 sas->incoming_buffer = g_malloc0(max);
96 }
97
98 memcpy(sas->incoming_buffer + start_gfn, values, count);
99
100 return 0;
101 }
102
kvm_s390_stattrib_synchronize(S390StAttribState * sa)103 static void kvm_s390_stattrib_synchronize(S390StAttribState *sa)
104 {
105 KVMS390StAttribState *sas = KVM_S390_STATTRIB(sa);
106 MachineState *machine = MACHINE(qdev_get_machine());
107 unsigned long max = machine->ram_size / TARGET_PAGE_SIZE;
108 /* We do not need to reach the maximum buffer size allowed */
109 unsigned long cx, len = KVM_S390_SKEYS_MAX / 2;
110 int r;
111 struct kvm_s390_cmma_log clog = {
112 .flags = 0,
113 .mask = ~0ULL,
114 };
115
116 if (sas->incoming_buffer) {
117 for (cx = 0; cx + len <= max; cx += len) {
118 clog.start_gfn = cx;
119 clog.count = len;
120 clog.values = (uint64_t)(sas->incoming_buffer + cx);
121 r = kvm_vm_ioctl(kvm_state, KVM_S390_SET_CMMA_BITS, &clog);
122 if (r) {
123 error_report("KVM_S390_SET_CMMA_BITS failed: %s", strerror(-r));
124 return;
125 }
126 }
127 if (cx < max) {
128 clog.start_gfn = cx;
129 clog.count = max - cx;
130 clog.values = (uint64_t)(sas->incoming_buffer + cx);
131 r = kvm_vm_ioctl(kvm_state, KVM_S390_SET_CMMA_BITS, &clog);
132 if (r) {
133 error_report("KVM_S390_SET_CMMA_BITS failed: %s", strerror(-r));
134 }
135 }
136 g_free(sas->incoming_buffer);
137 sas->incoming_buffer = NULL;
138 }
139 }
140
kvm_s390_stattrib_set_migrationmode(S390StAttribState * sa,bool val,Error ** errp)141 static int kvm_s390_stattrib_set_migrationmode(S390StAttribState *sa, bool val,
142 Error **errp)
143 {
144 struct kvm_device_attr attr = {
145 .group = KVM_S390_VM_MIGRATION,
146 .attr = val,
147 .addr = 0,
148 };
149 int r;
150
151 r = kvm_vm_ioctl(kvm_state, KVM_SET_DEVICE_ATTR, &attr);
152 if (r) {
153 error_setg_errno(errp, -r, "setting KVM_S390_VM_MIGRATION failed");
154 }
155 return r;
156 }
157
kvm_s390_stattrib_get_dirtycount(S390StAttribState * sa)158 static long long kvm_s390_stattrib_get_dirtycount(S390StAttribState *sa)
159 {
160 KVMS390StAttribState *sas = KVM_S390_STATTRIB(sa);
161 uint8_t val[8];
162
163 kvm_s390_stattrib_peek_stattr(sa, 0, 1, val);
164 return sas->still_dirty;
165 }
166
kvm_s390_stattrib_get_active(S390StAttribState * sa)167 static int kvm_s390_stattrib_get_active(S390StAttribState *sa)
168 {
169 return kvm_s390_cmma_active() && sa->migration_enabled;
170 }
171
kvm_s390_stattrib_class_init(ObjectClass * oc,void * data)172 static void kvm_s390_stattrib_class_init(ObjectClass *oc, void *data)
173 {
174 S390StAttribClass *sac = S390_STATTRIB_CLASS(oc);
175 DeviceClass *dc = DEVICE_CLASS(oc);
176
177 sac->get_stattr = kvm_s390_stattrib_get_stattr;
178 sac->peek_stattr = kvm_s390_stattrib_peek_stattr;
179 sac->set_stattr = kvm_s390_stattrib_set_stattr;
180 sac->set_migrationmode = kvm_s390_stattrib_set_migrationmode;
181 sac->get_dirtycount = kvm_s390_stattrib_get_dirtycount;
182 sac->synchronize = kvm_s390_stattrib_synchronize;
183 sac->get_active = kvm_s390_stattrib_get_active;
184
185 /* Reason: Can only be instantiated one time (internally) */
186 dc->user_creatable = false;
187 }
188
189 static const TypeInfo kvm_s390_stattrib_info = {
190 .name = TYPE_KVM_S390_STATTRIB,
191 .parent = TYPE_S390_STATTRIB,
192 .instance_init = kvm_s390_stattrib_instance_init,
193 .instance_size = sizeof(KVMS390StAttribState),
194 .class_init = kvm_s390_stattrib_class_init,
195 .class_size = sizeof(S390StAttribClass),
196 };
197
kvm_s390_stattrib_register_types(void)198 static void kvm_s390_stattrib_register_types(void)
199 {
200 type_register_static(&kvm_s390_stattrib_info);
201 }
202
203 type_init(kvm_s390_stattrib_register_types)
204