1# Copyright 2011-2015 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# This file is a dejagnu "board file" and is used to run the testsuite 17# natively with gdbserver. 18# 19# To use this file: 20# bash$ cd ${build_dir}/gdb 21# bash$ make check RUNTESTFLAGS="--target_board=native-gdbserver" 22 23load_generic_config "gdbserver" 24load_board_description "gdbserver-base" 25 26# This gdbserver can only run a process once per session. 27set_board_info gdb,do_reload_on_run 1 28 29# There's no support for argument-passing (yet). 30set_board_info noargs 1 31 32set_board_info sockethost "localhost:" 33set_board_info use_gdb_stub 1 34set_board_info exit_is_reliable 1 35 36# We will be using the standard GDB remote protocol. 37set_board_info gdb_protocol "remote" 38 39proc ${board}_spawn { board cmd } { 40 global board_info 41 42 set baseboard [lindex [split $board "/"] 0] 43 44 set board_info($baseboard,isremote) 0 45 set result [remote_spawn $board $cmd] 46 set board_info($baseboard,isremote) 1 47 48 return $result 49} 50 51proc ${board}_exec { hostname program args } { 52 global board_info 53 54 set baseboard [lindex [split $hostname "/"] 0] 55 56 set board_info($baseboard,isremote) 0 57 set result [remote_exec $hostname $program $args] 58 set board_info($baseboard,isremote) 1 59 60 return $result 61} 62