aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--external/mambo/mambo_utils.tcl33
1 files changed, 7 insertions, 26 deletions
diff --git a/external/mambo/mambo_utils.tcl b/external/mambo/mambo_utils.tcl
index 1e3dea0..5113b21 100644
--- a/external/mambo/mambo_utils.tcl
+++ b/external/mambo/mambo_utils.tcl
@@ -1,3 +1,4 @@
+source $env(LIB_DIR)/perf/qtrace.tcl
#
# behave like gdb
@@ -364,32 +365,12 @@ proc skisym { name } {
}
proc start_qtrace { { qtfile qtrace.qt } } {
- global env
-
- mysim mode simple
-
- ereader expect 1
- simemit set "Header_Record" 1
- simemit set "Footer_Record" 1
- simemit set "Instructions" 1
- simemit set "Interrupt" 1
- simemit set "External_Int" 1
- simemit set "Config" 1
- simemit set "MSR" 1
- simemit set "Pid_Creatd" 1
- simemit set "Pid_Killed" 1
- simemit set "TLB_Inst_Miss" 1
- simemit set "TLB_Data_Miss" 1
- simemit set "SLB_Inst_Miss" 1
- simemit set "SLB_Data_Miss" 1
- simemit set "L1_ICache_Miss" 1
- simemit set "L1_DCache_Miss" 1
- simemit set "L2_Cache_Miss" 1
- simemit set "Memory_Write" 1
- simemit set "Memory_Read" 1
- simemit set "Bus_Wait" 1
-
- ereader start $env(EXEC_DIR)/emitter/qtracer [pid] -outfile $qtfile
+ QTrace::Initialize p9 mysim
+ QTrace::Start $qtfile mysim
+}
+
+proc stop_qtrace { } {
+ QTrace::Stop mysim
}
proc current_insn { { t 0 } { c 0 } } {