target/loongarch/loongarch-qmp-cmds.c

   1 /*
   2  * QEMU LoongArch CPU (monitor definitions)
   3  *
   4  * SPDX-FileCopyrightText: 2021 Loongson Technology Corporation Limited
   5  *
   6  * SPDX-License-Identifier: GPL-2.0-or-later
   7  */
   8
   9 #include "qemu/osdep.h"
  10 #include "qapi/error.h"
  11 #include "qapi/qapi-commands-machine-target.h"
  12 #include "cpu.h"
  13 #include "qapi/qmp/qdict.h"
  14 #include "qapi/qobject-input-visitor.h"
  15 #include "qom/qom-qobject.h"
  16
  17 static void loongarch_cpu_add_definition(gpointer data, gpointer user_data)
  18 {
  19     ObjectClass *oc = data;
  20     CpuDefinitionInfoList **cpu_list = user_data;
  21     CpuDefinitionInfo *info = g_new0(CpuDefinitionInfo, 1);
  22     const char *typename = object_class_get_name(oc);
  23
  24     info->name = cpu_model_from_type(typename);
  25     info->q_typename = g_strdup(typename);
  26
  27     QAPI_LIST_PREPEND(*cpu_list, info);
  28 }
  29
  30 CpuDefinitionInfoList *qmp_query_cpu_definitions(Error **errp)
  31 {
  32     CpuDefinitionInfoList *cpu_list = NULL;
  33     GSList *list;
  34
  35     list = object_class_get_list(TYPE_LOONGARCH_CPU, false);
  36     g_slist_foreach(list, loongarch_cpu_add_definition, &cpu_list);
  37     g_slist_free(list);
  38
  39     return cpu_list;
  40 }
  41
  42 static const char *cpu_model_advertised_features[] = {
  43     "lsx", "lasx", NULL
  44 };
  45
  46 CpuModelExpansionInfo *qmp_query_cpu_model_expansion(CpuModelExpansionType type,
  47                                                      CpuModelInfo *model,
  48                                                      Error **errp)
  49 {
  50     Visitor *visitor;
  51     bool ok;
  52     CpuModelExpansionInfo *expansion_info;
  53     QDict *qdict_out;
  54     ObjectClass *oc;
  55     Object *obj;
  56     const char *name;
  57     int i;
  58
  59     if (type != CPU_MODEL_EXPANSION_TYPE_STATIC) {
  60         error_setg(errp, "The requested expansion type is not supported");
  61         return NULL;
  62     }
  63
  64     if (model->props) {
  65         visitor = qobject_input_visitor_new(model->props);
  66         if (!visit_start_struct(visitor, "model.props", NULL, 0, errp)) {
  67             visit_free(visitor);
  68             return NULL;
  69         }
  70
  71         ok = visit_check_struct(visitor, errp);
  72         visit_end_struct(visitor, NULL);
  73         visit_free(visitor);
  74         if (!ok) {
  75             return NULL;
  76         }
  77     }
  78
  79     oc = cpu_class_by_name(TYPE_LOONGARCH_CPU, model->name);
  80     if (!oc) {
  81         error_setg(errp, "The CPU type '%s' is not a recognized LoongArch CPU type",
  82                    model->name);
  83         return NULL;
  84     }
  85
  86     obj = object_new(object_class_get_name(oc));
  87
  88     expansion_info = g_new0(CpuModelExpansionInfo, 1);
  89     expansion_info->model = g_malloc0(sizeof(*expansion_info->model));
  90     expansion_info->model->name = g_strdup(model->name);
  91
  92     qdict_out = qdict_new();
  93
  94     i = 0;
  95     while ((name = cpu_model_advertised_features[i++]) != NULL) {
  96         ObjectProperty *prop = object_property_find(obj, name);
  97         if (prop) {
  98             QObject *value;
  99
 100             assert(prop->get);
 101             value = object_property_get_qobject(obj, name, &error_abort);
 102
 103             qdict_put_obj(qdict_out, name, value);
 104         }
 105     }
 106
 107     if (!qdict_size(qdict_out)) {
 108         qobject_unref(qdict_out);
 109     } else {
 110         expansion_info->model->props = QOBJECT(qdict_out);
 111     }
 112
 113     object_unref(obj);
 114
 115     return expansion_info;
 116 }