diff options
author | Stewart Smith <stewart@linux.vnet.ibm.com> | 2017-11-29 17:14:35 +1100 |
---|---|---|
committer | Stewart Smith <stewart@linux.vnet.ibm.com> | 2017-11-29 17:14:35 +1100 |
commit | da719b6718a805a28c36c627449011251a29a498 (patch) | |
tree | 2d18cfdc1b32add4226b5138423c2fa0d0dc9390 | |
parent | afe10960c138295dfeb79f55d79abc5167a126a7 (diff) | |
download | skiboot-da719b6718a805a28c36c627449011251a29a498.zip skiboot-da719b6718a805a28c36c627449011251a29a498.tar.gz skiboot-da719b6718a805a28c36c627449011251a29a498.tar.bz2 |
mambo: split qtrace macros out into qtrace_utils.tcl
Signed-off-by: Stewart Smith <stewart@linux.vnet.ibm.com>
-rw-r--r-- | external/mambo/mambo_utils.tcl | 11 | ||||
-rw-r--r-- | external/mambo/qtrace_utils.tcl | 10 |
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 +} |