93cbd6c91d
The HMP 'singlestep' command, the QMP 'query-status' command and the HMP 'info status' command (which is just wrapping the QMP command implementation) look at the 'singlestep' global variable. Make them access the new TCG accelerator 'one-insn-per-tb' property instead. This leaves the HMP and QMP command/field names and output strings unchanged; we will clean that up later. Signed-off-by: Peter Maydell <peter.maydell@linaro.org> Reviewed-by: Richard Henderson <richard.henderson@linaro.org> Reviewed-by: Philippe Mathieu-Daudé <philmd@linaro.org> Message-id: 20230417164041.684562-3-peter.maydell@linaro.org
97 lines
2.6 KiB
C
97 lines
2.6 KiB
C
/*
|
|
* HMP commands related to run state
|
|
*
|
|
* Copyright IBM, Corp. 2011
|
|
*
|
|
* Authors:
|
|
* Anthony Liguori <aliguori@us.ibm.com>
|
|
*
|
|
* This work is licensed under the terms of the GNU GPL, version 2. See
|
|
* the COPYING file in the top-level directory.
|
|
*
|
|
* Contributions after 2012-01-13 are licensed under the terms of the
|
|
* GNU GPL, version 2 or (at your option) any later version.
|
|
*/
|
|
|
|
#include "qemu/osdep.h"
|
|
#include "exec/cpu-common.h"
|
|
#include "monitor/hmp.h"
|
|
#include "monitor/monitor.h"
|
|
#include "qapi/error.h"
|
|
#include "qapi/qapi-commands-run-state.h"
|
|
#include "qapi/qmp/qdict.h"
|
|
#include "qemu/accel.h"
|
|
|
|
void hmp_info_status(Monitor *mon, const QDict *qdict)
|
|
{
|
|
StatusInfo *info;
|
|
|
|
info = qmp_query_status(NULL);
|
|
|
|
monitor_printf(mon, "VM status: %s%s",
|
|
info->running ? "running" : "paused",
|
|
info->singlestep ? " (single step mode)" : "");
|
|
|
|
if (!info->running && info->status != RUN_STATE_PAUSED) {
|
|
monitor_printf(mon, " (%s)", RunState_str(info->status));
|
|
}
|
|
|
|
monitor_printf(mon, "\n");
|
|
|
|
qapi_free_StatusInfo(info);
|
|
}
|
|
|
|
void hmp_singlestep(Monitor *mon, const QDict *qdict)
|
|
{
|
|
const char *option = qdict_get_try_str(qdict, "option");
|
|
AccelState *accel = current_accel();
|
|
bool newval;
|
|
|
|
if (!object_property_find(OBJECT(accel), "one-insn-per-tb")) {
|
|
monitor_printf(mon,
|
|
"This accelerator does not support setting one-insn-per-tb\n");
|
|
return;
|
|
}
|
|
|
|
if (!option || !strcmp(option, "on")) {
|
|
newval = true;
|
|
} else if (!strcmp(option, "off")) {
|
|
newval = false;
|
|
} else {
|
|
monitor_printf(mon, "unexpected option %s\n", option);
|
|
return;
|
|
}
|
|
/* If the property exists then setting it can never fail */
|
|
object_property_set_bool(OBJECT(accel), "one-insn-per-tb",
|
|
newval, &error_abort);
|
|
}
|
|
|
|
void hmp_watchdog_action(Monitor *mon, const QDict *qdict)
|
|
{
|
|
Error *err = NULL;
|
|
WatchdogAction action;
|
|
char *qapi_value;
|
|
|
|
qapi_value = g_ascii_strdown(qdict_get_str(qdict, "action"), -1);
|
|
action = qapi_enum_parse(&WatchdogAction_lookup, qapi_value, -1, &err);
|
|
g_free(qapi_value);
|
|
if (err) {
|
|
hmp_handle_error(mon, err);
|
|
return;
|
|
}
|
|
qmp_watchdog_set_action(action, &error_abort);
|
|
}
|
|
|
|
void watchdog_action_completion(ReadLineState *rs, int nb_args, const char *str)
|
|
{
|
|
int i;
|
|
|
|
if (nb_args != 2) {
|
|
return;
|
|
}
|
|
readline_set_completion_index(rs, strlen(str));
|
|
for (i = 0; i < WATCHDOG_ACTION__MAX; i++) {
|
|
readline_add_completion_of(rs, str, WatchdogAction_str(i));
|
|
}
|
|
}
|