gdb/testsuite/

	* gdb.trace/tstatus.exp: Remove the invocation of
	gdb_load_shlibs, gdb_compile, clean_restart and runto_main.
	(test_tracepoints): Don't set fast tracepoint.
	(top level): Don't check agent library is loaded or not.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3ac85e0f887e8bbd5ade63b575ed71bc286e6d16..83c505044366767e10f49a54526af346534a6e21 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2013-03-06  Yao Qi  <yao@codesourcery.com>
+
+       * gdb.trace/tstatus.exp: Remove the invocation of
+       gdb_load_shlibs, gdb_compile, clean_restart and runto_main.
+       (test_tracepoints): Don't set fast tracepoint.
+       (top level): Don't check agent library is loaded or not.
+
 2013-03-06  Yao Qi  <yao@codesourcery.com>
 
        * gdb.trace/tstatus.exp (run_trace_experiment): Escape

diff --git a/gdb/testsuite/gdb.trace/tstatus.exp b/gdb/testsuite/gdb.trace/tstatus.exp
index b929e6c8f755c706b2e7ee34cd91a6d45aa9761b..46faaf89af6346c0b0ac41f08237e5de3426823d 100644 (file)
--- a/gdb/testsuite/gdb.trace/tstatus.exp
+++ b/gdb/testsuite/gdb.trace/tstatus.exp
@@ -34,25 +34,6 @@ if ![gdb_target_supports_trace] {
     return -1
 }
 
-set libipa [get_in_proc_agent]
-gdb_load_shlibs $libipa
-
-# Can't use prepare_for_testing, because that splits compiling into
-# building objects and then linking, and we'd fail with "linker input
-# file unused because linking not done" when building the object.
-
-if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
-         executable [list debug shlib=$libipa] ] != "" } {
-    untested "failed to compile ftrace tests"
-    return -1
-}
-clean_restart ${executable}
-
-if ![runto_main] {
-    fail "Can't run to main for ftrace tests"
-    return 0
-}
-
 proc run_trace_experiment {} {
     global gdb_prompt
     global decimal
@@ -141,34 +122,9 @@ proc test_tracepoints {} {
     gdb_trace_setactions "collect at set_point: define actions" \
        "" \
        "collect parm" "^$"
-    set fastgood 0
-
-    gdb_test_multiple "ftrace gdb_recursion_test" "set fast tracepoint" {
-       -re "May not have a fast tracepoint at .*\r\n$gdb_prompt $" {
-           pass "4-byte fast tracepoint could not be set"
-       }
-       -re "Fast tracepoint .*\r\n$gdb_prompt $" {
-           pass "4-byte fast tracepoint is set"
-           set fastgood 1
-       }
-    }
-
-    if { $fastgood } {
-
-       gdb_trace_setactions "collect at four_byter: define actions" \
-           "" \
-           "collect globvar, anarg" "^$"
-    }
 
     run_trace_experiment
 
 }
 
-gdb_reinitialize_dir $srcdir/$subdir
-
-if { [gdb_test "info sharedlibrary" ".*${libipa}.*" "IPA loaded"] != 0 } {
-    untested "Could not find IPA lib loaded"
-    return 1
-}
-
 test_tracepoints