* gdb.base/watchpoint.exp: Don't run the test_stepping

	tests if gdb can't call functions on the target.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 544bd692f585926b697be208ccb6ff43813cc32f..95cab2246359cebcad709ac286d18e5ed0884ab1 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 Wed May 21 21:23:16 1997  Bob Manson  <manson@charmed.cygnus.com>
 
+       * gdb.base/watchpoint.exp: Don't run the test_stepping
+       tests if gdb can't call functions on the target.
+
        * gdb.base/setshow.exp: Don't run the set prompt tests if
        the board has gdb_prompt set.
 

diff --git a/gdb/testsuite/gdb.base/watchpoint.exp b/gdb/testsuite/gdb.base/watchpoint.exp
index 574a9ebcd5b06cb43b0ef1e37e6f83ea4a60a1c6..980383c623660b3c4d609588864b52b39224e4ab 100644 (file)
--- a/gdb/testsuite/gdb.base/watchpoint.exp
+++ b/gdb/testsuite/gdb.base/watchpoint.exp
@@ -305,6 +305,7 @@ proc test_stepping {} {
            clear_xfail "hppa*-*-*bsd*"
            # It works with the generic inferior function calling code too.
            clear_xfail "mn10200*-*-*"
+           clear_xfail "mn10300*-*-*"
            gdb_test "p func1 ()" "= 73" \
                "calling function with watchpoint enabled"
        }
@@ -527,15 +528,17 @@ if [initialize] then {
        initialize
     }
 
-    test_stepping
+    if ![target_info exsts gdb,cannot_call_functions] {
+       test_stepping
 
-    # See above.
-    if [istarget "mips-idt-*"] then {
-       gdb_exit
-       gdb_start
-       gdb_reinitialize_dir $srcdir/$subdir
-       gdb_load $binfile
-       initialize
+       # See above.
+       if [istarget "mips-idt-*"] then {
+           gdb_exit
+           gdb_start
+           gdb_reinitialize_dir $srcdir/$subdir
+           gdb_load $binfile
+           initialize
+       }
     }
 
     # Only enabled for some targets merely because it has not been tested