mirror of
https://github.com/verilator/verilator.git
synced 2025-01-12 17:47:34 +00:00
38 lines
1.7 KiB
Perl
Executable File
38 lines
1.7 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
######################################################################
|
|
#
|
|
# Copyright 2002-2011 by Wilson Snyder. Verilator is free software; you
|
|
# can redistribute it and/or modify it under the terms of either the GNU
|
|
# Lesser General Public License Version 3 or the Perl Artistic License
|
|
# Version 2.0.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
######################################################################
|
|
|
|
# DESCRIPTION: Edits flex output to get around various broken flex issues.
|
|
|
|
my $Opt_Prefix = $ARGV[0] or die "%Error: No prefix specified,";
|
|
|
|
foreach my $line (<STDIN>) {
|
|
# Fix flex 2.5.4 namespace omission
|
|
$line =~ s/^class istream;/\#include <iostream>\nusing namespace std;\n/;
|
|
# Fix flex 2.5.31 redefinition
|
|
$line =~ s!(\#define\s+yyFlexLexer\s+yyFlexLexer)!//flexfix: $1!g;
|
|
# Fix flex 2.5.1 yytext_ptr undef
|
|
$line =~ s!(\#undef\s+yytext_ptr)!//flexfix: $1!g;
|
|
# Fix flex 2.5.4 and GCC 4.1.0 warn_unused_result
|
|
$line =~ s!\(void\) *fwrite\((.*)\)!if (fwrite($1)) {}!g;
|
|
# Fix flex 2.5.33 and GCC 4.1.2 "warning: comparison between signed and unsigned integer expressions" in YY_INPUT
|
|
$line =~ s!for \( n = 0; n < max_size && !for ( n = 0; ((size_t)n < (size_t)max_size) && !g;
|
|
# Fix flex 2.5.4 and GCC 4.0.2 under FLEX_DEBUG
|
|
$line =~ s!--accepting rule at line %d !--accepting rule at line %ld !g;
|
|
# Fix compiler warning filenames
|
|
$line =~ s!(#line \d+ ".*)_pretmp!$1!;
|
|
|
|
print "$line";
|
|
}
|