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