From: Rob Savoye <rob@cygnus>
Date: Wed, 8 May 1996 04:04:25 +0000 (+0000)
Subject: 	* config/abug.exp: New file for the older Motorola Bug monitor
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4db6401f2787b7243e7d55e1533db69906800da0;p=binutils-gdb.git

	* config/abug.exp: New file for the older Motorola Bug monitor
	that runs on the mvme13x series VME boards.
	* config/monitor.exp: Use the new config array for target settings
	if they exist.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a3ab2c24831..42e326508da 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+Tue May  7 22:01:12 1996  Rob Savoye  <rob@chinadoll.cygnus.com>
+
+	* config/abug.exp: New file for the older Motorola Bug monitor
+	that runs on the mvme13x series VME boards.
+	* config/monitor.exp: Use the new config array for target settings
+	if they exist.
+
 Fri May  3 16:02:55 1996  Stan Shebs  <shebs@andros.cygnus.com>
 
 	* sim-gdb.exp: Make the SH simulator allocate less space when
diff --git a/gdb/testsuite/config/abug.exp b/gdb/testsuite/config/abug.exp
new file mode 100644
index 00000000000..8bd4532cc76
--- /dev/null
+++ b/gdb/testsuite/config/abug.exp
@@ -0,0 +1,2 @@
+push_target mvme135
+load_lib ../config/monitor.exp
diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp
index 41ddea898e1..9c6d9b12ecb 100644
--- a/gdb/testsuite/config/monitor.exp
+++ b/gdb/testsuite/config/monitor.exp
@@ -13,7 +13,7 @@
 # 
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 load_lib gdb.exp
 
@@ -34,14 +34,24 @@ proc gdb_target_monitor { } {
     global targetname
     global serialport
     global baud
+    global target_info
 
     set timeout 60
+    if {$baud != ""} then {
+	send "set remotebaud $baud\n"
+    }
+    if [info exists target_info(target,cflags)] {
+	set targetname "$target_info(target,target)"
+    }
+    if [info exists target_info(target,netport)] {
+	set serialport "$target_info(target,netport)"
+    }
     for {set i 1} {$i <= 3} {incr i} {
 	send "target $targetname $serialport\n"
 	expect {
 		-re "Remote target $targetname connected to.*$prompt $"	{
 		     verbose "Set target to $targetname"
-		     break
+		     return
 		}
 		-re "Connection refused" {
 		    verbose "Connection refused by remote target.  Pausing, and trying again."
@@ -49,12 +59,14 @@ proc gdb_target_monitor { } {
 		    continue
 		}
 		timeout { 
-		    perror "Couldn't set target for $targetname."
-		    cleanup
-		    exit $exit_status
+		    break
 		}
 	}
     }
+
+    perror "Couldn't set target for $targetname."
+    cleanup
+    exit $exit_status
 }
 
 #
@@ -72,22 +84,23 @@ proc gdb_load { arg } {
 
     gdb_target_monitor
 
-    send "load\n"
+    verbose "Loading $arg"
+    send "load $arg\n"
     set timeout 600
     expect {
 	-re ".*$prompt $" {
-	    if $verbose>1 then {
+	    if { $verbose > 1 } {
 		send_user "Loaded $arg into $GDB\n"
 	    }
 	    return 1
 	}
 	-re "$prompt $"     {
-	    if $verbose>1 then {
-	 perror "GDB couldn't load."
+	    if { $verbose > 1 } {
+		perror "GDB couldn't load."
 	    }
 	}
 	timeout {
-	    if $verbose>1 then {
+	    if { $verbose > 1 } {
 	 perror "Timed out trying to load $arg."
 	    }
 	}