* gdb.trace/actions.exp: Use standard_testfile.
authorTom Tromey <tromey@redhat.com>
Tue, 26 Jun 2012 18:25:19 +0000 (18:25 +0000)
committerTom Tromey <tromey@redhat.com>
Tue, 26 Jun 2012 18:25:19 +0000 (18:25 +0000)
* gdb.trace/ax.exp: Use standard_testfile.
* gdb.trace/backtrace.exp: Use standard_testfile.
* gdb.trace/change-loc.exp: Use standard_testfile.
* gdb.trace/circ.exp: Use standard_testfile, prepare_for_testing.
* gdb.trace/collection.exp: Use standard_testfile,
prepare_for_testing.
* gdb.trace/deltrace.exp: Use standard_testfile.
* gdb.trace/disconnected-tracing.exp: Use standard_testfile.
* gdb.trace/ftrace.exp: Use standard_testfile.
* gdb.trace/infotrace.exp: Use standard_testfile.
* gdb.trace/packetlen.exp: Use standard_testfile.
* gdb.trace/passc-dyn.exp: Use standard_testfile.
* gdb.trace/passcount.exp: Use standard_testfile.
* gdb.trace/pending.exp: Use standard_testfile.
* gdb.trace/report.exp: Use standard_testfile.
* gdb.trace/save-trace.exp: Use standard_testfile.
* gdb.trace/stap-trace.exp: Use standard_testfile.
* gdb.trace/status-stop.exp: Use standard_testfile.
* gdb.trace/strace.exp: Use standard_testfile.
* gdb.trace/tfile.exp: Use standard_testfile.
* gdb.trace/tfind.exp: Use standard_testfile.
* gdb.trace/trace-break.exp: Use standard_testfile.
* gdb.trace/trace-mt.exp: Use standard_testfile.
* gdb.trace/tracecmd.exp: Use standard_testfile.
* gdb.trace/tspeed.exp: Use standard_testfile.
* gdb.trace/tstatus.exp: Use standard_testfile.
* gdb.trace/tsv.exp: Use standard_testfile.
* gdb.trace/unavailable.exp: Use standard_testfile,
prepare_for_testing.
* gdb.trace/while-dyn.exp: Use standard_testfile.
* gdb.trace/while-stepping.exp: Use standard_testfile.

31 files changed:
gdb/testsuite/ChangeLog
gdb/testsuite/gdb.trace/actions.exp
gdb/testsuite/gdb.trace/ax.exp
gdb/testsuite/gdb.trace/backtrace.exp
gdb/testsuite/gdb.trace/change-loc.exp
gdb/testsuite/gdb.trace/circ.exp
gdb/testsuite/gdb.trace/collection.exp
gdb/testsuite/gdb.trace/deltrace.exp
gdb/testsuite/gdb.trace/disconnected-tracing.exp
gdb/testsuite/gdb.trace/ftrace.exp
gdb/testsuite/gdb.trace/infotrace.exp
gdb/testsuite/gdb.trace/packetlen.exp
gdb/testsuite/gdb.trace/passc-dyn.exp
gdb/testsuite/gdb.trace/passcount.exp
gdb/testsuite/gdb.trace/pending.exp
gdb/testsuite/gdb.trace/report.exp
gdb/testsuite/gdb.trace/save-trace.exp
gdb/testsuite/gdb.trace/stap-trace.exp
gdb/testsuite/gdb.trace/status-stop.exp
gdb/testsuite/gdb.trace/strace.exp
gdb/testsuite/gdb.trace/tfile.exp
gdb/testsuite/gdb.trace/tfind.exp
gdb/testsuite/gdb.trace/trace-break.exp
gdb/testsuite/gdb.trace/trace-mt.exp
gdb/testsuite/gdb.trace/tracecmd.exp
gdb/testsuite/gdb.trace/tspeed.exp
gdb/testsuite/gdb.trace/tstatus.exp
gdb/testsuite/gdb.trace/tsv.exp
gdb/testsuite/gdb.trace/unavailable.exp
gdb/testsuite/gdb.trace/while-dyn.exp
gdb/testsuite/gdb.trace/while-stepping.exp

