forked from github/verilator
52 lines
1.5 KiB
Perl
Executable File
52 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
|
|
# DESCRIPTION: Verilator: Verilog Test driver/expect definition
|
|
#
|
|
# Copyright 2003 by Wilson Snyder. This program 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.
|
|
|
|
use File::Spec;
|
|
|
|
my $self = $Self;
|
|
my $child_dir = "$Self->{obj_dir}_child";
|
|
mkdir $child_dir;
|
|
|
|
# Compile the child
|
|
{
|
|
my @cmdargs = $Self->compile_vlt_flags
|
|
(VM_PREFIX => "$Self->{VM_PREFIX}_child",
|
|
top_filename => "$Self->{name}_child.v",
|
|
verilator_flags => ["-cc", "-Mdir", "${child_dir}", "--debug-check"],
|
|
);
|
|
|
|
$Self->_run(logfile=>"${child_dir}/vlt_compile.log",
|
|
cmd=>\@cmdargs);
|
|
|
|
$Self->_run(logfile=>"${child_dir}/vlt_gcc.log",
|
|
cmd=>["cd ${child_dir} && ",
|
|
"make", "-f".getcwd()."/Makefile_obj",
|
|
"CPPFLAGS_DRIVER=-D".uc($self->{name}),
|
|
($opt_verbose ? "CPPFLAGS_DRIVER2=-DTEST_VERBOSE=1":""),
|
|
"MAKE_MAIN=0",
|
|
"VM_PREFIX=$self->{VM_PREFIX}_child",
|
|
"V$self->{name}_child__ALL.a", # bypass default rule, make archive
|
|
($param{make_flags}||""),
|
|
]);
|
|
}
|
|
|
|
# Compile the parent (might be with other than verilator)
|
|
compile (
|
|
v_flags2 => [File::Spec->rel2abs("${child_dir}/V$self->{name}_child__ALL.a"),
|
|
# TODO would be nice to have this in embedded archive
|
|
"t/t_embed1_c.cpp"],
|
|
);
|
|
|
|
execute (
|
|
check_finished=>1,
|
|
);
|
|
|
|
ok(1);
|
|
1;
|