src/runtest-gdbserver/boards/native-gdbserver.exp

   1 # gdbserver running native.
   2
   3 load_generic_config "gdbserver"
   4 process_multilib_options ""
   5
   6 # The default compiler for this target.
   7 set_board_info compiler "[find_gcc]"
   8
   9 # This gdbserver can only run a process once per session.
  10 set_board_info gdb,do_reload_on_run 1
  11
  12 # There's no support for argument-passing (yet).
  13 set_board_info noargs 1
  14
  15 # Can't do input (or output) in the current gdbserver.
  16 set_board_info gdb,noinferiorio 1
  17
  18 # gdbserver does not intercept target file operations and perform them
  19 # on the host.
  20 set_board_info gdb,nofileio 1
  21
  22 # Can't do hardware watchpoints, in general.
  23 set_board_info gdb,no_hardware_watchpoints 1
  24
  25 set_board_info sockethost "localhost:"
  26 set_board_info use_gdb_stub 1
  27
  28 # We will be using the standard GDB remote protocol.
  29 set_board_info gdb_protocol "remote"
  30 # Test the copy of gdbserver in the build directory.
  31 set_board_info gdb_server_prog "../gdbserver/gdbserver"
  32
  33 proc ${board}_spawn { board cmd } {
  34   global board_info
  35
  36   set baseboard [lindex [split $board "/"] 0]
  37
  38   set board_info($baseboard,isremote) 0
  39   set result [remote_spawn $board $cmd]
  40   set board_info($baseboard,isremote) 1
  41
  42   return $result
  43 }
  44
  45 proc ${board}_download { board host dest } {
  46   return $host
  47 }
  48
  49 proc ${board}_file { dest op args } {
  50     if { $op == "delete" } {
  51         return 0
  52     }
  53     return [eval [list standard_file $dest $op] $args]
  54 }