From: Mark Salter <msalter@sadr.localdomain>
Date: Thu, 15 Mar 2001 21:46:57 +0000 (+0000)
Subject: (gdb_load): Add support for additional target_info: gdb_download_size
X-Git-Tag: dberlin-typesystem-branchpoint~1039
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f949823c68164da632da6ad50682735a970e8a18;p=thirdparty%2Fbinutils-gdb.git

(gdb_load): Add support for additional target_info: gdb_download_size
and gdb_load_timeout.
---

diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp
index e48d0d94461..c0fb464fb95 100644
--- a/gdb/testsuite/config/monitor.exp
+++ b/gdb/testsuite/config/monitor.exp
@@ -140,6 +140,17 @@ proc gdb_load { arg } {
     global timeout
     global last_gdb_file;
 
+    if [target_info exists gdb_download_size] {
+	send_gdb "set download-write-size [target_info gdb_download_size]\n";
+	gdb_expect 30 {
+	    -re "$gdb_prompt $" { }
+	    default {
+		perror "Setting download-write-size for target failed";
+		return -1;
+	    }
+	}
+    }
+
     if { $arg == "" } {
 	if [info exists last_gdb_file] {
 	    set arg $last_gdb_file;
@@ -221,8 +232,14 @@ proc gdb_load { arg } {
 	    } else {
 		set command "load $farg\n";
 	    }
+	    if [target_info exists gdb_load_timeout] {
+		set loadtimeout [target_info gdb_load_timeout]
+	    } else {
+		set loadtimeout 1600
+	    }
+
 	    send_gdb $command;
-	    gdb_expect 1600 {
+	    gdb_expect $loadtimeout {
 		-re "\[Ff\]ailed.*$gdb_prompt $" {
 		    verbose "load failed";
 		}