Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

[gdb/testsuite] Fix gdb.threads/pending-fork-event-detach.exp for remote target

Browse Source 
Fix test-case gdb.threads/pending-fork-event-detach.exp for target board
remote-gdbserver-on-localhost using gdb_remote_download for $touch_file_bin.

Then, fix the test-case for target board remote-stdio-gdbserver with
REMOTE_TMPDIR=~/tmp.remote-stdio-gdbserver by creating $touch_file_path
on target using remote_download, and using the resulting path.

Tested on x86_64-linux.
This commit is contained in:
Tom de Vries
2023-03-09 15:49:17 +01:00
parent 093b56776f
commit 2562954ede
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
gdb/testsuite/gdb.threads/pending-fork-event-detach.exp
View File

@@ -42,6 +42,17 @@ if { [is_remote target] } {
# If the target is remote, write the file in whatever the current working
# directory is, with a somewhat unique name.
set touch_file_path ${testfile}-flag
# Now get the remote name, by creating the file on build and copying it to
# target.
remote_exec build touch $touch_file_path
set target_touch_file_path [remote_download target $touch_file_path]
# Clean up.
remote_file build delete $touch_file_path
remote_file target delete $target_touch_file_path
set touch_file_path $target_touch_file_path
} else {
set touch_file_path [standard_output_file flag]
}
@@ -51,11 +62,13 @@ if { [gdb_compile "$srcdir/$subdir/$srcfile2" $touch_file_bin executable $opts]
return
}
set target_touch_file_bin [gdb_remote_download target $touch_file_bin]
proc do_test { target-non-stop who_forks fork_function stop_mode } {
set opts [list \
debug \
"additional_flags=-DFORK_FUNCTION=$fork_function" \
"additional_flags=-DTOUCH_FILE_BIN=\"$::touch_file_bin\""]
"additional_flags=-DTOUCH_FILE_BIN=\"$::target_touch_file_bin\""]
# WHO_FORKS says which of the main or other thread calls (v)fork. The
# thread that does not call (v)fork is the one who tries to step.