diff options
| author | Claire Xenia Wolf <claire@clairexen.net> | 2021-10-19 10:56:43 +0200 |
|---|---|---|
| committer | Claire Xenia Wolf <claire@clairexen.net> | 2021-10-19 10:56:43 +0200 |
| commit | 83887495b80f8dba24c3c81c96cce6f464efb24e (patch) | |
| tree | 28a1e39f581fbc6b7715729a4e3cd76f743f7c2e | |
| parent | a15b01a777c7e122e1ebce6920c58faa94b4dba6 (diff) | |
| download | yosys-83887495b80f8dba24c3c81c96cce6f464efb24e.tar.gz yosys-83887495b80f8dba24c3c81c96cce6f464efb24e.tar.bz2 yosys-83887495b80f8dba24c3c81c96cce6f464efb24e.zip | |
Fixes in vcdcd.pl for newer Perl versions
Signed-off-by: Claire Xenia Wolf <claire@clairexen.net>
| -rwxr-xr-x | tests/tools/vcdcd.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tools/vcdcd.pl b/tests/tools/vcdcd.pl index 58a92b44d..0f33371fb 100755 --- a/tests/tools/vcdcd.pl +++ b/tests/tools/vcdcd.pl @@ -11,7 +11,7 @@ $| = 1; my $opt_width = 0; my $opt_delay = 0; -while (1) +while ($#ARGV >= 0) { if ($ARGV[0] eq '-w') { $opt_width = +$ARGV[1]; @@ -74,10 +74,10 @@ for my $net (sort keys %gold_signals_hash) { # next unless $net eq "tst_bench_top.i2c_top.byte_controller.bit_controller.cnt"; my %orig_net_names; print "common signal: $net"; - for my $fullname (keys $gold_signals_hash{$net}) { + for my $fullname (keys %{$gold_signals_hash{$net}}) { $orig_net_names{$fullname} = 1; } - for my $fullname (keys $gate_signals_hash{$net}) { + for my $fullname (keys %{$gate_signals_hash{$net}}) { $orig_net_names{$fullname} = 1; } for my $net (sort keys %orig_net_names) { |