107 lines
2.7 KiB
C
107 lines
2.7 KiB
C
|
/*
|
||
|
|
* SPDX-License-Identifier: LGPL-2.1-or-later
|
||
|
|
*
|
||
|
|
* QEMU TCG monitor
|
||
|
|
*
|
||
|
|
* Copyright (c) 2003-2005 Fabrice Bellard
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "qemu/osdep.h"
|
||
|
|
#include "qapi/error.h"
|
||
|
|
#include "qapi/type-helpers.h"
|
||
|
|
#include "qapi/qapi-commands-machine.h"
|
||
|
|
#include "monitor/monitor.h"
|
||
|
|
#include "sysemu/cpus.h"
|
||
|
|
#include "sysemu/cpu-timers.h"
|
||
|
|
#include "sysemu/tcg.h"
|
||
|
|
#include "internal.h"
|
||
|
|
|
||
|
|
|
||
|
|
static void dump_drift_info(GString *buf)
|
||
|
|
{
|
||
|
|
if (!icount_enabled()) {
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
g_string_append_printf(buf, "Host - Guest clock %"PRIi64" ms\n",
|
||
|
|
(cpu_get_clock() - icount_get()) / SCALE_MS);
|
||
|
|
if (icount_align_option) {
|
||
|
|
g_string_append_printf(buf, "Max guest delay %"PRIi64" ms\n",
|
||
|
|
-max_delay / SCALE_MS);
|
||
|
|
g_string_append_printf(buf, "Max guest advance %"PRIi64" ms\n",
|
||
|
|
max_advance / SCALE_MS);
|
||
|
|
} else {
|
||
|
|
g_string_append_printf(buf, "Max guest delay NA\n");
|
||
|
|
g_string_append_printf(buf, "Max guest advance NA\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
HumanReadableText *qmp_x_query_jit(Error **errp)
|
||
|
|
{
|
||
|
|
g_autoptr(GString) buf = g_string_new("");
|
||
|
|
|
||
|
|
if (!tcg_enabled()) {
|
||
|
|
error_setg(errp, "JIT information is only available with accel=tcg");
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
dump_exec_info(buf);
|
||
|
|
dump_drift_info(buf);
|
||
|
|
|
||
|
|
return human_readable_text_from_str(buf);
|
||
|
|
}
|
||
|
|
|
||
|
|
HumanReadableText *qmp_x_query_opcount(Error **errp)
|
||
|
|
{
|
||
|
|
g_autoptr(GString) buf = g_string_new("");
|
||
|
|
|
||
|
|
if (!tcg_enabled()) {
|
||
|
|
error_setg(errp,
|
||
|
|
"Opcode count information is only available with accel=tcg");
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
tcg_dump_op_count(buf);
|
||
|
|
|
||
|
|
return human_readable_text_from_str(buf);
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef CONFIG_PROFILER
|
||
|
|
|
||
|
|
int64_t dev_time;
|
||
|
|
|
||
|
|
HumanReadableText *qmp_x_query_profile(Error **errp)
|
||
|
|
{
|
||
|
|
g_autoptr(GString) buf = g_string_new("");
|
||
|
|
static int64_t last_cpu_exec_time;
|
||
|
|
int64_t cpu_exec_time;
|
||
|
|
int64_t delta;
|
||
|
|
|
||
|
|
cpu_exec_time = tcg_cpu_exec_time();
|
||
|
|
delta = cpu_exec_time - last_cpu_exec_time;
|
||
|
|
|
||
|
|
g_string_append_printf(buf, "async time %" PRId64 " (%0.3f)\n",
|
||
|
|
dev_time, dev_time / (double)NANOSECONDS_PER_SECOND);
|
||
|
|
g_string_append_printf(buf, "qemu time %" PRId64 " (%0.3f)\n",
|
||
|
|
delta, delta / (double)NANOSECONDS_PER_SECOND);
|
||
|
|
last_cpu_exec_time = cpu_exec_time;
|
||
|
|
dev_time = 0;
|
||
|
|
|
||
|
|
return human_readable_text_from_str(buf);
|
||
|
|
}
|
||
|
|
#else
|
||
|
|
HumanReadableText *qmp_x_query_profile(Error **errp)
|
||
|
|
{
|
||
|
|
error_setg(errp, "Internal profiler not compiled");
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
static void hmp_tcg_register(void)
|
||
|
|
{
|
||
|
|
monitor_register_hmp_info_hrt("jit", qmp_x_query_jit);
|
||
|
|
monitor_register_hmp_info_hrt("opcount", qmp_x_query_opcount);
|
||
|
|
}
|
||
|
|
|
||
|
|
type_init(hmp_tcg_register);
|