diff options
Diffstat (limited to 'config')
33 files changed, 0 insertions, 2316 deletions
diff --git a/config/arc.exp b/config/arc.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/arc.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/arm-ice.exp b/config/arm-ice.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/arm-ice.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/base-config.exp b/config/base-config.exp deleted file mode 100644 index 087ec13..0000000 --- a/config/base-config.exp +++ /dev/null @@ -1,48 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# -# reboot_hook -- called to reboot a target board. Returns 1 on -# success, 0 otherwise. -# -proc reboot_via_x10 { dest } { - if {[board_info $dest exists name]} { - set dest [board_info $dest name] - } - - if {[board_info $dest exists x10]} { - set x10 [board_info $dest x10] - verbose "rebooting x10 unit $x10" 1 - rsh_exec rtl "/usr/unsupported/bin/x10-hellcab unit $x10 off" - sleep 2 - rsh_exec rtl "/usr/unsupported/bin/x10-hellcab unit $x10 on" - sleep 2 - return 1 - } - return 0 -} - -proc ${board}_reboot { args } { - if { [llength $args] > 0} { - set dest [lindex $args 0] - } else { - set dest target - } - return [reboot_via_x10 $dest] -} diff --git a/config/base68k.exp b/config/base68k.exp deleted file mode 100644 index 75ef161..0000000 --- a/config/base68k.exp +++ /dev/null @@ -1,323 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com) -# based on earlier work by JT Conklin (jtc@cygnus.com) - -# -# base68k_load -- load the program and execute it -# - -proc base68k_ld { dest prog } { - global tmpdir - - set shell_prompt [board_info $dest shell_prompt] - - if {![file exists $prog]} then { - verbose -log "$prog does not exist." - return "untested" - } - if {[is_remote host]} { - set prog [remote_download host $prog] - if { $prog == "" } { - verbose -log "Unable to download $prog to host." - return "untested" - } - } - - if {[board_info $dest exists objcopy]} { - set OBJCOPY [board_info $dest objcopy] - set exec_file "${prog}.srec" - set objcopy_args "" - if {[board_info $dest exists use_vma_offset]} { - set objcopy_args "--adjust-vma=[board_info $dest hex_startaddr]" - } - set status [remote_exec host "$OBJCOPY $objcopy_args -O srec $prog ${prog}.srec"] - set result [lindex $status 1] - regsub -all -- "\[\r\n\]*" $result "" result - if { $result != "" || [lindex $status 0] != 0 } { - warning "Got \"$result\" from $OBJCOPY" - verbose -log "Couldn't convert to srecord for downloading" - remote_close $dest - return "untested" - } else { - verbose "Converted $prog to an srecord." 2 - } - } else { - set exec_file $prog - } - - set value 0 - if {![board_info $dest exists fileid]} { - while { $value < 2 } { - set rom68k_shell_id [remote_open $dest] - if { $rom68k_shell_id < 0 } { - if { $value > 0 || ![remote_reboot $dest] } { - verbose -log "$prog not executed, couldn't connect to target." - return "untested" - } - incr value - } else { - break - } - } - # dbug has problems if we go into binary mode, so this allows us to - # disable entry into binary mode. - if {![board_info $dest exists no_binary_mode]} { - remote_binary $dest - } - } - - # if we built the srecord on a remote host, copy it back here so we - # can load it - if {[is_remote host]} { - global objdir - set exec_file [remote_upload host ${exec_file} "${objdir}/a.out"] - } - - set got_p 0 - for { set tries 0 } { (! $got_p) && $tries < 5 } { incr tries } { - remote_send $dest "\r\n\r\n" - remote_expect $dest 5 { - -re "${shell_prompt}$" { - verbose "Got prompt." - set result 0 - set got_p 1 - } - timeout { - warning "Never got prompt." - } - } - if { ! $got_p } { - if { $tries <= 4 } then { - if { $tries == 3 } then { - remote_reboot $dest - } else { - remote_send $dest "\r\n" - } - } - } - } - - # We need to do this in case the connection to the remote side is - # scrogged -- the remote_expect above will fail in a lot of - # non-clean ways. - if { ! $got_p } { - remote_close $dest - remote_reboot $dest - return "unresolved" - } else { - # Flush out any remaining cruft. - remote_expect $dest 2 { - timeout { } - -re ".+" { exp_continue } - default { } - } - } - - if {[board_info $dest exists download_command]} { - # Load the program. - remote_send $dest "\r\n" - # dbug has problems sending download command immediately after a - # newline, so we wait for the prompt to come back first. - remote_expect $dest 5 { - -re "${shell_prompt}$" { - verbose -log "Got prompt." - } - timeout { - warning "Never got prompt." - } - } - remote_send $dest [board_info $dest download_command] - if {[board_info $dest exists download_response]} { - remote_expect $dest 5 { - [board_info $dest download_response] { } - timeout { - perror "Download command never responded." - return "unresolved" - } - } - } - } - - verbose "Writing records to target..." - set status [remote_transmit $dest $exec_file] - if { $exec_file != $prog } { - remote_file build delete $exec_file - } - if { $status != 0 } { - remote_close $dest - verbose -log "Transmission of $exec_file to the target failed." 3 - return "unresolved" - } - verbose "Wrote records to target...waiting for prompt." - remote_send $dest "\n" - set got_p 0 - remote_expect $dest 50 { - -re "$shell_prompt$" { - verbose "Got prompt." - set got_p 1 - } - timeout { } - } - if { $got_p } { - # Flush any remaining cruft. 2 seconds may be too long, dunno. - remote_expect $dest 2 { - timeout { } - -re ".+" { exp_continue } - default { } - } - return "pass" - } else { - remote_close $dest - remote_reboot $dest - return "unresolved" - } - -} - - -proc base68k_spawn { dest prog args } { - set shell_prompt [board_info $dest shell_prompt] - - set result [remote_ld $dest $prog] - if { $result != "pass" } { - return [list $result ""] - } - - if {[board_info $dest exists startaddr]} { - set go_command "[board_info $dest go_command] [board_info $dest startaddr]" - } else { - set go_command "[board_info $dest go_command]" - } - - verbose "Sending $go_command, waiting for results." - remote_send $dest "${go_command}\n" - return { "pass" "" } -} - -proc base68k_wait { dest timeout } { - set shell_prompt [board_info $dest shell_prompt] - set noappend 0 - set result -1 - - set output "" - - remote_expect $dest $timeout { - -re [board_info $dest go_response] { - append output $expect_out(buffer) - set noappend 1 - set result 0 - exp_continue -continue_timer - } - -re "$shell_prompt$" { - verbose "Got prompt." - set result 0 - } - -re "\[\r\n\]+" { - if { ! $noappend } { - append output $expect_out(buffer) - if { [string length $output] < 512000 } { - exp_continue -continue_timer - } else { - set result -1 - } - } - } - timeout { - warning "Nothing ever came back." - set result -1 - } - } - - if {[board_info $dest exists output_end]} { - regsub "[board_info $dest output_end]" "$output" "\n" output - } - - # There has got to be a better way. (We need to do this in order to remove - # the echoed "go command". - if {[board_info $dest exists startaddr]} { - set go_command "[board_info $dest go_command] [board_info $dest startaddr]" - } else { - set go_command "[board_info $dest go_command]" - } - - regsub "^.*$go_command\[\r\n\]*" "$output" "" output - regsub "^.*$go_command\[\r\n\]*" "$output" "" output - - # We always want to check for a status, even if there was a funky weird - # failure above. - set status [check_for_board_status output] - if { $result == 0 } { - set result $status - verbose -log "exit status was $status" - } - # A negative value indicates that we should reboot. Otherwise, return - # the exit status from the program if we got one (and we should have). - return [list $result "$output"] -} - -proc base68k_load { dest prog args } { - global base68k_retry - - set shell_prompt [board_info $dest shell_prompt] - - if { [llength $args] > 0 } { - for { set x 0 } { $x < [llength $args] } { incr x } { - if { [lindex $args $x] != "" } { - verbose -log "Cannot pass parameters or input file to this target" - return [list "unsupported" ""] - } - } - } - - set result [remote_spawn $dest $prog] - if { [lindex $result 0] != "pass" } { - return $result - } - - # FIXME: The value 360 below should be a parameter. - - set result [remote_wait $dest 360] - set output [lindex $result 1] - set status [lindex $result 0] - - verbose "output from board is $output" - - # Make sure there's a newline before the PASS/FAIL/whatever for the log. - send_log "\n" - - if { $status > 0 } { - return [list "fail" $output] - } elseif { $status == 0 } { - return [list "pass" $output] - } else { - if {[info exists base68k_retry]} { - return [list "fail" $output] - } - set base68k_retry 1 - remote_reboot $dest - set status [eval base68k_load \{$dest\} \{$prog\} $args] - unset base68k_retry - return $status - } -} - -set_board_info protocol "base68k" -set_board_info send_initial_cr 1 diff --git a/config/bug.exp b/config/bug.exp deleted file mode 100644 index 46643dc..0000000 --- a/config/bug.exp +++ /dev/null @@ -1,29 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com). - -load_generic_config "base68k" - -set_board_info shell_prompt "\[0-9\]+Bug>" -set_board_info download_command "lo 0\r" -set_board_info download_response "lo 0.*" -set_board_info go_command "go" -set_board_info go_response "\*\*\*EXIT code.*" -set_board_info startaddr "10000" diff --git a/config/cfdbug.exp b/config/cfdbug.exp deleted file mode 100644 index da8e4fa..0000000 --- a/config/cfdbug.exp +++ /dev/null @@ -1,31 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com). - -load_generic_config "base68k" - -set_board_info shell_prompt "dBUG> *" -set_board_info download_command "dl\r\n" -set_board_info download_response "*Escape to local*" -set_board_info go_command "go" -set_board_info go_response "\[*\]\[*\]\[*\] EXIT code \[^\r\n\]*\[\r\n\]" -set_board_info startaddr "10000" -set_board_info hex_startaddr "0x10000" -set_board_info no_binary_mode 1 diff --git a/config/cygmon.exp b/config/cygmon.exp deleted file mode 100644 index b37f780..0000000 --- a/config/cygmon.exp +++ /dev/null @@ -1,22 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" - -set_board_info send_initial_cr 1 diff --git a/config/d10v.exp b/config/d10v.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/d10v.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/ddb-ether.exp b/config/ddb-ether.exp deleted file mode 100644 index 26597ea..0000000 --- a/config/ddb-ether.exp +++ /dev/null @@ -1,190 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com) - -# Reset the prompt to what GDB needs. -proc ${board}_init { dest } { - global doing_ddb_init - - if {![info exists doing_ddb_init]} { - set doing_ddb_init 1 - - remote_close $dest - for { set x 0 } { $x < 3 } { incr x } { - set shell_id [remote_open $dest] - if { $shell_id == "" || $shell_id < 0 } { - remote_reboot $dest - } else { - break - } - } - - set shell_prompt [board_info $dest shell_prompt] - - remote_send $dest "\n" - remote_expect $dest 10 { - -re ".*PMON> $" { - remote_send $dest "set prompt \"$shell_prompt\"\n" - exp_continue - } - -re ".*${shell_prompt}$" { } - } - remote_close $dest - unset doing_ddb_init - } else { - return - } -} - -proc ddb_ether_load { dest prog args } { - for { set x 0 } { $x < 3 } { incr x } { - set result [eval remote_spawn \{$dest\} \{$prog\} $args] - if { $result < 0 } { - remote_reboot $dest - } else { - set result [remote_wait $dest 300] - set status [lindex $result 0] - set output [lindex $result 1] - if { $status >= 0 } { - if { $status > 0 } { - return [list "fail" $output] - } else { - return [list "pass" $output] - } - } - } - } - return [list "fail" ""] -} - -proc ddb_ether_ld { dest prog } { - if {![board_info $dest exists tftpdir]} { - perror "Must set_board_info tftpdir for [board_info $dest name]" - return "fail" - } - - if {![board_info $dest exists fileid]} { - set spawn_id [remote_open $dest] - if { $spawn_id == "" || $spawn_id < 0 } { - return "retry" - } - remote_binary $dest - } - - set shell_prompt [board_info $dest shell_prompt] - - remote_send $dest "\n" - remote_expect $dest 10 { - -re ".*${shell_prompt}$" { } - default { - return "retry" - } - } - set basename "a.out.[pid]" - set file "[board_info $dest tftpdir]/$basename" - set file [remote_download build $prog $file] - if { $file == "" } { - perror "download to tftp area failed" - return "fail" - } - set state "pass" - - remote_send $dest "boot /$basename\n" - set tries 0 - remote_expect $dest 30 { - -re "Loading.*Entry address is.*${shell_prompt}$" { } - -re "invalid executable.*${shell_prompt}$" { - incr tries - if { $tries < 3 } { - sleep 2 - remote_send $dest "boot /$basename\n" - exp_continue - } - } - -re ".*${shell_prompt}$" { - set state "fail" - } - default { - set state "fail" - } - } - remote_file build delete $file - if { $state == "fail" } { - return $state - } - return "pass" -} - -proc ddb_ether_spawn { dest prog args } { - set state [ddb_ether_ld $dest $prog] - - if { $state != "pass" } { - return -1 - } - remote_send $dest "g\n" - remote_expect $dest 5 { - -re "g\[\r\n\]\[\r\n\]?" { } - default { } - } - - return [board_info $dest fileid] -} - -proc ddb_ether_wait { dest timeout } { - set output "" - set shell_prompt [board_info $dest shell_prompt] - - remote_expect $dest $timeout { - -re "^g\[\r\n\]\[\r\n\]?" { - if { $output != "" } { - append output $expect_out(buffer) - } - exp_continue - } - -re "(.*)$shell_prompt" { - append output $expect_out(1,string) - set status [check_for_board_status output] - if { $status > 0 } { - return [list $status $output] - } else { - if {[regexp "Exception Cause=" $output]} { - remote_reboot $dest - return [list -1 $output] - } - return [list 0 $output] - } - } - -re "\[\r\n\]+" { - append output $expect_out(buffer) - if { [string length $output] < 512000 } { - exp_continue - } else { - return [list -1 ""] - } - } - default { - return [list -1 ""] - } - } -} - -set_board_info send_initial_cr 1 -set_board_info protocol "ddb_ether" -set_board_info shell_prompt "NEC010> " diff --git a/config/ddb.exp b/config/ddb.exp deleted file mode 100644 index 426f8ee..0000000 --- a/config/ddb.exp +++ /dev/null @@ -1,96 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com) - -# We use GDB to talk to a vr4300 board. -load_generic_config "base68k" - -set_board_info shell_prompt "NEC010> " -set_board_info download_command "load tty0\n" -set_board_info download_response "Downloading from" -set_board_info go_command "g -e" -set_board_info startaddr "a0100000" -set_board_info hex_startaddr "0xa0100000" -set_board_info go_response "(^|\[\r\n\])(Exception Cause|\[0-9a-z\]+ \[0-9a-z\]+ break|\\*\\*\\*EXIT code )\[^\r\n\]*\[\r\n\]" -set_board_info output_end "\[\r\n\](Exception Cause|\[0-9a-z\]+ \[0-9a-z\]+ break).*$" - -# Reset the prompt to what GDB needs. -proc ${board}_init { dest } { - global doing_ddb_init - if {[is_remote host]} { - return - } - - if {![info exists doing_ddb_init]} { - set doing_ddb_init 1 - - for { set i 1 } { $i <= 3 } { incr i } { - remote_close $dest - for { set x 0 } { $x < 3 } { incr x } { - set shell_id [remote_open $dest] - if { $shell_id == "" || $shell_id < 0 } { - remote_reboot $dest - } else { - break - } - } - - set count 0 - remote_send $dest "\n" - remote_expect $dest 20 { - -re ".*PMON> $" { - remote_send $dest "set prompt \"NEC010> \"\n" - exp_continue - } - -re "NEC010> $" { - set i 10 - } - timeout { } - -re "0x0" { - incr count - if(count<5) { - exp_continue - } - } - } - if { $i < 3 } { - remote_reboot $dest - } - } - remote_close $dest - unset doing_ddb_init - } else { - return - } -} - -set_board_info send_initial_cr 1 -set_board_info dont_wait_for_prompt 1 - -# If no output format is specified, use objcopy. -if {![board_info $board exists output_format]} { - set tempfil [lookfor_file $tool_root_dir binutils/objcopy] - if { $tempfil != "" } { - set_board_info objcopy $tempfil - } else { - set_board_info objcopy [transform objcopy] - } - unset tempfil -} diff --git a/config/dos.exp b/config/dos.exp deleted file mode 100644 index ea447cf..0000000 --- a/config/dos.exp +++ /dev/null @@ -1,483 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com) - -# -# Open a connection to the remote DOS host. -# -proc dos_open { dest args } { - global destbat_num - global board_info - - if {![info exists destbat_num]} { - set destbat_num [pid] - } - if { [board_info $dest conninfo] == "" } { - set name [board_info $dest name] - - set board_info($name,conninfo) "b${destbat_num}.bat" - incr destbat_num - } - - if {[board_info $dest exists fileid]} { - return [board_info $dest fileid] - } - - verbose "doing a dos_open to $dest" - - set shell_prompt [board_info $dest shell_prompt] - - set shell_id [remote_raw_open $dest] - - if { $shell_id == "" || $shell_id < 0 } { - return -1 - } - - if {[board_info $dest exists init_command]} { - remote_send $dest "[board_info $dest init_command]\n" - remote_expect $dest 10 { - -re "$shell_prompt" { } - default { - perror "failed connection to DOS on $dest." - return -1 - } - } - } - - if {[board_info $dest exists ftp_directory]} { - set dir [board_info $dest ftp_directory] - regsub -all "/" "$dir" "\\" dir - remote_send $dest "cd $dir\n" - remote_expect $dest 10 { - -re "$shell_prompt" { } - default { - perror "failed connection to DOS on $dest." - return -1 - } - } - } - - if {[board_info $dest exists dos_dir]} { - set dos_dir [board_info $dest dos_dir] - regsub -all "^(\[a-zA-Z]:).*$" "$dos_dir" "\\1" drive - regsub -all "^\[a-zA-Z]:" "$dos_dir" "" dos_dir - remote_send $dest "${drive}\n" - remote_expect $dest 10 { - -re "$shell_prompt" { } - default { - perror "failed connection to DOS on $dest." - return -1 - } - } - remote_send $dest "cd $dos_dir\n" - remote_expect $dest 10 { - -re "$shell_prompt" { } - default { - perror "failed connection to DOS on $dest." - return -1 - } - } - } - - global target_alias - if {[info exists target_alias]} { - set talias $target_alias - } else { - set talias "foo-bar" - } - - if {[board_info $dest exists name]} { - set n [board_info $dest name] - } else { - set n $dest - } - set board_info($n,fileid) $shell_id - - if {[board_info $dest exists init_script]} { - remote_exec $dest "[board_info $dest init_script] $talias" - } - - verbose "Succeeded in connecting to DOS." - return $shell_id -} - -# -# Close the connection to the remote host. If we're telnetting there, we -# need to exit the connection first (ataman telnetd gets confused otherwise). -# -proc dos_close { dest args } { - if {[board_info $dest exists fileid]} { - if { [board_info $dest connect] == "telnet" } { - remote_send $dest "exit\n" - sleep 2 - } - return [remote_raw_close $dest] - } -} - -proc dos_prep_command { dest cmdline } { - global board_info - - set name [board_info $dest name] - set shell_id [remote_open "$dest"] - - set localbat "/tmp/b[pid].bat" - set remotebat [board_info $dest conninfo] - - verbose "opened" - if { $shell_id != "" && $shell_id >= 0 } { - set fileid [open "$localbat" "w"] - puts -nonewline $fileid "@echo off\r\n$cmdline\r\nif errorlevel 1 echo *** DOSEXIT code 1\r\nif not errorlevel 1 echo *** DOSEXIT code 0\r\n" - close $fileid - set result [remote_download $dest $localbat $remotebat] - } else { - set result "" - } - remote_file build delete $localbat - return $result -} - -# -# Run CMDLINE on DESTHOST. We handle two cases; one is where we're at -# a DOS prompt, and the other is where we're in GDB. -# We run CMDLINE by creating a batchfile, downloading it, and then -# executing it; this handles the case where the commandline is too -# long for command.com to deal with. -# - -proc dos_exec { dest program pargs inp outp } { - set cmdline "$program $pargs" - - set shell_prompt [board_info $dest shell_prompt] - - if { $inp != "" } { - set inp [remote_download $dest $inp inpfile] - if { $inp != "" } { - set inp " < $inp" - } - } - - if { $outp != "" } { - set outpf " > tempout" - } else { - set outpf "" - } - - verbose "cmdline is $cmdline$inp." 2 - - # Make a DOS batch file; we use @echo off so we don't have to see - # the DOS command prompts and such. - for { set i 0 } { $i < 2 } { incr i } { - set exit_status -1 - verbose "calling open" - set batfile [dos_prep_command $dest "$cmdline$inp$outpf"] - if { $batfile != "" } { - if { [dos_start_command $batfile $dest] == "" } { - # FIXME: The 300 below should be a parameter. - set result [remote_wait $dest 300] - set exit_status [lindex $result 0] - set output [lindex $result 1] - } - } - if { $exit_status >= 0 } { - if { $outp != "" } { - remote_upload $dest tempout $outp - remote_file $dest delete tempout - } - return [list $exit_status $output] - } - if { $exit_status != -2 } { - remote_close $dest - remote_reboot $dest - } - } - return [list -1 "program execution failed"] -} - -# -# Start CMDLINE executing on DEST. -# There are two cases that we handle, one where we're at a DOS prompt -# and the other is when the remote machine is running GDB. -# - -proc dos_start_command { cmdline dest } { - set shell_prompt [board_info $dest shell_prompt] - set prefix "" - set ok 0 - for { set i 0 } {$i <= 2 && ! $ok} { incr i } { - set shell_id [remote_open $dest] - if { $shell_id != "" && $shell_id > 0 } { - remote_send $dest "echo k\r" - remote_expect $dest 20 { - -re "\\(gdb\\)" { - set shell_prompt "\\(gdb\\)" - # gdb uses 'shell command'. - set prefix "shell " - set ok 1 - } - -re "$shell_prompt" { - set ok 1 - } - default { } - } - } - if { ! $ok } { - remote_close $dest - remote_reboot $dest - } - } - if { ! $ok } { - return "unable to start command" - } else { - remote_send $dest "${prefix}${cmdline}\n" - remote_expect $dest 2 { - -re "${cmdline}\[\r\n\]\[\r\n\]?" { } - timeout { } - } - return "" - } -} - -# -# Send STRING to DEST, translating all LFs to CRs first, and sending one -# line at a time because of strangeness with telnet in some circumstances. -# - -proc dos_send { dest string } { - verbose "Sending '$string' to $dest" 2 - # Convert LFs to CRs, 'cause that is what DOS wants to see. - set first 1 - set string [string trimright $string "\r\n"] - foreach line [split $string "\r\n"] { - if {$first} { - set first 0 - } else { - # small delay between lines, to keep from - # overwhelming the stupid telnet server. - sleep 1.0 - } - remote_raw_send $dest "$line\r" - } -} - -# -# Spawn PROGRAM on DEST, and return the spawn_id associated with the -# connection; we can only spawn one command at a time. -# - -proc dos_spawn { dest program args } { - verbose "running $program on $dest" - set remotebat [dos_prep_command $dest $program] - - for { set x 0 } { $x < 3 } { incr x } { - if { [dos_start_command $remotebat $dest] == "" } { - return [board_info $dest fileid] - } - remote_close $dest - remote_reboot $dest - } - return -1 -} - -proc dos_wait { dest timeout } { - set output "" - set shell_prompt [board_info $dest shell_prompt] - set status 1 - - verbose "waiting in dos_wait" - remote_expect $dest $timeout { - -re "(.*)\[*\]\[*\]\[*\] DOSEXIT code (\[0-9\]+)\[\r\n\]\[\r\n\]?" { - verbose "got exit status" - append output $expect_out(1,string) - set status $expect_out(2,string) - exp_continue - } - - -re "(.*)${shell_prompt}" { - append output $expect_out(1,string) - verbose "output from dos is:'$output'" - return [list $status $output] - } - - -re "(.*)\\(gdb\\)" { - append output $expect_out(1,string) - return [list $status $output] - } - - -re "In.*cygwin.*except" { - remote_close $dest - remote_reboot $dest - return [list -2 $output] - } - - -re "\[\r\n\]+" { - # This is a bit obscure. We only want to put whole - # lines into the output string, because otherwise we - # might miss a prompt because we only got 1/2 of it the - # first time 'round. The other tricky bit is that - # expect_out(buffer) will contain everything before and including - # the matched pattern. - append output $expect_out(buffer) - exp_continue -continue_timer - } - - timeout { - warning "timeout in dos_wait" - if { [dos_interrupt_job $dest] == "" } { - return [list 1 $output] - } - } - - eof { - warning "got EOF from dos host." - } - } - - remote_close $dest - - return [list -1 $output] -} - -proc dos_load { dest prog args } { - global dos_dll_loaded - set progargs "" - set inpfile "" - if { [llength $args] > 0 } { - set progargs [lindex $args 1] - } - if { [llength $args] > 1 } { - set inpfile [lindex $args 1] - } - if {![info exists dos_dll_loaded]} { - if {![is_remote host]} { - global target_alias - - set comp [get_multilibs] - if {[file exists [file join ${comp} winsup new-cygwin1.dll]]} { - set dll "${comp}/winsup/new-cygwin1.dll" - set dll_name "cygwin1.dll" - } elseif {[file exists [file join ${comp} winsup new-cygwin.dll]]} { - set dll "${comp}/winsup/new-cygwin.dll" - set dll_name "cygwin.dll" - } elseif {[file exists [file join ${comp} lib cygwin1.dll]]} { - set dll "${comp}/lib/cygwin1.dll" - set dll_name "cygwin1.dll" - } elseif {[file exists [file join ${comp} lib cygwin.dll]]} { - set dll "${comp}/lib/cygwin.dll" - set dll_name "cygwin.dll" - } else { - error "couldn't find cygwin.dll:$comp" - return "fail" - } - remote_download $dest $dll $dll_name - } - set dos_dll_loaded 1 - } - set remote_prog [remote_download $dest $prog "aout.exe"] - set result [remote_exec $dest $remote_prog $progargs $inpfile] - set status [lindex $result 0] - set output [lindex $result 1] - set status2 [check_for_board_status output] - if { $status2 >= 0 } { - set status $status2 - } - if { $status != 0 } { - set status "fail" - } else { - set status "pass" - } - return [list $status $output] -} - -proc dos_file { dest op args } { - switch $op { - delete { - foreach x $args { - remote_exec $dest "del" "$x" - } - return - - } - default { - return [eval standard_file \{$dest\} \{$op\} $args] - } - } -} - -# -# Interrupt the current spawned command being run; the only tricky -# part is that we have to handle the "Terminate batch job" prompt. -# -proc dos_interrupt_job { host } { - set shell_prompt [board_info $host shell_prompt] - - remote_send $host "\003" - remote_expect $host 10 { - -re "Terminate batch job.*Y/N\[)\]\[?\] *$" { - remote_send $host "n\n" - exp_continue - } - -re "$shell_prompt" { - return "" - } - -re ">" { - remote_send $host "\n" - exp_continue - } - } - return "fail" -} - -proc dos_copy_download { host localfile remotefile } { - remote_file build delete "[board_info $host local_dir]/$remotefile" - if {[remote_file build exists $localfile]} { - set result [remote_download build $localfile "[board_info $host local_dir]/$remotefile"] - if { $result != "" } { - remote_exec build "chmod" "a+rw $result" - return $remotefile - } - } else { - return "" - } -} - -proc dos_copy_upload { host remotefile localfile } { - remote_file build delete $localfile - if {[file exists [file join [board_info $host local_dir] $remotefile]]} { - set result [remote_download build "[board_info $host local_dir]/$remotefile" $localfile] - } else { - set result "" - } - if { $result != "" } { - remote_exec build "chmod" "a+rw $result" - return $result - } -} - -proc dos_copy_file { dest op args } { - if { $op == "delete" } { - set file "[board_info $dest local_dir]/[lindex $args 0]" - remote_file build delete $file - } -} - -set_board_info protocol "dos" -set_board_info shell_prompt "(^|\[\r\n\])\[a-zA-Z\]:\[^\r\n\]*>\[ \t\]*$" -set_board_info needs_status_wrapper 1 diff --git a/config/dve.exp b/config/dve.exp deleted file mode 100644 index 07e8793..0000000 --- a/config/dve.exp +++ /dev/null @@ -1,22 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# For Densan MIPS boards we use gdb to load and execute programs. - -load_generic_config "gdb-comm" diff --git a/config/h8300.exp b/config/h8300.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/h8300.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/i386-bozo.exp b/config/i386-bozo.exp deleted file mode 100644 index a0f4ccb..0000000 --- a/config/i386-bozo.exp +++ /dev/null @@ -1,46 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" - -proc ${board}_init { args } { - set linux_box [target_info linux_box] - set bozo_server [target_info bozo_server] - remote_spawn $linux_box "$bozo_server unknown" - remote_expect $linux_box 60 { - -re "port is (\[0-9\]+)" { - set_currtarget_info netport "${linux_box}:$expect_out(1,string)" - } - } -} - -proc ${board}_close { board } { - set linux_box [board_info $board linux_box] - if {[board_info $linux_box exists fileid]} { - remote_send $linux_box "\003" - remote_close $linux_box - } - standard_close $board -} - -proc ${board}_reboot { board args } { - remote_close $board - unset_currtarget_info netport - return 1 -} diff --git a/config/i960.exp b/config/i960.exp deleted file mode 100644 index 5715fe7..0000000 --- a/config/i960.exp +++ /dev/null @@ -1,222 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# -# Initialize the board on initial connection or after rebooting. -# Since the board autobauds, we have to be a bit aggressive about -# getting a valid prompt. -# -proc ${board}_init { dest } { - global i960_try_count - - set prompt [board_info $dest shell_prompt] - set done 0 - - if {![info exists i960_try_count]} { - set i960_try_count 1 - } - - remote_close $dest - if { [remote_open $dest] != "" } { - for { set tries 0 } { $tries < 7 && ! $done } { incr tries } { - remote_send $dest "\n" - remote_expect $dest 1 { - -re "${prompt}" { - set done 1 - } - -re ".+" { exp_continue } - timeout { } - } - } - } - - remote_close $dest - if { ! $done } { - if { $i960_try_count == 3 } { - perror "Couldn't connect to board." - } else { - incr i960_try_count - remote_close $dest - remote_reboot $dest - } - } - if {[info exists i960_try_count]} { - unset i960_try_count - } -} - -proc i960_ld { dest prog } { - if {![file exists $prog]} { - perror "$prog does not exist." - return "untested" - } - set shell_prompt [board_info $dest shell_prompt] - set strip [board_info $dest strip] - set rprog [remote_download host $prog a.out] - if { $strip != "" } { - remote_exec host $strip $rprog - } - remote_upload host $rprog a.out - - set id [remote_open $dest] - if { $id < 0 } { - return -1 - } - remote_binary $dest - remote_send $dest "\n" - remote_expect $dest 5 { - -re $shell_prompt { } - } - remote_send $dest "do\n" - remote_expect $dest 5 { - -re "Downloading" { } - } - # Nasty. - if { [board_info $dest connect] == "telnet" } { - global board_info - - remote_close $dest - set hp [split [board_info $dest netport] ":"] - set host [lindex $hp 0] - set port [lindex $hp 1] - set status -1 - while { $status != 0 } { - set status [catch "socket $host $port" id2] - if { $status != 0 } { - sleep 5 - } - } - } else { - set id2 [exp_open -leaveopen -i $id] - } - if {[catch "exec sx -bX a.out <@$id2 >@$id2 2>/dev/null" error]} { - perror "exec sx failed: $error" - } - if { [board_info $dest connect] == "telnet" } { - close $id2 - sleep 2 - remote_open $dest - remote_binary $dest - } - set result 1 - remote_send $dest "\n" - remote_expect $dest 1 { - -re "$shell_prompt" { - set result 0 - exp_continue - } - timeout { } - } - return $result -} - -proc i960_spawn { dest prog args } { - set shell_prompt [board_info $dest shell_prompt] - - for { set tries 0 } { $tries < 3 } { incr tries } { - set result [remote_ld $dest $prog] - if { $result == 0 } { - set comm "go [board_info $dest start_addr]" - remote_send $dest "$comm\n" - remote_expect $dest 10 { - -re "$comm\[\r\n\]\[\r\n\]?" { } - default { } - } - return [board_info $dest fileid] - } else { - remote_reboot $dest - } - } - return -1 -} - -proc i960_wait { dest timeout } { - set output "" - set shell_prompt [board_info $dest shell_prompt] - set status -1 - - remote_expect $dest $timeout { - -re " fault at \[0-9a-h\]+, subtype \[0-9a-h\]+" { - set status -1 - exp_continue - } - -re "(.*)(\[\r\n\]|^)Program Exit: (\[0-9\]+)\[\r\n\]" { - append output $expect_out(1,string) - set status $expect_out(3,string) - exp_continue - } - -re "(.*)$shell_prompt" { - append output $expect_out(1,string) - set bstatus [check_for_board_status output] - if { $bstatus >= 0 } { - set status $bstatus - } - } - -re "\[\r\n\]+" { - # Sometimes the board goes wacky in the head, and we have - # to shoot it. - append output $expect_out(buffer) - if { [string length $output] < 512000 } { - exp_continue - } else { - set status -1 - } - } - default { - set status -1 - } - } - return [list $status $output] -} - -proc i960_load { dest prog args } { - for { set x 0 } { $x < 3 } { incr x } { - set id [eval remote_spawn \{$dest\} \{$prog\} $args] - if { $id < 0 } { - return [list "fail" ""] - } - set result [remote_wait $dest 120] - set status [lindex $result 0] - set output [lindex $result 1] - - if { $status == 0 } { - return [list "pass" $output] - } else { - global i960_retry - - if { [board_info $dest exists unreliable] && ![info exists i960_retry] } { - set i960_retry 1 - remote_reboot $dest - set result [eval i960_load \{$dest\} \{$prog\} $args] - unset i960_retry - return $result - } else { - if { $status < 0 } { - remote_reboot $dest - } - return [list "fail" $output] - } - } - } -} - -set_board_info shell_prompt "=>" -set_board_info send_initial_cr 1 -# We take care of getting a prompt in ${board}_init. -set_board_info dont_wait_for_prompt 1 diff --git a/config/m32r-stub.exp b/config/m32r-stub.exp deleted file mode 100644 index 17016bc..0000000 --- a/config/m32r-stub.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb_stub" diff --git a/config/m32r.exp b/config/m32r.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/m32r.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/m68hc11.exp b/config/m68hc11.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/m68hc11.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/m68k-emc.exp b/config/m68k-emc.exp deleted file mode 100644 index 546360d..0000000 --- a/config/m68k-emc.exp +++ /dev/null @@ -1,71 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -proc ${board}_init { dest } { - global doing_emc_init - - if {[info exists doing_emc_init]} { - return - } - set doing_emc_init 1 - remote_close $dest - set dos_host [board_info $dest dos_host] - remote_reboot $dos_host - unset doing_emc_init -} - -proc m68k_emc_board_connect { dest } { - global board_info - set tname [board_info $dest name] - - set board_info($tname,m68k_connected) 1 - set dos_host [board_info $dest dos_host] - - for { set x 0 } { $x < 3 } { incr x } { - set shell_id [remote_open $dos_host] - if { $shell_id == "" || $shell_id < 0 } { - remote_reboot $dos_host - } else { - break - } - } - remote_send $dos_host "c:\\symetrix.bat\n" - remote_expect $dos_host 300 { - -re "SymmComm.*Installed.*\033.2J.*\033.2J" { } - default { - warning "Never got clear screen sequence from remote side." - } - } - # Flush the buffer. - remote_expect $dos_host 2 { - -re ".+" { exp_continue } - } - # Get past first menu. - remote_send $dos_host "\n" - remote_expect $dos_host 10 { - -re "\033.07;02H" { } - default { } - } - # We don't want a log file. - remote_send $dos_host "\n" - remote_expect $dos_host 10 { - -re "\033.02;24H" { } - default { } - } -} diff --git a/config/mips-idt.exp b/config/mips-idt.exp deleted file mode 100644 index 06921fc..0000000 --- a/config/mips-idt.exp +++ /dev/null @@ -1,24 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# For MIPS/IDT we use gdb to load and execute programs. - -load_generic_config "gdb-comm" - -set_board_info gdb_init_command "set syn-garbage-limit 0" diff --git a/config/mn10200-eval.exp b/config/mn10200-eval.exp deleted file mode 100644 index 7225fc9..0000000 --- a/config/mn10200-eval.exp +++ /dev/null @@ -1,22 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# For MN10200 evaluation boards we use gdb to load and execute programs. - -load_generic_config "gdb-comm" diff --git a/config/mn10300-eval.exp b/config/mn10300-eval.exp deleted file mode 100644 index 2acc439..0000000 --- a/config/mn10300-eval.exp +++ /dev/null @@ -1,22 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# For MN10300 evaluation boards we use gdb to load and execute programs. - -load_generic_config "gdb-comm" diff --git a/config/netware.exp b/config/netware.exp deleted file mode 100644 index 6c0866e..0000000 --- a/config/netware.exp +++ /dev/null @@ -1,217 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by J.T. Conklin. (jtc@cygnus.com) - -# -# load support libraries -# -load_lib remote.exp - -# set target variables only if needed - -proc ${board}_init { args } { - global NLMCONV - - # FIXME: rootme is undefined. - if {![info exists NLMCONV]} then { - set NLMCONV [findfile "$rootme/../binutils/nlmconv"] - } - global LD - if {![info exists LD]} then { - set LD [findfile "$rootme/../ld/ld-new" "$rootme/../ld/ld-new" [transform "ld"]] - } - - set shell_prompt "Password:" - set shell_id [remote_open target] - if {[target_info exists passwd]} { - set passwd [target_info passwd] - } else { - set passwd "" - } - if {$shell_id < 0} then { - warning "Couldn't connect to target" - return -1 - } - - if {[string match "" $passwd]} then { - stty -echo - send_user "Password: " - expect_user -re "(.*)\n" - send_user "\n" - set passwd "$expect_out(1,string)" - stty echo - } - - send -i $shell_id "$passwd\n" - expect { - -i $shell_id ":" { - verbose "Got termtype prompt" 0 - } - - -i $shell_id timeout { - warning "Connection timed out" - return -1 - } - } - - # FIXME - set shell_prompt "[string toupper [target_info name]]:" - send -i $shell_id "1\n" - - expect { - -i $shell_id -re "$shell_prompt" {} - -i $shell_id timeout { - warning "Connection timed out" - return -1 - } - } -} - - -# -# ${board}_load -- load the program and execute it -# -# See default.exp for explanation of arguments and results. -# - -proc ${board}_load { dest prog args } { - global LD NLMCONV - global tmpdir - global errorCode - - if {[board_info $dest exists fileid]} { - set shell_id [board_info $dest fileid] - } else { - set shell_id -1 - } - - set output "" - - if {$shell_id < 0} then { - verbose -log "$prog not executed because there is no target" 3 - return "untested" - } - - # - set exe [file tail $prog] - - # We can't blindly append a suffix to the object name, because the - # result may not be valid on netware's 8.3 filesystem. - # - # FIXME: tmpdir is undefined. - set nlm "$tmpdir/x.nlm" - set lnk "$tmpdir/x.lnk" - - # build *.lnk file - set fd [open $lnk w] - puts $fd "description \"$exe\"" - puts $fd "screenname \"System Console\"" - puts $fd "module clib.nlm" - puts $fd "module mathlib.nlm" - puts $fd "stack 65536" - puts $fd "debug" - # FIXME: don't hardcode location of prelude.o - puts $fd "input /s1/cygnus/dejagnu/i386-netware/lib/prelude.o" - puts $fd "input $prog" - puts $fd "output $nlm" - close $fd - - # run nlmconv - verbose "Executing: $NLMCONV -l$LD -T$lnk" 1 - catch "exec $NLMCONV -l$LD -T$lnk" output - if {![string match "" $output]} then { - verbose $output 1 - } - if {![string match "NONE" $errorCode]} { - verbose -log "Can't link $prog" 3 - return "fail" - } - - # download - verbose "Downloading $nlm" 1 - catch "exec cp $nlm /.NetWare/[board_info $dest name].nws/sys.nwv/tmp/x.nlm" output - if {![string match "" $output]} then { - verbose $output 1 - verbose -log "cp failed for $nlm" 3 - return "unresolved" - } - - # Wait a second for the file to "settle" on the NetWare server. - # I've encountered unexplained failures without this delay. - # sleep 1 - - - # The NetWare remote console expects to be connected to a vt100 - # compatible terminal. It isn't very efficent, and it seems to - # send screen repaints for no reason. So we have to clear the - # screen as we run each test, otherwise a shell prompt or abort - # message from a previous test could cause incorrect results. - send -i $shell_id "CLS\r\n" - set timeout 1 - expect { - -i $shell_id -re "$shell_prompt" { - exp_continue - } - } - set timeout 10 - - - # Netware does not support exit status. The best we can do to - # detect failures is to look for the "ABNORMAL NLM TERMINATION" - # message printed by abort(). - set ret 0 - send -i $shell_id "LOAD X.NLM\r\n" - expect { - -i $shell_id "ABNORMAL NLM TERMINATION" { - set ret 1 - exp_continue - } - -i $shell_id "Unable to find load file" { - perror "Couldn't execute program" - verbose -log "Couldn't execute program" 3 - return "unresolved" - } - -i $shell_id timeout { - perror "Couldn't execute program (timed out)" - verbose -log "Couldn't execute program (timed out)" 3 - return "unresolved" - } - -i $shell_id -re "[format "%sLOAD" $shell_prompt]" { - exp_continue - } - -i $shell_id -re "$shell_prompt" {} - } - - catch [file delete -force -- $lnk $nlm] - - if { $ret == 0 } { - return "pass" - } else { - return "fail" - } -} - -# -# ${tool}_exit -- shutdown the connection -# - -proc ${board}_exit {} { - remote_close target -} diff --git a/config/powerpc-bug.exp b/config/powerpc-bug.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/powerpc-bug.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/proelf.exp b/config/proelf.exp deleted file mode 100644 index da32e8a..0000000 --- a/config/proelf.exp +++ /dev/null @@ -1,27 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "base68k" -set_board_info shell_prompt "#" -set_board_info download_command "r 0\n" -set_board_info go_command "g" -set_board_info startaddr "40000" - -set_board_info go_response "\[\r\n\]+\[a-z \]+\\(\[0-9\]+\\) pc=\[0-9A-Ha-h\]+\[\r\n\]+\[0-9A-H\]+ \[0-9A-H\]+ \[^\r\n\]+\[\r\n\]+|\\*\\*\\*EXIT code " -set_board_info output_end "\[\r\n\]+\[a-z \]+\\(\[0-9\]+\\) pc=\[0-9A-Ha-h\]+\[\r\n\]+.*$" diff --git a/config/rom68k.exp b/config/rom68k.exp deleted file mode 100644 index a6c113b..0000000 --- a/config/rom68k.exp +++ /dev/null @@ -1,32 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Bob Manson (manson@cygnus.com) -# based on earlier work by J.T. Conklin (jtc@cygnus.com) - -load_generic_config "base68k" - -set_board_info shell_prompt "ROM68K :-> " -set_board_info download_command "DC\n" -set_board_info download_response "Waiting for S-records from host... " -set_board_info go_command "GO" -set_board_info startaddr "10000" -set_board_info hex_startaddr "0x10000" -set_board_info go_response "(Emul|RS Except|TRAP #\[1-9\]|\\*\\*\\*EXIT code ).*" -set_board_info output_end "\[\r\n\]((\[^\r\n\]*\[\r\n\]-----*)|Emul|RS Except|TRAP #|Bus/Address).*$" diff --git a/config/sh.exp b/config/sh.exp deleted file mode 100644 index 72ba6dc..0000000 --- a/config/sh.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb-comm" diff --git a/config/slite.exp b/config/slite.exp deleted file mode 100644 index 17016bc..0000000 --- a/config/slite.exp +++ /dev/null @@ -1,20 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -load_generic_config "gdb_stub" diff --git a/config/sparclet.exp b/config/sparclet.exp deleted file mode 100644 index 7864d07..0000000 --- a/config/sparclet.exp +++ /dev/null @@ -1,26 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# This file was written by Michael Snyder <msnyder@cygnus.com>. - -load_generic_config "gdb_stub" - -# This is the old GDB prompt for the toolchain. -# Uncomment for old tests -#set_board_info gdb_prompt "\\(gdbslet\\)" diff --git a/config/tic80.exp b/config/tic80.exp deleted file mode 100644 index d9e37d0..0000000 --- a/config/tic80.exp +++ /dev/null @@ -1,100 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# -# Nasty ugly stuff. -# -# We have to maintain two connections to the DOS box where the board -# is being held. One of them runs an I/O monitor process, while the other -# is used to actually start the program under test running on the board. -# - -proc tic80_load { dest prog args } { - set dos_box [board_info $dest dos_host] - - remote_spawn $dos_box [board_info $dest io_program] - - set status [remote_ld $dest $prog] - - if { $status != "pass" } { - return $status - } - - set result [remote_wait $dos_box 300] - set output [lindex $result 1] - if { [lindex $result 0] < 0 } { - if {[board_info $dos_box exists fileid]} { - dos_interrupt_job $dos_box - } else { - remote_close $dos_box - } - } - - set status "fail" - regsub "(\\*\\*\\* EXIT code \[0-9\]+\[\r\n]+).*$" "$output" "\\1" output - verbose "board out is $output" - set bstatus [check_for_board_status output] - if { [lindex $result 0] >= 0 } { - if { $bstatus == 0 } { - set status "pass" - } - } - remote_file build delete "a.fix" - return [list $status $output] -} - -proc tic80_ld { dest prog } { - set dos_box [board_info $dest dos_host] - set dopush 0 - - if { [remote_swap_conn $dos_box] == "fail" } { - if { [remote_push_conn $dos_box] == "fail" } { - set dopush 1 - } - remote_open $dos_box - } - set prog [remote_download $dos_box $prog "a.fix"] - - remote_spawn $dos_box "[board_info $dest start_program] $prog" - remote_expect $dos_box 10 { - -re "file\[(\]s\[)\] copied" {} - } - sleep 3 - dos_interrupt_job $dos_box - if { $dopush } { - remote_push_conn $dos_box - } else { - remote_swap_conn $dos_box - } - return "pass" -} -# -# Close the connection to the DOS box. -# -proc tic80_close { host } { - set dos_box [board_info $host dos_host] - - return [remote_close $dos_box] -} - -set_board_info protocol "tic80" -set_board_info gdb,use_standard_load 1 -set_board_info gdb,no_push_conn 1 -set_board_info gdb,do_reload_on_run 1 -set_board_info gdb,use_breakpoint_for_stub 1 diff --git a/config/vr4100.exp b/config/vr4100.exp deleted file mode 100644 index e1e384f..0000000 --- a/config/vr4100.exp +++ /dev/null @@ -1,21 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# We're using a ddb monitor. -load_generic_config "ddb" diff --git a/config/vr4300.exp b/config/vr4300.exp deleted file mode 100644 index e1e384f..0000000 --- a/config/vr4300.exp +++ /dev/null @@ -1,21 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# We're using a ddb monitor. -load_generic_config "ddb" diff --git a/config/vr5000.exp b/config/vr5000.exp deleted file mode 100644 index d28a36c..0000000 --- a/config/vr5000.exp +++ /dev/null @@ -1,21 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -# -# This file is part of DejaGnu. -# -# DejaGnu 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 3 of the License, or -# (at your option) any later version. -# -# DejaGnu 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 DejaGnu; if not, write to the Free Software Foundation, -# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. - -# We're using a ddb monitor, but we want to use the ethernet to load files. -load_generic_config "ddb-ether" |