Initial creation of sourceware repository

1 files changed, 0 insertions, 212 deletions

diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp
deleted file mode 100644
index c71479b..0000000
--- a/gdb/testsuite/config/monitor.exp
+++ /dev/null
@@ -1,212 +0,0 @@
-# Test Framework Driver for GDB driving a ROM monitor (via monitor.c).
-#   Copyright 1995, 1997 Free Software Foundation, Inc.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-# 
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
-
-load_lib gdb.exp
-
-#
-# gdb_target_monitor
-# Set gdb to target the monitor
-#
-proc gdb_target_monitor { exec_file } {
-    global gdb_prompt
-    global exit_status
-    global timeout
-
-    if [target_info exists gdb_protocol] {
-	set targetname "[target_info gdb_protocol]"
-    } else {
-	perror "No protocol specified for [target_info name].";
-	return -1;
-    }
-    if [target_info exists baud] {
-	gdb_test "set remotebaud [target_info baud]" "" ""
-    }
-    if [target_info exists gdb_serial] {
-       set serialport "[target_info gdb_serial]";
-    } elseif [target_info exists netport] {
-	set serialport "[target_info netport]"
-    } else {
-	set serialport "[target_info serial]"
-    }
-
-    for {set j 1} {$j <= 2} {incr j} {
-	if [gdb_file_cmd $exec_file] { return -1; }
-
-	for {set i 1} {$i <= 3} {incr i} {
-    	    send_gdb "target $targetname $serialport\n"
-	    gdb_expect 60 {
-		-re "A program is being debugged already.*ill it.*y or n. $" {
-		    send_gdb "y\n";
-		    exp_continue;
-		}
-		-re "Couldn't establish connection to remote.*$gdb_prompt" {
-		    verbose "Connection failed";
-		}
-		-re "Remote MIPS debugging.*$gdb_prompt" {
-		    verbose "Set target to $targetname";
-		    return 0;
-		}
-		-re "Remote debugging using $serialport.*$gdb_prompt" {
-		    verbose "Set target to $targetname";
-		    return 0;
-		}
-		-re "Remote target $targetname connected to.*$gdb_prompt" {
-		    verbose "Set target to $targetname";
-		    return 0;
-		}
-		-re "Ending remote.*$gdb_prompt" { }
-		-re "Connection refused.*$gdb_prompt" {
-		    verbose "Connection refused by remote target.  Pausing, and trying again."
-		    sleep 30
-		    continue
-		}
-		timeout {
-		    send_gdb "";
-		    break
-		}
-	    }
-	}
-
-	gdb_target_exec;
-
-	if { $j == 1 && ![reboot_target] } {
-	    break;
-	}
-    }
-
-    perror "Couldn't set target for $targetname, port is $serialport.";
-    return -1;
-}
-
-proc gdb_target_exec { } {
-    gdb_test "target exec" "No exec file now." "" ".*Kill it.*y or n.*" "y"
-    
-}
-#
-# gdb_load -- load a file into the debugger.
-#             return a -1 if anything goes wrong.
-#
-proc gdb_load { arg } {
-    global verbose
-    global loadpath
-    global loadfile
-    global GDB
-    global gdb_prompt
-    global timeout
-
-    if { $arg == "" } {
-	send_gdb "info files\n";
-	gdb_expect 30 {
-	    -re "Symbols from \"(\[^\"\]+)\"" {
-		set arg $expect_out(1,string);
-		exp_continue;
-	    }
-	    -re "Local exec file:\[\r\n\]+\[ \t\]*`(\[^'\]+)'," {
-		set arg $expect_out(1,string);
-		exp_continue;
-	    }
-	    -re "$gdb_prompt $" { }
-	}
-    }
-
-    for { set j 1; } { $j <= 2 } {incr j; } {
-	if [target_info exists gdb,use_standard_load] {
-	    gdb_target_exec;
-	    remote_push_conn host;
-	    set state [remote_ld target $arg];
-	    remote_close target;
-	    remote_pop_conn host;
-	    if { $state == "pass" } {
-		if [gdb_target_monitor $arg] { return -1; }
-		gdb_test "list main" ".*" ""
-		verbose "Loaded $arg into $GDB\n";
-		return 0;
-	    }
-	} else {
-
-	    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";
-		gdb_expect 30 {
-		    -re "(0x\[0-9a-z]+) - 0x\[0-9a-z\]+ is \\.data" {
-			set dataoff $expect_out(1,string);
-			exp_continue;
-		    }
-		    -re "(0x\[0-9a-z\]+) - 0x\[0-9a-z\]+ is \\.bss" {
-			set bssoff $expect_out(1,string);
-			exp_continue;
-		    }
-		    -re "$gdb_prompt" { }
-		}
-		set dataoff [format 0x%x [expr $dataoff + $textoff]];
-		set bssoff [format 0x%x [expr $bssoff + $textoff]];
-		send_gdb "sect .data $dataoff\n";
-		gdb_expect 30 {
-		    -re "$gdb_prompt" { }
-		}
-		send_gdb "sect .bss $bssoff\n";
-		gdb_expect 30 {
-		    -re "$gdb_prompt" { }
-		}
-	    }
-
-	    verbose "Loading $farg"
-	    if [target_info exists gdb_load_offset] {
-		set command "load $farg [target_info gdb_load_offset]\n";
-	    } else {
-		set command "load $farg\n";
-	    }
-	    send_gdb $command;
-	    gdb_expect 1600 {
-		-re "\[Ff\]ailed.*$gdb_prompt $" {
-		    verbose "load failed";
-		}
-		-re "Timeout reading from remote.*$gdb_prompt" {
-		}
-		-re "$gdb_prompt $" {
-		    verbose "Loaded $farg into $GDB\n"
-		    return 0;
-		}
-		timeout {
-		    if { $verbose > 1 } {
-			perror "Timed out trying to load $farg."
-		    }
-		}
-	    }
-	}
-
-	# Make sure we don't have an open connection to the target.
-	gdb_target_exec;
-
-	if { $j == 1 } {
-	    if { ![reboot_target] } {
-		break;
-	    }
-	}
-    }
-    perror "Couldn't load file into GDB.";
-    return -1;
-}