index 5eb76ec88573a97fc94619fa5acc6f186c28e3c8..02494cfbe7a81d076e15368b1ac465cf488d3756 100644 (file)
@@ -1,3 +1,38 @@
+2012-06-26  Tom Tromey  <tromey@redhat.com>
+
+       * gdb.trace/actions.exp: Use standard_testfile.
+       * gdb.trace/ax.exp: Use standard_testfile.
+       * gdb.trace/backtrace.exp: Use standard_testfile.
+       * gdb.trace/change-loc.exp: Use standard_testfile.
+       * gdb.trace/circ.exp: Use standard_testfile, prepare_for_testing.
+       * gdb.trace/collection.exp: Use standard_testfile,
+       prepare_for_testing.
+       * gdb.trace/deltrace.exp: Use standard_testfile.
+       * gdb.trace/disconnected-tracing.exp: Use standard_testfile.
+       * gdb.trace/ftrace.exp: Use standard_testfile.
+       * gdb.trace/infotrace.exp: Use standard_testfile.
+       * gdb.trace/packetlen.exp: Use standard_testfile.
+       * gdb.trace/passc-dyn.exp: Use standard_testfile.
+       * gdb.trace/passcount.exp: Use standard_testfile.
+       * gdb.trace/pending.exp: Use standard_testfile.
+       * gdb.trace/report.exp: Use standard_testfile.
+       * gdb.trace/save-trace.exp: Use standard_testfile.
+       * gdb.trace/stap-trace.exp: Use standard_testfile.
+       * gdb.trace/status-stop.exp: Use standard_testfile.
+       * gdb.trace/strace.exp: Use standard_testfile.
+       * gdb.trace/tfile.exp: Use standard_testfile.
+       * gdb.trace/tfind.exp: Use standard_testfile.
+       * gdb.trace/trace-break.exp: Use standard_testfile.
+       * gdb.trace/trace-mt.exp: Use standard_testfile.
+       * gdb.trace/tracecmd.exp: Use standard_testfile.
+       * gdb.trace/tspeed.exp: Use standard_testfile.
+       * gdb.trace/tstatus.exp: Use standard_testfile.
+       * gdb.trace/tsv.exp: Use standard_testfile.
+       * gdb.trace/unavailable.exp: Use standard_testfile,
+       prepare_for_testing.
+       * gdb.trace/while-dyn.exp: Use standard_testfile.
+       * gdb.trace/while-stepping.exp: Use standard_testfile.
+
 2012-06-26  Tom Tromey  <tromey@redhat.com>
 
        * gdb.reverse/break-precsave.exp: Use standard_testfile.
index 18c778a83f7753eb2d552abacdcb7d58aa5811cb..4400dbc0126850de7ec6be53c015fcd0770c87f5 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/actions
+standard_testfile
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested actions.exp
index aa25f6cd419187a163d0186872527dba74bca1af..9940a5e5c0715e102387657b95d8bfee9a0e1de1 100644 (file)
@@ -23,9 +23,7 @@ load_lib "trace-support.exp";
 
 gdb_exit
 gdb_start
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/ax
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested ax.exp
index 7d978930bbe6ea976034ef4169b2677486d52b1c..5093266bd0490d1de40e362263d7d26d115eae11 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/backtrace
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested backtrace.exp
index c881ae79291582c778acf9ce3a5aa3a66f7134b0..0064b6ffc3f37ae069b82a3271847b099d6d8805 100644 (file)
@@ -18,16 +18,14 @@ if {[skip_shlib_tests]} {
     return 0
 }
 
-set testfile "change-loc"
+standard_testfile
 set libfile1 "change-loc-1"
 set libfile2 "change-loc-2"
-set srcfile $testfile.c
 set executable $testfile
 set libsrc1 $srcdir/$subdir/$libfile1.c
 set libsrc2 $srcdir/$subdir/$libfile2.c
-set binfile $objdir/$subdir/$testfile
-set lib_sl1 $objdir/$subdir/$libfile1.sl
-set lib_sl2 $objdir/$subdir/$libfile2.sl
+set lib_sl1 [standard_output_file $libfile1.sl]
+set lib_sl2 [standard_output_file $libfile2.sl]
 
 set lib_opts debug
 
index 67b4389c6a8345fa565ec9c88984586526d68a2c..830008224836ddbc6cb9cfd765090cde605245d7 100644 (file)
 load_lib "trace-support.exp"
 
 
-set testfile "circ"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/$testfile
+standard_testfile
 
