From c477543d3a562402f09911258b44fc168aee1320 Mon Sep 17 00:00:00 2001
From: Stephane Carrez <stcarrez@nerim.fr>
Date: Mon, 16 Jul 2001 18:44:23 +0000
Subject: [PATCH] 	* call-ar-st.exp: Use gdb_skip_float_test to avoid
 executing 	tests that print a float. 	* call-rt-st.exp: Likewise.

---
 gdb/testsuite/ChangeLog               | 6 ++++++
 gdb/testsuite/gdb.base/call-ar-st.exp | 8 +++++---
 gdb/testsuite/gdb.base/call-rt-st.exp | 5 +++--
 3 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ebaaeda6830..7e0a94176ea 100644
--- 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 61380e97f11..d7721c8df25 100644
--- 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 70af9beca6f..cfd81e1934f 100644
--- 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 $" {
-- 
2.39.2