fix up gdb.trace
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.trace / mi-traceframe-changed.exp
index 21e11d5e5d15807c428768ea4469e7f3b032ee93..d8b6f43ceba745baa8d5968e24b32f22cf1074a8 100644 (file)
@@ -20,32 +20,49 @@ set MIFLAGS "-i=mi"
 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"
 
This page took 0.02359 seconds and 4 git commands to generate.