From: Michael Snyder <msnyder@vmware.com>
Date: Fri, 4 May 2001 21:07:01 +0000 (+0000)
Subject: 2001-05-03  Michael Snyder  <msnyder@redhat.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=66c756c665a4e13c48a8b8d40158806aebd310b1;p=binutils-gdb.git

2001-05-03  Michael Snyder  <msnyder@redhat.com>

	* config/sid.exp (gdb_target_sid): Check for error messages.
	On error or timeout, don't make expect exit (which will terminate
	all subsequent tests); instead just make gdb exit.
	(gdb_load): Check for error messages.  On error or timeout,
	return a negative value.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a0c0248d773..08f5ad6601a 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2001-05-03  Michael Snyder  <msnyder@redhat.com>
+
+	* config/sid.exp (gdb_target_sid): Check for error messages.
+	On error or timeout, don't make expect exit (which will terminate
+	all subsequent tests); instead just make gdb exit.
+	(gdb_load): Check for error messages.  On error or timeout, 
+	return a negative value.
+
 2001-04-24  Jim Blandy  <jimb@redhat.com>
 
 	* gdb.c++/templates.exp: If we see the prompt for the overload
diff --git a/gdb/testsuite/config/sid.exp b/gdb/testsuite/config/sid.exp
index 16b462085ba..7a73162fca0 100644
--- a/gdb/testsuite/config/sid.exp
+++ b/gdb/testsuite/config/sid.exp
@@ -141,13 +141,18 @@ proc gdb_target_sid { } {
     set timeout 60
     verbose "Timeout is now $timeout seconds" 2
     gdb_expect {
+	-re ".*\[Ee\]rror.*$gdb_prompt $" {
+	    perror "Couldn't set target for remote simulator."
+	    cleanup
+	    gdb_exit
+	}
 	-re "Remote debugging using.*$gdb_prompt"	{
 	    verbose "Set target to sid"
 	}
 	timeout { 
 	    perror "Couldn't set target for remote simulator."
 	    cleanup
-	    exit $exit_status
+	    gdb_exit
 	}
     }
     set timeout $prev_timeout
@@ -164,6 +169,7 @@ proc gdb_load { arg } {
     global loadfile
     global GDB
     global gdb_prompt
+    global retval
 
     gdb_unload
     if [gdb_file_cmd $arg] then { return -1 }
@@ -175,24 +181,32 @@ proc gdb_load { arg } {
     set timeout 2400
     verbose "Timeout is now $timeout seconds" 2
     gdb_expect {
+	-re ".*\[Ee\]rror.*$gdb_prompt $" {
+	    if $verbose>1 then {
+		perror "Error during download."
+	    }
+	    set retval -1;
+	}
 	-re ".*$gdb_prompt $" {
 	    if $verbose>1 then {
 		send_user "Loaded $arg into $GDB\n"
 	    }
-	    set timeout 30
-	    verbose "Timeout is now $timeout seconds" 2
-	    return 1
+	    set retval 1;
 	}
 	-re "$gdb_prompt $"     {
 	    if $verbose>1 then {
 		perror "GDB couldn't load."
 	    }
+	    set retval -1;
 	}
 	timeout {
 	    if $verbose>1 then {
 		perror "Timed out trying to load $arg."
 	    }
+	    set retval -1;
 	}
     }
     set timeout $prev_timeout
+    verbose "Timeout is now $timeout seconds" 2
+    return $retval;
 }