From 45c795f7c00faa2707e5c76357ae5fdbf5480c53 Mon Sep 17 00:00:00 2001
From: Bob Manson <manson@cygnus>
Date: Sat, 14 Jun 1997 16:25:14 +0000
Subject: [PATCH] 	* config/monitor.exp(gdb_load): Fix typo in regexp.

Fixes last night's tcl error mesages.
---
 gdb/testsuite/ChangeLog          |  4 ++++
 gdb/testsuite/config/monitor.exp | 29 +++++++++++++++++------------
 2 files changed, 21 insertions(+), 12 deletions(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index c89e4d7fb6..a789a0a72f 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jun 14 09:23:26 1997  Bob Manson  <manson@charmed.cygnus.com>
+
+	* config/monitor.exp(gdb_load): Fix typo in regexp.
+
 Thu Jun 12 20:57:12 1997  Bob Manson  <manson@charmed.cygnus.com>
 
 	* gdb.base/funcargs.exp: Remove spurious suppress tests call.
diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp
index 242e98d352..d99a997cbc 100644
--- a/gdb/testsuite/config/monitor.exp
+++ b/gdb/testsuite/config/monitor.exp
@@ -56,7 +56,7 @@ proc gdb_target_monitor { exec_file } {
 		    send_gdb "y\n";
 		    exp_continue;
 		}
-		-re ".*Couldn't establish connection to remote.*$gdb_prompt" {
+		-re "Couldn't establish connection to remote.*$gdb_prompt" {
 		    verbose "Connection failed";
 		}
 		-re "Remote MIPS debugging.*$gdb_prompt" {
@@ -114,7 +114,7 @@ proc gdb_load { arg } {
     if { $arg == "" } {
 	send_gdb "info files\n";
 	gdb_expect {
-	    -re "Symbols from \"([^\"]+)\"" {
+	    -re "Symbols from \"(\[^\"\]+)\"" {
 		set arg $expect_out(1,string);
 		exp_continue;
 	    }
@@ -140,13 +140,16 @@ proc gdb_load { arg } {
 		return 0;
 	    }
 	} else {
-	    if [is_remote host] {
-		# FIXME:
-		set arg a.out;
-	    }
 
 	    if [gdb_target_monitor $arg] { return -1 }
 
+	    if [is_remote host] {
+		# FIXME: Multiple downloads. bleah.
+		set farg [remote_download host $arg];
+	    } else {
+		set farg $arg;
+	    }
+
 	    if { $arg != "" && [target_info exists gdb_sect_offset] } {
 		set textoff [target_info gdb_sect_offset];
 		send_gdb "sect .text $textoff\n";
@@ -173,26 +176,28 @@ proc gdb_load { arg } {
 		}
 	    }
 
-	    verbose "Loading $arg"
+	    verbose "Loading $farg"
 	    if [target_info exists gdb_load_offset] {
-		set command "load $arg [target_info gdb_load_offset]\n";
+		set command "load $farg [target_info gdb_load_offset]\n";
 	    } else {
-		set command "load $arg\n";
+		set command "load $farg\n";
 	    }
 	    send_gdb $command;
-	    set timeout 1000
+	    set timeout 1200
 	    verbose "Timeout is now $timeout seconds" 2
 	    gdb_expect {
 		-re "\[Ff\]ailed.*$gdb_prompt $" {
 		    verbose "load failed";
 		}
+		-re "Timeout reading from remote.*$gdb_prompt" {
+		}
 		-re "$gdb_prompt $" {
-		    verbose "Loaded $arg into $GDB\n"
+		    verbose "Loaded $farg into $GDB\n"
 		    return 0;
 		}
 		timeout {
 		    if { $verbose > 1 } {
-			perror "Timed out trying to load $arg."
+			perror "Timed out trying to load $farg."
 		    }
 		}
 	    }
-- 
2.34.1