mambo: split qtrace macros out into qtrace_utils.tcl

Signed-off-by: Stewart Smith <stewart@linux.vnet.ibm.com>

2 files changed, 10 insertions, 11 deletions

diff --git a/external/mambo/mambo_utils.tcl b/external/mambo/mambo_utils.tcl
index 5113b21..7a27f0f 100644
--- a/external/mambo/mambo_utils.tcl
+++ b/external/mambo/mambo_utils.tcl
@@ -1,5 +1,3 @@
-source $env(LIB_DIR)/perf/qtrace.tcl
-
 #
 # behave like gdb
 #
@@ -364,15 +362,6 @@ proc skisym { name } {
     return $ret
 }
 
-proc start_qtrace { { qtfile qtrace.qt } } {
-	QTrace::Initialize p9 mysim
-	QTrace::Start $qtfile mysim
-}
-
-proc stop_qtrace { } {
-	QTrace::Stop mysim
-}
-
 proc current_insn { { t 0 } { c 0 } } {
     set pc [mysim cpu $c thread $t display spr pc]
     set pc_laddr [mysim cpu $c util itranslate $pc]
diff --git a/external/mambo/qtrace_utils.tcl b/external/mambo/qtrace_utils.tcl
new file mode 100644
index 0000000..bfea8d8
--- /dev/null
+++ b/external/mambo/qtrace_utils.tcl
@@ -0,0 +1,10 @@
+source $env(LIB_DIR)/perf/qtrace.tcl
+
+proc start_qtrace { { qtfile qtrace.qt } } {
+    QTrace::Initialize p9 mysim
+    QTrace::Start $qtfile mysim
+}
+
+proc stop_qtrace { } {
+    QTrace::Stop mysim
+}