# 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 | |
} | |
} |