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 "qemu/accel.h"
  11 #include "qapi/error.h"
  12 #include "qapi/type-helpers.h"
  13 #include "qapi/qapi-commands-machine.h"
  14 #include "monitor/monitor.h"
  15 #include "sysemu/cpus.h"
  16 #include "sysemu/cpu-timers.h"
  17 #include "sysemu/tcg.h"
  18 #include "tcg/tcg.h"
  19 #include "internal.h"
  20
  21
  22 static void dump_drift_info(GString *buf)
  23 {
  24     if (!icount_enabled()) {
  25         return;
  26     }
  27
  28     g_string_append_printf(buf, "Host - Guest clock  %"PRIi64" ms\n",
  29                            (cpu_get_clock() - icount_get()) / SCALE_MS);
  30     if (icount_align_option) {
  31         g_string_append_printf(buf, "Max guest delay     %"PRIi64" ms\n",
  32                                -max_delay / SCALE_MS);
  33         g_string_append_printf(buf, "Max guest advance   %"PRIi64" ms\n",
  34                                max_advance / SCALE_MS);
  35     } else {
  36         g_string_append_printf(buf, "Max guest delay     NA\n");
  37         g_string_append_printf(buf, "Max guest advance   NA\n");
  38     }
  39 }
  40
  41 static void dump_accel_info(GString *buf)
  42 {
  43     AccelState *accel = current_accel();
  44     bool one_insn_per_tb = object_property_get_bool(OBJECT(accel),
  45                                                     "one-insn-per-tb",
  46                                                     &error_fatal);
  47
  48     g_string_append_printf(buf, "Accelerator settings:\n");
  49     g_string_append_printf(buf, "one-insn-per-tb: %s\n\n",
  50                            one_insn_per_tb ? "on" : "off");
  51 }
  52
  53 HumanReadableText *qmp_x_query_jit(Error **errp)
  54 {
  55     g_autoptr(GString) buf = g_string_new("");
  56
  57     if (!tcg_enabled()) {
  58         error_setg(errp, "JIT information is only available with accel=tcg");
  59         return NULL;
  60     }
  61
  62     dump_accel_info(buf);
  63     dump_exec_info(buf);
  64     dump_drift_info(buf);
  65
  66     return human_readable_text_from_str(buf);
  67 }
  68
  69 HumanReadableText *qmp_x_query_opcount(Error **errp)
  70 {
  71     g_autoptr(GString) buf = g_string_new("");
  72
  73     if (!tcg_enabled()) {
  74         error_setg(errp,
  75                    "Opcode count information is only available with accel=tcg");
  76         return NULL;
  77     }
  78
  79     tcg_dump_op_count(buf);
  80
  81     return human_readable_text_from_str(buf);
  82 }
  83
  84 #ifdef CONFIG_PROFILER
  85
  86 int64_t dev_time;
  87
  88 HumanReadableText *qmp_x_query_profile(Error **errp)
  89 {
  90     g_autoptr(GString) buf = g_string_new("");
  91     static int64_t last_cpu_exec_time;
  92     int64_t cpu_exec_time;
  93     int64_t delta;
  94
  95     cpu_exec_time = tcg_cpu_exec_time();
  96     delta = cpu_exec_time - last_cpu_exec_time;
  97
  98     g_string_append_printf(buf, "async time  %" PRId64 " (%0.3f)\n",
  99                            dev_time, dev_time / (double)NANOSECONDS_PER_SECOND);
 100     g_string_append_printf(buf, "qemu time   %" PRId64 " (%0.3f)\n",
 101                            delta, delta / (double)NANOSECONDS_PER_SECOND);
 102     last_cpu_exec_time = cpu_exec_time;
 103     dev_time = 0;
 104
 105     return human_readable_text_from_str(buf);
 106 }
 107 #else
 108 HumanReadableText *qmp_x_query_profile(Error **errp)
 109 {
 110     error_setg(errp, "Internal profiler not compiled");
 111     return NULL;
 112 }
 113 #endif
 114
 115 static void hmp_tcg_register(void)
 116 {
 117     monitor_register_hmp_info_hrt("jit", qmp_x_query_jit);
 118     monitor_register_hmp_info_hrt("opcount", qmp_x_query_opcount);
 119 }
 120
 121 type_init(hmp_tcg_register);