-
-
Notifications
You must be signed in to change notification settings - Fork 29
/
signals.tcl
43 lines (33 loc) · 1.07 KB
/
signals.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
# Richard Howe
# TCL Script for GTKWave on tb.ghw
#
set nfacs [ gtkwave::getNumFacs ]
gtkwave::/Edit/Set_Trace_Max_Hier 0
gtkwave::/Time/Zoom/Zoom_Amount -31.5
set instruction "top.tb.dbgi.insn"
set names [list]
lappend names "top.tb.clk"
lappend names "top.tb.rst"
lappend names "top.tb.dbgi.pc"
lappend names "$instruction"
lappend names "top.tb.dbgi.daddr"
lappend names "top.tb.dbgi.dout"
lappend names "top.tb.dbgi.din"
lappend names "top.tb.o_vga.hsync"
lappend names "top.tb.o_vga.vsync"
puts "signal list: $names"
set num_added [ gtkwave::addSignalsFromList $names ]
puts "num signals added: $num_added"
set highlight_insn [list]
lappend highlight_insn $instruction
set num_added [ gtkwave::highlightSignalsFromList "top.tb.dbgi.insn\[15:0\]"]
puts "num highlighted: $num_added"
gtkwave::/Edit/Highlight_Regexp "insn"
set procFile "./h2"
set OS [lindex $tcl_platform(os) 0]
if { $OS == "Windows" } {
set procFile "h2.exe"
}
set which_f [ gtkwave::setCurrentTranslateProc $procFile ]
puts "which_f: $which_f"
gtkwave::/Edit/Data_Format/Translate_Filter_Process/Enable_and_Select