From 708fd36563f04fcd4eec304abeb3781e1ccf987e Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Fri, 24 Jan 2020 22:40:19 -0500
Subject: [PATCH] Tests: Show entering/exit so goto-error works on compile
 errors.

---
 test_regress/driver.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index c65327582..abc61c93f 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -1057,6 +1057,7 @@ sub compile {
         if (!$param{fails} && $param{verilator_make_gmake}) {
             $self->oprint("Running make (gmake)\n") if $self->{verbose};
             $self->_run(logfile => "$self->{obj_dir}/vlt_gcc.log",
+                        entering => "$self->{obj_dir}",
                         cmd => ["make",
                                 "-C ".$self->{obj_dir},
                                 "-f ".$::RealBin."/Makefile_obj",
@@ -1416,7 +1417,8 @@ sub run {
 }
 sub _run {
     my $self = (ref $_[0]? shift : $Self);
-    my %param = (tee=>1,
+    my %param = (tee => 1,
+                 #entering =>  # Print entering directory information
                  @_);
     my $command = join(' ',@{$param{cmd}});
     $command = "time $command" if $opt_benchmark && $command !~ /^cd /;
@@ -1438,6 +1440,8 @@ sub _run {
         my $pid=fork();
         if ($pid) {  # Parent
             close CHILDWR;
+            print "driver: Entering directory '",
+                File::Spec->rel2abs($param{entering}), "'\n" if $param{entering};
             while (1) {
                 my $buf = '';
                 my $got = sysread PARENTRD,$buf,10000;
@@ -1447,6 +1451,8 @@ sub _run {
             }
             close PARENTRD;
             close $logfh if $logfh;
+            print "driver: Leaving directory '",
+                File::Spec->rel2abs($param{entering}), "'\n" if $param{entering};
         }
         else {  # Child
             close PARENTRD;