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); 122