luke
/
verilator
mirror of https://github.com/verilator/verilator.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bisonpre: Add colon to states for searching

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 strict;
use vars qw ($Debug $VERSION); use vars qw ($Debug $VERSION);
$VERSION = '3.307'; $VERSION = '3.318';
our $Self; our $Self;
@ -56,7 +56,7 @@ process();
sub usage { sub usage {
print "Version $VERSION\n"; print "Version $VERSION\n";
pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT); pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT, -noperldoc=>1);
exit (1); exit (1);
} }
@ -167,11 +167,11 @@ sub clean_output {
my %state_line; my $l=0; my %state_line; my $l=0;
foreach my $line (@lines) { foreach my $line (@lines) {
$l++; $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; my @out;
foreach my $line (@lines) { foreach my $line (@lines) {
$state_line{$1} = $l if $line =~ /^state (\d+)\s*$/;
if ($line =~ /^State (\d+) (conflicts)/) { if ($line =~ /^State (\d+) (conflicts)/) {
chomp $line; chomp $line;
$line .= " // line $state_line{$1}" if $state_line{$1}; $line .= " // line $state_line{$1}" if $state_line{$1};