From 96725b34310374a688cbda349639d2ec71e26006 Mon Sep 17 00:00:00 2001 From: Stefan Wallentowitz Date: Thu, 19 Sep 2019 18:46:45 -0400 Subject: [PATCH] Tests: To allow reuse of cpp files, allow to set the PLI filename. Signed-off-by: Wilson Snyder --- test_regress/driver.pl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/test_regress/driver.pl b/test_regress/driver.pl index 5951b8a0e..d6c69c1b1 100755 --- a/test_regress/driver.pl +++ b/test_regress/driver.pl @@ -601,6 +601,7 @@ sub new { } else { $self->{top_shell_filename} = "$self->{obj_dir}/$self->{VM_PREFIX}__top.v"; } + $self->{pli_filename} ||= $self->{name}.".cpp"; return $self; } @@ -993,7 +994,8 @@ sub compile { if ($param{make_pli}) { $self->oprint("Compile vpi\n") if $self->{verbose}; - my @cmd = ('c++', @{$param{pli_flags}}, "-DIS_VPI", "$self->{t_dir}/$self->{name}.cpp"); + my @cmd = ('c++', @{$param{pli_flags}}, "-DIS_VPI", + "$self->{t_dir}/$self->{pli_filename}"); $self->_run(logfile=>"$self->{obj_dir}/pli_compile.log", fails=>$param{fails}, @@ -1259,6 +1261,12 @@ sub get_default_vltmt_threads { return $Vltmt_threads; } +sub pli_filename { + my $self = (ref $_[0]? shift : $Self); + $self->{pli_filename} = shift if defined $_[0]; + return $self->{pli_filename}; +} + sub too_few_cores { my $threads = ::calc_threads($Vltmt_threads); return $threads < $Vltmt_threads;