-if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
-       executable {debug nowarnings}] != "" } {
-    untested circ.exp
+if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug nowarnings}]} {
     return -1
 }
 
@@ -200,13 +196,6 @@ proc gdb_trace_circular_tests { } {
     return 0;
 }
 
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load $binfile
 gdb_test_no_output "set circular-trace-buffer on" \
     "set circular-trace-buffer on"
 
index 9beb9afba2cdcde240a1528c508ef2a6515f1e5d..25544b546397dda4f511149b026ddd83b9ce834b 100644 (file)
 load_lib "trace-support.exp"
 
 
-set testfile "collection"
-set srcfile ${testfile}.c
+standard_testfile
 set executable $testfile
-set binfile $objdir/$subdir/$executable
 
-if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
-       executable {debug nowarnings}] != "" } {
-    untested collection.exp
+if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug nowarnings}]} {
     return -1
 }
 
@@ -776,7 +772,6 @@ proc gdb_trace_collection_test {} {
 
 }
 
-clean_restart $executable
 runto_main
 
 if { ![gdb_target_supports_trace] } then {
index 6baf1d2ab95ed7a099f80ada1b07cf834f212673..2423de23018f386107b1f8f59f26ac7099ad42eb 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/deltrace
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested deltrace.exp
index 9c35b76b7ee5aa5fbac79a10adb4207dd42c8d66..64ce2744a8b39fc4ab8877a16f93943c39e58dc5 100644 (file)
 
 load_lib "trace-support.exp";
 
-set testfile "disconnected-tracing"
-set executable $testfile
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/$testfile
+standard_testfile
+set executabel $testfile
 set expfile $testfile.exp
 set gdbserver_reconnect_p 1
 
index 634d77b21c59177525f4e883a39560db5033cfb7..56cd2fac27a1912fb1150c6d4d5a18ba07f57d2e 100644 (file)
 
 load_lib "trace-support.exp";
 
-set testfile "ftrace"
+standard_testfile
 set executable $testfile
-set srcfile $testfile.c
-set binfile $objdir/$subdir/$testfile
 set expfile $testfile.exp
 
 # Some targets have leading underscores on assembly symbols.
index 5a99d16e28e82534fee62fc9bc206c46970d04ef..bdc383046c0b92f23adaac57118ed56b91782a4e 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/infotrace
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested infotrace.exp
index 4ce13e660f0386fc07f8f322037868a056a413f2..81f3d7d0a1b669edc89307090945f128c495b59f 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp"
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/packetlen
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested packetlen.exp
index 718a4da6bb00eb69f2ea4471caa586ef454a4ff0..0e6465b2ec3fb75870be1999deeae68105de05a1 100644 (file)
@@ -20,9 +20,7 @@ load_lib "trace-support.exp";
 
 gdb_exit
 gdb_start
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/passc-dyn
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested passc-dyn.exp
index a56c84662ddd7ab02919f4ab924879faa1efe647..42f767a266816bb900c3a8b73f128cf205fe7abe 100644 (file)
@@ -20,9 +20,7 @@ load_lib "trace-support.exp";
 
 gdb_exit
 gdb_start
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/passcount
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested passcount.exp
index 018ded2bc45bb36459e250d753af5c9b1de6cb84..750c0317c16e2a1b2ae0eaeea60a3117c0cde2a3 100644 (file)
@@ -18,16 +18,14 @@ if {[skip_shlib_tests]} {
     return 0
 }
 
-set testfile "pending"
+standard_testfile
 set libfile1 "pendshr1"
 set libfile2 "pendshr2"
 set executable $testfile
-set srcfile $testfile.c
 set libsrc1  $srcdir/$subdir/$libfile1.c
 set libsrc2  $srcdir/$subdir/$libfile2.c
-set binfile $objdir/$subdir/$testfile
-set lib_sl1  $objdir/$subdir/$libfile1.sl
-set lib_sl2  $objdir/$subdir/$libfile2.sl
+set lib_sl1  [standard_output_file $libfile1.sl]
+set lib_sl2  [standard_output_file $libfile2.sl]
 
 set lib_opts [gdb_target_symbol_prefix_flags]
 
index 7c08a419b84a96c3e298f2e13b150402bc95f821..7153f07800cadea89ca4a35208784f8ad127a1cb 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/report
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested report.exp
index e5cada7b12530da037fb8100de16a3868ca1768e..2a9061a089b938ad29d48481109495e746dc2eb5 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/save-trace
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested save-trace.exp
@@ -136,20 +134,21 @@ remote_file host delete savetrace.tr
 
 # 10.3 repeat with a path to the file
 
-set escapedfilename [string_to_regexp $objdir/savetrace.tr]
-remote_file host delete $objdir/savetrace.tr
-gdb_test "save-tracepoints $objdir/savetrace.tr" \
+set trace_file_name [standard_output_file savetrace.tr]
+set escapedfilename [string_to_regexp $trace_file_name]
+remote_file host delete $trace_file_name
+gdb_test "save-tracepoints $trace_file_name" \
        "Saved to file '${escapedfilename}'." \
        "10.3: save tracepoint definitions, full path"
 
 gdb_delete_tracepoints
 gdb_test_no_output "set default-collect" "10.3: clear default-collect"
 gdb_test "info tracepoints" "No tracepoints." "10.3: delete tracepoints"
-gdb_test "source $objdir/savetrace.tr" \
+gdb_test "source $trace_file_name" \
        "Tracepoint \[0-9\]+ at .*" \
        "10.4: read saved tracepoints, full path"
 gdb_verify_tracepoints "10.3: verify recovered tracepoints, full path";
-remote_file host delete $objdir/savetrace.tr
+remote_file host delete $trace_file_name
 
 # 10.5 invalid filename
 #      [deferred -- not sure what a good invalid filename would be]
index abc5af4a19f8a524731323663470ba2715e52e6f..39db64ba6be286044dfb5bdc070ea40716b21b2a 100644 (file)
 
 load_lib "trace-support.exp"
 
-set testfile "stap-trace"
-set srcfile ${testfile}.c
+standard_testfile
 set executable ""
-set binfile_dir $objdir/$subdir
 
 set ws "\[\r\n\t \]+"
 set cr "\[\r\n\]+"
@@ -31,7 +29,6 @@ if { ![istarget "x86_64-*"] && ![istarget "i?86-*"] } {
 
 proc compile_stap_bin {exec_name {arg ""}} {
     global srcfile
-    global binfile_dir
     global srcdir
     global subdir
     global executable
@@ -43,8 +40,8 @@ proc compile_stap_bin {exec_name {arg ""}} {
     set executable ${exec_name}
 
     if { [gdb_compile "$srcdir/$subdir/$srcfile" \
-           "$binfile_dir/$exec_name" \
-           executable [concat $arg debug nowarnings]] != "" } {
+             [standard_output_file $exec_name] \
+             executable [concat $arg debug nowarnings]] != "" } {
        untested "Could not compile ${srcfile}"
        return 0
     }
index 9c2320ef2c2998665deb62e38b0e1948525498d4..61afdd5936d249c87b01839ab13769e37c464f4e 100644 (file)
 
 load_lib "trace-support.exp";
 
-set testfile "status-stop"
+standard_testfile
 set executable $testfile
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/$testfile
 set expfile $testfile.exp
 
 
index b79fd9c5c7f8417493fcfb16ce74c8ef872414a4..d9e90b6efd8660036d70575cd250436318f26a2b 100644 (file)
@@ -18,9 +18,7 @@ if {[skip_shlib_tests]} {
     return 0
 }
 
-set testfile "strace"
-set srcfile $testfile.c
-set binfile $objdir/$subdir/$testfile
+standard_testfile
 set executable $testfile
 
 set libipa [get_in_proc_agent]
index 391dfbb965fb11995254c36724df0e5d75428815..a2c5c1d4ea3a7d40a0984d918f7357eefc47b351 100644 (file)
@@ -30,9 +30,7 @@ if [target_info exists gdb,nofileio] {
 
 gdb_exit
 gdb_start
-set testfile "tfile"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/$testfile
+standard_testfile
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested ${testfile}.exp
index d025f39cba502ab59ffc3930311b382dc1e48ab1..cce742ecfe816c3c6143cd5ce4c92a948ac8cc68 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/tfind
+standard_testfile actions.c
 
 if { [gdb_compile "$srcdir/$subdir/$srcfile" "$binfile" \
          executable {debug nowarnings}] != "" } {
index 2d19511450ab8b796e6010d35247cc54f8a65e3c..d75e2bc0ac8b808cda370ee80f876aee1e637c9b 100644 (file)
 
 load_lib "trace-support.exp";
 
-set testfile "trace-break"
+standard_testfile
 set executable $testfile
-set srcfile $testfile.c
-set binfile $objdir/$subdir/$testfile
 set expfile $testfile.exp
 
 # Some targets have leading underscores on assembly symbols.
index d6b619cd68479ca0a639288820c2cc151fecc271..58990acb73e2c6c3c1bffbc06e4601bf4ce24eca 100644 (file)
 
 load_lib "trace-support.exp";
 
-set testfile "trace-mt"
+standard_testfile
 set executable $testfile
-set srcfile $testfile.c
-set binfile $objdir/$subdir/$testfile
 set expfile $testfile.exp
 
 # Some targets have leading underscores on assembly symbols.
index 15811664f6a81be8f7597d065c069175ab27cc94..b4fc3e2c02d2b2c7ef286c2ef4d6722ac57e1a20 100644 (file)
@@ -20,9 +20,7 @@ load_lib "trace-support.exp";
 
 gdb_exit
 gdb_start
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/tracecmd
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested tracecmd.exp
index 5f7f36dcceee8b7799f6ed3ca6eca31be131bd3c..653b119c72c7f413159dfcde09d617dc5d9512d3 100644 (file)
 
 load_lib "trace-support.exp"
 
-set testfile "tspeed"
-set srcfile ${testfile}.c
+standard_testfile
 set executable $testfile
-set binfile $objdir/$subdir/$executable
 
 set ipalib [get_in_proc_agent]
 
index 5c4055b1fc9f6df22608f1d8c0109e1cc52d2ba3..fdeb0dd5c89fb70ca80e8fa68735654ee40f8ecc 100644 (file)
 
 load_lib "trace-support.exp"
 
-set testfile "actions"
+standard_testfile actions.c
 set executable $testfile
-set srcfile $testfile.c
-set binfile $objdir/$subdir/$testfile
 set expfile tstatus.exp
 
 if [prepare_for_testing $expfile $executable $srcfile \
index b8af4d63b6a87ec211e1f0cbe5e7fda09eab3a7f..ce95835b762cdd5fd8be4ccfefcf35036a01450e 100644 (file)
@@ -18,9 +18,7 @@ load_lib "trace-support.exp";
 
 gdb_exit
 gdb_start
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/tsv
+standard_testfile actions.c
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested tsv.exp
index 60bb41b7fc7b417d0c7055ef2deeafaa325a1e7e..1fb75ebb3a00da939799450a690ab7a7d348438b 100644 (file)
 
 load_lib "trace-support.exp"
 
-set testfile "unavailable"
-set srcfile ${testfile}.cc
+standard_testfile unavailable.cc
 set executable $testfile
-set binfile $objdir/$subdir/$executable
 
-if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
-       executable {debug nowarnings c++}] != "" } {
-    untested unavailable.exp
+if {[prepare_for_testing $testfile.exp $testfile $srcfile \
+        {debug nowarnings c++}]} {
     return -1
 }
 
@@ -588,7 +585,6 @@ proc gdb_trace_collection_test {} {
     gdb_collect_locals_test statlocal_test_func "static locals"
 }
 
-clean_restart $executable
 runto_main
 
 if { ![gdb_target_supports_trace] } then {
index 3e8aa2da86dcfee26228005fc8903b2954febad3..7281a81f59fc85614655acdf97c8e946a2d74aa4 100644 (file)
@@ -21,10 +21,8 @@ load_lib "trace-support.exp"
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile $testfile.c
-set executable while-dyn
-set binfile $objdir/$subdir/$executable
+standard_testfile actions.c
+set executable $testfile
 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
          executable {debug nowarnings}] != "" } {
     untested while-dyn.exp
index 0e53815347c8d66f89814348da3d16f337fbea41..5d8e06660506a49c24b5585818fdcddb9826f821 100644 (file)
@@ -21,9 +21,7 @@ load_lib "trace-support.exp";
 gdb_exit
 gdb_start
 
-set testfile "actions"
-set srcfile ${testfile}.c
-set binfile ${objdir}/${subdir}/while-stepping
+standard_testfile actions.c
 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" $binfile \
          executable {debug nowarnings}] != "" } {
     untested while-stepping.exp