1# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 Free Software 2# Foundation, Inc. 3# 4# This file is part of DejaGnu. 5# 6# DejaGnu is free software; you can redistribute it and/or modify it 7# under the terms of the GNU General Public License as published by 8# the Free Software Foundation; either version 2 of the License, or 9# (at your option) any later version. 10# 11# DejaGnu is distributed in the hope that it will be useful, but 12# WITHOUT ANY WARRANTY; without even the implied warranty of 13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 14# General Public License for more details. 15# 16# You should have received a copy of the GNU General Public License 17# along with DejaGnu; if not, write to the Free Software Foundation, 18# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 19 20# gdbserver running over ssh. 21 22load_generic_config "cygmon" 23 24load_lib "telnet.exp" 25 26process_multilib_options "" 27 28# The default compiler for this target. 29set_board_info compiler "[find_gcc]" 30set_board_info cflags "[newlib_include_flags] [libgloss_include_flags]" 31set_board_info ldflags "[libgloss_link_flags] [newlib_link_flags] [board_info $board addl_link_flags] -Wl,--relax" 32 33# Standard remote protocol. 34set_board_info gdb_protocol "remote" 35set_board_info netport "localhost:4444" 36 37# We can't do input in GDB (yet! HA!). It *will* do output, hurrah. 38set_board_info gdb,noinferiorio 1 39# Or pass arguments. 40set_board_info gdb,noargs 1 41set_board_info noargs 1 42# Or do signals. 43set_board_info gdb,nosignals 1 44# Can't do hardware watchpoints, in general 45set_board_info gdb,no_hardware_watchpoints 1 46 47set_board_info shell_prompt "cygmon>" 48 49set_board_info gdb,do_reload_on_run 1 50#set_board_info gcc,no_trampolines 1 51set_board_info gcc,timeout 800 52set_board_info gdb,timeout 7200 53# 60 minutes... The simulator can be ridiculously slow when 54# simulating the feeble instruction set.... 55set_board_info testcase_timeout 3600 56set_board_info gcc,stack_size 16384 57set_board_info file_transfer zpu 58 59 60# 61# Download $srcfile to $destfile on $desthost. 62# 63 64proc zpu_download {desthost srcfile destfile} { 65 verbose "ZPU: Copying $srcfile to $destfile." 66 set status [catch "exec cp $srcfile $destfile" output] 67 if { $status == 0 } { 68 verbose "Copied $srcfile to $desthost:$destfile" 2 69 return $destfile 70 } else { 71 verbose "Download to $desthost failed, $output." 72 return "" 73 } 74} 75