* 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.

1 files changed, 21 insertions, 3 deletions

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index ea411c4..ec3b94e 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -275,8 +275,7 @@ proc runto_main {} {
     global usestubs
 
     if $usestubs==0 {
-	runto main
-	return 1
+	return [runto main]
     }			
 
     send "delete\n"
@@ -320,6 +319,7 @@ proc gdb_test { args } {
     global prompt
     global GDB
     global spawn_id
+    global expect_out
     upvar timeout timeout
 
     if [llength $args]==3 then {
@@ -364,6 +364,24 @@ proc gdb_test { args } {
 	    perror "\"$command\" is not a unique command name."
 	    set result 1
 	}
+	-re "(.*)(Program exited with code \[0-9\]+)(.*$prompt $)" {
+	    if ![string match "" $message] then {
+		set errmsg "$message: $expect_out(2,string)"
+	    } else {
+		set errmsg "$command: $expect_out(2,string)"
+	    }
+	    perror "$errmsg"
+	    return -1
+	}
+	-re "The program is not being run.*$prompt $" {
+	    if ![string match "" $message] then {
+		set errmsg "$message: the program is no longer running"
+	    } else {
+		set errmsg "$command: the program is no longer running"
+	    }
+	    perror "$errmsg"
+	    return -1
+	}
 	-re ".*$prompt $" {
 	    if ![string match "" $message] then {
 		fail "$message"
@@ -382,7 +400,7 @@ proc gdb_test { args } {
 	    perror "Process no longer exists"
 	    return -1
 	}
-	buffer_full {
+	full_buffer {
 	    perror "internal buffer is full."
 	}
 	timeout	{