[Gtkwave-users] gtkwave::getDisplayedSignals results in sigfault

[Per K. <bas...@gm...>]

Hi!
The tcl command gtkwave::getDisplayedSignals results in a segmentation
fault. I've tried with vcd files generated by myhdl (below), and by Icarus.
The outcome is the same.
/Per

Here is the tcl script:
###############
set nfacs [gtkwave::getNumFacs]
set AllSigList [list]
for {set i 0} {$i < $nfacs} {incr i} {
    set facname [ gtkwave::getFacName $i ]
    lappend AllSigList "$facname"
    puts "$facname"
}
gtkwave::addSignalsFromList $AllSigList
set display_list [ gtkwave::getDisplayedSignals ]
###############

And here is the vcd:
################
$date
    Fri Jan 25 15:40:14 2013
$end
$version
    MyHDL 0.7
$end
$timescale
    1ns
$end

$scope module testbench $end
$var reg 3 ! even $end
$var reg 1 " rstn $end
$var reg 1 # clk $end
$scope module dut $end
$scope module dut $end
$var reg 4 $ cnt $end
$var reg 1 " rstn $end
$var reg 3 ! capped $end
$var reg 1 % less_flag $end
$var reg 1 # clk $end
$upscope $end
$upscope $end
$upscope $end

$enddefinitions $end
$dumpvars
b000 !
b0 "
b0 #
b0000 $
b0 %
$end
b1 %
#10
b1 #
#20
b0 #
#30
b1 #
#40
b0 #
#50
b1 #
#60
b0 #
#70
b1 #
#80
b0 #
#90
b1 #
#100
b0 #
b1 "
#110
b1 #
b0001 $
b001 !
#120
b0 #
#130
b1 #
b0010 $
b010 !
#140
b0 #
#150
b1 #
b0011 $
b011 !
#160
b0 #
#170
b1 #
b0100 $
b100 !
#180
b0 #
#190
b1 #