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 set_board_info sockethost "localhost:"
  23 set_board_info use_gdb_stub 1
  24
  25 # We will be using the standard GDB remote protocol.
  26 set_board_info gdb_protocol "remote"
  27 # Test the copy of gdbserver in the build directory.
  28 set_board_info gdb_server_prog "../gdbserver/gdbserver"
  29
  30 proc ${board}_spawn { board cmd } {
  31   global board_info
  32
  33   set baseboard [lindex [split $board "/"] 0]
  34
  35   set board_info($baseboard,isremote) 0
  36   set result [remote_spawn $board $cmd]
  37   set board_info($baseboard,isremote) 1
  38
  39   return $result
  40 }
  41
  42 proc ${board}_download { board host dest } {
  43   return $host
  44 }
  45
  46 proc ${board}_file { dest op args } {
  47     if { $op == "delete" } {
  48         return 0
  49     }
  50     return [eval [list standard_file $dest $op] $args]
  51 }