binutils-gdb/gdb/testsuite/gdb.multi/multi-arch-exec.exp

190 lines
5.4 KiB
Plaintext

# Copyright 2009-2018 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# Test multi-exec / multi-process features that work for all configurations,
# even ones that cannot run multiple processes simultaneously.
set testfile "multi-arch-exec"
# The plain remote target can't do multiple inferiors.
if [use_gdb_stub] {
return
}
# The 64-bit compile may succeed for i386-linux, but gdb won't be able
# to load the file.
if [istarget "i?86-*linux*"] {
return
}
# The testcase builds two programs, each of its own architecture. For
# example, one built with -m64, another with -m32. The exact compiler
# options depends on target triplet. We generically refer to the
# architectures simply as 'architecture 1' and 'architecture 2'. Each
# program is actually built twice, once for each architecture, because
# we test both execing from arch1 to arch2 and from arch2 to arch1.
# The architecture of the executable that execs is encoded in the
# binaries' names, like so:
#
# $first_arch-multi-arch-exec # execing program
# $first_arch-multi-arch-exec-hello # execed program
# Append the options necessary to build a program for architecture 1
# to the OPTIONS_VAR list.
proc append_arch1_options {options_var} {
upvar 1 $options_var options
if { [istarget "aarch64*-*-*"] } {
return 1
}
lappend options "additional_flags=-m64"
return 1
}
# Append the options necessary to build a program for architecture 2
# to the OPTIONS_VAR list.
proc append_arch2_options {options_var} {
upvar 1 $options_var options
if { [istarget "aarch64*-*-*"] } {
if {[info exists ARM_CC_FOR_TARGET]} {
lappend options "compiler=${ARM_CC_FOR_TARGET}"
return 1
} else {
unsupported "ARM compiler is not known"
return 0
}
}
if [istarget "s390*-*-*"] {
set march "-m31"
} else {
set march "-m32"
}
lappend options "additional_flags=${march}"
return 1
}
# Append the options necessary to build a program for architecture
# ARCH to the OPTIONS_VAR list. Returns true on success.
proc append_arch_options {arch options_var} {
upvar 1 $options_var options
if {$arch == 1} {
return [append_arch1_options options]
} elseif {$arch == 2} {
return [append_arch2_options options]
} else {
error "unhandled architecture: $arch"
}
}
# Build the executables for testing with FIRST_ARCH (either 1 or 2) as
# the architecture before the exec. Returns true on success.
proc build_executables { first_arch } {
# Can't use standard_testfile, we want executables with specialized
# names.
set from_exec "$first_arch-multi-arch-exec"
set from_srcfile multi-arch-exec.c
set from_binfile [standard_output_file ${from_exec}]
set to_exec "$first_arch-multi-arch-exec-hello"
set to_srcfile hello.c
set to_binfile [standard_output_file ${to_exec}]
# Build two executables, one for each arch.
if {$first_arch == 1} {
set from_arch 1
set to_arch 2
} elseif {$first_arch == 2} {
set from_arch 2
set to_arch 1
} else {
error "unhandled first architecture: $first_arch"
}
set from_options [list debug pthreads]
if {![append_arch_options $from_arch from_options]} {
return 0
}
if { [build_executable "failed to prepare" ${from_exec} "${from_srcfile}" \
$from_options] } {
return 0
}
set to_options [list debug]
if {![append_arch_options $to_arch to_options]} {
return 0
}
if { [build_executable "failed to prepare" ${to_exec} "${to_srcfile}" \
$to_options] } {
return 0
}
return 1
}
proc do_test { first_arch mode selected_thread } {
set from_exec "$first_arch-multi-arch-exec"
clean_restart ${from_exec}
if ![runto all_started] then {
fail "couldn't run to all_started"
return -1
}
# Delete the breakpoint at 'all_started' otherwise GDB may
# switch context back to thread 1 to step over the breakpoint.
delete_breakpoints
# A location for this breakpoint should be found in the new
# post-exec image too.
gdb_breakpoint main
gdb_test "thread $selected_thread" "Switching to thread $selected_thread .*"
gdb_test_no_output "set follow-exec-mode $mode"
# Test that GDB updates the target description / arch successfuly
# after the exec.
gdb_test "continue" "Breakpoint 2, main.*" "continue across exec that changes architecture"
}
# Test both arch1=>arch2 and arch2=>arch1.
foreach_with_prefix first_arch {1 2} {
if {![build_executables $first_arch]} {
continue
}
# Test handling the exec event with either the main thread or the
# second thread selected. This tries to ensure that GDB doesn't read
# registers off of the execing thread before figuring out its
# architecture.
foreach_with_prefix selected_thread {1 2} {
foreach_with_prefix follow_exec_mode {"same" "new"} {
do_test $first_arch $follow_exec_mode $selected_thread
}
}
}