Re: [PATCH] [gdb/testsuite] Fix copy-to-remote in gdb.base/vfork-follow-parent.exp

[Andrew Burgess <aburgess@redhat.com>]

Tom de Vries via Gdb-patches <gdb-patches@sourceware.org> writes:

> When running test-case gdb.base/vfork-follow-parent.exp, I run into:
> ...
> ERROR: tcl error sourcing gdb/testsuite/gdb.base/vfork-follow-parent.exp.
> ERROR: error copying "vforked-prog": no such file or directory
>     while executing
> "file copy -force $fromfile $tofile"
>     (procedure "gdb_remote_download" line 29)
>     invoked from within
> "gdb_remote_download target $binfile3"
> ...

I'd love to know how I managed to have this passing.  I guess I must
have manged to get a vforked-prog binary in the wrong directory somehow.

>
> Fix this by:
> - making the copy-to-remote conditional on is_remote target, and
> - allowing gdb_remote_download to find $binfile3 by using
>   standard_output_file.
>
> Also remove unused variable remote_exec_prog.
>
> Tested on x86_64-linux.
> ---
>  gdb/testsuite/gdb.base/vfork-follow-parent.exp | 4 +++-
>  1 file changed, 3 insertions(+), 1 deletion(-)
>
> diff --git a/gdb/testsuite/gdb.base/vfork-follow-parent.exp b/gdb/testsuite/gdb.base/vfork-follow-parent.exp
> index 70b54e729a5..a29706f58c5 100644
> --- a/gdb/testsuite/gdb.base/vfork-follow-parent.exp
> +++ b/gdb/testsuite/gdb.base/vfork-follow-parent.exp
> @@ -30,7 +30,9 @@ if { [build_executable "compile $binfile3" $binfile3 $srcfile2] } {
>      return -1
>  }
>  
> -set remote_exec_prog [gdb_remote_download target $binfile3]
> +if { [is_remote target] } {
> +    gdb_remote_download target [standard_output_file $binfile3]
> +}

The is_remote check is unnecessary.  It's the addition of
standard_output_file that fixes the problem.

The gdb_remote_download proc already has an is_remote check, and if not
remote it just copies the file to the standard_output_file directory.
Which, in this case, is where the file started, so is a no-op.

Thanks for fixing this.

Andrew



>  
>  set opts [list debug additional_flags=-DTEST_EXIT]
>  if { [build_executable "compile ${binfile}" ${binfile} ${srcfile} ${opts}] } {
>
> base-commit: 3afe50fe1974f9a13326a31696f5a93371ed00b7
> -- 
> 2.35.3