standard_testfile tfile.c
set executable $testfile
+if {![is_remote host] && ![is_remote target]} {
+ set tfile_basic [standard_output_file tfile-basic.tf]
+ set tfile_dir [file dirname $tfile_basic]/
+ set purely_local 1
+} else {
+ set tfile_basic tfile-basic.tf
+ set tfile_dir ""
+ set purely_local 0
+}
+
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
- executable {debug nowarnings}] != "" } {
+ executable \
+ [list debug nowarnings \
+ "additional_flags=-DTFILE_DIR=\"$tfile_dir\""]] \
+ != "" } {
untested ${testfile}.exp
return -1
}
# Make sure we are starting fresh.
-remote_file host delete tfile-basic.tf
-remote_file target delete tfile-basic.tf
+remote_file host delete $tfile_basic
+remote_file target delete $tfile_basic
remote_exec target "$binfile"
-# Copy tracefile from target to host.
-remote_download host [remote_upload target tfile-basic.tf] \
- tfile-basic.tf
+
+if {!$purely_local} {
+ # Copy tracefile from target to host.
+ remote_download host [remote_upload target tfile-basic.tf] \
+ tfile-basic.tf
+}
proc test_tfind_tfile { } {
with_test_prefix "tfile" {
global binfile
global decimal
+ global tfile_basic
if [mi_gdb_start] {
return
}
mi_gdb_load ${binfile}
- mi_gdb_test "-target-select tfile tfile-basic.tf" \
+ mi_gdb_test "-target-select tfile ${tfile_basic}" \
".*=breakpoint-created,bkpt=\{number=\"${decimal}\",type=\"tracepoint\",disp=\"keep\",enabled=\"y\",.*,func=\"write_basic_trace_file\".*\\^connected" \
"select trace file"