From 4aa54120ee82d137adccda957768fbf3ee8360f7 Mon Sep 17 00:00:00 2001
From: Yao Qi <yao@codesourcery.com>
Date: Wed, 6 Mar 2013 01:03:40 +0000
Subject: [PATCH] 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.

---
 gdb/testsuite/ChangeLog             |  7 +++++
 gdb/testsuite/gdb.trace/tstatus.exp | 44 -----------------------------
 2 files changed, 7 insertions(+), 44 deletions(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3ac85e0f887..83c50504436 100644
--- 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 b929e6c8f75..46faaf89af6 100644
--- 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
-- 
2.30.2