1 files changed, 16 insertions, 0 deletions
diff --git a/roms/skiboot/external/mambo/qtrace_utils.tcl b/roms/skiboot/external/mambo/qtrace_utils.tcl
new file mode 100644
index 000000000..bb20b31d3
--- /dev/null
+++ b/roms/skiboot/external/mambo/qtrace_utils.tcl
@@ -0,0 +1,16 @@
+# SPDX-License-Identifier: Apache-2.0 OR GPL-2.0-or-later
+
+if { [file exists $env(LIB_DIR)/perf/qtrace.tcl] == 1} {
+    if { [catch {source $env(LIB_DIR)/perf/qtrace.tcl} issue ] } {
+        puts "QTrace not available: $issue"
+    }
+
+    proc start_qtrace { { qtfile qtrace.qt } } {
+        QTrace::Initialize p9 mysim
+        QTrace::Start $qtfile mysim
+    }
+
+    proc stop_qtrace { } {
+        QTrace::Stop mysim
+    }
+}