hw/core/machine-qmp-cmds.c

   1 /*
   2  * QMP commands related to machines and CPUs
   3  *
   4  * Copyright (C) 2014 Red Hat Inc
   5  *
   6  * This work is licensed under the terms of the GNU GPL, version 2 or later.
   7  * See the COPYING file in the top-level directory.
   8  */
   9
  10 #include "qemu/osdep.h"
  11 #include "hw/boards.h"
  12 #include "qapi/error.h"
  13 #include "qapi/qapi-builtin-visit.h"
  14 #include "qapi/qapi-commands-machine.h"
  15 #include "qapi/qmp/qerror.h"
  16 #include "qapi/qmp/qobject.h"
  17 #include "qapi/qobject-input-visitor.h"
  18 #include "qapi/type-helpers.h"
  19 #include "qemu/main-loop.h"
  20 #include "qom/qom-qobject.h"
  21 #include "sysemu/hostmem.h"
  22 #include "sysemu/hw_accel.h"
  23 #include "sysemu/numa.h"
  24 #include "sysemu/runstate.h"
  25
  26 static void cpustate_to_cpuinfo_s390(CpuInfoS390 *info, const CPUState *cpu)
  27 {
  28 #ifdef TARGET_S390X
  29     S390CPU *s390_cpu = S390_CPU(cpu);
  30     CPUS390XState *env = &s390_cpu->env;
  31
  32     info->cpu_state = env->cpu_state;
  33 #else
  34     abort();
  35 #endif
  36 }
  37
  38 /*
  39  * fast means: we NEVER interrupt vCPU threads to retrieve
  40  * information from KVM.
  41  */
  42 CpuInfoFastList *qmp_query_cpus_fast(Error **errp)
  43 {
  44     MachineState *ms = MACHINE(qdev_get_machine());
  45     MachineClass *mc = MACHINE_GET_CLASS(ms);
  46     CpuInfoFastList *head = NULL, **tail = &head;
  47     SysEmuTarget target = qapi_enum_parse(&SysEmuTarget_lookup, TARGET_NAME,
  48                                           -1, &error_abort);
  49     CPUState *cpu;
  50
  51     CPU_FOREACH(cpu) {
  52         CpuInfoFast *value = g_malloc0(sizeof(*value));
  53
  54         value->cpu_index = cpu->cpu_index;
  55         value->qom_path = object_get_canonical_path(OBJECT(cpu));
  56         value->thread_id = cpu->thread_id;
  57
  58         value->has_props = !!mc->cpu_index_to_instance_props;
  59         if (value->has_props) {
  60             CpuInstanceProperties *props;
  61             props = g_malloc0(sizeof(*props));
  62             *props = mc->cpu_index_to_instance_props(ms, cpu->cpu_index);
  63             value->props = props;
  64         }
  65
  66         value->target = target;
  67         if (target == SYS_EMU_TARGET_S390X) {
  68             cpustate_to_cpuinfo_s390(&value->u.s390x, cpu);
  69         }
  70
  71         QAPI_LIST_APPEND(tail, value);
  72     }
  73
  74     return head;
  75 }
  76
  77 MachineInfoList *qmp_query_machines(Error **errp)
  78 {
  79     GSList *el, *machines = object_class_get_list(TYPE_MACHINE, false);
  80     MachineInfoList *mach_list = NULL;
  81
  82     for (el = machines; el; el = el->next) {
  83         MachineClass *mc = el->data;
  84         MachineInfo *info;
  85
  86         info = g_malloc0(sizeof(*info));
  87         if (mc->is_default) {
  88             info->has_is_default = true;
  89             info->is_default = true;
  90         }
  91
  92         if (mc->alias) {
  93             info->has_alias = true;
  94             info->alias = g_strdup(mc->alias);
  95         }
  96
  97         info->name = g_strdup(mc->name);
  98         info->cpu_max = !mc->max_cpus ? 1 : mc->max_cpus;
  99         info->hotpluggable_cpus = mc->has_hotpluggable_cpus;
 100         info->numa_mem_supported = mc->numa_mem_supported;
 101         info->deprecated = !!mc->deprecation_reason;
 102         if (mc->default_cpu_type) {
 103             info->default_cpu_type = g_strdup(mc->default_cpu_type);
 104             info->has_default_cpu_type = true;
 105         }
 106         if (mc->default_ram_id) {
 107             info->default_ram_id = g_strdup(mc->default_ram_id);
 108             info->has_default_ram_id = true;
 109         }
 110
 111         QAPI_LIST_PREPEND(mach_list, info);
 112     }
 113
 114     g_slist_free(machines);
 115     return mach_list;
 116 }
 117
 118 CurrentMachineParams *qmp_query_current_machine(Error **errp)
 119 {
 120     CurrentMachineParams *params = g_malloc0(sizeof(*params));
 121     params->wakeup_suspend_support = qemu_wakeup_suspend_enabled();
 122
 123     return params;
 124 }
 125
 126 TargetInfo *qmp_query_target(Error **errp)
 127 {
 128     TargetInfo *info = g_malloc0(sizeof(*info));
 129
 130     info->arch = qapi_enum_parse(&SysEmuTarget_lookup, TARGET_NAME, -1,
 131                                  &error_abort);
 132
 133     return info;
 134 }
 135
 136 HotpluggableCPUList *qmp_query_hotpluggable_cpus(Error **errp)
 137 {
 138     MachineState *ms = MACHINE(qdev_get_machine());
 139     MachineClass *mc = MACHINE_GET_CLASS(ms);
 140
 141     if (!mc->has_hotpluggable_cpus) {
 142         error_setg(errp, QERR_FEATURE_DISABLED, "query-hotpluggable-cpus");
 143         return NULL;
 144     }
 145
 146     return machine_query_hotpluggable_cpus(ms);
 147 }
 148
 149 void qmp_set_numa_node(NumaOptions *cmd, Error **errp)
 150 {
 151     if (phase_check(PHASE_MACHINE_INITIALIZED)) {
 152         error_setg(errp, "The command is permitted only before the machine has been created");
 153         return;
 154     }
 155
 156     set_numa_options(MACHINE(qdev_get_machine()), cmd, errp);
 157 }
 158
 159 static int query_memdev(Object *obj, void *opaque)
 160 {
 161     Error *err = NULL;
 162     MemdevList **list = opaque;
 163     Memdev *m;
 164     QObject *host_nodes;
 165     Visitor *v;
 166
 167     if (object_dynamic_cast(obj, TYPE_MEMORY_BACKEND)) {
 168         m = g_malloc0(sizeof(*m));
 169
 170         m->id = g_strdup(object_get_canonical_path_component(obj));
 171         m->has_id = !!m->id;
 172
 173         m->size = object_property_get_uint(obj, "size", &error_abort);
 174         m->merge = object_property_get_bool(obj, "merge", &error_abort);
 175         m->dump = object_property_get_bool(obj, "dump", &error_abort);
 176         m->prealloc = object_property_get_bool(obj, "prealloc", &error_abort);
 177         m->share = object_property_get_bool(obj, "share", &error_abort);
 178         m->reserve = object_property_get_bool(obj, "reserve", &err);
 179         if (err) {
 180             error_free_or_abort(&err);
 181         } else {
 182             m->has_reserve = true;
 183         }
 184         m->policy = object_property_get_enum(obj, "policy", "HostMemPolicy",
 185                                              &error_abort);
 186         host_nodes = object_property_get_qobject(obj,
 187                                                  "host-nodes",
 188                                                  &error_abort);
 189         v = qobject_input_visitor_new(host_nodes);
 190         visit_type_uint16List(v, NULL, &m->host_nodes, &error_abort);
 191         visit_free(v);
 192         qobject_unref(host_nodes);
 193
 194         QAPI_LIST_PREPEND(*list, m);
 195     }
 196
 197     return 0;
 198 }
 199
 200 MemdevList *qmp_query_memdev(Error **errp)
 201 {
 202     Object *obj = object_get_objects_root();
 203     MemdevList *list = NULL;
 204
 205     object_child_foreach(obj, query_memdev, &list);
 206     return list;
 207 }
 208
 209 HumanReadableText *qmp_x_query_numa(Error **errp)
 210 {
 211     g_autoptr(GString) buf = g_string_new("");
 212     int i, nb_numa_nodes;
 213     NumaNodeMem *node_mem;
 214     CpuInfoFastList *cpu_list, *cpu;
 215     MachineState *ms = MACHINE(qdev_get_machine());
 216
 217     nb_numa_nodes = ms->numa_state ? ms->numa_state->num_nodes : 0;
 218     g_string_append_printf(buf, "%d nodes\n", nb_numa_nodes);
 219     if (!nb_numa_nodes) {
 220         goto done;
 221     }
 222
 223     cpu_list = qmp_query_cpus_fast(&error_abort);
 224     node_mem = g_new0(NumaNodeMem, nb_numa_nodes);
 225
 226     query_numa_node_mem(node_mem, ms);
 227     for (i = 0; i < nb_numa_nodes; i++) {
 228         g_string_append_printf(buf, "node %d cpus:", i);
 229         for (cpu = cpu_list; cpu; cpu = cpu->next) {
 230             if (cpu->value->has_props && cpu->value->props->has_node_id &&
 231                 cpu->value->props->node_id == i) {
 232                 g_string_append_printf(buf, " %" PRIi64, cpu->value->cpu_index);
 233             }
 234         }
 235         g_string_append_printf(buf, "\n");
 236         g_string_append_printf(buf, "node %d size: %" PRId64 " MB\n", i,
 237                                node_mem[i].node_mem >> 20);
 238         g_string_append_printf(buf, "node %d plugged: %" PRId64 " MB\n", i,
 239                                node_mem[i].node_plugged_mem >> 20);
 240     }
 241     qapi_free_CpuInfoFastList(cpu_list);
 242     g_free(node_mem);
 243
 244  done:
 245     return human_readable_text_from_str(buf);
 246 }