From a0b3c4fd32cf8336bf7b69f373ef86d5c54035f6 Mon Sep 17 00:00:00 2001
From: Jason Molenda <jmolenda@apple.com>
Date: Mon, 2 Aug 1999 23:48:37 +0000
Subject: import gdb-1999-08-02 snapshot

---
 gdb/testsuite/gdb.base/callfuncs.exp | 55 +++++++-----------------------------
 1 file changed, 10 insertions(+), 45 deletions(-)

(limited to 'gdb/testsuite/gdb.base/callfuncs.exp')

diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
index 7db87b7..1ce9683 100644
--- a/gdb/testsuite/gdb.base/callfuncs.exp
+++ b/gdb/testsuite/gdb.base/callfuncs.exp
@@ -94,6 +94,8 @@ proc set_lang_c {} {
 proc do_function_calls {} {
     global prototypes
     global gcc_compiled
+    global gdb_prompt
+
     # We need to up this because this can be really slow on some boards.
     set timeout 60;
 
@@ -129,13 +131,13 @@ proc do_function_calls {} {
 	# Gcc emits different stabs for the two parameters; the first is
 	# claimed to be a float, the second a double.
 	# dbxout.c in gcc claims this is the desired behavior.
-	setup_xfail "mn10300-*-*" "hppa*-*-*11*"
+	setup_xfail "mn10300-*-*"
 	gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
-	setup_xfail "mn10300-*-*" "hppa*-*-*11*"
+	setup_xfail "mn10300-*-*"
 	gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
-	setup_xfail "mn10300-*-*" "hppa*-*-*11*"
+	setup_xfail "mn10300-*-*"
 	gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
-	setup_xfail "mn10300-*-*" "hppa*-*-*11*"
+	setup_xfail "mn10300-*-*"
 	gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
 
 	# Test passing of arguments which might not be widened.
@@ -185,59 +187,22 @@ proc do_function_calls {} {
     # the RS6000.
     setup_xfail "rs6000*-*-*"
     setup_xfail "powerpc*-*-*"
-    if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
-	send_gdb "p t_func_values(add,func_val2)\n"
-	gdb_expect {
-	  -re "You cannot.*ignored.*" {pass "p t_func_values(add,func_val2)"}
-	  -re "Program received signal SIGBUS, Bus error.*" {
-	    if [istarget hppa*-*-hpux*] {
-		pass "p t_func_values(add,func_val2)"
-	    } else {
-		fail "p t_func_values(add,func_val2)"
-	    }
-	  }
-	}
-    } else {
+    if {![istarget hppa*-*-hpux*]} then {
 	gdb_test "p t_func_values(add,func_val2)" " = 1"
     }
 
     setup_xfail "rs6000*-*-*"
     setup_xfail "powerpc*-*-*"
-    if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
-	send_gdb "p t_func_values(func_val1,doubleit)\n"
-	gdb_expect {
-	  -re "You cannot.*ignored.*" {pass "p t_func_values(func_val1,doubleit)"}
-	  -re "Program received signal SIGBUS, Bus error.*" {
-	    if [istarget hppa*-*-hpux*] {
-		pass "p t_func_values(func_val1,doubleit)"
-	    } else {
-		fail "p t_func_values(func_val1,doubleit)"
-	    }
-	  }
-        }
-    } else {
+    if {![istarget hppa*-*-hpux*]} then {
 	gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
     }
 
-    gdb_test "p t_call_add(func_val1,3,4)" " = 7"
-
     setup_xfail "rs6000*-*-*"
     setup_xfail "powerpc*-*-*"
-    if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
-	send_gdb "p t_call_add(add,3,4)\n"
-	gdb_expect {
-	  -re "You cannot.*ignored.*" {pass "p t_call_add(add,3,4)"}
-	  -re "Program received signal SIGBUS, Bus error.*" {
-	    if [istarget hppa*-*-hpux*] {
-		pass "p t_call_add(add,3,4)"
-	    } else {
-		fail "p t_call_add(add,3,4)"
-	    }
-	  }
-        }
-    } else {
+    if {![istarget hppa*-*-hpux*]} then {
 	gdb_test "p t_call_add(add,3,4)" " = 7"
     }
+    gdb_test "p t_call_add(func_val1,3,4)" " = 7"
 
     gdb_test "p t_enum_value1(enumval1)" " = 1"
     gdb_test "p t_enum_value1(enum_val1)" " = 1"
-- 
cgit v1.1