URL
https://opencores.org/ocsvn/forth-cpu/forth-cpu/trunk
[/] [forth-cpu/] [trunk/] [signals.tcl] - Blame information for rev 5
Details |
Compare with Previous |
View Log
| Line No. |
Rev |
Author |
Line |
| 1 |
5 |
howe.r.j.8 |
# Richard Howe
|
| 2 |
|
|
# TCL Script for GTKWave on tb.ghw
|
| 3 |
|
|
#
|
| 4 |
|
|
|
| 5 |
|
|
set nfacs [ gtkwave::getNumFacs ]
|
| 6 |
|
|
|
| 7 |
|
|
gtkwave::/Edit/Set_Trace_Max_Hier 0
|
| 8 |
|
|
gtkwave::/Time/Zoom/Zoom_Amount -31.5
|
| 9 |
|
|
|
| 10 |
|
|
set instruction "top.tb.dbgi.insn"
|
| 11 |
|
|
|
| 12 |
|
|
set names [list]
|
| 13 |
|
|
lappend names "top.tb.clk"
|
| 14 |
|
|
lappend names "top.tb.rst"
|
| 15 |
|
|
lappend names "top.tb.dbgi.pc"
|
| 16 |
|
|
lappend names "$instruction"
|
| 17 |
|
|
lappend names "top.tb.dbgi.daddr"
|
| 18 |
|
|
lappend names "top.tb.dbgi.dout"
|
| 19 |
|
|
lappend names "top.tb.dbgi.din"
|
| 20 |
|
|
lappend names "top.tb.o_vga.hsync"
|
| 21 |
|
|
lappend names "top.tb.o_vga.vsync"
|
| 22 |
|
|
|
| 23 |
|
|
puts "signal list: $names"
|
| 24 |
|
|
|
| 25 |
|
|
set num_added [ gtkwave::addSignalsFromList $names ]
|
| 26 |
|
|
puts "num signals added: $num_added"
|
| 27 |
|
|
|
| 28 |
|
|
set highlight_insn [list]
|
| 29 |
|
|
lappend highlight_insn $instruction
|
| 30 |
|
|
|
| 31 |
|
|
set num_added [ gtkwave::highlightSignalsFromList "top.tb.dbgi.insn\[15:0\]"]
|
| 32 |
|
|
puts "num highlighted: $num_added"
|
| 33 |
|
|
gtkwave::/Edit/Highlight_Regexp "insn"
|
| 34 |
|
|
set procFile "./h2"
|
| 35 |
|
|
set OS [lindex $tcl_platform(os) 0]
|
| 36 |
|
|
if { $OS == "Windows" } {
|
| 37 |
|
|
set procFile "h2.exe"
|
| 38 |
|
|
}
|
| 39 |
|
|
|
| 40 |
|
|
set which_f [ gtkwave::setCurrentTranslateProc $procFile ]
|
| 41 |
|
|
puts "which_f: $which_f"
|
| 42 |
|
|
gtkwave::/Edit/Data_Format/Translate_Filter_Process/Enable_and_Select
|
| 43 |
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.