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

bisonpre: Add colon to states for searching

Browse Source
This commit is contained in:
Wilson Snyder 2012-12-02 16:19:31 -05:00
parent 4ffc48d194
commit de8b040e31
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/bisonpre
View File

@ -9,7 +9,7 @@ use Pod::Usage;
use strict;
use vars qw ($Debug $VERSION);
$VERSION = '3.307';
$VERSION = '3.318';
our $Self;
@ -56,7 +56,7 @@ process();
sub usage {
print "Version $VERSION\n";
pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT, -noperldoc=>1);
exit (1);
}
@ -167,11 +167,11 @@ sub clean_output {
my %state_line; my $l=0;
foreach my $line (@lines) {
$l++;
$state_line{$1} = $l if $line =~ /^state (\d+)\s*$/;
# We add a colon so it's easy to search for the definition
$state_line{$1} = $l if $line =~ s/^state (\d+)\s*$/state $1:/;
}
my @out;
foreach my $line (@lines) {
$state_line{$1} = $l if $line =~ /^state (\d+)\s*$/;
if ($line =~ /^State (\d+) (conflicts)/) {
chomp $line;
$line .= " // line $state_line{$1}" if $state_line{$1};