Home | History | Annotate | Line # | Download | only in gdb.server 
      1 # This testcase is part of GDB, the GNU debugger.
      2 #
      3 # Copyright 2019-2024 Free Software Foundation, Inc.
      4 #
      5 # This program is free software; you can redistribute it and/or modify
      6 # it under the terms of the GNU General Public License as published by
      7 # the Free Software Foundation; either version 3 of the License, or
      8 # (at your option) any later version.
      9 #
     10 # This program is distributed in the hope that it will be useful,
     11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     13 # GNU General Public License for more details.
     14 #
     15 # You should have received a copy of the GNU General Public License
     16 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
     17 
     18 # Test that GDB can correctly read the binary and shared libraries
     19 # with different sysroot setups: local and "target:".
     20 
     21 load_lib gdbserver-support.exp
     22 
     23 require allow_gdbserver_tests
     24 
     25 standard_testfile
     26 if {[build_executable "failed to prepare" $testfile $srcfile "additional_flags=--no-builtin"] == -1} {
     27     return -1
     28 }
     29 
     30 set target_binfile [gdb_remote_download target $binfile]
     31 set host_binfile [gdb_remote_download host $binfile]
     32 
     33 # Run once with sysroot set to the local filesystem and once set to the remote
     34 # target.
     35 set modes {}
     36 if { ( ![is_remote host] && ![is_remote target ] )
     37      || [board_info host name] == [board_info target name] } {
     38     # Local means that gdb and gdbserver look at the same file system.  That's
     39     # not the case for remote host or remote target, unless
     40     # remote host == remote target.
     41     lappend modes "local"
     42 }
     43 lappend modes "remote"
     44 
     45 foreach_with_prefix sysroot $modes {
     46     global srcdir
     47     global subdir
     48     global binfile
     49 
     50     if { $sysroot == "local" } {
     51 	set sysroot_command "/"
     52 	set reading_symbols "Reading symbols from $host_binfile..."
     53 	set timeout_factor 1
     54     } else {
     55 	set sysroot_command "target:"
     56 	set reading_symbols "Reading .*$target_binfile from remote target..."
     57 	set timeout_factor 5
     58     }
     59 
     60     # Reading debug info from the remote target can take a bit of time, so
     61     # increase the timeout in that case.
     62     with_timeout_factor $timeout_factor {
     63 	# Restart GDB.
     64 	clean_restart
     65 
     66 	# Make sure we're disconnected, in case we're testing with an
     67 	# extended-remote board, therefore already connected.
     68 	gdb_test "disconnect" ".*"
     69 
     70 	# Start GDBserver.
     71 	set res [gdbserver_start "" $target_binfile]
     72 	set gdbserver_protocol [lindex $res 0]
     73 	set gdbserver_gdbport [lindex $res 1]
     74 
     75 	# Set the sysroot.
     76 	gdb_test_no_output "set sysroot $sysroot_command"
     77 
     78 	# Connect to gdbserver, making sure GDB reads in the binary correctly.
     79 	set test "connect to remote and read binary"
     80 	if {[gdb_target_cmd $gdbserver_protocol $gdbserver_gdbport $reading_symbols] == 0} {
     81 	    pass $test
     82 	} else {
     83 	    fail $test
     84 	}
     85 
     86 	gdb_breakpoint main
     87 	gdb_test "continue" "Breakpoint $decimal.* main.*" "continue to main"
     88 
     89 	# Test that we can stop inside a library.
     90 	gdb_breakpoint printf
     91 	gdb_test "continue" "Breakpoint $decimal.* (__)?printf.*" \
     92 	    "continue to printf"
     93     }
     94 }
     95