driver.pl: Add --no-verilation option

This commit is contained in:
Wilson Snyder 2012-04-16 20:28:24 -04:00
parent 897d5c58b3
commit 7eb407fe2b
2 changed files with 5 additions and 3 deletions

View File

@ -60,6 +60,7 @@ my $opt_vlt;
my $opt_vcs; my $opt_vcs;
my $opt_verbose; my $opt_verbose;
my $Opt_Verilated_Debug; my $Opt_Verilated_Debug;
our $Opt_Verilation = 1;
our @Opt_Driver_Verilator_Flags; our @Opt_Driver_Verilator_Flags;
Getopt::Long::config ("pass_through"); Getopt::Long::config ("pass_through");
@ -86,6 +87,7 @@ if (! GetOptions (
"vlt!" => \$opt_vlt, "vlt!" => \$opt_vlt,
"vcs!" => \$opt_vcs, "vcs!" => \$opt_vcs,
"verbose!" => \$opt_verbose, "verbose!" => \$opt_verbose,
"verilation!" => \$Opt_Verilation, # Undocumented debugging
"verilated_debug!" => \$Opt_Verilated_Debug, "verilated_debug!" => \$Opt_Verilated_Debug,
#W see parameter() #W see parameter()
"<>" => \&parameter, "<>" => \&parameter,
@ -627,7 +629,7 @@ sub compile {
$self->_run(logfile=>"$self->{obj_dir}/vlt_compile.log", $self->_run(logfile=>"$self->{obj_dir}/vlt_compile.log",
fails=>$param{fails}, fails=>$param{fails},
expect=>$param{expect}, expect=>$param{expect},
cmd=>\@cmdargs); cmd=>\@cmdargs) if $::Opt_Verilation;
return 1 if $self->errors || $self->skips || $self->unsupporteds; return 1 if $self->errors || $self->skips || $self->unsupporteds;
if (!$param{fails} && $param{verilator_make_gcc}) { if (!$param{fails} && $param{verilator_make_gcc}) {