Add support to GDB for the Renesas rl78 architecture.

[external/binutils.git] / gdb / testsuite / gdb.trace / while-dyn.exp

diff --git a/gdb/testsuite/gdb.trace/while-dyn.exp b/gdb/testsuite/gdb.trace/while-dyn.exp
index 2831d25..f71f3a4 100644 (file)
--- a/gdb/testsuite/gdb.trace/while-dyn.exp
+++ b/gdb/testsuite/gdb.trace/while-dyn.exp
@@ -1,4 +1,4 @@
-#   Copyright 1998, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#   Copyright 1998, 2007-2012 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -17,10 +17,6 @@
 
 load_lib "trace-support.exp"
 
-if $tracelevel then {
-    strace $tracelevel
-}
-
 
 gdb_exit
 gdb_start
@@ -35,8 +31,8 @@ if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
     return -1
 }
 gdb_load $binfile
-gdb_test "tstop"       "" ""
-gdb_test "tfind none"  "" ""
+gdb_test "tstop"       ".*" ""
+gdb_test "tfind none"  ".*" ""
 runto_main
 gdb_reinitialize_dir $srcdir/$subdir
 
@@ -51,9 +47,9 @@ if { ![gdb_target_supports_trace] } then {
 # test while-stepping dynamically (live target)
 #
 
-if [istarget "x86_64-*"] then {
+if [is_amd64_regs_target] {
     set fpreg "\$rbp"
-} elseif [istarget "i?86-*"] then {
+} elseif [is_x86_like_target] {
     set fpreg "\$ebp"
 } else {
     set fpreg "\$fp"
@@ -67,8 +63,8 @@ proc test_while_stepping { while_stepping } {
 
     clean_restart $executable
 
-    gdb_test "tstop" "" ""
-    gdb_test "tfind none" "" ""
+    gdb_test "tstop" ".*" ""
+    gdb_test "tfind none" ".*" ""
     runto_main
 
     ## verify number of trace frames collected matches stepcount
@@ -86,14 +82,14 @@ proc test_while_stepping { while_stepping } {
        "end" "^$" \
        "end" ""
 
-    gdb_test "tstart" "" ""
+    gdb_test "tstart" ".*" ""
 
-    gdb_test "break end" "" ""
+    gdb_test "break end" ".*" ""
     gdb_test "continue" \
        "Continuing.*Breakpoint $decimal, end.*" \
        "$while_stepping: run trace experiment"
 
-    gdb_test "tstop" "" ""
+    gdb_test "tstop" ".*" ""
 
     gdb_tfind_test "$while_stepping: frame 5 should be the last one collected" "5" "5"
 
@@ -107,7 +103,7 @@ proc test_while_stepping { while_stepping } {
        }
     }
 
-    gdb_test "tfind none" "" ""
+    gdb_test "tfind none" ".*" ""
 }
 
 # Test all while-stepping aliases.