accel/tcg/monitor.c

   1 /*
   2  * SPDX-License-Identifier: LGPL-2.1-or-later
   3  *
   4  *  QEMU TCG monitor
   5  *
   6  *  Copyright (c) 2003-2005 Fabrice Bellard
   7  */
   8
   9 #include "qemu/osdep.h"
  10 #include "qapi/error.h"
  11 #include "qapi/type-helpers.h"
  12 #include "qapi/qapi-commands-machine.h"
  13 #include "monitor/monitor.h"
  14 #include "sysemu/cpus.h"
  15 #include "sysemu/cpu-timers.h"
  16 #include "sysemu/tcg.h"
  17 #include "internal.h"
  18
  19
  20 static void dump_drift_info(GString *buf)
  21 {
  22     if (!icount_enabled()) {
  23         return;
  24     }
  25
  26     g_string_append_printf(buf, "Host - Guest clock  %"PRIi64" ms\n",
  27                            (cpu_get_clock() - icount_get()) / SCALE_MS);
  28     if (icount_align_option) {
  29         g_string_append_printf(buf, "Max guest delay     %"PRIi64" ms\n",
  30                                -max_delay / SCALE_MS);
  31         g_string_append_printf(buf, "Max guest advance   %"PRIi64" ms\n",
  32                                max_advance / SCALE_MS);
  33     } else {
  34         g_string_append_printf(buf, "Max guest delay     NA\n");
  35         g_string_append_printf(buf, "Max guest advance   NA\n");
  36     }
  37 }
  38
  39 HumanReadableText *qmp_x_query_jit(Error **errp)
  40 {
  41     g_autoptr(GString) buf = g_string_new("");
  42
  43     if (!tcg_enabled()) {
  44         error_setg(errp, "JIT information is only available with accel=tcg");
  45         return NULL;
  46     }
  47
  48     dump_exec_info(buf);
  49     dump_drift_info(buf);
  50
  51     return human_readable_text_from_str(buf);
  52 }
  53
  54 HumanReadableText *qmp_x_query_opcount(Error **errp)
  55 {
  56     g_autoptr(GString) buf = g_string_new("");
  57
  58     if (!tcg_enabled()) {
  59         error_setg(errp,
  60                    "Opcode count information is only available with accel=tcg");
  61         return NULL;
  62     }
  63
  64     tcg_dump_op_count(buf);
  65
  66     return human_readable_text_from_str(buf);
  67 }
  68
  69 #ifdef CONFIG_PROFILER
  70
  71 int64_t dev_time;
  72
  73 HumanReadableText *qmp_x_query_profile(Error **errp)
  74 {
  75     g_autoptr(GString) buf = g_string_new("");
  76     static int64_t last_cpu_exec_time;
  77     int64_t cpu_exec_time;
  78     int64_t delta;
  79
  80     cpu_exec_time = tcg_cpu_exec_time();
  81     delta = cpu_exec_time - last_cpu_exec_time;
  82
  83     g_string_append_printf(buf, "async time  %" PRId64 " (%0.3f)\n",
  84                            dev_time, dev_time / (double)NANOSECONDS_PER_SECOND);
  85     g_string_append_printf(buf, "qemu time   %" PRId64 " (%0.3f)\n",
  86                            delta, delta / (double)NANOSECONDS_PER_SECOND);
  87     last_cpu_exec_time = cpu_exec_time;
  88     dev_time = 0;
  89
  90     return human_readable_text_from_str(buf);
  91 }
  92 #else
  93 HumanReadableText *qmp_x_query_profile(Error **errp)
  94 {
  95     error_setg(errp, "Internal profiler not compiled");
  96     return NULL;
  97 }
  98 #endif
  99
 100 static void hmp_tcg_register(void)
 101 {
 102     monitor_register_hmp_info_hrt("jit", qmp_x_query_jit);
 103     monitor_register_hmp_info_hrt("opcount", qmp_x_query_opcount);
 104 }
 105
 106 type_init(hmp_tcg_register);