Mario1159/verilator
1
0
Fork 0
forked from github/verilator
Code Pull Requests Releases 1 Activity

Tests: Allow driver to find 't' signals when not first in file.

Browse Source
This commit is contained in:
Wilson Snyder 2013-05-23 22:00:55 -04:00
parent 5765e099a6
commit 99cd2818a1
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test_regress/driver.pl
View File

@ -1297,14 +1297,23 @@ sub _read_inputs_v {
my $filename = $self->top_filename; my $filename = $self->top_filename;
$filename = "$self->{t_dir}/$filename" if !-r $filename; $filename = "$self->{t_dir}/$filename" if !-r $filename;
my $fh = IO::File->new("<$filename") or die "%Error: $! $filename,"; my $fh = IO::File->new("<$filename") or die "%Error: $! $filename,";
my $get_sigs=1;
my %inputs;
while (defined(my $line = $fh->getline)) { while (defined(my $line = $fh->getline)) {
if ($line =~ /^\s*input\s*(\S+)\s*(\/[^\/]+\/|)\s*;/) { if ($get_sigs) {
$self->{inputs}{$1} = $1; if ($line =~ /^\s*input\s*(\S+)\s*(\/[^\/]+\/|)\s*;/) {
$inputs{$1} = $1;
}
if ($line =~ /^\s*(function|task|endmodule)/) {
$get_sigs = 0;
}
} }
if ($line =~ /^\s*(function|task|endmodule)/) { if ($line =~ /^\s*module\s+t\b/) { # Ignore any earlier inputs; Module 't' has precedence
last; %inputs = ();
$get_sigs = 1;
} }
} }
$self->{inputs}{$_} = $inputs{$_} foreach keys %inputs;
$fh->close(); $fh->close();
} }