From: Nathan Sidwell <nathan@codesourcery.com>
Date: Tue, 13 Jun 2006 13:09:18 +0000 (+0000)
Subject: 	gdb/testsuite/
X-Git-Tag: gdb-csl-sourcerygxx-4_1-9
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f91db59bc309719799096b0a12c0a07e51f68e05;p=thirdparty%2Fbinutils-gdb.git

	gdb/testsuite/
	* lib/gdb.exp (gdb_load_cmd): New.
---

diff --git a/ChangeLog.csl b/ChangeLog.csl
index 304577d2b97..0faebe81d6a 100644
--- a/ChangeLog.csl
+++ b/ChangeLog.csl
@@ -1,3 +1,8 @@
+2006-06-13  Nathan Sidwell  <nathan@codesourcery.com>
+
+	gdb/testsuite/
+	* lib/gdb.exp (gdb_load_cmd): New.
+
 2006-06-12  Nathan Sidwell  <nathan@codesourcery.com>
 
 	gdb/
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 4bb4b057789..eca2a504666 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1866,6 +1866,50 @@ proc gdb_exit { } {
     catch default_gdb_exit
 }
 
+#
+# gdb_load_cmd -- load a file into the debugger.
+#		  ARGS - additional args to load command.
+#                 return a -1 if anything goes wrong.
+#
+proc gdb_load_cmd { args } {
+    global gdb_prompt
+
+    if [target_info exists gdb_load_timeout] {
+	set loadtimeout [target_info gdb_load_timeout]
+    } else {
+	set loadtimeout 1600
+    }
+    send_gdb "load $args\n"
+    verbose "Timeout is now $timeout seconds" 2
+    gdb_expect $loadtimeout {
+	-re "Loading section\[^\r\]*\r\n" {
+	    exp_continue
+	}
+	-re "Start address\[\r\]*\r\n" {
+	    exp_continue
+	}
+	-re "Transfer rate\[\r\]*\r\n" {
+	    exp_continue
+	}
+	-re "Memory access error\[^\r\]*\r\n" {
+	    perror "Failed to load program"
+	    return -1
+	}
+	-re "$gdb_prompt $" {
+	    return 0
+	}
+	-re "(.*)\r\n$gdb_prompt " {
+	    perror "Unexpected reponse from 'load' -- $expect_out(1,string)"
+	    return -1
+	}
+	timeout {
+	    perror "Timed out trying to load $arg."
+	    return -1
+	}
+    }
+    return -1
+}
+
 #
 # gdb_load -- load a file into the debugger.
 # Many files in config/*.exp override this procedure.