diff options
author | Nicholas Piggin <npiggin@gmail.com> | 2018-08-08 22:13:09 +1000 |
---|---|---|
committer | Stewart Smith <stewart@linux.ibm.com> | 2018-08-13 23:48:19 -0500 |
commit | cb835dbdf8758b1fb0cae0ef2f93b324d1c4c96e (patch) | |
tree | 8ad38d08ae9e863a7b34958a23cc6b8d6e2ce877 /external | |
parent | 15880d514e1f27e4380eaaf0b7de5ac90d35da66 (diff) | |
download | skiboot-cb835dbdf8758b1fb0cae0ef2f93b324d1c4c96e.zip skiboot-cb835dbdf8758b1fb0cae0ef2f93b324d1c4c96e.tar.gz skiboot-cb835dbdf8758b1fb0cae0ef2f93b324d1c4c96e.tar.bz2 |
external/mambo: conditionally source qtrace script
This automatically gives qtrace commads if the simulator provides
the capability.
Signed-off-by: Nicholas Piggin <npiggin@gmail.com>
Signed-off-by: Stewart Smith <stewart@linux.ibm.com>
Diffstat (limited to 'external')
-rw-r--r-- | external/mambo/qtrace_utils.tcl | 16 | ||||
-rw-r--r-- | external/mambo/skiboot.tcl | 1 |
2 files changed, 10 insertions, 7 deletions
diff --git a/external/mambo/qtrace_utils.tcl b/external/mambo/qtrace_utils.tcl index bfea8d8..8080ae4 100644 --- a/external/mambo/qtrace_utils.tcl +++ b/external/mambo/qtrace_utils.tcl @@ -1,10 +1,12 @@ -source $env(LIB_DIR)/perf/qtrace.tcl +if { [file exists $env(LIB_DIR)/perf/qtrace.tcl] == 1} { + source $env(LIB_DIR)/perf/qtrace.tcl -proc start_qtrace { { qtfile qtrace.qt } } { - QTrace::Initialize p9 mysim - QTrace::Start $qtfile mysim -} + proc start_qtrace { { qtfile qtrace.qt } } { + QTrace::Initialize p9 mysim + QTrace::Start $qtfile mysim + } -proc stop_qtrace { } { - QTrace::Stop mysim + proc stop_qtrace { } { + QTrace::Stop mysim + } } diff --git a/external/mambo/skiboot.tcl b/external/mambo/skiboot.tcl index 7f92a53..df4dda2 100644 --- a/external/mambo/skiboot.tcl +++ b/external/mambo/skiboot.tcl @@ -1,5 +1,6 @@ # need to get images path defined early source $env(LIB_DIR)/ppc/util.tcl +source qtrace_utils.tcl # # Call tclreadline's Loop to move to friendlier |