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