Commit: f91db59bc309719799096b0a12c0a07e51f68e05 - binutils_os216 (git)

GNU Binutils with patches for OS216

Commit MetaInfo

• Revision: f91db59bc309719799096b0a12c0a07e51f68e05 (tree)
• Zeit: 2006-06-13 22:09:18
• Autor: Nathan Sidwell <nathan@code...>
• Commiter: Nathan Sidwell

Log Message

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

Ändern Zusammenfassung

• modified: ChangeLog.csl
• modified: gdb/testsuite/lib/gdb.exp

Diff

--- a/ChangeLog.csl
+++ b/ChangeLog.csl
@@ -1,3 +1,8 @@
[phone]  Nathan Sidwell  <[e-mail]>
+
+	gdb/testsuite/
+	* lib/gdb.exp (gdb_load_cmd): New.
+
 2006-06-12  Nathan Sidwell  <[e-mail]>
 
 	gdb/

--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1867,6 +1867,50 @@ proc 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.
 #