diff options
Diffstat (limited to 'config/tic80.exp')
-rw-r--r-- | config/tic80.exp | 100 |
1 files changed, 0 insertions, 100 deletions
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 |