external/mambo/qtrace_utils.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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