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 "cpu.h" 20 #include "kvm_s390x.h" 21 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 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 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 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 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 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->maxram_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 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->maxram_size / TARGET_PAGE_SIZE; 108 unsigned long cx, len = 1 << 19; 109 int r; 110 struct kvm_s390_cmma_log clog = { 111 .flags = 0, 112 .mask = ~0ULL, 113 }; 114 115 if (sas->incoming_buffer) { 116 for (cx = 0; cx + len <= max; cx += len) { 117 clog.start_gfn = cx; 118 clog.count = len; 119 clog.values = (uint64_t)(sas->incoming_buffer + cx); 120 r = kvm_vm_ioctl(kvm_state, KVM_S390_SET_CMMA_BITS, &clog); 121 if (r) { 122 error_report("KVM_S390_SET_CMMA_BITS failed: %s", strerror(-r)); 123 return; 124 } 125 } 126 if (cx < max) { 127 clog.start_gfn = cx; 128 clog.count = max - cx; 129 clog.values = (uint64_t)(sas->incoming_buffer + cx); 130 r = kvm_vm_ioctl(kvm_state, KVM_S390_SET_CMMA_BITS, &clog); 131 if (r) { 132 error_report("KVM_S390_SET_CMMA_BITS failed: %s", strerror(-r)); 133 } 134 } 135 g_free(sas->incoming_buffer); 136 sas->incoming_buffer = NULL; 137 } 138 } 139 140 static int kvm_s390_stattrib_set_migrationmode(S390StAttribState *sa, bool val) 141 { 142 struct kvm_device_attr attr = { 143 .group = KVM_S390_VM_MIGRATION, 144 .attr = val, 145 .addr = 0, 146 }; 147 return kvm_vm_ioctl(kvm_state, KVM_SET_DEVICE_ATTR, &attr); 148 } 149 150 static long long kvm_s390_stattrib_get_dirtycount(S390StAttribState *sa) 151 { 152 KVMS390StAttribState *sas = KVM_S390_STATTRIB(sa); 153 uint8_t val[8]; 154 155 kvm_s390_stattrib_peek_stattr(sa, 0, 1, val); 156 return sas->still_dirty; 157 } 158 159 static int kvm_s390_stattrib_get_active(S390StAttribState *sa) 160 { 161 return kvm_s390_cmma_active() && sa->migration_enabled; 162 } 163 164 static void kvm_s390_stattrib_class_init(ObjectClass *oc, void *data) 165 { 166 S390StAttribClass *sac = S390_STATTRIB_CLASS(oc); 167 DeviceClass *dc = DEVICE_CLASS(oc); 168 169 sac->get_stattr = kvm_s390_stattrib_get_stattr; 170 sac->peek_stattr = kvm_s390_stattrib_peek_stattr; 171 sac->set_stattr = kvm_s390_stattrib_set_stattr; 172 sac->set_migrationmode = kvm_s390_stattrib_set_migrationmode; 173 sac->get_dirtycount = kvm_s390_stattrib_get_dirtycount; 174 sac->synchronize = kvm_s390_stattrib_synchronize; 175 sac->get_active = kvm_s390_stattrib_get_active; 176 177 /* Reason: Can only be instantiated one time (internally) */ 178 dc->user_creatable = false; 179 } 180 181 static const TypeInfo kvm_s390_stattrib_info = { 182 .name = TYPE_KVM_S390_STATTRIB, 183 .parent = TYPE_S390_STATTRIB, 184 .instance_init = kvm_s390_stattrib_instance_init, 185 .instance_size = sizeof(KVMS390StAttribState), 186 .class_init = kvm_s390_stattrib_class_init, 187 .class_size = sizeof(S390StAttribClass), 188 }; 189 190 static void kvm_s390_stattrib_register_types(void) 191 { 192 type_register_static(&kvm_s390_stattrib_info); 193 } 194 195 type_init(kvm_s390_stattrib_register_types) 196