gdb/testsuite/config/gdbserver.exp

   1 # Copyright 2000, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010
   2 # Free Software Foundation, Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 # Test framework for GDB (remote protocol) using a "gdbserver",
  18 # ie. a debug agent running as a native process on the same or
  19 # a different host.
  20
  21 #
  22 # This module to be used for testing gdb with a "gdbserver"
  23 # built either from libremote or from gdb/gdbserver.
  24 #
  25
  26 #
  27 # To be addressed or set in your baseboard config file:
  28 #
  29 #   set_board_info gdb_protocol "remote"
  30 #       Unles you have a gdbserver that uses a different protocol...
  31 #
  32 #   set_board_info use_gdb_stub 1
  33 #       This tells the rest of the test suite not to do things
  34 #       like "run" which don't work well on remote targets.
  35 #
  36 #   set_board_info gdb,do_reload_on_run 1
  37 #       Unles you have a gdbserver that can handle multiple sessions.
  38 #
  39 #   set_board_info noargs 1
  40 #       At present there is no provision in the remote protocol
  41 #       for passing arguments.  This test framework does not
  42 #       address the issue, so it's best to set this variable
  43 #       in your baseboard configuration file.
  44 #       FIXME: there's no reason why the test harness couldn't
  45 #       pass commandline args when it spawns gdbserver.
  46 #
  47 #   set_board_info gdb,noinferiorio 1
  48 #       Neither the traditional gdbserver nor the one in libremote
  49 #       can presently capture stdout and relay it to GDB via the
  50 #       'O' packet.  This means that tests involving printf will
  51 #       fail unles you set this varibale in your baseboard
  52 #       configuration file.
  53 #
  54 #   set_board_info gdb,no_hardware_watchpoints 1
  55 #       Unles you have a gdbserver that supports hardware watchpoints.
  56 #       FIXME: gdb should detect if the target doesn't support them,
  57 #       and fall back to using software watchpoints.
  58 #
  59 #   set_board_info gdb_server_prog
  60 #       This will be the path to the gdbserver program you want to test.
  61 #       Defaults to "gdbserver".
  62 #
  63 #   set_board_info sockethost
  64 #       The name of the host computer whose socket is being used.
  65 #       Defaults to "localhost".  Note: old gdbserver requires
  66 #       that you define this, but libremote/gdbserver does not.
  67 #
  68 #   set_board_info gdb,socketport
  69 #       Port id to use for socket connection.  If not set explicitly,
  70 #       it will start at "2345" and increment for each use.
  71 #
  72
  73 # The guts live in gdbserver-support.exp now.
  74
  75 load_lib gdbserver-support.exp
  76
  77 proc gdbserver_gdb_load { } {
  78     return [gdbserver_spawn ""]
  79 }
  80
  81 proc gdb_reload { } {
  82     return [gdbserver_run ""]
  83 }
  84
  85 proc gdb_reconnect { } {
  86     return [gdbserver_reconnect]
  87 }