hw/timer/sse-timer: Model the SSE Subsystem System Timer
[qemu/ar7.git] / target / arm / monitor.c
blob80c64fa3556d84cc5da1f5d3756fa261852811d7
1 /*
2 * QEMU monitor.c for ARM.
4 * Permission is hereby granted, free of charge, to any person obtaining a copy
5 * of this software and associated documentation files (the "Software"), to deal
6 * in the Software without restriction, including without limitation the rights
7 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
8 * copies of the Software, and to permit persons to whom the Software is
9 * furnished to do so, subject to the following conditions:
11 * The above copyright notice and this permission notice shall be included in
12 * all copies or substantial portions of the Software.
14 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
17 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
18 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
19 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
20 * THE SOFTWARE.
23 #include "qemu/osdep.h"
24 #include "hw/boards.h"
25 #include "kvm_arm.h"
26 #include "qapi/error.h"
27 #include "qapi/visitor.h"
28 #include "qapi/qobject-input-visitor.h"
29 #include "qapi/qapi-commands-machine-target.h"
30 #include "qapi/qapi-commands-misc-target.h"
31 #include "qapi/qmp/qerror.h"
32 #include "qapi/qmp/qdict.h"
33 #include "qom/qom-qobject.h"
35 static GICCapability *gic_cap_new(int version)
37 GICCapability *cap = g_new0(GICCapability, 1);
38 cap->version = version;
39 /* by default, support none */
40 cap->emulated = false;
41 cap->kernel = false;
42 return cap;
45 static inline void gic_cap_kvm_probe(GICCapability *v2, GICCapability *v3)
47 #ifdef CONFIG_KVM
48 int fdarray[3];
50 if (!kvm_arm_create_scratch_host_vcpu(NULL, fdarray, NULL)) {
51 return;
54 /* Test KVM GICv2 */
55 if (kvm_device_supported(fdarray[1], KVM_DEV_TYPE_ARM_VGIC_V2)) {
56 v2->kernel = true;
59 /* Test KVM GICv3 */
60 if (kvm_device_supported(fdarray[1], KVM_DEV_TYPE_ARM_VGIC_V3)) {
61 v3->kernel = true;
64 kvm_arm_destroy_scratch_host_vcpu(fdarray);
65 #endif
68 GICCapabilityList *qmp_query_gic_capabilities(Error **errp)
70 GICCapabilityList *head = NULL;
71 GICCapability *v2 = gic_cap_new(2), *v3 = gic_cap_new(3);
73 v2->emulated = true;
74 v3->emulated = true;
76 gic_cap_kvm_probe(v2, v3);
78 QAPI_LIST_PREPEND(head, v2);
79 QAPI_LIST_PREPEND(head, v3);
81 return head;
84 QEMU_BUILD_BUG_ON(ARM_MAX_VQ > 16);
87 * These are cpu model features we want to advertise. The order here
88 * matters as this is the order in which qmp_query_cpu_model_expansion
89 * will attempt to set them. If there are dependencies between features,
90 * then the order that considers those dependencies must be used.
92 static const char *cpu_model_advertised_features[] = {
93 "aarch64", "pmu", "sve",
94 "sve128", "sve256", "sve384", "sve512",
95 "sve640", "sve768", "sve896", "sve1024", "sve1152", "sve1280",
96 "sve1408", "sve1536", "sve1664", "sve1792", "sve1920", "sve2048",
97 "kvm-no-adjvtime", "kvm-steal-time",
98 "pauth", "pauth-impdef",
99 NULL
102 CpuModelExpansionInfo *qmp_query_cpu_model_expansion(CpuModelExpansionType type,
103 CpuModelInfo *model,
104 Error **errp)
106 CpuModelExpansionInfo *expansion_info;
107 const QDict *qdict_in = NULL;
108 QDict *qdict_out;
109 ObjectClass *oc;
110 Object *obj;
111 const char *name;
112 int i;
114 if (type != CPU_MODEL_EXPANSION_TYPE_FULL) {
115 error_setg(errp, "The requested expansion type is not supported");
116 return NULL;
119 if (!kvm_enabled() && !strcmp(model->name, "host")) {
120 error_setg(errp, "The CPU type '%s' requires KVM", model->name);
121 return NULL;
124 oc = cpu_class_by_name(TYPE_ARM_CPU, model->name);
125 if (!oc) {
126 error_setg(errp, "The CPU type '%s' is not a recognized ARM CPU type",
127 model->name);
128 return NULL;
131 if (kvm_enabled()) {
132 bool supported = false;
134 if (!strcmp(model->name, "host") || !strcmp(model->name, "max")) {
135 /* These are kvmarm's recommended cpu types */
136 supported = true;
137 } else if (current_machine->cpu_type) {
138 const char *cpu_type = current_machine->cpu_type;
139 int len = strlen(cpu_type) - strlen(ARM_CPU_TYPE_SUFFIX);
141 if (strlen(model->name) == len &&
142 !strncmp(model->name, cpu_type, len)) {
143 /* KVM is enabled and we're using this type, so it works. */
144 supported = true;
147 if (!supported) {
148 error_setg(errp, "We cannot guarantee the CPU type '%s' works "
149 "with KVM on this host", model->name);
150 return NULL;
154 if (model->props) {
155 qdict_in = qobject_to(QDict, model->props);
156 if (!qdict_in) {
157 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, "props", "dict");
158 return NULL;
162 obj = object_new(object_class_get_name(oc));
164 if (qdict_in) {
165 Visitor *visitor;
166 Error *err = NULL;
168 visitor = qobject_input_visitor_new(model->props);
169 if (!visit_start_struct(visitor, NULL, NULL, 0, errp)) {
170 visit_free(visitor);
171 object_unref(obj);
172 return NULL;
175 i = 0;
176 while ((name = cpu_model_advertised_features[i++]) != NULL) {
177 if (qdict_get(qdict_in, name)) {
178 if (!object_property_set(obj, name, visitor, &err)) {
179 break;
184 if (!err) {
185 visit_check_struct(visitor, &err);
187 if (!err) {
188 arm_cpu_finalize_features(ARM_CPU(obj), &err);
190 visit_end_struct(visitor, NULL);
191 visit_free(visitor);
192 if (err) {
193 object_unref(obj);
194 error_propagate(errp, err);
195 return NULL;
197 } else {
198 arm_cpu_finalize_features(ARM_CPU(obj), &error_abort);
201 expansion_info = g_new0(CpuModelExpansionInfo, 1);
202 expansion_info->model = g_malloc0(sizeof(*expansion_info->model));
203 expansion_info->model->name = g_strdup(model->name);
205 qdict_out = qdict_new();
207 i = 0;
208 while ((name = cpu_model_advertised_features[i++]) != NULL) {
209 ObjectProperty *prop = object_property_find(obj, name);
210 if (prop) {
211 QObject *value;
213 assert(prop->get);
214 value = object_property_get_qobject(obj, name, &error_abort);
216 qdict_put_obj(qdict_out, name, value);
220 if (!qdict_size(qdict_out)) {
221 qobject_unref(qdict_out);
222 } else {
223 expansion_info->model->props = QOBJECT(qdict_out);
224 expansion_info->model->has_props = true;
227 object_unref(obj);
229 return expansion_info;