* call-ar-st.exp: Use gdb_skip_float_test to avoid executing

	tests that print a float.
	* call-rt-st.exp: Likewise.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ebaaeda68303ec3a4f15290dd4add9267c61a463..7e0a94176ea5ae525e78a8daa993067d3575f5e8 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-16  Stephane Carrez  <Stephane.Carrez@worldnet.fr>
+
+       * call-ar-st.exp: Use gdb_skip_float_test to avoid executing
+       tests that print a float.
+       * call-rt-st.exp: Likewise.
+
 2001-07-12  Mark Kettenis  <kettenis@gnu.org>
 
        * gdb.base/so-impl-ld.exp: Remove stray space that prevented

diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp
index 61380e97f11c40720cc64653165c115f70f6613e..d7721c8df25beef1d80195203ffb570934d9a91c 100644 (file)
--- a/gdb/testsuite/gdb.base/call-ar-st.exp
+++ b/gdb/testsuite/gdb.base/call-ar-st.exp
@@ -1,4 +1,4 @@
-#   Copyright 1998, 1999, 2000
+#   Copyright 1998, 1999, 2000, 2001
 #   Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
@@ -193,7 +193,8 @@ gdb_test "tbreak 1220" \
        "Breakpoint.* file .*$srcfile, line 1220.*" \
        "tbreakpoint line 1220"
 
-if ![gdb_skip_stdio_test "continuing to breakpoint 1220"] {
+if {![gdb_skip_float_test "continuing to breakpoint 1220"] && \
+    ![gdb_skip_stdio_test "continuing to breakpoint 1220"] } {
     send_gdb "continue\n"
     gdb_expect_list "continuing to breakpoint 1220" ".*$gdb_prompt $" {
        "Continuing\\."
@@ -278,7 +279,8 @@ gdb_test "tbreak 1236" \
 "Breakpoint.* file .*$srcfile, line 1236.*" \
 "tbreakpoint line 1236"
 
-if ![gdb_skip_stdio_test "continuing to 1236"] {
+if {![gdb_skip_float_test "continuing to 1236"] && \
+    ![gdb_skip_stdio_test "continuing to 1236"] } {
     send_gdb "continue\n"
     gdb_expect_list "continuing to 1236"  ".*$gdb_prompt $" {
        "Continuing\\..*array_c"

diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp
index 70af9beca6f72a5f5d25cb2da32610fcb5427b91..cfd81e1934fa629e03b987d8ee7d6c1b16128965 100644 (file)
--- a/gdb/testsuite/gdb.base/call-rt-st.exp
+++ b/gdb/testsuite/gdb.base/call-rt-st.exp
@@ -1,4 +1,4 @@
-# Copyright 1998, 1999, 2000 Free Software Foundation, Inc.
+# Copyright 1998, 1999, 2000, 2001 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
@@ -173,7 +173,8 @@ if {![gdb_skip_float_test "print print_one_double(*d1)"] && \
     }
 }
 
-if ![gdb_skip_stdio_test "print print_two_floats(*f3)"] {
+if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \
+    ![gdb_skip_stdio_test "print print_two_floats(*f3)"] } {
     send_gdb "print print_two_floats(*f3)\n"
     gdb_expect {
        -re ".*Contents of two_floats_t:\[ \r\n\]+-2\\.345000\[ \t]+1\\.000000\[ \r\n\]+.\[0-9\]+ = \{float1 = -2\\.34500003, float2 = 1\}.*$gdb_prompt $" {