* gdb.base/interrupt.exp: Add i*86-*-linux* setup_xfail for

	"p func1 ()" and note that rests of tests are skipped.
	* gdb.base/corefile.exp: Add i*86-*-linux* and m68*-*-hpux*
 	setup_xfails for "print func2::coremaker_local".
	Add i*86-*-linux* setup_xfail for "backtrace in corefile.exp".
	* gdb.base/mips_pro.exp: Restart gdb in this test so it isn't
	affected by the previous run test.
	* gdb.chill/misc.exp: Add m68*-*-hpux* setup_xfails for
	"print array () ubyte (foo)" and "print/x array () byte (\$i)"
	* gdb.chill/pr-8742.exp: Add m68*-*-hpux* setup_xfails for
	"pass int powerset tuple" and "pass modeless int powerset tuple".
	* gdb.chill/tests2.exp: Add m68*-*-hpux* setup xfails for
	"real write 4" and "real write 8".
	* gdb.shill/tuples.exp: Add i*86-*-linux* and m68*-*-hpux*
 	setup_xfails for "print vs1 after tuple assign 2",
	"print \$i after tuple assign 2", and
	"print vs2 after tuple assign 2".
	* lib/gdb.exp (gdb_test): When a gdb aborts, print a more
	meaningful error message and return -1 so the caller can
	suppress further tests and avoid a cascade of errors.

4 files changed, 10 insertions, 3 deletions

diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index da59bb2..fd4c1b7 100644
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -90,9 +90,11 @@ if ![set_lang_chill] then {
 	"info about current line"
 
     # check array () type (expr)
+    setup_xfail "m68*-*-hpux*"
     gdb_test "print array () ubyte (foo)" { = \[\(0:11\): 0\]}
 	
     send "set var \$i := foo\n"
     expect -re ".*$prompt $"
+    setup_xfail "m68*-*-hpux*"
     gdb_test "print/x array () byte (\$i)" { = \[\(0:11\): H'0\]}
 }
diff --git a/gdb/testsuite/gdb.chill/pr-8742.exp b/gdb/testsuite/gdb.chill/pr-8742.exp
index f9166b4..7b868e7 100644
--- a/gdb/testsuite/gdb.chill/pr-8742.exp
+++ b/gdb/testsuite/gdb.chill/pr-8742.exp
@@ -50,8 +50,10 @@ proc do_tests {} {
 
     runto dummy
 
+    setup_xfail "m68*-*-hpux*"
     gdb_test {call x(p [1, 3, 5])} "1 3 5 " "pass int powerset tuple"
     gdb_test {call y(s_ps [sc])} "sc " "pass set powerset tuple"
+    setup_xfail "m68*-*-hpux*"
     gdb_test {call x([1, 3, 5])} "1 3 5 " "pass modeless int powerset tuple"
     gdb_test {call y([sc])} "sc " "pass modeless set powerset tuple"
 }
diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp
index 719572f..5669663 100644
--- a/gdb/testsuite/gdb.chill/tests2.exp
+++ b/gdb/testsuite/gdb.chill/tests2.exp
@@ -211,12 +211,12 @@ proc write_access { } {
     test_write re1 0 "real write 2"
     test_write re1 "1e+38" {1e\+38|1\.0[0-9]*e\+38|9\.9[0-9]*e\+37} \
 	"real write 3"
-    setup_xfail "i*86-*-linux"
+    setup_xfail "i*86-*-linux" "m68*-*-hpux*"
     test_write re1 "1e+39" $infinity "real write 4"
     test_write re2 42.03 {42.0[0-9]*} "real write 5"
     test_write re2 0 "real write 6"
     test_write re2 "1e+308" {1e\+308} "real write 7"
-    setup_xfail "i*86-*-linux"
+    setup_xfail "i*86-*-linux" "m68*-*-hpux*"
     test_write re2 "1e+309" $infinity "real write 8"
     # array modes
     test_write arrl1 {[(1:3): [(1:2): -128]]} {\[\(1:3\): \[\(1:2\): -128\]\]}\
diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp
index 284dbef..2c92596 100644
--- a/gdb/testsuite/gdb.chill/tuples.exp
+++ b/gdb/testsuite/gdb.chill/tuples.exp
@@ -130,6 +130,7 @@ proc do_tests {} {
 	"print vs1 after tuple assign 1"
     send "set var vs1 := \[ \"bar\", 42, m_ps\[ a \] \]\n"
     expect -re "$prompt $"
+    setup_xfail "i*86-*-linux*" "m68*-*-hpux*"
     gdb_test_exact "print vs1" { = [.str: "bar", .i: 42, .ps: [a]]} \
 	"print vs1 after tuple assign 2"
 
@@ -139,6 +140,7 @@ proc do_tests {} {
 	"print \$i after tuple assign 1"
     send "set var \$i := m_s1\[\"foo\", 44, m_ps\[a \]\]\n"
     expect -re "$prompt $"
+    setup_xfail "i*86-*-linux*" "m68*-*-hpux*"
     gdb_test_exact {print $i} { = [.str: "foo", .i: 44, .ps: [a]]} \
 	"print \$i after tuple assign 2"
 
@@ -149,9 +151,10 @@ proc do_tests {} {
 	"print vs2 after tuple assign 1"
     send "set var vs2 := \[ 10+3, m_s1\[ \"foo\" , 42, m_ps\[ b \] \] \]\n"
     expect -re "$prompt $"
+    setup_xfail "i*86-*-linux*" "m68*-*-hpux*"
     gdb_test_exact "print vs2" \
 	{ = [.i: 13, .s: [.str: "foo", .i: 42, .ps: [b]]]} \
-	"print vs2 after tuple assign 1"
+	"print vs2 after tuple assign 2"
 
     send "set var vs3 := \[ 33, \[ -1, -2, -3 \] \]\n" ; expect -re "$prompt $"
     gdb_test_exact "print vs3" {[.i: 33, .a: [(1): -1, (2): -2, (3): -3]]} \