15 lines
365 B
Tcl
15 lines
365 B
Tcl
|
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
|
||
|
|
}
|
||
|
|
}
|